D10SZKaiXiYa/B04采购计划管理/U_YarnPurchasePlanPut.dfm
2025-05-28 09:28:35 +08:00

751 lines
19 KiB
Plaintext

inherited frmYarnPurchasePlanPut: TfrmYarnPurchasePlanPut
Left = 219
Top = 76
Caption = #37319#36141#35745#21010#24405#20837
ClientHeight = 651
ClientWidth = 1524
Color = clWhite
Font.Charset = GB2312_CHARSET
Font.Height = -16
OldCreateOrder = True
Position = poScreenCenter
WindowState = wsMaximized
ExplicitTop = -89
ExplicitWidth = 1540
ExplicitHeight = 690
PixelsPerInch = 96
TextHeight = 21
object ToolBar1: TToolBar [0]
Tag = 1
Left = 0
Top = 0
Width = 1524
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 = 156
Width = 1524
Height = 30
AutoSize = True
ButtonHeight = 30
ButtonWidth = 115
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 ToolButton1: TToolButton
Left = 0
Top = 0
AutoSize = True
Caption = #32433#32447#26723#26696
ImageIndex = 2
OnClick = ToolButton1Click
end
object ToolButton4: TToolButton
Left = 103
Top = 0
AutoSize = True
Caption = #26426#29289#26009#26723#26696
ImageIndex = 2
OnClick = ToolButton4Click
end
object ToolButton5: TToolButton
Left = 222
Top = 0
Caption = #38144#21806#21512#21516
ImageIndex = 2
OnClick = ToolButton5Click
end
object ToolButton2: TToolButton
Left = 337
Top = 0
AutoSize = True
Caption = #21024#34892
ImageIndex = 6
OnClick = ToolButton2Click
end
end
object cxGrid1: TcxGrid [2]
Left = 0
Top = 186
Width = 1479
Height = 465
Align = alClient
BorderStyle = cxcbsNone
TabOrder = 2
ExplicitTop = 185
object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
OnFocusedRecordChanged = Tv1FocusedRecordChanged
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 = v1PRTOrderQty
end
item
Format = '0'
Position = spFooter
Column = v1PRTPrice
end>
DataController.Summary.FooterSummaryItems = <
item
Kind = skSum
Column = v1PRTOrderQty
end
item
Kind = skSum
end
item
Kind = skSum
Column = Tv1Column9
end
item
Kind = skSum
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 Tv1Column7: TcxGridDBColumn
Tag = 9
Caption = #36873#25321
DataBinding.FieldName = 'SSel'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxCheckBoxProperties'
Properties.ImmediatePost = True
Properties.NullStyle = nssUnchecked
HeaderAlignmentHorz = taCenter
Width = 41
end
object v1XHNo: TcxGridDBColumn
Caption = #24207#21495
DataBinding.FieldName = 'SerialNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
SortIndex = 0
SortOrder = soAscending
Width = 70
end
object Tv1Column18: TcxGridDBColumn
Caption = #31867#22411
DataBinding.FieldName = 'C_Degree'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxButtonEditProperties'
Properties.Buttons = <
item
Default = True
Kind = bkEllipsis
end>
Properties.ReadOnly = True
Properties.OnButtonClick = Tv1Column18PropertiesButtonClick
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 72
end
object Tv1Column2: TcxGridDBColumn
Caption = #32534#21495
DataBinding.FieldName = 'Y_Code'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 67
end
object Tv1Column16: TcxGridDBColumn
Caption = #21697#21517
DataBinding.FieldName = 'Y_Name'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
object v1Column4: TcxGridDBColumn
Caption = #35268#26684
DataBinding.FieldName = 'C_Spec'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 70
end
object v1Column5: TcxGridDBColumn
Caption = #25104#20998
DataBinding.FieldName = 'Y_Composition'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 122
end
object Tv1Column11: TcxGridDBColumn
Caption = #20998#29305'(Dtex)'
DataBinding.FieldName = 'Denier'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 117
end
object Tv1Column14: TcxGridDBColumn
Caption = #25903#25968
DataBinding.FieldName = 'ZS'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 82
end
object Tv1Column15: TcxGridDBColumn
Caption = #32442#27861
DataBinding.FieldName = 'FF'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 70
end
object Tv1Column6: TcxGridDBColumn
Caption = #32463#19997'/'#32428#19997
DataBinding.FieldName = 'YRType'
DataBinding.IsNullValueType = True
GroupSummaryAlignment = taCenter
HeaderAlignmentHorz = taCenter
Width = 97
end
object Tv1Column1: TcxGridDBColumn
Caption = #25467#24230
DataBinding.FieldName = 'ND'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxComboBoxProperties'
Properties.Items.Strings = (
'A'
'B'
'C')
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 95
end
object Tv1Column5: TcxGridDBColumn
Caption = #39068#33394
DataBinding.FieldName = 'Y_Color'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 108
end
object v1PRTOrderQty: TcxGridDBColumn
Caption = #25968#37327
DataBinding.FieldName = 'Qty'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
Properties.OnEditValueChanged = v1PRTOrderQtyPropertiesEditValueChanged
HeaderAlignmentHorz = taCenter
Width = 94
end
object v1OrderUnit: TcxGridDBColumn
Caption = #21333#20301
DataBinding.FieldName = 'QtyUnit'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxComboBoxProperties'
Properties.DropDownListStyle = lsEditFixedList
Properties.Items.Strings = (
'Kg'
'M'
'Y')
HeaderAlignmentHorz = taCenter
Width = 80
end
object v1PRTPrice: TcxGridDBColumn
Caption = #21333#20215
DataBinding.FieldName = 'Price'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
Properties.OnEditValueChanged = v1PRTOrderQtyPropertiesEditValueChanged
HeaderAlignmentHorz = taCenter
Options.Sorting = False
Width = 90
end
object Tv1Column9: TcxGridDBColumn
Caption = #37329#39069
DataBinding.FieldName = 'Amount'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 90
end
object Tv1Column4: TcxGridDBColumn
Caption = #24065#31181
DataBinding.FieldName = 'currency'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxComboBoxProperties'
Properties.Items.Strings = (
'USD'
'RMB'
'VND')
HeaderAlignmentHorz = taCenter
end
object Tv1Column3: TcxGridDBColumn
Caption = #20132#36135#26085#26399
DataBinding.FieldName = 'SDlyDate'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxDateEditProperties'
HeaderAlignmentHorz = taCenter
Width = 109
end
object v1Column2: TcxGridDBColumn
Caption = #22791#27880
DataBinding.FieldName = 'SNote'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 122
end
end
object cxGrid1Level1: TcxGridLevel
GridView = Tv1
end
end
object ScrollBox1: TScrollBox [3]
Left = 0
Top = 30
Width = 1524
Height = 126
Align = alTop
BevelInner = bvNone
BevelOuter = bvNone
BorderStyle = bsNone
Color = clWhite
Ctl3D = False
ParentColor = False
ParentCtl3D = False
TabOrder = 3
ExplicitLeft = 1
object lbl5: TLabel
Left = 32
Top = 50
Width = 80
Height = 21
Caption = #19979#21333#26085#26399#65306
end
object lbl6: TLabel
Left = 32
Top = 10
Width = 80
Height = 21
Caption = #37319#36141#21333#21495#65306
end
object lbl7: TLabel
Left = 616
Top = 10
Width = 80
Height = 21
Caption = #25105#26041#21333#20301#65306
end
object lbl8: TLabel
Left = 328
Top = 10
Width = 80
Height = 21
AutoSize = False
Caption = #20379#24212#21830#65306
end
object lbl1: TLabel
Left = 616
Top = 50
Width = 80
Height = 21
Caption = #20184#27454#26041#24335#65306
end
object lbl3: TLabel
Left = 328
Top = 50
Width = 80
Height = 21
Caption = #36816#36755#26041#24335#65306
end
object Label23: TLabel
Left = 904
Top = 50
Width = 80
Height = 21
AutoSize = False
Caption = #31867#22411#65306
end
object Label1: TLabel
Left = 904
Top = 10
Width = 80
Height = 21
Caption = #23384#25918#21333#20301#65306
Visible = False
end
object Label2: TLabel
Left = 34
Top = 95
Width = 78
Height = 21
Caption = #31246' '#29575#65306
end
object Label3: TLabel
Left = 1223
Top = 56
Width = 64
Height = 21
Caption = #32433#32447#24211#23384
end
object PurNo: TcxTextEdit
Tag = 2
Left = 119
Top = 4
TabOrder = 0
Text = #33258#21160#29983#25104
Width = 200
end
object Sellname: TcxButtonEdit
Tag = 2
Left = 414
Top = 3
Properties.Buttons = <
item
Default = True
Kind = bkEllipsis
end>
Properties.ReadOnly = True
Properties.OnButtonClick = SellnamePropertiesButtonClick
Style.ButtonStyle = btsDefault
TabOrder = 1
OnClick = SellnameClick
OnDblClick = BuyNameDblClick
Width = 200
end
object BuyName: TcxButtonEdit
Tag = 2
Left = 700
Top = 4
Properties.Buttons = <
item
Default = True
Kind = bkEllipsis
end>
Properties.ReadOnly = True
Properties.OnButtonClick = BuyNamePropertiesButtonClick
Style.ButtonStyle = btsDefault
TabOrder = 2
OnClick = SellnameClick
OnDblClick = BuyNameDblClick
Width = 200
end
object PurDate: TcxDateEdit
Tag = 2
Left = 119
Top = 44
Properties.ShowTime = False
TabOrder = 3
Width = 200
end
object Payment: TcxButtonEdit
Tag = 2
Left = 698
Top = 43
Hint = 'Payment/'#20184#27454#26041#24335
Properties.Buttons = <
item
Default = True
Kind = bkEllipsis
end>
Properties.ReadOnly = True
Properties.OnButtonClick = ShipMentPropertiesButtonClick
Style.ButtonStyle = btsDefault
TabOrder = 4
OnClick = SellnameClick
OnDblClick = BuyNameDblClick
Width = 200
end
object ShipMent: TcxButtonEdit
Tag = 2
Left = 414
Top = 44
Hint = 'ShipMent/'#36816#36755#26041#24335
Properties.Buttons = <
item
Default = True
Kind = bkEllipsis
end>
Properties.ReadOnly = True
Properties.OnButtonClick = ShipMentPropertiesButtonClick
Style.ButtonStyle = btsDefault
TabOrder = 5
OnClick = SellnameClick
OnDblClick = BuyNameDblClick
Width = 200
end
object PurType: TcxComboBox
Tag = 2
Left = 988
Top = 44
Properties.Items.Strings = (
#35746#21333
#22791#36135
#35797#26679
#36192#36865)
TabOrder = 6
Width = 200
end
object StkName: TcxButtonEdit
Tag = 2
Left = 988
Top = 4
Properties.Buttons = <
item
Default = True
Kind = bkEllipsis
end>
Properties.ReadOnly = True
Properties.OnButtonClick = StkNamePropertiesButtonClick
Style.ButtonStyle = btsDefault
TabOrder = 7
Visible = False
OnClick = SellnameClick
OnDblClick = BuyNameDblClick
Width = 200
end
object ShuiLv: TcxTextEdit
Tag = 2
Left = 119
Top = 91
Properties.OnEditValueChanged = ShuiLvPropertiesEditValueChanged
TabOrder = 8
Width = 200
end
end
object cxGrid2: TcxGrid [4]
Left = 1479
Top = 186
Width = 45
Height = 465
Align = alRight
BorderStyle = cxcbsNone
PopupMenu = pm_sub
TabOrder = 4
Visible = False
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
end
item
Format = '0'
Position = spFooter
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.Deleting = False
OptionsData.DeletingConfirmation = False
OptionsView.Footer = True
OptionsView.GroupByBox = False
object TV2Column2: TcxGridDBColumn
Caption = #21333#20215
DataBinding.FieldName = 'Price'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 88
end
object TV2Column1: TcxGridDBColumn
Caption = #26085#26399
DataBinding.FieldName = 'PurDate'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 137
end
object TV2Column4: TcxGridDBColumn
Caption = #20379#24212#21830
DataBinding.FieldName = 'Sellname'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 94
end
object TV2Column3: TcxGridDBColumn
Caption = #21697#21517
DataBinding.FieldName = 'Y_Name'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 96
end
end
object cxGridLevel2: TcxGridLevel
GridView = TV2
end
end
inherited ADOQueryBaseCmd: TADOQuery
Connection = DataLink_PurchasePlan.ADOLink
Left = 1185
Top = 328
end
inherited ADOQueryBaseTemp: TADOQuery
Connection = DataLink_PurchasePlan.ADOLink
Left = 1057
Top = 289
end
inherited ImageList_new32: TImageList
Left = 968
Top = 360
end
inherited cxImageList_bar: TcxImageList
FormatVersion = 1
Left = 527
Top = 350
DesignInfo = 22938127
end
object ADOTemp: TADOQuery
Connection = DataLink_PurchasePlan.ADOLink
LockType = ltReadOnly
Parameters = <>
Left = 765
Top = 284
end
object ADOCmd: TADOQuery
Connection = DataLink_PurchasePlan.ADOLink
Parameters = <>
Left = 890
Top = 278
end
object DS_1: TDataSource
DataSet = Order_Sub
Left = 860
Top = 404
end
object Order_Sub: TClientDataSet
Aggregates = <>
IndexFieldNames = 'SerialNo'
Params = <>
Left = 716
Top = 404
end
object cxgrdpmn1: TcxGridPopupMenu
Grid = cxGrid1
PopupMenus = <>
Left = 464
Top = 348
end
object pm_sub: TPopupMenu
Left = 598
Top = 323
object N1: TMenuItem
Caption = #26222#36890#26367#25442
OnClick = N1Click
end
object N2: TMenuItem
Caption = #20135#21697#26367#25442
OnClick = N2Click
end
end
object DS_2: TDataSource
DataSet = CDS_2
Left = 772
Top = 476
end
object CDS_2: TClientDataSet
Aggregates = <>
Params = <>
Left = 824
Top = 465
end
object GPM_2: TcxGridPopupMenu
PopupMenus = <>
Left = 648
Top = 476
end
object ADO_2: TADOQuery
Connection = DataLink_PurchasePlan.ADOLink
LockType = ltReadOnly
Parameters = <>
Left = 576
Top = 461
end
object ADOQuery1: TADOQuery
Connection = DataLink_PurchasePlan.ADOLink
LockType = ltReadOnly
Parameters = <>
Left = 871
Top = 317
end
end