From 35d1562b4329406a80a93cd7d451c7d65a8092ef Mon Sep 17 00:00:00 2001 From: "DESKTOP-E401PHE\\Administrator" Date: Mon, 2 Jun 2025 09:59:49 +0800 Subject: [PATCH] =?UTF-8?q?=E4=BA=8C=E6=AC=A1=E5=8A=A0=E5=B7=A5=E5=93=81?= =?UTF-8?q?=E5=90=8D=E8=A7=84=E5=88=99=E6=9B=B4=E6=96=B0?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- A02基础产品管理/U_ClothInfoInput.dfm | 32 ++-- A02基础产品管理/U_ClothInfoInput.pas | 242 +++++++++++++++++++++++++-- 2 files changed, 240 insertions(+), 34 deletions(-) diff --git a/A02基础产品管理/U_ClothInfoInput.dfm b/A02基础产品管理/U_ClothInfoInput.dfm index a83fa56..7d03d61 100644 --- a/A02基础产品管理/U_ClothInfoInput.dfm +++ b/A02基础产品管理/U_ClothInfoInput.dfm @@ -98,8 +98,6 @@ object frmClothInfoInput: TfrmClothInfoInput Height = 529 Align = alTop TabOrder = 1 - ExplicitLeft = -4 - ExplicitTop = -4 object Label1: TLabel Left = 37 Top = 18 @@ -555,7 +553,7 @@ object frmClothInfoInput: TfrmClothInfoInput object C_FromName2: TcxButtonEdit Tag = 7 Left = 119 - Top = 381 + Top = 382 Properties.Buttons = < item Default = True @@ -616,14 +614,14 @@ object frmClothInfoInput: TfrmClothInfoInput object C_FromName4: TcxButtonEdit Tag = 7 Left = 119 - Top = 453 + Top = 452 Properties.Buttons = < item Default = True Kind = bkEllipsis end> Properties.ReadOnly = False - Properties.OnButtonClick = C_FromName2PropertiesButtonClick + Properties.OnButtonClick = C_FromName4PropertiesButtonClick Style.ButtonStyle = btsDefault TabOrder = 24 OnDblClick = C_GramWeightDblClick @@ -639,7 +637,7 @@ object frmClothInfoInput: TfrmClothInfoInput Kind = bkEllipsis end> Properties.ReadOnly = False - Properties.OnButtonClick = C_FromName2PropertiesButtonClick + Properties.OnButtonClick = C_FromName5PropertiesButtonClick Style.ButtonStyle = btsDefault TabOrder = 25 OnDblClick = C_GramWeightDblClick @@ -647,8 +645,8 @@ object frmClothInfoInput: TfrmClothInfoInput end object Process2: TcxButtonEdit Tag = 7 - Left = 504 - Top = 381 + Left = 498 + Top = 383 Hint = 'Process2/'#21152#24037#26041#24335'1' Properties.Buttons = < item @@ -656,7 +654,7 @@ object frmClothInfoInput: TfrmClothInfoInput Kind = bkEllipsis end> Properties.ReadOnly = False - Properties.OnButtonClick = C_WidthPropertiesButtonClick + Properties.OnButtonClick = Process2PropertiesButtonClick Style.ButtonStyle = btsDefault TabOrder = 26 OnDblClick = C_GramWeightDblClick @@ -664,7 +662,7 @@ object frmClothInfoInput: TfrmClothInfoInput end object Process3: TcxButtonEdit Tag = 7 - Left = 504 + Left = 498 Top = 418 Hint = 'Process3/'#21152#24037#26041#24335'2' Properties.Buttons = < @@ -673,7 +671,7 @@ object frmClothInfoInput: TfrmClothInfoInput Kind = bkEllipsis end> Properties.ReadOnly = False - Properties.OnButtonClick = C_WidthPropertiesButtonClick + Properties.OnButtonClick = Process3PropertiesButtonClick Style.ButtonStyle = btsDefault TabOrder = 27 OnDblClick = C_GramWeightDblClick @@ -681,7 +679,7 @@ object frmClothInfoInput: TfrmClothInfoInput end object Process4: TcxButtonEdit Tag = 7 - Left = 504 + Left = 498 Top = 453 Hint = 'Process4/'#21152#24037#26041#24335'3' Properties.Buttons = < @@ -690,7 +688,7 @@ object frmClothInfoInput: TfrmClothInfoInput Kind = bkEllipsis end> Properties.ReadOnly = False - Properties.OnButtonClick = C_WidthPropertiesButtonClick + Properties.OnButtonClick = Process4PropertiesButtonClick Style.ButtonStyle = btsDefault TabOrder = 28 OnDblClick = C_GramWeightDblClick @@ -698,7 +696,7 @@ object frmClothInfoInput: TfrmClothInfoInput end object Process5: TcxButtonEdit Tag = 7 - Left = 504 + Left = 498 Top = 488 Hint = 'Process5/'#21152#24037#26041#24335'4' Properties.Buttons = < @@ -707,7 +705,7 @@ object frmClothInfoInput: TfrmClothInfoInput Kind = bkEllipsis end> Properties.ReadOnly = False - Properties.OnButtonClick = C_WidthPropertiesButtonClick + Properties.OnButtonClick = Process5PropertiesButtonClick Style.ButtonStyle = btsDefault TabOrder = 29 OnDblClick = C_GramWeightDblClick @@ -715,7 +713,7 @@ object frmClothInfoInput: TfrmClothInfoInput end object Process: TcxButtonEdit Tag = 7 - Left = 504 + Left = 498 Top = 344 Hint = 'Process/'#21152#24037#26041#24335 Properties.Buttons = < @@ -724,7 +722,7 @@ object frmClothInfoInput: TfrmClothInfoInput Kind = bkEllipsis end> Properties.ReadOnly = False - Properties.OnButtonClick = C_WidthPropertiesButtonClick + Properties.OnButtonClick = ProcessPropertiesButtonClick Style.ButtonStyle = btsDefault TabOrder = 30 OnDblClick = C_GramWeightDblClick diff --git a/A02基础产品管理/U_ClothInfoInput.pas b/A02基础产品管理/U_ClothInfoInput.pas index cbf2938..1351103 100644 --- a/A02基础产品管理/U_ClothInfoInput.pas +++ b/A02基础产品管理/U_ClothInfoInput.pas @@ -165,10 +165,16 @@ type procedure cxGridDBColumn3PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); procedure Button1Click(Sender: TObject); procedure ToolButton10Click(Sender: TObject); - procedure ToolButton11Click(Sender: TObject); procedure ToolButton12Click(Sender: TObject); - procedure C_FromName3PropertiesButtonClick(Sender: TObject; + procedure C_FromName3PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); + procedure ProcessPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); + procedure Process2PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); + procedure Process3PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); + procedure Process4PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); + procedure Process5PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); + procedure C_FromName4PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); + procedure C_FromName5PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); private canshu1: string; @@ -279,6 +285,141 @@ begin InitCDSData(ADO_3, CDS_3, Tv3, SqlStr, '', ''); end; +procedure TfrmClothInfoInput.Process2PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); +var + fsj: string; + FWZ: Integer; +begin + fsj := Trim(TcxButtonEdit(Sender).Hint); + FWZ := Pos('/', fsj); + try + frmZDYHelp := TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag := Copy(fsj, 1, FWZ - 1); + flagname := Copy(fsj, FWZ + 1, Length(fsj) - FWZ); + if ShowModal = 1 then + begin + TcxButtonEdit(Sender).Text := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + + if (Trim(C_FromName2.Text) <> '') and (Trim(Process2.Text) <> '') then + C_Name.Text := Trim(C_Name.Text) + Trim(C_FromName2.Text) + Trim(Process2.Text); + end; + + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmClothInfoInput.Process3PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); +var + fsj: string; + FWZ: Integer; +begin + fsj := Trim(TcxButtonEdit(Sender).Hint); + FWZ := Pos('/', fsj); + try + frmZDYHelp := TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag := Copy(fsj, 1, FWZ - 1); + flagname := Copy(fsj, FWZ + 1, Length(fsj) - FWZ); + if ShowModal = 1 then + begin + TcxButtonEdit(Sender).Text := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + + if (Trim(C_FromName3.Text) <> '') and (Trim(Process3.Text) <> '') then + C_Name.Text := Trim(C_Name.Text) + Trim(C_FromName3.Text) + Trim(Process3.Text); + end; + + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmClothInfoInput.Process4PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); +var + fsj: string; + FWZ: Integer; +begin + fsj := Trim(TcxButtonEdit(Sender).Hint); + FWZ := Pos('/', fsj); + try + frmZDYHelp := TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag := Copy(fsj, 1, FWZ - 1); + flagname := Copy(fsj, FWZ + 1, Length(fsj) - FWZ); + if ShowModal = 1 then + begin + TcxButtonEdit(Sender).Text := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + + if (Trim(C_FromName4.Text) <> '') and (Trim(Process4.Text) <> '') then + C_Name.Text := Trim(C_Name.Text) + Trim(C_FromName4.Text) + Trim(Process4.Text); + end; + + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmClothInfoInput.Process5PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); +var + fsj: string; + FWZ: Integer; +begin + fsj := Trim(TcxButtonEdit(Sender).Hint); + FWZ := Pos('/', fsj); + try + frmZDYHelp := TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag := Copy(fsj, 1, FWZ - 1); + flagname := Copy(fsj, FWZ + 1, Length(fsj) - FWZ); + if ShowModal = 1 then + begin + TcxButtonEdit(Sender).Text := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + + if (Trim(C_FromName5.Text) <> '') and (Trim(Process5.Text) <> '') then + C_Name.Text := Trim(C_Name.Text) + Trim(C_FromName5.Text) + Trim(Process5.Text); + end; + + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmClothInfoInput.ProcessPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); +var + fsj: string; + FWZ: Integer; +begin + fsj := Trim(TcxButtonEdit(Sender).Hint); + FWZ := Pos('/', fsj); + try + frmZDYHelp := TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag := Copy(fsj, 1, FWZ - 1); + flagname := Copy(fsj, FWZ + 1, Length(fsj) - FWZ); + if ShowModal = 1 then + begin + TcxButtonEdit(Sender).Text := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + + if (Trim(C_FromName.Text) <> '') and (Trim(Process.Text) <> '') then + C_Name.Text := Trim(C_FromName.Text) + Trim(Process.Text); + end; + + end; + finally + frmZDYHelp.Free; + end; +end; + procedure TfrmClothInfoInput.InitGrid(); begin @@ -299,19 +440,19 @@ begin C_FromName2.Properties.LookupItems.Text := Trim(ADOQueryTemp.fieldbyname('C_FromName2').AsString); // C_FromName2.Text := Trim(ADOQueryTemp.fieldbyname('C_FromName2').AsString); // - Process2.Text :=Trim(ADOQueryTemp.fieldbyname('Process2').AsString); //ӹʽ + Process2.Text := Trim(ADOQueryTemp.fieldbyname('Process2').AsString); //ӹʽ C_FromName3.Properties.LookupItems.Text := Trim(ADOQueryTemp.fieldbyname('C_FromName3').AsString); // C_FromName3.Text := Trim(ADOQueryTemp.fieldbyname('C_FromName3').AsString); // - Process3.Text :=Trim(ADOQueryTemp.fieldbyname('Process3').AsString); //ӹʽ + Process3.Text := Trim(ADOQueryTemp.fieldbyname('Process3').AsString); //ӹʽ C_FromName4.Properties.LookupItems.Text := Trim(ADOQueryTemp.fieldbyname('C_FromName4').AsString); // C_FromName4.Text := Trim(ADOQueryTemp.fieldbyname('C_FromName4').AsString); // - Process4.Text :=Trim(ADOQueryTemp.fieldbyname('Process4').AsString); //ӹʽ + Process4.Text := Trim(ADOQueryTemp.fieldbyname('Process4').AsString); //ӹʽ C_FromName5.Properties.LookupItems.Text := Trim(ADOQueryTemp.fieldbyname('C_FromName5').AsString); // C_FromName5.Text := Trim(ADOQueryTemp.fieldbyname('C_FromName5').AsString); // - Process5.Text :=Trim(ADOQueryTemp.fieldbyname('Process5').AsString); //ӹʽ + Process5.Text := Trim(ADOQueryTemp.fieldbyname('Process5').AsString); //ӹʽ if ADOQueryTemp.fieldbyname('CJDATE').AsInteger <= 7 then begin @@ -339,6 +480,12 @@ end; procedure TfrmClothInfoInput.C_FromName2PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); begin + if C_fromName.text = '' then + begin + Application.MessageBox('ѡӹʽ', 'ʾ', 0); + Exit; + end; + try frmClothInfoSel := TfrmClothInfoSel.Create(Application); with frmClothInfoSel do @@ -348,7 +495,9 @@ begin begin C_FromName2.Properties.LookupItems.Text := Trim(CDS_1.fieldbyname('BCIID').AsString); C_FromName2.Text := Trim(CDS_1.fieldbyname('C_Name').AsString); - setName(); + if (Trim(C_FromName2.Text) <> '') and (Trim(Process2.Text) <> '') then + C_Name.Text := Trim(C_Name.Text) + Trim(C_FromName2.Text) + '' + Trim(Process2.Text); +// setName(); end; end; finally @@ -356,10 +505,14 @@ begin end; end; -procedure TfrmClothInfoInput.C_FromName3PropertiesButtonClick(Sender: TObject; - AButtonIndex: Integer); +procedure TfrmClothInfoInput.C_FromName3PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); begin - try + if C_fromName2.text = '' then + begin + Application.MessageBox('ѡβ1ӹʽ', 'ʾ', 0); + Exit; + end; + try frmClothInfoSel := TfrmClothInfoSel.Create(Application); with frmClothInfoSel do begin @@ -368,7 +521,62 @@ begin begin C_FromName3.Properties.LookupItems.Text := Trim(CDS_1.fieldbyname('BCIID').AsString); C_FromName3.Text := Trim(CDS_1.fieldbyname('C_Name').AsString); - setName(); + if (Trim(C_FromName3.Text) <> '') and (Trim(Process3.Text) <> '') then + C_Name.Text := Trim(C_Name.Text) + Trim(C_FromName3.Text) + Trim(Process3.Text); +// setName(); + end; + end; + finally + frmClothInfoSel.Free; + end; +end; + +procedure TfrmClothInfoInput.C_FromName4PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); +begin + if C_fromName3.text = '' then + begin + Application.MessageBox('ѡβ2ӹʽ', 'ʾ', 0); + Exit; + end; + try + frmClothInfoSel := TfrmClothInfoSel.Create(Application); + with frmClothInfoSel do + begin +// FCTType := ''; + if ShowModal = 1 then + begin + C_FromName4.Properties.LookupItems.Text := Trim(CDS_1.fieldbyname('BCIID').AsString); + C_FromName4.Text := Trim(CDS_1.fieldbyname('C_Name').AsString); + if (Trim(C_FromName4.Text) <> '') and (Trim(Process4.Text) <> '') then + C_Name.Text := Trim(C_Name.Text) + Trim(C_FromName4.Text) + Trim(Process4.Text); +// setName(); + end; + end; + finally + frmClothInfoSel.Free; + end; +end; + +procedure TfrmClothInfoInput.C_FromName5PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + if C_fromName4.text = '' then + begin + Application.MessageBox('ѡβ3ӹʽ', 'ʾ', 0); + Exit; + end; + try + frmClothInfoSel := TfrmClothInfoSel.Create(Application); + with frmClothInfoSel do + begin +// FCTType := ''; + if ShowModal = 1 then + begin + C_FromName5.Properties.LookupItems.Text := Trim(CDS_1.fieldbyname('BCIID').AsString); + C_FromName5.Text := Trim(CDS_1.fieldbyname('C_Name').AsString); + if (Trim(C_FromName5.Text) <> '') and (Trim(Process5.Text) <> '') then + C_Name.Text := Trim(C_Name.Text) + Trim(C_FromName5.Text) + Trim(Process5.Text); +// setName(); end; end; finally @@ -387,7 +595,9 @@ begin begin C_FromName.Properties.LookupItems.Text := Trim(CDS_1.fieldbyname('BCIID').AsString); C_FromName.Text := Trim(CDS_1.fieldbyname('C_Name').AsString); - setName(); +// setName(); + if (Trim(C_FromName.Text) <> '') and (Trim(Process.Text) <> '') then + C_Name.Text := Trim(C_FromName.Text) + Trim(Process.Text); addColor(); end; @@ -419,6 +629,7 @@ begin if ShowModal = 1 then begin TcxButtonEdit(Sender).Text := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + end; end; finally @@ -689,7 +900,6 @@ begin end; end; - with ADOQueryTemp do begin Close; @@ -926,7 +1136,7 @@ begin begin FBCIID := Self.FBCIID; FBCISID := CDS_1.FieldByName('BCISID').Value; - FPrice :=StrToFloatDef(CostPrice.Text, 0); + FPrice := StrToFloatDef(CostPrice.Text, 0); if ShowModal = 1 then begin InitGrid1(); @@ -1154,7 +1364,7 @@ begin begin FBCIID := Self.FBCIID; FBCISID := ''; - FPrice :=StrToFloatDef(CostPrice.Text, 0); + FPrice := StrToFloatDef(CostPrice.Text, 0); if ShowModal = 1 then begin InitGrid1(); @@ -1232,8 +1442,6 @@ begin // Panel6.Visible := False; end; - - procedure TfrmClothInfoInput.CostPricePropertiesEditValueChanged(Sender: TObject); var mvalue, FFieldName: string;