1342 lines
35 KiB
Plaintext
1342 lines
35 KiB
Plaintext
inherited frmMachRollMain: TfrmMachRollMain
|
|
Caption = #26426#21488#26816#39564
|
|
ClientHeight = 756
|
|
ClientWidth = 1443
|
|
Color = clBtnFace
|
|
Font.Charset = ANSI_CHARSET
|
|
Font.Height = -16
|
|
FormStyle = fsMDIChild
|
|
ExplicitWidth = 1459
|
|
ExplicitHeight = 795
|
|
PixelsPerInch = 96
|
|
TextHeight = 21
|
|
object Panel1: TPanel [0]
|
|
Left = 0
|
|
Top = 0
|
|
Width = 499
|
|
Height = 756
|
|
Align = alLeft
|
|
TabOrder = 4
|
|
object Label1: TLabel
|
|
Left = 15
|
|
Top = 30
|
|
Width = 64
|
|
Height = 21
|
|
Caption = #25195#25551#20837#21475
|
|
Font.Charset = ANSI_CHARSET
|
|
Font.Color = clRed
|
|
Font.Height = -16
|
|
Font.Name = #24494#36719#38597#40657
|
|
Font.Style = []
|
|
ParentFont = False
|
|
end
|
|
object Label2: TLabel
|
|
Left = 31
|
|
Top = 85
|
|
Width = 48
|
|
Height = 21
|
|
Caption = #25351#31034#21333
|
|
Font.Charset = ANSI_CHARSET
|
|
Font.Color = clBlack
|
|
Font.Height = -16
|
|
Font.Name = #24494#36719#38597#40657
|
|
Font.Style = []
|
|
ParentFont = False
|
|
end
|
|
object Label3: TLabel
|
|
Left = 47
|
|
Top = 119
|
|
Width = 32
|
|
Height = 21
|
|
Caption = #33394#21495
|
|
Font.Charset = ANSI_CHARSET
|
|
Font.Color = clBlack
|
|
Font.Height = -16
|
|
Font.Name = #24494#36719#38597#40657
|
|
Font.Style = []
|
|
ParentFont = False
|
|
end
|
|
object Label4: TLabel
|
|
Left = 15
|
|
Top = 154
|
|
Width = 64
|
|
Height = 21
|
|
Caption = #26579#21378#32568#21495
|
|
Font.Charset = ANSI_CHARSET
|
|
Font.Color = clBlack
|
|
Font.Height = -16
|
|
Font.Name = #24494#36719#38597#40657
|
|
Font.Style = []
|
|
ParentFont = False
|
|
end
|
|
object Label5: TLabel
|
|
Left = 47
|
|
Top = 188
|
|
Width = 32
|
|
Height = 21
|
|
Caption = #25968#37327
|
|
Font.Charset = ANSI_CHARSET
|
|
Font.Color = clBlack
|
|
Font.Height = -16
|
|
Font.Name = #24494#36719#38597#40657
|
|
Font.Style = []
|
|
ParentFont = False
|
|
end
|
|
object Label6: TLabel
|
|
Left = 271
|
|
Top = 85
|
|
Width = 32
|
|
Height = 21
|
|
Caption = #21697#21517
|
|
Font.Charset = ANSI_CHARSET
|
|
Font.Color = clBlack
|
|
Font.Height = -16
|
|
Font.Name = #24494#36719#38597#40657
|
|
Font.Style = []
|
|
ParentFont = False
|
|
end
|
|
object Label7: TLabel
|
|
Left = 271
|
|
Top = 119
|
|
Width = 32
|
|
Height = 21
|
|
Caption = #39068#33394
|
|
Font.Charset = ANSI_CHARSET
|
|
Font.Color = clBlack
|
|
Font.Height = -16
|
|
Font.Name = #24494#36719#38597#40657
|
|
Font.Style = []
|
|
ParentFont = False
|
|
end
|
|
object Label8: TLabel
|
|
Left = 271
|
|
Top = 154
|
|
Width = 32
|
|
Height = 21
|
|
Caption = #21345#21495
|
|
Font.Charset = ANSI_CHARSET
|
|
Font.Color = clBlack
|
|
Font.Height = -16
|
|
Font.Name = #24494#36719#38597#40657
|
|
Font.Style = []
|
|
ParentFont = False
|
|
end
|
|
object Label9: TLabel
|
|
Left = 33
|
|
Top = 259
|
|
Width = 42
|
|
Height = 28
|
|
Caption = #38271#24230
|
|
Font.Charset = ANSI_CHARSET
|
|
Font.Color = clRed
|
|
Font.Height = -21
|
|
Font.Name = #24494#36719#38597#40657
|
|
Font.Style = []
|
|
ParentFont = False
|
|
end
|
|
object lblLenUnit: TLabel
|
|
Left = 250
|
|
Top = 262
|
|
Width = 16
|
|
Height = 21
|
|
Caption = 'M'
|
|
Font.Charset = ANSI_CHARSET
|
|
Font.Color = clBlack
|
|
Font.Height = -16
|
|
Font.Name = #24494#36719#38597#40657
|
|
Font.Style = []
|
|
ParentFont = False
|
|
end
|
|
object Label10: TLabel
|
|
Left = 33
|
|
Top = 318
|
|
Width = 42
|
|
Height = 28
|
|
Caption = #37325#37327
|
|
Font.Charset = ANSI_CHARSET
|
|
Font.Color = clRed
|
|
Font.Height = -21
|
|
Font.Name = #24494#36719#38597#40657
|
|
Font.Style = []
|
|
ParentFont = False
|
|
end
|
|
object Label11: TLabel
|
|
Left = 250
|
|
Top = 321
|
|
Width = 22
|
|
Height = 21
|
|
Caption = 'KG'
|
|
Font.Charset = ANSI_CHARSET
|
|
Font.Color = clBlack
|
|
Font.Height = -16
|
|
Font.Name = #24494#36719#38597#40657
|
|
Font.Style = []
|
|
ParentFont = False
|
|
end
|
|
object Label12: TLabel
|
|
Left = 41
|
|
Top = 388
|
|
Width = 32
|
|
Height = 21
|
|
Caption = #31995#25968
|
|
Font.Charset = ANSI_CHARSET
|
|
Font.Color = clBlack
|
|
Font.Height = -16
|
|
Font.Name = #24494#36719#38597#40657
|
|
Font.Style = []
|
|
ParentFont = False
|
|
end
|
|
object edtScan: TcxTextEdit
|
|
Tag = 999
|
|
Left = 85
|
|
Top = 27
|
|
Properties.CharCase = ecUpperCase
|
|
Style.HotTrack = False
|
|
Style.LookAndFeel.Kind = lfUltraFlat
|
|
Style.LookAndFeel.SkinName = 'WXI'
|
|
Style.TransparentBorder = False
|
|
StyleDisabled.LookAndFeel.Kind = lfUltraFlat
|
|
StyleDisabled.LookAndFeel.SkinName = 'WXI'
|
|
StyleFocused.LookAndFeel.Kind = lfUltraFlat
|
|
StyleFocused.LookAndFeel.SkinName = 'WXI'
|
|
StyleHot.LookAndFeel.Kind = lfUltraFlat
|
|
StyleHot.LookAndFeel.SkinName = 'WXI'
|
|
TabOrder = 0
|
|
OnClick = edtScanEnter
|
|
OnDblClick = edtScanDblClick
|
|
OnKeyPress = edtScanKeyPress
|
|
Width = 384
|
|
end
|
|
object OrderNo: TcxTextEdit
|
|
Left = 85
|
|
Top = 81
|
|
Properties.ReadOnly = True
|
|
Style.HotTrack = False
|
|
Style.TransparentBorder = False
|
|
TabOrder = 1
|
|
Width = 160
|
|
end
|
|
object ColorNo: TcxTextEdit
|
|
Left = 85
|
|
Top = 115
|
|
Properties.ReadOnly = True
|
|
Style.HotTrack = False
|
|
Style.TransparentBorder = False
|
|
TabOrder = 2
|
|
Width = 160
|
|
end
|
|
object FtyPCId: TcxTextEdit
|
|
Left = 85
|
|
Top = 150
|
|
Properties.ReadOnly = False
|
|
Style.HotTrack = False
|
|
Style.TransparentBorder = False
|
|
TabOrder = 3
|
|
OnClick = edtScanEnter
|
|
Width = 160
|
|
end
|
|
object Qty: TcxTextEdit
|
|
Left = 85
|
|
Top = 184
|
|
Properties.ReadOnly = True
|
|
Style.HotTrack = False
|
|
Style.TransparentBorder = False
|
|
TabOrder = 4
|
|
Width = 160
|
|
end
|
|
object BCIOID: TcxTextEdit
|
|
Left = 309
|
|
Top = 150
|
|
Properties.ReadOnly = True
|
|
Style.HotTrack = False
|
|
Style.TransparentBorder = False
|
|
TabOrder = 5
|
|
Width = 160
|
|
end
|
|
object Color: TcxTextEdit
|
|
Left = 309
|
|
Top = 115
|
|
Properties.ReadOnly = True
|
|
Style.HotTrack = False
|
|
Style.TransparentBorder = False
|
|
TabOrder = 6
|
|
Width = 160
|
|
end
|
|
object CodeName: TcxTextEdit
|
|
Left = 309
|
|
Top = 81
|
|
Properties.ReadOnly = True
|
|
Style.HotTrack = False
|
|
Style.TransparentBorder = False
|
|
TabOrder = 7
|
|
Width = 160
|
|
end
|
|
object InputLen: TcxTextEdit
|
|
Tag = 999
|
|
Left = 85
|
|
Top = 255
|
|
AutoSize = False
|
|
Properties.ReadOnly = False
|
|
Properties.OnChange = InputLenPropertiesChange
|
|
Style.HotTrack = False
|
|
Style.TransparentBorder = False
|
|
TabOrder = 8
|
|
OnClick = edtScanEnter
|
|
OnKeyPress = InputLenKeyPress
|
|
Height = 35
|
|
Width = 158
|
|
end
|
|
object InputWeight: TcxTextEdit
|
|
Tag = 999
|
|
Left = 85
|
|
Top = 314
|
|
AutoSize = False
|
|
Properties.OnChange = InputLenPropertiesChange
|
|
Style.HotTrack = False
|
|
Style.TransparentBorder = False
|
|
TabOrder = 9
|
|
OnClick = edtScanEnter
|
|
OnKeyPress = InputLenKeyPress
|
|
Height = 35
|
|
Width = 96
|
|
end
|
|
object Tare: TcxTextEdit
|
|
Tag = 999
|
|
Left = 187
|
|
Top = 314
|
|
AutoSize = False
|
|
Properties.OnChange = InputLenPropertiesChange
|
|
Style.HotTrack = False
|
|
Style.TransparentBorder = False
|
|
TabOrder = 10
|
|
OnClick = edtScanEnter
|
|
OnKeyPress = InputLenKeyPress
|
|
Height = 35
|
|
Width = 57
|
|
end
|
|
object BTPrint: TButton
|
|
Left = 309
|
|
Top = 314
|
|
Width = 150
|
|
Height = 59
|
|
Caption = #24320' '#35009
|
|
TabOrder = 11
|
|
OnClick = BTPrintClick
|
|
end
|
|
object Coefficient: TcxTextEdit
|
|
Tag = 999
|
|
Left = 83
|
|
Top = 381
|
|
AutoSize = False
|
|
Properties.ReadOnly = False
|
|
Style.HotTrack = False
|
|
Style.TransparentBorder = False
|
|
TabOrder = 12
|
|
OnClick = edtScanEnter
|
|
OnKeyPress = InputLenKeyPress
|
|
Height = 35
|
|
Width = 84
|
|
end
|
|
object lblRuleConversion: TcxComboBox
|
|
Tag = 2
|
|
Left = 187
|
|
Top = 381
|
|
AutoSize = False
|
|
Properties.DropDownListStyle = lsEditFixedList
|
|
Properties.Items.Strings = (
|
|
#26080#38656#36716#25442
|
|
#38271#24230#36716#20844#26020
|
|
#20928#37325#36716#38271#24230
|
|
#27611#37325#36716#38271#24230)
|
|
Properties.OnChange = lblRuleConversionPropertiesChange
|
|
Style.HotTrack = False
|
|
Style.LookAndFeel.SkinName = 'WXI'
|
|
Style.TransparentBorder = False
|
|
StyleDisabled.LookAndFeel.SkinName = 'WXI'
|
|
StyleFocused.LookAndFeel.SkinName = 'WXI'
|
|
StyleHot.LookAndFeel.SkinName = 'WXI'
|
|
TabOrder = 13
|
|
Text = #26080#38656#36716#25442
|
|
Height = 35
|
|
Width = 102
|
|
end
|
|
object AOrdDefNote1: TcxRichEdit
|
|
Left = 33
|
|
Top = 483
|
|
Properties.ReadOnly = True
|
|
Properties.ScrollBars = ssBoth
|
|
Style.HotTrack = False
|
|
Style.TransparentBorder = False
|
|
TabOrder = 14
|
|
Height = 206
|
|
Width = 181
|
|
end
|
|
object packnote: TcxMemo
|
|
Tag = 999
|
|
Left = 259
|
|
Top = 483
|
|
Properties.ReadOnly = True
|
|
Properties.ScrollBars = ssVertical
|
|
Style.HotTrack = False
|
|
Style.TransparentBorder = False
|
|
TabOrder = 15
|
|
Height = 206
|
|
Width = 199
|
|
end
|
|
object unitPieces: TcxTextEdit
|
|
Left = 632
|
|
Top = 769
|
|
Style.HotTrack = False
|
|
Style.TransparentBorder = False
|
|
TabOrder = 16
|
|
Visible = False
|
|
OnClick = edtScanEnter
|
|
Width = 121
|
|
end
|
|
object presentWeight: TcxTextEdit
|
|
Left = 632
|
|
Top = 725
|
|
Style.HotTrack = False
|
|
Style.TransparentBorder = False
|
|
TabOrder = 17
|
|
Visible = False
|
|
OnClick = edtScanEnter
|
|
Width = 121
|
|
end
|
|
object presentLen: TcxTextEdit
|
|
Left = 632
|
|
Top = 703
|
|
Style.HotTrack = False
|
|
Style.TransparentBorder = False
|
|
TabOrder = 18
|
|
Visible = False
|
|
OnClick = edtScanEnter
|
|
Width = 121
|
|
end
|
|
object bt_printmd: TButton
|
|
Left = 632
|
|
Top = 681
|
|
Width = 48
|
|
Height = 33
|
|
Caption = #30721#21333
|
|
TabOrder = 19
|
|
Visible = False
|
|
OnClick = bt_printmdClick
|
|
end
|
|
object addWet: TcxTextEdit
|
|
Left = 632
|
|
Top = 659
|
|
Style.HotTrack = False
|
|
Style.TransparentBorder = False
|
|
TabOrder = 20
|
|
Visible = False
|
|
OnClick = edtScanEnter
|
|
Width = 121
|
|
end
|
|
object addLen: TcxTextEdit
|
|
Left = 632
|
|
Top = 637
|
|
Style.HotTrack = False
|
|
Style.TransparentBorder = False
|
|
TabOrder = 21
|
|
Visible = False
|
|
OnClick = edtScanEnter
|
|
Width = 121
|
|
end
|
|
object C_GramWeight: TcxTextEdit
|
|
Left = 632
|
|
Top = 615
|
|
Style.HotTrack = False
|
|
Style.TransparentBorder = False
|
|
TabOrder = 22
|
|
Visible = False
|
|
OnClick = edtScanEnter
|
|
Width = 121
|
|
end
|
|
object C_Width: TcxTextEdit
|
|
Left = 632
|
|
Top = 593
|
|
Style.HotTrack = False
|
|
Style.TransparentBorder = False
|
|
TabOrder = 23
|
|
Visible = False
|
|
OnClick = edtScanEnter
|
|
Width = 121
|
|
end
|
|
object customStrField2: TcxTextEdit
|
|
Left = 632
|
|
Top = 571
|
|
Style.HotTrack = False
|
|
Style.TransparentBorder = False
|
|
TabOrder = 24
|
|
Visible = False
|
|
OnClick = edtScanEnter
|
|
Width = 121
|
|
end
|
|
object customStrField1: TcxTextEdit
|
|
Left = 632
|
|
Top = 549
|
|
Style.HotTrack = False
|
|
Style.TransparentBorder = False
|
|
TabOrder = 25
|
|
Visible = False
|
|
OnClick = edtScanEnter
|
|
Width = 121
|
|
end
|
|
object C_StyleNo: TcxTextEdit
|
|
Left = 680
|
|
Top = 505
|
|
Properties.ReadOnly = True
|
|
Style.HotTrack = False
|
|
Style.TransparentBorder = False
|
|
TabOrder = 26
|
|
Visible = False
|
|
Width = 168
|
|
end
|
|
object RuleYardstick: TcxTextEdit
|
|
Left = 632
|
|
Top = 505
|
|
AutoSize = False
|
|
Properties.ReadOnly = True
|
|
Style.HotTrack = False
|
|
Style.TransparentBorder = False
|
|
TabOrder = 27
|
|
Text = '100'
|
|
Visible = False
|
|
OnClick = edtScanEnter
|
|
OnKeyPress = InputLenKeyPress
|
|
Height = 29
|
|
Width = 69
|
|
end
|
|
object C_Pattern: TcxTextEdit
|
|
Left = 632
|
|
Top = 483
|
|
Properties.ReadOnly = True
|
|
Style.HotTrack = False
|
|
Style.TransparentBorder = False
|
|
TabOrder = 28
|
|
Visible = False
|
|
Width = 124
|
|
end
|
|
object OutPutWeight: TcxTextEdit
|
|
Tag = 999
|
|
Left = 632
|
|
Top = 439
|
|
AutoSize = False
|
|
Style.HotTrack = False
|
|
Style.TransparentBorder = False
|
|
TabOrder = 29
|
|
Visible = False
|
|
OnClick = edtScanEnter
|
|
OnKeyPress = InputLenKeyPress
|
|
Height = 44
|
|
Width = 191
|
|
end
|
|
object cxDBImage1: TcxDBImage
|
|
Left = 592
|
|
Top = 263
|
|
Hint = 'FileName'
|
|
DataBinding.DataField = 'FilesOther'
|
|
DataBinding.DataSource = DS_IMAGE
|
|
Properties.GraphicClassName = 'TdxSmartImage'
|
|
Properties.GraphicTransparency = gtTransparent
|
|
Properties.ReadOnly = True
|
|
Properties.ShowFocusRect = False
|
|
Style.HotTrack = False
|
|
Style.TransparentBorder = False
|
|
TabOrder = 30
|
|
Visible = False
|
|
Height = 122
|
|
Width = 280
|
|
end
|
|
object Button1: TButton
|
|
Left = 309
|
|
Top = 244
|
|
Width = 150
|
|
Height = 59
|
|
Caption = #20986' '#24211
|
|
TabOrder = 31
|
|
OnClick = Button1Click
|
|
end
|
|
end
|
|
object Panel_right: TPanel [1]
|
|
Left = 499
|
|
Top = 0
|
|
Width = 944
|
|
Height = 756
|
|
Align = alClient
|
|
Caption = 'Panel_right'
|
|
DoubleBuffered = False
|
|
ParentDoubleBuffered = False
|
|
TabOrder = 3
|
|
ExplicitWidth = 1292
|
|
object cxGrid2: TcxGrid
|
|
Left = 1
|
|
Top = 1
|
|
Width = 942
|
|
Height = 421
|
|
Align = alClient
|
|
TabOrder = 0
|
|
ExplicitWidth = 1290
|
|
ExplicitHeight = 450
|
|
object TV2: TcxGridDBTableView
|
|
Navigator.Buttons.CustomButtons = <>
|
|
ScrollbarAnnotations.CustomAnnotations = <>
|
|
DataController.DataSource = DS_2
|
|
DataController.Filter.AutoDataSetFilter = True
|
|
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
|
|
DataController.Summary.DefaultGroupSummaryItems = <
|
|
item
|
|
Format = '0'
|
|
Position = spFooter
|
|
end
|
|
item
|
|
Format = '0'
|
|
Position = spFooter
|
|
Column = v1PRTOrderQty
|
|
end
|
|
item
|
|
Format = '0'
|
|
Position = spFooter
|
|
end>
|
|
DataController.Summary.FooterSummaryItems = <
|
|
item
|
|
Kind = skSum
|
|
Column = v1PRTOrderQty
|
|
end
|
|
item
|
|
Kind = skSum
|
|
end>
|
|
DataController.Summary.SummaryGroups = <>
|
|
OptionsBehavior.FocusCellOnTab = True
|
|
OptionsBehavior.GoToNextCellOnEnter = True
|
|
OptionsBehavior.FocusCellOnCycle = True
|
|
OptionsCustomize.ColumnFiltering = False
|
|
OptionsData.Deleting = False
|
|
OptionsSelection.CheckBoxVisibility = [cbvDataRow]
|
|
OptionsView.Footer = True
|
|
OptionsView.GroupByBox = False
|
|
object cxGridDBColumn1: TcxGridDBColumn
|
|
Tag = 99
|
|
Caption = #36873#25321
|
|
DataBinding.FieldName = 'SSel'
|
|
DataBinding.IsNullValueType = True
|
|
PropertiesClassName = 'TcxCheckBoxProperties'
|
|
Properties.ImmediatePost = True
|
|
Properties.NullStyle = nssUnchecked
|
|
Visible = False
|
|
HeaderAlignmentHorz = taCenter
|
|
Options.Editing = False
|
|
Options.Sorting = False
|
|
Width = 66
|
|
end
|
|
object TV2Column3: TcxGridDBColumn
|
|
Caption = #35746#21333#21495
|
|
DataBinding.FieldName = 'TMMNo'
|
|
DataBinding.IsNullValueType = True
|
|
HeaderAlignmentHorz = taCenter
|
|
Options.Editing = False
|
|
Width = 96
|
|
end
|
|
object TV2Column4: TcxGridDBColumn
|
|
Caption = #23458#25143
|
|
DataBinding.FieldName = 'CustName'
|
|
DataBinding.IsNullValueType = True
|
|
HeaderAlignmentHorz = taCenter
|
|
Options.Editing = False
|
|
Width = 72
|
|
end
|
|
object TV2Column1: TcxGridDBColumn
|
|
Caption = #20135#21697#32534#21495
|
|
DataBinding.FieldName = 'C_Code'
|
|
DataBinding.IsNullValueType = True
|
|
HeaderAlignmentHorz = taCenter
|
|
Options.Editing = False
|
|
Width = 93
|
|
end
|
|
object TV2Column2: TcxGridDBColumn
|
|
Caption = #33394#24067#21517#31216
|
|
DataBinding.FieldName = 'C_Name'
|
|
DataBinding.IsNullValueType = True
|
|
HeaderAlignmentHorz = taCenter
|
|
Options.Editing = False
|
|
Width = 91
|
|
end
|
|
object v1PRTColor: TcxGridDBColumn
|
|
Caption = #39068#33394
|
|
DataBinding.FieldName = 'C_Color'
|
|
DataBinding.IsNullValueType = True
|
|
PropertiesClassName = 'TcxButtonEditProperties'
|
|
Properties.Buttons = <
|
|
item
|
|
Default = True
|
|
Kind = bkEllipsis
|
|
end>
|
|
Properties.ReadOnly = False
|
|
HeaderAlignmentHorz = taCenter
|
|
Options.Editing = False
|
|
Width = 79
|
|
end
|
|
object TV2Column5: TcxGridDBColumn
|
|
Caption = #33394#21495
|
|
DataBinding.FieldName = 'C_ColorNo'
|
|
DataBinding.IsNullValueType = True
|
|
HeaderAlignmentHorz = taCenter
|
|
Options.Editing = False
|
|
Width = 60
|
|
end
|
|
object TV2Column7: TcxGridDBColumn
|
|
Caption = #25253#21333#25968
|
|
DataBinding.FieldName = 'OrderQty'
|
|
DataBinding.IsNullValueType = True
|
|
HeaderAlignmentHorz = taCenter
|
|
Options.Editing = False
|
|
Width = 76
|
|
end
|
|
object TV2Column8: TcxGridDBColumn
|
|
Caption = #25253#21333#21333#20301
|
|
DataBinding.FieldName = 'OrderUnit'
|
|
DataBinding.IsNullValueType = True
|
|
HeaderAlignmentHorz = taCenter
|
|
Width = 78
|
|
end
|
|
object v1PRTOrderQty: TcxGridDBColumn
|
|
Caption = #27424#21333#25968
|
|
DataBinding.FieldName = 'OrderOweQty'
|
|
DataBinding.IsNullValueType = True
|
|
PropertiesClassName = 'TcxTextEditProperties'
|
|
HeaderAlignmentHorz = taCenter
|
|
Options.Editing = False
|
|
Width = 84
|
|
end
|
|
object v1OrderUnit: TcxGridDBColumn
|
|
Caption = #24211#23384#21333#20301
|
|
DataBinding.FieldName = 'TMSUnit'
|
|
DataBinding.IsNullValueType = True
|
|
PropertiesClassName = 'TcxComboBoxProperties'
|
|
Properties.Items.Strings = (
|
|
'M'
|
|
'Y'
|
|
'Kg')
|
|
HeaderAlignmentHorz = taCenter
|
|
Options.Editing = False
|
|
Width = 110
|
|
end
|
|
object cxGridDBColumn7: TcxGridDBColumn
|
|
Caption = #22791#27880
|
|
DataBinding.FieldName = 'OrdSNote'
|
|
DataBinding.IsNullValueType = True
|
|
HeaderAlignmentHorz = taCenter
|
|
Options.Editing = False
|
|
Width = 66
|
|
end
|
|
end
|
|
object cxGridLevel1: TcxGridLevel
|
|
GridView = TV2
|
|
end
|
|
end
|
|
object Panel2: TPanel
|
|
Left = 1
|
|
Top = 422
|
|
Width = 942
|
|
Height = 333
|
|
Align = alBottom
|
|
TabOrder = 1
|
|
ExplicitWidth = 1290
|
|
object cxGrid3: TcxGrid
|
|
Tag = 9999
|
|
Left = 1
|
|
Top = 31
|
|
Width = 940
|
|
Height = 301
|
|
Align = alClient
|
|
TabOrder = 0
|
|
ExplicitLeft = 6
|
|
ExplicitTop = 487
|
|
ExplicitWidth = 1290
|
|
ExplicitHeight = 274
|
|
object Tv3: TcxGridDBTableView
|
|
Navigator.Buttons.CustomButtons = <>
|
|
ScrollbarAnnotations.CustomAnnotations = <>
|
|
OnCustomDrawCell = Tv3CustomDrawCell
|
|
DataController.DataSource = ds_3
|
|
DataController.Filter.AutoDataSetFilter = True
|
|
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
|
|
DataController.Summary.DefaultGroupSummaryItems = <>
|
|
DataController.Summary.FooterSummaryItems = <
|
|
item
|
|
Kind = skSum
|
|
end
|
|
item
|
|
Kind = skSum
|
|
end
|
|
item
|
|
Kind = skSum
|
|
Column = v3GrossWeight
|
|
end
|
|
item
|
|
Kind = skSum
|
|
Column = v3NetWeight
|
|
end
|
|
item
|
|
Format = #21367#25968':0'
|
|
Kind = skCount
|
|
Column = tv3CIID
|
|
end
|
|
item
|
|
Kind = skSum
|
|
end
|
|
item
|
|
Kind = skSum
|
|
Column = Tv3Yardage
|
|
end
|
|
item
|
|
Kind = skSum
|
|
Column = Tv3Meter
|
|
end
|
|
item
|
|
Kind = skSum
|
|
end
|
|
item
|
|
Kind = skCount
|
|
Column = v3PieceNo
|
|
end
|
|
item
|
|
Kind = skSum
|
|
end
|
|
item
|
|
Kind = skSum
|
|
end
|
|
item
|
|
Kind = skSum
|
|
end
|
|
item
|
|
Kind = skSum
|
|
end
|
|
item
|
|
Kind = skSum
|
|
end>
|
|
DataController.Summary.SummaryGroups = <>
|
|
OptionsCustomize.ColumnFiltering = False
|
|
OptionsView.Footer = True
|
|
OptionsView.GroupByBox = False
|
|
object v3PieceNo: TcxGridDBColumn
|
|
Caption = #21367#21495
|
|
DataBinding.FieldName = 'PieceNo'
|
|
DataBinding.IsNullValueType = True
|
|
FixedKind = fkLeftDynamic
|
|
HeaderAlignmentHorz = taCenter
|
|
Options.Editing = False
|
|
Width = 71
|
|
end
|
|
object Tv3Yardage: TcxGridDBColumn
|
|
Caption = #30721#25968
|
|
DataBinding.FieldName = 'Yardage'
|
|
DataBinding.IsNullValueType = True
|
|
HeaderAlignmentHorz = taCenter
|
|
Options.Editing = False
|
|
Width = 69
|
|
end
|
|
object Tv3Meter: TcxGridDBColumn
|
|
Caption = #31859#25968
|
|
DataBinding.FieldName = 'Meter'
|
|
DataBinding.IsNullValueType = True
|
|
HeaderAlignmentHorz = taCenter
|
|
Options.Editing = False
|
|
Width = 79
|
|
end
|
|
object v3NetWeight: TcxGridDBColumn
|
|
Caption = #20928#37325
|
|
DataBinding.FieldName = 'NetWeight'
|
|
DataBinding.IsNullValueType = True
|
|
HeaderAlignmentHorz = taCenter
|
|
Options.Editing = False
|
|
Options.Sorting = False
|
|
Width = 62
|
|
end
|
|
object v3GrossWeight: TcxGridDBColumn
|
|
Caption = #27611#37325
|
|
DataBinding.FieldName = 'GrossWeight'
|
|
DataBinding.IsNullValueType = True
|
|
HeaderAlignmentHorz = taCenter
|
|
Options.Editing = False
|
|
Options.Sorting = False
|
|
Width = 61
|
|
end
|
|
object Tv3Grade: TcxGridDBColumn
|
|
Caption = #31561#32423
|
|
DataBinding.FieldName = 'Grade'
|
|
DataBinding.IsNullValueType = True
|
|
HeaderAlignmentHorz = taCenter
|
|
Options.Editing = False
|
|
Width = 54
|
|
end
|
|
object tv3CIID: TcxGridDBColumn
|
|
Caption = #21367#26465#30721
|
|
DataBinding.FieldName = 'BCIOID'
|
|
DataBinding.IsNullValueType = True
|
|
HeaderAlignmentHorz = taCenter
|
|
Options.Editing = False
|
|
Options.Sorting = False
|
|
Width = 112
|
|
end
|
|
end
|
|
object cxGridLevel2: TcxGridLevel
|
|
GridView = Tv3
|
|
end
|
|
end
|
|
object ToolBar2: TToolBar
|
|
Tag = 1000
|
|
Left = 1
|
|
Top = 1
|
|
Width = 940
|
|
Height = 30
|
|
AutoSize = True
|
|
ButtonHeight = 30
|
|
ButtonWidth = 131
|
|
Caption = 'ToolBar1'
|
|
DoubleBuffered = False
|
|
EdgeInner = esNone
|
|
EdgeOuter = esNone
|
|
Images = DataLink_TradeInsp.cxImageList_bar
|
|
List = True
|
|
ParentDoubleBuffered = False
|
|
ShowCaptions = True
|
|
TabOrder = 1
|
|
ExplicitLeft = 5
|
|
ExplicitTop = 6
|
|
ExplicitWidth = 1288
|
|
object ToolButton3: TToolButton
|
|
Left = 0
|
|
Top = 0
|
|
AutoSize = True
|
|
Caption = #37325#25171
|
|
ImageIndex = 21
|
|
OnClick = ToolButton3Click
|
|
end
|
|
object Trolldel: TToolButton
|
|
Left = 71
|
|
Top = 0
|
|
AutoSize = True
|
|
Caption = #21024#38500
|
|
ImageIndex = 5
|
|
OnClick = TrolldelClick
|
|
end
|
|
object ToolButton4: TToolButton
|
|
Left = 142
|
|
Top = 0
|
|
AutoSize = True
|
|
Caption = #30133#28857#31649#29702
|
|
ImageIndex = 2
|
|
end
|
|
object ToolButton2: TToolButton
|
|
Left = 245
|
|
Top = 0
|
|
AutoSize = True
|
|
Caption = #25171#21360#24211#23384#26631#31614
|
|
ImageIndex = 21
|
|
OnClick = ToolButton2Click
|
|
end
|
|
object ToolButton1: TToolButton
|
|
Left = 356
|
|
Top = 0
|
|
AutoSize = True
|
|
Caption = #25171#21367#35774#32622
|
|
ImageIndex = 25
|
|
OnClick = ToolButton1Click
|
|
end
|
|
object Tlog: TToolButton
|
|
Left = 459
|
|
Top = 0
|
|
AutoSize = True
|
|
Caption = #26085#24535
|
|
ImageIndex = 30
|
|
end
|
|
object ToolButton8: TToolButton
|
|
Left = 530
|
|
Top = 0
|
|
AutoSize = True
|
|
Caption = #20851#38381
|
|
ImageIndex = 7
|
|
OnClick = ToolButton8Click
|
|
end
|
|
end
|
|
end
|
|
end
|
|
object cxGroupBox_keys: TcxGroupBox [2]
|
|
Left = 83
|
|
Top = 451
|
|
Caption = #34394#25311#38190#30424
|
|
Style.LookAndFeel.NativeStyle = False
|
|
StyleDisabled.LookAndFeel.NativeStyle = False
|
|
TabOrder = 2
|
|
Transparent = True
|
|
Visible = False
|
|
Height = 245
|
|
Width = 319
|
|
inline FrameKeyBoard1: TFrameKeyBoard
|
|
Left = 2
|
|
Top = 26
|
|
Width = 315
|
|
Height = 217
|
|
Align = alClient
|
|
TabOrder = 0
|
|
ExplicitLeft = 2
|
|
ExplicitTop = 26
|
|
ExplicitWidth = 315
|
|
ExplicitHeight = 217
|
|
inherited dxPanel1: TdxPanel
|
|
Width = 315
|
|
Height = 217
|
|
ExplicitWidth = 315
|
|
ExplicitHeight = 217
|
|
inherited SpeedButton1: TSpeedButton
|
|
OnClick = FrameKeyBoard1SpeedButton1Click
|
|
end
|
|
inherited SpeedButton4: TSpeedButton
|
|
OnClick = FrameKeyBoard1SpeedButton1Click
|
|
end
|
|
inherited SpeedButton7: TSpeedButton
|
|
OnClick = FrameKeyBoard1SpeedButton1Click
|
|
end
|
|
inherited SpeedButton2: TSpeedButton
|
|
OnClick = FrameKeyBoard1SpeedButton1Click
|
|
end
|
|
inherited SpeedButton5: TSpeedButton
|
|
OnClick = FrameKeyBoard1SpeedButton1Click
|
|
end
|
|
inherited SpeedButton8: TSpeedButton
|
|
OnClick = FrameKeyBoard1SpeedButton1Click
|
|
end
|
|
inherited SpeedButton3: TSpeedButton
|
|
OnClick = FrameKeyBoard1SpeedButton1Click
|
|
end
|
|
inherited SpeedButton6: TSpeedButton
|
|
OnClick = FrameKeyBoard1SpeedButton1Click
|
|
end
|
|
inherited SpeedButton9: TSpeedButton
|
|
OnClick = FrameKeyBoard1SpeedButton1Click
|
|
end
|
|
inherited SpeedButton_back: TSpeedButton
|
|
OnClick = FrameKeyBoard1SpeedButton1Click
|
|
end
|
|
inherited SpeedButton0: TSpeedButton
|
|
OnClick = FrameKeyBoard1SpeedButton1Click
|
|
end
|
|
inherited SpeedButton_dot: TSpeedButton
|
|
OnClick = FrameKeyBoard1SpeedButton1Click
|
|
end
|
|
inherited SpeedButton_yc: TSpeedButton
|
|
OnClick = FrameKeyBoard1SpeedButton_ycClick
|
|
end
|
|
inherited SpeedButton_zdykey2: TSpeedButton
|
|
OnClick = FrameKeyBoard1SpeedButton1Click
|
|
end
|
|
inherited SpeedButton_zdykey1: TSpeedButton
|
|
OnClick = FrameKeyBoard1SpeedButton1Click
|
|
end
|
|
inherited SpeedButton10: TSpeedButton
|
|
OnClick = FrameKeyBoard1SpeedButton1Click
|
|
end
|
|
end
|
|
end
|
|
object MovePanel1: TMovePanel
|
|
Left = 85
|
|
Top = -29
|
|
Width = 237
|
|
Height = 45
|
|
BevelOuter = bvNone
|
|
DockSite = True
|
|
ParentBackground = False
|
|
TabOrder = 1
|
|
end
|
|
end
|
|
inherited loadProcess: TPanel
|
|
Left = 560
|
|
Top = 326
|
|
Width = 177
|
|
ExplicitLeft = 560
|
|
ExplicitTop = 326
|
|
ExplicitWidth = 177
|
|
end
|
|
inherited cxProgressBar2: TcxProgressBar
|
|
Left = 560
|
|
Top = 238
|
|
ExplicitLeft = 560
|
|
ExplicitTop = 238
|
|
ExplicitHeight = 29
|
|
end
|
|
inherited ADOQueryBaseCmd: TADOQuery
|
|
Connection = DataLink_TradeInsp.ADOLink
|
|
Left = 456
|
|
Top = 311
|
|
end
|
|
inherited ADOQueryBaseTemp: TADOQuery
|
|
Connection = DataLink_TradeInsp.ADOLink
|
|
Left = 539
|
|
Top = 311
|
|
end
|
|
object cds_params: TClientDataSet
|
|
Aggregates = <>
|
|
Params = <>
|
|
Left = 788
|
|
Top = 361
|
|
object cds_paramsdabao: TStringField
|
|
FieldName = 'dabao'
|
|
Size = 10
|
|
end
|
|
object cds_paramspackRolls: TIntegerField
|
|
FieldName = 'packRolls'
|
|
end
|
|
object cds_paramsrollNoMake: TStringField
|
|
FieldName = 'rollNoMake'
|
|
end
|
|
object cds_paramsMinWeight: TIntegerField
|
|
FieldName = 'MinWeight'
|
|
end
|
|
object cds_paramsMaxWeight: TIntegerField
|
|
FieldName = 'MaxWeight'
|
|
end
|
|
object cds_paramslblLenUnit: TStringField
|
|
FieldName = 'lblLenUnit'
|
|
end
|
|
object cds_paramsMinLen: TIntegerField
|
|
FieldName = 'MinLen'
|
|
end
|
|
object cds_paramsmaxLen: TIntegerField
|
|
FieldName = 'maxLen'
|
|
end
|
|
object cds_paramsweightRule: TIntegerField
|
|
FieldName = 'weightRule'
|
|
end
|
|
object cds_paramschen: TStringField
|
|
FieldName = 'chen'
|
|
Size = 10
|
|
end
|
|
object cds_paramsmabiao: TStringField
|
|
FieldName = 'mabiao'
|
|
end
|
|
object cds_paramsmbunit: TStringField
|
|
FieldName = 'mbunit'
|
|
end
|
|
object cds_paramsmplace: TIntegerField
|
|
FieldName = 'mplace'
|
|
end
|
|
object cds_paramsyplace: TIntegerField
|
|
FieldName = 'yplace'
|
|
end
|
|
object cds_paramskgplace: TIntegerField
|
|
FieldName = 'kgplace'
|
|
end
|
|
object cds_paramslabNumber: TIntegerField
|
|
FieldName = 'labNumber'
|
|
end
|
|
object cds_paramsoutPage: TStringField
|
|
FieldName = 'outPage'
|
|
Size = 10
|
|
end
|
|
object cds_paramsEndPieceNo: TIntegerField
|
|
FieldName = 'EndPieceNo'
|
|
end
|
|
object cds_paramsBeginPieceNo: TIntegerField
|
|
FieldName = 'BeginPieceNo'
|
|
end
|
|
object cds_paramsFixedLength: TIntegerField
|
|
FieldName = 'FixedLength'
|
|
end
|
|
object cds_paramspacknoMake: TStringField
|
|
FieldName = 'packnoMake'
|
|
Size = 30
|
|
end
|
|
object cds_paramspieceOrder: TBooleanField
|
|
FieldName = 'pieceOrder'
|
|
end
|
|
object cds_paramsLabVolume: TStringField
|
|
FieldName = 'LabVolume'
|
|
Size = 60
|
|
end
|
|
object cds_paramsLabPackage: TStringField
|
|
FieldName = 'LabPackage'
|
|
Size = 60
|
|
end
|
|
object cds_paramsAddwetPresent: TFloatField
|
|
FieldName = 'AddwetPresent'
|
|
end
|
|
object cds_paramsAddLenPresent: TFloatField
|
|
FieldName = 'AddLenPresent'
|
|
end
|
|
object cds_paramspackPrintPreview: TBooleanField
|
|
FieldName = 'packPrintPreview'
|
|
end
|
|
object cds_paramspacklabNumber: TIntegerField
|
|
FieldName = 'packlabNumber'
|
|
end
|
|
object cds_paramspackPostAction: TStringField
|
|
FieldName = 'packPostAction'
|
|
end
|
|
end
|
|
object CDS_2: TClientDataSet
|
|
Aggregates = <>
|
|
Params = <>
|
|
Left = 622
|
|
Top = 361
|
|
end
|
|
object DS_2: TDataSource
|
|
DataSet = CDS_2
|
|
Left = 622
|
|
Top = 411
|
|
end
|
|
object cds_1: TClientDataSet
|
|
Aggregates = <>
|
|
Params = <>
|
|
Left = 539
|
|
Top = 361
|
|
end
|
|
object cds_3: TClientDataSet
|
|
Aggregates = <>
|
|
Params = <>
|
|
Left = 705
|
|
Top = 361
|
|
end
|
|
object ds_3: TDataSource
|
|
DataSet = cds_3
|
|
Left = 705
|
|
Top = 411
|
|
end
|
|
object ds_1: TDataSource
|
|
DataSet = cds_1
|
|
Left = 539
|
|
Top = 411
|
|
end
|
|
object ADOQueryMain: TADOQuery
|
|
Connection = DataLink_TradeInsp.ADOLink
|
|
LockType = ltReadOnly
|
|
Parameters = <>
|
|
Left = 705
|
|
Top = 311
|
|
end
|
|
object ADOQueryPrint: TADOQuery
|
|
Connection = DataLink_TradeInsp.ADOLink
|
|
LockType = ltReadOnly
|
|
Parameters = <>
|
|
Left = 788
|
|
Top = 311
|
|
end
|
|
object GPM_3: TcxGridPopupMenu
|
|
PopupMenus = <>
|
|
Left = 456
|
|
Top = 411
|
|
end
|
|
object ADOQueryImage: TADOQuery
|
|
Connection = DataLink_TradeInsp.ADOLink
|
|
LockType = ltReadOnly
|
|
CommandTimeout = 300
|
|
Parameters = <>
|
|
Left = 622
|
|
Top = 303
|
|
end
|
|
object DS_IMAGE: TDataSource
|
|
DataSet = ADOQueryImage
|
|
Left = 788
|
|
Top = 411
|
|
end
|
|
object ADO_CJ: TADOQuery
|
|
Connection = DataLink_TradeInsp.ADOLink
|
|
LockType = ltReadOnly
|
|
Parameters = <>
|
|
Left = 456
|
|
Top = 361
|
|
end
|
|
object fRMDB_1: TfrxDBDataset
|
|
UserName = 'fRMDB_1'
|
|
CloseDataSource = False
|
|
DataSet = ADOQueryPrint
|
|
BCDToCurrency = False
|
|
Left = 539
|
|
Top = 461
|
|
end
|
|
object frxReport1: TfrxReport
|
|
Version = '6.9.12'
|
|
DataSet = fRMDB_1
|
|
DataSetName = 'fRMDB_1'
|
|
DotMatrixReport = False
|
|
IniFile = '\Software\Fast Reports'
|
|
PreviewOptions.Buttons = [pbPrint, pbLoad, pbSave, pbExport, pbZoom, pbFind, pbOutline, pbPageSetup, pbTools, pbEdit, pbNavigator, pbExportQuick, pbCopy, pbSelection]
|
|
PreviewOptions.Zoom = 1.000000000000000000
|
|
PrintOptions.Printer = 'Default'
|
|
PrintOptions.PrintOnSheet = 0
|
|
ReportOptions.CreateDate = 45471.682319444440000000
|
|
ReportOptions.LastChange = 45471.682319444440000000
|
|
ScriptLanguage = 'PascalScript'
|
|
ScriptText.Strings = (
|
|
'begin'
|
|
''
|
|
'end.')
|
|
ShowProgress = False
|
|
Left = 788
|
|
Top = 461
|
|
Datasets = <>
|
|
Variables = <>
|
|
Style = <>
|
|
object Data: TfrxDataPage
|
|
Height = 1000.000000000000000000
|
|
Width = 1000.000000000000000000
|
|
end
|
|
object Page1: TfrxReportPage
|
|
PaperWidth = 70.000000000000000000
|
|
PaperHeight = 50.000000000000000000
|
|
PaperSize = 256
|
|
LeftMargin = 10.000000000000000000
|
|
RightMargin = 10.000000000000000000
|
|
TopMargin = 10.000000000000000000
|
|
BottomMargin = 10.000000000000000000
|
|
Frame.Typ = []
|
|
MirrorMode = []
|
|
end
|
|
end
|
|
object frxPPTXExport1: TfrxPPTXExport
|
|
UseFileCache = True
|
|
ShowProgress = True
|
|
OverwritePrompt = False
|
|
DataOnly = False
|
|
OpenAfterExport = False
|
|
PictureType = gpPNG
|
|
Left = 705
|
|
Top = 461
|
|
end
|
|
object frxXLSXExport1: TfrxXLSXExport
|
|
UseFileCache = True
|
|
ShowProgress = True
|
|
OverwritePrompt = False
|
|
DataOnly = False
|
|
ChunkSize = 0
|
|
OpenAfterExport = False
|
|
PictureType = gpPNG
|
|
Left = 622
|
|
Top = 511
|
|
end
|
|
object frxReportTableObject1: TfrxReportTableObject
|
|
Left = 456
|
|
Top = 511
|
|
end
|
|
object frxOLEObject1: TfrxOLEObject
|
|
Left = 622
|
|
Top = 461
|
|
end
|
|
object frxRichObject1: TfrxRichObject
|
|
Left = 539
|
|
Top = 511
|
|
end
|
|
object frxBarCodeObject1: TfrxBarCodeObject
|
|
Left = 456
|
|
Top = 461
|
|
end
|
|
object ADO_2: TADOQuery
|
|
Connection = DataLink_TradeInsp.ADOLink
|
|
LockType = ltReadOnly
|
|
Parameters = <>
|
|
Left = 884
|
|
Top = 383
|
|
end
|
|
end
|