dm.~dfm

这是我做的一个课程设计

object DMform: TDMform
  OldCreateOrder = False
  Left = 264
  Top = 118
  Height = 483
  Width = 290
  object ADOConnection1: TADOConnection
    Connected = True
    ConnectionString = 
      'Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security In' +
      'fo=False;Initial Catalog=stuMIS;Data Source=127.0.0.1'
    LoginPrompt = False
    Provider = 'SQLOLEDB.1'
    Left = 32
    Top = 16
  end
  object ADOQuery_login: TADOQuery
    Connection = ADOConnection1
    Parameters = <>
    Left = 128
    Top = 16
  end
  object ADOQuery_depart: TADOQuery
    Active = True
    Connection = ADOConnection1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from department')
    Left = 16
    Top = 64
  end
  object DataSource_depart: TDataSource
    DataSet = ADOQuery_depart
    Left = 120
    Top = 56
  end
  object ADOQuery_class: TADOQuery
    Active = True
    Connection = ADOConnection1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from class')
    Left = 24
    Top = 88
  end
  object DataSource_class: TDataSource
    DataSet = ADOQuery_class
    Left = 128
    Top = 88
  end
  object ADOQuery_qx: TADOQuery
    Connection = ADOConnection1
    Parameters = <>
    Left = 24
    Top = 128
  end
  object ADOTable_stu: TADOTable
    Connection = ADOConnection1
    Left = 200
    Top = 16
  end
  object DataSource_stu: TDataSource
    DataSet = ADOQuery_stu
    Left = 128
    Top = 168
  end
  object DataSource_student: TDataSource
    DataSet = ADOQuery_student
    Left = 136
    Top = 232
  end
  object ADOQuery_student: TADOQuery
    Active = True
    Connection = ADOConnection1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from student')
    Left = 24
    Top = 232
  end
  object DataSource_reward: TDataSource
    DataSet = ADOQuery_reward
    Left = 128
    Top = 280
  end
  object ADOQuery_reward: TADOQuery
    Active = True
    Connection = ADOConnection1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from reward')
    Left = 24
    Top = 280
  end
  object DataSource_punish: TDataSource
    DataSet = ADOQuery_punish
    Left = 136
    Top = 320
  end
  object ADOQuery_punish: TADOQuery
    Active = True
    Connection = ADOConnection1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from punish')
    Left = 24
    Top = 344
  end
  object DataSource_change: TDataSource
    DataSet = ADOQuery_change
    Left = 144
    Top = 360
  end
  object ADOQuery_change: TADOQuery
    Active = True
    Connection = ADOConnection1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from change')
    Left = 16
    Top = 400
  end
  object ADOQuery_stu: TADOQuery
    Active = True
    Connection = ADOConnection1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from stu')
    Left = 32
    Top = 168
  end
end