u_datamodule.dfm

考勤管理系统 数据库系列

object DM_main: TDM_main
  OldCreateOrder = False
  Left = 194
  Top = 133
  Height = 480
  Width = 696
  object Database: TDatabase
    DatabaseName = 'MISData'
    DriverName = 'INTRBASE'
    LoginPrompt = False
    Params.Strings = (
      'SERVER NAME=red:D:\DATABASE\MISDB.GDB'
      'USER NAME=MISDBA'
      'OPEN MODE=READ/WRITE'
      'SCHEMA CACHE SIZE=8'
      'LANGDRIVER='
      'SQLQRYMODE='
      'SQLPASSTHRU MODE=SHARED AUTOCOMMIT'
      'SCHEMA CACHE TIME=-1'
      'MAX ROWS=-1'
      'BATCH COUNT=200'
      'ENABLE SCHEMA CACHE=FALSE'
      'SCHEMA CACHE DIR='
      'ENABLE BCD=FALSE'
      'BLOBS TO CACHE=64'
      'BLOB SIZE=32'
      'PASSWORD=PASSWORD'
      '')
    SessionName = 'Default'
    Left = 24
    Top = 16
  end
  object Q_login: TQuery
    DatabaseName = 'MISData'
    SQL.Strings = (
      'SELECT COUNT(ID)'
      'FROM PERSON'
      'WHERE ID=:USER'
      'AND PASSWD=:PASSWD'
      'AND AUTHORITY='#39'4'#39)
    Left = 24
    Top = 64
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'USER'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'PASSWD'
        ParamType = ptUnknown
      end>
  end
  object T_depart: TTable
    DatabaseName = 'MISData'
    TableName = 'DEPARTMENT'
    Left = 24
    Top = 128
  end
  object DS_depart: TDataSource
    DataSet = T_depart
    Left = 88
    Top = 128
  end
  object T_person: TTable
    DatabaseName = 'MISData'
    TableName = 'PERSON'
    Left = 24
    Top = 184
  end
  object T_counter: TTable
    DatabaseName = 'MISData'
    TableName = 'COUNTER'
    Left = 24
    Top = 240
  end
  object DS_attendance: TDataSource
    DataSet = T_attendance
    Left = 336
    Top = 16
  end
  object T_attendance: TTable
    DatabaseName = 'MISData'
    TableName = 'ATTENDANCE'
    Left = 248
    Top = 16
  end
  object T_overtime: TTable
    DatabaseName = 'MISData'
    TableName = 'OVERTIME'
    Left = 248
    Top = 72
  end
  object DS_overtime: TDataSource
    DataSet = T_overtime
    Left = 336
    Top = 72
  end
  object T_leave: TTable
    DatabaseName = 'MISData'
    TableName = 'LEAVE'
    Left = 248
    Top = 128
  end
  object DS_leave: TDataSource
    DataSet = T_leave
    Left = 336
    Top = 128
  end
  object T_errand: TTable
    DatabaseName = 'MISData'
    TableName = 'ERRAND'
    Left = 248
    Top = 192
  end
  object DS_errand: TDataSource
    DataSet = T_errand
    Left = 336
    Top = 192
  end
  object T_stat: TTable
    DatabaseName = 'MISData'
    TableName = 'ATTENDANCE_STAT'
    Left = 248
    Top = 256
  end
  object DS_stat: TDataSource
    DataSet = T_stat
    Left = 336
    Top = 256
  end
  object Q_attend: TQuery
    DatabaseName = 'MISData'
    SQL.Strings = (
      'SELECT IN_OUT,IO_TIME'
      'FROM ATTENDANCE'
      'WHERE PERSON=:PERSON'
      'AND IO_TIME>:STARTTIME'
      'AND IO_TIME<:ENDTIME'
      'ORDER BY IO_TIME')
    Left = 24
    Top = 336
    ParamData = <
      item
        DataType = ftString
        Name = 'PERSON'
        ParamType = ptInput
        Value = ''
      end
      item
        DataType = ftDateTime
        Name = 'STARTTIME'
        ParamType = ptInput
        Value = 0d
      end
      item
        DataType = ftDateTime
        Name = 'ENDTIME'
        ParamType = ptInput
        Value = 0d
      end>
  end
  object Q_leave: TQuery
    DatabaseName = 'MISData'
    SQL.Strings = (
      'SELECT ID'
      'FROM LEAVE'
      'WHERE PERSON=:PERSON'
      'AND START_DAY<:STARTTIME'
      'AND END_DAY>:ENDTIME')
    Left = 128
    Top = 336
    ParamData = <
      item
        DataType = ftString
        Name = 'PERSON'
        ParamType = ptInput
        Value = ''
      end
      item
        DataType = ftDateTime
        Name = 'STARTTIME'
        ParamType = ptInput
        Value = 0d
      end
      item
        DataType = ftDateTime
        Name = 'ENDTIME'
        ParamType = ptInput
        Value = 0d
      end>
  end
  object Q_errand: TQuery
    DatabaseName = 'MISData'
    SQL.Strings = (
      'SELECT ID'
      'FROM ERRAND'
      'WHERE PERSON=:PERSON'
      'AND START_TIME<:STARTTIME'
      'AND END_TIME>:ENDTIME')
    Left = 232
    Top = 336
    ParamData = <
      item
        DataType = ftString
        Name = 'PERSON'
        ParamType = ptInput
        Value = ''
      end
      item
        DataType = ftDateTime
        Name = 'STARTTIME'
        ParamType = ptInput
        Value = 0d
      end
      item
        DataType = ftDateTime
        Name = 'ENDTIME'
        ParamType = ptInput
        Value = 0d
      end>
  end
  object Q_overtime: TQuery
    DatabaseName = 'MISData'
    SQL.Strings = (
      'SELECT SUM(WORK_HOURS)'
      'FROM OVERTIME'
      'WHERE PERSON=:PERSON'
      'AND WORK_DATE>=:STARTTIME'
      'AND WORK_DATE<:ENDTIME')
    Left = 320
    Top = 336
    ParamData = <
      item
        DataType = ftString
        Name = 'PERSON'
        ParamType = ptInput
        Value = ''
      end
      item
        DataType = ftDateTime
        Name = 'STARTTIME'
        ParamType = ptInput
        Value = 0d
      end
      item
        DataType = ftDateTime
        Name = 'ENDTIME'
        ParamType = ptInput
        Value = 0d
      end>
  end
end