unit1.dfm

学生档案管理系统,有登录模块

object dm: Tdm
  Left = 292
  Top = 163
  Width = 222
  Height = 150
  Caption = 'dm'
  Color = clSkyBlue
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object ADOConnection1: TADOConnection
    ConnectionString = 
      'Provider=Microsoft.Jet.OLEDB.4.0;Password="";Data Source=D:\data' +
      'base\xsgl.mdb;Persist Security Info=True'
    LoginPrompt = False
    Provider = 'Microsoft.Jet.OLEDB.4.0'
    Left = 96
    Top = 24
  end
  object DataSource2: TDataSource
    DataSet = ADOQuery1
    Left = 16
  end
  object ADOQuery1: TADOQuery
    Connection = ADOConnection1
    Parameters = <>
    Left = 56
  end
  object DataSource3: TDataSource
    DataSet = ADOQuery2
    Left = 24
    Top = 40
  end
  object ADOQuery2: TADOQuery
    Connection = ADOConnection1
    Parameters = <>
    Left = 56
    Top = 40
  end
end