Group_DJD/D10myBahong
9
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

打卷页面调整

Browse Source
This commit is contained in:
DESKTOP-E401PHE\Administrator 2025-03-15 10:10:24 +08:00
parent 3e0a685b19
commit 0b0280744f
10 changed files with 751 additions and 219 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
T03贸易布匹检验/DjdMachineInsp.identcache
View File

Binary file not shown.

2
T03贸易布匹检验/File.INI
View File

@ -1,5 +1,5 @@
[生产车间配置] [生产车间配置]
机台标志=1 机台标志=99
成品DLL文件=TradeManagePB.dll 成品DLL文件=TradeManagePB.dll
成品DLL调用号=3 成品DLL调用号=3
员工编号=select distinct UserID from SY_Purview where ModuleId='15' and ModuleSubId='04' 员工编号=select distinct UserID from SY_Purview where ModuleId='15' and ModuleSubId='04'

5
T03贸易布匹检验/TradeInspFile.INI
View File

@ -7,12 +7,13 @@
码表调用Dll文件= 码表调用Dll文件=
启用码表Dll文件=1 启用码表Dll文件=1
启用码表单位=1 启用码表单位=1
标签份数=2 打包=
标签份数=1
米数下限=0 米数下限=0
米数上限=100 米数上限=100
重量下限=0 重量下限=0
重量上限=222 重量上限=222
米数小数位=1 米数小数位=0
码数小数位=1 码数小数位=1
重量小数位=1 重量小数位=1
自定义字母键1=A 自定义字母键1=A

381
T03贸易布匹检验/U_MachRollMain.dfm
View File

