D7FZaideng/成品仓库/U_BpRk.dfm
DESKTOP-E401PHE\Administrator 82c6347dad ~
2025-04-30 16:21:22 +08:00

885 lines
24 KiB
Plaintext

object frmbpRk: TfrmbpRk
Left = 343
Top = 489
Width = 1381
Height = 660
Caption = #20837#24211#20449#24687
Color = clBtnFace
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
OldCreateOrder = False
WindowState = wsMaximized
OnClose = FormClose
OnCreate = FormCreate
OnDestroy = FormDestroy
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 12
object ToolBar1: TToolBar
Left = 0
Top = 0
Width = 1365
Height = 29
ButtonHeight = 30
ButtonWidth = 59
Caption = 'ToolBar1'
Color = clSkyBlue
EdgeInner = esNone
EdgeOuter = esNone
Flat = True
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
Images = CPCK_DataLink.ThreeImgList
List = True
ParentColor = False
ParentFont = False
ShowCaptions = True
TabOrder = 0
object TBSave: TToolButton
Left = 0
Top = 0
AutoSize = True
Caption = #20445#23384
ImageIndex = 14
OnClick = TBSaveClick
end
object TBClose: TToolButton
Left = 63
Top = 0
AutoSize = True
Caption = #20851#38381
ImageIndex = 55
OnClick = TBCloseClick
end
end
object Panel1: TPanel
Left = 0
Top = 29
Width = 1365
Height = 56
Align = alTop
BevelInner = bvRaised
BevelOuter = bvLowered
Color = clSkyBlue
TabOrder = 1
object Label1: TLabel
Left = 36
Top = 20
Width = 48
Height = 12
Caption = #20837#24211#26085#26399
end
object Label2: TLabel
Left = 540
Top = 20
Width = 48
Height = 12
Caption = #20837#24211#31867#22411
end
object Label3: TLabel
Left = 384
Top = 20
Width = 24
Height = 12
Caption = #20179#24211
end
object Label8: TLabel
Left = 216
Top = 20
Width = 48
Height = 12
Caption = #20837#24211#21333#21495
end
object Label4: TLabel
Left = 724
Top = 20
Width = 66
Height = 12
Caption = #21152#24037#21378'/'#23458#25143
end
object Label17: TLabel
Left = 1096
Top = 22
Width = 60
Height = 14
Caption = #27599#21305#25968#37327
Font.Charset = GB2312_CHARSET
Font.Color = clRed
Font.Height = -14
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label14: TLabel
Left = 32
Top = 84
Width = 48
Height = 12
Caption = #25171' '#21253' '#36153
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
end
object CRTime: TDateTimePicker
Left = 88
Top = 16
Width = 100
Height = 20
Date = 41509.970132187500000000
Format = 'yyyy-MM-dd'
Time = 41509.970132187500000000
TabOrder = 0
end
object CRType: TComboBox
Left = 592
Top = 16
Width = 100
Height = 20
Style = csDropDownList
ItemHeight = 12
ItemIndex = 0
TabOrder = 1
Text = #29983#20135#20837#24211
Items.Strings = (
#29983#20135#20837#24211)
end
object ckName: TComboBox
Left = 416
Top = 16
Width = 100
Height = 20
Style = csDropDownList
ItemHeight = 12
ItemIndex = 0
TabOrder = 2
Text = #26679#21697#20179#24211
Items.Strings = (
#26679#21697#20179#24211)
end
object InoutNo: TEdit
Left = 264
Top = 16
Width = 100
Height = 20
TabOrder = 3
end
object custName: TBtnEditA
Left = 796
Top = 16
Width = 101
Height = 20
ReadOnly = True
TabOrder = 4
OnBtnClick = custNameBtnClick
end
object QtyMX: TEdit
Left = 1156
Top = 18
Width = 65
Height = 22
Font.Charset = GB2312_CHARSET
Font.Color = clRed
Font.Height = -14
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
TabOrder = 5
OnKeyPress = QtyMXKeyPress
end
object PackFee: TcxCurrencyEdit
Left = 84
Top = 80
Properties.DisplayFormat = '0.##'
TabOrder = 6
Width = 100
end
object CheckBox1: TCheckBox
Left = 927
Top = 19
Width = 61
Height = 17
Caption = #35009#21098
Font.Charset = GB2312_CHARSET
Font.Color = clRed
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
TabOrder = 7
end
object CheckBox2: TCheckBox
Left = 1008
Top = 17
Width = 61
Height = 21
Caption = #32541#32427
Font.Charset = GB2312_CHARSET
Font.Color = clRed
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
TabOrder = 8
end
end
object ToolBar2: TToolBar
Left = 0
Top = 85
Width = 1365
Height = 29
ButtonHeight = 30
ButtonWidth = 83
Caption = 'ToolBar1'
Color = clSkyBlue
EdgeInner = esNone
EdgeOuter = esNone
Flat = True
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
Images = CPCK_DataLink.ThreeImgList
List = True
ParentColor = False
ParentFont = False
ShowCaptions = True
TabOrder = 2
object ToolButton1: TToolButton
Left = 0
Top = 0
AutoSize = True
Caption = #22686#34892
ImageIndex = 103
OnClick = ToolButton1Click
end
object ToolButton2: TToolButton
Left = 63
Top = 0
AutoSize = True
Caption = #21024#34892
ImageIndex = 107
OnClick = ToolButton2Click
end
object ToolButton5: TToolButton
Left = 126
Top = 0
Caption = #36873#25321#35746#21333
ImageIndex = 108
OnClick = ToolButton5Click
end
end
object Panel2: TPanel
Left = 0
Top = 114
Width = 1365
Height = 267
Align = alClient
Caption = 'Panel2'
TabOrder = 3
object cxGrid1: TcxGrid
Left = 1
Top = 1
Width = 1154
Height = 265
Align = alClient
TabOrder = 0
object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
OnCellClick = Tv1CellClick
OnFocusedRecordChanged = Tv1FocusedRecordChanged
DataController.DataSource = DataSource1
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
DataController.Summary.DefaultGroupSummaryItems = <
item
Format = 'C_Code'
Column = v1P_CodeName
end>
DataController.Summary.FooterSummaryItems = <
item
Kind = skSum
end
item
Kind = skSum
Column = v1Qty
end
item
Kind = skSum
Column = v1Money
end>
DataController.Summary.SummaryGroups = <>
OptionsBehavior.FocusCellOnTab = True
OptionsBehavior.GoToNextCellOnEnter = True
OptionsBehavior.FocusCellOnCycle = True
OptionsCustomize.ColumnFiltering = False
OptionsView.Footer = True
OptionsView.GroupByBox = False
OptionsView.Indicator = True
Styles.Header = CPCK_DataLink.Default
object v1OrderNo: TcxGridDBColumn
Caption = #35746#21333#21495
DataBinding.FieldName = 'OrderNo'
PropertiesClassName = 'TcxButtonEditProperties'
Properties.Buttons = <
item
Default = True
Kind = bkEllipsis
end>
Properties.OnButtonClick = v1Column5PropertiesButtonClick
HeaderAlignmentHorz = taCenter
Width = 90
end
object v1Column2: TcxGridDBColumn
Caption = #21152#24037#21333#21495
DataBinding.FieldName = 'fromMainID'
PropertiesClassName = 'TcxButtonEditProperties'
Properties.Buttons = <
item
Default = True
Kind = bkEllipsis
end>
Properties.ReadOnly = True
Properties.OnButtonClick = v1Column2PropertiesButtonClick
Visible = False
HeaderAlignmentHorz = taCenter
VisibleForCustomization = False
Width = 90
end
object v1MJXH: TcxGridDBColumn
Caption = #21367#21495
DataBinding.FieldName = 'MJXH'
Visible = False
HeaderAlignmentHorz = taCenter
Options.Sorting = False
Width = 50
end
object v1MJId: TcxGridDBColumn
Caption = #21367#26465#30721
DataBinding.FieldName = 'MJId'
Visible = False
HeaderAlignmentHorz = taCenter
Options.Sorting = False
Width = 80
end
object v1P_Code: TcxGridDBColumn
Caption = #20135#21697#32534#21495
DataBinding.FieldName = 'P_Code'
PropertiesClassName = 'TcxButtonEditProperties'
Properties.Buttons = <
item
Default = True
Kind = bkEllipsis
end>
Properties.OnButtonClick = v1P_CodePropertiesButtonClick
HeaderAlignmentHorz = taCenter
Width = 79
end
object v1P_CodeName: TcxGridDBColumn
Caption = #20135#21697#21517#31216
DataBinding.FieldName = 'P_CodeName'
PropertiesClassName = 'TcxButtonEditProperties'
Properties.Buttons = <
item
Default = True
Kind = bkEllipsis
end>
Properties.OnButtonClick = v1P_CodePropertiesButtonClick
HeaderAlignmentHorz = taCenter
Options.Sorting = False
Width = 90
end
object v1PRTSpec: TcxGridDBColumn
Caption = #27454#21495
DataBinding.FieldName = 'P_SPEC'
HeaderAlignmentHorz = taCenter
Options.Sorting = False
Width = 90
end
object Tv1Column4: TcxGridDBColumn
Caption = #39068#33394
DataBinding.FieldName = 'P_Color'
HeaderAlignmentHorz = taCenter
Width = 68
end
object Tv1Column5: TcxGridDBColumn
Caption = #39068#33394#33521#25991
DataBinding.FieldName = 'P_Ecolor'
HeaderAlignmentHorz = taCenter
Width = 60
end
object v1Column1: TcxGridDBColumn
Caption = #25209#27425
DataBinding.FieldName = 'batchNo'
Visible = False
HeaderAlignmentHorz = taCenter
VisibleForCustomization = False
Width = 70
end
object v1Column3: TcxGridDBColumn
Caption = #23610#23544'/'#23610#30721
DataBinding.FieldName = 'defstr1'
PropertiesClassName = 'TcxButtonEditProperties'
Properties.Buttons = <
item
Default = True
Kind = bkEllipsis
end>
Properties.OnButtonClick = v1Column3PropertiesButtonClick
HeaderAlignmentHorz = taCenter
Width = 73
end
object v1Column4: TcxGridDBColumn
Caption = #24037#21345#21495
DataBinding.FieldName = 'defstr2'
Visible = False
HeaderAlignmentHorz = taCenter
VisibleForCustomization = False
Width = 60
end
object v1Qty: TcxGridDBColumn
Caption = #25968#37327
DataBinding.FieldName = 'qty'
PropertiesClassName = 'TcxTextEditProperties'
HeaderAlignmentHorz = taCenter
Options.Focusing = False
Options.Sorting = False
Styles.Content = CPCK_DataLink.FontBlue
Styles.Footer = CPCK_DataLink.FontBlue
Styles.Header = CPCK_DataLink.FontBlue
Width = 86
end
object v1Price: TcxGridDBColumn
Caption = #21333#20215
DataBinding.FieldName = 'Price'
PropertiesClassName = 'TcxTextEditProperties'
Properties.OnEditValueChanged = v1PricePropertiesEditValueChanged
HeaderAlignmentHorz = taCenter
Options.Sorting = False
Width = 43
end
object v1Money: TcxGridDBColumn
Caption = #37329#39069
DataBinding.FieldName = 'Money'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Options.Sorting = False
Styles.Content = CPCK_DataLink.cxStyle_fontclFuchsia
Styles.Footer = CPCK_DataLink.cxStyle_fontclFuchsia
Styles.Header = CPCK_DataLink.cxStyle_fontclFuchsia
Width = 52
end
object v1Note: TcxGridDBColumn
Caption = #22791#27880
DataBinding.FieldName = 'Note'
HeaderAlignmentHorz = taCenter
Options.Sorting = False
Width = 94
end
object Tv1Column2: TcxGridDBColumn
Caption = #20179#24211#32534#21495
DataBinding.FieldName = 'DRCKNO'
HeaderAlignmentHorz = taCenter
Width = 70
end
object Tv1Column3: TcxGridDBColumn
Caption = #20179#24211#21517#31216
DataBinding.FieldName = 'DRCKName'
PropertiesClassName = 'TcxButtonEditProperties'
Properties.Buttons = <
item
Default = True
Kind = bkEllipsis
end>
Properties.OnButtonClick = Tv1Column3PropertiesButtonClick
HeaderAlignmentHorz = taCenter
Width = 70
end
object v1CPType: TcxGridDBColumn
Caption = #31561#32423
DataBinding.FieldName = 'CPType'
PropertiesClassName = 'TcxComboBoxProperties'
Properties.DropDownListStyle = lsEditFixedList
Properties.Items.Strings = (
#27491#21697
#27425#21697)
Properties.ReadOnly = False
HeaderAlignmentHorz = taCenter
Options.Sorting = False
Width = 63
end
end
object cxGrid1Level1: TcxGridLevel
GridView = Tv1
end
end
object cxGrid2: TcxGrid
Left = 1155
Top = 1
Width = 209
Height = 265
Align = alRight
TabOrder = 1
Visible = False
object Tv2: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
OnCellDblClick = Tv2CellDblClick
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
DataController.Summary.DefaultGroupSummaryItems = <
item
Format = 'C_Code'
end>
DataController.Summary.FooterSummaryItems = <
item
Kind = skSum
Column = v2Column2
end>
DataController.Summary.SummaryGroups = <>
OptionsBehavior.FocusCellOnTab = True
OptionsBehavior.GoToNextCellOnEnter = True
OptionsBehavior.FocusCellOnCycle = True
OptionsCustomize.ColumnFiltering = False
OptionsView.Footer = True
OptionsView.GroupByBox = False
OptionsView.Indicator = True
Styles.Header = CPCK_DataLink.Default
object v2Column2: TcxGridDBColumn
Caption = #25968#37327
DataBinding.FieldName = 'Qty'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 102
end
end
object cxGridLevel1: TcxGridLevel
GridView = Tv2
end
end
end
object cxGrid3: TcxGrid
Left = 0
Top = 410
Width = 1365
Height = 211
Align = alBottom
TabOrder = 4
Visible = False
object TV3: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
DataController.DataSource = DataSource2
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
DataController.Summary.DefaultGroupSummaryItems = <
item
Format = 'C_Code'
end>
DataController.Summary.FooterSummaryItems = <
item
Kind = skSum
end
item
Kind = skSum
end
item
Kind = skSum
end
item
Kind = skSum
Column = TV2Column2
end
item
Kind = skSum
Column = TV2Column3
end
item
Kind = skSum
Column = TV2Column4
end
item
Kind = skSum
Column = TV2Column5
end
item
Kind = skSum
Column = TV2Column6
end
item
Kind = skSum
Column = TV2Column7
end
item
Kind = skSum
Column = TV2Column8
end
item
Kind = skSum
Column = TV2Column9
end
item
Kind = skSum
Column = TV2Column10
end
item
Kind = skSum
Column = TV2Column11
end
item
Kind = skSum
Column = TV2Column12
end
item
Kind = skSum
Column = TV2Column13
end
item
Kind = skSum
Column = TV3Column1
end>
DataController.Summary.SummaryGroups = <>
OptionsBehavior.FocusCellOnTab = True
OptionsBehavior.GoToNextCellOnEnter = True
OptionsBehavior.FocusCellOnCycle = True
OptionsCustomize.ColumnSorting = False
OptionsView.Footer = True
OptionsView.GroupByBox = False
OptionsView.Indicator = True
Styles.Header = CPCK_DataLink.Default
object TV2Column1: TcxGridDBColumn
Caption = #39068#33394
DataBinding.FieldName = 'P_Color'
PropertiesClassName = 'TcxButtonEditProperties'
Properties.Buttons = <
item
Default = True
Kind = bkEllipsis
end>
Properties.OnButtonClick = TV2Column1PropertiesButtonClick
HeaderAlignmentHorz = taCenter
Width = 70
end
object TV3Column4: TcxGridDBColumn
Caption = 'CXXXS'
DataBinding.FieldName = 'Size15'
HeaderAlignmentHorz = taCenter
Width = 60
end
object TV2Column2: TcxGridDBColumn
Caption = 'CXXS'
DataBinding.FieldName = 'Size1'
PropertiesClassName = 'TcxTextEditProperties'
Properties.OnEditValueChanged = TV2Column2PropertiesEditValueChanged
HeaderAlignmentHorz = taCenter
Width = 70
end
object TV2Column3: TcxGridDBColumn
Caption = 'CXS'
DataBinding.FieldName = 'Size2'
PropertiesClassName = 'TcxTextEditProperties'
Properties.OnEditValueChanged = TV2Column2PropertiesEditValueChanged
HeaderAlignmentHorz = taCenter
Width = 70
end
object TV2Column4: TcxGridDBColumn
Caption = 'CS'
DataBinding.FieldName = 'Size3'
PropertiesClassName = 'TcxTextEditProperties'
Properties.OnEditValueChanged = TV2Column2PropertiesEditValueChanged
HeaderAlignmentHorz = taCenter
Width = 70
end
object TV2Column5: TcxGridDBColumn
Caption = 'CM'
DataBinding.FieldName = 'Size4'
PropertiesClassName = 'TcxTextEditProperties'
Properties.OnEditValueChanged = TV2Column2PropertiesEditValueChanged
HeaderAlignmentHorz = taCenter
Width = 70
end
object TV2Column6: TcxGridDBColumn
Caption = 'CL'
DataBinding.FieldName = 'Size5'
PropertiesClassName = 'TcxTextEditProperties'
Properties.OnEditValueChanged = TV2Column2PropertiesEditValueChanged
HeaderAlignmentHorz = taCenter
Width = 70
end
object TV2Column7: TcxGridDBColumn
Caption = 'CXL'
DataBinding.FieldName = 'Size6'
PropertiesClassName = 'TcxTextEditProperties'
Properties.OnEditValueChanged = TV2Column2PropertiesEditValueChanged
HeaderAlignmentHorz = taCenter
Width = 70
end
object TV3Column2: TcxGridDBColumn
Caption = 'CXXL'
DataBinding.FieldName = 'Size13'
PropertiesClassName = 'TcxTextEditProperties'
Properties.OnEditValueChanged = TV2Column2PropertiesEditValueChanged
HeaderAlignmentHorz = taCenter
Width = 70
end
object TV2Column8: TcxGridDBColumn
Caption = 'AXS'
DataBinding.FieldName = 'Size7'
PropertiesClassName = 'TcxTextEditProperties'
Properties.OnEditValueChanged = TV2Column2PropertiesEditValueChanged
HeaderAlignmentHorz = taCenter
Width = 70
end
object TV2Column9: TcxGridDBColumn
Caption = 'AS'
DataBinding.FieldName = 'Size8'
PropertiesClassName = 'TcxTextEditProperties'
Properties.OnEditValueChanged = TV2Column2PropertiesEditValueChanged
HeaderAlignmentHorz = taCenter
Width = 70
end
object TV2Column10: TcxGridDBColumn
Caption = 'AM'
DataBinding.FieldName = 'Size9'
PropertiesClassName = 'TcxTextEditProperties'
Properties.OnEditValueChanged = TV2Column2PropertiesEditValueChanged
HeaderAlignmentHorz = taCenter
Width = 70
end
object TV2Column11: TcxGridDBColumn
Caption = 'AL'
DataBinding.FieldName = 'Size10'
PropertiesClassName = 'TcxTextEditProperties'
Properties.OnEditValueChanged = TV2Column2PropertiesEditValueChanged
HeaderAlignmentHorz = taCenter
Width = 70
end
object TV2Column12: TcxGridDBColumn
Caption = 'AXL'
DataBinding.FieldName = 'Size11'
PropertiesClassName = 'TcxTextEditProperties'
Properties.OnEditValueChanged = TV2Column2PropertiesEditValueChanged
HeaderAlignmentHorz = taCenter
Width = 70
end
object TV2Column13: TcxGridDBColumn
Caption = 'AXXL'
DataBinding.FieldName = 'Size12'
PropertiesClassName = 'TcxTextEditProperties'
Properties.OnEditValueChanged = TV2Column2PropertiesEditValueChanged
HeaderAlignmentHorz = taCenter
Width = 70
end
object TV3Column3: TcxGridDBColumn
Caption = 'AXXXL'
DataBinding.FieldName = 'Size14'
PropertiesClassName = 'TcxTextEditProperties'
Properties.OnEditValueChanged = TV2Column2PropertiesEditValueChanged
HeaderAlignmentHorz = taCenter
Width = 60
end
object TV3Column1: TcxGridDBColumn
Caption = #21512#35745
DataBinding.FieldName = 'ZQty'
HeaderAlignmentHorz = taCenter
Options.Focusing = False
Width = 70
end
end
object cxGridLevel2: TcxGridLevel
GridView = TV3
end
end
object ToolBar3: TToolBar
Left = 0
Top = 381
Width = 1365
Height = 29
Align = alBottom
ButtonHeight = 30
ButtonWidth = 59
Caption = 'ToolBar1'
Color = clSkyBlue
EdgeInner = esNone
EdgeOuter = esNone
Flat = True
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
Images = CPCK_DataLink.ThreeImgList
List = True
ParentColor = False
ParentFont = False
ShowCaptions = True
TabOrder = 5
Visible = False
object ToolButton3: TToolButton
Left = 0
Top = 0
AutoSize = True
Caption = #22686#34892
ImageIndex = 103
OnClick = ToolButton3Click
end
object ToolButton4: TToolButton
Left = 63
Top = 0
AutoSize = True
Caption = #21024#34892
ImageIndex = 107
OnClick = ToolButton4Click
end
end
object ADOQueryCmd: TADOQuery
Connection = CPCK_DataLink.ADOLink
Parameters = <>
Left = 292
end
object ADOQueryTmp: TADOQuery
Connection = CPCK_DataLink.ADOLink
Parameters = <>
Left = 344
Top = 4
end
object DataSource1: TDataSource
DataSet = CDS_Main
Left = 400
Top = 1
end
object CDS_Main: TClientDataSet
Aggregates = <>
Params = <>
Left = 464
Top = 1
end
object cxGridPopupMenu1: TcxGridPopupMenu
Grid = cxGrid1
PopupMenus = <>
Left = 532
Top = 65
end
object ADO_Sub: TADOQuery
Connection = CPCK_DataLink.ADOLink
Parameters = <>
Left = 964
Top = 5
end
object DataSource2: TDataSource
DataSet = CDS_Sub
Left = 872
Top = 425
end
object CDS_Sub: TClientDataSet
Aggregates = <>
Params = <>
Left = 832
Top = 429
end
end