D7wmbeiqi/贝其贸易管理/U_frmCgBjPut.dfm
DESKTOP-E401PHE\Administrator 0843d5fa7d ~
2025-04-30 16:20:38 +08:00

798 lines
19 KiB
Plaintext

object frmCgBjPut: TfrmCgBjPut
Left = 482
Top = 121
Width = 986
Height = 618
BorderIcons = [biSystemMenu]
Caption = #22383#24067#25253#20215#26032#22686#39029#38754
Color = clBtnFace
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
OldCreateOrder = False
Position = poScreenCenter
OnClose = FormClose
OnCreate = FormCreate
OnDestroy = FormDestroy
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 12
object Label6: TLabel
Left = 336
Top = 69
Width = 79
Height = 12
Caption = #27688#32438' '#21344#27604#65306
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label7: TLabel
Left = 340
Top = 81
Width = 79
Height = 12
Caption = #27688#32438' '#21344#27604#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 = 612
Top = 153
Width = 78
Height = 16
Caption = #32433' '#20215#65306
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label17: TLabel
Left = 612
Top = 209
Width = 78
Height = 16
Caption = #32433' '#20215#65306
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label18: TLabel
Left = 612
Top = 180
Width = 78
Height = 16
Caption = #32433' '#20215#65306
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object ToolBar1: TToolBar
Left = 0
Top = 0
Width = 970
Height = 29
ButtonHeight = 30
ButtonWidth = 59
Caption = 'ToolBar1'
Flat = True
Images = DataLink_TradeManage.ThreeImgList
List = True
ParentShowHint = False
ShowCaptions = True
ShowHint = False
TabOrder = 0
object TSave: TToolButton
Left = 0
Top = 0
Caption = #20445#23384
ImageIndex = 14
OnClick = TSaveClick
end
object TClose: TToolButton
Left = 59
Top = 0
Caption = #20851#38381
ImageIndex = 55
OnClick = TCloseClick
end
end
object cxGrid1: TcxGrid
Left = 0
Top = 384
Width = 970
Height = 145
Align = alTop
TabOrder = 1
object TV1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
DataController.DataSource = DataSource1
DataController.Summary.DefaultGroupSummaryItems = <>
DataController.Summary.FooterSummaryItems = <
item
end
item
end>
DataController.Summary.SummaryGroups = <>
OptionsCustomize.ColumnFiltering = False
OptionsView.Footer = True
OptionsView.GroupByBox = False
OptionsView.Indicator = True
Styles.Header = DataLink_TradeManage.FonePurple
object V1Column6: TcxGridDBColumn
Caption = #35746#21333#21495
PropertiesClassName = 'TcxButtonEditProperties'
Properties.Buttons = <
item
Default = True
Kind = bkEllipsis
end>
Properties.OnButtonClick = V1Column6PropertiesButtonClick
Visible = False
HeaderAlignmentHorz = taCenter
HeaderGlyphAlignmentHorz = taCenter
Width = 161
end
object TV1Column1: TcxGridDBColumn
Caption = #32433#32447#21517#31216
DataBinding.FieldName = 'Ssxmc'
HeaderAlignmentHorz = taCenter
HeaderGlyphAlignmentHorz = taCenter
Width = 117
end
object TV1Column2: TcxGridDBColumn
Caption = #39068#33394
DataBinding.FieldName = 'PRTColor'
PropertiesClassName = 'TcxButtonEditProperties'
Properties.Buttons = <
item
Default = True
Kind = bkEllipsis
end>
Properties.OnButtonClick = TV1Column2PropertiesButtonClick
HeaderAlignmentHorz = taCenter
HeaderGlyphAlignmentHorz = taCenter
Width = 97
end
object TV1Column3: TcxGridDBColumn
Caption = #21344#27604
DataBinding.FieldName = 'SZb'
HeaderAlignmentHorz = taCenter
HeaderGlyphAlignmentHorz = taCenter
Width = 88
end
object TV1Column7: TcxGridDBColumn
Caption = #25439#32791
DataBinding.FieldName = 'SSh'
HeaderAlignmentHorz = taCenter
Width = 66
end
object TV1Column6: TcxGridDBColumn
Caption = #22383#24067#25968#37327
DataBinding.FieldName = 'Spbsl'
PropertiesClassName = 'TcxTextEditProperties'
Properties.OnChange = TV1Column6PropertiesChange
Properties.OnEditValueChanged = TV1Column6PropertiesEditValueChanged
HeaderAlignmentHorz = taCenter
HeaderGlyphAlignmentHorz = taCenter
Width = 70
end
object TV1Column4: TcxGridDBColumn
Caption = #39044#35745#25968#37327
DataBinding.FieldName = 'SYjsl'
HeaderAlignmentHorz = taCenter
HeaderGlyphAlignmentHorz = taCenter
Width = 80
end
object TV1Column5: TcxGridDBColumn
Caption = #23454#38469#25968#37327
DataBinding.FieldName = 'SSjsl'
HeaderAlignmentHorz = taCenter
HeaderGlyphAlignmentHorz = taCenter
Width = 87
end
end
object cxGrid1Level1: TcxGridLevel
GridView = TV1
end
end
object ToolBar2: TToolBar
Left = 0
Top = 353
Width = 970
Height = 31
ButtonHeight = 30
ButtonWidth = 59
Caption = 'ToolBar2'
Flat = True
Images = DataLink_TradeManage.ThreeImgList
List = True
ShowCaptions = True
TabOrder = 2
object TAdd: TToolButton
Left = 0
Top = 0
AutoSize = True
Caption = #22686#34892
ImageIndex = 103
OnClick = TAddClick
end
object TDel: TToolButton
Left = 63
Top = 0
AutoSize = True
Caption = #21024#34892
ImageIndex = 107
OnClick = TDelClick
end
object ToolButton3: TToolButton
Left = 126
Top = 0
AutoSize = True
Caption = #22797#21046
ImageIndex = 104
OnClick = ToolButton3Click
end
end
object ScrollBox1: TcxScrollBox
Left = 0
Top = 29
Width = 970
Height = 164
Align = alTop
TabOrder = 3
object Label26: TLabel
Left = 36
Top = 15
Width = 113
Height = 14
Caption = #22383#24067#21697#21517'/'#35268#26684#65306
Font.Charset = GB2312_CHARSET
Font.Color = clBlue
Font.Height = -14
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label27: TLabel
Left = 328
Top = 37
Width = 75
Height = 14
Caption = #35746#21333#26085#26399#65306
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -14
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label28: TLabel
Left = 36
Top = 60
Width = 114
Height = 14
Caption = #35746#21333#25968#37327' ('#24635')'#65306
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -14
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label29: TLabel
Left = 36
Top = 37
Width = 114
Height = 14
Caption = #20379#24212' '#21830' '#21517' '#31216#65306
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -14
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label30: TLabel
Left = 35
Top = 83
Width = 115
Height = 14
Caption = #25104' '#21697' '#25439' '#32791' '#65306
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -14
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label31: TLabel
Left = 335
Top = 214
Width = 115
Height = 14
Caption = #31896' '#33014' '#21344' '#27604#65306
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -14
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
Visible = False
end
object Label34: TLabel
Left = 328
Top = 60
Width = 75
Height = 14
Caption = #22383#24067#25968#37327#65306
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -14
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label35: TLabel
Left = 329
Top = 109
Width = 75
Height = 14
Caption = #22383#24067#20215#26684#65306
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -14
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label36: TLabel
Left = 598
Top = 214
Width = 77
Height = 14
Caption = #32433' '#20215#65306
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -14
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
Visible = False
end
object Label39: TLabel
Left = 34
Top = 109
Width = 116
Height = 14
Caption = #21152' '#24037' '#36153' '#65306
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -14
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label43: TLabel
Left = 327
Top = 83
Width = 77
Height = 14
Caption = #20854' '#20182#65306
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -14
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label1: TLabel
Left = 631
Top = 37
Width = 75
Height = 14
Caption = #20132#20184#26085#26399#65306
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -14
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label2: TLabel
Left = 630
Top = 60
Width = 76
Height = 14
Caption = #19994' '#21153' '#32452#65306
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -14
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label3: TLabel
Left = 821
Top = 214
Width = 77
Height = 14
Caption = #25439' '#32791#65306
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -14
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
Visible = False
end
object Label4: TLabel
Left = 633
Top = 84
Width = 69
Height = 14
Caption = #22791' '#27880#65306
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -14
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label5: TLabel
Left = 332
Top = 12
Width = 60
Height = 14
Caption = #35746#21333#21495#65306
Font.Charset = GB2312_CHARSET
Font.Color = clBlue
Font.Height = -14
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object OrderDate: TDateTimePicker
Tag = 2
Left = 419
Top = 37
Width = 130
Height = 20
Date = 41906.701154328700000000
Format = 'yyyy-MM-dd'
Time = 41906.701154328700000000
TabOrder = 0
end
object OrderNum: TEdit
Tag = 2
Left = 160
Top = 60
Width = 130
Height = 20
TabOrder = 1
end
object CPSH: TEdit
Tag = 2
Left = 160
Top = 83
Width = 130
Height = 20
TabOrder = 2
end
object NJZB: TEdit
Tag = 2
Left = 460
Top = 214
Width = 130
Height = 20
TabOrder = 3
Visible = False
OnChange = NJZBChange
end
object JGPrice: TEdit
Tag = 2
Left = 160
Top = 109
Width = 130
Height = 20
TabOrder = 4
OnChange = NJZBChange
end
object PBNum: TEdit
Tag = 2
Left = 419
Top = 61
Width = 130
Height = 20
TabOrder = 5
end
object NJPrice: TEdit
Tag = 2
Left = 690
Top = 214
Width = 130
Height = 20
TabOrder = 6
Visible = False
OnChange = NJZBChange
end
object PBPrice: TEdit
Tag = 2
Left = 420
Top = 109
Width = 130
Height = 20
TabOrder = 7
end
object NJSH: TEdit
Tag = 2
Left = 913
Top = 214
Width = 130
Height = 20
TabOrder = 8
Text = '0'
Visible = False
OnChange = NJZBChange
end
object Note1: TEdit
Tag = 2
Left = 419
Top = 83
Width = 130
Height = 20
TabOrder = 9
end
object JFdate: TDateTimePicker
Tag = 2
Left = 723
Top = 37
Width = 130
Height = 20
Date = 41906.701154328700000000
Format = 'yyyy-MM-dd'
Time = 41906.701154328700000000
TabOrder = 10
end
object YWZ: TEdit
Tag = 2
Left = 723
Top = 60
Width = 130
Height = 20
TabOrder = 11
end
object PBName: TBtnEditC
Tag = 2
Left = 160
Top = 12
Width = 130
Height = 20
TabOrder = 12
OnBtnUpClick = PBNameBtnUpClick
OnBtnDnClick = PBNameBtnDnClick
end
object GYSName: TBtnEditA
Tag = 2
Left = 160
Top = 36
Width = 130
Height = 20
TabOrder = 13
OnBtnClick = GYSNameBtnClick
end
object Note2: TEdit
Tag = 2
Left = 724
Top = 84
Width = 130
Height = 20
TabOrder = 14
end
object orderno: TBtnEditC
Tag = 2
Left = 417
Top = 7
Width = 130
Height = 20
TabOrder = 15
OnBtnUpClick = ordernoBtnUpClick
OnBtnDnClick = PBNameBtnDnClick
end
end
object ToolBar3: TToolBar
Left = 0
Top = 193
Width = 970
Height = 29
ButtonHeight = 30
ButtonWidth = 59
Caption = 'ToolBar3'
Flat = True
Images = DataLink_TradeManage.ThreeImgList
List = True
ShowCaptions = True
TabOrder = 4
object ToolButton1: TToolButton
Left = 0
Top = 0
Caption = #22686#34892
ImageIndex = 103
OnClick = ToolButton1Click
end
object ToolButton2: TToolButton
Left = 59
Top = 0
Caption = #21024#34892
ImageIndex = 107
OnClick = ToolButton2Click
end
end
object cxGrid2: TcxGrid
Left = 0
Top = 222
Width = 970
Height = 131
Align = alTop
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 5
object TV2: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
DataController.DataSource = DataSource2
DataController.Summary.DefaultGroupSummaryItems = <>
DataController.Summary.FooterSummaryItems = <
item
Format = '0.0000'
Kind = skSum
Column = TV2Column4
end
item
Format = '0.0000'
Kind = skSum
Column = TV2Column2
end>
DataController.Summary.SummaryGroups = <>
OptionsView.Footer = True
OptionsView.GroupByBox = False
OptionsView.Indicator = True
Styles.Header = cxStyle1
object TV2Column5: TcxGridDBColumn
Caption = #32433#32447#21517#31216
DataBinding.FieldName = 'SXmc'
PropertiesClassName = 'TcxButtonEditProperties'
Properties.Buttons = <
item
Default = True
Kind = bkEllipsis
end>
Properties.OnButtonClick = TV2Column5PropertiesButtonClick
HeaderAlignmentHorz = taCenter
Width = 90
end
object TV2Column1: TcxGridDBColumn
Caption = #21344#27604'(%)'
DataBinding.FieldName = 'Zb'
PropertiesClassName = 'TcxTextEditProperties'
Properties.OnEditValueChanged = TV2Column1PropertiesEditValueChanged
HeaderAlignmentHorz = taCenter
Width = 98
end
object TV2Column2: TcxGridDBColumn
Caption = #32433#20215
DataBinding.FieldName = 'Sj'
PropertiesClassName = 'TcxCurrencyEditProperties'
Properties.DecimalPlaces = 4
Properties.DisplayFormat = #65509',0.0000;'#65509'-,0.0000'
Properties.OnEditValueChanged = TV2Column1PropertiesEditValueChanged
HeaderAlignmentHorz = taCenter
Width = 100
end
object TV2Column3: TcxGridDBColumn
Caption = #25439#32791'(%)'
DataBinding.FieldName = 'Sh'
PropertiesClassName = 'TcxTextEditProperties'
Properties.OnEditValueChanged = TV2Column1PropertiesEditValueChanged
HeaderAlignmentHorz = taCenter
Width = 130
end
object TV2Column4: TcxGridDBColumn
Caption = #20215#26684
DataBinding.FieldName = 'ZbPrice'
PropertiesClassName = 'TcxCurrencyEditProperties'
Properties.DecimalPlaces = 4
Properties.DisplayFormat = #65509',0.0000;'#65509'-,0.0000'
HeaderAlignmentHorz = taCenter
Width = 107
end
end
object cxGrid2Level1: TcxGridLevel
GridView = TV2
end
end
object ADOQueryTmp: TADOQuery
Connection = DataLink_TradeManage.ADOLink
Parameters = <>
Left = 376
Top = 172
end
object ADOcmd: TADOQuery
Connection = DataLink_TradeManage.ADOLink
Parameters = <>
Left = 316
Top = 168
end
object DataSource1: TDataSource
DataSet = Cds_Sub
Left = 256
Top = 468
end
object Cds_Sub: TClientDataSet
Aggregates = <>
Params = <>
Left = 152
Top = 468
end
object cxGridPopupMenu1: TcxGridPopupMenu
Grid = cxGrid1
PopupMenus = <>
Left = 300
Top = 456
end
object DataSource2: TDataSource
DataSet = CDS_ZB
Left = 600
Top = 452
end
object CDS_ZB: TClientDataSet
Aggregates = <>
Params = <>
Left = 532
Top = 428
end
object cxStyleRepository1: TcxStyleRepository
PixelsPerInch = 96
object cxStyle1: TcxStyle
AssignedValues = [svFont]
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
end
end
object ADOQueryTemp: TADOQuery
Connection = DataLink_TradeManage.ADOLink
Parameters = <>
Left = 424
Top = 168
end
object CDS_Main: TClientDataSet
Aggregates = <>
Params = <>
Left = 592
Top = 132
end
end