@ -49,7 +49,7 @@
OnClick = Button_setClick OnClick = Button_setClick
end end
object Piece: TcxTextEdit object Piece: TcxTextEdit
Left = 236 Left = 260
Top = 141 Top = 141
Properties.ReadOnly = True Properties.ReadOnly = True
Style.HotTrack = False Style.HotTrack = False
@ -58,16 +58,16 @@
Width = 164 Width = 164
end end
object Qty: TcxTextEdit object Qty: TcxTextEdit
Left = 74 Left = 83
Top = 114 Top = 114
Properties.ReadOnly = True Properties.ReadOnly = True
Style.HotTrack = False Style.HotTrack = False
Style.TransparentBorder = False Style.TransparentBorder = False
TabOrder = 8 TabOrder = 8
Width = 116 Width = 131
end end
object Color: TcxTextEdit object Color: TcxTextEdit
Left = 236 Left = 260
Top = 87 Top = 87
Properties.ReadOnly = True Properties.ReadOnly = True
Style.HotTrack = False Style.HotTrack = False
@ -76,16 +76,16 @@
Width = 164 Width = 164
end end
object ColorNo: TcxTextEdit object ColorNo: TcxTextEdit
Left = 74 Left = 83
Top = 87 Top = 87
Properties.ReadOnly = True Properties.ReadOnly = True
Style.HotTrack = False Style.HotTrack = False
Style.TransparentBorder = False Style.TransparentBorder = False
TabOrder = 7 TabOrder = 7
Width = 116 Width = 131
end end
object CodeName: TcxTextEdit object CodeName: TcxTextEdit
Left = 236 Left = 260
Top = 60 Top = 60
Properties.ReadOnly = True Properties.ReadOnly = True
Style.HotTrack = False Style.HotTrack = False
@ -94,16 +94,16 @@
Width = 164 Width = 164
end end
object OrderNo: TcxTextEdit object OrderNo: TcxTextEdit
Left = 74 Left = 83
Top = 60 Top = 60
Properties.ReadOnly = True Properties.ReadOnly = True
Style.HotTrack = False Style.HotTrack = False
Style.TransparentBorder = False Style.TransparentBorder = False
TabOrder = 6 TabOrder = 6
Width = 116 Width = 131
end end
object BCIOID: TcxTextEdit object BCIOID: TcxTextEdit
Left = 236 Left = 260
Top = 114 Top = 114
Properties.ReadOnly = True Properties.ReadOnly = True
Style.HotTrack = False Style.HotTrack = False
@ -136,7 +136,7 @@
object BTPrint: TButton object BTPrint: TButton
Left = 259 Left = 259
Top = 298 Top = 298
Width = 140 Width = 335
Height = 59 Height = 59
Caption = #25552' '#20132 Caption = #25552' '#20132
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
@ -297,6 +297,7 @@
Style.IsFontAssigned = True Style.IsFontAssigned = True
TabOrder = 14 TabOrder = 14
OnClick = edtScanEnter OnClick = edtScanEnter
OnExit = BatchNOExit
OnKeyPress = InputLenKeyPress OnKeyPress = InputLenKeyPress
Height = 27 Height = 27
Width = 53 Width = 53
@ -316,7 +317,7 @@
end end
object OutPutWeight: TcxTextEdit object OutPutWeight: TcxTextEdit
Tag = 999 Tag = 999
Left = 9213 Left = 8864
Top = 10000 Top = 10000
AutoSize = False AutoSize = False
ParentFont = False ParentFont = False
@ -328,7 +329,7 @@
Style.HotTrack = False Style.HotTrack = False
Style.TransparentBorder = False Style.TransparentBorder = False
Style.IsFontAssigned = True Style.IsFontAssigned = True
TabOrder = 30 TabOrder = 34
Visible = False Visible = False
OnClick = edtScanEnter OnClick = edtScanEnter
OnKeyPress = InputLenKeyPress OnKeyPress = InputLenKeyPress
@ -356,7 +357,7 @@
end end
object AOrdDefNote1: TcxRichEdit object AOrdDefNote1: TcxRichEdit
Left = 0 Left = 0
Top = 420 Top = 456
ParentFont = False ParentFont = False
Properties.ReadOnly = True Properties.ReadOnly = True
Properties.ScrollBars = ssBoth Properties.ScrollBars = ssBoth
@ -368,12 +369,12 @@
Style.HotTrack = False Style.HotTrack = False
Style.TransparentBorder = False Style.TransparentBorder = False
Style.IsFontAssigned = True Style.IsFontAssigned = True
TabOrder = 28 TabOrder = 32
Height = 206 Height = 206
Width = 181 Width = 181
end end
object cxDBImage1: TcxDBImage object cxDBImage1: TcxDBImage
Left = 9213 Left = 8864
Top = 10000 Top = 10000
Hint = 'FileName' Hint = 'FileName'
DataBinding.DataField = 'FilesOther' DataBinding.DataField = 'FilesOther'
@ -384,7 +385,7 @@
Properties.ShowFocusRect = False Properties.ShowFocusRect = False
Style.HotTrack = False Style.HotTrack = False
Style.TransparentBorder = False Style.TransparentBorder = False
TabOrder = 31 TabOrder = 35
Visible = False Visible = False
Height = 122 Height = 122
Width = 280 Width = 280
@ -467,15 +468,15 @@
StyleDisabled.LookAndFeel.SkinName = 'WXI' StyleDisabled.LookAndFeel.SkinName = 'WXI'
StyleFocused.LookAndFeel.SkinName = 'WXI' StyleFocused.LookAndFeel.SkinName = 'WXI'
StyleHot.LookAndFeel.SkinName = 'WXI' StyleHot.LookAndFeel.SkinName = 'WXI'
TabOrder = 26 TabOrder = 27
Text = #26080#38656#36716#25442 Text = #26080#38656#36716#25442
Height = 37 Height = 37
Width = 77 Width = 158
end end
object packnote: TcxMemo object packnote: TcxMemo
Tag = 999 Tag = 999
Left = 190 Left = 190
Top = 420 Top = 456
ParentFont = False ParentFont = False
Properties.ReadOnly = True Properties.ReadOnly = True
Properties.ScrollBars = ssVertical Properties.ScrollBars = ssVertical
@ -487,7 +488,7 @@
Style.HotTrack = False Style.HotTrack = False
Style.TransparentBorder = False Style.TransparentBorder = False
Style.IsFontAssigned = True Style.IsFontAssigned = True
TabOrder = 29 TabOrder = 33
Height = 206 Height = 206
Width = 199 Width = 199
end end
@ -520,18 +521,18 @@
Width = 149 Width = 149
end end
object C_Pattern: TcxTextEdit object C_Pattern: TcxTextEdit
Left = 9213 Left = 8864
Top = 10000 Top = 10000
ParentFont = False ParentFont = False
Properties.ReadOnly = True Properties.ReadOnly = True
Style.HotTrack = False Style.HotTrack = False
Style.TransparentBorder = False Style.TransparentBorder = False
TabOrder = 35 TabOrder = 39
Visible = False Visible = False
Width = 124 Width = 124
end end
object RuleYardstick: TcxTextEdit object RuleYardstick: TcxTextEdit
Left = 9052 Left = 8703
Top = 10000 Top = 10000
AutoSize = False AutoSize = False
ParentFont = False ParentFont = False
@ -544,7 +545,7 @@
Style.HotTrack = False Style.HotTrack = False
Style.TransparentBorder = False Style.TransparentBorder = False
Style.IsFontAssigned = True Style.IsFontAssigned = True
TabOrder = 36 TabOrder = 40
Text = '100' Text = '100'
Visible = False Visible = False
OnClick = edtScanEnter OnClick = edtScanEnter
@ -553,19 +554,19 @@
Width = 69 Width = 69
end end
object C_StyleNo: TcxTextEdit object C_StyleNo: TcxTextEdit
Left = 9213 Left = 8864
Top = 10000 Top = 10000
Properties.ReadOnly = True Properties.ReadOnly = True
Style.HotTrack = False Style.HotTrack = False
Style.TransparentBorder = False Style.TransparentBorder = False
TabOrder = 37 TabOrder = 41
Visible = False Visible = False
Width = 168 Width = 168
end end
object packPostBtn: TButton object packPostBtn: TButton
Left = 226 Left = 307
Top = 366 Top = 366
Width = 84 Width = 158
Height = 37 Height = 37
Caption = #25171#21253#25552#20132 Caption = #25171#21253#25552#20132
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
@ -574,64 +575,22 @@
Font.Name = #24494#36719#38597#40657 Font.Name = #24494#36719#38597#40657
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
TabOrder = 27 TabOrder = 29
OnClick = packPostBtnClick OnClick = packPostBtnClick
end end
object customStrField1: TcxTextEdit object customStrField1: TcxTextEdit
Left = 9213 Left = 8864
Top = 10000 Top = 10000
Properties.ReadOnly = True Properties.ReadOnly = True
Style.HotTrack = False Style.HotTrack = False
Style.TransparentBorder = False Style.TransparentBorder = False
TabOrder = 38
Visible = False
OnClick = edtScanEnter
Width = 121
end
object customStrField2: TcxTextEdit
Left = 9213
Top = 10000
Style.HotTrack = False
Style.TransparentBorder = False
TabOrder = 39
Visible = False
OnClick = edtScanEnter
Width = 121
end
object C_Width: TcxTextEdit
Left = 9213
Top = 10000
ParentFont = False
Style.HotTrack = False
Style.TransparentBorder = False
TabOrder = 40
Visible = False
OnClick = edtScanEnter
Width = 121
end
object C_GramWeight: TcxTextEdit
Left = 9213
Top = 10000
ParentFont = False
Style.HotTrack = False
Style.TransparentBorder = False
TabOrder = 41
Visible = False
OnClick = edtScanEnter
Width = 121
end
object addLen: TcxTextEdit
Left = 9213
Top = 10000
Style.HotTrack = False
Style.TransparentBorder = False
TabOrder = 42 TabOrder = 42
Visible = False Visible = False
OnClick = edtScanEnter OnClick = edtScanEnter
Width = 121 Width = 121
end end
object addWet: TcxTextEdit object customStrField2: TcxTextEdit
Left = 9213 Left = 8864
Top = 10000 Top = 10000
Style.HotTrack = False Style.HotTrack = False
Style.TransparentBorder = False Style.TransparentBorder = False
@ -640,8 +599,50 @@
OnClick = edtScanEnter OnClick = edtScanEnter
Width = 121 Width = 121
end end
object C_Width: TcxTextEdit
Left = 8864
Top = 10000
ParentFont = False
Style.HotTrack = False
Style.TransparentBorder = False
TabOrder = 44
Visible = False
OnClick = edtScanEnter
Width = 121
end
object C_GramWeight: TcxTextEdit
Left = 8864
Top = 10000
ParentFont = False
Style.HotTrack = False
Style.TransparentBorder = False
TabOrder = 45
Visible = False
OnClick = edtScanEnter
Width = 121
end
object addLen: TcxTextEdit
Left = 8864
Top = 10000
Style.HotTrack = False
Style.TransparentBorder = False
TabOrder = 46
Visible = False
OnClick = edtScanEnter
Width = 121
end
object addWet: TcxTextEdit
Left = 8864
Top = 10000
Style.HotTrack = False
Style.TransparentBorder = False
TabOrder = 47
Visible = False
OnClick = edtScanEnter
Width = 121
end
object bt_printmd: TButton object bt_printmd: TButton
Left = 9213 Left = 8864
Top = 10000 Top = 10000
Width = 48 Width = 48
Height = 33 Height = 33
@ -652,58 +653,44 @@
Font.Name = #24494#36719#38597#40657 Font.Name = #24494#36719#38597#40657
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
TabOrder = 44 TabOrder = 48
Visible = False Visible = False
OnClick = bt_printmdClick OnClick = bt_printmdClick
end end
object presentLen: TcxTextEdit object presentLen: TcxTextEdit
Left = 9213 Left = 8864
Top = 10000 Top = 10000
Style.HotTrack = False Style.HotTrack = False
Style.TransparentBorder = False Style.TransparentBorder = False
TabOrder = 45 TabOrder = 49
Visible = False Visible = False
OnClick = edtScanEnter OnClick = edtScanEnter
Width = 121 Width = 121
end end
object presentWeight: TcxTextEdit object presentWeight: TcxTextEdit
Left = 9213 Left = 8864
Top = 10000 Top = 10000
Style.HotTrack = False Style.HotTrack = False
Style.TransparentBorder = False Style.TransparentBorder = False
TabOrder = 46 TabOrder = 50
Visible = False Visible = False
OnClick = edtScanEnter OnClick = edtScanEnter
Width = 121 Width = 121
end end
object unitPieces: TcxTextEdit object unitPieces: TcxTextEdit
Left = 9213 Left = 8864
Top = 10000 Top = 10000
Style.HotTrack = False Style.HotTrack = False
Style.TransparentBorder = False Style.TransparentBorder = False
TabOrder = 47 TabOrder = 51
Visible = False Visible = False
OnClick = edtScanEnter OnClick = edtScanEnter
Width = 121 Width = 121
end end
object FtyPCId: TComboBox
Left = 69
Top = 141
Width = 121
Height = 35
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -20
Font.Name = #24494#36719#38597#40657
Font.Style = [fsBold]
ParentFont = False
TabOrder = 9
OnChange = FtyPCIdChange
end
object BAN: TSpeedButton object BAN: TSpeedButton
Left = 319 Left = 474
Top = 366 Top = 366
Width = 80 Width = 120
Height = 37 Height = 37
Caption = #25171#26495#26631#31614 Caption = #25171#26495#26631#31614
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
@ -724,6 +711,61 @@
OnKeyPress = InputLenKeyPress OnKeyPress = InputLenKeyPress
Width = 35 Width = 35
end end
object FtyPCId: TcxTextEdit
Left = 93
Top = 141
AutoSize = False
Style.HotTrack = False
Style.TransparentBorder = False
TabOrder = 9
Height = 37
Width = 121
end
object edtChen: TcxTextEdit
Left = 74
Top = 412
Style.HotTrack = False
Style.TransparentBorder = False
TabOrder = 26
Text = #8730
OnClick = edtChenClick
Width = 57
end
object edtMaBiao: TcxTextEdit
Left = 177
Top = 412
Style.HotTrack = False
Style.TransparentBorder = False
TabOrder = 28
Text = #8730
OnClick = edtMaBiaoClick
Width = 121
end
object outPage: TcxTextEdit
Left = 344
Top = 412
Style.HotTrack = False
Style.TransparentBorder = False
TabOrder = 30
Text = #8730
OnClick = outPageClick
Width = 121
end
object labNumber: TComboBox
Left = 511
Top = 412
Width = 83
Height = 27
ItemIndex = 0
TabOrder = 31
Text = '1'
OnChange = labNumberChange
Items.Strings = (
'1'
'2'
'3'
'4')
end
object dxLayoutControl_packGroup_Root: TdxLayoutGroup object dxLayoutControl_packGroup_Root: TdxLayoutGroup
AlignHorz = ahClient AlignHorz = ahClient
AlignVert = avTop AlignVert = avTop
@ -847,6 +889,7 @@
SizeOptions.SizableVert = True SizeOptions.SizableVert = True
SizeOptions.Width = 188 SizeOptions.Width = 188
Hidden = True Hidden = True
ItemIndex = 3
ShowBorder = False ShowBorder = False
UseIndent = False UseIndent = False
Index = 0 Index = 0
@ -1199,7 +1242,7 @@
Index = 0 Index = 0
end end
object dxLayoutItem24: TdxLayoutItem object dxLayoutItem24: TdxLayoutItem
Parent = dxLayoutAutoCreatedGroup4 Parent = dxLayoutAutoCreatedGroup7
AlignHorz = ahLeft AlignHorz = ahLeft
AlignVert = avClient AlignVert = avClient
SizeOptions.AssignedValues = [sovSizableHorz, sovSizableVert] SizeOptions.AssignedValues = [sovSizableHorz, sovSizableVert]
@ -1306,7 +1349,7 @@
Index = 6 Index = 6
end end
object dxLayoutItem14: TdxLayoutItem object dxLayoutItem14: TdxLayoutItem
Parent = dxLayoutAutoCreatedGroup4 Parent = dxLayoutAutoCreatedGroup9
AlignVert = avClient AlignVert = avClient
SizeOptions.Width = 77 SizeOptions.Width = 77
CaptionOptions.Text = #31995#25968#36716#25442 CaptionOptions.Text = #31995#25968#36716#25442
@ -1315,7 +1358,7 @@
ControlOptions.OriginalHeight = 29 ControlOptions.OriginalHeight = 29
ControlOptions.OriginalWidth = 77 ControlOptions.OriginalWidth = 77
ControlOptions.ShowBorder = False ControlOptions.ShowBorder = False
Index = 1 Index = 0
end end
object dxLayoutAutoCreatedGroup4: TdxLayoutAutoCreatedGroup object dxLayoutAutoCreatedGroup4: TdxLayoutAutoCreatedGroup
Parent = dxLayoutAutoCreatedGroup2 Parent = dxLayoutAutoCreatedGroup2
@ -1360,7 +1403,7 @@
Index = -1 Index = -1
end end
object dxLayoutItem_packpost: TdxLayoutItem object dxLayoutItem_packpost: TdxLayoutItem
Parent = dxLayoutAutoCreatedGroup4 Parent = dxLayoutAutoCreatedGroup10
AlignHorz = ahClient AlignHorz = ahClient
AlignVert = avClient AlignVert = avClient
Visible = False Visible = False
@ -1372,7 +1415,7 @@
ControlOptions.OriginalHeight = 33 ControlOptions.OriginalHeight = 33
ControlOptions.OriginalWidth = 75 ControlOptions.OriginalWidth = 75
ControlOptions.ShowBorder = False ControlOptions.ShowBorder = False
Index = 2 Index = 0
end end
object dxLayoutItem_customStrField1: TdxLayoutItem object dxLayoutItem_customStrField1: TdxLayoutItem
CaptionOptions.Text = #33258#23450#20041#36755#20837'1' CaptionOptions.Text = #33258#23450#20041#36755#20837'1'
@ -1455,18 +1498,8 @@
ControlOptions.ShowBorder = False ControlOptions.ShowBorder = False
Index = -1 Index = -1
end end
object dxLayoutItem4: TdxLayoutItem
Parent = dxLayoutGroup_plan_1
AlignVert = avClient
CaptionOptions.Text = #26579#21378#32568#21495
Control = FtyPCId
ControlOptions.OriginalHeight = 27
ControlOptions.OriginalWidth = 145
ControlOptions.ShowBorder = False
Index = 3
end
object dxLayoutItem20: TdxLayoutItem object dxLayoutItem20: TdxLayoutItem
Parent = dxLayoutAutoCreatedGroup4 Parent = dxLayoutAutoCreatedGroup8
AlignHorz = ahClient AlignHorz = ahClient
AlignVert = avClient AlignVert = avClient
Visible = False Visible = False
@ -1478,7 +1511,7 @@
ControlOptions.OriginalHeight = 22 ControlOptions.OriginalHeight = 22
ControlOptions.OriginalWidth = 23 ControlOptions.OriginalWidth = 23
ControlOptions.ShowBorder = False ControlOptions.ShowBorder = False
Index = 3 Index = 0
end end
object dxLayoutItem12: TdxLayoutItem object dxLayoutItem12: TdxLayoutItem
Parent = dxLayoutGroup_do1 Parent = dxLayoutGroup_do1
@ -1489,6 +1522,74 @@
ControlOptions.ShowBorder = False ControlOptions.ShowBorder = False
Index = 5 Index = 5
end end
object dxLayoutItem19: TdxLayoutItem
Parent = dxLayoutGroup_plan_1
AlignVert = avClient
CaptionOptions.Text = #26579#21378#32568#21495
Control = FtyPCId
ControlOptions.OriginalHeight = 27
ControlOptions.OriginalWidth = 121
ControlOptions.ShowBorder = False
Index = 3
end
object dxLayoutItem_chen: TdxLayoutItem
Parent = dxLayoutAutoCreatedGroup7
SizeOptions.Width = 83
CaptionOptions.Text = #31216
Control = edtChen
ControlOptions.OriginalHeight = 27
ControlOptions.OriginalWidth = 53
ControlOptions.ShowBorder = False
Index = 1
end
object dxLayoutItem4: TdxLayoutItem
Parent = dxLayoutAutoCreatedGroup9
CaptionOptions.Text = #30721#34920
Control = edtMaBiao
ControlOptions.OriginalHeight = 27
ControlOptions.OriginalWidth = 121
ControlOptions.ShowBorder = False
Index = 1
end
object dxLayoutItem22: TdxLayoutItem
Parent = dxLayoutAutoCreatedGroup10
CaptionOptions.Text = #20986#32440
Control = outPage
ControlOptions.OriginalHeight = 27
ControlOptions.OriginalWidth = 121
ControlOptions.ShowBorder = False
Index = 1
end
object dxLayoutItem23: TdxLayoutItem
Parent = dxLayoutAutoCreatedGroup8
AlignHorz = ahLeft
AlignVert = avTop
CaptionOptions.Text = #20221#25968
Control = labNumber
ControlOptions.OriginalHeight = 27
ControlOptions.OriginalWidth = 83
ControlOptions.ShowBorder = False
Index = 1
end
object dxLayoutAutoCreatedGroup7: TdxLayoutAutoCreatedGroup
Parent = dxLayoutAutoCreatedGroup4
AlignHorz = ahLeft
Index = 0
end
object dxLayoutAutoCreatedGroup9: TdxLayoutAutoCreatedGroup
Parent = dxLayoutAutoCreatedGroup4
Index = 1
end
object dxLayoutAutoCreatedGroup8: TdxLayoutAutoCreatedGroup
Parent = dxLayoutAutoCreatedGroup4
AlignHorz = ahClient
Index = 3
end
object dxLayoutAutoCreatedGroup10: TdxLayoutAutoCreatedGroup
Parent = dxLayoutAutoCreatedGroup4
AlignHorz = ahClient
Index = 2
end
end end
object Panel_right: TPanel [1] object Panel_right: TPanel [1]
Left = 1037 Left = 1037
@ -1501,9 +1602,9 @@
object cxGrid3: TcxGrid object cxGrid3: TcxGrid
Tag = 9999 Tag = 9999
Left = 1 Left = 1
Top = 121 Top = 151
Width = 250 Width = 250
Height = 341 Height = 303
Align = alClient Align = alClient
TabOrder = 0 TabOrder = 0
object Tv3: TcxGridDBTableView object Tv3: TcxGridDBTableView
@ -1716,6 +1817,20 @@
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 50 Width = 50
end end
object Tv3Column2: TcxGridDBColumn
Caption = #36873#20013
DataBinding.FieldName = 'ssel'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 60
end
object Tv3Column3: TcxGridDBColumn
DataBinding.FieldName = 'Bstatus'
DataBinding.IsNullValueType = True
Visible = False
Width = 20
IsCaptionAssigned = True
end
end end
object cxGridLevel2: TcxGridLevel object cxGridLevel2: TcxGridLevel
GridView = Tv3 GridView = Tv3
@ -1983,7 +2098,7 @@
Left = 1 Left = 1
Top = 1 Top = 1
Width = 250 Width = 250
Height = 120 Height = 150
AutoSize = True AutoSize = True
ButtonHeight = 30 ButtonHeight = 30
ButtonWidth = 115 ButtonWidth = 115
@ -2062,15 +2177,41 @@
Caption = #34920#26684#21015#35774#32622 Caption = #34920#26684#21015#35774#32622
ImageIndex = 16 ImageIndex = 16
end end
object ToolButton8: TToolButton object ToolButton1: TToolButton
Left = 119 Left = 119
Top = 90 Top = 90
AutoSize = True AutoSize = True
Caption = #37325#26032#25171#21253
ImageIndex = 4
Wrap = True
OnClick = ToolButton1Click
end
object ToolButton2: TToolButton
Left = 0
Top = 120
AutoSize = True
Caption = #25764#38144#25171#21253
ImageIndex = 14
OnClick = ToolButton2Click
end
object ToolButton8: TToolButton
Left = 103
Top = 120
AutoSize = True
Caption = #20851#38381 Caption = #20851#38381
ImageIndex = 7 ImageIndex = 7
OnClick = ToolButton8Click OnClick = ToolButton8Click
end end
end end
object cxSplitter1: TcxSplitter
Left = 1
Top = 454
Width = 250
Height = 8
HotZoneClassName = 'TcxMediaPlayer9Style'
AlignSplitter = salBottom
Control = cxPageControl1
end
end end
object dxPanel_mid: TdxPanel [2] object dxPanel_mid: TdxPanel [2]
Left = 411 Left = 411

