u_datamodule.dfm

工资管理系统的DELPHI版本

object DM_main: TDM_main
  OldCreateOrder = False
  Left = 300
  Top = 155
  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 = 24
  end
  object Q_login: TQuery
    DatabaseName = 'MISData'
    SQL.Strings = (
      'SELECT COUNT(ID)'
      'FROM PERSON'
      'WHERE ID=:USER'
      'AND PASSWD=:PASSWD'
      'AND AUTHORITY='#39'5'#39)
    Left = 24
    Top = 72
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'USER'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'PASSWD'
        ParamType = ptUnknown
      end>
  end
  object T_salary_set: TTable
    DatabaseName = 'MISData'
    TableName = 'SALARY_SET'
    Left = 208
    Top = 24
  end
  object DS_salary_set: TDataSource
    DataSet = T_salary_set
    Left = 296
    Top = 24
  end
  object Q_person_list: TQuery
    DatabaseName = 'MISData'
    SQL.Strings = (
      'SELECT ID,NAME'
      'FROM PERSON'
      'WHERE DEPARTMENT like :DEPART'
      'AND STATE='#39'T'#39)
    Left = 208
    Top = 88
    ParamData = <
      item
        DataType = ftString
        Name = 'DEPART'
        ParamType = ptInput
        Value = ''
      end>
  end
  object DS_person_list: TDataSource
    DataSet = Q_person_list
    Left = 304
    Top = 88
  end
  object Q_depart: TQuery
    DatabaseName = 'MISData'
    SQL.Strings = (
      'SELECT NAME'
      'FROM DEPARTMENT'
      'WHERE ID=:DEPART')
    Left = 400
    Top = 24
    ParamData = <
      item
        DataType = ftString
        Name = 'DEPART'
        ParamType = ptInput
      end>
  end
  object Q_person: TQuery
    DatabaseName = 'MISData'
    SQL.Strings = (
      'SELECT NAME,DEPARTMENT'
      'FROM PERSON'
      'WHERE ID=:PERSON')
    Left = 400
    Top = 88
    ParamData = <
      item
        DataType = ftString
        Name = 'PERSON'
        ParamType = ptUnknown
        Value = ''
      end>
  end
  object T_salary_1: TTable
    DatabaseName = 'MISData'
    TableName = 'SALARY_OTHER'
    Left = 24
    Top = 192
  end
  object DS_salary_1: TDataSource
    DataSet = T_salary_1
    Left = 96
    Top = 192
  end
  object T_salary_2: TTable
    DatabaseName = 'MISData'
    TableName = 'SALARY_OTHER'
    Left = 24
    Top = 240
  end
  object T_salary_3: TTable
    DatabaseName = 'MISData'
    TableName = 'SALARY_OTHER'
    Left = 24
    Top = 288
  end
  object DS_salary_2: TDataSource
    DataSet = T_salary_2
    Left = 96
    Top = 240
  end
  object DS_salary_3: TDataSource
    DataSet = T_salary_3
    Left = 96
    Top = 288
  end
  object T_salary_4: TTable
    DatabaseName = 'MISData'
    TableName = 'SALARY_OTHER'
    Left = 24
    Top = 336
  end
  object DS_salary_4: TDataSource
    DataSet = T_salary_4
    Left = 96
    Top = 336
  end
  object Q_salary_list: TQuery
    DatabaseName = 'MISData'
    SQL.Strings = (
      
        'SELECT PERSON.ID,PERSON.NAME,SALARY.BASIC,SALARY.BONUS,SALARY.AD' +
        'D_DETAIL,SALARY.ADD_TOTAL,SALARY.SUB_DETAIL,SALARY.SUB_TOTAL,SAL' +
        'ARY.TOTAL'
      'FROM SALARY,PERSON'
      'WHERE SALARY.PERSON=PERSON.ID'
      'AND SALARY.YEARMONTH=:YEARMONTH'
      'ORDER BY PERSON.ID')
    Left = 208
    Top = 192
    ParamData = <
      item
        DataType = ftString
        Name = 'YEARMONTH'
        ParamType = ptInput
        Value = '2001-12'
      end>
  end
  object T_counter: TTable
    DatabaseName = 'MISData'
    TableName = 'COUNTER'
    Left = 96
    Top = 24
  end
  object Q_add_salary_other: TQuery
    DatabaseName = 'MISData'
    SQL.Strings = (
      'INSERT INTO SALARY_OTHER'
      '(ID, YEARMONTH, PERSON, OTHER_TYPE, NAME, MONEY, DESCRIPTION)'
      'VALUES (:ID, :YEAR, :PERSON, :TYPE, :NAME, :MONEY, :DESCRIP)')
    Left = 400
    Top = 152
    ParamData = <
      item
        DataType = ftInteger
        Name = 'ID'
        ParamType = ptInput
        Value = 0
      end
      item
        DataType = ftString
        Name = 'YEAR'
        ParamType = ptInput
        Value = ''
      end
      item
        DataType = ftString
        Name = 'PERSON'
        ParamType = ptInput
        Value = ''
      end
      item
        DataType = ftString
        Name = 'TYPE'
        ParamType = ptInput
        Value = ''
      end
      item
        DataType = ftString
        Name = 'NAME'
        ParamType = ptInput
        Value = ''
      end
      item
        DataType = ftFloat
        Name = 'MONEY'
        ParamType = ptInput
        Value = 0s
      end
      item
        DataType = ftString
        Name = 'DESCRIP'
        ParamType = ptInput
        Value = ''
      end>
  end
  object Q_person_list_all: TQuery
    DatabaseName = 'MISData'
    SQL.Strings = (
      'SELECT ID'
      'FROM PERSON'
      'WHERE STATE='#39'T'#39)
    Left = 208
    Top = 288
  end
  object Q_salary_base: TQuery
    DatabaseName = 'MISData'
    SQL.Strings = (
      'SELECT SALARY'
      'FROM SALARY_SET'
      'WHERE PERSON=:PERSON')
    Left = 304
    Top = 288
    ParamData = <
      item
        DataType = ftString
        Name = 'PERSON'
        ParamType = ptInput
        Value = ''
      end>
  end
  object Q_salary_other: TQuery
    DatabaseName = 'MISData'
    SQL.Strings = (
      'SELECT NAME, MONEY'
      'FROM SALARY_OTHER'
      'WHERE (YEARMONTH=:YEARMONTH OR YEARMONTH='#39'0000000'#39')'
      'AND PERSON=:PERSON'
      'AND OTHER_TYPE=:TYPE')
    Left = 208
    Top = 336
    ParamData = <
      item
        DataType = ftString
        Name = 'YEARMONTH'
        ParamType = ptInput
        Value = ''
      end
      item
        DataType = ftString
        Name = 'PERSON'
        ParamType = ptInput
        Value = ''
      end
      item
        DataType = ftString
        Name = 'TYPE'
        ParamType = ptInput
        Value = ''
      end>
  end
  object Q_attendance_stat: TQuery
    DatabaseName = 'MISData'
    SQL.Strings = (
      'SELECT *'
      'FROM ATTENDANCE_STAT'
      'WHERE YEAR_MONTH=:YEARMONTH'
      'AND PERSON=:PERSON')
    Left = 304
    Top = 336
    ParamData = <
      item
        DataType = ftString
        Name = 'YEARMONTH'
        ParamType = ptInput
        Value = ''
      end
      item
        DataType = ftString
        Name = 'PERSON'
        ParamType = ptInput
        Value = ''
      end>
  end
  object T_add_salary: TTable
    DatabaseName = 'MISData'
    TableName = 'SALARY'
    Left = 392
    Top = 288
  end
end