dm.dfm

来自「是我编写的一个考勤机管理系统,用于计算某员工某段时间以来的迟到与早退等情况.」· DFM 代码 · 共 109 行

object frmDM: TfrmDM
  OldCreateOrder = False
  OnCreate = DataModuleCreate
  Left = 543
  Top = 248
  Height = 338
  Width = 443
  object Con: TADOConnection
    ConnectionString = 
      'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\Source\KQJ\Data.' +
      'mdb;Persist Security Info=False'
    LoginPrompt = False
    Mode = cmShareDenyNone
    Provider = 'Microsoft.Jet.OLEDB.4.0'
    Left = 40
    Top = 192
  end
  object QurClass: TADOQuery
    Connection = Con
    Parameters = <>
    Left = 16
    Top = 16
  end
  object QurDefClass: TADOQuery
    Connection = Con
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from DefClass')
    Left = 72
    Top = 16
  end
  object QurDefVac: TADOQuery
    Connection = Con
    Parameters = <>
    Left = 136
    Top = 16
  end
  object QurEmployee: TADOQuery
    Connection = Con
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      
        'select a.Code,a.Name,a.Card,b.DefClassName,c.DefVacName from (Em' +
        'ployee a  '
      
        '        left outer join DefClass b on a.DefClassID=b.DefClassID)' +
        ' '
      '        Left outer join DefVac c on a.DefVacID=c.DefVacID')
    Left = 200
    Top = 16
  end
  object QurSetClass: TADOQuery
    Connection = Con
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      
        'select a.BeginDate,a.EndDate,a.TimeMode,a.BeginTime,a.EndTime,a.' +
        'Memo1,b.Name,c.ClassName from (SetClass a '
      'left outer join Employee b on a.EmployeeID=b.EmployeeID) '
      
        'left outer join Class c on a.ClassID=c.ClassID where a.AddClass=' +
        '0')
    Left = 256
    Top = 16
  end
  object QurAddClass: TADOQuery
    Connection = Con
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      
        'select a.BeginDate,a.EndDate,a.TimeMode,a.BeginTime,a.EndTime,a.' +
        'Memo1,b.Name,c.ClassName from (SetClass a '
      'left outer join Employee b on a.EmployeeID=b.EmployeeID) '
      
        'left outer join Class c on a.ClassID=c.ClassID where a.AddClass=' +
        '1')
    Left = 320
    Top = 16
  end
  object QurSetVac: TADOQuery
    Connection = Con
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      
        'select b.Name,a.BeginDate,EndDate,TimeMode,BeginTime,EndTime,Tim' +
        'ePos,Memo1 from SetVac a '
      'left outer join Employee b on a.EmployeeID=b.EmployeeID')
    Left = 16
    Top = 72
  end
  object QurLeave: TADOQuery
    Connection = Con
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      
        'select a.LeaveID,a.BillNo,b.Name,a.LeaveDate,a.Memo1 from LeaveI' +
        'nfo a '
      'left outer join Employee b on a.EmployeeID=b.EmployeeID')
    Left = 72
    Top = 72
  end
end