496
T03贸易布匹检验/U_MachRollMain.pas
View File

@ -18,7 +18,7 @@ uses
U_KeyBoard, cxGroupBox, cxGridCustomPopupMenu, cxGridPopupMenu, MovePanel, U_KeyBoard, cxGroupBox, cxGridCustomPopupMenu, cxGridPopupMenu, MovePanel,
RM_RichEdit, cxProgressBar, cxCurrencyEdit, dxSkinsCore, dxSkinWXI, frxBarcode, RM_RichEdit, cxProgressBar, cxCurrencyEdit, dxSkinsCore, dxSkinWXI, frxBarcode,
frxOLE, frxRich, frxClass, frxDBSet, frxTableObject, frxExportPPTX, frxOLE, frxRich, frxClass, frxDBSet, frxTableObject, frxExportPPTX,
frxExportXLSX, frxExportBaseDialog, frxExportXLS, Vcl.Mask; frxExportXLSX, frxExportBaseDialog, frxExportXLS, Vcl.Mask, cxSplitter;
type type
TfrmMachRollMain = class(TfrmBaseList) TfrmMachRollMain = class(TfrmBaseList)
@ -236,8 +236,6 @@ type
unitPieces: TcxTextEdit; unitPieces: TcxTextEdit;
dxLayoutItem_unitPieces: TdxLayoutItem; dxLayoutItem_unitPieces: TdxLayoutItem;
Tv3unitPieces: TcxGridDBColumn; Tv3unitPieces: TcxGridDBColumn;
FtyPCId: TComboBox;
dxLayoutItem4: TdxLayoutItem;
frxXLSExport1: TfrxXLSExport; frxXLSExport1: TfrxXLSExport;
frxXLSXExport1: TfrxXLSXExport; frxXLSXExport1: TfrxXLSXExport;
frxPPTXExport1: TfrxPPTXExport; frxPPTXExport1: TfrxPPTXExport;
@ -255,6 +253,25 @@ type
PlateNo: TcxTextEdit; PlateNo: TcxTextEdit;
dxLayoutItem12: TdxLayoutItem; dxLayoutItem12: TdxLayoutItem;
Tv3Column1: TcxGridDBColumn; Tv3Column1: TcxGridDBColumn;
ToolButton1: TToolButton;
ToolButton2: TToolButton;
Tv3Column2: TcxGridDBColumn;
dxLayoutItem19: TdxLayoutItem;
FtyPCId: TcxTextEdit;
Tv3Column3: TcxGridDBColumn;
cxSplitter1: TcxSplitter;
edtChen: TcxTextEdit;
dxLayoutItem_chen: TdxLayoutItem;
edtMaBiao: TcxTextEdit;
dxLayoutItem4: TdxLayoutItem;
outPage: TcxTextEdit;
dxLayoutItem22: TdxLayoutItem;
labNumber: TComboBox;
dxLayoutItem23: TdxLayoutItem;
dxLayoutAutoCreatedGroup7: TdxLayoutAutoCreatedGroup;
dxLayoutAutoCreatedGroup9: TdxLayoutAutoCreatedGroup;
dxLayoutAutoCreatedGroup8: TdxLayoutAutoCreatedGroup;
dxLayoutAutoCreatedGroup10: TdxLayoutAutoCreatedGroup;
procedure FormCreate(Sender: TObject); procedure FormCreate(Sender: TObject);
procedure FormShow(Sender: TObject); procedure FormShow(Sender: TObject);
procedure Button_badClick(Sender: TObject); procedure Button_badClick(Sender: TObject);
@ -300,13 +317,20 @@ type
procedure dxLayoutControl_packDblClick(Sender: TObject); procedure dxLayoutControl_packDblClick(Sender: TObject);
procedure FtyPCIdChange(Sender: TObject); procedure FtyPCIdChange(Sender: TObject);
procedure BANClick(Sender: TObject); procedure BANClick(Sender: TObject);
procedure ToolButton2Click(Sender: TObject);
procedure ToolButton1Click(Sender: TObject);
procedure BatchNOExit(Sender: TObject);
procedure edtChenClick(Sender: TObject);
procedure edtMaBiaoClick(Sender: TObject);
procedure outPageClick(Sender: TObject);
procedure labNumberChange(Sender: TObject);
private private
FCIID, FOperationStatus, FCIFName, FWorkshop: string; FCIID, FOperationStatus, FCIFName, FWorkshop: string;
FBCIOID, FOrderNo, FMainId, FSubId, FPCId, FConNo, FConMId, fBuyConNo, FConSId: string; FBCIOID, FOrderNo, FMainId, FSubId, FPCId, FConNo, FConMId, fBuyConNo, FConSId: string;
FBatchNO, FLenUnit, FC_Code, FC_Name, FC_EName, FC_Spec, FC_Width, FC_GramWeight: string; FBatchNO, FLenUnit, FC_Code, FC_Name, FC_EName, FC_Spec, FC_Width, FC_GramWeight: string;
FC_Color, FC_EColor, FC_ColorNo, FC_StyleNo, FC_Composition, FC_Pattern, FC_CustPattern, FC_ColorDepth: string; FC_Color, FC_EColor, FC_ColorNo, FC_StyleNo, FC_Composition, FC_Pattern, FC_CustPattern, FC_ColorDepth: string;
Faddwet, faddlen: double; Faddwet, faddlen: double;
FFtyPCId, FGangNo, FRulePieceNo, FCDUnit: string; FFtyPCId, FGangNo, FRulePieceNo, FRulePackNo, FCDUnit: string;
FPieceNo: Integer; FPieceNo: Integer;
fIsPack: string; fIsPack: string;
fIsCommopen: Boolean; fIsCommopen: Boolean;
@ -343,6 +367,7 @@ type
procedure On1301(var Message: Tmessage); message 1301; // 码表 procedure On1301(var Message: Tmessage); message 1301; // 码表
procedure initEditPiece(); procedure initEditPiece();
procedure GetPacketNo(); procedure GetPacketNo();
procedure GetRulePacketNo();
procedure getPlanImage(MSubID: string); procedure getPlanImage(MSubID: string);
function deletePack(packId: string): boolean; function deletePack(packId: string): boolean;
function checkPicecNo(): boolean; function checkPicecNo(): boolean;
@ -501,7 +526,8 @@ begin
end; end;
if (cds_params.fieldbyName('packlabnumber').AsInteger > 0) then if (cds_params.fieldbyName('packlabnumber').AsInteger > 0) then
PrintBao(MPacketId); PrintBao(MPacketId);
edtPacketNo.Text := inttostr(strtoint(edtPacketNo.Text) + 1); // edtPacketNo.Text := inttostr(strtoint(edtPacketNo.Text) + 1);
GetRulePacketNo();
FPacketCIID := ''; FPacketCIID := '';
FPacketCount := 0; FPacketCount := 0;
ADOQueryBaseCmd.Connection.CommitTrans; ADOQueryBaseCmd.Connection.CommitTrans;
@ -672,6 +698,48 @@ begin
end; end;
procedure TfrmMachRollMain.BatchNOExit(Sender: TObject);
begin
if BTPrint.Caption = '提 交' then
begin
with ADOQueryBaseCmd do
begin
Close;
sql.Clear;
if FRulePieceNo = '按订单生成' then
begin
sql.Add('select maxRoll=1+isnull(cast(max(PieceNo) as int),0) from Trade_Cloth_Inspect X where X.mainID=' + quotedstr(Trim(FMainId)));
end
else if FRulePieceNo = '按缸号生成' then
begin
sql.Add('select maxRoll=1+isnull(cast(max(PieceNo) as int),0)from Trade_Cloth_Inspect X ');
sql.Add('where X.mainID=''' + Trim(FMainId) + ''' and X.subid=''' + Trim(FSubId) + ''' and X.c_color=' + quotedstr(Trim(FC_Color)) + ' and isnull(X.BatchNO,'''')=' + quotedstr(Trim(BatchNO.Text)));
end
else if FRulePieceNo = '按颜色生成' then
begin
sql.Add('select maxRoll=1+isnull(cast(max(PieceNo) as int),0) from Trade_Cloth_Inspect X ');
sql.Add('where X.mainID=''' + Trim(FMainId) + ''' and X.subid=''' + Trim(FSubId) + ''' and X.c_color=' + quotedstr(Trim(FC_Color)));
end
else if (FRulePieceNo = '手动') or (FRulePieceNo = '手动生成') then
begin
end
else
begin
sql.Add('select maxRoll=1+isnull(cast(max(PieceNo) as int),0) ');
sql.Add('from Trade_Cloth_Inspect X where X.subID=''' + trim(FSubId) + ''' ');
end;
Open;
end;
PieceNo.Text := Trim(ADOQueryBaseCmd.fieldbyname('maxRoll').AsString);
end;
end;
procedure TfrmMachRollMain.btnRKClick(Sender: TObject); procedure TfrmMachRollMain.btnRKClick(Sender: TObject);
var var
MINo, MStkIds: string; MINo, MStkIds: string;
@ -892,6 +960,19 @@ begin
frameKeyBoard1.SpeedButton10.Visible := false; frameKeyBoard1.SpeedButton10.Visible := false;
end; end;
dxLayoutItem20.Visible := true; dxLayoutItem20.Visible := true;
if not cds_params.IsEmpty then
begin
cds_params.Edit;
with cds_params do
begin
cds_params.fieldByName('chen').Value := '1';
cds_params.fieldByName('mabiao').Value := '1';
cds_params.fieldByName('outPage').Value := '√';
cds_params.fieldByName('labNumber').Value := StrToIntDef(labNumber.Text, 1);
end;
cds_params.Post;
end;
end; end;
procedure TfrmMachRollMain.frameBads1CIFBegDblClick(Sender: TObject); procedure TfrmMachRollMain.frameBads1CIFBegDblClick(Sender: TObject);
@ -1035,7 +1116,7 @@ begin
begin begin
if strtointdef(edtPacketNo.Text, 0) = 0 then if strtointdef(edtPacketNo.Text, 0) = 0 then
raise Exception.create('包号不能为空!'); raise Exception.create('包号不能为空!');
if cds_params.fieldbyName('packRolls').AsInteger = 0 then if (cds_params.fieldbyName('packRolls').AsInteger = 0) and (trim(cds_params.fieldbyName('packNoMake').AsString) = '自动') then
raise Exception.create('每包卷数还未设置!'); raise Exception.create('每包卷数还未设置!');
end; end;
@ -1235,6 +1316,7 @@ begin
customStrField1.Text := trim(fieldbyName('PO').AsString); customStrField1.Text := trim(fieldbyName('PO').AsString);
// FFtyPCId := trim(fieldbyName('FtyPCId').AsString); // FFtyPCId := trim(fieldbyName('FtyPCId').AsString);
FRulePieceNo := trim(fieldbyName('RulePieceNo').AsString); FRulePieceNo := trim(fieldbyName('RulePieceNo').AsString);
FRulePackNo := trim(fieldbyName('RulePackNo').AsString);
//加重 //加重
Faddwet := fieldbyName('RuleAddwet').AsFloat; Faddwet := fieldbyName('RuleAddwet').AsFloat;
//加长 //加长
@ -1261,7 +1343,7 @@ begin
cds_params.fieldbyName('packNoMake').value := '手动'; cds_params.fieldbyName('packNoMake').value := '手动';
cds_params.Post; cds_params.Post;
dxLayoutItem_packno.Visible := true; dxLayoutItem_packno.Visible := true;
edtPacketNo.Text := ''; // edtPacketNo.Text := '';
end; end;
// 每包卷数 // 每包卷数
cds_params.edit; cds_params.edit;
@ -1276,16 +1358,23 @@ begin
begin begin
cds_params.fieldbyName('dabao').value := ''; cds_params.fieldbyName('dabao').value := '';
end; end;
if fieldbyName('DecimalY').AsInteger > 0 then // if fieldbyName('DecimalY').AsInteger > 0 then
cds_params.fieldbyName('Yplace').value := fieldbyName('DecimalY').AsInteger; // cds_params.fieldbyName('Yplace').value := fieldbyName('DecimalY').AsInteger;
if fieldbyName('DecimalM').AsInteger > 0 then // if fieldbyName('DecimalM').AsInteger > 0 then
cds_params.fieldbyName('MPlace').value := fieldbyName('DecimalM').AsInteger; // cds_params.fieldbyName('MPlace').value := fieldbyName('DecimalM').AsInteger;
if fieldbyName('DecimalKg').AsInteger > 0 then // if fieldbyName('DecimalKg').AsInteger > 0 then
cds_params.fieldbyName('kgPlace').value := fieldbyName('DecimalKg').AsInteger; // cds_params.fieldbyName('kgPlace').value := fieldbyName('DecimalKg').AsInteger;
if ADOQueryBaseTemp.fieldbyName('DecimalY').AsInteger >= 0 then
cds_params.fieldbyName('Yplace').value := ADOQueryBaseTemp.fieldbyName('DecimalY').AsInteger;
if ADOQueryBaseTemp.fieldbyName('DecimalM').AsInteger >= 0 then
cds_params.fieldbyName('MPlace').value := ADOQueryBaseTemp.fieldbyName('DecimalM').AsInteger;
if ADOQueryBaseTemp.fieldbyName('DecimalKg').AsInteger >= 0 then
cds_params.fieldbyName('kgPlace').value := ADOQueryBaseTemp.fieldbyName('DecimalKg').AsInteger;
// //
cds_params.fieldbyName('outPage').value := '√'; cds_params.fieldbyName('outPage').value := '√';
cds_params.fieldbyName('dabao').value := '√';
cds_params.fieldByName('packlabNumber').Value := '1';
cds_params.Post; cds_params.Post;
// //
// BatchNO.Text := trim(fieldbyName('batchNo').AsString); // BatchNO.Text := trim(fieldbyName('batchNo').AsString);
@ -1352,13 +1441,13 @@ begin
SQL.Add(')'); SQL.Add(')');
open; open;
end; end;
FtyPCId.Clear; // FtyPCId.Clear;
while not ADOQueryBaseCmd.Eof do // while not ADOQueryBaseCmd.Eof do
begin // begin
FtyPCId.Items.Add(ADOQueryBaseCmd.FieldByName('FtyPCId').AsString); // FtyPCId.Items.Add(ADOQueryBaseCmd.FieldByName('FtyPCId').AsString);
ADOQueryBaseCmd.Next; // ADOQueryBaseCmd.Next;
end; // end;
FtyPCId.ItemIndex := 0; // FtyPCId.ItemIndex := 0;
InitJYGrid(); InitJYGrid();
InitCDGrid(FCIID); InitCDGrid(FCIID);
@ -1389,6 +1478,21 @@ begin
QuantityConversion(); QuantityConversion();
end; end;
procedure TfrmMachRollMain.labNumberChange(Sender: TObject);
begin
inherited;
if not cds_params.IsEmpty then
begin
cds_params.Edit;
with cds_params do
begin
cds_params.fieldByName('labNumber').Value := StrToIntDef(labNumber.Text, 1);
end;
cds_params.Post;
end;
end;
procedure TfrmMachRollMain.lblRuleConversionPropertiesChange(Sender: TObject); procedure TfrmMachRollMain.lblRuleConversionPropertiesChange(Sender: TObject);
begin begin
inherited; inherited;
@ -1449,6 +1553,106 @@ begin
end; end;
procedure TfrmMachRollMain.ToolButton1Click(Sender: TObject);
var
MPacketId, FCXPacketCIID: string;
begin
if (trim(cds_params.fieldbyName('dabao').AsString) <> '√') then
exit;
try
packPostBtn.Enabled := false;
FCXPacketCIID := '';
with CDS_3 do
begin
First;
while not Eof do
begin
if CDS_3.FieldByName('ssel').AsBoolean = True then
begin
FCXPacketCIID := FCXPacketCIID + ',' + trim(cds_3.fieldbyName('CIID').AsString);
end;
Next;
end;
if GetLSNo(ADOQueryBaseTemp, MPacketId, 'BI', 'Trade_Cloth_Inspect', 4, 1) = false then
begin
Application.MessageBox('取包条码最大号失败！', '提示', 0);
exit;
end;
end;
try
ADOQueryBaseCmd.Connection.BeginTrans;
with ADOQueryBaseCmd do
begin
Close;
SQL.Clear;
SQL.Add('Update Trade_Cloth_Inspect Set PacketTime=GETDATE() , PacketNo=' + trim(edtPacketNo.Text) + ',PacketId=' + QuotedStr(trim(MPacketId)) + ',PacketCode=' + QuotedStr(trim(DCode)) + ',PacketName=' + QuotedStr(trim(DName)));
SQL.Add('WHERE EXISTS(select X.RTValue from [dbo].[F_Tool_SplitString](' + QuotedStr(FCXPacketCIID) + ','','') X where Trade_Cloth_Inspect.CIID=X.RTValue ) ');
SQL.Add('Update Bs_Cloth_IO Set PacketTime=GETDATE() , PacketNo=' + trim(edtPacketNo.Text) + ',PacketId=' + QuotedStr(trim(MPacketId)) + ',PacketCode=' + QuotedStr(trim(DCode)) + ',PacketName=' + QuotedStr(trim(DName)));
SQL.Add('WHERE EXISTS(select X.RTValue from [dbo].[F_Tool_SplitString](' + QuotedStr(FCXPacketCIID) + ','','') X where Bs_Cloth_IO.STKID=X.RTValue ) ');
// showmessage(SQL.text);
ExecSQL;
end;
if (cds_params.fieldbyName('packlabnumber').AsInteger > 0) then
PrintBao(MPacketId);
// edtPacketNo.Text := inttostr(strtoint(edtPacketNo.Text) + 1);
GetRulePacketNo();
FPacketCIID := '';
FPacketCount := 0;
ADOQueryBaseCmd.Connection.CommitTrans;
//
if fileexists(ExtractFilePath(Application.ExeName) + '正确.wav') then
playSound(pwidechar('正确.wav'), 0, SND_FILENAME or SND_ASYNC);
except
ADOQueryBaseCmd.Connection.RollbackTrans;
Application.MessageBox('打包失败！', '提示信息', 0);
end;
finally
InitJYGrid();
packPostBtn.Enabled := true;
end;
end;
procedure TfrmMachRollMain.ToolButton2Click(Sender: TObject);
var
cxPacketCIID: string;
begin
if CDS_3.IsEmpty then
Exit;
if Application.MessageBox('确定要撤销打包吗？', '提示', 32 + 4) <> IDYES then
Exit;
with CDS_3 do
begin
First;
while not Eof do
begin
if CDS_3.FieldByName('ssel').AsBoolean = True then
begin
with ADOCmd do
begin
Close;
sql.Clear;
SQL.Add('Update Trade_Cloth_Inspect Set PacketTime=null, PacketNo=null,PacketId=null,PacketCode=null,PacketName=null ');
SQL.Add('WHERE CIID=' + QuotedStr(trim(cds_3.fieldbyName('CIID').AsString)));
SQL.Add('Update Bs_Cloth_IO Set PacketTime=null, PacketNo=null,PacketId=null,PacketCode=null,PacketName=null ');
SQL.Add('WHERE STKID=' + QuotedStr(trim(cds_3.fieldbyName('CIID').AsString)));
SQL.Add('insert into Trade_Need_Up(UType,UOperation,UDataId,uoperator) values(''检验'',''检验删除'',' + QuotedStr(trim(cds_3.fieldbyName('CIID').AsString)) + ',' + QuotedStr(DName) + ') ');
// showmessage(sql.text);
execsql;
end;
end;
Next;
end;
end;
InitJYGrid();
end;
procedure TfrmMachRollMain.ToolButton3Click(Sender: TObject); procedure TfrmMachRollMain.ToolButton3Click(Sender: TObject);
begin begin
if cds_3.IsEmpty then if cds_3.IsEmpty then
@ -1551,7 +1755,9 @@ end;
procedure TfrmMachRollMain.Tv3CustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean); procedure TfrmMachRollMain.Tv3CustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
begin begin
if AViewInfo.GridRecord.Values[TcxGridDBTableView(Sender).GetColumnByFieldName('Grade').Index] = '´ÎÆ·' then // if AViewInfo.GridRecord.Values[TcxGridDBTableView(Sender).GetColumnByFieldName('Grade').Index] = '次品' then
// ACanvas.Brush.Color := clRed;
if AViewInfo.GridRecord.Values[TcxGridDBTableView(Sender).GetColumnByFieldName('Bstatus').Index] > 0 then
ACanvas.Brush.Color := clRed; ACanvas.Brush.Color := clRed;
end; end;
@ -1739,10 +1945,11 @@ begin
else else
dxLayoutItem_packpost.Visible := false; dxLayoutItem_packpost.Visible := false;
// //
if cds_3.IsEmpty then // if cds_3.IsEmpty then
edtPacketNo.Text := '1' // edtPacketNo.Text := '1'
else // else
GetPacketNo(); // GetPacketNo();
GetRulePacketNo();
end end
else else
begin begin
@ -1859,7 +2066,7 @@ begin
begin begin
Close; Close;
SQL.Clear; SQL.Clear;
SQL.Add('select A.*'); SQL.Add('select A.*,Bstatus=(case when isnull(PacketNo,0)>0 then 1 else 0 end)');
SQL.Add('from Trade_Cloth_Inspect A where BCIOID=''' + trim(FBCIOID) + ''''); SQL.Add('from Trade_Cloth_Inspect A where BCIOID=''' + trim(FBCIOID) + '''');
SQL.Add('order by filltime desc'); SQL.Add('order by filltime desc');
Open; Open;
@ -1932,6 +2139,19 @@ begin
Application.MessageBox('还未有需要打包的卷！', '提示', 0); Application.MessageBox('还未有需要打包的卷！', '提示', 0);
exit; exit;
end; end;
with ADOQuery1 do
begin
Close;
SQL.Clear;
SQL.Add('select isnull(count(*),0) as js from Trade_Cloth_Inspect where PacketNo=''' + trim(edtPacketNo.Text) + ''' and mainid='''+trim(Fmainid)+''' ');
open;
end;
if ADOQuery1.fieldbyName('JS').AsInteger =1 then
begin
Application.MessageBox('包号重复，请重新打包!', '提示', 0);
Exit;
end;
if FPacketCount > 0 then if FPacketCount > 0 then
begin begin
if GetLSNo(ADOQueryBaseTemp, MPacketId, 'BI', 'Trade_Cloth_Inspect', 4, 1) = false then if GetLSNo(ADOQueryBaseTemp, MPacketId, 'BI', 'Trade_Cloth_Inspect', 4, 1) = false then
@ -1954,7 +2174,8 @@ begin
end; end;
if (cds_params.fieldbyName('packlabnumber').AsInteger > 0) then if (cds_params.fieldbyName('packlabnumber').AsInteger > 0) then
PrintBao(MPacketId); PrintBao(MPacketId);
edtPacketNo.Text := inttostr(strtoint(edtPacketNo.Text) + 1); // edtPacketNo.Text := inttostr(strtoint(edtPacketNo.Text) + 1);
GetRulePacketNo();
FPacketCIID := ''; FPacketCIID := '';
FPacketCount := 0; FPacketCount := 0;
ADOQueryBaseCmd.Connection.CommitTrans; ADOQueryBaseCmd.Connection.CommitTrans;
@ -2055,6 +2276,55 @@ begin
cxPageControl1.ActivePageIndex := 0; cxPageControl1.ActivePageIndex := 0;
end; end;
procedure TfrmMachRollMain.edtChenClick(Sender: TObject);
begin
inherited;
if trim(edtChen.Text) = '' then
begin
edtChen.Text := '√';
end
else
begin
edtChen.Text := '';
end;
if not cds_params.IsEmpty then
begin
cds_params.Edit;
with cds_params do
begin
if Trim(edtChen.Text) = '√' then
cds_params.fieldByName('chen').Value := '1'
else
cds_params.fieldByName('chen').Value := '0';
end;
cds_params.Post;
end;
end;
procedure TfrmMachRollMain.outPageClick(Sender: TObject);
begin
inherited;
if trim(outPage.Text) = '' then
begin
outPage.Text := '√';
end
else
begin
outPage.Text := '';
end;
if not cds_params.IsEmpty then
begin
cds_params.Edit;
with cds_params do
begin
// 出纸
cds_params.fieldByName('outPage').Value := outPage.Text;
end;
cds_params.Post;
end;
end;
procedure TfrmMachRollMain.dxLayoutControl_packDblClick(Sender: TObject); procedure TfrmMachRollMain.dxLayoutControl_packDblClick(Sender: TObject);
begin begin
if gIsCanDesign then if gIsCanDesign then
@ -2093,6 +2363,31 @@ begin
// end; // end;
end; end;
procedure TfrmMachRollMain.edtMaBiaoClick(Sender: TObject);
begin
inherited;
if trim(edtMaBiao.Text) = '' then
begin
edtMaBiao.Text := '√';
end
else
begin
edtMaBiao.Text := '';
end;
if not cds_params.IsEmpty then
begin
cds_params.Edit;
with cds_params do
begin
if Trim(edtMaBiao.Text) = '√' then
cds_params.fieldByName('mabiao').Value := '1'
else
cds_params.fieldByName('mabiao').Value := '0';
end;
cds_params.Post;
end;
end;
procedure TfrmMachRollMain.Edit_pieceOrderClick(Sender: TObject); procedure TfrmMachRollMain.Edit_pieceOrderClick(Sender: TObject);
begin begin
inherited; inherited;
@ -2210,8 +2505,8 @@ begin
begin begin
MTare := strtofloatdef(trim(Tare.Text), 0); // 皮重 MTare := strtofloatdef(trim(Tare.Text), 0); // 皮重
MInputWeight := RoundFloat(strtofloatdef(trim(InputWeight.Text), 0), cds_params.fieldbyName('KgPlace').AsInteger); //输入为 毛重 MInputWeight := RoundFloat(strtofloatdef(trim(InputWeight.Text), 0), cds_params.fieldbyName('KgPlace').AsInteger); //输入为 毛重
MGrossWeight := MInputWeight + Maddwet; // ëÖØ + ¼ÓÖØ MGrossWeight := MInputWeight + Maddwet + mpresentWeight; // 毛重 + 加重
MNetWeight := MInputWeight + Maddwet - MTare; // ¾»ÖØ + ¼ÓÖØ // MNetWeight := MInputWeight + Maddwet - MTare; // 净重 + 加重
// MGrossWeight := MInputWeight + Maddwet + mpresentWeight; // 毛重 + 加重 // MGrossWeight := MInputWeight + Maddwet + mpresentWeight; // 毛重 + 加重
MNetWeight := MInputWeight + Maddwet - MTare + mpresentWeight; // 净重 + 加重 MNetWeight := MInputWeight + Maddwet - MTare + mpresentWeight; // 净重 + 加重
fieldbyName('InputWeight').value := MInputWeight; fieldbyName('InputWeight').value := MInputWeight;
@ -2505,6 +2800,7 @@ begin
Close; Close;
SQL.Clear; SQL.Clear;
SQL.Add('exec P_Trade_Insp_In_Stk @CIID=''' + trim(MCIID) + ''''); SQL.Add('exec P_Trade_Insp_In_Stk @CIID=''' + trim(MCIID) + '''');
// ShowMessage(sql.Text);
ExecSQL; ExecSQL;
end; end;
// Open; // Open;
@ -2637,8 +2933,8 @@ begin
Open; Open;
end; end;
if trim(ADOQueryPrint.fieldbyName('SLabPackage').AsString) <> '' then if trim(ADOQueryPrint.fieldbyName('LabPackage').AsString) <> '' then
fLabPackage := trim(ADOQueryPrint.fieldbyName('SLabPackage').AsString) fLabPackage := trim(ADOQueryPrint.fieldbyName('LabPackage').AsString)
else else
fLabPackage := ADOQueryPrint.fieldbyName('LabPackage').AsString; fLabPackage := ADOQueryPrint.fieldbyName('LabPackage').AsString;
@ -2651,31 +2947,31 @@ begin
Application.MessageBox(pchar('没有找包标签' + fPrintFile), '提示', 0); Application.MessageBox(pchar('没有找包标签' + fPrintFile), '提示', 0);
exit; exit;
end; end;
// if FileExists(fPrintFile) then
// begin
// RM1.LoadFromFile(fPrintFile);
// RM1.DefaultCopies := cds_params.fieldbyName('packlabnumber').AsInteger;
// if cds_params.fieldByName('packPrintPreview').AsBoolean then
// RM1.ShowReport
// else
// RM1.PrintReport;
// end;
if FileExists(fPrintFile) then if FileExists(fPrintFile) then
begin begin
RM1.LoadFromFile(fPrintFile);
frxReport1.LoadFromFile(fPrintFile); RM1.DefaultCopies := cds_params.fieldbyName('packlabnumber').AsInteger;
frxReport1.PrintOptions.Copies := cds_params.fieldbyName('packlabnumber').AsInteger;
if cds_params.fieldByName('packPrintPreview').AsBoolean then if cds_params.fieldByName('packPrintPreview').AsBoolean then
begin RM1.ShowReport
frxReport1.PrintOptions.ShowDialog := true;
frxReport1.ShowReport;
end
else else
begin RM1.PrintReport;
frxReport1.PrintOptions.ShowDialog := false; // end;
frxReport1.PrepareReport(true); // if FileExists(fPrintFile) then
frxReport1.Print(); // begin
end; //
// frxReport1.LoadFromFile(fPrintFile);
// frxReport1.PrintOptions.Copies := cds_params.fieldbyName('packlabnumber').AsInteger;
// if cds_params.fieldByName('packPrintPreview').AsBoolean then
// begin
// frxReport1.PrintOptions.ShowDialog := true;
// frxReport1.ShowReport;
// end
// else
// begin
// frxReport1.PrintOptions.ShowDialog := false;
// frxReport1.PrepareReport(true);
// frxReport1.Print();
// end;
end end
else else
@ -2773,9 +3069,31 @@ begin
if (trim(cds_params.fieldbyName('mabiao').AsString) = '1') then if (trim(cds_params.fieldbyName('mabiao').AsString) = '1') then
begin begin
InputLen.Text := format('%.2f', [i1 / 100000]); // InputLen.Text := format('%.2f', [i1 / 100000]);
if trim(cds_params.fieldbyName('mbunit').AsString) = '1' then // if trim(cds_params.fieldbyName('mbunit').AsString) = '1' then
// begin
// if i2 = 0 then
// begin
// SetUnit('M');
// end
// else
// begin
// SetUnit('Y');
// end;
// end;
if (SCXFlag = '1') or (SCXFlag = '2') then
begin begin
if frameBads1.lblLenUnit1.Caption = 'M' then
begin
InputLen.Text := format('%.' + trim(FMPlace) + 'f', [i1 / 100000]);
end
else
InputLen.Text := format('%.' + trim(FMPlace) + 'f', [i1 / 100000 / 0.9144]);
end
else
begin
InputLen.Text := format('%.' + trim(FMPlace) + 'f', [i1 / 100000]);
if i2 = 0 then if i2 = 0 then
begin begin
SetUnit('M'); SetUnit('M');
@ -2799,7 +3117,7 @@ begin
if trim(cds_params.fieldbyName('chen').AsString) = '1' then if trim(cds_params.fieldbyName('chen').AsString) = '1' then
begin begin
InputWeight.Text := format('%.2f', [i1 / 100000]); InputWeight.Text := format('%.' + trim(FKgPlace) + 'f', [i1 / 100000]);
end; end;
end; end;
@ -2892,6 +3210,68 @@ begin
end; end;
procedure TfrmMachRollMain.GetRulePacketNo();
var
mMaxPacketNo: string;
begin
try
if FRulePackNo = '按缸号生成' then
begin
with ADOQueryBaseTemp do
begin
Close;
SQL.Clear;
SQL.Add('select max(cast(isnull(PacketNo,''0'') as int) )+1 as MaxPacketNo from Trade_Cloth_Inspect X ');
sql.Add('where X.mainID=''' + Trim(FMainId) + ''' and X.subid=''' + Trim(FSubId) + ''' and X.c_color=' + quotedstr(Trim(FC_Color)) + ' and isnull(X.BatchNO,'''')=' + quotedstr(Trim(BatchNO.Text)));
Open;
end;
end
else if FRulePackNo = '按订单生成' then
begin
with ADOQueryBaseTemp do
begin
Close;
SQL.Clear;
SQL.Add('select max(cast(isnull(PacketNo,''0'') as int) )+1 as MaxPacketNo from Trade_Cloth_Inspect X ');
SQL.Add('where X.mainID=''' + Trim(FMainId) + ''' and OrderNo=' + QuotedStr(trim(OrderNo.Text)));
Open;
end;
end
else if FRulePackNo = '按颜色生成' then
begin
with ADOQueryBaseTemp do
begin
Close;
SQL.Clear;
SQL.Add('select max(cast(isnull(PacketNo,''0'') as int) )+1 as MaxPacketNo from Trade_Cloth_Inspect X ');
sql.Add('where X.mainID=''' + Trim(FMainId) + ''' and X.subid=''' + Trim(FSubId) + ''' and X.c_color=' + quotedstr(Trim(FC_Color)));
Open;
end;
end
else
begin
with ADOQueryBaseTemp do
begin
Close;
SQL.Clear;
SQL.Add('select max(cast(isnull(PacketNo,''0'') as int) )+1 as MaxPacketNo from Trade_Cloth_Inspect X ');
SQL.Add('where X.mainID=''' + Trim(FMainId) + ''' and OrderNo=' + QuotedStr(trim(OrderNo.Text)));
Open;
end;
end;
mMaxPacketNo := trim(ADOQueryBaseTemp.fieldbyName('MaxPacketNo').AsString);
if mMaxPacketNo = '' then
mMaxPacketNo := '1';
edtPacketNo.Text := mMaxPacketNo;
except
end;
end;
procedure TfrmMachRollMain.getPlanImage(MSubID: string); procedure TfrmMachRollMain.getPlanImage(MSubID: string);
begin begin
with ADOQueryImage do with ADOQueryImage do
@ -2986,13 +3366,13 @@ begin
else if FRulePieceNo = '按缸号生成' then else if FRulePieceNo = '按缸号生成' then
begin begin
sql.Add('select mainId,C_color,batchNo,pieceNo from Trade_Cloth_Inspect X '); sql.Add('select mainId,C_color,batchNo,pieceNo from Trade_Cloth_Inspect X ');
sql.Add('where X.mainID=''' + Trim(FMainId) + ''' and X.c_color=' + quotedstr(Trim(FC_Color)) + ' and isnull(X.BatchNO,'''')=' + quotedstr(Trim(BatchNO.Text))); sql.Add('where X.mainID=''' + Trim(FMainId) + ''' and X.subid=''' + Trim(FSubId) + ''' and X.c_color=' + quotedstr(Trim(FC_Color)) + ' and isnull(X.BatchNO,'''')=' + quotedstr(Trim(BatchNO.Text)));
sql.Add(' Group by mainId,C_color,BatchNO,pieceNo having count(*)>1'); sql.Add(' Group by mainId,C_color,BatchNO,pieceNo having count(*)>1');
end end
else if FRulePieceNo = '按颜色生成' then else if FRulePieceNo = '按颜色生成' then
begin begin
sql.Add('select mainId,C_color,pieceNo from Trade_Cloth_Inspect X '); sql.Add('select mainId,C_color,pieceNo from Trade_Cloth_Inspect X ');
sql.Add('where X.mainID=''' + Trim(FMainId) + ''' and X.c_color=' + quotedstr(Trim(FC_Color))); sql.Add('where X.mainID=''' + Trim(FMainId) + ''' and X.subid=''' + Trim(FSubId) + ''' and X.c_color=' + quotedstr(Trim(FC_Color)));
sql.Add(' Group by mainId,C_color,pieceNo having count(*)>1'); sql.Add(' Group by mainId,C_color,pieceNo having count(*)>1');
end; end;

45
T03贸易布匹检验/U_ParamSet.dfm
View File

@ -62,25 +62,25 @@ object frmParamSet: TfrmParamSet
Visible = True Visible = True
end end
inherited edtMaBiao: TcxTextEdit inherited edtMaBiao: TcxTextEdit
ExplicitHeight = 38 ExplicitHeight = 34
end end
inherited edtMBDW: TcxTextEdit inherited edtMBDW: TcxTextEdit
ExplicitHeight = 38 ExplicitHeight = 34
end end
inherited edtChen: TcxTextEdit inherited edtChen: TcxTextEdit
ExplicitHeight = 38 ExplicitHeight = 34
end end
inherited outPage: TcxTextEdit inherited outPage: TcxTextEdit
ExplicitHeight = 38 ExplicitHeight = 34
end end
inherited AddwetPresent: TcxTextEdit inherited AddwetPresent: TcxTextEdit
ExplicitHeight = 31 ExplicitHeight = 27
end end
inherited AddLenPresent: TcxTextEdit inherited AddLenPresent: TcxTextEdit
ExplicitHeight = 31 ExplicitHeight = 27
end end
inherited presentNumFlag: TcxComboBox inherited presentNumFlag: TcxComboBox
ExplicitHeight = 31 ExplicitHeight = 27
end end
end end
inherited cxGroupBox2: TcxGroupBox inherited cxGroupBox2: TcxGroupBox
@ -95,39 +95,39 @@ object frmParamSet: TfrmParamSet
Touch.TabletOptions = [] Touch.TabletOptions = []
ExplicitLeft = 53 ExplicitLeft = 53
ExplicitTop = 27 ExplicitTop = 27
ExplicitHeight = 31 ExplicitHeight = 27
end end
inherited MaxLen: TcxTextEdit inherited MaxLen: TcxTextEdit
ExplicitHeight = 31 ExplicitHeight = 27
end end
inherited MinWeight: TcxTextEdit inherited MinWeight: TcxTextEdit
ExplicitHeight = 31 ExplicitHeight = 27
end end
inherited MaxWeight: TcxTextEdit inherited MaxWeight: TcxTextEdit
ExplicitHeight = 31 ExplicitHeight = 27
end end
inherited BeginPieceNo: TcxTextEdit inherited BeginPieceNo: TcxTextEdit
Top = 64 Top = 64
Properties.OnChange = FrameParam1BeginPieceNoPropertiesChange Properties.OnChange = FrameParam1BeginPieceNoPropertiesChange
ExplicitTop = 64 ExplicitTop = 64
ExplicitHeight = 31 ExplicitHeight = 27
end end
inherited EndPieceNo: TcxTextEdit inherited EndPieceNo: TcxTextEdit
Properties.OnChange = FrameParam1EndPieceNoPropertiesChange Properties.OnChange = FrameParam1EndPieceNoPropertiesChange
ExplicitHeight = 31 ExplicitHeight = 27
end end
end end
inherited cxGroupBox3: TcxGroupBox inherited cxGroupBox3: TcxGroupBox
ExplicitWidth = 771 ExplicitWidth = 771
Width = 771 Width = 771
inherited MPlace: TcxTextEdit inherited MPlace: TcxTextEdit
ExplicitHeight = 31 ExplicitHeight = 27
end end
inherited YPlace: TcxTextEdit inherited YPlace: TcxTextEdit
ExplicitHeight = 31 ExplicitHeight = 27
end end
inherited KgPlace: TcxTextEdit inherited KgPlace: TcxTextEdit
ExplicitHeight = 31 ExplicitHeight = 27
end end
end end
inherited cxGroupBox4: TcxGroupBox inherited cxGroupBox4: TcxGroupBox
@ -138,19 +138,19 @@ object frmParamSet: TfrmParamSet
inherited edtdabao: TcxTextEdit inherited edtdabao: TcxTextEdit
Style.Font.Height = -16 Style.Font.Height = -16
Style.IsFontAssigned = True Style.IsFontAssigned = True
ExplicitHeight = 34 ExplicitHeight = 30
end end
inherited packRolls: TcxTextEdit inherited packRolls: TcxTextEdit
ExplicitHeight = 31 ExplicitHeight = 27
end end
inherited rollnoMake: TcxComboBox inherited rollnoMake: TcxComboBox
Properties.DropDownListStyle = lsEditFixedList Properties.DropDownListStyle = lsEditFixedList
Style.Font.Charset = GB2312_CHARSET Style.Font.Charset = GB2312_CHARSET
Style.IsFontAssigned = True Style.IsFontAssigned = True
ExplicitHeight = 31 ExplicitHeight = 27
end end
inherited packNoMake: TcxComboBox inherited packNoMake: TcxComboBox
ExplicitHeight = 31 ExplicitHeight = 27
end end
inherited packPrintPreview: TCheckBox inherited packPrintPreview: TCheckBox
Top = 74 Top = 74
@ -161,15 +161,14 @@ object frmParamSet: TfrmParamSet
inherited packlabNumber: TcxComboBox inherited packlabNumber: TcxComboBox
Style.Font.Charset = GB2312_CHARSET Style.Font.Charset = GB2312_CHARSET
Style.IsFontAssigned = True Style.IsFontAssigned = True
ExplicitHeight = 25
end end
inherited packPrintAction: TcxComboBox inherited packPrintAction: TcxComboBox
ExplicitHeight = 31 ExplicitHeight = 27
end end
end end
end end
inherited weightRule: TcxComboBox inherited weightRule: TcxComboBox
ExplicitHeight = 34 ExplicitHeight = 30
end end
end end
object dxPanel1: TdxPanel object dxPanel1: TdxPanel

2
T03贸易布匹检验/U_ParamSet.pas
View File

@ -8,7 +8,7 @@ uses
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, U_frameParam, cxGraphics, cxControls, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, U_frameParam, cxGraphics, cxControls,
cxLookAndFeels, cxLookAndFeelPainters, cxGeometry, cxLookAndFeels, cxLookAndFeelPainters, cxGeometry,
dxFramedControl, Vcl.Menus, Vcl.StdCtrls, cxButtons, dxPanel, dxFramedControl, Vcl.Menus, Vcl.StdCtrls, cxButtons, dxPanel,
Vcl.Touch.Keyboard, Vcl.ExtCtrls, Data.DB, Datasnap.DBClient; Vcl.Touch.Keyboard, Vcl.ExtCtrls, Data.DB, Datasnap.DBClient, dxSkinsCore;
type type
TfrmParamSet = class(TForm) TfrmParamSet = class(TForm)

8
T03贸易布匹检验/U_frameParam.dfm
View File

@ -40,7 +40,6 @@ object FrameParam: TFrameParam
ParentBackground = False ParentBackground = False
ParentFont = False ParentFont = False
TabOrder = 0 TabOrder = 0
ExplicitWidth = 605
object cxGroupBox1: TcxGroupBox object cxGroupBox1: TcxGroupBox
Left = 2 Left = 2
Top = 2 Top = 2
@ -54,8 +53,6 @@ object FrameParam: TFrameParam
Style.Font.Style = [fsBold] Style.Font.Style = [fsBold]
Style.IsFontAssigned = True Style.IsFontAssigned = True
TabOrder = 0 TabOrder = 0
ExplicitTop = -4
ExplicitWidth = 601
Height = 122 Height = 122
Width = 662 Width = 662
object Label16: TLabel object Label16: TLabel
@ -221,7 +218,7 @@ object FrameParam: TFrameParam
Style.IsFontAssigned = True Style.IsFontAssigned = True
TabOrder = 3 TabOrder = 3
Text = #8730 Text = #8730
OnClick = edtMaBiaoClick OnClick = outPageClick
Width = 34 Width = 34
end end
object labNumber: TComboBox object labNumber: TComboBox
@ -297,7 +294,6 @@ object FrameParam: TFrameParam
Style.Font.Style = [fsBold] Style.Font.Style = [fsBold]
Style.IsFontAssigned = True Style.IsFontAssigned = True
TabOrder = 1 TabOrder = 1
ExplicitWidth = 601
Height = 123 Height = 123
Width = 662 Width = 662
object Label9: TLabel object Label9: TLabel
@ -448,7 +444,6 @@ object FrameParam: TFrameParam
Style.Font.Style = [fsBold] Style.Font.Style = [fsBold]
Style.IsFontAssigned = True Style.IsFontAssigned = True
TabOrder = 2 TabOrder = 2
ExplicitWidth = 601
Height = 132 Height = 132
Width = 662 Width = 662
object Label19: TLabel object Label19: TLabel
@ -585,7 +580,6 @@ object FrameParam: TFrameParam
Style.Font.Style = [fsBold] Style.Font.Style = [fsBold]
Style.IsFontAssigned = True Style.IsFontAssigned = True
TabOrder = 3 TabOrder = 3
ExplicitWidth = 601
Height = 122 Height = 122
Width = 662 Width = 662
object Label31: TLabel object Label31: TLabel

30
T03贸易布匹检验/U_frameParam.pas
View File

@ -3,11 +3,11 @@ unit U_frameParam;
interface interface
uses uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants,
Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, cxGraphics, cxControls, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, cxGraphics,
cxLookAndFeels, cxLookAndFeelPainters, cxContainer, cxEdit, cxControls, cxLookAndFeels, cxLookAndFeelPainters, cxContainer, cxEdit,
cxGroupBox, Vcl.StdCtrls, cxTextEdit, Vcl.ExtCtrls, cxMaskEdit, cxGroupBox, Vcl.StdCtrls, cxTextEdit, Vcl.ExtCtrls, cxMaskEdit, cxDropDownEdit,
cxDropDownEdit; dxSkinsCore;
type type
TFrameParam = class(TFrame) TFrameParam = class(TFrame)
@ -66,6 +66,7 @@ type
packPrintAction: TcxComboBox; packPrintAction: TcxComboBox;
presentNumFlag: TcxComboBox; presentNumFlag: TcxComboBox;
procedure edtMaBiaoClick(Sender: TObject); procedure edtMaBiaoClick(Sender: TObject);
procedure outPageClick(Sender: TObject);
private private
{ Private declarations } { Private declarations }
public public
@ -81,13 +82,28 @@ begin
if Trim(TcxTextEdit(Sender).Text) = '' then if Trim(TcxTextEdit(Sender).Text) = '' then
begin begin
TcxTextEdit(Sender).Text := '¡Ì'; TcxTextEdit(Sender).Text := '¡Ì';
packlabNumber.ItemIndex:=1; // packlabNumber.ItemIndex:=1;
end end
else else
begin begin
TcxTextEdit(Sender).Text := ''; TcxTextEdit(Sender).Text := '';
packlabNumber.ItemIndex:=0; // packlabNumber.ItemIndex:=0;
end;
end;
procedure TFrameParam.outPageClick(Sender: TObject);
begin
if Trim(TcxTextEdit(Sender).Text) = '' then
begin
TcxTextEdit(Sender).Text := '¡Ì';
packlabNumber.ItemIndex := 1;
end
else
begin
TcxTextEdit(Sender).Text := '';
packlabNumber.ItemIndex := 0;
end; end;
end; end;
end. end.

1
T03贸易布匹检验/U_iniParam.pas
View File

@ -110,6 +110,7 @@ begin
programIni.WriteString('生产车间配置', '启用码表Dll文件', IsMBDYDll); programIni.WriteString('生产车间配置', '启用码表Dll文件', IsMBDYDll);
programIni.WriteString('生产车间配置', '启用码表单位', IsMBDYDllUnit); programIni.WriteString('生产车间配置', '启用码表单位', IsMBDYDllUnit);
programIni.WriteString('生产车间配置', '标签份数', LabQty); programIni.WriteString('生产车间配置', '标签份数', LabQty);
programIni.WriteString('生产车间配置', '米数下限', FMinLen); programIni.WriteString('生产车间配置', '米数下限', FMinLen);