?? datam.dfm
字號:
object dm: Tdm
OldCreateOrder = False
Left = 398
Top = 138
Height = 337
Width = 374
object ADOConnection1: TADOConnection
Connected = True
ConnectionString =
'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=data\rtdata.mdb;Per' +
'sist Security Info=False'
LoginPrompt = False
Mode = cmShareDenyNone
Provider = 'Microsoft.Jet.OLEDB.4.0'
Left = 48
Top = 16
end
object ADO_lb: TADOTable
Connection = ADOConnection1
CursorType = ctStatic
TableDirect = True
TableName = 'lb'
Left = 184
Top = 88
end
object ADO_vcd: TADOTable
Active = True
Connection = ADOConnection1
CursorType = ctStatic
TableDirect = True
TableName = 'tsvcd'
Left = 240
Top = 16
end
object ADOQ_cx: TADOQuery
Connection = ADOConnection1
CursorType = ctStatic
Parameters = <>
Left = 280
Top = 160
end
object ADO_user: TADOTable
Active = True
Connection = ADOConnection1
CursorType = ctStatic
TableDirect = True
TableName = 'user'
Left = 120
Top = 16
end
object ADO_czbtmp: TADOTable
Connection = ADOConnection1
CursorType = ctStatic
TableDirect = True
TableName = 'czbtmp'
Left = 304
Top = 16
object ADO_czbtmpDSDesigner: TWideStringField
FieldName = #35777#21495
Size = 6
end
object ADO_czbtmpDSDesigner2: TWideStringField
FieldName = #32534#21495
Size = 12
end
object ADO_czbtmpDSDesigner3: TWideStringField
FieldName = #21517#31216
Size = 50
end
object ADO_czbtmpDSDesigner4: TDateTimeField
FieldName = #20986#31199#26085#26399
DisplayFormat = 'yyyy-mm-dd'
end
object ADO_czbtmpDSDesigner5: TBCDField
FieldName = #20986#31199#21333#20215
DisplayFormat = '0.00'
Precision = 19
end
object ADO_czbtmpDSDesigner6: TWideStringField
FieldName = #29366#24577
Size = 2
end
end
object ADOQuery: TADOQuery
Connection = ADOConnection1
CursorType = ctStatic
Parameters = <>
SQL.Strings = (
'select count(*) from vip where '#35777#31867#22411'='#39#24180#35777#39
''
'')
Left = 184
Top = 16
end
object ADO_vip: TADOTable
Connection = ADOConnection1
CursorType = ctStatic
TableDirect = True
TableName = 'vip'
Left = 48
Top = 80
object ADO_vipDSDesigner: TWideStringField
FieldName = #35777#21495
Size = 5
end
object ADO_vipDSDesigner2: TDateTimeField
FieldName = #21150#35777#26085#26399
DisplayFormat = 'yyyy-mm-dd'
end
object ADO_vipDSDesigner3: TWideStringField
FieldName = #22995#21517
Size = 8
end
object ADO_vipDSDesigner4: TWideStringField
FieldName = #24615#21035
Size = 2
end
object ADO_vipDSDesigner5: TWideStringField
FieldName = #24180#40836
Size = 3
end
object ADO_vipDSDesigner8: TWideStringField
FieldName = #35777#31867#22411
Size = 6
end
object ADO_vipDSDesigner9: TBCDField
FieldName = #25276#37329
DisplayFormat = '0.00'
Precision = 19
end
object ADO_vipDSDesigner6: TWideStringField
FieldName = #30005#35805
end
object ADO_vipDSDesigner7: TWideStringField
FieldName = #22320#22336
Size = 30
end
object ADO_vippass: TWideStringField
FieldName = 'pass'
Size = 10
end
end
object ADO_czdt: TADOTable
Connection = ADOConnection1
TableDirect = True
TableName = 'czdt'
Left = 112
Top = 88
end
object ADOQ_czbtmp: TADOQuery
Connection = ADOConnection1
CursorType = ctStatic
Parameters = <>
Left = 249
Top = 88
object ADOQ_czbtmpDSDesigner: TWideStringField
Alignment = taCenter
DisplayLabel = #35777'('#25276#37329#21333')'#21495
DisplayWidth = 16
FieldName = #35777#21495
Size = 6
end
object ADOQ_czbtmpDSDesigner2: TWideStringField
Alignment = taCenter
DisplayLabel = #20070#12289#30879#32534#21495
FieldName = #32534#21495
Size = 12
end
object ADOQ_czbtmpDSDesigner3: TWideStringField
DisplayLabel = #20070#12289#30879#21517#31216
DisplayWidth = 20
FieldName = #21517#31216
Size = 50
end
object ADOQ_czbtmpDSDesigner4: TDateTimeField
FieldName = #20986#31199#26085#26399
DisplayFormat = 'yyyy-mm-dd'
end
object ADOQ_czbtmpDSDesigner5: TBCDField
DisplayWidth = 10
FieldName = #20986#31199#21333#20215
DisplayFormat = '0.00'
Precision = 19
end
end
object ADO_cash: TADOTable
Connection = ADOConnection1
CursorType = ctStatic
TableDirect = True
TableName = 'cashbook'
Left = 40
Top = 152
end
object ADO_qk: TADOTable
Connection = ADOConnection1
CursorType = ctStatic
TableDirect = True
TableName = 'qkb'
Left = 112
Top = 160
object ADO_qkDSDesigner: TWideStringField
FieldName = #35777#21495
Size = 6
end
object ADO_qkDSDesigner2: TBCDField
FieldName = #37329#39069
DisplayFormat = '0.00'
Precision = 19
end
end
object ADO_czb: TADOTable
Connection = ADOConnection1
CursorType = ctStatic
TableDirect = True
TableName = 'czb'
Left = 192
Top = 160
end
object ADOQ_prt: TADOQuery
Connection = ADOConnection1
Parameters = <>
SQL.Strings = (
'select '#32534#21495','#22823#31867','#23567#31867','#21517#31216','#36141#20837#26085#26399','#20316#32773#23548#28436','#20027#28436','#20215#26684','#24180#35777#31199#37329','#26376#35777#31199#37329','#38646#31199#31199#37329','#36135#20301#21495' from tsvcd')
Left = 40
Top = 216
end
object ADOQ_qphz: TADOQuery
Connection = ADOConnection1
Parameters = <>
Left = 120
Top = 216
end
end
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -