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

3333

Browse Source
This commit is contained in:
DESKTOP-E401PHE\Administrator 2025-07-12 13:15:31 +08:00
parent dda179af58
commit ff5a18cd95
5 changed files with 93 additions and 57 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

64
云翔生产管理(MYSC.dll)/U_LLRKInPutMH_MCG.dfm
View File

@ -1,8 +1,8 @@
object frmLLRKInPutMH_MCG: TfrmLLRKInPutMH_MCG object frmLLRKInPutMH_MCG: TfrmLLRKInPutMH_MCG
Left = 113 Left = 421
Top = 116 Top = 228
Width = 1414 Width = 1261
Height = 586 Height = 492
Caption = #36741#26009#37319#36141#20837#24211#24405#20837 Caption = #36741#26009#37319#36141#20837#24211#24405#20837
Color = clBtnFace Color = clBtnFace
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
@ -19,7 +19,7 @@ object frmLLRKInPutMH_MCG: TfrmLLRKInPutMH_MCG
object ToolBar1: TToolBar object ToolBar1: TToolBar
Left = 0 Left = 0
Top = 0 Top = 0
Width = 1398 Width = 1253
Height = 30 Height = 30
ButtonHeight = 30 ButtonHeight = 30
ButtonWidth = 145 ButtonWidth = 145
@ -118,8 +118,8 @@ object frmLLRKInPutMH_MCG: TfrmLLRKInPutMH_MCG
object Panel4: TPanel object Panel4: TPanel
Left = 0 Left = 0
Top = 30 Top = 30
Width = 1398 Width = 1253
Height = 517 Height = 431
Align = alClient Align = alClient
BevelInner = bvRaised BevelInner = bvRaised
BevelOuter = bvLowered BevelOuter = bvLowered
@ -295,7 +295,7 @@ object frmLLRKInPutMH_MCG: TfrmLLRKInPutMH_MCG
end end
object Label45: TLabel object Label45: TLabel
Left = 753 Left = 753
Top = 244 Top = 245
Width = 63 Width = 63
Height = 20 Height = 20
Caption = #31859#25968#37327 Caption = #31859#25968#37327
@ -321,7 +321,7 @@ object frmLLRKInPutMH_MCG: TfrmLLRKInPutMH_MCG
end end
object Label10: TLabel object Label10: TLabel
Left = 624 Left = 624
Top = 285 Top = 284
Width = 42 Width = 42
Height = 20 Height = 20
Caption = #21305#38271 Caption = #21305#38271
@ -333,8 +333,8 @@ object frmLLRKInPutMH_MCG: TfrmLLRKInPutMH_MCG
ParentFont = False ParentFont = False
end end
object Label28: TLabel object Label28: TLabel
Left = 892 Left = 900
Top = 261 Top = 284
Width = 63 Width = 63
Height = 20 Height = 20
Caption = #37329#39069#65306 Caption = #37329#39069#65306
@ -384,6 +384,19 @@ object frmLLRKInPutMH_MCG: TfrmLLRKInPutMH_MCG
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
end end
object Label6: TLabel
Left = 900
Top = 245
Width = 42
Height = 20
Caption = #21152#31859
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -20
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object CRTime: TDateTimePicker object CRTime: TDateTimePicker
Tag = 2 Tag = 2
Left = 680 Left = 680
@ -640,7 +653,7 @@ object frmLLRKInPutMH_MCG: TfrmLLRKInPutMH_MCG
object PS: TEdit object PS: TEdit
Tag = 2 Tag = 2
Left = 668 Left = 668
Top = 241 Top = 242
Width = 74 Width = 74
Height = 25 Height = 25
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
@ -655,7 +668,7 @@ object frmLLRKInPutMH_MCG: TfrmLLRKInPutMH_MCG
object Qty: TEdit object Qty: TEdit
Tag = 2 Tag = 2
Left = 817 Left = 817
Top = 240 Top = 242
Width = 75 Width = 75
Height = 25 Height = 25
Color = clMenu Color = clMenu
@ -672,7 +685,7 @@ object frmLLRKInPutMH_MCG: TfrmLLRKInPutMH_MCG
object KgQty: TEdit object KgQty: TEdit
Tag = 2 Tag = 2
Left = 817 Left = 817
Top = 280 Top = 281
Width = 75 Width = 75
Height = 25 Height = 25
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
@ -701,8 +714,8 @@ object frmLLRKInPutMH_MCG: TfrmLLRKInPutMH_MCG
end end
object MYMDMoney: TEdit object MYMDMoney: TEdit
Tag = 2 Tag = 2
Left = 948 Left = 956
Top = 257 Top = 280
Width = 109 Width = 109
Height = 28 Height = 28
Color = clMenu Color = clMenu
@ -759,8 +772,8 @@ object frmLLRKInPutMH_MCG: TfrmLLRKInPutMH_MCG
TabOrder = 23 TabOrder = 23
end end
object Button1: TButton object Button1: TButton
Left = 1076 Left = 1084
Top = 252 Top = 276
Width = 85 Width = 85
Height = 37 Height = 37
Caption = #20462#25913#37329#39069 Caption = #20462#25913#37329#39069
@ -773,6 +786,21 @@ object frmLLRKInPutMH_MCG: TfrmLLRKInPutMH_MCG
TabOrder = 24 TabOrder = 24
OnClick = Button1Click OnClick = Button1Click
end end
object AddQty: TEdit
Tag = 2
Left = 956
Top = 242
Width = 74
Height = 25
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -17
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
TabOrder = 25
OnChange = MDJChangChange
end
end end
object ADOTemp: TADOQuery object ADOTemp: TADOQuery
Connection = DataLink_MYSC.ADOLink Connection = DataLink_MYSC.ADOLink

4
云翔生产管理(MYSC.dll)/U_LLRKInPutMH_MCG.pas
View File

@ -78,6 +78,8 @@ type
Label5: TLabel; Label5: TLabel;
PMHH: TEdit; PMHH: TEdit;
Button1: TButton; Button1: TButton;
AddQty: TEdit;
Label6: TLabel;
procedure TBCloseClick(Sender: TObject); procedure TBCloseClick(Sender: TObject);
procedure FormShow(Sender: TObject); procedure FormShow(Sender: TObject);
procedure TBSaveClick(Sender: TObject); procedure TBSaveClick(Sender: TObject);
@ -752,7 +754,7 @@ end;
procedure TfrmLLRKInPutMH_MCG.MDJChangChange(Sender: TObject); procedure TfrmLLRKInPutMH_MCG.MDJChangChange(Sender: TObject);
begin begin
KgQty.Text := FormatFloat('0.00', strtofloatdef(MYKZ.text, 0) * strtofloatdef(MYMF.text, 0) * strtofloatdef(MDJChang.text, 0) * strtofloatdef(PS.text, 0) / 100000); KgQty.Text := FormatFloat('0.00', strtofloatdef(MYKZ.text, 0) * strtofloatdef(MYMF.text, 0) * strtofloatdef(MDJChang.text, 0) * strtofloatdef(PS.text, 0) / 100000);
Qty.Text := FloatToStr(strtofloatdef(MDJChang.text, 0) * strtofloatdef(PS.text, 0)); Qty.Text := FloatToStr(strtofloatdef(MDJChang.text, 0) * strtofloatdef(PS.text, 0) + strtofloatdef(AddQty.text, 0));
end; end;
procedure TfrmLLRKInPutMH_MCG.Tv1DblClick(Sender: TObject); procedure TfrmLLRKInPutMH_MCG.Tv1DblClick(Sender: TObject);

42
云翔生产管理(MYSC.dll)/U_LLRKMXInPut.dfm
View File

@ -1,6 +1,6 @@
object frmLLRKMXInPut: TfrmLLRKMXInPut object frmLLRKMXInPut: TfrmLLRKMXInPut
Left = 189 Left = 477
Top = 136 Top = 184
Width = 1349 Width = 1349
Height = 653 Height = 653
Caption = #26469#26009#26126#32454#30721#21333#24405#20837 Caption = #26469#26009#26126#32454#30721#21333#24405#20837
@ -206,7 +206,7 @@ object frmLLRKMXInPut: TfrmLLRKMXInPut
Left = 226 Left = 226
Top = 169 Top = 169
Width = 72 Width = 72
Height = 38 Height = 35
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -20 Font.Height = -20
@ -221,7 +221,7 @@ object frmLLRKMXInPut: TfrmLLRKMXInPut
Left = 125 Left = 125
Top = 160 Top = 160
Width = 36 Width = 36
Height = 60 Height = 54
Color = clMenuBar Color = clMenuBar
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
@ -237,7 +237,7 @@ object frmLLRKMXInPut: TfrmLLRKMXInPut
Left = 125 Left = 125
Top = 271 Top = 271
Width = 36 Width = 36
Height = 60 Height = 54
Color = clMenuBar Color = clMenuBar
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
@ -253,7 +253,7 @@ object frmLLRKMXInPut: TfrmLLRKMXInPut
Left = 125 Left = 125
Top = 67 Top = 67
Width = 174 Width = 174
Height = 38 Height = 35
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -20 Font.Height = -20
@ -266,7 +266,7 @@ object frmLLRKMXInPut: TfrmLLRKMXInPut
Left = 226 Left = 226
Top = 281 Top = 281
Width = 72 Width = 72
Height = 38 Height = 35
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -20 Font.Height = -20
@ -303,7 +303,7 @@ object frmLLRKMXInPut: TfrmLLRKMXInPut
Left = 616 Left = 616
Top = 179 Top = 179
Width = 100 Width = 100
Height = 25 Height = 23
Hint = 'MYTypeFlag' Hint = 'MYTypeFlag'
Color = clMenuBar Color = clMenuBar
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
@ -320,7 +320,7 @@ object frmLLRKMXInPut: TfrmLLRKMXInPut
Left = 614 Left = 614
Top = 90 Top = 90
Width = 123 Width = 123
Height = 23 Height = 21
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -13 Font.Height = -13
@ -334,7 +334,7 @@ object frmLLRKMXInPut: TfrmLLRKMXInPut
Left = 614 Left = 614
Top = 122 Top = 122
Width = 123 Width = 123
Height = 23 Height = 21
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -13 Font.Height = -13
@ -348,7 +348,7 @@ object frmLLRKMXInPut: TfrmLLRKMXInPut
Left = 614 Left = 614
Top = 58 Top = 58
Width = 123 Width = 123
Height = 23 Height = 21
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -13 Font.Height = -13
@ -362,7 +362,7 @@ object frmLLRKMXInPut: TfrmLLRKMXInPut
Left = 614 Left = 614
Top = 154 Top = 154
Width = 123 Width = 123
Height = 23 Height = 21
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -13 Font.Height = -13
@ -474,7 +474,7 @@ object frmLLRKMXInPut: TfrmLLRKMXInPut
Left = 63 Left = 63
Top = 9 Top = 9
Width = 36 Width = 36
Height = 23 Height = 21
Color = clMenuBar Color = clMenuBar
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
@ -490,7 +490,7 @@ object frmLLRKMXInPut: TfrmLLRKMXInPut
Left = 160 Left = 160
Top = 9 Top = 9
Width = 36 Width = 36
Height = 23 Height = 21
Color = clMenuBar Color = clMenuBar
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
@ -506,7 +506,7 @@ object frmLLRKMXInPut: TfrmLLRKMXInPut
Left = 272 Left = 272
Top = 9 Top = 9
Width = 64 Width = 64
Height = 23 Height = 21
Color = clMenuBar Color = clMenuBar
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
@ -522,7 +522,7 @@ object frmLLRKMXInPut: TfrmLLRKMXInPut
Left = 482 Left = 482
Top = 9 Top = 9
Width = 64 Width = 64
Height = 23 Height = 21
Color = clMenuBar Color = clMenuBar
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
@ -553,7 +553,7 @@ object frmLLRKMXInPut: TfrmLLRKMXInPut
Left = 372 Left = 372
Top = 9 Top = 9
Width = 49 Width = 49
Height = 23 Height = 21
Color = clMenuBar Color = clMenuBar
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
@ -569,7 +569,7 @@ object frmLLRKMXInPut: TfrmLLRKMXInPut
Left = 582 Left = 582
Top = 9 Top = 9
Width = 49 Width = 49
Height = 23 Height = 21
Color = clMenuBar Color = clMenuBar
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
@ -764,7 +764,7 @@ object frmLLRKMXInPut: TfrmLLRKMXInPut
Left = 409 Left = 409
Top = 19 Top = 19
Width = 69 Width = 69
Height = 23 Height = 21
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -13 Font.Height = -13
@ -778,7 +778,7 @@ object frmLLRKMXInPut: TfrmLLRKMXInPut
Left = 530 Left = 530
Top = 19 Top = 19
Width = 70 Width = 70
Height = 23 Height = 21
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -13 Font.Height = -13
@ -807,7 +807,7 @@ object frmLLRKMXInPut: TfrmLLRKMXInPut
Left = 249 Left = 249
Top = 19 Top = 19
Width = 85 Width = 85
Height = 23 Height = 21
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -13 Font.Height = -13

39
云翔生产管理(MYSC.dll)/U_MCGRKList.dfm
View File

