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

1

Browse Source
This commit is contained in:
DESKTOP-E401PHE\Administrator 2025-04-23 16:39:29 +08:00
parent 26b695f66f
commit 299b4dcf4b
6 changed files with 33 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
云翔生产管理(MYSC.dll)/U_ZHCPDJList.dfm
View File

@ -1,6 +1,6 @@
object frmZHCPDJList: TfrmZHCPDJList
Left = 85
Top = 115
Left = 282
Top = 162
Width = 1252
Height = 637
Caption = #25253#20215#30331#35760
@ -20,7 +20,7 @@ object frmZHCPDJList: TfrmZHCPDJList
object ToolBar1: TToolBar
Left = 0
Top = 0
Width = 1236
Width = 1244
AutoSize = True
ButtonHeight = 30
ButtonWidth = 65
@ -92,8 +92,8 @@ object frmZHCPDJList: TfrmZHCPDJList
object cxGrid1: TcxGrid
Left = 0
Top = 72
Width = 1236
Height = 526
Width = 1244
Height = 534
Align = alClient
PopupMenu = PopupMenu1
TabOrder = 1
@ -275,7 +275,7 @@ object frmZHCPDJList: TfrmZHCPDJList
object Panel11: TPanel
Left = 0
Top = 32
Width = 1236
Width = 1244
Height = 40
Align = alTop
BevelInner = bvRaised
@ -352,7 +352,7 @@ object frmZHCPDJList: TfrmZHCPDJList
object Panel1: TPanel
Left = 354
Top = 2
Width = 880
Width = 888
Height = 36
Align = alClient
BevelInner = bvRaised

4
云翔生产管理(MYSC.dll)/U_ZHDJInPut.dfm
View File

@ -1,6 +1,6 @@
object frmZHDJInPut: TfrmZHDJInPut
Left = 306
Top = 70
Left = 495
Top = 255
Width = 1344
Height = 697
Caption = #20135#21697#30331#35760

2
云翔生产管理(MYSC.dll)/U_ZHDJInPut.pas
View File

@ -207,7 +207,7 @@ begin
sql.Add(' from ZH_KH_DJ_CP A ');
sql.Add(' left join ZH_CP_Info B on A.ZIID=B.ZIID ');
sql.Add(' left join ZH_CP_Info C on B.ZIIDYS=C.ZIID ');
sql.Add(' where A.ZDID=''' + Trim(FMainId) + ''' and A.Valid=''Y'' ');
sql.Add(' where isnull(A.ZDID,'''')<>'''' and A.ZDID=''' + Trim(FMainId) + ''' and A.Valid=''Y'' ');
Open;
end;
SCreateCDS20(ADOTemp, Order_Sub);

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

@ -101,7 +101,7 @@ DebugSourceDirs=
UsePackages=0
[Parameters]
RunParams=
HostApplication=D:\马国钢开发代码\项目代码\云翔\生产计划单(DyeingFinishingPlan.dll)\testDll.exe
HostApplication=D:\马国钢开发代码\项目代码\D7WMyunxiang\生产计划单(DyeingFinishingPlan.dll)\testDll.exe
Launcher=
UseLauncher=0
DebugCWD=

24
生产计划单(DyeingFinishingPlan.dll)/U_MJJYTH.dfm
View File

@ -29,7 +29,7 @@ object frmMJJYTH: TfrmMJJYTH
Left = 0
Top = 0
Width = 207
Height = 845
Height = 853
Align = alLeft
BevelInner = bvRaised
BevelOuter = bvLowered
@ -342,8 +342,8 @@ object frmMJJYTH: TfrmMJJYTH
object PageControl1: TPageControl
Left = 207
Top = 0
Width = 1021
Height = 845
Width = 1029
Height = 853
ActivePage = TabSheet3
Align = alClient
Style = tsFlatButtons
@ -355,7 +355,7 @@ object frmMJJYTH: TfrmMJJYTH
Left = 0
Top = 0
Width = 514
Height = 815
Height = 823
Align = alLeft
BevelInner = bvRaised
BevelOuter = bvLowered
@ -1733,6 +1733,22 @@ object frmMJJYTH: TfrmMJJYTH
OnClick = JYLenClick
OnKeyPress = MJstr3KeyPress
end
object JYGH: TEdit
Left = 390
Top = 149
Width = 91
Height = 41
Font.Charset = ANSI_CHARSET
Font.Color = clRed
Font.Height = -32
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
TabOrder = 11
OnChange = JYKGChange
OnClick = JYLenClick
OnKeyPress = MJstr3KeyPress
end
end
object Panel4: TPanel
Left = -8

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

@ -347,6 +347,7 @@ type
JYMF: TEdit;
Label41: TLabel;
JYKZ: TEdit;
JYGH: TEdit;
procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormShow(Sender: TObject);
@ -2840,6 +2841,7 @@ begin
sql.Add(',JYJZ=isnull(''' + JYJZ.Text+''','''')');
sql.Add(',JYMF=isnull(''' + JYMF.Text+''','''')');
sql.Add(',JYKZ=isnull(''' + JYKZ.Text+''','''')');
sql.Add(',JYGH=isnull(''' + JYGH.Text+''','''')');
// ShowMessage(sql.text);
Open;
end;