unit4.dfm

以前在某高校做外聘教师时做的学生学籍管理系统(delphi+access)。献丑献丑

object Form4: TForm4
  Left = 200
  Top = 95
  Width = 800
  Height = 600
  Caption = #20449#24687#31649#29702
  Color = clMoneyGreen
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  FormStyle = fsMDIChild
  KeyPreview = True
  OldCreateOrder = False
  Position = poDefault
  Visible = True
  WindowState = wsMaximized
  OnClose = FormClose
  OnCreate = FormCreate
  OnKeyUp = FormKeyUp
  PixelsPerInch = 96
  TextHeight = 13
  object GroupBox3: TGroupBox
    Left = 0
    Top = 60
    Width = 792
    Height = 513
    Align = alClient
    Color = 16635349
    ParentColor = False
    TabOrder = 0
    object DBGrid1: TDBGrid
      Left = 2
      Top = 15
      Width = 817
      Height = 496
      Align = alLeft
      Color = clInfoBk
      DataSource = DataSource1
      FixedColor = clInfoBk
      TabOrder = 0
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -11
      TitleFont.Name = 'MS Sans Serif'
      TitleFont.Style = []
    end
    object GroupBox4: TGroupBox
      Left = 587
      Top = 15
      Width = 203
      Height = 496
      Align = alRight
      Caption = #23398#29983#20449#24687
      Color = 16635349
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentColor = False
      ParentFont = False
      TabOrder = 1
      OnMouseMove = GroupBox4MouseMove
      object Label10: TLabel
        Left = 22
        Top = 24
        Width = 41
        Height = 13
        AutoSize = False
        Caption = #23398' '#21495
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
      end
      object Label9: TLabel
        Left = 22
        Top = 56
        Width = 41
        Height = 13
        AutoSize = False
        Caption = #22995' '#21517
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
      end
      object Label22: TLabel
        Left = 54
        Top = 86
        Width = 102
        Height = 12
        Caption = #26597#25214#21516#21517#19979#19968#20010'(&A)'
        Font.Charset = ANSI_CHARSET
        Font.Color = 12615680
        Font.Height = -12
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
        OnClick = Label22Click
      end
      object pagecontrol1: TPageControl
        Left = 6
        Top = 112
        Width = 197
        Height = 539
        ActivePage = TabSheet1
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
        TabOrder = 0
        object TabSheet1: TTabSheet
          Caption = #22522#26412#36164#26009'(&B)'
          Font.Charset = ANSI_CHARSET
          Font.Color = clWindowText
          Font.Height = -12
          Font.Name = #23435#20307
          Font.Style = []
          ParentFont = False
          object Label11: TLabel
            Left = 8
            Top = 14
            Width = 43
            Height = 15
            AutoSize = False
            Caption = #24615'  '#21035
            Font.Charset = ANSI_CHARSET
            Font.Color = clWindowText
            Font.Height = -12
            Font.Name = #23435#20307
            Font.Style = []
            ParentFont = False
          end
          object Label15: TLabel
            Left = 10
            Top = 79
            Width = 41
            Height = 13
            AutoSize = False
            Caption = #31821'  '#36143
            Font.Charset = ANSI_CHARSET
            Font.Color = clWindowText
            Font.Height = -12
            Font.Name = #23435#20307
            Font.Style = []
            ParentFont = False
          end
          object Label16: TLabel
            Left = 7
            Top = 208
            Width = 71
            Height = 13
            AutoSize = False
            Caption = #30005#35805#21495#30721
            Font.Charset = ANSI_CHARSET
            Font.Color = clWindowText
            Font.Height = -12
            Font.Name = #23435#20307
            Font.Style = []
            ParentFont = False
          end
          object Label12: TLabel
            Left = 8
            Top = 176
            Width = 55
            Height = 13
            AutoSize = False
            Caption = #25919#27835#38754#35980
            Font.Charset = ANSI_CHARSET
            Font.Color = clWindowText
            Font.Height = -12
            Font.Name = #23435#20307
            Font.Style = []
            ParentFont = False
          end
          object Label1: TLabel
            Left = 0
            Top = 48
            Width = 60
            Height = 12
            Caption = #20986#29983#24180#26376#26085
            Font.Charset = ANSI_CHARSET
            Font.Color = clWindowText
            Font.Height = -12
            Font.Name = #23435#20307
            Font.Style = []
            ParentFont = False
          end
          object Label2: TLabel
            Left = 7
            Top = 143
            Width = 48
            Height = 12
            Caption = #36523#20221#35777#21495
            Font.Charset = ANSI_CHARSET
            Font.Color = clWindowText
            Font.Height = -12
            Font.Name = #23435#20307
            Font.Style = []
            ParentFont = False
          end
          object Label3: TLabel
            Left = 10
            Top = 110
            Width = 36
            Height = 12
            Caption = #27665'  '#26063
            Font.Charset = ANSI_CHARSET
            Font.Color = clWindowText
            Font.Height = -12
            Font.Name = #23435#20307
            Font.Style = []
            ParentFont = False
          end
          object Label4: TLabel
            Left = 7
            Top = 276
            Width = 48
            Height = 12
            Caption = #23478#24237#22320#22336
            Font.Charset = ANSI_CHARSET
            Font.Color = clWindowText
            Font.Height = -12
            Font.Name = #23435#20307
            Font.Style = []
            ParentFont = False
          end
          object Label5: TLabel
            Left = 7
            Top = 243
            Width = 48
            Height = 12
            Caption = #23478#24237#37038#32534
            Font.Charset = ANSI_CHARSET
            Font.Color = clWindowText
            Font.Height = -12
            Font.Name = #23435#20307
            Font.Style = []
            ParentFont = False
          end
          object DBComboBox2: TDBComboBox
            Left = 80
            Top = 10
            Width = 78
            Height = 20
            Color = clInfoBk
            DataField = #24615#21035
            DataSource = DataSource1
            Font.Charset = ANSI_CHARSET
            Font.Color = clWindowText
            Font.Height = -12
            Font.Name = #23435#20307
            Font.Style = []
            ItemHeight = 12
            Items.Strings = (
              #30007
              #22899)
            ParentFont = False
            TabOrder = 0
          end
          object DBEdit6: TDBEdit
            Left = 80
            Top = 75
            Width = 100
            Height = 20
            Color = clInfoBk
            DataField = #31821#36143
            DataSource = DataSource1
            Font.Charset = ANSI_CHARSET
            Font.Color = clWindowText
            Font.Height = -12
            Font.Name = #23435#20307
            Font.Style = []
            MaxLength = 20
            ParentFont = False
            TabOrder = 2
          end
          object DBEdit5: TDBEdit
            Left = 80
            Top = 206
            Width = 100
            Height = 20
            Color = clInfoBk
            DataField = #30005#35805#21495#30721
            DataSource = DataSource1
            Font.Charset = ANSI_CHARSET
            Font.Color = clWindowText
            Font.Height = -12
            Font.Name = #23435#20307
            Font.Style = []
            MaxLength = 15
            ParentFont = False
            TabOrder = 6
          end
          object DBComboBox1: TDBComboBox
            Left = 80
            Top = 172
            Width = 100
            Height = 20
            Color = clInfoBk
            DataField = #25919#27835#38754#35980
            DataSource = DataSource1
            Font.Charset = ANSI_CHARSET
            Font.Color = clWindowText
            Font.Height = -12
            Font.Name = #23435#20307
            Font.Style = []
            ItemHeight = 12
            Items.Strings = (
              #22242#21592
              #20826#21592
              #26080)
            ParentFont = False
            TabOrder = 5
          end
          object DBEdit7: TDBEdit
            Left = 80
            Top = 43
            Width = 100
            Height = 20
            Color = clInfoBk
            DataField = #20986#29983#24180#26376#26085
            DataSource = DataSource1
            Font.Charset = ANSI_CHARSET
            Font.Color = clWindowText
            Font.Height = -12
            Font.Name = #23435#20307
            Font.Style = []
            MaxLength = 10
            ParentFont = False
            TabOrder = 1
          end
          object DBEdit8: TDBEdit
            Left = 80
            Top = 138
            Width = 100
            Height = 20
            Color = clInfoBk
            DataField = #36523#20221#35777#21495#30721
            DataSource = DataSource1
            Font.Charset = ANSI_CHARSET
            Font.Color = clWindowText
            Font.Height = -12
            Font.Name = #23435#20307
            Font.Style = []
            MaxLength = 18
            ParentFont = False
            TabOrder = 4
          end
          object DBEdit9: TDBEdit
            Left = 80
            Top = 106
            Width = 100
            Height = 20
            Color = clInfoBk
            DataField = #27665#26063
            DataSource = DataSource1
            Font.Charset = ANSI_CHARSET
            Font.Color = clWindowText
            Font.Height = -12
            Font.Name = #23435#20307
            Font.Style = []
            MaxLength = 15
            ParentFont = False
            TabOrder = 3
          end
          object DBEdit11: TDBEdit
            Left = 80
            Top = 239
            Width = 100
            Height = 20
            Color = clInfoBk
            DataField = #23478#24237#37038#32534
            DataSource = DataSource1
            Font.Charset = ANSI_CHARSET