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 Height = 529
Align = alTop Align = alTop
TabOrder = 1 TabOrder = 1
ExplicitLeft = -4
ExplicitTop = -4
object Label1: TLabel object Label1: TLabel
Left = 37 Left = 37
Top = 18 Top = 18
@ -555,7 +553,7 @@ object frmClothInfoInput: TfrmClothInfoInput
object C_FromName2: TcxButtonEdit object C_FromName2: TcxButtonEdit
Tag = 7 Tag = 7
Left = 119 Left = 119
Top = 381 Top = 382
Properties.Buttons = < Properties.Buttons = <
item item
Default = True Default = True
@ -616,14 +614,14 @@ object frmClothInfoInput: TfrmClothInfoInput
object C_FromName4: TcxButtonEdit object C_FromName4: TcxButtonEdit
Tag = 7 Tag = 7
Left = 119 Left = 119
Top = 453 Top = 452
Properties.Buttons = < Properties.Buttons = <
item item
Default = True Default = True
Kind = bkEllipsis Kind = bkEllipsis
end> end>
Properties.ReadOnly = False Properties.ReadOnly = False
Properties.OnButtonClick = C_FromName2PropertiesButtonClick Properties.OnButtonClick = C_FromName4PropertiesButtonClick
Style.ButtonStyle = btsDefault Style.ButtonStyle = btsDefault
TabOrder = 24 TabOrder = 24
OnDblClick = C_GramWeightDblClick OnDblClick = C_GramWeightDblClick
@ -639,7 +637,7 @@ object frmClothInfoInput: TfrmClothInfoInput
Kind = bkEllipsis Kind = bkEllipsis
end> end>
Properties.ReadOnly = False Properties.ReadOnly = False
Properties.OnButtonClick = C_FromName2PropertiesButtonClick Properties.OnButtonClick = C_FromName5PropertiesButtonClick
Style.ButtonStyle = btsDefault Style.ButtonStyle = btsDefault
TabOrder = 25 TabOrder = 25
OnDblClick = C_GramWeightDblClick OnDblClick = C_GramWeightDblClick
@ -647,8 +645,8 @@ object frmClothInfoInput: TfrmClothInfoInput
end end
object Process2: TcxButtonEdit object Process2: TcxButtonEdit
Tag = 7 Tag = 7
Left = 504 Left = 498
Top = 381 Top = 383
Hint = 'Process2/'#21152#24037#26041#24335'1' Hint = 'Process2/'#21152#24037#26041#24335'1'
Properties.Buttons = < Properties.Buttons = <
item item
@ -656,7 +654,7 @@ object frmClothInfoInput: TfrmClothInfoInput
Kind = bkEllipsis Kind = bkEllipsis
end> end>
Properties.ReadOnly = False Properties.ReadOnly = False
Properties.OnButtonClick = C_WidthPropertiesButtonClick Properties.OnButtonClick = Process2PropertiesButtonClick
Style.ButtonStyle = btsDefault Style.ButtonStyle = btsDefault
TabOrder = 26 TabOrder = 26
OnDblClick = C_GramWeightDblClick OnDblClick = C_GramWeightDblClick
@ -664,7 +662,7 @@ object frmClothInfoInput: TfrmClothInfoInput
end end
object Process3: TcxButtonEdit object Process3: TcxButtonEdit
Tag = 7 Tag = 7
Left = 504 Left = 498
Top = 418 Top = 418
Hint = 'Process3/'#21152#24037#26041#24335'2' Hint = 'Process3/'#21152#24037#26041#24335'2'
Properties.Buttons = < Properties.Buttons = <
@ -673,7 +671,7 @@ object frmClothInfoInput: TfrmClothInfoInput
Kind = bkEllipsis Kind = bkEllipsis
end> end>
Properties.ReadOnly = False Properties.ReadOnly = False
Properties.OnButtonClick = C_WidthPropertiesButtonClick Properties.OnButtonClick = Process3PropertiesButtonClick
Style.ButtonStyle = btsDefault Style.ButtonStyle = btsDefault
TabOrder = 27 TabOrder = 27
OnDblClick = C_GramWeightDblClick OnDblClick = C_GramWeightDblClick
@ -681,7 +679,7 @@ object frmClothInfoInput: TfrmClothInfoInput
end end
object Process4: TcxButtonEdit object Process4: TcxButtonEdit
Tag = 7 Tag = 7
Left = 504 Left = 498
Top = 453 Top = 453
Hint = 'Process4/'#21152#24037#26041#24335'3' Hint = 'Process4/'#21152#24037#26041#24335'3'
Properties.Buttons = < Properties.Buttons = <
@ -690,7 +688,7 @@ object frmClothInfoInput: TfrmClothInfoInput
Kind = bkEllipsis Kind = bkEllipsis
end> end>
Properties.ReadOnly = False Properties.ReadOnly = False
Properties.OnButtonClick = C_WidthPropertiesButtonClick Properties.OnButtonClick = Process4PropertiesButtonClick
Style.ButtonStyle = btsDefault Style.ButtonStyle = btsDefault
TabOrder = 28 TabOrder = 28
OnDblClick = C_GramWeightDblClick OnDblClick = C_GramWeightDblClick
@ -698,7 +696,7 @@ object frmClothInfoInput: TfrmClothInfoInput
end end
object Process5: TcxButtonEdit object Process5: TcxButtonEdit
Tag = 7 Tag = 7
Left = 504 Left = 498
Top = 488 Top = 488
Hint = 'Process5/'#21152#24037#26041#24335'4' Hint = 'Process5/'#21152#24037#26041#24335'4'
Properties.Buttons = < Properties.Buttons = <
@ -707,7 +705,7 @@ object frmClothInfoInput: TfrmClothInfoInput
Kind = bkEllipsis Kind = bkEllipsis
end> end>
Properties.ReadOnly = False Properties.ReadOnly = False
Properties.OnButtonClick = C_WidthPropertiesButtonClick Properties.OnButtonClick = Process5PropertiesButtonClick
Style.ButtonStyle = btsDefault Style.ButtonStyle = btsDefault
TabOrder = 29 TabOrder = 29
OnDblClick = C_GramWeightDblClick OnDblClick = C_GramWeightDblClick
@ -715,7 +713,7 @@ object frmClothInfoInput: TfrmClothInfoInput
end end
object Process: TcxButtonEdit object Process: TcxButtonEdit
Tag = 7 Tag = 7
Left = 504 Left = 498
Top = 344 Top = 344
Hint = 'Process/'#21152#24037#26041#24335 Hint = 'Process/'#21152#24037#26041#24335
Properties.Buttons = < Properties.Buttons = <
@ -724,7 +722,7 @@ object frmClothInfoInput: TfrmClothInfoInput
Kind = bkEllipsis Kind = bkEllipsis
end> end>
Properties.ReadOnly = False Properties.ReadOnly = False
Properties.OnButtonClick = C_WidthPropertiesButtonClick Properties.OnButtonClick = ProcessPropertiesButtonClick
Style.ButtonStyle = btsDefault Style.ButtonStyle = btsDefault
TabOrder = 30 TabOrder = 30
OnDblClick = C_GramWeightDblClick OnDblClick = C_GramWeightDblClick

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

