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 UsePackages=0
[Parameters] [Parameters]
RunParams= RunParams=
HostApplication=E:\项目资料\00_重点客户\云翔\D7myYunxiang\生产计划单(DyeingFinishingPlan.dll)\testDll.exe HostApplication=D:\Project\D7myYunxiang\生产计划单(DyeingFinishingPlan.dll)\testDll.exe
Launcher= Launcher=
UseLauncher=0 UseLauncher=0
DebugCWD= DebugCWD=

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

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

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

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