u_datamodule.dfm

员工培训系统 数据库系列

object DM_main: TDM_main
  OldCreateOrder = False
  Left = 347
  Top = 141
  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'6'#39)
    Left = 24
    Top = 88
    ParamData = <
      item
        DataType = ftString
        Name = 'USER'
        ParamType = ptInput
        Value = ''
      end
      item
        DataType = ftString
        Name = 'PASSWD'
        ParamType = ptInput
        Value = ''
      end>
  end
  object T_course: TTable
    DatabaseName = 'MISData'
    TableName = 'COURSE'
    Left = 24
    Top = 168
  end
  object T_teacher: TTable
    DatabaseName = 'MISData'
    TableName = 'PERSON'
    Left = 24
    Top = 224
  end
  object DS_course: TDataSource
    DataSet = T_course
    Left = 96
    Top = 168
  end
  object DS_teacher: TDataSource
    DataSet = T_teacher
    Left = 96
    Top = 224
  end
  object T_counter: TTable
    DatabaseName = 'MISData'
    TableName = 'COUNTER'
    Left = 96
    Top = 24
  end
  object DS_course_list: TDataSource
    DataSet = Q_course_list
    Left = 304
    Top = 24
  end
  object Q_student_list: TQuery
    DatabaseName = 'MISData'
    DataSource = DS_course_list
    SQL.Strings = (
      'SELECT P.ID, P.NAME, D.NAME AS DEPART'
      'FROM TRAINING_PLAN T, PERSON P, DEPARTMENT D'
      'WHERE T.COURSE=:ID'
      'AND T.PERSON=P.ID'
      'AND P.DEPARTMENT=D.ID'
      'ORDER BY D.ID')
    Left = 224
    Top = 72
    ParamData = <
      item
        DataType = ftFixedChar
        Name = 'ID'
        ParamType = ptUnknown
      end>
  end
  object Q_course_list: TQuery
    DatabaseName = 'MISData'
    SQL.Strings = (
      'SELECT C.ID, C.NAME AS NAME, P.NAME AS TEACHER'
      'FROM COURSE C LEFT JOIN PERSON P ON C.TEACHER=P.ID'
      'WHERE C.STATE='#39'0'#39)
    Left = 224
    Top = 24
  end
  object DS_student_list: TDataSource
    DataSet = Q_student_list
    Left = 304
    Top = 72
  end
  object Q_change_state: TQuery
    DatabaseName = 'MISData'
    SQL.Strings = (
      'UPDATE COURSE'
      'SET STATE='#39'1'#39
      'WHERE ID=:ID')
    Left = 224
    Top = 120
    ParamData = <
      item
        DataType = ftInteger
        Name = 'ID'
        ParamType = ptInput
        Value = 0
      end>
  end
  object Q_course_list2: TQuery
    DatabaseName = 'MISData'
    SQL.Strings = (
      'SELECT C.ID, C.NAME AS NAME, P.NAME AS TEACHER'
      'FROM COURSE C LEFT JOIN PERSON P ON C.TEACHER=P.ID'
      'WHERE C.STATE='#39'1'#39)
    Left = 224
    Top = 176
  end
  object DS_course_list2: TDataSource
    DataSet = Q_course_list2
    Left = 304
    Top = 176
  end
  object Q_student_list2: TQuery
    DatabaseName = 'MISData'
    DataSource = DS_course_list2
    SQL.Strings = (
      'SELECT T.ID, P.ID AS PERSON, P.NAME, D.NAME AS DEPART'
      'FROM TRAINING_PLAN T, PERSON P, DEPARTMENT D'
      'WHERE T.COURSE=:ID'
      'AND T.PERSON=P.ID'
      'AND P.DEPARTMENT=D.ID'
      'ORDER BY D.ID')
    Left = 224
    Top = 224
    ParamData = <
      item
        DataType = ftFixedChar
        Name = 'ID'
        ParamType = ptUnknown
      end>
  end
  object DS_student_list2: TDataSource
    DataSet = Q_student_list2
    Left = 304
    Top = 224
  end
  object T_score: TTable
    DatabaseName = 'MISData'
    IndexFieldNames = 'ID'
    MasterFields = 'ID'
    MasterSource = DS_student_list2
    TableName = 'TRAINING_PLAN'
    Left = 224
    Top = 272
  end
  object DS_score: TDataSource
    DataSet = T_score
    Left = 304
    Top = 272
  end
  object T_appraisement: TTable
    DatabaseName = 'MISData'
    TableName = 'APPRAISEMENT'
    Left = 64
    Top = 328
  end
  object DS_appraisement: TDataSource
    DataSet = T_appraisement
    Left = 144
    Top = 328
  end
  object Q_person: TQuery
    DatabaseName = 'MISData'
    SQL.Strings = (
      'SELECT NAME, DEPARTMENT'
      'FROM PERSON'
      'WHERE ID=:ID')
    Left = 224
    Top = 328
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'ID'
        ParamType = ptUnknown
      end>
  end
  object Q_depart: TQuery
    DatabaseName = 'MISData'
    SQL.Strings = (
      'SELECT NAME'
      'FROM DEPARTMENT'
      'WHERE ID=:ID')
    Left = 304
    Top = 328
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'ID'
        ParamType = ptUnknown
      end>
  end
  object Q_stat: TQuery
    DatabaseName = 'MISData'
    SQL.Strings = (
      
        'SELECT D.NAME AS DEPART, P.NAME AS PERSON, C.NAME AS COURSE, T.S' +
        'CORE, A.DESCRIPTION AS APPRAISE'
      'FROM ((TRAINING_PLAN T '
      'LEFT JOIN APPRAISEMENT A ON T.APPRAISEMENT=A.CODE)'
      'LEFT JOIN COURSE C ON T.COURSE=C.ID)'
      'LEFT JOIN (PERSON P LEFT JOIN DEPARTMENT D ON P.DEPARTMENT=D.ID)'
      'ON T.PERSON=P.ID'
      'WHERE T.APPRAISEMENT<>'#39'0'#39
      'AND T.EXAM_DATE>=:START_DATE'
      'AND T.EXAM_DATE<:END_DATE')
    Left = 384
    Top = 328
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'START_DATE'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'END_DATE'
        ParamType = ptUnknown
      end>
  end
end