unit5.dfm

用Delphi写的学生信息管理系统的源代码

object cjlr: Tcjlr
  Left = 246
  Top = 55
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsSingle
  Caption = #25104#32489#24405#20837
  ClientHeight = 437
  ClientWidth = 640
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnActivate = FormActivate
  PixelsPerInch = 96
  TextHeight = 13
  object GroupBox1: TGroupBox
    Left = 0
    Top = 0
    Width = 640
    Height = 418
    Align = alClient
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clTeal
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 0
    object Label1: TLabel
      Left = 8
      Top = 72
      Width = 36
      Height = 13
      Caption = #23398#21495#65306
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Label2: TLabel
      Left = 400
      Top = 16
      Width = 188
      Height = 20
      Caption = #20197#19979#27599#39033#20869#23481#37117#35201#22635#20889#65306
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlue
      Font.Height = -16
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Label7: TLabel
      Left = 216
      Top = 73
      Width = 60
      Height = 13
      Caption = #25152#22312#29677#32423#65306
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Label8: TLabel
      Left = 424
      Top = 66
      Width = 60
      Height = 13
      Caption = #35838#31243#21517#31216#65306
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Label10: TLabel
      Left = 9
      Top = 118
      Width = 36
      Height = 13
      Caption = #23398#26399#65306
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Label11: TLabel
      Left = 432
      Top = 112
      Width = 36
      Height = 13
      Caption = #25104#32489#65306
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Label3: TLabel
      Left = 224
      Top = 120
      Width = 60
      Height = 13
      Caption = #25480#35838#25945#24072#65306
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Edit1: TEdit
      Left = 56
      Top = 67
      Width = 153
      Height = 21
      ImeName = #29579#30721#20116#31508#22411#36755#20837#27861'86'#29256
      MaxLength = 15
      TabOrder = 0
      OnKeyPress = Edit1KeyPress
    end
    object Panel1: TPanel
      Left = 240
      Top = 32
      Width = 2
      Height = 345
      BevelOuter = bvLowered
      TabOrder = 1
    end
    object Button1: TButton
      Left = 8
      Top = 8
      Width = 75
      Height = 25
      Caption = #24405#20837
      TabOrder = 2
      OnClick = Button1Click
    end
    object Button2: TButton
      Left = 88
      Top = 8
      Width = 75
      Height = 25
      Caption = #37325#32622
      TabOrder = 3
      OnClick = Button2Click
    end
    object Button3: TButton
      Left = 168
      Top = 8
      Width = 75
      Height = 25
      Caption = #21047#26032
      TabOrder = 4
      OnClick = Button3Click
    end
    object DBLookupComboBox1: TDBLookupComboBox
      Left = 288
      Top = 64
      Width = 137
      Height = 21
      ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
      KeyField = #29677#32423#21495
      ListField = #25152#22312#24180#32423
      ListSource = dsclass
      TabOrder = 5
    end
    object DBLookupComboBox2: TDBLookupComboBox
      Left = 488
      Top = 64
      Width = 121
      Height = 21
      ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
      KeyField = 'courseID'
      ListField = 'courseName'
      ListSource = DataSource2
      TabOrder = 6
    end
    object DBLookupComboBox3: TDBLookupComboBox
      Left = 288
      Top = 112
      Width = 145
      Height = 21
      ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
      KeyField = #25945#24072#21495
      ListField = #22995#21517
      ListSource = dscourse
      TabOrder = 7
    end
    object Edit3: TEdit
      Left = 472
      Top = 112
      Width = 145
      Height = 21
      ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
      MaxLength = 15
      TabOrder = 8
    end
    object Button4: TButton
      Left = 248
      Top = 8
      Width = 75
      Height = 25
      Caption = #36820#22238
      TabOrder = 9
      OnClick = Button4Click
    end
    object DBGrid1: TDBGrid
      Left = 8
      Top = 160
      Width = 625
      Height = 257
      DataSource = DataSource1
      ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
      Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
      TabOrder = 10
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clTeal
      TitleFont.Height = -11
      TitleFont.Name = 'MS Sans Serif'
      TitleFont.Style = []
    end
  end
  object StatusBar1: TStatusBar
    Left = 0
    Top = 418
    Width = 640
    Height = 19
    Panels = <
      item
        Width = 50
      end
      item
        Width = 50
      end>
    SimplePanel = False
  end
  object ComboBox1: TComboBox
    Left = 56
    Top = 112
    Width = 145
    Height = 21
    ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
    ItemHeight = 13
    TabOrder = 2
    Items.Strings = (
      #31532#19968#23398#26399
      #31532#20108#23398#26399
      #31532#19977#23398#26399
      #31532#22235#23398#26399
      #31532#20116#23398#26399
      #31532#20845#23398#26399
      #31532#19971#23398#26399
      #31532#20843#23398#26399)
  end
  object queryTeacher: TADOQuery
    Connection = Form1.ADOConnection1
    Parameters = <>
    Left = 352
    Top = 112
  end
  object dscourse: TDataSource
    DataSet = queryTeacher
    Left = 304
    Top = 112
  end
  object dsclass: TDataSource
    DataSet = queryClass
    Left = 312
    Top = 56
  end
  object ADOQuery1: TADOQuery
    Connection = Form1.ADOConnection1
    Parameters = <>
    Left = 312
    Top = 216
  end
  object DataSource1: TDataSource
    DataSet = ADOQuery1
    Left = 248
    Top = 232
  end
  object querycourse: TADOQuery
    Connection = Form1.ADOConnection1
    DataSource = dscourse
    Parameters = <>
    Left = 504
    Top = 56
  end
  object DataSource2: TDataSource
    DataSet = querycourse
    Left = 568
    Top = 56
  end
  object queryClass: TADOQuery
    Connection = Form1.ADOConnection1
    Parameters = <>
    Left = 368
    Top = 56
  end
end