?? customerpropertyfrm.dfm
字號:
end
object edtAreaID: TcxDBLookupComboBox
Left = 120
Top = 24
Width = 97
Height = 23
DataBinding.DataField = 'AreaID'
DataBinding.DataSource = dasProperty
Properties.DropDownListStyle = lsFixedList
Properties.KeyFieldNames = 'AreaID'
Properties.ListColumns = <
item
FieldName = 'Areaname'
end>
Properties.ListOptions.GridLines = glVertical
Properties.ListOptions.ShowHeader = False
Properties.ListSource = dmInvPrint.dsArea
Properties.ReadOnly = False
Style.Shadow = True
TabOrder = 1
end
object edtBookID: TcxDBLookupComboBox
Left = 232
Top = 24
Width = 97
Height = 23
DataBinding.DataField = 'BookID'
DataBinding.DataSource = dasProperty
Properties.DropDownListStyle = lsFixedList
Properties.KeyFieldNames = 'BookID'
Properties.ListColumns = <
item
FieldName = 'Bookname'
end>
Properties.ListOptions.GridLines = glVertical
Properties.ListOptions.ShowHeader = False
Properties.ListSource = dmInvPrint.dsBook
Properties.ReadOnly = False
Style.Shadow = True
TabOrder = 2
end
object edtPayID: TcxDBLookupComboBox
Left = 8
Top = 64
Width = 97
Height = 23
DataBinding.DataField = 'PayID'
DataBinding.DataSource = dasProperty
Properties.DropDownListStyle = lsFixedList
Properties.KeyFieldNames = 'PayID'
Properties.ListColumns = <
item
FieldName = 'Payname'
end>
Properties.ListOptions.GridLines = glVertical
Properties.ListOptions.ShowHeader = False
Properties.ListSource = dmInvPrint.dsPaymode
Properties.ReadOnly = False
Style.Shadow = True
TabOrder = 3
end
object edtUsingID: TcxDBLookupComboBox
Left = 120
Top = 64
Width = 305
Height = 23
DataBinding.DataField = 'UsingID'
DataBinding.DataSource = dasProperty
Properties.DropDownListStyle = lsFixedList
Properties.KeyFieldNames = 'UsingID'
Properties.ListColumns = <
item
FieldName = 'Usingname'
end
item
FieldName = 'sPrice'
end
item
FieldName = 'wPrice'
end>
Properties.ListOptions.GridLines = glVertical
Properties.ListOptions.ShowHeader = False
Properties.ListSource = dmInvPrint.dsUsager
Properties.ReadOnly = False
Style.Shadow = True
TabOrder = 4
end
object chkSewageflag: TcxDBCheckBox
Left = 4
Top = 96
Width = 133
Height = 21
DataBinding.DataField = 'Sewageflag'
DataBinding.DataSource = dasProperty
Properties.DisplayUnchecked = 'False'
Properties.ReadOnly = False
Properties.Caption = #26159#21542#25910#21462#25490#27745#36153'(&S)'
Style.Shadow = False
TabOrder = 5
end
object cxDBSpinEdit1: TcxDBSpinEdit
Left = 136
Top = 112
Width = 57
Height = 23
DataBinding.DataField = 'SewagePercent'
DataBinding.DataSource = dasProperty
Properties.ReadOnly = False
Style.Shadow = True
TabOrder = 6
end
object edtCopier: TcxDBLookupComboBox
Left = 232
Top = 112
Width = 97
Height = 23
DataBinding.DataField = 'Copier'
DataBinding.DataSource = dasProperty
Properties.DropDownListStyle = lsFixedList
Properties.KeyFieldNames = 'CopiID'
Properties.ListColumns = <
item
FieldName = 'Name'
end>
Properties.ListOptions.GridLines = glVertical
Properties.ListOptions.ShowHeader = False
Properties.ListSource = dmInvPrint.dsCopier
Properties.ReadOnly = False
Style.Shadow = True
TabOrder = 7
end
object chkLogoutflag: TcxDBCheckBox
Left = 4
Top = 136
Width = 181
Height = 21
DataBinding.DataField = 'Logoutflag'
DataBinding.DataSource = dasProperty
Properties.DisplayUnchecked = 'False'
Properties.OnEditValueChanged = chkLogoutflagPropertiesEditValueChanged
Properties.Caption = #27880#38144#24403#21069#23458#25143#30340#22522#26412#36164#26009'(&L)'
TabOrder = 8
end
end
end
object TabSheet3: TTabSheet
Caption = #29992#27700#20449#24687
ImageIndex = 2
object GroupBox3: TGroupBox
Left = 8
Top = 0
Width = 433
Height = 169
TabOrder = 0
object Label14: TLabel
Left = 8
Top = 11
Width = 66
Height = 12
Caption = #19978#26399#27700#37327'(&B)'
FocusControl = edtDegreebuf
end
object Label15: TLabel
Left = 120
Top = 11
Width = 66
Height = 12
Caption = #26412#26399#21051#24230'(&C)'
FocusControl = edtCurrQty
end
object Label16: TLabel
Left = 280
Top = 11
Width = 66
Height = 12
Caption = #19978#26399#21051#24230'(&C)'
FocusControl = edtPriorQty
end
object Label17: TLabel
Left = 8
Top = 51
Width = 66
Height = 12
Caption = #20943#20813#27700#37327'(&D)'
FocusControl = edtDerate
end
object Label18: TLabel
Left = 120
Top = 51
Width = 66
Height = 12
Caption = #26412#26399#27700#37327'(&Q)'
FocusControl = edtQty
end
object edtDegreebuf: TcxDBMaskEdit
Left = 8
Top = 24
Width = 97
Height = 23
DataBinding.DataField = 'Degreebuf'
DataBinding.DataSource = dasProperty
Properties.Alignment.Horz = taRightJustify
Properties.ReadOnly = False
Style.Shadow = True
TabOrder = 0
end
object edtCurrQty: TcxDBMaskEdit
Left = 120
Top = 24
Width = 145
Height = 23
DataBinding.DataField = 'CurrQty'
DataBinding.DataSource = dasProperty
Properties.Alignment.Horz = taRightJustify
Properties.ReadOnly = False
Style.Shadow = True
TabOrder = 1
end
object edtPriorQty: TcxDBMaskEdit
Left = 280
Top = 24
Width = 145
Height = 23
DataBinding.DataField = 'PriorQty'
DataBinding.DataSource = dasProperty
Properties.Alignment.Horz = taRightJustify
Properties.ReadOnly = False
Style.Shadow = True
TabOrder = 2
end
object edtDerate: TcxDBMaskEdit
Left = 8
Top = 64
Width = 97
Height = 23
DataBinding.DataField = 'Derate'
DataBinding.DataSource = dasProperty
Properties.Alignment.Horz = taRightJustify
Properties.ReadOnly = False
Style.Shadow = True
TabOrder = 3
end
object edtQty: TcxDBMaskEdit
Left = 120
Top = 64
Width = 305
Height = 23
DataBinding.DataField = 'Qty'
DataBinding.DataSource = dasProperty
Properties.Alignment.Horz = taRightJustify
Properties.ReadOnly = False
Style.Shadow = True
TabOrder = 4
end
end
end
end
end
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -