u_sims.dfm

学籍管理系统这是我自己做的希望大家提供意见 密码在readme 内

object F_smis: TF_smis
  Left = 190
  Top = 101
  BorderIcons = [biSystemMenu]
  BorderStyle = bsSingle
  Caption = #23398#31821#31649#29702#31995#32479
  ClientHeight = 578
  ClientWidth = 793
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Label43: TLabel
    Left = 632
    Top = 368
    Width = 38
    Height = 13
    Caption = 'Label43'
  end
  object Tpagecontrol1: TPageControl
    Left = 0
    Top = 0
    Width = 793
    Height = 578
    ActivePage = TabSheet1
    Align = alClient
    TabOrder = 0
    object TabSheet1: TTabSheet
      Caption = #26032#29983#20449#24687#36755#20837
      object DBNavigator1: TDBNavigator
        Left = 0
        Top = 525
        Width = 785
        Height = 25
        DataSource = DS_stud
        Align = alBottom
        TabOrder = 0
      end
      object DBGrid1: TDBGrid
        Left = 0
        Top = 0
        Width = 785
        Height = 525
        Align = alClient
        DataSource = DS_stud
        ImeName = #20013#25991' ('#31616#20307') - '#25340#38899#21152#21152
        TabOrder = 1
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = []
        Columns = <
          item
            Expanded = False
            FieldName = 'ID'
            Title.Alignment = taCenter
            Title.Caption = #23398#21495
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'DEPARTMENT'
            PickList.Strings = (
              '1'
              '2'
              '3'
              '4')
            Title.Alignment = taCenter
            Title.Caption = #38498#31995
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'CLASS'
            PickList.Strings = (
              '11'
              '12'
              '21'
              '22'
              '31'
              '41'
              '42')
            Title.Alignment = taCenter
            Title.Caption = #29677#32423
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'NAME'
            Title.Alignment = taCenter
            Title.Caption = #22995#21517
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'SEX'
            PickList.Strings = (
              'M'
              'F')
            Title.Alignment = taCenter
            Title.Caption = #24615#21035
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'BIRTHDAY'
            Title.Alignment = taCenter
            Title.Caption = #29983#26085
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'NATIVE_PLACE'
            Title.Alignment = taCenter
            Title.Caption = #31821#36143
            Visible = True
          end>
      end
      object Panel1: TPanel
        Left = 582
        Top = 2
        Width = 181
        Height = 385
        BevelInner = bvLowered
        BevelOuter = bvLowered
        Caption = 'Panel1'
        Color = clCream
        TabOrder = 2
        object GroupBox11: TGroupBox
          Left = 16
          Top = 8
          Width = 153
          Height = 65
          Caption = #24615#21035#20195#30721
          TabOrder = 0
          object Label35: TLabel
            Left = 16
            Top = 24
            Width = 113
            Height = 13
            AutoSize = False
            Caption = 'M           '#30007#65288'Male'#65289
          end
          object Label37: TLabel
            Left = 16
            Top = 40
            Width = 113
            Height = 13
            AutoSize = False
            Caption = 'F            '#22899#65288'Female'#65289
          end
        end
        object GroupBox12: TGroupBox
          Left = 16
          Top = 80
          Width = 153
          Height = 137
          Caption = #38498#31995#20195#30721
          TabOrder = 1
          object Label36: TLabel
            Left = 16
            Top = 32
            Width = 107
            Height = 13
            AutoSize = False
            Caption = '1      '#35745#31639#26426#31995
          end
          object Label38: TLabel
            Left = 16
            Top = 56
            Width = 107
            Height = 13
            AutoSize = False
            Caption = '2       '#22823#27668#31185#23398#31995
          end
          object Label39: TLabel
            Left = 16
            Top = 80
            Width = 107
            Height = 13
            AutoSize = False
            Caption = '3      '#30005#23376#29289#29702#31995
          end
          object Label40: TLabel
            Left = 16
            Top = 104
            Width = 107
            Height = 13
            AutoSize = False
            Caption = '4       '#34892#25919#31649#29702#31995
          end
        end
        object GroupBox13: TGroupBox
          Left = 16
          Top = 225
          Width = 153
          Height = 150
          Caption = #29677#32423#20195#30721
          TabOrder = 2
          object Label34: TLabel
            Left = 16
            Top = 24
            Width = 116
            Height = 13
            AutoSize = False
            Caption = '11     '#35745#31639#26426#31995#19968#29677
          end
          object Label41: TLabel
            Left = 16
            Top = 56
            Width = 116
            Height = 13
            AutoSize = False
            Caption = '22     '#22823#27668#31185#23398#31995#20108#29677
          end
          object Label42: TLabel
            Left = 16
            Top = 88
            Width = 116
            Height = 13
            AutoSize = False
            Caption = '33     '#30005#23376#29289#29702#31995#19977#29677
          end
          object Label44: TLabel
            Left = 24
            Top = 120
            Width = 116
            Height = 13
            AutoSize = False
            Caption = #19968#27425#31867#25512'......'
          end
        end
      end
    end
    object TabSheet2: TTabSheet
      Caption = #23398#31821#21464#26356#36755#20837
      ImageIndex = 1
      OnShow = TabSheet2Show
      object Label1: TLabel
        Left = 24
        Top = 312
        Width = 60
        Height = 13
        AutoSize = False
        Caption = #20855#20307#25551#36848#65306
      end
      object Label2: TLabel
        Left = 112
        Top = 92
        Width = 60
        Height = 13
        AutoSize = False
        Caption = #36755#20837#23398#21495#65306
      end
      object RGchange: TRadioGroup
        Left = 16
        Top = 216
        Width = 753
        Height = 81
        Caption = #23398#31821#21464#26356#24773#20917
        Columns = 5
        Items.Strings = (
          #36716#31995
          #20241#23398
          #22797#23398
          #36864#23398
          #27605#19994)
        TabOrder = 0
      end
      object GroupBox1: TGroupBox
        Left = 384
        Top = 14
        Width = 297
        Height = 185
        Caption = #23398#29983#22522#26412#24773#20917
        TabOrder = 1
        object Label3: TLabel
          Left = 27
          Top = 40
          Width = 48
          Height = 13
          Caption = #22995'    '#21517#65306
        end
        object Label4: TLabel
          Left = 27
          Top = 86
          Width = 48
          Height = 13
          Caption = #29677'    '#32423#65306
        end
        object Label5: TLabel
          Left = 29
          Top = 128
          Width = 48
          Height = 13
          Caption = #38498'    '#31995#65306
        end
        object DBText1: TDBText
          Left = 88
          Top = 36
          Width = 148
          Height = 13
          DataField = 'NAME'
          DataSource = DS_stud_info
        end
        object DBText2: TDBText
          Left = 88
          Top = 85
          Width = 148
          Height = 13