?? editlesseeunit.dfm
字號:
DataSource = ViewLesseeForm.DataSource2
ImeMode = imClose
ItemHeight = 13
Items.Strings = (
#26412#22320#20010#20154
#22806#22320#20010#20154
#26412#22320#21333#20301
#22806#22320#21333#20301
#22269#22806#20010#20154
#22269#22806#21333#20301)
TabOrder = 4
end
object DBComboBox2: TDBComboBox
Left = 107
Top = 151
Width = 169
Height = 21
DataField = #24615#21035
DataSource = ViewLesseeForm.DataSource2
ImeMode = imClose
ItemHeight = 13
Items.Strings = (
#30007
#22899)
TabOrder = 5
end
object DBDateTimeEditEh1: TDBDateTimeEditEh
Left = 107
Top = 183
Width = 169
Height = 21
DataField = #20986#29983#26085#26399
DataSource = ViewLesseeForm.DataSource2
EditButtons = <>
ImeMode = imClose
Kind = dtkDateEh
TabOrder = 6
Visible = True
OnExit = DBDateTimeEditEh1Exit
end
object DBEdit3: TDBEdit
Left = 107
Top = 215
Width = 169
Height = 21
DataField = #22269#31821
DataSource = ViewLesseeForm.DataSource2
ImeMode = imClose
TabOrder = 7
end
object DBEdit4: TDBEdit
Left = 107
Top = 247
Width = 169
Height = 21
DataField = #36523#20221#35777#21495
DataSource = ViewLesseeForm.DataSource2
ImeMode = imClose
TabOrder = 8
end
object DBEdit5: TDBEdit
Left = 564
Top = 56
Width = 169
Height = 21
DataField = #32852#31995#30005#35805
DataSource = ViewLesseeForm.DataSource2
ImeMode = imClose
TabOrder = 9
end
object DBEdit6: TDBEdit
Left = 564
Top = 87
Width = 169
Height = 21
DataField = #30005#23376#37038#31665
DataSource = ViewLesseeForm.DataSource2
ImeMode = imClose
TabOrder = 10
end
object DBEdit7: TDBEdit
Left = 564
Top = 119
Width = 169
Height = 21
DataField = #32852#31995#22320#22336
DataSource = ViewLesseeForm.DataSource2
ImeMode = imClose
TabOrder = 11
end
object DBEdit8: TDBEdit
Left = 564
Top = 151
Width = 169
Height = 21
DataField = #37038#25919#32534#30721
DataSource = ViewLesseeForm.DataSource2
ImeMode = imClose
TabOrder = 12
end
object DBNumberEditEh1: TDBNumberEditEh
Left = 564
Top = 183
Width = 169
Height = 21
DataField = #26376#25910#20837
DataSource = ViewLesseeForm.DataSource2
EditButtons = <>
ImeMode = imClose
TabOrder = 13
Visible = True
end
object DBDateTimeEditEh2: TDBDateTimeEditEh
Left = 564
Top = 247
Width = 169
Height = 21
DataField = #30331#35760#26085#26399
DataSource = ViewLesseeForm.DataSource2
EditButtons = <>
ImeMode = imClose
Kind = dtkDateEh
TabOrder = 14
Visible = True
OnExit = DBDateTimeEditEh2Exit
end
object DBComboBox4: TDBComboBox
Left = 107
Top = 295
Width = 169
Height = 21
DataField = #19994#21153#21592#32534#21495
DataSource = ViewLesseeForm.DataSource2
ImeMode = imClose
ItemHeight = 13
Items.Strings = (
#26412#22320#20010#20154
#22806#22320#20010#20154
#26412#22320#21333#20301
#22806#22320#21333#20301
#22269#22806#20010#20154
#22269#22806#21333#20301)
TabOrder = 15
OnChange = DBComboBox4Change
end
object DBGrid1: TDBGrid
Left = 107
Top = 324
Width = 790
Height = 69
DataSource = DataSource1
ImeMode = imClose
Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
TabOrder = 16
TitleFont.Charset = ANSI_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -13
TitleFont.Name = #23435#20307
TitleFont.Style = []
Columns = <
item
Expanded = False
FieldName = #19994#21153#21592#32534#21495
Visible = True
end
item
Expanded = False
FieldName = #22995#21517
Visible = True
end
item
Expanded = False
FieldName = #24615#21035
Visible = True
end
item
Expanded = False
FieldName = #20986#29983#26085#26399
Visible = True
end
item
Expanded = False
FieldName = #36523#20221#35777#21495
Visible = True
end
item
Expanded = False
FieldName = #32852#31995#30005#35805
Visible = True
end
item
Expanded = False
FieldName = #32852#31995#22320#22336
Visible = True
end>
end
object DBGrid2: TDBGrid
Left = 108
Top = 400
Width = 789
Height = 129
DataSource = DataSource2
ImeMode = imClose
ImeName = #19975#33021#20116#31508'EXE'#22806#25346#29256
Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
ReadOnly = True
TabOrder = 17
TitleFont.Charset = ANSI_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -13
TitleFont.Name = #23435#20307
TitleFont.Style = []
Columns = <
item
Expanded = False
FieldName = #39033#30446#32534#21495
Visible = True
end
item
Expanded = False
FieldName = #24162#21495
Visible = True
end
item
Expanded = False
FieldName = #25151#21495
Visible = True
end
item
Expanded = False
FieldName = #38144#21806#31867#22411
Visible = True
end
item
Expanded = False
FieldName = #26799#20301
Visible = True
end
item
Expanded = False
FieldName = #24635#23618#25968
Visible = True
end
item
Expanded = False
FieldName = #25152#22312#27004#23618
Visible = True
end
item
Expanded = False
FieldName = #29992#36884
Visible = True
end
item
Expanded = False
FieldName = #25143#22411
Visible = True
end
item
Expanded = False
FieldName = #38451#21488#31867#22411
Visible = True
end
item
Expanded = False
FieldName = #36291#38169#23618
Visible = True
end
item
Expanded = False
FieldName = #38468#23646#25151#20135
Visible = True
end
item
Expanded = False
FieldName = #20135#26435#33539#22260
Visible = True
end
item
Expanded = False
FieldName = #21512#21516#32422#23450#24314#31569#38754#31215
Visible = True
end
item
Expanded = False
FieldName = #21512#21516#32422#23450#22871#20869#38754#31215
Visible = True
end
item
Expanded = False
FieldName = #21512#21516#32422#23450#20998#25674#38754#31215
Visible = True
end
item
Expanded = False
FieldName = #20135#26435#30331#35760#24314#31569#38754#31215
Visible = True
end
item
Expanded = False
FieldName = #20135#26435#30331#35760#22871#20869#38754#31215
Visible = True
end
item
Expanded = False
FieldName = #20135#26435#30331#35760#20998#25674#38754#31215
Visible = True
end
item
Expanded = False
FieldName = #25151#23627#26159#21542#25269#25276
Visible = True
end>
end
object ADOQuery1: TADOQuery
Connection = DataModule2.ADOConnection1
CursorType = ctStatic
Parameters = <>
SQL.Strings = (
'select * from '#19994#21153#21592#20449#24687#34920)
Left = 544
Top = 288
end
object DataSource1: TDataSource
DataSet = ADOQuery1
Left = 504
Top = 288
end
object ADOQuery2: TADOQuery
Connection = DataModule2.ADOConnection1
CursorType = ctStatic
Parameters = <>
SQL.Strings = (
'select * from '#21333#20803#20449#24687#34920)
Left = 336
Top = 414
end
object DataSource2: TDataSource
DataSet = ADOQuery2
Left = 304
Top = 414
end
end
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -