unitdatamodule.dfm

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

object dModule: TdModule
  OldCreateOrder = False
  Left = 290
  Top = 154
  Height = 376
  Width = 455
  object DSUR: TDataSource
    DataSet = ADOQUserRecord
    Left = 264
    Top = 48
  end
  object ADOQUserRecord: TADOQuery
    Connection = ADOConnection1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      
        'select fid,id,name,password,sex,major,class,edubg,timeIn,timeOut' +
        ',isOn from users  ,records  where id = userid order by timein'
      ''
      '')
    Left = 184
    Top = 48
  end
  object ADOQU: TADOQuery
    Connection = ADOConnection1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from users')
    Left = 176
    Top = 192
  end
  object DSU: TDataSource
    DataSet = ADOQU
    Left = 256
    Top = 192
  end
  object ADOQRecords: TADOQuery
    Connection = ADOConnection1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from records')
    Left = 184
    Top = 120
  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 = 64
    Top = 56
  end
  object DSR: TDataSource
    DataSet = ADOQRecords
    Left = 264
    Top = 120
  end
end