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 + -
显示快捷键?