tcourse1unit.dfm

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

      Height = 21
      TabOrder = 9
      Text = 'edttgrade'
    end
    object edttclno: TEdit
      Left = 64
      Top = 19
      Width = 67
      Height = 21
      TabOrder = 10
      Text = 'edttclno'
    end
    object cbxtscode: TComboBox
      Left = 91
      Top = 64
      Width = 92
      Height = 21
      ItemHeight = 13
      TabOrder = 11
      OnChange = cbxtscodeChange
    end
    object edttlesson: TEdit
      Left = 89
      Top = 102
      Width = 92
      Height = 21
      TabOrder = 12
      Text = 'edttlesson'
    end
    object edttcdepartment: TEdit
      Left = 553
      Top = 104
      Width = 113
      Height = 21
      TabOrder = 13
      Text = 'edttcdepartment'
    end
    object cbxtcscode: TComboBox
      Left = 396
      Top = 20
      Width = 67
      Height = 21
      ItemHeight = 13
      TabOrder = 14
      Text = #35831#36873#25321
      OnChange = cbxtcscodeChange
    end
  end
  object TPanel
    Left = 0
    Top = 0
    Width = 825
    Height = 81
    Align = alTop
    BorderStyle = bsSingle
    Color = clMoneyGreen
    TabOrder = 2
    object Label13: TLabel
      Left = 22
      Top = 14
      Width = 74
      Height = 13
      AutoSize = False
      Caption = #25945#30740#23460#21517#31216#65306
    end
    object Label14: TLabel
      Left = 23
      Top = 44
      Width = 60
      Height = 13
      AutoSize = False
      Caption = #20219#35838#25945#24072#65306
    end
    object Label15: TLabel
      Left = 209
      Top = 12
      Width = 56
      Height = 13
      AutoSize = False
      Caption = #24517'/'#36873'/'#20219#65306
    end
    object Label16: TLabel
      Left = 209
      Top = 43
      Width = 60
      Height = 13
      AutoSize = False
      Caption = #35838#31243#21517#31216#65306
    end
    object Label17: TLabel
      Left = 389
      Top = 12
      Width = 54
      Height = 13
      AutoSize = False
      Caption = #24180'      '#32423#65306
    end
    object Label18: TLabel
      Left = 392
      Top = 44
      Width = 60
      Height = 13
      AutoSize = False
      Caption = #24402#21475#31995#38498#65306
    end
    object edtthname2: TEdit
      Left = 97
      Top = 11
      Width = 85
      Height = 21
      TabOrder = 0
    end
    object edttnamen2: TEdit
      Left = 96
      Top = 40
      Width = 85
      Height = 21
      TabOrder = 1
    end
    object cbxtselect2: TComboBox
      Left = 269
      Top = 8
      Width = 91
      Height = 21
      ItemHeight = 13
      TabOrder = 2
      Text = #35831#36873#25321
      Items.Strings = (
        #35831#36873#25321
        #24517
        #36873
        #20219)
    end
    object cbxtlesson2: TComboBox
      Left = 268
      Top = 40
      Width = 92
      Height = 21
      ItemHeight = 13
      ItemIndex = 0
      TabOrder = 3
      Text = #35831#36873#25321
      Items.Strings = (
        #35831#36873#25321)
    end
    object edttgrade2: TEdit
      Left = 441
      Top = 8
      Width = 64
      Height = 21
      TabOrder = 4
    end
    object btnFind: TBitBtn
      Left = 593
      Top = 8
      Width = 64
      Height = 25
      Caption = #26597#35810
      TabOrder = 5
      OnClick = btnFindClick
      Glyph.Data = {
        F6000000424DF600000000000000760000002800000010000000100000000100
        0400000000008000000000000000000000001000000000000000000000000000
        8000008000000080800080000000800080008080000080808000C0C0C0000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888
        8888888888888888888800000888880000080F000888880F00080F000888880F
        0008000000080000000800F000000F00000800F000800F00000800F000800F00
        00088000000000000088880F00080F0008888800000800000888888000888000
        88888880F08880F0888888800088800088888888888888888888}
    end
    object btnReport: TButton
      Left = 702
      Top = 8
      Width = 75
      Height = 25
      Caption = #29992#25143#25253#34920
      TabOrder = 6
      OnClick = btnReportClick
    end
    object Button1: TButton
      Left = 702
      Top = 44
      Width = 75
      Height = 25
      Caption = #23548#20986'Excel'
      TabOrder = 7
      OnClick = Button1Click
    end
    object cbxtdepartment2: TComboBox
      Left = 461
      Top = 41
      Width = 100
      Height = 21
      ItemHeight = 13
      TabOrder = 8
      Items.Strings = (
        #35831#36873#25321)
    end
  end
  object Panel3: TPanel
    Left = 0
    Top = 81
    Width = 825
    Height = 313
    Align = alClient
    BorderStyle = bsSingle
    TabOrder = 3
    object DBGrid1: TDBGrid
      Left = 1
      Top = 1
      Width = 819
      Height = 307
      Align = alClient
      DataSource = DataSource1
      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 = 'tclno'
          Title.Caption = #32534#21495
          Width = 30
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'thname'
          Title.Caption = #25945#30740#23460#21517#31216
          Width = 71
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'tname'
          Title.Caption = #20219#35838#25945#24072
          Width = 54
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'tweekcount'
          Title.Caption = #26102#38388
          Width = 40
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'tadress'
          Title.Caption = #22320#28857
          Width = 33
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'tscode'
          Title.Caption = #35838#31243#20195#30721
          Width = 55
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'tclassno'
          Title.Caption = #25945#23398#29677#21495
          Width = 52
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'tlesson'
          Title.Caption = #35838#31243#21517#31216
          Width = 59
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'tselect'
          Title.Caption = #24517#36873#20219
          Width = 42
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'tcredit'
          Title.Caption = #23398#20998
          Width = 40
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'tstarttoend'
          Title.Caption = #36215#27490#21608
          Width = 53
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'tcname'
          Title.Caption = #20248#36873#31867#21035
          Width = 72
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'tcdepartment'
          Title.Caption = #24402#21475#31995#38498
          Width = 69
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'tgrade'
          Title.Caption = #24180#32423
          Width = 55
          Visible = True
        end>
    end
  end
  object ADOQuery1: TADOQuery
    Connection = DM.ADOConnection1
    AfterScroll = ADOQuery1AfterScroll
    Parameters = <>
    SQL.Strings = (
      'select tcl.tclno,tcl.thname,tcl.tcscode,tcl.tscode,'
      'tt.tno,tt.tname,tcl.tweekcount,tcl.tclassno,'
      
        'tl.tlesson,tcl.tselect,tcl.tgrade,tcl.tadress,tcl.tcredit,tcl.ts' +
        'tarttoend,tcl.tcname,tt.tcdepartment'
      
        'from TLesson tl inner join TCoursel tcl on tl.tscode = tcl.tscod' +
        'e'
      'inner join TTeacher tt on tt.tno = tcl.tcscode')
    Left = 136
    Top = 161
  end
  object DataSource1: TDataSource
    DataSet = ADOQuery1
    Left = 216
    Top = 137
  end
  object ADOQuery2: TADOQuery
    Connection = DM.ADOConnection1
    Parameters = <>
    SQL.Strings = (
      'SELECT DName From TDataParam WHERE DtypeId=003')
    Left = 256
    Top = 185
  end
  object ADOQuery3: TADOQuery
    Connection = DM.ADOConnection1
    Parameters = <>
    SQL.Strings = (
      'select * from TLesson')
    Left = 312
    Top = 145
  end
end