@ -165,10 +165,16 @@ type
procedure cxGridDBColumn3PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); procedure cxGridDBColumn3PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
procedure Button1Click(Sender: TObject); procedure Button1Click(Sender: TObject);
procedure ToolButton10Click(Sender: TObject); procedure ToolButton10Click(Sender: TObject);
procedure ToolButton11Click(Sender: TObject); procedure ToolButton11Click(Sender: TObject);
procedure ToolButton12Click(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); AButtonIndex: Integer);
private private
canshu1: string; canshu1: string;
@ -279,6 +285,141 @@ begin
InitCDSData(ADO_3, CDS_3, Tv3, SqlStr, '', ''); InitCDSData(ADO_3, CDS_3, Tv3, SqlStr, '', '');
end; 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(); procedure TfrmClothInfoInput.InitGrid();
begin begin
@ -339,6 +480,12 @@ end;
procedure TfrmClothInfoInput.C_FromName2PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); procedure TfrmClothInfoInput.C_FromName2PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
begin begin
if C_fromName.text = '' then
begin
Application.MessageBox('请先选择主布及其加工方式！', '提示', 0);
Exit;
end;
try try
frmClothInfoSel := TfrmClothInfoSel.Create(Application); frmClothInfoSel := TfrmClothInfoSel.Create(Application);
with frmClothInfoSel do with frmClothInfoSel do
@ -348,7 +495,9 @@ begin
begin begin
C_FromName2.Properties.LookupItems.Text := Trim(CDS_1.fieldbyname('BCIID').AsString); C_FromName2.Properties.LookupItems.Text := Trim(CDS_1.fieldbyname('BCIID').AsString);
C_FromName2.Text := Trim(CDS_1.fieldbyname('C_Name').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;
end; end;
finally finally
@ -356,9 +505,13 @@ begin
end; end;
end; end;
procedure TfrmClothInfoInput.C_FromName3PropertiesButtonClick(Sender: TObject; procedure TfrmClothInfoInput.C_FromName3PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
AButtonIndex: Integer);
begin begin
if C_fromName2.text = '' then
begin
Application.MessageBox('请先选择次布1及其加工方式！', '提示', 0);
Exit;
end;
try try
frmClothInfoSel := TfrmClothInfoSel.Create(Application); frmClothInfoSel := TfrmClothInfoSel.Create(Application);
with frmClothInfoSel do with frmClothInfoSel do
@ -368,7 +521,62 @@ begin
begin begin
C_FromName3.Properties.LookupItems.Text := Trim(CDS_1.fieldbyname('BCIID').AsString); C_FromName3.Properties.LookupItems.Text := Trim(CDS_1.fieldbyname('BCIID').AsString);
C_FromName3.Text := Trim(CDS_1.fieldbyname('C_Name').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;
end; end;
finally finally
@ -387,7 +595,9 @@ begin
begin begin
C_FromName.Properties.LookupItems.Text := Trim(CDS_1.fieldbyname('BCIID').AsString); C_FromName.Properties.LookupItems.Text := Trim(CDS_1.fieldbyname('BCIID').AsString);
C_FromName.Text := Trim(CDS_1.fieldbyname('C_Name').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(); addColor();
end; end;
@ -419,6 +629,7 @@ begin
if ShowModal = 1 then if ShowModal = 1 then
begin begin
TcxButtonEdit(Sender).Text := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); TcxButtonEdit(Sender).Text := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
end; end;
end; end;
finally finally
@ -689,7 +900,6 @@ begin
end; end;
end; end;
with ADOQueryTemp do with ADOQueryTemp do
begin begin
Close; Close;
@ -1232,8 +1442,6 @@ begin
// Panel6.Visible := False; // Panel6.Visible := False;
end; end;
procedure TfrmClothInfoInput.CostPricePropertiesEditValueChanged(Sender: TObject); procedure TfrmClothInfoInput.CostPricePropertiesEditValueChanged(Sender: TObject);
var var
mvalue, FFieldName: string; mvalue, FFieldName: string;