kaotong.~dfm

DElphi教学排课管理系统全套 包括论文。希望对大家有帮助

object Form26: TForm26
  Left = 171
  Top = 144
  Width = 768
  Height = 486
  Caption = #32771#21220#37096#38376#32479#35745#23376#30028#38754
  Color = clSkyBlue
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object GroupBox1: TGroupBox
    Left = 8
    Top = 8
    Width = 673
    Height = 105
    Caption = #26376#24230#32479#35745
    TabOrder = 0
    object Label1: TLabel
      Left = 32
      Top = 32
      Width = 60
      Height = 13
      Caption = #32479#35745#24180#26376#65306
    end
    object Label2: TLabel
      Left = 24
      Top = 72
      Width = 60
      Height = 13
      Caption = #26102#38388#33539#22260#20174
    end
    object Label3: TLabel
      Left = 224
      Top = 72
      Width = 12
      Height = 13
      Caption = #33267
    end
    object Gauge1: TGauge
      Left = 392
      Top = 64
      Width = 273
      Height = 17
      Progress = 0
    end
    object i_time: TMaskEdit
      Left = 104
      Top = 24
      Width = 112
      Height = 21
      EditMask = '!0000-!90;1;_'
      ImeName = #20013#25991'('#31616#20307') - '#19975#33021#20116#31508'2002'#22810#20803#36755#20837#27861
      MaxLength = 7
      TabOrder = 0
      Text = '    -  '
    end
    object i_start_time: TMaskEdit
      Left = 104
      Top = 64
      Width = 112
      Height = 21
      EditMask = '!0000-!90-90;1;_'
      ImeName = #20013#25991'('#31616#20307') - '#19975#33021#20116#31508'2002'#22810#20803#36755#20837#27861
      MaxLength = 10
      TabOrder = 1
      Text = '    -  -  '
    end
    object i_end_time: TMaskEdit
      Left = 248
      Top = 64
      Width = 120
      Height = 21
      EditMask = '!0000-!90-90;1;_'
      ImeName = #20013#25991'('#31616#20307') - '#19975#33021#20116#31508'2002'#22810#20803#36755#20837#27861
      MaxLength = 10
      TabOrder = 2
      Text = '    -  -  '
    end
    object B_stat: TButton
      Left = 432
      Top = 24
      Width = 75
      Height = 25
      Caption = #32479#35745#32467#26524
      TabOrder = 3
      OnClick = B_statClick
    end
    object Button2: TButton
      Left = 544
      Top = 24
      Width = 75
      Height = 25
      Caption = #36820#22238
      TabOrder = 4
      OnClick = Button2Click
    end
    object Button1: TButton
      Left = 328
      Top = 24
      Width = 75
      Height = 25
      Caption = #32479#35745
      TabOrder = 5
      OnClick = Button1Click
    end
  end
  object GroupBox2: TGroupBox
    Left = 8
    Top = 120
    Width = 673
    Height = 105
    Caption = #26816#32034#26465#20214
    TabOrder = 1
    object Label4: TLabel
      Left = 360
      Top = 80
      Width = 36
      Height = 13
      Caption = #22995#21517#65306
    end
    object Seek_by_time: TCheckBox
      Left = 56
      Top = 32
      Width = 97
      Height = 17
      Caption = #24180#26376
      TabOrder = 0
    end
    object Seek_by_person: TCheckBox
      Left = 56
      Top = 72
      Width = 81
      Height = 17
      Caption = #21592#24037
      TabOrder = 1
    end
    object seek_time: TMaskEdit
      Left = 176
      Top = 32
      Width = 120
      Height = 21
      EditMask = '!0000-!90;1;_'
      ImeName = #20013#25991'('#31616#20307') - '#19975#33021#20116#31508'2002'#22810#20803#36755#20837#27861
      MaxLength = 7
      TabOrder = 2
      Text = '    -  '
    end
    object Seek_person_id: TMaskEdit
      Left = 176
      Top = 72
      Width = 120
      Height = 21
      EditMask = '>L!99999;1;_'
      ImeName = #20013#25991'('#31616#20307') - '#19975#33021#20116#31508'2002'#22810#20803#36755#20837#27861
      MaxLength = 6
      TabOrder = 3
      Text = '      '
      OnChange = Seek_person_idChange
    end
    object Seek_person_name: TEdit
      Left = 424
      Top = 72
      Width = 121
      Height = 21
      ImeName = #20013#25991'('#31616#20307') - '#19975#33021#20116#31508'2002'#22810#20803#36755#20837#27861
      ReadOnly = True
      TabOrder = 4
    end
    object B_seek: TButton
      Left = 480
      Top = 24
      Width = 107
      Height = 25
      Caption = #25353#26465#20214#36827#34892#26816#32034
      TabOrder = 5
      OnClick = B_seekClick
    end
  end
  object DBGrid1: TDBGrid
    Left = 8
    Top = 248
    Width = 673
    Height = 193
    DataSource = DS_stat
    FixedColor = clSkyBlue
    ImeName = #20013#25991'('#31616#20307') - '#19975#33021#20116#31508'2002'#22810#20803#36755#20837#27861
    TabOrder = 2
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    Columns = <
      item
        Expanded = False
        FieldName = 'ID'
        ReadOnly = True
        Title.Alignment = taCenter
        Title.Caption = #35760#24405#32534#21495
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'PERSON'
        ReadOnly = True
        Title.Alignment = taCenter
        Title.Caption = #25945#24072#21495
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'YEAR_MONTH'
        Title.Alignment = taCenter
        Title.Caption = #24180#26376
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'WORK_HOUR'
        Title.Alignment = taCenter
        Title.Caption = #27491#24120#24037#20316#26102#38388
        Width = 80
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'OVER_HOUR'
        Title.Alignment = taCenter
        Title.Caption = #21152#29677#26102#38388#65288#23567#26102#65289
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'LEAVE_HDAY'
        Title.Alignment = taCenter
        Title.Caption = #35831#20551#26102#38388#65288#23567#26102#65289
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'ERRAND_HDAY'
        Title.Alignment = taCenter
        Title.Caption = #35831#20551#26102#38388#65288#23567#26102#65289
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'LATE_TIMES'
        Title.Alignment = taCenter
        Title.Caption = #36831#21040#27425#25968
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'EARLY_TIMES'
        Title.Alignment = taCenter
        Title.Caption = #26089#36864#27425#25968
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'ABSENT_TIMES'
        Title.Alignment = taCenter
        Title.Caption = #26103#24037#27425#25968
        Visible = True
      end>
  end
  object T_stat: TTable
    DatabaseName = 'mydatabase'
    TableName = 'ATTENDANCE_STAT'
    Left = 696
    Top = 24
  end
  object DS_stat: TDataSource
    DataSet = T_stat
    Left = 696
    Top = 56
  end
  object T_person: TTable
    DatabaseName = 'mydatabase'
    TableName = 'PERSON'
    Left = 696
    Top = 88
  end
  object DS_person: TDataSource
    DataSet = T_person
    Left = 696
    Top = 120
  end
  object Q_attend: TQuery
    DatabaseName = 'mydatabase'
    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 = 696
    Top = 152
    ParamData = <
      item
        DataType = ftString
        Name = 'PERSON'
        ParamType = ptUnknown
      end
      item
        DataType = ftDateTime
        Name = 'STARTTIME'
        ParamType = ptUnknown
      end
      item
        DataType = ftDateTime
        Name = 'ENDTIME'
        ParamType = ptUnknown
      end>
  end
  object Q_leave: TQuery
    DatabaseName = 'mydatabase'
    SQL.Strings = (
      'SELECT ID'
      'FROM LEAVE'
      'WHERE PERSON=:PERSON'
      'AND START_DAY<:STARTTIME'
      'AND END_DAY>:ENDTIME')
    Left = 696
    Top = 184
    ParamData = <
      item
        DataType = ftString
        Name = 'PERSON'
        ParamType = ptUnknown
      end
      item
        DataType = ftDateTime
        Name = 'STARTTIME'
        ParamType = ptUnknown
      end
      item
        DataType = ftDateTime
        Name = 'ENDTIME'
        ParamType = ptUnknown
      end>
  end
  object Q_errand: TQuery
    DatabaseName = 'mydatabase'
    SQL.Strings = (
      'SELECT ID'
      'FROM ERRAND'
      'WHERE PERSON=:PERSON'
      'AND START_TIME<:STARTTIME'
      'AND END_TIME>:ENDTIME')
    Left = 696
    Top = 216
    ParamData = <
      item
        DataType = ftString
        Name = 'PERSON'
        ParamType = ptUnknown
      end
      item
        DataType = ftDateTime
        Name = 'STARTTIME'
        ParamType = ptUnknown
      end
      item
        DataType = ftDateTime
        Name = 'ENDTIME'
        ParamType = ptUnknown
      end>
  end
  object Q_overtime: TQuery
    DatabaseName = 'mydatabase'
    Filtered = True
    SQL.Strings = (
      'SELECT SUM(WORK_HOURS) AS SUMR'
      'FROM OVERTIME'
      'WHERE PERSON=:PERSON'
      'AND WORK_DATE>:STARTTIME'
      'AND WORk_DATE<:ENDTIME')
    Left = 696
    Top = 248
    ParamData = <
      item
        DataType = ftString
        Name = 'PERSON'
        ParamType = ptUnknown
      end
      item
        DataType = ftDateTime
        Name = 'STARTTIME'
        ParamType = ptUnknown
      end
      item
        DataType = ftDateTime
        Name = 'ENDTIME'
        ParamType = ptUnknown
      end>
  end
  object T_counter: TTable
    DatabaseName = 'mydatabase'
    Filtered = True
    TableName = 'COUNTER'
    Left = 696
    Top = 280
  end
end