@ -1,6 +1,6 @@
object frmMCGRKList: TfrmMCGRKList object frmMCGRKList: TfrmMCGRKList
Left = 196 Left = 508
Top = 105 Top = 193
Width = 1149 Width = 1149
Height = 649 Height = 649
Caption = #26825#37319#36141#20837#24211#30331#35760 Caption = #26825#37319#36141#20837#24211#30331#35760
@ -21,7 +21,6 @@ object frmMCGRKList: TfrmMCGRKList
Left = 0 Left = 0
Top = 0 Top = 0
Width = 1141 Width = 1141
Height = 62
AutoSize = True AutoSize = True
ButtonHeight = 30 ButtonHeight = 30
ButtonWidth = 95 ButtonWidth = 95
@ -87,12 +86,11 @@ object frmMCGRKList: TfrmMCGRKList
AutoSize = True AutoSize = True
Caption = #21367#25968#31995#25968 Caption = #21367#25968#31995#25968
ImageIndex = 25 ImageIndex = 25
Wrap = True
OnClick = ToolButton3Click OnClick = ToolButton3Click
end end
object labMYType: TLabel object labMYType: TLabel
Left = 0 Left = 474
Top = 30 Top = 0
Width = 292 Width = 292
Height = 30 Height = 30
Caption = ' '#36741#26009#37319#36141#20837#24211' ' Caption = ' '#36741#26009#37319#36141#20837#24211' '
@ -104,8 +102,8 @@ object frmMCGRKList: TfrmMCGRKList
ParentFont = False ParentFont = False
end end
object ToolButton4: TToolButton object ToolButton4: TToolButton
Left = 292 Left = 766
Top = 30 Top = 0
AutoSize = True AutoSize = True
Caption = #25171#21360 Caption = #25171#21360
ImageIndex = 4 ImageIndex = 4
@ -113,16 +111,16 @@ object frmMCGRKList: TfrmMCGRKList
OnClick = ToolButton4Click OnClick = ToolButton4Click
end end
object TBExport: TToolButton object TBExport: TToolButton
Left = 361 Left = 835
Top = 30 Top = 0
AutoSize = True AutoSize = True
Caption = #23548#20986 Caption = #23548#20986
ImageIndex = 97 ImageIndex = 97
OnClick = TBExportClick OnClick = TBExportClick
end end
object TBClose: TToolButton object TBClose: TToolButton
Left = 430 Left = 904
Top = 30 Top = 0
AutoSize = True AutoSize = True
Caption = #20851#38381 Caption = #20851#38381
ImageIndex = 21 ImageIndex = 21
@ -131,9 +129,9 @@ object frmMCGRKList: TfrmMCGRKList
end end
object cxGrid1: TcxGrid object cxGrid1: TcxGrid
Left = 0 Left = 0
Top = 139 Top = 109
Width = 1141 Width = 1141
Height = 479 Height = 509
Align = alClient Align = alClient
PopupMenu = PopupMenu1 PopupMenu = PopupMenu1
TabOrder = 2 TabOrder = 2
@ -275,6 +273,13 @@ object frmMCGRKList: TfrmMCGRKList
Styles.Footer = DataLink_MYSC.Default10 Styles.Footer = DataLink_MYSC.Default10
Width = 85 Width = 85
end end
object Tv1Column2: TcxGridDBColumn
Caption = #22791#27880
DataBinding.FieldName = 'Note'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 87
end
object v1Column3: TcxGridDBColumn object v1Column3: TcxGridDBColumn
Caption = #31859#25968 Caption = #31859#25968
DataBinding.FieldName = 'Qty' DataBinding.FieldName = 'Qty'
@ -318,7 +323,7 @@ object frmMCGRKList: TfrmMCGRKList
end end
object Panel1: TPanel object Panel1: TPanel
Left = 0 Left = 0
Top = 62 Top = 32
Width = 1141 Width = 1141
Height = 77 Height = 77
Align = alTop Align = alTop
@ -705,8 +710,8 @@ object frmMCGRKList: TfrmMCGRKList
end end
end end
object cxGroupBox2: TcxGroupBox object cxGroupBox2: TcxGroupBox
Left = 787 Left = 779
Top = 121 Top = 169
Caption = #30721#21333'('#25991#20214')'#19978#20256 Caption = #30721#21333'('#25991#20214')'#19978#20256
ParentColor = False ParentColor = False
ParentFont = False ParentFont = False

1
云翔生产管理(MYSC.dll)/U_MCGRKList.pas
View File

@ -126,6 +126,7 @@ type
MYMF: TComboBox; MYMF: TComboBox;
MYKZ: TComboBox; MYKZ: TComboBox;
ToolButton3: TToolButton; ToolButton3: TToolButton;
Tv1Column2: TcxGridDBColumn;
procedure FormDestroy(Sender: TObject); procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCreate(Sender: TObject); procedure FormCreate(Sender: TObject);