RTFormwork/项目代码/RTBasicsV1/A03基础价格管理/U_ClothInquiryInPut.dfm
“ddf” 61630656e9 1
2024-07-07 09:35:27 +08:00

934 lines
24 KiB
Plaintext

inherited frmClothInquiryInPut: TfrmClothInquiryInPut
Left = 219
Top = 76
Caption = #35810#20215#24405#20837
ClientHeight = 714
ClientWidth = 1358
Color = clWhite
Font.Charset = GB2312_CHARSET
Font.Height = -12
Font.Name = #23435#20307
OldCreateOrder = True
Position = poScreenCenter
WindowState = wsMaximized
ExplicitWidth = 1374
ExplicitHeight = 753
PixelsPerInch = 96
TextHeight = 12
object ToolBar1: TToolBar [0]
Tag = 1
Left = 0
Top = 0
Width = 1358
Height = 38
AutoSize = True
ButtonHeight = 38
ButtonWidth = 91
Caption = 'ToolBar1'
Color = clWhite
DisabledImages = DataLink_MarketValue.ImageList_new32
Images = DataLink_MarketValue.ImageList_new32
List = True
ParentColor = False
ShowCaptions = True
TabOrder = 0
ExplicitWidth = 1506
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 = 166
Top = 0
AutoSize = True
Caption = #20851#38381
ImageIndex = 7
OnClick = TBCloseClick
end
end
object ScrollBox1: TScrollBox [1]
Left = 0
Top = 38
Width = 1358
Height = 283
Align = alTop
BevelInner = bvNone
BevelOuter = bvNone
BorderStyle = bsNone
Color = clWhite
Ctl3D = False
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
ParentColor = False
ParentCtl3D = False
ParentFont = False
TabOrder = 1
object Label3: TLabel
Left = 41
Top = 33
Width = 65
Height = 12
Caption = #35810#20215#26085#26399#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 = 41
Top = 6
Width = 65
Height = 12
Caption = #35810#20215#21333#21495#65306
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label14: TLabel
Left = 257
Top = 6
Width = 66
Height = 12
Caption = #20379' '#24212' '#21830#65306
Font.Charset = GB2312_CHARSET
Font.Color = clMaroon
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label20: TLabel
Left = 513
Top = 6
Width = 65
Height = 12
Caption = #25105#26041#21333#20301#65306
Font.Charset = GB2312_CHARSET
Font.Color = clBlue
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label27: TLabel
Left = 513
Top = 59
Width = 65
Height = 12
Caption = #26159#21542#21547#31246#65306
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label29: TLabel
Left = 256
Top = 86
Width = 66
Height = 12
Caption = #36215' '#36816' '#28207#65306
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label30: TLabel
Left = 512
Top = 86
Width = 66
Height = 12
Caption = #30446' '#30340' '#28207#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 = 754
Top = 59
Width = 67
Height = 12
Caption = #24065' '#31181#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 = 41
Top = 59
Width = 65
Height = 12
Caption = #20184#27454#26041#24335#65306
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label12: TLabel
Left = 41
Top = 86
Width = 65
Height = 12
Caption = #36816#36755#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 = 41
Top = 128
Width = 91
Height = 12
Caption = #20844#21496#33337#26679#35201#27714#65306
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label13: TLabel
Left = 257
Top = 59
Width = 65
Height = 12
Caption = #20215#26684#26415#35821#65306
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label1: TLabel
Left = 41
Top = 157
Width = 91
Height = 12
Caption = #20179#24211#33337#26679#35201#27714#65306
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label8: TLabel
Left = 41
Top = 189
Width = 93
Height = 12
Caption = #21253' '#35013' '#35201' '#27714#65306
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label15: TLabel
Left = 513
Top = 33
Width = 65
Height = 12
Caption = #20132#26399#35828#26126#65306
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label16: TLabel
Left = 257
Top = 33
Width = 65
Height = 12
Caption = #20132#36135#26085#26399#65306
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object lblSalesId: TLabel
Left = 1067
Top = 302
Width = 65
Height = 12
Caption = #19994#21153#32534#21495#65306
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
Visible = False
end
object Label25: TLabel
Left = 1075
Top = 323
Width = 65
Height = 12
Caption = #29702#21333#32534#21495#65306
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
Visible = False
end
object MVCDate: TDateTimePicker
Tag = 2
Left = 109
Top = 29
Width = 125
Height = 20
BevelInner = bvNone
Date = 40916.000000000000000000
Format = 'yyyy-MM-dd'
Time = 0.670856296288548000
TabOrder = 0
end
object MVCNo: TEdit
Tag = 2
Left = 109
Top = 3
Width = 125
Height = 18
TabOrder = 1
Text = #33258#21160#29983#25104
end
object BuyName: TBtnEditC
Tag = 2
Left = 581
Top = 2
Width = 125
Height = 20
ReadOnly = True
TabOrder = 2
OnBtnUpClick = BuyNameBtnUpClick
OnBtnDnClick = BuyNameBtnDnClick
end
object Sellname: TBtnEditC
Tag = 2
Left = 325
Top = 2
Width = 125
Height = 20
Hint = 'SellName/'#32463#33829#21333#20301
TabOrder = 3
OnBtnUpClick = SellNameBtnUpClick
OnBtnDnClick = BuyNameBtnDnClick
end
object IsTax: TComboBox
Tag = 2
Left = 581
Top = 55
Width = 125
Height = 20
TabOrder = 4
Items.Strings = (
#26159
#21542)
end
object QiYun: TBtnEditC
Tag = 2
Left = 325
Top = 82
Width = 125
Height = 20
Hint = 'QiYun/'#36215#36816#28207
TabOrder = 5
OnBtnUpClick = QiYunBtnUpClick
OnBtnDnClick = BuyNameBtnDnClick
end
object MuDi: TBtnEditC
Tag = 2
Left = 581
Top = 82
Width = 125
Height = 20
Hint = 'MuDi/'#30446#30340#28207
TabOrder = 6
OnBtnUpClick = QiYunBtnUpClick
OnBtnDnClick = BuyNameBtnDnClick
end
object Currency: TComboBox
Tag = 2
Left = 827
Top = 55
Width = 125
Height = 20
TabOrder = 7
Text = 'USD'
Items.Strings = (
'CNY'
'USD')
end
object YunShu: TBtnEditC
Tag = 2
Left = 109
Top = 81
Width = 125
Height = 20
Hint = 'YunShu/'#36816#36755#26041#24335
TabOrder = 8
OnBtnUpClick = QiYunBtnUpClick
OnBtnDnClick = BuyNameBtnDnClick
end
object Payment: TBtnEditC
Tag = 2
Left = 109
Top = 55
Width = 125
Height = 20
Hint = 'Payment/'#20184#27454#26041#24335
TabOrder = 9
OnBtnUpClick = QiYunBtnUpClick
OnBtnDnClick = BuyNameBtnDnClick
end
object GSChuanYangNote: TBtnEditC
Tag = 2
Left = 135
Top = 126
Width = 600
Height = 20
Hint = 'GSChuanYangNote/'#20844#21496#33337#26679#35201#27714
AutoSize = False
TabOrder = 10
OnBtnUpClick = QiYunBtnUpClick
OnBtnDnClick = BuyNameBtnDnClick
end
object JiaGeSY: TBtnEditC
Tag = 2
Left = 325
Top = 55
Width = 125
Height = 20
Hint = 'JiaGeSY/'#20215#26684#26415#35821
TabOrder = 11
OnBtnUpClick = QiYunBtnUpClick
OnBtnDnClick = BuyNameBtnDnClick
end
object CKChuanYangNote: TBtnEditC
Tag = 2
Left = 135
Top = 155
Width = 600
Height = 20
Hint = 'CKChuanYangNote/'#20179#24211#33337#26679#35201#27714
AutoSize = False
TabOrder = 12
OnBtnUpClick = QiYunBtnUpClick
OnBtnDnClick = BuyNameBtnDnClick
end
object Packing: TBtnEditC
Tag = 2
Left = 135
Top = 185
Width = 600
Height = 20
Hint = 'Packing/'#21253#35013#35201#27714
AutoSize = False
TabOrder = 13
OnBtnUpClick = QiYunBtnUpClick
OnBtnDnClick = BuyNameBtnDnClick
end
object DlyDate: TDateTimePicker
Tag = 2
Left = 325
Top = 29
Width = 125
Height = 20
BevelInner = bvNone
Date = 40916.000000000000000000
Format = 'yyyy-MM-dd'
Time = 0.670856296288548000
TabOrder = 14
end
object ShippMent: TEdit
Tag = 2
Left = 581
Top = 30
Width = 371
Height = 18
TabOrder = 15
OnKeyPress = ShippMentKeyPress
end
object SalesId: TEdit
Tag = 2
Left = 1138
Top = 296
Width = 125
Height = 18
TabOrder = 16
Visible = False
end
object TallyId: TEdit
Tag = 2
Left = 1139
Top = 320
Width = 125
Height = 18
TabOrder = 17
Visible = False
end
end
object Panel1: TPanel [2]
Left = 0
Top = 321
Width = 1358
Height = 393
Align = alClient
TabOrder = 2
ExplicitTop = 257
ExplicitWidth = 1506
ExplicitHeight = 358
object Panel2: TPanel
Left = 322
Top = 1
Width = 1035
Height = 391
Align = alClient
TabOrder = 0
ExplicitWidth = 1183
ExplicitHeight = 356
object ToolBar2: TToolBar
Tag = 1
Left = 1
Top = 1
Width = 1033
Height = 38
AutoSize = True
ButtonHeight = 38
ButtonWidth = 91
Caption = 'ToolBar1'
Color = clBtnFace
DisabledImages = DataLink_MarketValue.ImageList_new32
EdgeInner = esNone
EdgeOuter = esNone
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
Images = DataLink_MarketValue.ImageList_new32
List = True
ParentColor = False
ParentFont = False
ShowCaptions = True
TabOrder = 0
ExplicitWidth = 1181
object ToolButton1: TToolButton
Left = 0
Top = 0
AutoSize = True
Caption = #22686#34892
ImageIndex = 2
OnClick = ToolButton1Click
end
object ToolButton2: TToolButton
Left = 71
Top = 0
AutoSize = True
Caption = #21024#34892
ImageIndex = 6
OnClick = ToolButton2Click
end
object ToolButton4: TToolButton
Left = 142
Top = 0
AutoSize = True
Caption = #21382#21490#25253#20215
ImageIndex = 23
OnClick = ToolButton4Click
end
end
object cxGrid1: TcxGrid
Left = 1
Top = 39
Width = 1033
Height = 351
Align = alClient
BorderStyle = cxcbsNone
TabOrder = 1
ExplicitWidth = 1181
ExplicitHeight = 316
object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
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
end
item
Format = '0'
Position = spFooter
Column = v1PRTPrice
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 Tv1Column7: TcxGridDBColumn
Tag = 9
Caption = #36873#25321
DataBinding.FieldName = 'SSel'
PropertiesClassName = 'TcxCheckBoxProperties'
Properties.ImmediatePost = True
Properties.NullStyle = nssUnchecked
HeaderAlignmentHorz = taCenter
Width = 41
end
object v1XHNo: TcxGridDBColumn
Caption = #24207#21495
DataBinding.FieldName = 'SerialNo'
HeaderAlignmentHorz = taCenter
SortIndex = 0
SortOrder = soAscending
Styles.Header = DataLink_MarketValue.Default
Width = 55
end
object VC_SCSCode: TcxGridDBColumn
Caption = #20135#21697#32534#21495
DataBinding.FieldName = 'C_Code'
PropertiesClassName = 'TcxButtonEditProperties'
Properties.Buttons = <
item
Default = True
Kind = bkEllipsis
end>
Properties.ReadOnly = False
Properties.OnButtonClick = v1Column10PropertiesButtonClick
HeaderAlignmentHorz = taCenter
Width = 77
end
object v1Column4: TcxGridDBColumn
Caption = #20135#21697#21517#31216
DataBinding.FieldName = 'C_Name'
HeaderAlignmentHorz = taCenter
Width = 70
end
object Tv1Column3: TcxGridDBColumn
Caption = #20135#21697#33521#25991#21517
DataBinding.FieldName = 'C_EName'
PropertiesClassName = 'TcxButtonEditProperties'
Properties.Buttons = <
item
Default = True
Kind = bkEllipsis
end>
Properties.ReadOnly = False
HeaderAlignmentHorz = taCenter
Width = 89
end
object v1Column5: TcxGridDBColumn
Caption = #35268#26684
DataBinding.FieldName = 'C_Spec'
HeaderAlignmentHorz = taCenter
Width = 60
end
object v1Column1: TcxGridDBColumn
Caption = #25104#20998
DataBinding.FieldName = 'C_Composition'
HeaderAlignmentHorz = taCenter
Width = 70
end
object Tv1Column5: TcxGridDBColumn
Caption = #39068#33394
DataBinding.FieldName = 'C_Color'
HeaderAlignmentHorz = taCenter
Width = 70
end
object v1Column8: TcxGridDBColumn
Caption = #33394#21495
DataBinding.FieldName = 'C_ColorNo'
HeaderAlignmentHorz = taCenter
Width = 57
end
object Tv1Column1: TcxGridDBColumn
Caption = #27454#21495
DataBinding.FieldName = 'C_StyleNo'
HeaderAlignmentHorz = taCenter
Width = 77
end
object Tv1Column8: TcxGridDBColumn
Caption = #33457#22411
DataBinding.FieldName = 'C_Pattern'
PropertiesClassName = 'TcxButtonEditProperties'
Properties.Buttons = <
item
Default = True
Kind = bkEllipsis
end>
Properties.ReadOnly = True
HeaderAlignmentHorz = taCenter
Width = 70
end
object v1Column6: TcxGridDBColumn
Caption = #38376#24133
DataBinding.FieldName = 'C_Width'
PropertiesClassName = 'TcxButtonEditProperties'
Properties.Buttons = <
item
Default = True
Kind = bkEllipsis
end>
Properties.OnButtonClick = v1Column6PropertiesButtonClick
HeaderAlignmentHorz = taCenter
Width = 70
end
object v1Column7: TcxGridDBColumn
Caption = #20811#37325
DataBinding.FieldName = 'C_GramWeight'
PropertiesClassName = 'TcxButtonEditProperties'
Properties.Buttons = <
item
Default = True
Kind = bkEllipsis
end>
Properties.OnButtonClick = v1Column7PropertiesButtonClick
HeaderAlignmentHorz = taCenter
Width = 70
end
object v1PRTPrice: TcxGridDBColumn
Caption = #21333#20215
DataBinding.FieldName = 'Price'
PropertiesClassName = 'TcxTextEditProperties'
HeaderAlignmentHorz = taCenter
Options.Sorting = False
Styles.Header = DataLink_MarketValue.handBlack
Width = 70
end
object v1OrderUnit: TcxGridDBColumn
Caption = #21333#20301
DataBinding.FieldName = 'QtyUnit'
PropertiesClassName = 'TcxComboBoxProperties'
Properties.DropDownListStyle = lsEditFixedList
Properties.Items.Strings = (
'Kg'
'M'
'Y')
HeaderAlignmentHorz = taCenter
Styles.Header = DataLink_MarketValue.Default
Width = 58
end
object v1Column2: TcxGridDBColumn
Caption = #22791#27880
DataBinding.FieldName = 'MVCSNote'
HeaderAlignmentHorz = taCenter
Width = 70
end
end
object cxGrid1Level1: TcxGridLevel
GridView = Tv1
end
end
end
object GroupBox5: TGroupBox
Left = 1
Top = 1
Width = 321
Height = 391
Align = alLeft
Caption = #21382#21490#25253#20215
TabOrder = 1
ExplicitHeight = 356
object cxGrid2: TcxGrid
Left = 2
Top = 14
Width = 317
Height = 375
Align = alClient
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 0
ExplicitHeight = 340
object TV2: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
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 = <>
DataController.Summary.SummaryGroups = <>
OptionsBehavior.FocusCellOnTab = True
OptionsBehavior.GoToNextCellOnEnter = True
OptionsBehavior.FocusCellOnCycle = True
OptionsData.Deleting = False
OptionsView.GroupByBox = False
object TV2Column4: TcxGridDBColumn
Caption = #20379#24212#21830
DataBinding.FieldName = 'BuyName'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
end
object TV2Column2: TcxGridDBColumn
Caption = #21333#20215
DataBinding.FieldName = 'Price'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 50
end
object TV2Column1: TcxGridDBColumn
Caption = #20135#21697#32534#21495
DataBinding.FieldName = 'C_Code'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 78
end
object TV2Column3: TcxGridDBColumn
Caption = #25253#20215#26085#26399
DataBinding.FieldName = 'MVCDate'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 84
end
end
object cxGridLevel1: TcxGridLevel
GridView = TV2
end
end
end
end
inherited ADOQueryBaseCmd: TADOQuery
Connection = DataLink_MarketValue.ADOLink
Left = 1001
Top = 24
end
inherited ADOQueryBaseTemp: TADOQuery
Connection = DataLink_MarketValue.ADOLink
Left = 1097
Top = 17
end
inherited ImageList_new32: TImageList
Left = 1112
Top = 200
end
object ADOTemp: TADOQuery
Connection = DataLink_MarketValue.ADOLink
LockType = ltReadOnly
Parameters = <>
Left = 1280
Top = 101
end
object ADOCmd: TADOQuery
Connection = DataLink_MarketValue.ADOLink
Parameters = <>
Left = 1160
Top = 101
end
object DS_1: TDataSource
DataSet = Order_Sub
Left = 612
Top = 428
end
object Order_Sub: TClientDataSet
Aggregates = <>
IndexFieldNames = 'SerialNo'
Params = <>
Left = 540
Top = 412
end
object GPM_1: TcxGridPopupMenu
PopupMenus = <>
Left = 440
Top = 420
end
object CDS_2: TClientDataSet
Aggregates = <>
IndexFieldNames = 'SerialNo'
Params = <>
Left = 532
Top = 492
end
object DS_2: TDataSource
DataSet = CDS_2
Left = 596
Top = 500
end
object GPM_2: TcxGridPopupMenu
Grid = cxGrid2
PopupMenus = <>
Left = 456
Top = 492
end
end