tcoursestatisticsunit.dfm

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

      Height = 21
      TabOrder = 4
      Text = 'edttremuneration'
    end
    object edttrtax: TEdit
      Left = 486
      Top = 14
      Width = 91
      Height = 21
      TabOrder = 5
      Text = 'edttrtax'
    end
    object edttrwages: TEdit
      Left = 665
      Top = 54
      Width = 82
      Height = 21
      TabOrder = 6
      Text = 'edttrwages'
    end
    object edttrtaxrate: TEdit
      Left = 486
      Top = 54
      Width = 91
      Height = 21
      TabOrder = 7
      Text = 'edttrtaxrate'
    end
    object edttrstandard: TEdit
      Left = 665
      Top = 13
      Width = 83
      Height = 21
      TabOrder = 8
      Text = 'edttrstandard'
    end
    object edttrsignature: TEdit
      Left = 406
      Top = 96
      Width = 113
      Height = 21
      TabOrder = 9
      Text = 'edttrsignature'
    end
    object edttraward: TEdit
      Left = 238
      Top = 96
      Width = 91
      Height = 21
      TabOrder = 10
      Text = 'edttraward'
    end
    object edttclessoncount: TEdit
      Left = 73
      Top = 96
      Width = 88
      Height = 21
      TabOrder = 11
      Text = 'edttclessoncount'
    end
  end
  object Panel4: TPanel
    Left = 0
    Top = 49
    Width = 781
    Height = 292
    Align = alClient
    BorderStyle = bsSingle
    TabOrder = 2
    object DBGrid1: TDBGrid
      Left = 1
      Top = 1
      Width = 775
      Height = 286
      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 = 'trno'
          Title.Caption = #24207#21495
          Width = 36
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'tcdepartment'
          Title.Caption = #38498#31995
          Width = 67
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'tname'
          Title.Caption = #25480#35838#25945#24072
          Width = 65
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'tpost'
          Title.Caption = #32844#31216
          Width = 80
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'trlessonscount'
          Title.Caption = #24635#35838#26102
          Width = 53
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'trstandard'
          Title.Caption = #26631#20934
          Width = 38
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'traward'
          Title.Caption = #31995#34917#21457
          Width = 49
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'tremuneration'
          Title.Caption = #24212#21457#35838#37228
          Width = 61
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'trtaxrate'
          Title.Caption = #31246#29575
          Width = 37
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'trtax'
          Title.Caption = #20195#25187#31246#39069
          Width = 76
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'trwages'
          Title.Caption = #23454#21457#37329#39069
          Width = 97
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'trsignature'
          Title.Caption = #31614#21517
          Width = 97
          Visible = True
        end>
    end
  end
  object Panel3: TPanel
    Left = 0
    Top = 0
    Width = 781
    Height = 49
    Align = alTop
    BorderStyle = bsSingle
    Color = clMoneyGreen
    TabOrder = 3
    object Label18: TLabel
      Left = 20
      Top = 15
      Width = 65
      Height = 13
      AutoSize = False
      Caption = #26159#21542#22806#32856#65306
    end
    object Label20: TLabel
      Left = 195
      Top = 16
      Width = 60
      Height = 13
      AutoSize = False
      Caption = #25945#24072#21517#31216#65306
    end
    object Label22: TLabel
      Left = 388
      Top = 16
      Width = 41
      Height = 13
      AutoSize = False
      Caption = #32844' '#31216#65306
    end
    object btnFind: TBitBtn
      Left = 569
      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 = 653
      Top = 11
      Width = 69
      Height = 25
      Caption = #29992#25143#25253#34920
      TabOrder = 1
      OnClick = btnReportClick
    end
    object Button1: TButton
      Left = 741
      Top = 11
      Width = 69
      Height = 25
      Caption = #23548#20986'Excel'
      TabOrder = 2
      OnClick = Button1Click
    end
    object ComboBox1: TComboBox
      Left = 84
      Top = 12
      Width = 85
      Height = 21
      ItemHeight = 13
      TabOrder = 3
      Text = #35831#36873#25321
      Items.Strings = (
        #35831#36873#25321
        #26159
        #21542)
    end
    object edtyear: TEdit
      Left = 263
      Top = 12
      Width = 98
      Height = 21
      TabOrder = 4
    end
    object ComboBox3: TComboBox
      Left = 434
      Top = 12
      Width = 95
      Height = 21
      ItemHeight = 13
      TabOrder = 5
      Text = #35831#36873#25321
      Items.Strings = (
        #35831#36873#25321)
    end
  end
  object ADOQuery1: TADOQuery
    Connection = DM.ADOConnection1
    AfterScroll = ADOQuery1AfterScroll
    Parameters = <>
    SQL.Strings = (
      
        'select  distinct tt.tno,tt.tname,tt.tpost,tt.tcdepartment,tcr.tr' +
        'no,tcr.tcscode ,'
      
        'tcr.trstandard,tcr.traward,tcr.tremuneration,tcr.trtaxrate,tcr.t' +
        'rtax,'
      'tcr.trwages,tcr.trsignature,tt.tbool,tcr.trlessonscount'
      
        'from  TCourseReward2 tcr inner join tteacher tt on tt.tno=tcr.tc' +
        'scode')
    Left = 296
    Top = 225
  end
  object DataSource1: TDataSource
    DataSet = ADOQuery1
    Left = 152
    Top = 169
  end
  object ADOQuery2: TADOQuery
    Connection = DM.ADOConnection1
    Parameters = <>
    SQL.Strings = (
      'select * from TCourseReward2')
    Left = 400
    Top = 161
  end
end