Group_99/D7myYunxiang
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-09-09 17:29:24 +08:00
parent f6009f5cde
commit 204eed7743
3 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
生产计划单(DyeingFinishingPlan.dll)/DyeingFinishingPlan.dof
View File

@ -101,7 +101,7 @@ DebugSourceDirs=
UsePackages=0
[Parameters]
RunParams=
HostApplication=E:\项目资料\00_重点客户\云翔\D7myYunxiang\生产计划单(DyeingFinishingPlan.dll)\testDll.exe
HostApplication=D:\Project\D7myYunxiang\生产计划单(DyeingFinishingPlan.dll)\testDll.exe
Launcher=
UseLauncher=0
DebugCWD=

4
生产计划单(DyeingFinishingPlan.dll)/U_OrderInPut_New.dfm
View File

@ -768,9 +768,9 @@ object frmOrderInPut_New: TfrmOrderInPut_New
HeaderAlignmentHorz = taCenter
Width = 135
end
object Tv1Column7: TcxGridDBColumn
object Tv1PatternDescription: TcxGridDBColumn
Caption = #33457#22411#25551#36848
DataBinding.FieldName = 'defNote1'
DataBinding.FieldName = 'PatternDescription'
HeaderAlignmentHorz = taCenter
Width = 120
end

3
生产计划单(DyeingFinishingPlan.dll)/U_OrderInPut_New.pas
View File

@ -222,7 +222,7 @@ type
ADOQuery5: TADOQuery;
Label35: TLabel;
YIDZ: TEdit;
Tv1Column7: TcxGridDBColumn;
Tv1PatternDescription: TcxGridDBColumn;
procedure TBCloseClick(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure TBSaveClick(Sender: TObject);
@ -1215,6 +1215,7 @@ begin
begin
Edit;
FieldByName('MLHX').Value := Trim(frmZdyAttachCP_HX_Sel.CDS_HZ.fieldbyname('zdyName').AsString);
FieldByName('PatternDescription').Value := Trim(frmZdyAttachCP_HX_Sel.CDS_HZ.fieldbyname('defNote1').AsString);
end;
end;
end;