📄 d_m.dfm
字号:
object DM: TDM
OldCreateOrder = False
Left = 229
Top = 200
Height = 296
Width = 391
object ADOConnection1: TADOConnection
Connected = True
ConnectionString =
'Provider=MSDASQL.1;Persist Security Info=False;Data Source='#32593#21543#31649#29702#31995 +
#32479
LoginPrompt = False
Left = 40
Top = 16
end
object ADOTgl: TADOTable
Active = True
Connection = ADOConnection1
CursorType = ctStatic
IndexFieldNames = #19979#26426#26102#38388
TableName = 'gl'
Left = 136
Top = 16
end
object DSgl: TDataSource
DataSet = ADOTgl
Left = 184
Top = 16
end
object ADOTgltemp: TADOTable
Connection = ADOConnection1
CursorType = ctStatic
TableName = 'gltemp'
Left = 136
Top = 72
end
object ADOTjggl: TADOTable
Active = True
Connection = ADOConnection1
CursorType = ctStatic
IndexFieldNames = #19978#26426#26102#38388
TableName = 'jg'
Left = 136
Top = 128
end
object DSjggl: TDataSource
DataSet = ADOTjggl
Left = 208
Top = 128
end
object ADOTpc: TADOTable
Active = True
Connection = ADOConnection1
CursorType = ctStatic
TableName = 'pc'
Left = 136
Top = 192
end
object DSpc: TDataSource
DataSet = ADOTpc
Left = 200
Top = 192
end
object ADOQuery1: TADOQuery
Active = True
Connection = ADOConnection1
CursorType = ctStatic
Parameters = <>
SQL.Strings = (
'select * from gl order by '#19979#26426#26102#38388' desc')
Left = 256
Top = 24
end
object DataSource1: TDataSource
DataSet = ADOQuery1
Left = 320
Top = 24
end
object ADOTdl: TADOTable
Active = True
Connection = ADOConnection1
CursorType = ctStatic
TableName = 'denglu'
Left = 24
Top = 112
end
object DSdl: TDataSource
DataSet = ADOTdl
Left = 72
Top = 112
end
object ADOC: TADOCommand
CommandText = 'delete * from gltemp'
Connection = ADOConnection1
Parameters = <>
Left = 272
Top = 112
end
object ADOCshanchu: TADOCommand
CommandText = 'delete from gl where '#19978#26426#26102#38388'>:aa and '#19978#26426#26102#38388' <:bb'
Connection = ADOConnection1
Parameters = <
item
Name = 'aa'
Size = -1
Value = Null
end
item
Name = 'bb'
Size = -1
Value = Null
end>
Left = 272
Top = 160
end
object ADOQuery2: TADOQuery
Active = True
Connection = ADOConnection1
CursorType = ctStatic
Parameters = <>
SQL.Strings = (
'select * from gltemp')
Left = 256
Top = 64
end
object DataSource2: TDataSource
DataSet = ADOQuery2
Left = 320
Top = 64
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -