form5.frm

学籍信息管理系统 基本的学生管理功能都实现了

         OLEDBString     =   ""
         OLEDBFile       =   ""
         DataSourceName  =   ""
         OtherAttributes =   ""
         UserName        =   ""
         Password        =   ""
         RecordSource    =   ""
         Caption         =   "班级信息"
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "宋体"
            Size            =   9
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         _Version        =   393216
      End
      Begin MSDataGridLib.DataGrid DataGrid1 
         Height          =   2655
         Left            =   330
         TabIndex        =   35
         Top             =   2010
         Width           =   8205
         _ExtentX        =   14473
         _ExtentY        =   4683
         _Version        =   393216
         AllowUpdate     =   -1  'True
         HeadLines       =   2
         RowHeight       =   15
         BeginProperty HeadFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "宋体"
            Size            =   9
            Charset         =   134
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "宋体"
            Size            =   9
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ColumnCount     =   2
         BeginProperty Column00 
            DataField       =   ""
            Caption         =   ""
            BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
               Type            =   0
               Format          =   ""
               HaveTrueFalseNull=   0
               FirstDayOfWeek  =   0
               FirstWeekOfYear =   0
               LCID            =   2052
               SubFormatType   =   0
            EndProperty
         EndProperty
         BeginProperty Column01 
            DataField       =   ""
            Caption         =   ""
            BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
               Type            =   0
               Format          =   ""
               HaveTrueFalseNull=   0
               FirstDayOfWeek  =   0
               FirstWeekOfYear =   0
               LCID            =   2052
               SubFormatType   =   0
            EndProperty
         EndProperty
         SplitCount      =   1
         BeginProperty Split0 
            BeginProperty Column00 
            EndProperty
            BeginProperty Column01 
            EndProperty
         EndProperty
      End
      Begin VB.Frame Frame4 
         Caption         =   "选择班级"
         Height          =   975
         Left            =   -74640
         TabIndex        =   31
         Top             =   630
         Width           =   8145
         Begin VB.CommandButton cmdrfind 
            Caption         =   "查询"
            Height          =   330
            Left            =   3660
            TabIndex        =   44
            Top             =   315
            Width           =   1095
         End
         Begin VB.CommandButton cmdrnew 
            Caption         =   "刷新"
            Height          =   345
            Left            =   6375
            TabIndex        =   43
            Top             =   285
            Width           =   1095
         End
         Begin MSDataListLib.DataCombo DataCombo2 
            Height          =   330
            Left            =   1515
            TabIndex        =   42
            Top             =   315
            Width           =   1800
            _ExtentX        =   3175
            _ExtentY        =   582
            _Version        =   393216
            Text            =   ""
         End
         Begin VB.CommandButton cmddel 
            Caption         =   "注销"
            Height          =   345
            Left            =   4995
            TabIndex        =   33
            Top             =   300
            Width           =   1125
         End
         Begin VB.Label Label12 
            Caption         =   "班级名称"
            Height          =   255
            Left            =   450
            TabIndex        =   32
            Top             =   390
            Width           =   855
         End
      End
      Begin VB.Frame Frame3 
         Caption         =   "班级信息"
         Height          =   1425
         Left            =   -74730
         TabIndex        =   20
         Top             =   1440
         Width           =   8385
         Begin VB.TextBox Text5 
            Height          =   345
            Left            =   1200
            TabIndex        =   40
            Top             =   810
            Width           =   1665
         End
         Begin VB.CommandButton cmdrall 
            Caption         =   "刷新"
            Height          =   345
            Left            =   6870
            TabIndex        =   39
            Top             =   780
            Width           =   915
         End
         Begin VB.CommandButton cmdchange 
            Caption         =   "修 改"
            Height          =   345
            Left            =   5745
            TabIndex        =   30
            Top             =   780
            Width           =   1020
         End
         Begin VB.TextBox Text8 
            Height          =   345
            Left            =   6210
            TabIndex        =   29
            Top             =   300
            Width           =   1695
         End
         Begin VB.TextBox Text7 
            Height          =   345
            Left            =   3960
            TabIndex        =   28
            Top             =   780
            Width           =   1575
         End
         Begin VB.TextBox Text6 
            Height          =   315
            Left            =   3960
            TabIndex        =   27
            Top             =   300
            Width           =   1545
         End
         Begin VB.TextBox Text4 
            Height          =   315
            Left            =   1200
            TabIndex        =   26
            Top             =   300
            Width           =   1635
         End
         Begin VB.Label Label11 
            Caption         =   "人数"
            Height          =   285
            Left            =   5670
            TabIndex        =   25
            Top             =   330
            Width           =   495
         End
         Begin VB.Label Label10 
            Caption         =   "教    室"
            Height          =   315
            Left            =   3090
            TabIndex        =   24
            Top             =   840
            Width           =   1065
         End
         Begin VB.Label Label9 
            Caption         =   "所属院系"
            Height          =   315
            Left            =   3120
            TabIndex        =   23
            Top             =   330
            Width           =   1065
         End
         Begin VB.Label Label8 
            Caption         =   "辅 导 员"
            Height          =   225
            Left            =   330
            TabIndex        =   22
            Top             =   870
            Width           =   825
         End
         Begin VB.Label Label7 
            Caption         =   "班级名称"
            Height          =   315
            Left            =   300
            TabIndex        =   21
            Top             =   360
            Width           =   855
         End
      End
      Begin VB.Frame Frame2 
         Caption         =   "查询条件"
         Height          =   855
         Left            =   -74730
         TabIndex        =   14
         Top             =   510
         Width           =   8415
         Begin MSDataListLib.DataCombo DataCombo1 
            Height          =   330
            Left            =   1425
            TabIndex        =   41
            Top             =   405
            Width           =   1575
            _ExtentX        =   2778
            _ExtentY        =   582
            _Version        =   393216
            Text            =   ""
         End
         Begin VB.CommandButton cmdall 
            Caption         =   "全部"
            Height          =   345
            Left            =   7140
            TabIndex        =   19
            Top             =   360
            Width           =   1005
         End
         Begin VB.CommandButton cmdfind 
            Caption         =   "查询"
            Height          =   345
            Left            =   5970
            TabIndex        =   18
            Top             =   360
            Width           =   975
         End
         Begin VB.ComboBox Combo4 
            Height          =   300
            ItemData        =   "Form5.frx":0054
            Left            =   4260
            List            =   "Form5.frx":0076
            TabIndex        =   17
            Top             =   390
            Width           =   1335
         End
         Begin VB.OptionButton Option2 
            Caption         =   "辅导员："
            Height          =   285
            Left            =   3270
            TabIndex        =   16
            Top             =   420
            Width           =   1125
         End
         Begin VB.OptionButton Option1 
            Caption         =   "班级名称："
            Height          =   255
            Left            =   210
            TabIndex        =   15
            Top             =   450
            Value           =   -1  'True
            Width           =   1365
         End
      End
      Begin VB.Frame Frame1 
         Caption         =   "班级信息"
         Height          =   1395
         Left            =   330
         TabIndex        =   2
         Top             =   510
         Width           =   8235
         Begin VB.CommandButton cmdsave 
            Caption         =   "保存"
            Height          =   330
            Left            =   6540
            TabIndex        =   38
            Top             =   750
            Width           =   945
         End
         Begin VB.CommandButton cmdadd 
            Caption         =   "添  加"
            Height          =   345
            Left            =   5400
            TabIndex        =   13
            Top             =   735
            Width           =   975
         End