teacherfindformunit.dfm

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

object TeacherFindForm: TTeacherFindForm
  Left = 219
  Top = 157
  Width = 696
  Height = 480
  Caption = #25945#24072#20449#24687#26597#35810
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnClose = FormClose
  OnCreate = FormCreate
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Panel1: TPanel
    Left = 0
    Top = 368
    Width = 688
    Height = 85
    Align = alBottom
    BorderStyle = bsSingle
    Color = clMoneyGreen
    TabOrder = 0
    object Label1: TLabel
      Left = 31
      Top = 20
      Width = 60
      Height = 13
      AutoSize = False
      Caption = #25945#24072#32534#21495#65306
    end
    object Label3: TLabel
      Left = 283
      Top = 50
      Width = 60
      Height = 13
      AutoSize = False
      Caption = #26159#21542#22806#32856#65306
    end
    object Label4: TLabel
      Left = 287
      Top = 19
      Width = 60
      Height = 13
      AutoSize = False
      Caption = #32844'        '#31216#65306
    end
    object Label2: TLabel
      Left = 30
      Top = 51
      Width = 64
      Height = 13
      AutoSize = False
      Caption = #25945#24072#22995#21517#65306
    end
    object btnFind: TBitBtn
      Left = 533
      Top = 13
      Width = 65
      Height = 25
      Caption = #26597#35810
      TabOrder = 0
      OnClick = btnFindClick
      Glyph.Data = {
        F6000000424DF600000000000000760000002800000010000000100000000100
        0400000000008000000000000000000000001000000000000000000000000000
        8000008000000080800080000000800080008080000080808000C0C0C0000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888
        8888888888888888888800000888880000080F000888880F00080F000888880F
        0008000000080000000800F000000F00000800F000800F00000800F000800F00
        00088000000000000088880F00080F0008888800000800000888888000888000
        88888880F08880F0888888800088800088888888888888888888}
    end
    object BitBtn7: TBitBtn
      Left = 533
      Top = 45
      Width = 65
      Height = 25
      Caption = #36864#20986
      TabOrder = 1
      OnClick = BitBtn7Click
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000130B0000130B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        3333333333FFFFF3333333333999993333333333F77777FFF333333999999999
        33333337777FF377FF3333993370739993333377FF373F377FF3399993000339
        993337777F777F3377F3393999707333993337F77737333337FF993399933333
        399377F3777FF333377F993339903333399377F33737FF33377F993333707333
        399377F333377FF3377F993333101933399377F333777FFF377F993333000993
        399377FF3377737FF7733993330009993933373FF3777377F7F3399933000399
        99333773FF777F777733339993707339933333773FF7FFF77333333999999999
        3333333777333777333333333999993333333333377777333333}
      NumGlyphs = 2
    end
    object edttno: TEdit
      Left = 96
      Top = 16
      Width = 121
      Height = 21
      TabOrder = 2
    end
    object cbxbool2: TComboBox
      Left = 350
      Top = 47
      Width = 99
      Height = 21
      ItemHeight = 13
      ItemIndex = 0
      TabOrder = 3
      Text = #35831#36873#25321
      Items.Strings = (
        #35831#36873#25321
        #26159
        #21542)
    end
    object cbxpost2: TComboBox
      Left = 350
      Top = 15
      Width = 99
      Height = 21
      ItemHeight = 13
      TabOrder = 4
      Text = #35831#36873#25321
    end
    object edttname2: TEdit
      Left = 96
      Top = 47
      Width = 121
      Height = 21
      TabOrder = 5
    end
  end
  object Panel2: TPanel
    Left = 0
    Top = 0
    Width = 688
    Height = 368
    Align = alClient
    BorderStyle = bsSingle
    TabOrder = 1
    object DBGrid1: TDBGrid
      Left = 1
      Top = 1
      Width = 682
      Height = 362
      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 = 'tno'
          Title.Caption = #25945#24072#32534#21495
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'tname'
          Title.Caption = #25945#24072#21517#31216
          Width = 57
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'tpost'
          Title.Caption = #32844#31216
          Width = 68
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'tsex'
          Title.Caption = #24615#21035
          Width = 38
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'tage'
          Title.Caption = #24180#40836
          Width = 45
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'tbool'
          Title.Caption = #26159#21542#22806#32856
          Width = 61
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'ttel'
          Title.Caption = #32852#31995#30005#35805
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'tadress'
          Title.Caption = #32852#31995#22320#22336
          Width = 81
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'tmemo'
          Title.Caption = #22791#27880
          Width = 317
          Visible = True
        end>
    end
  end
  object ADOQuery1: TADOQuery
    Connection = DM.ADOConnection1
    AfterScroll = ADOQuery1AfterScroll
    Parameters = <>
    SQL.Strings = (
      'select * from TTeacher')
    Left = 200
    Top = 128
  end
  object DataSource1: TDataSource
    DataSet = ADOQuery1
    Left = 120
    Top = 128
  end
end