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

二次加工品名规则更新

Browse Source
This commit is contained in:
DESKTOP-E401PHE\Administrator 2025-06-02 09:59:49 +08:00
parent 19acdae3f5
commit 35d1562b43
2 changed files with 240 additions and 34 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

32
A02基础产品管理/U_ClothInfoInput.dfm
View File

@ -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

242
A02基础产品管理/U_ClothInfoInput.pas
View File

@ -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;