D10xhGemei/T02贸易汇总仓库/U_ClothPurchaseEnterList.dfm

695 lines
18 KiB
Plaintext
Raw Normal View History

2024-12-14 17:23:12 +08:00
inherited frmClothPurchaseEnterList: TfrmClothPurchaseEnterList
Left = 246
Top = 116
Caption = #24067#21305#37319#36141#35745#21010
2025-03-08 10:45:47 +08:00
ClientHeight = 565
ClientWidth = 1416
2024-12-14 17:23:12 +08:00
Color = clBtnFace
Font.Height = -16
FormStyle = fsMDIChild
2025-03-08 10:45:47 +08:00
Visible = True
ExplicitWidth = 1432
ExplicitHeight = 604
2024-12-14 17:23:12 +08:00
PixelsPerInch = 96
TextHeight = 21
object ToolBar1: TToolBar [0]
Tag = 1
Left = 0
Top = 0
2025-03-08 10:45:47 +08:00
Width = 1416
2024-12-14 17:23:12 +08:00
Height = 30
AutoSize = True
ButtonHeight = 30
2025-03-08 10:45:47 +08:00
ButtonWidth = 83
2024-12-14 17:23:12 +08:00
Caption = 'ToolBar1'
Color = clSkyBlue
DisabledImages = DataLink_TradeTotalClothStk.cxImageList_bar
Images = DataLink_TradeTotalClothStk.cxImageList_bar
List = True
ParentColor = False
ShowCaptions = True
TabOrder = 3
object TBRafresh: TToolButton
Left = 0
Top = 0
AutoSize = True
Caption = #21047#26032
ImageIndex = 1
OnClick = TBRafreshClick
end
object TBFind: TToolButton
2025-03-08 10:45:47 +08:00
Left = 63
2024-12-14 17:23:12 +08:00
Top = 0
AutoSize = True
Caption = #36807#28388
ImageIndex = 0
OnClick = TBFindClick
end
object ToolButton7: TToolButton
2025-03-08 10:45:47 +08:00
Left = 126
2024-12-14 17:23:12 +08:00
Top = 0
AutoSize = True
Caption = #20445#23384#26684#24335
ImageIndex = 16
OnClick = ToolButton7Click
end
object TBClose: TToolButton
2025-03-08 10:45:47 +08:00
Left = 213
2024-12-14 17:23:12 +08:00
Top = 0
AutoSize = True
Caption = #20851#38381
ImageIndex = 7
OnClick = TBCloseClick
end
end
object Panel1: TPanel [1]
Left = 0
Top = 30
2025-03-08 10:45:47 +08:00
Width = 1416
2024-12-14 17:23:12 +08:00
Height = 83
Align = alTop
BevelInner = bvRaised
BevelOuter = bvLowered
ParentBackground = False
ParentColor = True
2025-03-08 10:45:47 +08:00
TabOrder = 5
ExplicitTop = 24
ExplicitWidth = 1735
2024-12-14 17:23:12 +08:00
object Label4: TLabel
Left = 452
Top = 50
Width = 64
Height = 21
Caption = #25105#26041#21333#20301
end
object Label9: TLabel
Left = 24
Top = 50
Width = 64
Height = 21
Caption = #37319#36141#21333#21495
end
object Label3: TLabel
Left = 246
Top = 50
Width = 48
Height = 21
Caption = #20379#24212#21830
end
object Label1: TLabel
Left = 674
Top = 50
2025-03-08 10:45:47 +08:00
Width = 64
2024-12-14 17:23:12 +08:00
Height = 21
2025-03-08 10:45:47 +08:00
Caption = #33394#24067#21517#31216
2024-12-14 17:23:12 +08:00
end
object BuyName: TcxTextEdit
Tag = 2
Left = 520
Top = 46
Properties.OnChange = PurNoPropertiesChange
TabOrder = 0
OnKeyPress = PurNoKeyPress
Width = 150
end
object PurNo: TcxTextEdit
Tag = 2
Left = 92
Top = 46
Properties.OnChange = PurNoPropertiesChange
TabOrder = 1
OnKeyPress = PurNoKeyPress
Width = 150
end
object SellName: TcxTextEdit
Tag = 2
Left = 298
Top = 46
Properties.OnChange = PurNoPropertiesChange
TabOrder = 2
OnKeyPress = PurNoKeyPress
Width = 150
end
inline frmFrameDateSel1: TfrmFrameDateSel
Left = 2
Top = 2
2025-03-08 10:45:47 +08:00
Width = 1412
2024-12-14 17:23:12 +08:00
Height = 37
Align = alTop
2024-12-24 14:19:53 +08:00
Color = clWhite
2024-12-14 17:23:12 +08:00
ParentBackground = False
2024-12-24 14:19:53 +08:00
ParentColor = False
2024-12-14 17:23:12 +08:00
TabOrder = 3
ExplicitLeft = 2
ExplicitTop = 2
ExplicitWidth = 1731
ExplicitHeight = 37
inherited lbl2: TLabel
Width = 16
Height = 21
ExplicitWidth = 16
ExplicitHeight = 21
end
inherited cxButton1: TcxButton
OnClick = cxButton1Click
end
inherited cxButton2: TcxButton
OnClick = cxButton2Click
end
inherited cxButton3: TcxButton
TabOrder = 5
OnClick = cxButton3Click
end
inherited cbbType: TcxComboBox
TabOrder = 4
end
inherited cxButton4: TcxButton
OnClick = cxButton4Click
end
inherited cxButton5: TcxButton
OnClick = cxButton5Click
end
end
2025-03-08 10:45:47 +08:00
object C_Name: TcxTextEdit
2024-12-14 17:23:12 +08:00
Tag = 2
2025-03-08 10:45:47 +08:00
Left = 742
2024-12-14 17:23:12 +08:00
Top = 46
Properties.OnChange = PurNoPropertiesChange
TabOrder = 4
OnKeyPress = PurNoKeyPress
Width = 150
end
end
object cxTabControl1: TcxTabControl [2]
Left = 0
Top = 113
2025-03-08 10:45:47 +08:00
Width = 1416
2024-12-14 17:23:12 +08:00
Height = 30
Align = alTop
TabOrder = 2
Properties.CustomButtons.Buttons = <>
Properties.Style = 9
Properties.TabIndex = 0
Properties.Tabs.Strings = (
' '#24453#22238#20179' '
#13' '#24050#23436#25104' '
#13' '#20840#37096' '#13)
OnChange = cxTabControl1Change
2025-03-08 10:45:47 +08:00
ExplicitWidth = 1735
2024-12-14 17:23:12 +08:00
ClientRectRight = 0
ClientRectTop = 0
end
2025-03-08 10:45:47 +08:00
object cxGrid1: TcxGrid [3]
2024-12-14 17:23:12 +08:00
Left = 0
Top = 143
2025-03-08 10:45:47 +08:00
Width = 1041
Height = 422
2024-12-14 17:23:12 +08:00
Align = alClient
BorderStyle = cxcbsNone
TabOrder = 4
2025-03-08 10:45:47 +08:00
ExplicitLeft = 2
ExplicitTop = 149
ExplicitWidth = 920
2024-12-14 17:23:12 +08:00
object TV1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
2025-03-08 10:45:47 +08:00
OnFocusedRecordChanged = TV1FocusedRecordChanged
2024-12-14 17:23:12 +08:00
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 = cxGridDBColumn9
end
item
Kind = skSum
Column = TV1Column8
end
item
Kind = skSum
Column = TV1Column7
end>
DataController.Summary.SummaryGroups = <>
OptionsBehavior.FocusCellOnTab = True
OptionsBehavior.GoToNextCellOnEnter = True
OptionsBehavior.FocusCellOnCycle = True
OptionsData.Deleting = False
OptionsData.DeletingConfirmation = False
OptionsView.Footer = True
OptionsView.GroupByBox = False
object TV1Column4: TcxGridDBColumn
Caption = #19979#21333#26085#26399
DataBinding.FieldName = 'PurDate'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 104
end
object TV1Column2: TcxGridDBColumn
Caption = #37319#36141#21333#21495
DataBinding.FieldName = 'PurNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 109
end
object TV1Column1: TcxGridDBColumn
Caption = #20379#24212#21830
DataBinding.FieldName = 'SellName'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 107
end
object TV1Column3: TcxGridDBColumn
Caption = #20132#36135#26085#26399
DataBinding.FieldName = 'DlyDate'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 106
end
object TV1Column5: TcxGridDBColumn
Caption = #31867#22411
DataBinding.FieldName = 'C_Degree'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 91
end
object VC_SCSCode: TcxGridDBColumn
Caption = #20135#21697#32534#21495
DataBinding.FieldName = 'C_Code'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxButtonEditProperties'
Properties.Buttons = <
item
Default = True
Kind = bkEllipsis
end>
Properties.ReadOnly = False
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 92
end
object cxGridDBColumn2: TcxGridDBColumn
2025-02-24 13:45:36 +08:00
Caption = #33394#24067#21517#31216
2024-12-14 17:23:12 +08:00
DataBinding.FieldName = 'C_Name'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 93
end
object v1Column5: TcxGridDBColumn
Caption = #35268#26684
DataBinding.FieldName = 'C_Spec'
DataBinding.IsNullValueType = True
2025-03-08 10:45:47 +08:00
Visible = False
2024-12-14 17:23:12 +08:00
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 60
end
object TV1Column6: TcxGridDBColumn
Caption = #20811#37325
DataBinding.FieldName = 'C_GramWeight'
DataBinding.IsNullValueType = True
2025-03-08 10:45:47 +08:00
Visible = False
2024-12-14 17:23:12 +08:00
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
end
object TV1Column9: TcxGridDBColumn
Caption = #38376#24133
DataBinding.FieldName = 'C_Width'
DataBinding.IsNullValueType = True
2025-03-08 10:45:47 +08:00
Visible = False
2024-12-14 17:23:12 +08:00
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
end
object cxGridDBColumn4: TcxGridDBColumn
Caption = #25104#20998
DataBinding.FieldName = 'C_Composition'
DataBinding.IsNullValueType = True
2025-03-08 10:45:47 +08:00
Visible = False
2024-12-14 17:23:12 +08:00
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 70
end
object cxGridDBColumn5: TcxGridDBColumn
Caption = #39068#33394
DataBinding.FieldName = 'C_Color'
DataBinding.IsNullValueType = True
2025-03-08 10:45:47 +08:00
Visible = False
2024-12-14 17:23:12 +08:00
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 70
end
object v1PRTOrderQty: TcxGridDBColumn
2025-03-08 10:45:47 +08:00
Caption = #19979#21333#25968#37327
2024-12-14 17:23:12 +08:00
DataBinding.FieldName = 'Qty'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 70
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
Options.Editing = False
Width = 58
end
object v1PRTPrice: TcxGridDBColumn
Caption = #21333#20215
DataBinding.FieldName = 'Price'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Options.Sorting = False
Width = 70
end
object cxGridDBColumn9: TcxGridDBColumn
Caption = #37329#39069
DataBinding.FieldName = 'Amount'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 84
end
object v1Column2: TcxGridDBColumn
Caption = #22791#27880
DataBinding.FieldName = 'SNote'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 92
end
object TV1Column8: TcxGridDBColumn
Caption = #22238#20179#21305#25968
DataBinding.FieldName = 'LJHCPiece'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 114
end
object TV1Column7: TcxGridDBColumn
Caption = #22238#20179#25968#37327
DataBinding.FieldName = 'LJHCQty'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 120
end
end
object cxGridLevel1: TcxGridLevel
GridView = TV1
end
end
2025-03-08 10:45:47 +08:00
inherited loadProcess: TPanel
Left = 361
Top = 328
ExplicitLeft = 361
ExplicitTop = 328
2024-12-14 17:23:12 +08:00
end
2025-03-08 10:45:47 +08:00
inherited cxProgressBar2: TcxProgressBar
Left = 361
Top = 275
ExplicitLeft = 361
ExplicitTop = 275
ExplicitHeight = 29
end
object Panel2: TPanel [6]
Left = 1049
Top = 143
Width = 367
Height = 422
Align = alRight
2024-12-14 17:23:12 +08:00
TabOrder = 6
2025-03-08 10:45:47 +08:00
ExplicitLeft = 1112
object cxGrid2: TcxGrid
Left = 1
Top = 31
Width = 365
Height = 390
Align = alClient
BorderStyle = cxcbsNone
TabOrder = 0
ExplicitLeft = -2
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
2024-12-14 17:23:12 +08:00
end
2025-03-08 10:45:47 +08:00
item
Format = '0'
Position = spFooter
2024-12-14 17:23:12 +08:00
end
2025-03-08 10:45:47 +08:00
item
Format = '0'
Position = spFooter
end>
DataController.Summary.FooterSummaryItems = <
item
Kind = skSum
2024-12-14 17:23:12 +08:00
end
2025-03-08 10:45:47 +08:00
item
Kind = skSum
2024-12-14 17:23:12 +08:00
end
2025-03-08 10:45:47 +08:00
item
Kind = skSum
2024-12-14 17:23:12 +08:00
end
2025-03-08 10:45:47 +08:00
item
Kind = skSum
2024-12-14 17:23:12 +08:00
end
2025-03-08 10:45:47 +08:00
item
Kind = skSum
2024-12-14 17:23:12 +08:00
end
2025-03-08 10:45:47 +08:00
item
Kind = skSum
Column = TV2Column4
2024-12-14 17:23:12 +08:00
end
2025-03-08 10:45:47 +08:00
item
Kind = skSum
Column = TV2Column3
end>
DataController.Summary.SummaryGroups = <>
OptionsBehavior.FocusCellOnTab = True
OptionsBehavior.GoToNextCellOnEnter = True
OptionsBehavior.FocusCellOnCycle = True
OptionsData.Deleting = False
OptionsData.DeletingConfirmation = False
OptionsView.Footer = True
OptionsView.GroupByBox = False
object TV2Column1: TcxGridDBColumn
Caption = #20837#24211#21333#21495
DataBinding.FieldName = 'BCIONO'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 94
end
object TV2Column2: TcxGridDBColumn
Caption = #20837#24211#26102#38388
DataBinding.FieldName = 'IOTime'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 85
2024-12-14 17:23:12 +08:00
end
2025-03-08 10:45:47 +08:00
object TV2Column4: TcxGridDBColumn
Caption = #21305#25968
DataBinding.FieldName = 'Piece'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 73
2024-12-14 17:23:12 +08:00
end
2025-03-08 10:45:47 +08:00
object TV2Column3: TcxGridDBColumn
Caption = #25968#37327
DataBinding.FieldName = 'Qty'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 81
end
end
object cxGridLevel2: TcxGridLevel
GridView = TV2
2024-12-14 17:23:12 +08:00
end
end
2025-03-08 10:45:47 +08:00
object ToolBar2: TToolBar
Tag = 1
Left = 1
Top = 1
Width = 365
Height = 30
AutoSize = True
ButtonHeight = 30
ButtonWidth = 83
Caption = 'ToolBar1'
Color = clSkyBlue
DisabledImages = DataLink_TradeTotalClothStk.cxImageList_bar
Images = DataLink_TradeTotalClothStk.cxImageList_bar
List = True
ParentColor = False
ShowCaptions = True
TabOrder = 1
object ToolButton5: TToolButton
2024-12-14 17:23:12 +08:00
Left = 0
Top = 0
2025-03-08 10:45:47 +08:00
AutoSize = True
Caption = #37319#36141#30721#21333
ImageIndex = 2
OnClick = ToolButton5Click
end
object ToolButton1: TToolButton
Left = 87
Top = 0
AutoSize = True
Caption = #20462#25913
ImageIndex = 3
OnClick = ToolButton1Click
2024-12-14 17:23:12 +08:00
end
end
end
2025-03-08 10:45:47 +08:00
object cxSplitter1: TcxSplitter [7]
Left = 1041
Top = 143
Width = 8
Height = 422
HotZoneClassName = 'TcxMediaPlayer9Style'
AlignSplitter = salRight
Control = Panel2
ExplicitLeft = 0
ExplicitTop = 557
ExplicitHeight = 1479
2024-12-14 17:23:12 +08:00
end
inherited ADOQueryBaseCmd: TADOQuery
Connection = DataLink_TradeTotalClothStk.ADOLink
Left = 73
Top = 208
end
inherited ADOQueryBaseTemp: TADOQuery
Connection = DataLink_TradeTotalClothStk.ADOLink
Left = 201
Top = 201
end
object GPM_1: TcxGridPopupMenu
Grid = cxGrid1
PopupMenus = <>
Left = 664
Top = 288
end
object ADOQueryCmd: TADOQuery
Connection = DataLink_TradeTotalClothStk.ADOLink
Parameters = <>
2025-03-08 10:45:47 +08:00
Left = 232
Top = 288
2024-12-14 17:23:12 +08:00
end
object ADOQueryMain: TADOQuery
Connection = DataLink_TradeTotalClothStk.ADOLink
LockType = ltReadOnly
Parameters = <>
2025-03-08 10:45:47 +08:00
Left = 640
Top = 200
2024-12-14 17:23:12 +08:00
end
object ADOQueryTemp: TADOQuery
Connection = DataLink_TradeTotalClothStk.ADOLink
LockType = ltReadOnly
Parameters = <>
Left = 72
Top = 264
end
object DS_1: TDataSource
DataSet = CDS_1
Left = 744
Top = 288
end
object CDS_1: TClientDataSet
Aggregates = <>
Params = <>
Left = 704
Top = 288
end
object pm1: TPopupMenu
2025-03-08 10:45:47 +08:00
Left = 304
Top = 192
2024-12-14 17:23:12 +08:00
object N5: TMenuItem
Caption = #20840#36873
OnClick = N5Click
end
object N6: TMenuItem
Caption = #20840#24323
OnClick = N6Click
end
object N3: TMenuItem
Caption = #22797#21046
OnClick = N3Click
end
end
object ADOQueryImage: TADOQuery
Connection = DataLink_TradeTotalClothStk.ADOLink
Parameters = <>
Left = 136
Top = 491
end
object ADO_2: TADOQuery
Connection = DataLink_TradeTotalClothStk.ADOLink
LockType = ltReadOnly
Parameters = <>
2025-03-08 10:45:47 +08:00
Left = 560
2024-12-14 17:23:12 +08:00
Top = 344
end
2025-03-08 10:45:47 +08:00
object GPM_2: TcxGridPopupMenu
Grid = cxGrid2
2024-12-14 17:23:12 +08:00
PopupMenus = <>
2025-03-08 10:45:47 +08:00
Left = 584
Top = 432
2024-12-14 17:23:12 +08:00
end
2025-03-08 10:45:47 +08:00
object DS_2: TDataSource
DataSet = ADO_2
Left = 664
Top = 432
2024-12-14 17:23:12 +08:00
end
end