D7wmhengming/坯布码单待检(PBMDDJ.dll)/U_BGZLInput.dfm
DESKTOP-E401PHE\Administrator 8f2f47d8f5 ~
2025-04-16 09:11:01 +08:00

858 lines
23 KiB
Plaintext

object frmBGZLInput: TfrmBGZLInput
Left = 116
Top = 99
Width = 1181
Height = 609
Align = alClient
Caption = #25253#20851#36164#26009#21333
Color = clBtnFace
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
OldCreateOrder = False
Position = poScreenCenter
OnDestroy = FormDestroy
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 12
object ToolBar1: TToolBar
Left = 0
Top = 0
Width = 1165
Height = 29
ButtonHeight = 30
ButtonWidth = 59
Caption = 'ToolBar1'
Color = clBtnFace
EdgeInner = esNone
EdgeOuter = esNone
Flat = True
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
Images = DataLink_CYZZ.ThreeImgList
List = True
ParentColor = False
ParentFont = False
ShowCaptions = True
TabOrder = 0
object TBSave: TToolButton
Left = 0
Top = 0
AutoSize = True
Caption = #20445#23384
ImageIndex = 5
OnClick = TBSaveClick
end
object TBClose: TToolButton
Left = 63
Top = 0
AutoSize = True
Caption = #20851#38381
ImageIndex = 21
OnClick = TBCloseClick
end
end
object Panel1: TPanel
Left = 0
Top = 29
Width = 593
Height = 541
Align = alLeft
BevelInner = bvRaised
BevelOuter = bvLowered
TabOrder = 1
object Panel2: TPanel
Left = 2
Top = 2
Width = 589
Height = 249
Align = alTop
BevelInner = bvRaised
BevelOuter = bvLowered
TabOrder = 0
object Panel5: TPanel
Left = 2
Top = 2
Width = 585
Height = 89
Align = alTop
BevelInner = bvRaised
BevelOuter = bvLowered
TabOrder = 0
object Label1: TLabel
Left = 10
Top = 15
Width = 52
Height = 12
Caption = #35746#21333#21495#65306
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label7: TLabel
Left = 507
Top = 15
Width = 39
Height = 12
Caption = #31859#38271#65306
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label18: TLabel
Left = 287
Top = 15
Width = 65
Height = 12
Caption = #25253#20851#21333#20301#65306
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label2: TLabel
Left = 187
Top = 15
Width = 39
Height = 12
Caption = #25209#27425#65306
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label3: TLabel
Left = 287
Top = 40
Width = 65
Height = 12
Caption = #25104#20132#26041#24335#65306
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label4: TLabel
Left = 10
Top = 40
Width = 52
Height = 12
Caption = #28023#36816#36153#65306
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label5: TLabel
Left = 169
Top = 40
Width = 39
Height = 12
Caption = #20445#36153#65306
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label6: TLabel
Left = 145
Top = 40
Width = 7
Height = 12
Caption = '$'
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label8: TLabel
Left = 268
Top = 40
Width = 7
Height = 12
Caption = '$'
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label9: TLabel
Left = 10
Top = 63
Width = 52
Height = 12
Caption = #36135#28304#22320#65306
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label10: TLabel
Left = 198
Top = 63
Width = 65
Height = 12
Caption = #20986#21475#21475#23736#65306
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label11: TLabel
Left = 396
Top = 63
Width = 52
Height = 12
Caption = #36816#25269#22269#65306
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object OrderNo: TEdit
Tag = 2
Left = 55
Top = 11
Width = 129
Height = 20
CharCase = ecUpperCase
TabOrder = 0
OnChange = OrderNoChange
OnKeyPress = OrderNoKeyPress
end
object MLenStr: TEdit
Tag = 2
Left = 541
Top = 11
Width = 42
Height = 20
TabOrder = 1
end
object ComTaiTou: TBtnEditA
Tag = 2
Left = 345
Top = 11
Width = 159
Height = 20
ReadOnly = True
TabOrder = 2
OnBtnClick = ComTaiTouBtnClick
end
object BatchNo: TEdit
Tag = 2
Left = 219
Top = 11
Width = 66
Height = 20
TabOrder = 3
end
object ChengJiaoType: TBtnEditA
Tag = 2
Left = 345
Top = 36
Width = 159
Height = 20
ReadOnly = True
TabOrder = 4
OnBtnClick = ChengJiaoTypeBtnClick
end
object HaiYunFee: TEdit
Tag = 2
Left = 55
Top = 36
Width = 86
Height = 20
TabOrder = 5
end
object BaoFee: TEdit
Tag = 2
Left = 201
Top = 36
Width = 66
Height = 20
TabOrder = 6
end
object HuoYuanPlace: TBtnEditA
Tag = 2
Left = 55
Top = 59
Width = 130
Height = 20
ReadOnly = True
TabOrder = 7
OnBtnClick = HuoYuanPlaceBtnClick
end
object ChuKouKA: TBtnEditA
Tag = 2
Left = 257
Top = 59
Width = 130
Height = 20
ReadOnly = True
TabOrder = 8
OnBtnClick = ChuKouKABtnClick
end
object YunDiG: TBtnEditA
Tag = 2
Left = 442
Top = 59
Width = 141
Height = 20
ReadOnly = True
TabOrder = 9
OnBtnClick = YunDiGBtnClick
end
end
object ToolBar3: TToolBar
Left = 2
Top = 91
Width = 585
Height = 33
ButtonHeight = 30
ButtonWidth = 59
Caption = 'ToolBar1'
Color = clBtnFace
Flat = True
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
Images = DataLink_CYZZ.ThreeImgList
List = True
ParentColor = False
ParentFont = False
ShowCaptions = True
TabOrder = 1
object ToolButton3: TToolButton
Left = 0
Top = 0
AutoSize = True
Caption = #22686#34892
ImageIndex = 12
OnClick = ToolButton3Click
end
object ToolButton4: TToolButton
Left = 63
Top = 0
AutoSize = True
Caption = #21024#34892
ImageIndex = 13
OnClick = ToolButton4Click
end
end
object cxGrid1: TcxGrid
Left = 2
Top = 124
Width = 585
Height = 123
Align = alTop
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 2
object Tv1: TcxGridDBTableView
OnDblClick = TvOrdeNoDblClick
NavigatorButtons.ConfirmDelete = False
DataController.DataSource = DataSource1
DataController.Summary.DefaultGroupSummaryItems = <>
DataController.Summary.FooterSummaryItems = <>
DataController.Summary.SummaryGroups = <>
OptionsCustomize.ColumnFiltering = False
OptionsView.GroupByBox = False
Styles.Header = DataLink_CYZZ.Default
object cxGridDBColumn8: TcxGridDBColumn
Caption = #20013#25991#21697#21517
DataBinding.FieldName = 'BGName'
HeaderAlignmentHorz = taCenter
Width = 178
end
object v1Column1: TcxGridDBColumn
Caption = 'HS'#32534#30721
DataBinding.FieldName = 'HSCode'
HeaderAlignmentHorz = taCenter
Width = 60
end
object v1Column2: TcxGridDBColumn
Caption = #20179#24211#20214#25968
DataBinding.FieldName = 'CangKuPS'
HeaderAlignmentHorz = taCenter
Width = 65
end
object v1Column3: TcxGridDBColumn
Caption = #20179#24211#25968#37327
DataBinding.FieldName = 'CangKuQty'
HeaderAlignmentHorz = taCenter
Width = 62
end
object v1Column4: TcxGridDBColumn
Caption = #21333#20301
DataBinding.FieldName = 'QtyUnit'
PropertiesClassName = 'TcxComboBoxProperties'
Properties.Items.Strings = (
'M'
'KG'
'Y')
HeaderAlignmentHorz = taCenter
Width = 43
end
object v1Column5: TcxGridDBColumn
Caption = #22791#27880
DataBinding.FieldName = 'BNNOte'
HeaderAlignmentHorz = taCenter
Width = 156
end
end
object cxGridLevel2: TcxGridLevel
GridView = Tv1
end
end
object cxGrid6: TcxGrid
Left = 57
Top = 35
Width = 345
Height = 116
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 3
Visible = False
object TvOrdeNo: TcxGridDBTableView
OnDblClick = TvOrdeNoDblClick
NavigatorButtons.ConfirmDelete = False
DataController.DataSource = DS_OrderNo
DataController.Summary.DefaultGroupSummaryItems = <>
DataController.Summary.FooterSummaryItems = <>
DataController.Summary.SummaryGroups = <>
OptionsCustomize.ColumnFiltering = False
OptionsSelection.CellSelect = False
OptionsView.GroupByBox = False
Styles.Header = DataLink_CYZZ.Default
object cxGridDBColumn7: TcxGridDBColumn
Caption = #35746#21333#21495
DataBinding.FieldName = 'OrderNo'
HeaderAlignmentHorz = taCenter
Width = 166
end
object cxGridDBColumn10: TcxGridDBColumn
Caption = #20135#21697#21517#31216
DataBinding.FieldName = 'MPRTCodeName'
HeaderAlignmentHorz = taCenter
Width = 155
end
end
object cxGrid4Level1: TcxGridLevel
GridView = TvOrdeNo
end
end
end
object Panel3: TPanel
Left = 2
Top = 251
Width = 589
Height = 288
Align = alClient
BevelInner = bvRaised
BevelOuter = bvLowered
TabOrder = 1
object ToolBar2: TToolBar
Left = 2
Top = 2
Width = 585
Height = 33
ButtonHeight = 30
ButtonWidth = 59
Caption = 'ToolBar1'
Color = clBtnFace
Flat = True
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
Images = DataLink_CYZZ.ThreeImgList
List = True
ParentColor = False
ParentFont = False
ShowCaptions = True
TabOrder = 0
object ToolButton1: TToolButton
Left = 0
Top = 0
AutoSize = True
Caption = #22686#34892
ImageIndex = 12
OnClick = ToolButton1Click
end
object ToolButton2: TToolButton
Left = 63
Top = 0
AutoSize = True
Caption = #21024#34892
ImageIndex = 13
OnClick = ToolButton2Click
end
end
object cxGrid2: TcxGrid
Left = 2
Top = 35
Width = 585
Height = 251
Align = alClient
TabOrder = 1
object Tv2: TcxGridDBTableView
NavigatorButtons.ConfirmDelete = False
DataController.DataSource = DataSource2
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
DataController.Summary.DefaultGroupSummaryItems = <
item
Format = '0'
Position = spFooter
end
item
Format = '0'
Position = spFooter
end
item
Format = '0'
Position = spFooter
end
item
Format = '0'
Position = spFooter
Column = cxGridDBColumn4
end>
DataController.Summary.FooterSummaryItems = <
item
Kind = skSum
end
item
Kind = skSum
end
item
Kind = skSum
end>
DataController.Summary.SummaryGroups = <>
OptionsBehavior.FocusCellOnTab = True
OptionsBehavior.GoToNextCellOnEnter = True
OptionsBehavior.FocusCellOnCycle = True
OptionsCustomize.ColumnFiltering = False
OptionsView.Footer = True
OptionsView.GroupByBox = False
Styles.Inactive = DataLink_CYZZ.SHuangSe
Styles.IncSearch = DataLink_CYZZ.SHuangSe
Styles.Selection = DataLink_CYZZ.SHuangSe
Styles.Header = DataLink_CYZZ.Default
object cxGridDBColumn1: TcxGridDBColumn
Caption = #24037#24207#21517#31216
DataBinding.FieldName = 'PSName'
PropertiesClassName = 'TcxComboBoxProperties'
HeaderAlignmentHorz = taCenter
Width = 83
end
object cxGridDBColumn2: TcxGridDBColumn
Caption = #20379#24212#21830
DataBinding.FieldName = 'FactoryName'
PropertiesClassName = 'TcxButtonEditProperties'
Properties.Buttons = <
item
Default = True
Kind = bkEllipsis
end>
Properties.ReadOnly = True
Properties.OnButtonClick = cxGridDBColumn2PropertiesButtonClick
HeaderAlignmentHorz = taCenter
Options.Sorting = False
Styles.Header = DataLink_CYZZ.Default
Width = 106
end
object cxGridDBColumn3: TcxGridDBColumn
Caption = #21305#25968
DataBinding.FieldName = 'BQPS'
HeaderAlignmentHorz = taCenter
Width = 72
end
object cxGridDBColumn4: TcxGridDBColumn
Caption = #25968#37327
DataBinding.FieldName = 'BQQty'
HeaderAlignmentHorz = taCenter
Options.Sorting = False
Width = 66
end
object cxGridDBColumn5: TcxGridDBColumn
Caption = #21333#20301
DataBinding.FieldName = 'BQUnit'
PropertiesClassName = 'TcxComboBoxProperties'
Properties.Items.Strings = (
'M'
'KG'
'Y')
HeaderAlignmentHorz = taCenter
Width = 49
end
object cxGridDBColumn6: TcxGridDBColumn
Caption = #22791#27880
DataBinding.FieldName = 'BQNote'
HeaderAlignmentHorz = taCenter
Width = 176
end
end
object cxGridLevel1: TcxGridLevel
GridView = Tv2
end
end
end
end
object Panel4: TPanel
Left = 593
Top = 29
Width = 572
Height = 541
Align = alClient
BevelInner = bvRaised
BevelOuter = bvLowered
TabOrder = 2
object cxGrid7: TcxGrid
Left = 2
Top = 2
Width = 568
Height = 537
Align = alClient
TabOrder = 0
object Tv7: TcxGridDBTableView
OnDblClick = Tv7DblClick
NavigatorButtons.ConfirmDelete = False
DataController.DataSource = DataSource7
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoGroupsAlwaysExpanded, dcoImmediatePost]
DataController.Summary.DefaultGroupSummaryItems = <
item
Format = '0'
Position = spFooter
end
item
Format = '0'
Position = spFooter
end
item
Format = '0'
Position = spFooter
end
item
Kind = skSum
Position = spFooter
Column = cxGridDBColumn31
end
item
Format = '0'
Kind = skSum
Position = spFooter
Column = cxGridDBColumn32
end>
DataController.Summary.FooterSummaryItems = <
item
Kind = skSum
end
item
Kind = skSum
end
item
Kind = skSum
end>
DataController.Summary.SummaryGroups = <>
OptionsBehavior.FocusCellOnTab = True
OptionsBehavior.GoToNextCellOnEnter = True
OptionsBehavior.FocusCellOnCycle = True
OptionsCustomize.ColumnFiltering = False
OptionsData.Editing = False
OptionsView.Footer = True
OptionsView.GroupFooters = gfAlwaysVisible
Styles.Inactive = DataLink_CYZZ.SHuangSe
Styles.IncSearch = DataLink_CYZZ.SHuangSe
Styles.Selection = DataLink_CYZZ.SHuangSe
Styles.Header = DataLink_CYZZ.Default
object cxGridDBColumn30: TcxGridDBColumn
Caption = #20379#24212#21830
DataBinding.FieldName = 'FactoryName'
HeaderAlignmentHorz = taCenter
Options.Sorting = False
Styles.Header = DataLink_CYZZ.FontBlue
Width = 58
end
object cxGridDBColumn34: TcxGridDBColumn
Caption = #24037#24207#21517#31216
DataBinding.FieldName = 'PSNameHZ'
Visible = False
GroupIndex = 0
HeaderAlignmentHorz = taCenter
Styles.Header = DataLink_CYZZ.FontBlue
Width = 61
end
object v7Column2: TcxGridDBColumn
Caption = #31867#22411
DataBinding.FieldName = 'MDType'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Styles.Header = DataLink_CYZZ.FontBlue
Width = 52
end
object cxGridDBColumn32: TcxGridDBColumn
Caption = #21305#25968
DataBinding.FieldName = 'MDPS'
HeaderAlignmentHorz = taCenter
Styles.Footer = DataLink_CYZZ.FontBlue
Styles.Header = DataLink_CYZZ.FontBlue
Width = 48
end
object cxGridDBColumn31: TcxGridDBColumn
Caption = #25968#37327
DataBinding.FieldName = 'MDQty'
HeaderAlignmentHorz = taCenter
Options.Sorting = False
Styles.Footer = DataLink_CYZZ.FoneRed
Styles.Header = DataLink_CYZZ.FontBlue
Width = 84
end
object v7Column1: TcxGridDBColumn
Caption = #21333#20301
DataBinding.FieldName = 'QtyUnit'
HeaderAlignmentHorz = taCenter
Styles.Header = DataLink_CYZZ.FontBlue
Width = 32
end
object cxGridDBColumn36: TcxGridDBColumn
Caption = #22791#27880
DataBinding.FieldName = 'NoteXS'
HeaderAlignmentHorz = taCenter
Styles.Header = DataLink_CYZZ.FontBlue
Width = 188
end
end
object cxGridLevel5: TcxGridLevel
GridView = Tv7
end
end
end
object ADOQueryTemp: TADOQuery
Connection = DataLink_CYZZ.ADOLink
LockType = ltReadOnly
Parameters = <>
Left = 624
Top = 8
end
object ADOQueryMain: TADOQuery
Connection = DataLink_CYZZ.ADOLink
LockType = ltReadOnly
Parameters = <>
Left = 656
Top = 8
end
object ADOQueryCmd: TADOQuery
Connection = DataLink_CYZZ.ADOLink
Parameters = <>
Left = 680
Top = 8
end
object ADOQuery1: TADOQuery
Connection = DataLink_CYZZ.ADOLink
LockType = ltReadOnly
Parameters = <>
Left = 712
Top = 8
end
object ClientDataSet7: TClientDataSet
Aggregates = <>
Params = <>
Left = 632
Top = 435
end
object cxGridPopupMenu7: TcxGridPopupMenu
PopupMenus = <>
Left = 700
Top = 442
end
object DataSource7: TDataSource
DataSet = ClientDataSet7
Left = 781
Top = 439
end
object ClientDataSet2: TClientDataSet
Aggregates = <>
Params = <>
Left = 433
Top = 384
end
object cxGridPopupMenu2: TcxGridPopupMenu
PopupMenus = <>
Left = 473
Top = 388
end
object DataSource2: TDataSource
DataSet = ClientDataSet2
Left = 509
Top = 384
end
object DS_OrderNo: TDataSource
DataSet = CDS_OrderNo
Left = 213
Top = 4
end
object CDS_OrderNo: TClientDataSet
Aggregates = <>
Params = <>
Left = 243
end
object DataSource1: TDataSource
DataSet = ClientDataSet1
Left = 932
Top = 136
end
object ClientDataSet1: TClientDataSet
Aggregates = <>
Params = <>
Left = 975
Top = 139
end
object cxGridPopupMenu1: TcxGridPopupMenu
PopupMenus = <>
Left = 768
Top = 171
end
end