data.dfm

来自「运行程序==>安装数据库==>重新配置数据库连接。用户名admin数」· DFM 代码 · 共 140 行

object DM: TDM
  OldCreateOrder = False
  Left = 233
  Top = 42
  Height = 422
  Width = 521
  object connection: TADOConnection
    LoginPrompt = False
    Provider = 'SQLOLEDB.1'
    Left = 48
    Top = 24
  end
  object ADQ_worker: TADOQuery
    Connection = connection
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from worker')
    Left = 344
    Top = 112
  end
  object ADQ_VdepartAchiv: TADOQuery
    Connection = connection
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from v_departachiv')
    Left = 352
    Top = 248
  end
  object DS_worker: TDataSource
    DataSet = ADQ_worker
    Left = 344
    Top = 168
  end
  object DS_VdepartAchiv: TDataSource
    DataSet = ADQ_VdepartAchiv
    Left = 353
    Top = 321
  end
  object DS_login: TDataSource
    DataSet = ADQ_login
    Left = 264
    Top = 168
  end
  object ADQ_login: TADOQuery
    Connection = connection
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select userNo,userName,vote,psw from login')
    Left = 264
    Top = 112
  end
  object ADQ_VpersonAchiv: TADOQuery
    Connection = connection
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from v_personAchiv')
    Left = 432
    Top = 248
  end
  object DS_VpersonAchiv: TDataSource
    DataSet = ADQ_VpersonAchiv
    Left = 434
    Top = 320
  end
  object ADQ_departAchiv: TADOQuery
    Connection = connection
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from dachive')
    Left = 424
    Top = 112
  end
  object ADQ_personAchiv: TADOQuery
    Connection = connection
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from achivement')
    Left = 34
    Top = 256
  end
  object DS_departAchiv: TDataSource
    DataSet = ADQ_departAchiv
    Left = 424
    Top = 168
  end
  object DS_personAchiv: TDataSource
    DataSet = ADQ_personAchiv
    Left = 34
    Top = 325
  end
  object ADQ_job: TADOQuery
    Connection = connection
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from job')
    Left = 24
    Top = 112
  end
  object DS_job: TDataSource
    DataSet = ADQ_job
    Left = 24
    Top = 168
  end
  object ADQ_dinzhi: TADOQuery
    Connection = connection
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from dinzhi')
    Left = 104
    Top = 112
  end
  object Ds_dinzhi: TDataSource
    DataSet = ADQ_dinzhi
    Left = 104
    Top = 168
  end
  object ADQ_department: TADOQuery
    Connection = connection
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from department')
    Left = 184
    Top = 112
  end
  object DS_department: TDataSource
    DataSet = ADQ_department
    Left = 184
    Top = 168
  end
end