dm.~dfm

用Delphi做的一个学生数据库系统

object dmform: Tdmform
  OldCreateOrder = False
  Left = 337
  Top = 262
  Height = 603
  Width = 249
  object ADOQuery_login: TADOQuery
    Active = True
    Connection = ADOConnection1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from login')
    Left = 152
    Top = 8
  end
  object ADOConnection1: TADOConnection
    Connected = True
    ConnectionString = 
      'Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security In' +
      'fo=False;Initial Catalog=stu'
    LoginPrompt = False
    Provider = 'SQLOLEDB.1'
    Left = 40
    Top = 8
  end
  object ADOQuery_depart: TADOQuery
    Active = True
    Connection = ADOConnection1
    CursorType = ctStatic
    BeforeClose = ADOQuery_departBeforeClose
    AfterScroll = ADOQuery_departAfterScroll
    Parameters = <>
    SQL.Strings = (
      'select * from department')
    Left = 40
    Top = 80
  end
  object DataSource_depart: TDataSource
    DataSet = ADOQuery_depart
    OnStateChange = DataSource_departStateChange
    Left = 152
    Top = 80
  end
  object ADOQuery_class: TADOQuery
    Active = True
    Connection = ADOConnection1
    CursorType = ctStatic
    AfterScroll = ADOQuery_classAfterScroll
    Parameters = <>
    SQL.Strings = (
      'select * from class')
    Left = 40
    Top = 144
  end
  object DataSource_class: TDataSource
    DataSet = ADOQuery_class
    Left = 152
    Top = 144
  end
  object ADOQuery_qx_user: TADOQuery
    Active = True
    Connection = ADOConnection1
    CursorType = ctStatic
    DataSource = DataSource_qx_user
    Parameters = <>
    SQL.Strings = (
      'select * from login')
    Left = 32
    Top = 208
  end
  object ADOQuery_stu: TADOQuery
    Active = True
    Connection = ADOConnection1
    CursorType = ctStatic
    AfterScroll = ADOQuery_stuAfterScroll
    Parameters = <>
    SQL.Strings = (
      'select * from student')
    Left = 40
    Top = 272
  end
  object DataSource_stu: TDataSource
    DataSet = ADOQuery_stu
    Left = 144
    Top = 272
  end
  object DataSource_reward: TDataSource
    DataSet = ADOQuery_reward
    Left = 152
    Top = 336
  end
  object ADOQuery_reward: TADOQuery
    Active = True
    Connection = ADOConnection1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from reward')
    Left = 40
    Top = 336
  end
  object ADOQuery_punish: TADOQuery
    Active = True
    Connection = ADOConnection1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from punish')
    Left = 40
    Top = 408
  end
  object DataSource_punish: TDataSource
    DataSet = ADOQuery_punish
    Left = 144
    Top = 408
  end
  object ADOQuery_change: TADOQuery
    Active = True
    Connection = ADOConnection1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from change')
    Left = 40
    Top = 472
  end
  object DataSource_change: TDataSource
    DataSet = ADOQuery_change
    Left = 144
    Top = 472
  end
  object DataSource_qx_user: TDataSource
    DataSet = ADOQuery_login
    Left = 152
    Top = 208
  end
  object DataSource_login: TDataSource
    DataSet = ADOQuery_login
    Left = 240
    Top = 24
  end
end