Group_99/D7djRuishun
7
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

~

Browse Source
This commit is contained in:
DESKTOP-E401PHE\Administrator 2026-01-09 15:53:00 +08:00
parent 7d59c72616
commit a7eba97372
9 changed files with 331 additions and 197 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
检验管理/TradeManage.dof
View File

@ -101,7 +101,7 @@ DebugSourceDirs=
UsePackages=0 UsePackages=0
[Parameters] [Parameters]
RunParams= RunParams=
HostApplication=D:\D7W\项目代码\D7djRuishun\检验管理\testDll.exe HostApplication=D:\Dp7Repo\项目代码\D7djRuishun\检验管理\testDll.exe
Launcher= Launcher=
UseLauncher=0 UseLauncher=0
DebugCWD= DebugCWD=

6
检验管理/TradeManage.dpr
View File

@ -3,10 +3,10 @@ library TradeManage;
uses uses
SysUtils, SysUtils,
classes, classes,
forms, forms,
WinTypes, WinTypes,
WinProcs, WinProcs,
MidasLib, MidasLib,
U_DataLink in 'U_DataLink.pas' {DataLink_TradeManage: TDataModule}, U_DataLink in 'U_DataLink.pas' {DataLink_TradeManage: TDataModule},
U_GetDllForm in 'U_GetDllForm.pas', U_GetDllForm in 'U_GetDllForm.pas',
U_ZDYHelpSel in '..\..\..\ThreeFun\Form\U_ZDYHelpSel.pas' {frmZDYHelpSel}, U_ZDYHelpSel in '..\..\..\ThreeFun\Form\U_ZDYHelpSel.pas' {frmZDYHelpSel},

12
检验管理/U_CKProductBCPOutList.dfm
View File

@ -1,7 +1,7 @@
object frmCKProductBCPOutList: TfrmCKProductBCPOutList object frmCKProductBCPOutList: TfrmCKProductBCPOutList
Left = 119 Left = 226
Top = 120 Top = 149
Width = 1378 Width = 1719
Height = 754 Height = 754
Caption = #25104#21697#20986#24211#21015#34920 Caption = #25104#21697#20986#24211#21015#34920
Color = clBtnFace Color = clBtnFace
@ -20,7 +20,7 @@ object frmCKProductBCPOutList: TfrmCKProductBCPOutList
object ToolBar1: TToolBar object ToolBar1: TToolBar
Left = 0 Left = 0
Top = 0 Top = 0
Width = 1362 Width = 1703
Height = 33 Height = 33
ButtonHeight = 30 ButtonHeight = 30
ButtonWidth = 83 ButtonWidth = 83
@ -116,7 +116,7 @@ object frmCKProductBCPOutList: TfrmCKProductBCPOutList
object Panel1: TPanel object Panel1: TPanel
Left = 0 Left = 0
Top = 33 Top = 33
Width = 1362 Width = 1703
Height = 80 Height = 80
Align = alTop Align = alTop
BevelInner = bvRaised BevelInner = bvRaised
@ -381,7 +381,7 @@ object frmCKProductBCPOutList: TfrmCKProductBCPOutList
object cxGrid2: TcxGrid object cxGrid2: TcxGrid
Left = 0 Left = 0
Top = 113 Top = 113
Width = 1362 Width = 1703
Height = 602 Height = 602
Align = alClient Align = alClient
PopupMenu = PopupMenu1 PopupMenu = PopupMenu1

32
检验管理/U_CKProductBCPOutList.pas
View File

