?? maindata.~dfm
字號:
object DataModule1: TDataModule1
OldCreateOrder = False
OnCreate = DataModuleCreate
Left = 556
Top = 163
Height = 437
Width = 323
object Database1: TDatabase
AliasName = 'floorb'
Connected = True
DatabaseName = 'floordata'
LoginPrompt = False
SessionName = 'Default'
Left = 48
Top = 8
end
object searchq: TQuery
CachedUpdates = True
DatabaseName = 'floordata'
RequestLive = True
SQL.Strings = (
'select * from company')
Left = 112
Top = 8
end
object cust: TDataSource
DataSet = searchq
Left = 112
Top = 80
end
object loginq: TQuery
DatabaseName = 'floordata'
Left = 40
Top = 80
end
object floorQ: TQuery
DatabaseName = 'floordata'
SQL.Strings = (
'select * from floor')
Left = 176
Top = 8
end
object floors: TDataSource
DataSet = floorQ
Left = 176
Top = 80
end
object sds: TDataSource
DataSet = sdq
Left = 136
Top = 208
end
object htQ: TQuery
AutoCalcFields = False
DatabaseName = 'floordata'
SQL.Strings = (
'select a.*,b.custom,b.floor from ht a,company b where a.customno' +
'=b.customno'
'order by b.customno')
Left = 168
Top = 144
end
object hts: TDataSource
DataSet = htQ
Left = 112
Top = 144
end
object insertcustom: TQuery
DatabaseName = 'floordata'
Left = 40
Top = 152
end
object sdq: TQuery
CachedUpdates = True
DatabaseName = 'floordata'
RequestLive = True
SQL.Strings = (
'select * from sd')
Left = 32
Top = 216
end
object insertsd: TQuery
DatabaseName = 'floordata'
Left = 128
Top = 288
end
object insertfloor: TQuery
DatabaseName = 'floordata'
Left = 216
Top = 288
end
object sdpriceQ: TQuery
DatabaseName = 'floordata'
Left = 200
Top = 232
end
object htp: TQuery
DatabaseName = 'floordata'
SQL.Strings = (
'select * from ht')
Left = 32
Top = 280
end
object printt: TQuery
DatabaseName = 'floordata'
Left = 32
Top = 336
end
object tpq: TQuery
DatabaseName = 'floordata'
Left = 120
Top = 344
end
object ptq: TQuery
DatabaseName = 'floordata'
Left = 232
Top = 176
end
end
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -