u_main.dfm

用DELPHI开发的培训管理系统.数据库为SQL SERVER8.0,欢迎下载.

          TabOrder = 6
        end
      end
      object DBGrid2: TDBGrid
        Left = 416
        Top = 24
        Width = 209
        Height = 233
        DataSource = DS_course_select
        TabOrder = 2
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = []
        Columns = <
          item
            Expanded = False
            FieldName = 'COURSE'
            Title.Caption = #35838#31243#32534#21495
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'NAME'
            Title.Caption = #35838#31243#21517#31216
            Visible = True
          end>
      end
      object Button1: TButton
        Left = 312
        Top = 232
        Width = 75
        Height = 25
        Caption = #28155#21152#21040#35838#34920
        TabOrder = 3
        OnClick = Button1Click
      end
      object Button2: TButton
        Left = 224
        Top = 232
        Width = 75
        Height = 25
        Caption = #20174#35838#34920#21024#38500
        TabOrder = 4
        OnClick = Button2Click
      end
    end
    object TabSheet3: TTabSheet
      Caption = #26597#35810#25104#32489
      ImageIndex = 2
      OnShow = TabSheet3Show
      object Label20: TLabel
        Left = 16
        Top = 8
        Width = 84
        Height = 13
        Caption = #24050#23398#35838#31243#21015#34920#65306
      end
      object DBGrid3: TDBGrid
        Left = 8
        Top = 24
        Width = 617
        Height = 233
        DataSource = DS_course_learned
        TabOrder = 0
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = []
        Columns = <
          item
            Expanded = False
            FieldName = 'COURSE'
            Title.Caption = #35838#31243#32534#21495
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'NAME'
            Title.Caption = #35838#31243#21517#31216
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'SCORE'
            Title.Caption = #25104#32489
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'DESCRIPTION'
            Title.Caption = #32771#26680#35780#20215
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'EXAM_DATE'
            Title.Caption = #32771#26680#26085#26399
            Visible = True
          end>
      end
    end
  end
  object i_user: TMaskEdit
    Left = 64
    Top = 12
    Width = 57
    Height = 21
    EditMask = '>a!99999;1;_'
    MaxLength = 6
    TabOrder = 1
    Text = '      '
  end
  object i_passwd: TEdit
    Left = 168
    Top = 12
    Width = 81
    Height = 21
    PasswordChar = '*'
    TabOrder = 2
  end
  object B_login: TButton
    Left = 256
    Top = 10
    Width = 49
    Height = 25
    Caption = #30331#24405
    Default = True
    TabOrder = 3
    OnClick = B_loginClick
  end
  object B_logout: TButton
    Left = 344
    Top = 10
    Width = 49
    Height = 25
    Caption = #26029#24320
    TabOrder = 4
    OnClick = B_logoutClick
  end
  object o_name: TDBEdit
    Left = 432
    Top = 12
    Width = 81
    Height = 21
    DataField = 'NAME'
    DataSource = DS_person
    Enabled = False
    TabOrder = 5
  end
  object o_depart: TDBEdit
    Left = 576
    Top = 12
    Width = 73
    Height = 21
    DataField = 'DEPARTMENT'
    DataSource = DS_person
    Enabled = False
    TabOrder = 6
  end
  object B_about: TButton
    Left = 312
    Top = 10
    Width = 25
    Height = 25
    Caption = #65311
    TabOrder = 7
    OnClick = B_aboutClick
  end
  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 = 200
    Top = 40
  end
  object Q_login: TQuery
    DatabaseName = 'MISData'
    SQL.Strings = (
      'SELECT COUNT(ID)'
      'FROM PERSON'
      'WHERE ID=:USER'
      'AND PASSWD=:PASSWD')
    Left = 232
    Top = 40
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'USER'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'PASSWD'
        ParamType = ptUnknown
      end>
  end
  object T_person: TTable
    DatabaseName = 'MISData'
    TableName = 'PERSON'
    Left = 264
    Top = 40
  end
  object DS_person: TDataSource
    DataSet = T_person
    Left = 296
    Top = 40
  end
  object Q_course_select: TQuery
    DatabaseName = 'MISData'
    SQL.Strings = (
      'SELECT T.ID, T.COURSE, C.NAME'
      'FROM TRAINING_PLAN T'
      'LEFT JOIN COURSE C ON T.COURSE=C.ID'
      'WHERE T.PERSON=:PERSON'
      'AND T.APPRAISEMENT='#39'0'#39)
    Left = 392
    Top = 40
    ParamData = <
      item
        DataType = ftString
        Name = 'PERSON'
        ParamType = ptInput
        Value = ''
      end>
  end
  object DS_course_select: TDataSource
    DataSet = Q_course_select
    Left = 424
    Top = 40
  end
  object Q_course_list: TQuery
    DatabaseName = 'MISData'
    SQL.Strings = (
      'SELECT C.ID, C.NAME, P.NAME AS TEACHER, C.INTRO, C.BOOK, '
      'C.CLASSROOM, C.NUMBER, C.CLASSTIME,'
      
        '(SELECT COUNT(ID) FROM TRAINING_PLAN WHERE COURSE=C.ID) AS COUNT' +
        'ER'
      'FROM COURSE C'
      'LEFT JOIN PERSON P ON C.TEACHER=P.ID'
      'WHERE C.STATE='#39'0'#39' ')
    Left = 328
    Top = 40
  end
  object DS_course_list: TDataSource
    DataSet = Q_course_list
    Left = 360
    Top = 40
  end
  object UQ_change: TUpdateSQL
    InsertSQL.Strings = (
      'INSERT INTO TRAINING_PLAN'
      '(ID, PERSON, COURSE, APPRAISEMENT)'
      'VALUES (:ID, :PERSON, :COURSE, 0)')
    DeleteSQL.Strings = (
      'DELETE FROM TRAINING_PLAN'
      'WHERE ID=:ID')
    Left = 520
    Top = 40
  end
  object T_counter: TTable
    DatabaseName = 'MISData'
    Filter = 'ID='#39'T'#39
    Filtered = True
    TableName = 'COUNTER'
    Left = 488
    Top = 40
  end
  object Q_change: TQuery
    DatabaseName = 'MISData'
    Left = 456
    Top = 40
  end
  object Q_course_learned: TQuery
    DatabaseName = 'MISData'
    SQL.Strings = (
      'SELECT T.COURSE, C.NAME, T.SCORE, A.DESCRIPTION, T.EXAM_DATE'
      'FROM TRAINING_PLAN T, COURSE C, APPRAISEMENT A'
      'WHERE T.PERSON=:PERSON'
      'AND T.APPRAISEMENT<>'#39'0'#39
      'AND T.COURSE=C.ID'
      'AND T.APPRAISEMENT=A.CODE')
    Left = 552
    Top = 40
    ParamData = <
      item
        DataType = ftString
        Name = 'PERSON'
        ParamType = ptInput
        Value = ''
      end>
  end
  object DS_course_learned: TDataSource
    DataSet = Q_course_learned
    Left = 584
    Top = 40
  end
end