📄 edithoursefm.dfm
字号:
Font.Style = []
ParentFont = False
end
object DBEdit3: TDBEdit
Left = 512
Top = 192
Width = 297
Height = 21
DataField = #35774#35745#29992#36884
DataSource = frmViewHouse.DataSource3
TabOrder = 11
Visible = False
OnChange = DBEdit3Change
end
object LbButton2: TButton
Left = 755
Top = 421
Width = 77
Height = 28
Caption = #20445#23384
TabOrder = 0
OnClick = LbButton2Click
end
object DBEdit1: TDBEdit
Left = 104
Top = 72
Width = 157
Height = 21
DataField = #24162#21495
DataSource = frmViewHouse.DataSource3
TabOrder = 1
end
object DBEdit2: TDBEdit
Left = 104
Top = 104
Width = 157
Height = 21
DataField = #25151#23627#24231#33853
DataSource = frmViewHouse.DataSource3
TabOrder = 2
end
object DBComboBox1: TDBComboBox
Left = 104
Top = 134
Width = 157
Height = 21
DataField = #25151#23627#26397#21521
DataSource = frmViewHouse.DataSource3
ItemHeight = 13
Items.Strings = (
#19996
#21335
#35199
#21271
#19996#21335
#19996#21271
#35199#21335
#35199#21271)
TabOrder = 3
end
object DBNumberEditEh4: TDBNumberEditEh
Left = 104
Top = 168
Width = 157
Height = 21
DataField = #24635#22871#25968
DataSource = frmViewHouse.DataSource3
DisplayFormat = '#'
EditButtons = <>
MaxValue = 500.000000000000000000
MinValue = 1.000000000000000000
TabOrder = 4
Visible = True
end
object DBNumberEditEh1: TDBNumberEditEh
Left = 104
Top = 200
Width = 157
Height = 21
DataField = #24635#23618#25968
DataSource = frmViewHouse.DataSource3
DisplayFormat = '#'
EditButtons = <>
MaxValue = 100.000000000000000000
MinValue = 1.000000000000000000
TabOrder = 5
Visible = True
end
object DBNumberEditEh2: TDBNumberEditEh
Left = 104
Top = 232
Width = 157
Height = 21
DataField = #24314#31569#38754#31215
DataSource = frmViewHouse.DataSource3
DisplayFormat = '#'
EditButtons = <>
TabOrder = 6
Visible = True
end
object DBComboBox2: TDBComboBox
Left = 520
Top = 72
Width = 157
Height = 21
DataField = #24314#31569#32467#26500
DataSource = frmViewHouse.DataSource3
ItemHeight = 13
Items.Strings = (
#38050#32467#26500
#38050#21450#38050#31563#28151#20957#22303#32467#26500
#38050#31563#28151#20957#22303#32467#26500
#28151#21512#32467#26500
#30742#26408#32467#26500
#20854#20182#32467#26500)
TabOrder = 7
end
object DBDateTimeEditEh1: TDBDateTimeEditEh
Left = 520
Top = 103
Width = 157
Height = 21
DataField = #21160#24037#26085#26399
DataSource = frmViewHouse.DataSource3
EditButtons = <>
Kind = dtkDateEh
TabOrder = 8
Visible = True
OnExit = DBDateTimeEditEh1Exit
end
object DBDateTimeEditEh2: TDBDateTimeEditEh
Left = 520
Top = 135
Width = 157
Height = 21
DataField = #24314#25104#26085#26399
DataSource = frmViewHouse.DataSource3
EditButtons = <>
Kind = dtkDateEh
TabOrder = 9
Visible = True
OnExit = DBDateTimeEditEh2Exit
end
object CheckListBox1: TCheckListBox
Left = 520
Top = 169
Width = 201
Height = 80
Columns = 2
ItemHeight = 13
TabOrder = 10
end
object DBGridEh1: TDBGridEh
Left = 34
Top = 289
Width = 679
Height = 192
DataSource = DataSource1
Flat = True
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = #23435#20307
Font.Style = []
FooterColor = clWindow
FooterFont.Charset = ANSI_CHARSET
FooterFont.Color = clBlue
FooterFont.Height = -13
FooterFont.Name = #23435#20307
FooterFont.Style = []
FooterRowCount = 1
Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgConfirmDelete, dgCancelOnExit]
ParentFont = False
RowSizingAllowed = True
SumList.Active = True
TabOrder = 12
TitleFont.Charset = ANSI_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -13
TitleFont.Name = #23435#20307
TitleFont.Style = []
Columns = <
item
EditButtons = <>
FieldName = #24162#21495
Footer.Value = #21512#35745
Footer.ValueType = fvtStaticText
Footers = <>
end
item
EditButtons = <>
FieldName = #25151#21495
Footers = <>
end
item
EditButtons = <>
FieldName = #26799#20301
Footers = <>
end
item
EditButtons = <>
FieldName = #24635#23618#25968
Footers = <>
end
item
EditButtons = <>
FieldName = #25152#22312#27004#23618
Footers = <>
end
item
EditButtons = <>
FieldName = #29992#36884
Footers = <>
end
item
EditButtons = <>
FieldName = #25143#22411
Footers = <>
end
item
EditButtons = <>
FieldName = #38451#21488#31867#22411
Footers = <>
end
item
EditButtons = <>
FieldName = #36291#38169#23618
Footers = <>
end
item
EditButtons = <>
FieldName = #38468#23646#25151#20135
Footers = <>
end
item
EditButtons = <>
FieldName = #20135#26435#33539#22260
Footers = <>
end
item
EditButtons = <>
FieldName = #21512#21516#32422#23450#24314#31569#38754#31215
Footer.FieldName = #20135#26435#30331#35760#24314#31569#38754#31215
Footer.ValueType = fvtSum
Footers = <>
end
item
EditButtons = <>
FieldName = #21512#21516#32422#23450#22871#20869#38754#31215
Footer.FieldName = #20135#26435#30331#35760#22871#20869#38754#31215
Footer.ValueType = fvtSum
Footers = <>
end
item
EditButtons = <>
FieldName = #21512#21516#32422#23450#20998#25674#38754#31215
Footer.FieldName = #20135#26435#30331#35760#20998#25674#38754#31215
Footer.ValueType = fvtSum
Footers = <>
end
item
EditButtons = <>
FieldName = #20135#26435#30331#35760#24314#31569#38754#31215
Footer.FieldName = #21512#21516#32422#23450#24314#31569#38754#31215
Footer.ValueType = fvtSum
Footers = <>
end
item
EditButtons = <>
FieldName = #20135#26435#30331#35760#22871#20869#38754#31215
Footer.FieldName = #20135#26435#30331#35760#22871#20869#38754#31215
Footer.ValueType = fvtSum
Footers = <>
end
item
EditButtons = <>
FieldName = #20135#26435#30331#35760#20998#25674#38754#31215
Footer.FieldName = #20135#26435#30331#35760#20998#25674#38754#31215
Footer.ValueType = fvtSum
Footers = <>
end
item
EditButtons = <>
FieldName = #21487#38144#21806#25151#23627#29366#24577
Footers = <>
end
item
EditButtons = <>
FieldName = #19981#21487#38144#21806#25151#23627#29366#24577
Footers = <>
end
item
EditButtons = <>
FieldName = #25151#23627#26159#21542#25269#25276
Footers = <>
end
item
EditButtons = <>
FieldName = #38144#21806#31867#22411
Footers = <>
end>
end
object LbButton1: TButton
Left = 755
Top = 365
Width = 77
Height = 28
Caption = #21462#28040
TabOrder = 13
OnClick = LbButton1Click
end
object DataSource1: TDataSource
DataSet = qry1
Left = 677
Top = 356
end
object qry1: TADOQuery
Connection = DMMain.ADOConnection1
CursorType = ctStatic
Parameters = <>
SQL.Strings = (
'select * from '#21333#20803#20449#24687#34920' ')
Left = 675
Top = 406
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -