unit8.dfm
来自「delphi写的抽奖程序」· DFM 代码 · 共 105 行
DFM
105 行
object dm: Tdm
OldCreateOrder = False
Left = 203
Top = 129
Height = 620
Width = 181
object ADOC1: TADOConnection
LoginPrompt = False
Mode = cmShareDenyNone
Provider = 'SQLOLEDB.1'
Left = 32
Top = 8
end
object ADOQ1: TADOQuery
Connection = ADOC1
Parameters = <>
Left = 32
Top = 60
end
object ADOQ2: TADOQuery
Connection = ADOC1
CursorType = ctStatic
Parameters = <>
SQL.Strings = (
'select * from JX_Table')
Left = 112
Top = 56
end
object ADOQ4: TADOQuery
Connection = ADOC1
CursorType = ctStatic
Parameters = <>
SQL.Strings = (
'select * from User_Table')
Left = 32
Top = 120
end
object ADOQ5: TADOQuery
Connection = ADOC1
Parameters = <>
Left = 112
Top = 120
end
object ADOQ6: TADOQuery
Connection = ADOC1
Parameters = <>
Left = 32
Top = 184
end
object ADOQ7: TADOQuery
Connection = ADOC1
CursorType = ctStatic
Parameters = <>
SQL.Strings = (
'select * from User_Table where Nav_ZJbs='#39'1'#39' order by Nav_ZJname')
Left = 112
Top = 184
end
object ADOQ8: TADOQuery
Connection = ADOC1
Parameters = <>
Left = 32
Top = 240
end
object ADOQ9: TADOQuery
Connection = ADOC1
CursorType = ctStatic
Parameters = <>
SQL.Strings = (
'select Nav_User from User_Table where Nav_ZJbs<>'#39'1'#39)
Left = 112
Top = 240
end
object ADOQ10: TADOQuery
Connection = ADOC1
Parameters = <>
Left = 32
Top = 304
end
object ADOQ11: TADOQuery
Connection = ADOC1
Parameters = <>
Left = 104
Top = 304
end
object ADOQ12: TADOQuery
Connection = ADOC1
CursorType = ctStatic
Parameters = <>
SQL.Strings = (
'select * from User_Table where Nav_ZJbs='#39'1'#39)
Left = 32
Top = 360
end
object ADOQ13: TADOQuery
Connection = ADOC1
CursorType = ctStatic
Parameters = <>
SQL.Strings = (
'select * from JX_Table')
Left = 104
Top = 360
end
end
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?