unitdata.dfm

自己设计的一个简易的考勤管理系统

object DataModule1: TDataModule1
  OldCreateOrder = False
  Left = 324
  Top = 199
  Height = 203
  Width = 280
  object ADOQuery1: TADOQuery
    Active = True
    Connection = ADOConnection1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      
        'select fid,users.id as id,name,password,sex,major,class,edubg,ti' +
        'meIn,timeOut from users  ,records where users.id = records.useri' +
        'd'
      'order by timeIn')
    Left = 144
    Top = 96
  end
  object ADOTabUsers: TADOTable
    Active = True
    Connection = ADOConnection1
    CursorType = ctStatic
    TableName = 'users'
    Left = 200
    Top = 40
  end
  object ADOTabRecords: TADOTable
    Active = True
    Connection = ADOConnection1
    CursorType = ctStatic
    TableName = 'records'
    Left = 144
    Top = 40
  end
  object ADOConnection1: TADOConnection
    Connected = True
    ConnectionString = 
      'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=kaoqin.mdb;Mode=Rea' +
      'dWrite;Persist Security Info=False'
    LoginPrompt = False
    Mode = cmReadWrite
    Provider = 'Microsoft.Jet.OLEDB.4.0'
    Left = 80
    Top = 40
  end
  object DataSource1: TDataSource
    DataSet = ADOQuery1
    Left = 80
    Top = 96
  end
end