dmunit.~dfm

花了两个多星期写的考勤系统

object DM: TDM
  OldCreateOrder = False
  Left = 208
  Top = 121
  Height = 258
  Width = 356
  object ADOConnection1: TADOConnection
    Connected = True
    ConnectionString = 
      'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=user.mdb;Persist Se' +
      'curity Info=False'
    LoginPrompt = False
    Mode = cmShareDenyNone
    Provider = 'Microsoft.Jet.OLEDB.4.0'
    Left = 32
    Top = 8
  end
  object ADOQuery1: TADOQuery
    Connection = ADOConnection1
    Parameters = <>
    Left = 32
    Top = 56
  end
  object ADOTable1: TADOTable
    Connection = ADOConnection1
    Left = 32
    Top = 112
  end
  object DataSource1: TDataSource
    AutoEdit = False
    DataSet = ADOQuery1
    Left = 96
    Top = 112
  end
  object ADOQuery2: TADOQuery
    Connection = ADOConnection1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      '')
    Left = 96
    Top = 56
  end
  object DataSource2: TDataSource
    DataSet = ADOQuery2
    Left = 144
    Top = 56
  end
end