@ -11,7 +11,20 @@ uses
ExtCtrls, ToolWin, cxGridCustomPopupMenu, cxGridPopupMenu, ADODB, DBClient, ExtCtrls, ToolWin, cxGridCustomPopupMenu, cxGridPopupMenu, ADODB, DBClient,
cxDropDownEdit, RM_Common, RM_Class, RM_e_Xls, RM_Dataset, RM_System, cxDropDownEdit, RM_Common, RM_Class, RM_e_Xls, RM_Dataset, RM_System,
RM_GridReport, cxCheckBox, Menus, MovePanel, cxLookAndFeels, RM_GridReport, cxCheckBox, Menus, MovePanel, cxLookAndFeels,
cxLookAndFeelPainters, cxNavigator; cxLookAndFeelPainters, cxNavigator, dxSkinsCore, dxSkinBlack, dxSkinBlue,
dxSkinBlueprint, dxSkinCaramel, dxSkinCoffee, dxSkinDarkRoom, dxSkinDarkSide,
dxSkinDevExpressDarkStyle, dxSkinDevExpressStyle, dxSkinFoggy,
dxSkinGlassOceans, dxSkinHighContrast, dxSkiniMaginary, dxSkinLilian,
dxSkinLiquidSky, dxSkinLondonLiquidSky, dxSkinMcSkin, dxSkinMetropolis,
dxSkinMetropolisDark, dxSkinMoneyTwins, dxSkinOffice2007Black,
dxSkinOffice2007Blue, dxSkinOffice2007Green, dxSkinOffice2007Pink,
dxSkinOffice2007Silver, dxSkinOffice2010Black, dxSkinOffice2010Blue,
dxSkinOffice2010Silver, dxSkinOffice2013DarkGray, dxSkinOffice2013LightGray,
dxSkinOffice2013White, dxSkinPumpkin, dxSkinSeven, dxSkinSevenClassic,
dxSkinSharp, dxSkinSharpPlus, dxSkinSilver, dxSkinSpringTime, dxSkinStardust,
dxSkinSummer2008, dxSkinTheAsphaltWorld, dxSkinsDefaultPainters,
dxSkinValentine, dxSkinVS2010, dxSkinWhiteprint, dxSkinXmas2008Blue,
dxSkinscxPCPainter;
type type
TfrmCKProductBCPOutList = class(TForm) TfrmCKProductBCPOutList = class(TForm)
@ -212,12 +225,13 @@ begin
with ADOQueryMain do with ADOQueryMain do
begin begin
Filtered := False; Filtered := False;
Close; Close;
sql.Clear; sql.Clear;
SQL.Add('select A.*,cast(D.baono as varchar(20)) as Strbaono,B.OrderNo,C.PRTCodeName,C.PRTSpec,C.PRTColor,C.SOrddefstr1,C.PRTMF,C.PRTKZ,D.MJXH,D.baono as Fbaono , D.baoid as Fbaoid,C.PRTPrice,C.PRTHX '); SQL.Add('select A.CPType,A.CRTime,A.KGQty,A.Qty,A.QtyUnit,A.CKOrdNo,A.CRNote,A.mjid,A.BCID,A.CRID');
sql.Add(',C.SOrddefstr4,D.MJQty3,D.MJQty4'); SQL.Add(',cast(D.baono as varchar(20)) as Strbaono,B.OrderNo,C.PRTCodeName,C.PRTSpec,C.PRTColor,C.SOrddefstr1,C.PRTMF,C.PRTKZ,D.MJXH,D.baono as Fbaono , D.baoid as Fbaoid,C.PRTPrice,C.PRTHX ');
sql.Add(',PONO=(select Top 1 KHConNo from JYOrderCon_Main JCM where JCM.ConNo=B.OrderNo)'); sql.Add(',C.SOrddefstr4,D.MJQty3,D.MJQty4,D.baono');
sql.Add(',MPRTECodeName=(select Top 1 MPRTCodeName from JYOrderCon_Main JCM where JCM.ConNo=B.OrderNo)'); // sql.Add(',PONO=(select Top 1 KHConNo from JYOrderCon_Main JCM where JCM.ConNo=B.OrderNo)');
// sql.Add(',MPRTECodeName=(select Top 1 MPRTCodeName from JYOrderCon_Main JCM where JCM.ConNo=B.OrderNo)');
sql.Add(',isnull(customerNoName,B.OrderNo) KHName'); sql.Add(',isnull(customerNoName,B.OrderNo) KHName');
sql.Add(',D.mjstr4,D.MJstr5 '); sql.Add(',D.mjstr4,D.MJstr5 ');
sql.add('from CK_BanCP_CR A '); sql.add('from CK_BanCP_CR A ');
@ -228,6 +242,7 @@ begin
sql.add(' and A.CRTime<''' + Trim(FormatDateTime('yyyy-MM-dd', enddate.DateTime + 1)) + ''''); sql.add(' and A.CRTime<''' + Trim(FormatDateTime('yyyy-MM-dd', enddate.DateTime + 1)) + '''');
SQL.Add(' and CRType=''Õý³£³ö¿â'' '); SQL.Add(' and CRType=''Õý³£³ö¿â'' ');
// sql.Add('order by cast(dbo.Get_ShuZi(C.SOrddefstr1) as bigint)'); // sql.Add('order by cast(dbo.Get_ShuZi(C.SOrddefstr1) as bigint)');
// ShowMessage(sql.text);
Open; Open;
end; end;
SCreateCDS20(ADOQueryMain, CDS_Main); SCreateCDS20(ADOQueryMain, CDS_Main);
@ -1257,10 +1272,11 @@ begin
with ADOQueryCmd do with ADOQueryCmd do
begin begin
Close; Close;
sql.Clear; sql.Clear;
sql.Add(strsql); sql.Add(strsql);
// ShowMessage(SQL.text);
ExecSQL ExecSQL
end; end;
CDS_Main.EnableControls; CDS_Main.EnableControls;
ADOQueryCmd.Connection.CommitTrans; ADOQueryCmd.Connection.CommitTrans;
MovePanel2.Visible := False; MovePanel2.Visible := False;

4
检验管理/U_JYOrderCDOne.dfm
View File

@ -1,6 +1,6 @@
object frmJYOrderCDOne: TfrmJYOrderCDOne object frmJYOrderCDOne: TfrmJYOrderCDOne
Left = 146 Left = 239
Top = 52 Top = 166
Width = 1382 Width = 1382
Height = 754 Height = 754
Caption = #26816#39564#25253#21578 Caption = #26816#39564#25253#21578

26
检验管理/U_JYOrderCDOne.pas
View File

@ -10,7 +10,20 @@ uses
cxGridCustomView, cxGridCustomTableView, cxGridTableView, cxGridDBTableView, cxGridCustomView, cxGridCustomTableView, cxGridTableView, cxGridDBTableView,
cxGrid, DBClient, cxCheckBox, cxCalendar, cxSplitter, RM_Dataset, RM_System, cxGrid, DBClient, cxCheckBox, cxCalendar, cxSplitter, RM_Dataset, RM_System,
RM_Common, RM_Class, RM_GridReport, RM_e_Xls, Menus, MovePanel, cxTextEdit, RM_Common, RM_Class, RM_GridReport, RM_e_Xls, Menus, MovePanel, cxTextEdit,
cxLookAndFeels, cxLookAndFeelPainters, cxNavigator,Math; cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, Math, dxSkinsCore,
dxSkinBlack, dxSkinBlue, dxSkinBlueprint, dxSkinCaramel, dxSkinCoffee,
dxSkinDarkRoom, dxSkinDarkSide, dxSkinDevExpressDarkStyle,
dxSkinDevExpressStyle, dxSkinFoggy, dxSkinGlassOceans, dxSkinHighContrast,
dxSkiniMaginary, dxSkinLilian, dxSkinLiquidSky, dxSkinLondonLiquidSky,
dxSkinMcSkin, dxSkinMetropolis, dxSkinMetropolisDark, dxSkinMoneyTwins,
dxSkinOffice2007Black, dxSkinOffice2007Blue, dxSkinOffice2007Green,
dxSkinOffice2007Pink, dxSkinOffice2007Silver, dxSkinOffice2010Black,
dxSkinOffice2010Blue, dxSkinOffice2010Silver, dxSkinOffice2013DarkGray,
dxSkinOffice2013LightGray, dxSkinOffice2013White, dxSkinPumpkin, dxSkinSeven,
dxSkinSevenClassic, dxSkinSharp, dxSkinSharpPlus, dxSkinSilver,
dxSkinSpringTime, dxSkinStardust, dxSkinSummer2008, dxSkinTheAsphaltWorld,
dxSkinsDefaultPainters, dxSkinValentine, dxSkinVS2010, dxSkinWhiteprint,
dxSkinXmas2008Blue, dxSkinscxPCPainter;
type type
TfrmJYOrderCDOne = class(TForm) TfrmJYOrderCDOne = class(TForm)
@ -1800,6 +1813,14 @@ begin
sql.Add('where MJID=''' + Trim(Order_Main.fieldbyname('MJID').AsString) + ''''); sql.Add('where MJID=''' + Trim(Order_Main.fieldbyname('MJID').AsString) + '''');
ExecSQL; ExecSQL;
end; end;
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add('Update CK_BanCP_KC Set KCQty=''' + SL + ''' ');
sql.Add('where MJID=''' + Trim(Order_Main.fieldbyname('MJID').AsString) + '''');
ExecSQL;
end;
end; end;
Next; Next;
end; end;
@ -1856,8 +1877,7 @@ begin
InitGrid(); InitGrid();
end; end;
procedure TfrmJYOrderCDOne.PRTCodeNameKeyPress(Sender: TObject; procedure TfrmJYOrderCDOne.PRTCodeNameKeyPress(Sender: TObject; var Key: Char);
var Key: Char);
begin begin
if Key = #13 then if Key = #13 then
begin begin

4
检验管理/U_MJEdit.dfm
View File

@ -323,11 +323,11 @@ object frmMJEdit: TfrmMJEdit
Left = 0 Left = 0
Top = 105 Top = 105
Width = 854 Width = 854
Height = 357 Height = 356
Align = alClient Align = alClient
TabOrder = 2 TabOrder = 2
object Tv2: TcxGridDBTableView object Tv2: TcxGridDBTableView
NavigatorButtons.ConfirmDelete = False Navigator.Buttons.CustomButtons = <>
DataController.DataSource = DataSource1 DataController.DataSource = DataSource1
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
DataController.Summary.DefaultGroupSummaryItems = <> DataController.Summary.DefaultGroupSummaryItems = <>

403
检验管理/U_MJEdit.pas
View File

@ -4,11 +4,24 @@ interface
uses uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, cxDataStorage,
cxDataStorage, cxEdit, DB, cxDBData, cxTextEdit, DBClient, ADODB, cxEdit, DB, cxDBData, cxTextEdit, DBClient, ADODB, cxGridLevel,
cxGridLevel, cxGridCustomTableView, cxGridTableView, cxGridDBTableView, cxGridCustomTableView, cxGridTableView, cxGridDBTableView, cxClasses,
cxClasses, cxControls, cxGridCustomView, cxGrid, StdCtrls, ExtCtrls, cxControls, cxGridCustomView, cxGrid, StdCtrls, ExtCtrls, ComCtrls, ToolWin,
ComCtrls, ToolWin, cxButtonEdit; cxButtonEdit, cxLookAndFeels, cxLookAndFeelPainters, dxSkinsCore, dxSkinBlack,
dxSkinBlue, dxSkinBlueprint, dxSkinCaramel, dxSkinCoffee, dxSkinDarkRoom,
dxSkinDarkSide, dxSkinDevExpressDarkStyle, dxSkinDevExpressStyle, dxSkinFoggy,
dxSkinGlassOceans, dxSkinHighContrast, dxSkiniMaginary, dxSkinLilian,
dxSkinLiquidSky, dxSkinLondonLiquidSky, dxSkinMcSkin, dxSkinMetropolis,
dxSkinMetropolisDark, dxSkinMoneyTwins, dxSkinOffice2007Black,
dxSkinOffice2007Blue, dxSkinOffice2007Green, dxSkinOffice2007Pink,
dxSkinOffice2007Silver, dxSkinOffice2010Black, dxSkinOffice2010Blue,
dxSkinOffice2010Silver, dxSkinOffice2013DarkGray, dxSkinOffice2013LightGray,
dxSkinOffice2013White, dxSkinPumpkin, dxSkinSeven, dxSkinSevenClassic,
dxSkinSharp, dxSkinSharpPlus, dxSkinSilver, dxSkinSpringTime, dxSkinStardust,
dxSkinSummer2008, dxSkinTheAsphaltWorld, dxSkinsDefaultPainters,
dxSkinValentine, dxSkinVS2010, dxSkinWhiteprint, dxSkinXmas2008Blue,
dxSkinscxPCPainter, cxNavigator;
type type
TfrmMJEdit = class(TForm) TfrmMJEdit = class(TForm)
@ -66,8 +79,7 @@ type
procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormDestroy(Sender: TObject); procedure FormDestroy(Sender: TObject);
procedure MJIDKeyPress(Sender: TObject; var Key: Char); procedure MJIDKeyPress(Sender: TObject; var Key: Char);
procedure tv2CDTypePropertiesButtonClick(Sender: TObject; procedure tv2CDTypePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
AButtonIndex: Integer);
procedure tv2CDWZPropertiesEditValueChanged(Sender: TObject); procedure tv2CDWZPropertiesEditValueChanged(Sender: TObject);
procedure v2Column2PropertiesEditValueChanged(Sender: TObject); procedure v2Column2PropertiesEditValueChanged(Sender: TObject);
procedure ToolButton1Click(Sender: TObject); procedure ToolButton1Click(Sender: TObject);
@ -78,7 +90,7 @@ type
procedure ToolButton4Click(Sender: TObject); procedure ToolButton4Click(Sender: TObject);
private private
{ Private declarations } { Private declarations }
function SaveData():Boolean; function SaveData(): Boolean;
public public
{ Public declarations } { Public declarations }
end; end;
@ -87,24 +99,25 @@ var
frmMJEdit: TfrmMJEdit; frmMJEdit: TfrmMJEdit;
implementation implementation
uses uses
U_Fun,U_ZDYHelp,U_DataLink; U_Fun, U_ZDYHelp, U_DataLink;
{$R *.dfm} {$R *.dfm}
procedure TfrmMJEdit.FormClose(Sender: TObject; var Action: TCloseAction); procedure TfrmMJEdit.FormClose(Sender: TObject; var Action: TCloseAction);
begin begin
Action:=caFree; Action := caFree;
end; end;
procedure TfrmMJEdit.FormDestroy(Sender: TObject); procedure TfrmMJEdit.FormDestroy(Sender: TObject);
begin begin
frmMJEdit:=nil; frmMJEdit := nil;
end; end;
procedure TfrmMJEdit.MJIDKeyPress(Sender: TObject; var Key: Char); procedure TfrmMJEdit.MJIDKeyPress(Sender: TObject; var Key: Char);
begin begin
if Key=#13 then if Key = #13 then
begin begin
with ADOTmp do with ADOTmp do
begin begin
@ -112,77 +125,76 @@ begin
sql.Clear; sql.Clear;
SQL.Add('select A.*,AOrddefstr3=(select AOrddefstr3 from JYOrder_Sub_AnPai B where B.APID=A.APID), '); SQL.Add('select A.*,AOrddefstr3=(select AOrddefstr3 from JYOrder_Sub_AnPai B where B.APID=A.APID), ');
sql.Add('AOrddefstr2=(select AOrddefstr2 from JYOrder_Sub_AnPai B where B.APID=A.APID) from WFB_MJJY A'); sql.Add('AOrddefstr2=(select AOrddefstr2 from JYOrder_Sub_AnPai B where B.APID=A.APID) from WFB_MJJY A');
sql.Add(' where A.MJID='''+Trim(MJID.Text)+''''); sql.Add(' where A.MJID=''' + Trim(MJID.Text) + '''');
Open; Open;
end; end;
if ADOTmp.IsEmpty then if ADOTmp.IsEmpty then
begin begin
MJID.Text:=''; MJID.Text := '';
Label2.Caption:=''; Label2.Caption := '';
Label2.Visible:=False; Label2.Visible := False;
Application.MessageBox('条码错误!','提示',0); Application.MessageBox('条码错误!', '提示', 0);
Exit; Exit;
end; end;
MJstr4.Text:=Trim(ADOTmp.fieldbyname('MJstr4').AsString); MJstr4.Text := Trim(ADOTmp.fieldbyname('MJstr4').AsString);
MJXH.Text:=Trim(ADOTmp.fieldbyname('MJXH').AsString); MJXH.Text := Trim(ADOTmp.fieldbyname('MJXH').AsString);
MJMaoZ.Text:=Trim(ADOTmp.fieldbyname('MJMaoZ').AsString); MJMaoZ.Text := Trim(ADOTmp.fieldbyname('MJMaoZ').AsString);
MJLen.Text:=Trim(ADOTmp.fieldbyname('MJLen').AsString); MJLen.Text := Trim(ADOTmp.fieldbyname('MJLen').AsString);
MJQty1.Text:=Trim(ADOTmp.fieldbyname('MJQty1').AsString); MJQty1.Text := Trim(ADOTmp.fieldbyname('MJQty1').AsString);
MJQty2.Text:=Trim(ADOTmp.fieldbyname('MJQty2').AsString); MJQty2.Text := Trim(ADOTmp.fieldbyname('MJQty2').AsString);
MJQty4.Text:=Trim(ADOTmp.fieldbyname('MJQty4').AsString); MJQty4.Text := Trim(ADOTmp.fieldbyname('MJQty4').AsString);
MJFK.Text:=Trim(ADOTmp.fieldbyname('MJFK').AsString); MJFK.Text := Trim(ADOTmp.fieldbyname('MJFK').AsString);
MJSJKZ.Text:=Trim(ADOTmp.fieldbyname('MJSJKZ').AsString); MJSJKZ.Text := Trim(ADOTmp.fieldbyname('MJSJKZ').AsString);
M.Caption:=Trim(Trim(ADOTmp.fieldbyname('MJTypeOther').AsString)); M.Caption := Trim(Trim(ADOTmp.fieldbyname('MJTypeOther').AsString));
Ma.Caption:=Trim(Trim(ADOTmp.fieldbyname('MJStr1').AsString)); Ma.Caption := Trim(Trim(ADOTmp.fieldbyname('MJStr1').AsString));
if Trim(m.Caption)='' then if Trim(m.Caption) = '' then
begin begin
m.Caption:=Trim(ADOTmp.fieldbyname('AOrddefstr3').AsString); m.Caption := Trim(ADOTmp.fieldbyname('AOrddefstr3').AsString);
end; end;
if Trim(Ma.Caption)='' then if Trim(Ma.Caption) = '' then
begin begin
Ma.Caption:=Trim(ADOTmp.fieldbyname('AOrddefstr2').AsString); Ma.Caption := Trim(ADOTmp.fieldbyname('AOrddefstr2').AsString);
end; end;
if Trim(Trim(ADOTmp.fieldbyname('MJType').AsString))='正品' then if Trim(Trim(ADOTmp.fieldbyname('MJType').AsString)) = '正品' then
begin begin
RadioGroup1.ItemIndex:=0 RadioGroup1.ItemIndex := 0
end else end
if Trim(Trim(ADOTmp.fieldbyname('MJType').AsString))='次品' then else if Trim(Trim(ADOTmp.fieldbyname('MJType').AsString)) = '次品' then
begin begin
RadioGroup1.ItemIndex:=1; RadioGroup1.ItemIndex := 1;
end else end
if Trim(Trim(ADOTmp.fieldbyname('MJType').AsString))='留样' then else if Trim(Trim(ADOTmp.fieldbyname('MJType').AsString)) = '留样' then
begin begin
RadioGroup1.ItemIndex:=2; RadioGroup1.ItemIndex := 2;
end; end;
with ADOTmp do with ADOTmp do
begin begin
Close; Close;
sql.Clear; sql.Clear;
SQL.Add('select * from WFB_MJJY_CD A where A.MJID='''+Trim(MJID.Text)+''''); SQL.Add('select * from WFB_MJJY_CD A where A.MJID=''' + Trim(MJID.Text) + '''');
Open; Open;
end; end;
Label2.Caption:=Trim(MJID.Text); Label2.Caption := Trim(MJID.Text);
Label2.Visible:=True; Label2.Visible := True;
MJID.Text:=''; MJID.Text := '';
SCreateCDS20(ADOTmp,Order_MJ); SCreateCDS20(ADOTmp, Order_MJ);
SInitCDSData20(ADOTmp,Order_MJ); SInitCDSData20(ADOTmp, Order_MJ);
end; end;
end; end;
procedure TfrmMJEdit.tv2CDTypePropertiesButtonClick(Sender: TObject; procedure TfrmMJEdit.tv2CDTypePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
AButtonIndex: Integer);
begin begin
try try
frmZDYHelp:=TfrmZDYHelp.Create(Application); frmZDYHelp := TfrmZDYHelp.Create(Application);
with frmZDYHelp do with frmZDYHelp do
begin begin
flag:='WFBCD'; flag := 'WFBCD';
flagname:='疵点'; flagname := '疵点';
if ShowModal=1 then if ShowModal = 1 then
begin begin
Self.Order_MJ.Edit; Self.Order_MJ.Edit;
Self.Order_MJ.FieldByName('CDName').value:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); Self.Order_MJ.FieldByName('CDName').value := Trim(ClientDataSet1.fieldbyname('ZdyName').AsString);
end; end;
end; end;
finally finally
@ -192,36 +204,37 @@ end;
procedure TfrmMJEdit.tv2CDWZPropertiesEditValueChanged(Sender: TObject); procedure TfrmMJEdit.tv2CDWZPropertiesEditValueChanged(Sender: TObject);
var var
mvalue,CDBeg,CDEnd:string; mvalue, CDBeg, CDEnd: string;
FFReal:Double; FFReal: Double;
begin begin
mvalue:=TcxTextEdit(Sender).EditingText; mvalue := TcxTextEdit(Sender).EditingText;
with Order_MJ do with Order_MJ do
begin begin
Edit; Edit;
FieldByName('CDBeg').Value:=mvalue; FieldByName('CDBeg').Value := mvalue;
Post; Post;
end; end;
CDBeg:=Trim(Order_MJ.fieldbyname('CDBeg').AsString); CDBeg := Trim(Order_MJ.fieldbyname('CDBeg').AsString);
CDEnd:=Trim(Order_MJ.fieldbyname('CDEnd').AsString); CDEnd := Trim(Order_MJ.fieldbyname('CDEnd').AsString);
if (Trim(CDBeg)<>'') and (Trim(CDEnd)<>'') then if (Trim(CDBeg) <> '') and (Trim(CDEnd) <> '') then
begin begin
if TryStrToFloat(CDBeg,FFReal) and TryStrToFloat(CDBeg,FFReal) then if TryStrToFloat(CDBeg, FFReal) and TryStrToFloat(CDBeg, FFReal) then
begin begin
if StrToFloat(CDEnd)<StrToFloat(CDBeg) then if StrToFloat(CDEnd) < StrToFloat(CDBeg) then
begin begin
Application.MessageBox('终止位置小于起始位置!','提示',0); Application.MessageBox('终止位置小于起始位置!', '提示', 0);
Exit; Exit;
end; end;
with Order_MJ do with Order_MJ do
begin begin
Edit; Edit;
FieldByName('CDQty').Value:=StrToFloat(CDEnd)-StrToFloat(CDBeg); FieldByName('CDQty').Value := StrToFloat(CDEnd) - StrToFloat(CDBeg);
Post; Post;
end; end;
end else end
else
begin begin
Application.MessageBox('非法数字!','提示',0); Application.MessageBox('非法数字!', '提示', 0);
Exit; Exit;
end; end;
end; end;
@ -229,36 +242,37 @@ end;
procedure TfrmMJEdit.v2Column2PropertiesEditValueChanged(Sender: TObject); procedure TfrmMJEdit.v2Column2PropertiesEditValueChanged(Sender: TObject);
var var
mvalue,CDBeg,CDEnd:string; mvalue, CDBeg, CDEnd: string;
FFReal:Double; FFReal: Double;
begin begin
mvalue:=TcxTextEdit(Sender).EditingText; mvalue := TcxTextEdit(Sender).EditingText;
with Order_MJ do with Order_MJ do
begin begin
Edit; Edit;
FieldByName('CDEnd').Value:=mvalue; FieldByName('CDEnd').Value := mvalue;
Post; Post;
end; end;
CDBeg:=Trim(Order_MJ.fieldbyname('CDBeg').AsString); CDBeg := Trim(Order_MJ.fieldbyname('CDBeg').AsString);
CDEnd:=Trim(Order_MJ.fieldbyname('CDEnd').AsString); CDEnd := Trim(Order_MJ.fieldbyname('CDEnd').AsString);
if (Trim(CDBeg)<>'') and (Trim(CDEnd)<>'') then if (Trim(CDBeg) <> '') and (Trim(CDEnd) <> '') then
begin begin
if TryStrToFloat(CDBeg,FFReal) and TryStrToFloat(CDBeg,FFReal) then if TryStrToFloat(CDBeg, FFReal) and TryStrToFloat(CDBeg, FFReal) then
begin begin
if StrToFloat(CDEnd)<StrToFloat(CDBeg) then if StrToFloat(CDEnd) < StrToFloat(CDBeg) then
begin begin
Application.MessageBox('终止位置小于起始位置!','提示',0); Application.MessageBox('终止位置小于起始位置!', '提示', 0);
Exit; Exit;
end; end;
with Order_MJ do with Order_MJ do
begin begin
Edit; Edit;
FieldByName('CDQty').Value:=StrToFloat(CDEnd)-StrToFloat(CDBeg); FieldByName('CDQty').Value := StrToFloat(CDEnd) - StrToFloat(CDBeg);
Post; Post;
end; end;
end else end
else
begin begin
Application.MessageBox('非法数字!','提示',0); Application.MessageBox('非法数字!', '提示', 0);
Exit; Exit;
end; end;
end; end;
@ -266,33 +280,37 @@ end;
procedure TfrmMJEdit.ToolButton1Click(Sender: TObject); procedure TfrmMJEdit.ToolButton1Click(Sender: TObject);
begin begin
if Trim(Label2.Caption)='' then Exit; if Trim(Label2.Caption) = '' then
Exit;
Order_MJ.Append; Order_MJ.Append;
Order_MJ.Post; Order_MJ.Post;
end; end;
procedure TfrmMJEdit.ToolButton3Click(Sender: TObject); procedure TfrmMJEdit.ToolButton3Click(Sender: TObject);
begin begin
if Trim(Label2.Caption)='' then Exit; if Trim(Label2.Caption) = '' then
if Order_MJ.IsEmpty then Exit; Exit;
if Trim(Order_MJ.fieldbyname('MCID').AsString)<>'' then if Order_MJ.IsEmpty then
Exit;
if Trim(Order_MJ.fieldbyname('MCID').AsString) <> '' then
begin begin
if Application.MessageBox('确定要删除数据吗？','提示',32+4)<>IDYES then Exit; if Application.MessageBox('确定要删除数据吗？', '提示', 32 + 4) <> IDYES then
Exit;
with ADOCmd do with ADOCmd do
begin begin
Close; Close;
sql.Clear; sql.Clear;
sql.Add('delete WFB_MJJY_CD where MCID='''+Trim(Order_MJ.fieldbyname('MCID').AsString)+''''); sql.Add('delete WFB_MJJY_CD where MCID=''' + Trim(Order_MJ.fieldbyname('MCID').AsString) + '''');
ExecSQL; ExecSQL;
end; end;
end; end;
Order_MJ.Delete; Order_MJ.Delete;
end; end;
function TfrmMJEdit.SaveData():Boolean; function TfrmMJEdit.SaveData(): Boolean;
var var
maxno:String; maxno: string;
FFreal:Double; FFreal: Double;
begin begin
try try
ADOCmd.Connection.BeginTrans; ADOCmd.Connection.BeginTrans;
@ -302,88 +320,89 @@ begin
First; First;
while not Eof do while not Eof do
begin begin
if Trim(Order_MJ.fieldbyname('MCID').AsString)='' then if Trim(Order_MJ.fieldbyname('MCID').AsString) = '' then
begin begin
if GetLSNo(ADOTmp,maxno,'MC','WFB_MJJY_CD',5,1)=False then if GetLSNo(ADOTmp, maxno, 'MC', 'WFB_MJJY_CD', 5, 1) = False then
begin begin
ADOCmd.Connection.RollbackTrans; ADOCmd.Connection.RollbackTrans;
Application.MessageBox('取子流水号失败！','提示',0); Application.MessageBox('取子流水号失败！', '提示', 0);
Exit; Exit;
end; end;
end else end
else
begin begin
maxno:=Trim(Order_MJ.fieldbyname('MCID').AsString); maxno := Trim(Order_MJ.fieldbyname('MCID').AsString);
end; end;
with ADOCmd do with ADOCmd do
begin begin
Close; Close;
SQL.Clear; SQL.Clear;
sql.Add('select * from WFB_MJJY_CD '); sql.Add('select * from WFB_MJJY_CD ');
sql.Add(' where MCID='''+Trim(maxno)+''''); sql.Add(' where MCID=''' + Trim(maxno) + '''');
Open; Open;
end; end;
with ADOCmd do with ADOCmd do
begin begin
if Trim(Order_MJ.fieldbyname('MCID').AsString)='' then if Trim(Order_MJ.fieldbyname('MCID').AsString) = '' then
Append Append
else else
Edit; Edit;
FieldByName('MJId').Value:=Trim(Label2.Caption); FieldByName('MJId').Value := Trim(Label2.Caption);
FieldByName('MCID').Value:=Trim(maxno); FieldByName('MCID').Value := Trim(maxno);
SSetSaveDataCDSNew(ADOCmd,Tv2,Order_MJ,'WFB_MJJY_CD',0); SSetSaveDataCDSNew(ADOCmd, Tv2, Order_MJ, 'WFB_MJJY_CD', 0);
FieldByName('KouFenQty').Value:=Order_MJ.fieldbyname('KouFenQty').AsInteger; FieldByName('KouFenQty').Value := Order_MJ.fieldbyname('KouFenQty').AsInteger;
FieldByName('JBQty').Value:=Order_MJ.fieldbyname('JBQty').AsFloat; FieldByName('JBQty').Value := Order_MJ.fieldbyname('JBQty').AsFloat;
Post; Post;
end; end;
Order_MJ.Edit; Order_MJ.Edit;
Order_MJ.FieldByName('MCID').Value:=Trim(maxno); Order_MJ.FieldByName('MCID').Value := Trim(maxno);
Order_MJ.FieldByName('MJID').Value:=Trim(Label2.Caption); Order_MJ.FieldByName('MJID').Value := Trim(Label2.Caption);
Next; Next;
end; end;
end; end;
if Trim(MJMaoZ.Text)<>'' then if Trim(MJMaoZ.Text) <> '' then
begin begin
if TryStrToFloat(MJMaoZ.Text,FFreal)=False then if TryStrToFloat(MJMaoZ.Text, FFreal) = False then
begin begin
ADOCmd.Connection.RollbackTrans; ADOCmd.Connection.RollbackTrans;
Application.MessageBox('重量非法数字!','提示',0); Application.MessageBox('重量非法数字!', '提示', 0);
Exit; Exit;
end; end;
end; end;
if Trim(MJLen.Text)<>'' then if Trim(MJLen.Text) <> '' then
begin begin
if TryStrToFloat(MJLen.Text,FFreal)=False then if TryStrToFloat(MJLen.Text, FFreal) = False then
begin begin
ADOCmd.Connection.RollbackTrans; ADOCmd.Connection.RollbackTrans;
Application.MessageBox('长度非法数字!','提示',0); Application.MessageBox('长度非法数字!', '提示', 0);
Exit; Exit;
end; end;
end; end;
if Trim(MJSJKZ.Text)<>'' then if Trim(MJSJKZ.Text) <> '' then
begin begin
if TryStrToFloat(MJSJKZ.Text,FFreal)=False then if TryStrToFloat(MJSJKZ.Text, FFreal) = False then
begin begin
ADOCmd.Connection.RollbackTrans; ADOCmd.Connection.RollbackTrans;
Application.MessageBox('克重非法数字!','提示',0); Application.MessageBox('克重非法数字!', '提示', 0);
Exit; Exit;
end; end;
end; end;
if Trim(MJQty2.Text)<>'' then if Trim(MJQty2.Text) <> '' then
begin begin
if TryStrToFloat(MJQty2.Text,FFreal)=False then if TryStrToFloat(MJQty2.Text, FFreal) = False then
begin begin
ADOCmd.Connection.RollbackTrans; ADOCmd.Connection.RollbackTrans;
Application.MessageBox('赠送数量非法数字!','提示',0); Application.MessageBox('赠送数量非法数字!', '提示', 0);
Exit; Exit;
end; end;
end; end;
if Trim(MJQty4.Text)<>'' then if Trim(MJQty4.Text) <> '' then
begin begin
if TryStrToFloat(MJQty4.Text,FFreal)=False then if TryStrToFloat(MJQty4.Text, FFreal) = False then
begin begin
ADOCmd.Connection.RollbackTrans; ADOCmd.Connection.RollbackTrans;
Application.MessageBox('净重非法数字!','提示',0); Application.MessageBox('净重非法数字!', '提示', 0);
Exit; Exit;
end; end;
end; end;
@ -391,69 +410,122 @@ begin
begin begin
Close; Close;
sql.Clear; sql.Clear;
sql.Add('UPdate WFB_MJJY Set MJTypeOther='''+Trim(M.Caption)+''''); sql.Add('UPdate WFB_MJJY Set MJTypeOther=''' + Trim(M.Caption) + '''');
sql.Add(',MJStr1='''+Trim(Ma.Caption)+''''); sql.Add(',MJStr1=''' + Trim(Ma.Caption) + '''');
sql.Add(',MJStr4='''+Trim(MJStr4.Text)+''''); sql.Add(',MJStr4=''' + Trim(MJStr4.Text) + '''');
sql.Add(',MJXH='''+Trim(MJXH.Text)+''''); sql.Add(',MJXH=''' + Trim(MJXH.Text) + '''');
if Trim(MJLen.Text)<>'' then if Trim(MJLen.Text) <> '' then
begin begin
sql.Add(',MJLen='+Trim(MJLen.Text)); sql.Add(',MJLen=' + Trim(MJLen.Text));
end else end
else
begin begin
sql.Add(',MJLen=0'); sql.Add(',MJLen=0');
end; end;
if Trim(MJQty1.Text)<>'' then if Trim(MJQty1.Text) <> '' then
begin begin
sql.Add(',MJQty1='+Trim(MJQty1.Text)); sql.Add(',MJQty1=' + Trim(MJQty1.Text));
end else end
else
begin begin
sql.Add(',MJQty1=0'); sql.Add(',MJQty1=0');
end; end;
if Trim(MJQty2.Text)<>'' then if Trim(MJQty2.Text) <> '' then
begin begin
sql.Add(',MJQty2='+Trim(MJQty2.Text)); sql.Add(',MJQty2=' + Trim(MJQty2.Text));
end else end
else
begin begin
sql.Add(',MJQty2=0'); sql.Add(',MJQty2=0');
end; end;
if Trim(MJFK.Text)<>'' then if Trim(MJFK.Text) <> '' then
begin begin
sql.Add(',MJFK='''+Trim(MJFK.Text)+''''); sql.Add(',MJFK=''' + Trim(MJFK.Text) + '''');
end else end
else
begin begin
sql.Add(',MJFK=0'); sql.Add(',MJFK=0');
end; end;
if Trim(MJMaoZ.Text)<>'' then if Trim(MJMaoZ.Text) <> '' then
begin begin
sql.Add(',MJMaoZ='+Trim(MJMaoZ.Text)); sql.Add(',MJMaoZ=' + Trim(MJMaoZ.Text));
end else end
else
begin begin
sql.Add(',MJMaoZ=0'); sql.Add(',MJMaoZ=0');
end; end;
if Trim(MJSJKZ.Text)<>'' then if Trim(MJSJKZ.Text) <> '' then
begin begin
sql.Add(',MJSJKZ='+Trim(MJSJKZ.Text)); sql.Add(',MJSJKZ=' + Trim(MJSJKZ.Text));
end else end
else
begin begin
sql.Add(',MJSJKZ=0'); sql.Add(',MJSJKZ=0');
end; end;
if Trim(MJQty4.Text)<>'' then if Trim(MJQty4.Text) <> '' then
begin begin
sql.Add(',MJQty4='+Trim(MJQty4.Text)); sql.Add(',MJQty4=' + Trim(MJQty4.Text));
end else end
else
begin begin
sql.Add(',MJQty4=0'); sql.Add(',MJQty4=0');
end; end;
if RadioGroup1.ItemIndex=0 then if RadioGroup1.ItemIndex = 0 then
begin begin
sql.Add(',MJType=''ÕýÆ·'' '); sql.Add(',MJType=''ÕýÆ·'' ');
end else end
if RadioGroup1.ItemIndex=1 then else if RadioGroup1.ItemIndex = 1 then
begin begin
sql.Add(',MJType=''´ÎÆ·'' '); sql.Add(',MJType=''´ÎÆ·'' ');
end; end;
sql.Add(' where MJID='''+Trim(Label2.Caption)+''''); sql.Add(' where MJID=''' + Trim(Label2.Caption) + '''');
// ShowMessage(SQL.Text);
sql.Add('UPdate CK_BanCP_CR Set QtyUnit=''' + Trim(M.Caption) + '''');
if Trim(MJLen.Text) <> '' then
begin
sql.Add(',Qty=' + Trim(MJLen.Text));
end
else
begin
sql.Add(',Qty=0');
end;
if Trim(MJMaoZ.Text) <> '' then
begin
sql.Add(',KGQty=' + Trim(MJMaoZ.Text));
end
else
begin
sql.Add(',KGQty=0');
end;
if RadioGroup1.ItemIndex = 0 then
begin
sql.Add(',CPType=''正品'' ');
end
else if RadioGroup1.ItemIndex = 1 then
begin
sql.Add(',CPType=''次品'' ');
end;
sql.Add(' where MJID=''' + Trim(Label2.Caption) + '''');
sql.Add('UPdate CK_BanCP_KC Set KCQtyUnit=''' + Trim(M.Caption) + '''');
if Trim(MJLen.Text) <> '' then
begin
sql.Add(',KCQty=' + Trim(MJLen.Text));
end
else
begin
sql.Add(',KCQty=0');
end;
if Trim(MJMaoZ.Text) <> '' then
begin
sql.Add(',KCKGQty=' + Trim(MJMaoZ.Text));
end
else
begin
sql.Add(',KCKGQty=0');
end;
sql.Add(' where MJID=''' + Trim(Label2.Caption) + '''');
// ShowMessage(SQL.Text);
ExecSQL; ExecSQL;
end; end;
with ADOCmd do with ADOCmd do
@ -461,37 +533,38 @@ begin
close; close;
sql.Clear; sql.Clear;
sql.Add('update WFB_MJJY SET CDList= dbo.F_Get_Order_SubStr(MJID,''MJCDHZSL'')'); sql.Add('update WFB_MJJY SET CDList= dbo.F_Get_Order_SubStr(MJID,''MJCDHZSL'')');
sql.Add(' where MJID='''+Trim(Label2.Caption)+''''); sql.Add(' where MJID=''' + Trim(Label2.Caption) + '''');
execsql; execsql;
end; end;
ADOCmd.Connection.CommitTrans; ADOCmd.Connection.CommitTrans;
Result:=True; Result := True;
except except
Result:=False; Result := False;
ADOCmd.Connection.RollbackTrans; ADOCmd.Connection.RollbackTrans;
Application.MessageBox('保存失败！','提示',0); Application.MessageBox('保存失败！', '提示', 0);
end; end;
end; end;
procedure TfrmMJEdit.ToolButton2Click(Sender: TObject); procedure TfrmMJEdit.ToolButton2Click(Sender: TObject);
begin begin
if Trim(Label2.Caption)='' then Exit; if Trim(Label2.Caption) = '' then
Exit;
if SaveData() then if SaveData() then
begin begin
Application.MessageBox('保存成功!','提示',0); Application.MessageBox('保存成功!', '提示', 0);
self.ModalResult:=1; self.ModalResult := 1;
end; end;
end; end;
procedure TfrmMJEdit.TBCloseClick(Sender: TObject); procedure TfrmMJEdit.TBCloseClick(Sender: TObject);
begin begin
Close; Close;
WriteCxGrid('布匹管理',Tv2,'染厂检验管理'); WriteCxGrid('布匹管理', Tv2, '染厂检验管理');
end; end;
procedure TfrmMJEdit.FormShow(Sender: TObject); procedure TfrmMJEdit.FormShow(Sender: TObject);
begin begin
ReadCxGrid('布匹管理',Tv2,'染厂检验管理'); ReadCxGrid('布匹管理', Tv2, '染厂检验管理');
end; end;
procedure TfrmMJEdit.ToolButton4Click(Sender: TObject); procedure TfrmMJEdit.ToolButton4Click(Sender: TObject);
@ -500,28 +573,30 @@ begin
begin begin
Close; Close;
sql.Clear; sql.Clear;
sql.Add('select * from CK_BanCP_CR where MJID='''+Trim(Label2.Caption)+''''); sql.Add('select * from CK_BanCP_CR where MJID=''' + Trim(Label2.Caption) + '''');
Open; Open;
end; end;
if ADOTmp.IsEmpty=False then if ADOTmp.IsEmpty = False then
begin begin
Application.MessageBox('已产生入库数据不能删除!','提示',0); Application.MessageBox('已产生入库数据不能删除!', '提示', 0);
Exit; Exit;
end else end
else
begin begin
if Application.MessageBox('确定要作废数据吗？作废后数据不能恢复。','提示',32+4)=IDYES then if Application.MessageBox('确定要作废数据吗？作废后数据不能恢复。', '提示', 32 + 4) = IDYES then
begin begin
with ADOCmd do with ADOCmd do
begin begin
Close; Close;
sql.Clear; sql.Clear;
sql.Add('delete WFB_MJJY where MJID='''+Trim(Label2.Caption)+''''); sql.Add('delete WFB_MJJY where MJID=''' + Trim(Label2.Caption) + '''');
sql.Add('delete WFB_MJJY_CD where MJID='''+Trim(Label2.Caption)+''''); sql.Add('delete WFB_MJJY_CD where MJID=''' + Trim(Label2.Caption) + '''');
ExecSQL; ExecSQL;
end; end;
Label2.Caption:=''; Label2.Caption := '';
end; end;
end; end;
end; end;
end. end.

39
检验管理/U_MJManageNewFDNew.pas
View File

@ -10,7 +10,21 @@ uses
cxControls, cxGridCustomView, cxGrid, RM_Common, RM_Class, RM_GridReport, cxControls, cxGridCustomView, cxGrid, RM_Common, RM_Class, RM_GridReport,
RM_System, RM_Dataset, ADODB, DBClient, cxGridCustomPopupMenu, cxGridPopupMenu, RM_System, RM_Dataset, ADODB, DBClient, cxGridCustomPopupMenu, cxGridPopupMenu,
ExtCtrls, ComCtrls, ToolWin, cxTextEdit, Buttons, cxSplitter, cxCheckBox, ExtCtrls, ComCtrls, ToolWin, cxTextEdit, Buttons, cxSplitter, cxCheckBox,
MovePanel, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, BtnEdit; MovePanel, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, BtnEdit,
dxSkinsCore, dxSkinBlack, dxSkinBlue, dxSkinBlueprint, dxSkinCaramel,
dxSkinCoffee, dxSkinDarkRoom, dxSkinDarkSide, dxSkinDevExpressDarkStyle,
dxSkinDevExpressStyle, dxSkinFoggy, dxSkinGlassOceans,
dxSkinHighContrast, dxSkiniMaginary, dxSkinLilian, dxSkinLiquidSky,
dxSkinLondonLiquidSky, dxSkinMcSkin, dxSkinMetropolis,
dxSkinMetropolisDark, dxSkinMoneyTwins, dxSkinOffice2007Black,
dxSkinOffice2007Blue, dxSkinOffice2007Green, dxSkinOffice2007Pink,
dxSkinOffice2007Silver, dxSkinOffice2010Black, dxSkinOffice2010Blue,
dxSkinOffice2010Silver, dxSkinOffice2013DarkGray,
dxSkinOffice2013LightGray, dxSkinOffice2013White, dxSkinPumpkin,
dxSkinSeven, dxSkinSevenClassic, dxSkinSharp, dxSkinSharpPlus,
dxSkinSilver, dxSkinSpringTime, dxSkinStardust, dxSkinSummer2008,
dxSkinTheAsphaltWorld, dxSkinsDefaultPainters, dxSkinValentine,
dxSkinVS2010, dxSkinWhiteprint, dxSkinXmas2008Blue, dxSkinscxPCPainter;
type type
TfrmMJManageNewFDNewSF = class(TForm) TfrmMJManageNewFDNewSF = class(TForm)
@ -1156,7 +1170,6 @@ begin
end; end;
end end
else else
begin begin
with ADOCmd do with ADOCmd do
@ -2213,8 +2226,7 @@ begin
FSubId := Trim(ADOTmp.fieldbyname('SubId').AsString); FSubId := Trim(ADOTmp.fieldbyname('SubId').AsString);
FKJ := ADOTmp.fieldbyname('PRTKJ').AsFloat; FKJ := ADOTmp.fieldbyname('PRTKJ').AsFloat;
FKJZ := ADOTmp.fieldbyname('PRTKJZ').AsFloat; FKJZ := ADOTmp.fieldbyname('PRTKJZ').AsFloat;
AOrdDefNote1.Text := '包装要求:' + #13 + Trim(ADOTmp.fieldbyname('MPRTBZNote').AsString) + #13 AOrdDefNote1.Text := '包装要求:' + #13 + Trim(ADOTmp.fieldbyname('MPRTBZNote').AsString) + #13 //+'封条:'+Trim(ADOTmp.fieldbyname('MPRTYaoFeng').AsString)+#13
//+'封条:'+Trim(ADOTmp.fieldbyname('MPRTYaoFeng').AsString)+#13
//+'烫金:'+Trim(ADOTmp.fieldbyname('MPRTTangJin').AsString)+#13 //+'烫金:'+Trim(ADOTmp.fieldbyname('MPRTTangJin').AsString)+#13
//+'开剪:'+Trim(ADOTmp.fieldbyname('MPRTKaiJian').AsString)+#13 //+'开剪:'+Trim(ADOTmp.fieldbyname('MPRTKaiJian').AsString)+#13
// +'门幅:'+Trim(ADOTmp.fieldbyname('PRTMF').AsString)+#13 // +'门幅:'+Trim(ADOTmp.fieldbyname('PRTMF').AsString)+#13
@ -2380,12 +2392,10 @@ begin
MJXH.Text := Trim(fieldbyname('maxRoll').AsString); MJXH.Text := Trim(fieldbyname('maxRoll').AsString);
end; end;
end end
else if fRollType = '无规则生成' then else if fRollType = '无规则生成' then
begin begin
end end
else else
begin begin
with ADOCmd do with ADOCmd do
@ -2498,7 +2508,19 @@ begin
Application.MessageBox('只能删除最新的检验数据!', '提示', 0); Application.MessageBox('只能删除最新的检验数据!', '提示', 0);
Exit; Exit;
end; end;
with ADOTmp do
begin
Close;
sql.Clear;
sql.Add('select * from CK_BanCP_CR where MJID=''' + Trim(CDS_MJID.fieldbyname('MJID').AsString) + ''' and CRFlag=''出库'' ');
Open;
end;
if ADOTmp.IsEmpty = False then
begin
CDS_MJID.EnableControls;
Application.MessageBox('出库数据不能删除!', '提示', 0);
Exit;
end;
if Application.MessageBox('确定要删除数据吗？', '提示', 32 + 4) <> IDYES then if Application.MessageBox('确定要删除数据吗？', '提示', 32 + 4) <> IDYES then
Exit; Exit;
@ -2509,6 +2531,7 @@ begin
sql.Add('delete WFB_MJJY where MJID=''' + trim(CDS_MJID.fieldbyName('MJID').AsString) + ''' '); sql.Add('delete WFB_MJJY where MJID=''' + trim(CDS_MJID.fieldbyName('MJID').AsString) + ''' ');
sql.Add('delete WFB_MJJY_CD where MJID=''' + trim(CDS_MJID.fieldbyName('MJID').AsString) + ''' '); sql.Add('delete WFB_MJJY_CD where MJID=''' + trim(CDS_MJID.fieldbyName('MJID').AsString) + ''' ');
sql.Add('delete CK_BanCP_CR where MJID=''' + trim(CDS_MJID.fieldbyName('MJID').AsString) + ''' '); sql.Add('delete CK_BanCP_CR where MJID=''' + trim(CDS_MJID.fieldbyName('MJID').AsString) + ''' ');
sql.Add('delete CK_BanCP_KC where MJID=''' + trim(CDS_MJID.fieldbyName('MJID').AsString) + ''' ');
sql.Add('insert into SY_SysLog(operor,opertime,Model,acction,opevent,result) values( '); sql.Add('insert into SY_SysLog(operor,opertime,Model,acction,opevent,result) values( ');
sql.Add(' ' + quotedstr(trim(DName))); sql.Add(' ' + quotedstr(trim(DName)));
sql.Add(',getdate() '); sql.Add(',getdate() ');
@ -2601,7 +2624,7 @@ begin
RM2.LoadFromFile(fPrintFile); RM2.LoadFromFile(fPrintFile);
RM2.DefaultCopies := 1; RM2.DefaultCopies := 1;
//RM2.ShowReport; //RM2.ShowReport;
RM2.printReport; RM2.printReport;
end; end;
end; end;