RTFormwork/项目代码/RTBasicsV1/B04采购计划管理/U_ClothPurchasePlanPut.dfm
“ddf” 719cdbc141 1
2024-07-07 19:26:56 +08:00

854 lines
23 KiB
Plaintext

inherited frmClothPurchasePlanPut: TfrmClothPurchasePlanPut
Left = 219
Top = 76
Caption = #24067#21305#37319#36141#35745#21010#24405#20837
ClientHeight = 694
ClientWidth = 1455
Color = clWhite
Font.Charset = GB2312_CHARSET
Font.Height = -16
Font.Name = #24494#36719#38597#40657
OldCreateOrder = True
Position = poScreenCenter
WindowState = wsMaximized
ExplicitWidth = 1471
ExplicitHeight = 733
PixelsPerInch = 96
TextHeight = 21
object ToolBar1: TToolBar [0]
Tag = 1
Left = 0
Top = 0
Width = 1455
Height = 30
AutoSize = True
ButtonHeight = 30
ButtonWidth = 99
Caption = 'ToolBar1'
Color = clWhite
DisabledImages = DataLink_PurchasePlan.cxImageList_bar
Images = DataLink_PurchasePlan.cxImageList_bar
List = True
ParentColor = False
ShowCaptions = True
TabOrder = 0
object TBSave: TToolButton
Left = 0
Top = 0
AutoSize = True
Caption = #20445#23384
ImageIndex = 16
OnClick = TBSaveClick
end
object ToolButton3: TToolButton
Left = 71
Top = 0
AutoSize = True
Caption = #20445#23384#26684#24335
ImageIndex = 16
OnClick = ToolButton3Click
end
object TBClose: TToolButton
Left = 174
Top = 0
AutoSize = True
Caption = #20851#38381
ImageIndex = 7
OnClick = TBCloseClick
end
end
object ToolBar2: TToolBar [1]
Tag = 1
Left = 0
Top = 249
Width = 1455
Height = 30
AutoSize = True
ButtonHeight = 30
ButtonWidth = 131
Caption = 'ToolBar1'
Color = clBtnFace
DisabledImages = DataLink_PurchasePlan.cxImageList_bar
EdgeInner = esNone
EdgeOuter = esNone
Images = DataLink_PurchasePlan.cxImageList_bar
List = True
ParentColor = False
ShowCaptions = True
TabOrder = 1
object ToolButton4: TToolButton
Left = 0
Top = 0
AutoSize = True
Caption = #21512#21516#25104#21697#37319#36141
ImageIndex = 12
OnClick = ToolButton4Click
end
object ToolButton5: TToolButton
Left = 135
Top = 0
AutoSize = True
Caption = #21512#21516#22383#24067#37319#36141
ImageIndex = 12
OnClick = ToolButton5Click
end
object ToolButton6: TToolButton
Left = 270
Top = 0
AutoSize = True
Caption = #21512#21516#24213#24067#37319#36141
ImageIndex = 12
OnClick = ToolButton6Click
end
object ToolButton1: TToolButton
Left = 405
Top = 0
AutoSize = True
Caption = #22686#34892
ImageIndex = 2
OnClick = ToolButton1Click
end
object ToolButton2: TToolButton
Left = 476
Top = 0
AutoSize = True
Caption = #21024#34892
ImageIndex = 6
OnClick = ToolButton2Click
end
end
object cxGrid1: TcxGrid [2]
Left = 0
Top = 279
Width = 1455
Height = 415
Align = alClient
BorderStyle = cxcbsNone
PopupMenu = pm_sub
TabOrder = 2
object TV1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
DataController.DataSource = DS_1
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 = cxGridDBColumn20
end
item
Format = '0'
Position = spFooter
Column = cxGridDBColumn22
end>
DataController.Summary.FooterSummaryItems = <
item
Kind = skSum
Column = cxGridDBColumn20
end
item
Kind = skSum
end
item
Kind = skSum
Column = cxGridDBColumn23
end
item
Kind = skSum
Column = TV1Column8
end>
DataController.Summary.SummaryGroups = <>
OptionsBehavior.FocusCellOnTab = True
OptionsBehavior.GoToNextCellOnEnter = True
OptionsBehavior.FocusCellOnCycle = True
OptionsCustomize.ColumnFiltering = False
OptionsData.Deleting = False
OptionsData.DeletingConfirmation = False
OptionsView.Footer = True
OptionsView.GroupByBox = False
object cxGridDBColumn14: TcxGridDBColumn
Caption = #24207#21495
DataBinding.FieldName = 'SerialNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
SortIndex = 0
SortOrder = soAscending
Styles.Header = DataLink_PurchasePlan.Default
Width = 85
end
object cxGridDBColumn13: TcxGridDBColumn
Tag = 9
Caption = #36873#25321
DataBinding.FieldName = 'SSel'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxCheckBoxProperties'
Properties.ImmediatePost = True
Properties.NullStyle = nssUnchecked
HeaderAlignmentHorz = taCenter
Width = 75
end
object TV1Column1: TcxGridDBColumn
Caption = #31867#22411
DataBinding.FieldName = 'C_Degree'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxComboBoxProperties'
Properties.Items.Strings = (
#22383#24067
#21322#25104#21697
#25104#21697
#24213#24067)
HeaderAlignmentHorz = taCenter
Width = 81
end
object cxGridDBColumn15: TcxGridDBColumn
Caption = #32534#21495
DataBinding.FieldName = 'C_Code'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxButtonEditProperties'
Properties.Buttons = <
item
Default = True
Kind = bkEllipsis
end>
Properties.ReadOnly = False
Properties.OnButtonClick = v1Column10PropertiesButtonClick
HeaderAlignmentHorz = taCenter
Width = 77
end
object TV1Column10: TcxGridDBColumn
Caption = #21512#21516#21495
DataBinding.FieldName = 'ConNo'
DataBinding.IsNullValueType = True
end
object cxGridDBColumn16: TcxGridDBColumn
Caption = #21697#21517
DataBinding.FieldName = 'C_Name'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 70
end
object cxGridDBColumn17: TcxGridDBColumn
Caption = #35268#26684
DataBinding.FieldName = 'C_Spec'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 60
end
object TV1Column5: TcxGridDBColumn
Caption = #24067#31181
DataBinding.FieldName = 'GC_Name'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 78
end
object TV1Column6: TcxGridDBColumn
Caption = #21152#24037#21035
DataBinding.FieldName = 'CraftCode'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 95
end
object TV1Column7: TcxGridDBColumn
Caption = #21518#25972#29702#20013#25991
DataBinding.FieldName = 'CraftName'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 104
end
object TV1Column9: TcxGridDBColumn
Caption = #33394#21495
DataBinding.FieldName = 'C_ColorNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 86
end
object cxGridDBColumn18: TcxGridDBColumn
Caption = #25104#20998
DataBinding.FieldName = 'C_Composition'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 70
end
object cxGridDBColumn19: TcxGridDBColumn
Caption = #39068#33394
DataBinding.FieldName = 'C_Color'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 70
end
object TV1Column2: TcxGridDBColumn
Caption = #38376#24133
DataBinding.FieldName = 'C_Width'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 66
end
object TV1Column3: TcxGridDBColumn
Caption = #20811#37325
DataBinding.FieldName = 'C_GramWeight'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 79
end
object TV1Column8: TcxGridDBColumn
Caption = #35746#37327
DataBinding.FieldName = 'OrgQty'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
Properties.OnEditValueChanged = TV1Column8PropertiesEditValueChanged
HeaderAlignmentHorz = taCenter
Width = 107
end
object TV1Column4: TcxGridDBColumn
Caption = #32553#25439#65288'%'#65289
DataBinding.FieldName = 'ShrinkageRate'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
Properties.OnEditValueChanged = TV1Column8PropertiesEditValueChanged
HeaderAlignmentHorz = taCenter
Width = 113
end
object cxGridDBColumn20: TcxGridDBColumn
Caption = #37319#36141#25968#37327
DataBinding.FieldName = 'Qty'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
HeaderAlignmentHorz = taCenter
Styles.Header = DataLink_PurchasePlan.Default
Width = 109
end
object cxGridDBColumn21: TcxGridDBColumn
Caption = #21333#20301
DataBinding.FieldName = 'QtyUnit'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxComboBoxProperties'
Properties.DropDownListStyle = lsEditFixedList
Properties.Items.Strings = (
'Kg'
'M'
'Y')
HeaderAlignmentHorz = taCenter
Styles.Header = DataLink_PurchasePlan.Default
Width = 58
end
object cxGridDBColumn22: TcxGridDBColumn
Caption = #21333#20215
DataBinding.FieldName = 'Price'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
Properties.OnEditValueChanged = TV1Column8PropertiesEditValueChanged
HeaderAlignmentHorz = taCenter
Options.Sorting = False
Styles.Header = DataLink_PurchasePlan.handBlack
Width = 70
end
object cxGridDBColumn23: TcxGridDBColumn
Caption = #37329#39069
DataBinding.FieldName = 'Amount'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 84
end
object cxGridDBColumn24: TcxGridDBColumn
Caption = #22791#27880
DataBinding.FieldName = 'SNote'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 70
end
object TV1Column11: TcxGridDBColumn
Caption = #36229#20132
DataBinding.FieldName = 'MoreQty'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 66
end
object TV1Column12: TcxGridDBColumn
Caption = #30701#20132
DataBinding.FieldName = 'LessQty'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 66
end
object TV1Column13: TcxGridDBColumn
Caption = #36229#30701#20132#21333#20301
DataBinding.FieldName = 'MoreLessUnit'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 66
end
object TV1Column14: TcxGridDBColumn
DataBinding.FieldName = 'ConSId'
DataBinding.IsNullValueType = True
Visible = False
HeaderAlignmentHorz = taCenter
Options.Editing = False
VisibleForCustomization = False
Width = 66
end
object TV1Column15: TcxGridDBColumn
DataBinding.FieldName = 'ConMId'
DataBinding.IsNullValueType = True
Visible = False
HeaderAlignmentHorz = taCenter
Options.Editing = False
VisibleForCustomization = False
Width = 66
end
object TV1Column16: TcxGridDBColumn
DataBinding.FieldName = 'BuyName'
DataBinding.IsNullValueType = True
Visible = False
HeaderAlignmentHorz = taCenter
Options.Editing = False
VisibleForCustomization = False
Width = 66
end
object TV1Column17: TcxGridDBColumn
DataBinding.FieldName = 'TallyId'
DataBinding.IsNullValueType = True
Visible = False
HeaderAlignmentHorz = taCenter
Options.Editing = False
VisibleForCustomization = False
Width = 66
end
object TV1Column18: TcxGridDBColumn
DataBinding.FieldName = 'Tallyer'
DataBinding.IsNullValueType = True
Visible = False
HeaderAlignmentHorz = taCenter
Options.Editing = False
VisibleForCustomization = False
Width = 66
end
object TV1Column19: TcxGridDBColumn
DataBinding.FieldName = 'SalesId'
DataBinding.IsNullValueType = True
Visible = False
HeaderAlignmentHorz = taCenter
Options.Editing = False
VisibleForCustomization = False
Width = 66
end
object TV1Column20: TcxGridDBColumn
DataBinding.FieldName = 'Saleser'
DataBinding.IsNullValueType = True
Visible = False
HeaderAlignmentHorz = taCenter
Options.Editing = False
VisibleForCustomization = False
Width = 66
end
end
object cxGridLevel1: TcxGridLevel
GridView = TV1
end
end
object cxPageControl3: TcxPageControl [3]
Left = 0
Top = 30
Width = 1455
Height = 219
Align = alTop
TabOrder = 3
Properties.ActivePage = cxTabSheet3
Properties.CustomButtons.Buttons = <>
Properties.Style = 9
ClientRectBottom = 219
ClientRectRight = 1455
ClientRectTop = 28
object cxTabSheet3: TcxTabSheet
Caption = ' '#20379#24212#21830#20449#24687' '
ImageIndex = 3
object ScrollBox1: TScrollBox
Left = 0
Top = 0
Width = 1455
Height = 191
Align = alClient
BevelInner = bvNone
BevelOuter = bvNone
BorderStyle = bsNone
Color = clWhite
Ctl3D = False
ParentColor = False
ParentCtl3D = False
TabOrder = 0
object lbl26: TLabel
Left = 32
Top = 48
Width = 80
Height = 21
Caption = #20379#26041#20195#34920#65306
end
object lbl27: TLabel
Left = 32
Top = 87
Width = 80
Height = 21
Caption = #20379#26041#30005#35805#65306
end
object lbl28: TLabel
Left = 32
Top = 126
Width = 80
Height = 21
Caption = #20379#26041#22320#22336#65306
end
object lbl30: TLabel
Left = 320
Top = 48
Width = 80
Height = 21
Caption = #38656#26041#20195#34920#65306
end
object lbl31: TLabel
Left = 320
Top = 87
Width = 80
Height = 21
Caption = #38656#26041#30005#35805#65306
end
object lbl32: TLabel
Left = 320
Top = 126
Width = 80
Height = 21
Caption = #38656#26041#22320#22336#65306
end
object lbl5: TLabel
Left = 648
Top = 48
Width = 80
Height = 21
Caption = #19979#21333#26085#26399#65306
end
object lbl6: TLabel
Left = 648
Top = 10
Width = 80
Height = 21
Caption = #37319#36141#21333#21495#65306
end
object lbl7: TLabel
Left = 320
Top = 10
Width = 80
Height = 21
Caption = #20844#21496#25260#22836#65306
end
object lbl8: TLabel
Left = 32
Top = 10
Width = 80
Height = 21
AutoSize = False
Caption = #20379#24212#21830#65306
end
object Label1: TLabel
Left = 648
Top = 83
Width = 73
Height = 21
AutoSize = False
Caption = #27973#33394#27604#65306
end
object SellRepresentative: TcxTextEdit
Tag = 2
Left = 106
Top = 42
TabOrder = 0
Width = 200
end
object SellTel: TcxTextEdit
Tag = 2
Left = 106
Top = 81
TabOrder = 1
Width = 200
end
object SellAddress: TcxTextEdit
Tag = 2
Left = 106
Top = 120
TabOrder = 2
Width = 200
end
object BuyRepresentative: TcxTextEdit
Tag = 2
Left = 395
Top = 42
TabOrder = 3
Width = 200
end
object BuyTel: TcxTextEdit
Tag = 2
Left = 395
Top = 81
TabOrder = 4
Width = 200
end
object BuyAddress: TcxTextEdit
Tag = 2
Left = 395
Top = 120
TabOrder = 5
Width = 200
end
object PurNo: TcxTextEdit
Tag = 2
Left = 738
Top = 4
TabOrder = 6
Text = #33258#21160#29983#25104
Width = 200
end
object Sellname: TcxButtonEdit
Tag = 2
Left = 106
Top = 4
Properties.Buttons = <
item
Default = True
Kind = bkEllipsis
end>
Properties.ReadOnly = True
Properties.OnButtonClick = SellnamePropertiesButtonClick
Style.ButtonStyle = btsDefault
TabOrder = 7
OnDblClick = BuyNameDblClick
Width = 200
end
object BuyName: TcxButtonEdit
Tag = 2
Left = 396
Top = 4
Properties.Buttons = <
item
Default = True
Kind = bkEllipsis
end>
Properties.ReadOnly = True
Properties.OnButtonClick = BuyNamePropertiesButtonClick
Style.ButtonStyle = btsDefault
TabOrder = 8
OnDblClick = BuyNameDblClick
Width = 200
end
object PurDate: TcxDateEdit
Tag = 2
Left = 738
Top = 42
Properties.ShowTime = False
TabOrder = 9
Width = 200
end
object LightColorRatio: TcxMemo
Tag = 2
Left = 738
Top = 83
TabOrder = 10
Height = 74
Width = 199
end
end
end
object cxTabSheet1: TcxTabSheet
Caption = ' '#26465#27454#20449#24687' '
ImageIndex = 2
object pnl1: TPanel
Left = 0
Top = 0
Width = 1455
Height = 191
Align = alClient
TabOrder = 0
object lbl9: TLabel
Left = 328
Top = 8
Width = 80
Height = 21
Caption = #20132#26399#35828#26126#65306
end
object lbl10: TLabel
Left = 40
Top = 8
Width = 80
Height = 21
Caption = #20132#36135#26085#26399#65306
end
object lbl1: TLabel
Left = 328
Top = 46
Width = 80
Height = 21
Caption = #20184#27454#26041#24335#65306
end
object lbl3: TLabel
Left = 40
Top = 46
Width = 80
Height = 21
Caption = #36816#36755#26041#24335#65306
end
object lbl4: TLabel
Left = 616
Top = 46
Width = 80
Height = 21
Caption = #26159#21542#21547#31246#65306
end
object lbl11: TLabel
Left = 40
Top = 79
Width = 73
Height = 21
AutoSize = False
Caption = #22791#27880#65306
end
object ShippMent: TcxTextEdit
Tag = 2
Left = 412
Top = 2
ParentFont = False
TabOrder = 0
OnKeyPress = ShippMentKeyPress
Width = 765
end
object Payment: TcxButtonEdit
Tag = 2
Left = 412
Top = 40
Hint = 'Payment/'#20184#27454#26041#24335
ParentFont = False
Properties.Buttons = <
item
Default = True
Kind = bkEllipsis
end>
Properties.ReadOnly = False
Properties.OnButtonClick = ShipMentPropertiesButtonClick
Style.ButtonStyle = btsDefault
TabOrder = 1
OnDblClick = BuyNameDblClick
Width = 200
end
object ShipMent: TcxButtonEdit
Tag = 2
Left = 124
Top = 40
Hint = 'ShipMent/'#36816#36755#26041#24335
ParentFont = False
Properties.Buttons = <
item
Default = True
Kind = bkEllipsis
end>
Properties.ReadOnly = False
Properties.OnButtonClick = ShipMentPropertiesButtonClick
Style.ButtonStyle = btsDefault
TabOrder = 2
OnDblClick = BuyNameDblClick
Width = 200
end
object IsTax: TcxComboBox
Tag = 2
Left = 700
Top = 40
ParentFont = False
Properties.Items.Strings = (
#26159
#21542)
TabOrder = 3
Text = #26159
Width = 200
end
object DlyDate: TcxDateEdit
Tag = 2
Left = 124
Top = 2
ParentFont = False
Properties.ShowTime = False
TabOrder = 4
Width = 200
end
object Note: TcxMemo
Tag = 1
Left = 124
Top = 79
ParentFont = False
TabOrder = 5
Height = 97
Width = 1056
end
end
end
end
inherited ADOQueryBaseCmd: TADOQuery
Connection = DataLink_PurchasePlan.ADOLink
Left = 1177
Top = 184
end
inherited ADOQueryBaseTemp: TADOQuery
Connection = DataLink_PurchasePlan.ADOLink
Left = 1033
Top = 185
end
inherited ImageList_new32: TImageList
Left = 968
Top = 360
end
object ADOTemp: TADOQuery
Connection = DataLink_PurchasePlan.ADOLink
LockType = ltReadOnly
Parameters = <>
Left = 840
Top = 5
end
object ADOCmd: TADOQuery
Connection = DataLink_PurchasePlan.ADOLink
Parameters = <>
Left = 984
Top = 5
end
object DS_1: TDataSource
DataSet = CDS_1
Left = 708
Top = 420
end
object CDS_1: TClientDataSet
Aggregates = <>
IndexFieldNames = 'SerialNo'
Params = <>
Left = 620
Top = 428
end
object cxgrdpmn1: TcxGridPopupMenu
Grid = cxGrid1
PopupMenus = <>
Left = 376
Top = 372
end
object pm_sub: TPopupMenu
Left = 536
Top = 424
object N1: TMenuItem
Caption = #26222#36890#26367#25442
OnClick = N1Click
end
object N2: TMenuItem
Caption = #20135#21697#26367#25442
OnClick = N2Click
end
end
end