tcourseunit.dfm

DELPHI计算机科学系教务管理系统,带论文设计,不错的参考

      TabOrder = 9
      Text = 'edttcreduce'
      OnKeyPress = edttcreduceKeyPress
    end
    object edttcworksum: TEdit
      Left = 180
      Top = 135
      Width = 95
      Height = 21
      TabOrder = 10
      Text = 'edttcworksum'
      OnKeyPress = edttcworksumKeyPress
    end
    object edttcmemo: TEdit
      Left = 337
      Top = 136
      Width = 253
      Height = 21
      TabOrder = 11
      Text = 'edttcmemo'
    end
    object DTP: TDateTimePicker
      Left = 672
      Top = 136
      Width = 137
      Height = 21
      Date = 39186.785135810180000000
      Time = 39186.785135810180000000
      TabOrder = 12
    end
    object cbxtclessonname: TComboBox
      Left = 80
      Top = 57
      Width = 93
      Height = 21
      ItemHeight = 13
      TabOrder = 13
      Text = #35831#36873#25321
      OnChange = cbxtclessonnameChange
    end
    object cbtcout: TCheckBox
      Left = 315
      Top = 20
      Width = 15
      Height = 17
      TabOrder = 14
    end
    object edttpost: TEdit
      Left = 408
      Top = 16
      Width = 73
      Height = 21
      TabOrder = 15
      Text = 'edttpost'
    end
    object edttcdepartment: TEdit
      Left = 560
      Top = 16
      Width = 86
      Height = 21
      TabOrder = 16
      Text = 'edttcdepartment'
    end
    object edttclesson: TEdit
      Left = 248
      Top = 56
      Width = 89
      Height = 21
      TabOrder = 17
      Text = 'edttclesson'
    end
  end
  object Panel3: TPanel
    Left = 0
    Top = 0
    Width = 831
    Height = 49
    Align = alTop
    BorderStyle = bsSingle
    Color = clMoneyGreen
    TabOrder = 2
    object Label18: TLabel
      Left = 8
      Top = 15
      Width = 65
      Height = 13
      AutoSize = False
      Caption = #26159#21542#22806#32856#65306
    end
    object Label19: TLabel
      Left = 234
      Top = 16
      Width = 36
      Height = 13
      AutoSize = False
      Caption = #26376#20221#65306
    end
    object Label20: TLabel
      Left = 133
      Top = 16
      Width = 37
      Height = 13
      AutoSize = False
      Caption = #24180#20221#65306
    end
    object Label21: TLabel
      Left = 325
      Top = 16
      Width = 41
      Height = 13
      AutoSize = False
      Caption = #35797'/'#26597#65306
    end
    object Label22: TLabel
      Left = 440
      Top = 16
      Width = 41
      Height = 13
      AutoSize = False
      Caption = #32844' '#31216#65306
    end
    object btnFind: TBitBtn
      Left = 593
      Top = 11
      Width = 64
      Height = 25
      Caption = #26597#35810
      TabOrder = 0
      OnClick = btnFindClick
      Glyph.Data = {
        F6000000424DF600000000000000760000002800000010000000100000000100
        0400000000008000000000000000000000001000000000000000000000000000
        8000008000000080800080000000800080008080000080808000C0C0C0000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888
        8888888888888888888800000888880000080F000888880F00080F000888880F
        0008000000080000000800F000000F00000800F000800F00000800F000800F00
        00088000000000000088880F00080F0008888800000800000888888000888000
        88888880F08880F0888888800088800088888888888888888888}
    end
    object btnReport: TButton
      Left = 671
      Top = 11
      Width = 67
      Height = 25
      Caption = #29992#25143#25253#34920
      TabOrder = 1
      OnClick = btnReportClick
    end
    object Button1: TButton
      Left = 749
      Top = 11
      Width = 67
      Height = 25
      Caption = #23548#20986'Excel'
      TabOrder = 2
      OnClick = Button1Click
    end
    object ComboBox1: TComboBox
      Left = 73
      Top = 12
      Width = 49
      Height = 21
      ItemHeight = 13
      TabOrder = 3
      Text = #35831#36873#25321
      Items.Strings = (
        #35831#36873#25321
        #26159
        #21542)
    end
    object cbmonth: TComboBox
      Left = 268
      Top = 12
      Width = 49
      Height = 21
      ItemHeight = 13
      TabOrder = 4
      Text = #35831#36873#25321
      Items.Strings = (
        #35831#36873#25321
        '01'
        '02'
        '03'
        '04'
        '05'
        '06'
        '07'
        '08'
        '09'
        '10'
        '11'
        '12')
    end
    object edtyear: TEdit
      Left = 170
      Top = 12
      Width = 54
      Height = 21
      TabOrder = 5
      Text = '2007'
    end
    object ComboBox2: TComboBox
      Left = 368
      Top = 12
      Width = 59
      Height = 21
      ItemHeight = 13
      TabOrder = 6
      Text = #35831#36873#25321
      Items.Strings = (
        #35831#36873#25321
        #35797
        #26597)
    end
    object ComboBox3: TComboBox
      Left = 483
      Top = 12
      Width = 84
      Height = 21
      ItemHeight = 13
      TabOrder = 7
      Text = #35831#36873#25321
      Items.Strings = (
        #35831#36873#25321)
    end
  end
  object Panel4: TPanel
    Left = 0
    Top = 49
    Width = 831
    Height = 320
    Align = alClient
    BorderStyle = bsSingle
    TabOrder = 3
    object DBGrid1: TDBGrid
      Left = 1
      Top = 1
      Width = 825
      Height = 314
      Align = alClient
      DataSource = DataSource1
      FixedColor = clBtnHighlight
      ReadOnly = True
      TabOrder = 0
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -11
      TitleFont.Name = 'MS Sans Serif'
      TitleFont.Style = []
      OnDrawColumnCell = DBGrid1DrawColumnCell
      Columns = <
        item
          Expanded = False
          FieldName = 'tcno'
          Title.Caption = #24207#21495
          Width = 26
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'tcscode'
          Title.Caption = #25945#24072#32534#21495
          Width = 48
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'tname'
          Title.Caption = #25480#35838#25945#24072
          Width = 54
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'tpost'
          Title.Caption = #32844#31216
          Width = 29
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'tcdepartment'
          Title.Caption = #25480#35838#37096#38376
          Width = 48
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'tcclass'
          Title.Caption = #29677#32423
          Width = 30
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'tlesson'
          Title.Caption = #35838#31243#21517#31216
          Width = 47
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'tclessoncount'
          Title.Caption = #25480#35838#26102#25968
          Width = 50
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'tccoefficient'
          Title.Caption = #20462#35835#20154#25968#31995#25968
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'tcsc'
          Title.Caption = #35797'/'#26597
          Width = 32
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'tcclessons'
          Title.Caption = #25351#23548#19978#26426#25110#23454#39564#35838#23398#26102'('#35838#26102'*0.5)'
          Width = 165
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'tcsum'
          Title.Caption = #25480#35838#24037#20316#21512#35745
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'tcreduce'
          Title.Caption = #20139#21463#20943#20813#35838#26102#65288#20943#20813#20869#23481#65289
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'tcworksum'
          Title.Caption = #20010#20154#23436#25104#25945#23398#24037#20316#37327#24635#35745
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'tcmemo'
          Title.Caption = #22791#27880
          Width = 31
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'tbool'
          Title.Caption = #26159#21542#22806#32856
          Width = 36
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'tctime'
          Title.Caption = #30331#35760#26102#38388
          Width = 37
          Visible = True
        end>
    end
  end
  object ADOQuery1: TADOQuery
    Connection = DM.ADOConnection1
    AfterScroll = ADOQuery1AfterScroll
    Parameters = <>
    SQL.Strings = (
      'select tc.tcno,tc.tcscode,tt.tname,tt.tpost,tt.tcdepartment,'
      
        'tc.tcclass,tc.tscode,tl.tscode,tl.tlesson,tc.tclessoncount,tc.tc' +
        'coefficient,'
      
        'tc.tcsc,tc.tcclessons,tc.tcsum,tc.tcreduce,tc.tcworksum,tc.tcmem' +
        'o,'
      'tt.tbool,tc.tctime from TCourse tc inner join TTeacher tt on '
      ' tcscode = tno  inner join tlesson tl on tc.tscode = tl.tscode ')
    Left = 232
    Top = 153
  end
  object DataSource1: TDataSource
    DataSet = ADOQuery1
    Left = 160
    Top = 145
  end
end