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

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

@ -1,6 +1,6 @@
object frmZHDJInPut: TfrmZHDJInPut object frmZHDJInPut: TfrmZHDJInPut
Left = 306 Left = 495
Top = 70 Top = 255
Width = 1344 Width = 1344
Height = 697 Height = 697
Caption = #20135#21697#30331#35760 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(' 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 B on A.ZIID=B.ZIID ');
sql.Add(' left join ZH_CP_Info C on B.ZIIDYS=C.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; Open;
end; end;
SCreateCDS20(ADOTemp, Order_Sub); SCreateCDS20(ADOTemp, Order_Sub);

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

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

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

@ -29,7 +29,7 @@ object frmMJJYTH: TfrmMJJYTH
Left = 0 Left = 0
Top = 0 Top = 0
Width = 207 Width = 207
Height = 845 Height = 853
Align = alLeft Align = alLeft
BevelInner = bvRaised BevelInner = bvRaised
BevelOuter = bvLowered BevelOuter = bvLowered
@ -342,8 +342,8 @@ object frmMJJYTH: TfrmMJJYTH
object PageControl1: TPageControl object PageControl1: TPageControl
Left = 207 Left = 207
Top = 0 Top = 0
Width = 1021 Width = 1029
Height = 845 Height = 853
ActivePage = TabSheet3 ActivePage = TabSheet3
Align = alClient Align = alClient
Style = tsFlatButtons Style = tsFlatButtons
@ -355,7 +355,7 @@ object frmMJJYTH: TfrmMJJYTH
Left = 0 Left = 0
Top = 0 Top = 0
Width = 514 Width = 514
Height = 815 Height = 823
Align = alLeft Align = alLeft
BevelInner = bvRaised BevelInner = bvRaised
BevelOuter = bvLowered BevelOuter = bvLowered
@ -1733,6 +1733,22 @@ object frmMJJYTH: TfrmMJJYTH
OnClick = JYLenClick OnClick = JYLenClick
OnKeyPress = MJstr3KeyPress OnKeyPress = MJstr3KeyPress
end 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 end
object Panel4: TPanel object Panel4: TPanel
Left = -8 Left = -8

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

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