unit1.dfm

学生档案管理系统

      object Button24: TButton
        Left = 160
        Top = 368
        Width = 81
        Height = 25
        Caption = #21024#38500#25152#36873#35838#31243
        TabOrder = 2
        OnClick = Button24Click
      end
    end
    object GroupBox15: TGroupBox
      Left = 593
      Top = 9
      Width = 393
      Height = 129
      TabOrder = 0
      object Label52: TLabel
        Left = 24
        Top = 32
        Width = 64
        Height = 20
        Caption = #23398'    '#21495#65306
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -16
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object Label53: TLabel
        Left = 24
        Top = 80
        Width = 64
        Height = 20
        Caption = #29677'    '#32423#65306
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -16
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object Edit35: TEdit
        Left = 96
        Top = 32
        Width = 145
        Height = 21
        TabOrder = 0
      end
      object Edit36: TEdit
        Left = 96
        Top = 80
        Width = 145
        Height = 21
        TabOrder = 1
      end
      object Button16: TButton
        Left = 286
        Top = 32
        Width = 75
        Height = 25
        Caption = #30830'    '#23450
        TabOrder = 2
        OnClick = Button16Click
      end
      object Button17: TButton
        Left = 286
        Top = 80
        Width = 75
        Height = 25
        Caption = #37325#26032#36755#20837' '
        TabOrder = 3
        OnClick = Button17Click
      end
    end
    object DBNavigator1: TDBNavigator
      Left = 105
      Top = 489
      Width = 301
      Height = 41
      DataSource = DataSource2
      VisibleButtons = [nbFirst, nbPrior, nbNext, nbLast, nbEdit, nbPost, nbCancel]
      ParentShowHint = False
      ShowHint = True
      TabOrder = 2
    end
    object DBGrid6: TDBGrid
      Left = 25
      Top = 33
      Width = 553
      Height = 449
      DataSource = DataSource2
      TabOrder = 3
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -11
      TitleFont.Name = 'MS Sans Serif'
      TitleFont.Style = []
    end
  end
  object workchange: TPanel
    Left = -186
    Top = -6
    Width = 1009
    Height = 561
    Color = clSkyBlue
    TabOrder = 7
    object DBGrid7: TDBGrid
      Left = 32
      Top = 176
      Width = 937
      Height = 305
      DataSource = DataSource5
      TabOrder = 0
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -11
      TitleFont.Name = 'MS Sans Serif'
      TitleFont.Style = []
      OnCellClick = DBGrid7CellClick
    end
    object DBNavigator2: TDBNavigator
      Left = 312
      Top = 488
      Width = 294
      Height = 33
      DataSource = DataSource5
      VisibleButtons = [nbFirst, nbPrior, nbNext, nbLast, nbEdit, nbPost, nbCancel]
      ParentShowHint = False
      ShowHint = True
      TabOrder = 1
    end
    object GroupBox17: TGroupBox
      Left = 32
      Top = 32
      Width = 937
      Height = 121
      Caption = #36755#20837#26597#35810#20449#24687
      TabOrder = 2
      object Label55: TLabel
        Left = 32
        Top = 32
        Width = 64
        Height = 20
        Caption = #23398'    '#21495#65306
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -16
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object Label56: TLabel
        Left = 336
        Top = 32
        Width = 88
        Height = 20
        Caption = #21333#20301#21517#31216#65306'  '
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -16
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object Label57: TLabel
        Left = 648
        Top = 32
        Width = 92
        Height = 20
        Caption = #25152#22312#22478#24066#65306'   '
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -16
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object Edit37: TEdit
        Left = 104
        Top = 32
        Width = 137
        Height = 21
        TabOrder = 0
      end
      object Edit38: TEdit
        Left = 432
        Top = 32
        Width = 137
        Height = 21
        TabOrder = 1
      end
      object Edit39: TEdit
        Left = 744
        Top = 32
        Width = 137
        Height = 21
        TabOrder = 2
      end
      object Button19: TButton
        Left = 502
        Top = 80
        Width = 75
        Height = 25
        Caption = #37325#26032#36755#20837
        TabOrder = 3
        OnClick = Button19Click
      end
      object Button18: TButton
        Left = 326
        Top = 80
        Width = 75
        Height = 25
        Caption = #26597'    '#25214
        TabOrder = 4
        OnClick = Button18Click
      end
    end
  end
  object learnview: TPanel
    Left = -185
    Top = -6
    Width = 1008
    Height = 561
    Color = clSkyBlue
    TabOrder = 2
    object RadioGroup1: TRadioGroup
      Left = 16
      Top = 32
      Width = 353
      Height = 65
      BiDiMode = bdLeftToRight
      Caption = #22823#23398#33521#35821#31561#32423#32771#35797
      Columns = 2
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      Items.Strings = (
        #33521#35821#22235#32423
        #33521#35821#20845#32423)
      ParentBiDiMode = False
      ParentFont = False
      TabOrder = 0
    end
    object GroupBox7: TGroupBox
      Left = 16
      Top = 96
      Width = 353
      Height = 73
      Caption = #22269#23478#35745#31639#26426#31561#32423#32771#35797
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 1
      object CheckBox10: TCheckBox
        Left = 8
        Top = 32
        Width = 97
        Height = 17
        Caption = #35745#31639#26426#20108#32423
        TabOrder = 0
      end
      object CheckBox11: TCheckBox
        Left = 176
        Top = 32
        Width = 97
        Height = 17
        Caption = #35745#31639#26426#19977#32423
        TabOrder = 1
      end
    end
    object GroupBox9: TGroupBox
      Left = 16
      Top = 168
      Width = 353
      Height = 169
      Caption = #36755#20837#23398#29983#20449#24687
      TabOrder = 2
      object Label26: TLabel
        Left = 72
        Top = 32
        Width = 64
        Height = 20
        Caption = #23398'    '#21495#65306
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -16
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object Label28: TLabel
        Left = 72
        Top = 80
        Width = 64
        Height = 20
        Caption = #22995'    '#21517#65306
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -16
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object Label29: TLabel
        Left = 72
        Top = 128
        Width = 64
        Height = 20
        Caption = #29677'    '#32423#65306
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -16
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object Edit11: TEdit
        Left = 144
        Top = 32
        Width = 129
        Height = 21
        TabOrder = 0
      end
      object Edit12: TEdit
        Left = 144
        Top = 80
        Width = 129
        Height = 21
        TabOrder = 1
      end
      object Edit13: TEdit
        Left = 144
        Top = 128
        Width = 129
        Height = 21
        TabOrder = 2
      end
    end
    object GroupBox8: TGroupBox
      Left = 16
      Top = 336
      Width = 353
      Height = 169
      Caption = #26597#35810#22823#23398#25152#20462#35838#31243#26159#21542#36890#36807#65288#21487#36873#25321#22810#39033#65289
      TabOrder = 3
      object Label27: TLabel
        Left = 8
        Top = 24
        Width = 112
        Height = 20
        Caption = #36873#25321#35838#31243#21517#65306'    '
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -16
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object ComboBox1: TComboBox
        Left = 120
        Top = 24
        Width = 225
        Height = 21
        Style = csDropDownList
        ItemHeight = 13
        TabOrder = 0
        OnChange = ComboBox1Change
        Items.Strings = (
          #39640#31561#25968#23398'1'
          #39640#31561#25968#23398'2'
          #22823#23398#33521#35821'1'
          #22823#23398#33521#35821'2')
      end
      object ListBox1: TListBox
        Left = 8
        Top = 56
        Width = 337
        Height = 105
        Style = lbOwnerDrawVariable
        Columns = 2
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ItemHeight = 16
        ParentFont = False
        TabOrder = 1
      end
    end
    object GroupBox10: TGroupBox
      Left = 368
      Top = 32
      Width = 609
      Height = 473
      TabOrder = 4
      object DBGrid2: TDBGrid
        Left = 8
        Top = 16
        Width = 593
        Height = 449
        DataSource = DataSource4
        TabOrder = 0
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = []
      end
    end
    object Button4: TButton
      Left = 72
      Top = 512
      Width = 89
      Height = 33
      Caption = #30830'    '#23450
      Default = True
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 5
      OnClick = Button4Click
    end
    object Button6: TButton
      Left = 216
      Top = 512
      Width = 89
      Height = 33
      Caption = #37325#26032#36755#20837
      Default = True
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 6
      OnClick = Button6Click
    end
  end
  object lessonchange: TPanel
    Left = -186
    Top = -6
    Width = 1009
    Height = 561
    Color = clSkyBlue
    TabOrder = 8
    object DBGrid8: TDBGrid
      Left = 312
      Top = 32
      Width = 673
      Height = 449
      DataSource = DataSource6
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 0
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -16
      TitleFont.Name = 'MS Sans Serif'
      TitleFont.Style = []
      OnCellClick = DBGrid8CellClick
    end
    object DBNavigator3: TDBNavigator
      Left = 472
      Top = 488
      Width = 351
      Height = 41
      DataSource = DataSource6
      VisibleButtons = [nbFirst, nbPrior, nbNext, nbLast, nbInsert, nbDelete, nbEdit, nbPost, nbCancel]
      ParentShowHint = False
      ShowHint = True
      TabOrder = 1
    end
    object GroupBox18: TGroupBox
      Left = 24
      Top = 24
      Width = 281
      Height = 497
      Caption = 'GroupBox18'
      TabOrder = 2
      object Label58: TLabel
        Left = 32
        Top = 32
        Width = 72
        Height = 20
        Caption = #35838#31243#21517#65306'  '
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -16
        Font.Name = 'MS Sans Serif'
        Font.Style = []