addstudinfo.frm

这是一个我帮师妹做的软件的大作业

VERSION 5.00
Begin VB.Form addStudInfo 
   AutoRedraw      =   -1  'True
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "添加学生信息"
   ClientHeight    =   6150
   ClientLeft      =   3000
   ClientTop       =   2190
   ClientWidth     =   9015
   FillStyle       =   0  'Solid
   Icon            =   "addStudInfo.frx":0000
   LinkTopic       =   "Form1"
   LockControls    =   -1  'True
   MaxButton       =   0   'False
   MinButton       =   0   'False
   Moveable        =   0   'False
   ScaleHeight     =   6150
   ScaleWidth      =   9015
   ShowInTaskbar   =   0   'False
   StartUpPosition =   2  '屏幕中心
   Begin VB.Frame Frame1 
      Height          =   5535
      Left            =   120
      TabIndex        =   0
      Top             =   480
      Width           =   8775
      Begin VB.ComboBox Combo6 
         BackColor       =   &H80000018&
         Height          =   300
         ItemData        =   "addStudInfo.frx":08CA
         Left            =   5280
         List            =   "addStudInfo.frx":08E0
         Style           =   2  'Dropdown List
         TabIndex        =   24
         Top             =   840
         Width           =   615
      End
      Begin VB.ComboBox Combo5 
         BackColor       =   &H80000018&
         Height          =   300
         ItemData        =   "addStudInfo.frx":08F6
         Left            =   3600
         List            =   "addStudInfo.frx":0918
         Style           =   2  'Dropdown List
         TabIndex        =   23
         Top             =   840
         Width           =   855
      End
      Begin VB.ComboBox Combo1 
         BackColor       =   &H80000018&
         Height          =   300
         ItemData        =   "addStudInfo.frx":0958
         Left            =   3600
         List            =   "addStudInfo.frx":0962
         Style           =   2  'Dropdown List
         TabIndex        =   22
         Top             =   480
         Width           =   615
      End
      Begin VB.ComboBox Combo4 
         BackColor       =   &H80000018&
         Height          =   300
         ItemData        =   "addStudInfo.frx":096E
         Left            =   3480
         List            =   "addStudInfo.frx":09CF
         Style           =   2  'Dropdown List
         TabIndex        =   21
         Top             =   1440
         Width           =   615
      End
      Begin VB.ComboBox Combo3 
         BackColor       =   &H80000018&
         Height          =   300
         ItemData        =   "addStudInfo.frx":0A46
         Left            =   2520
         List            =   "addStudInfo.frx":0A6E
         Style           =   2  'Dropdown List
         TabIndex        =   20
         Top             =   1440
         Width           =   615
      End
      Begin VB.ComboBox Combo2 
         BackColor       =   &H80000018&
         Height          =   300
         ItemData        =   "addStudInfo.frx":0A99
         Left            =   1320
         List            =   "addStudInfo.frx":0B06
         Style           =   2  'Dropdown List
         TabIndex        =   19
         Top             =   1440
         Width           =   735
      End
      Begin VB.TextBox Text1 
         Appearance      =   0  'Flat
         BackColor       =   &H80000018&
         ForeColor       =   &H00000000&
         Height          =   300
         Index           =   8
         Left            =   4440
         MaxLength       =   255
         TabIndex        =   18
         Top             =   3000
         Visible         =   0   'False
         Width           =   4095
      End
      Begin VB.TextBox Text1 
         Appearance      =   0  'Flat
         BackColor       =   &H80000018&
         ForeColor       =   &H00000000&
         Height          =   300
         Index           =   6
         Left            =   1320
         MaxLength       =   20
         ScrollBars      =   2  'Vertical
         TabIndex        =   17
         Top             =   3360
         Width           =   1455
      End
      Begin VB.TextBox Text1 
         Appearance      =   0  'Flat
         BackColor       =   &H80000018&
         ForeColor       =   &H00000000&
         Height          =   300
         Index           =   2
         Left            =   1320
         MaxLength       =   20
         TabIndex        =   16
         Top             =   1920
         Width           =   1455
      End
      Begin VB.CommandButton Command3 
         Caption         =   "添加照片..."
         Height          =   255
         Left            =   6960
         TabIndex        =   15
         Top             =   2160
         Width           =   1215
      End
      Begin VB.CommandButton Command1 
         Caption         =   "确定添加"
         Height          =   270
         Left            =   3120
         TabIndex        =   8
         TabStop         =   0   'False
         Top             =   5160
         Width           =   1095
      End
      Begin VB.CommandButton Command2 
         Caption         =   "取消"
         Height          =   270
         Left            =   4200
         TabIndex        =   7
         TabStop         =   0   'False
         Top             =   5160
         Width           =   1095
      End
      Begin VB.TextBox Text1 
         Appearance      =   0  'Flat
         BackColor       =   &H80000018&
         ForeColor       =   &H00000000&
         Height          =   300
         Index           =   0
         Left            =   1320
         MaxLength       =   9
         TabIndex        =   6
         Top             =   480
         Width           =   1455
      End
      Begin VB.TextBox Text1 
         Appearance      =   0  'Flat
         BackColor       =   &H80000018&
         ForeColor       =   &H00000000&
         Height          =   300
         Index           =   1
         Left            =   1320
         MaxLength       =   30
         TabIndex        =   5
         Top             =   840
         Width           =   1455
      End
      Begin VB.TextBox Text1 
         Appearance      =   0  'Flat
         BackColor       =   &H80000018&
         ForeColor       =   &H00000000&
         Height          =   300
         Index           =   3
         Left            =   3960
         MaxLength       =   20
         TabIndex        =   4
         Top             =   1920
         Width           =   1455
      End
      Begin VB.TextBox Text1 
         Appearance      =   0  'Flat
         BackColor       =   &H80000018&
         ForeColor       =   &H00000000&
         Height          =   300
         Index           =   4
         Left            =   1320
         MaxLength       =   255
         TabIndex        =   3
         Top             =   2400
         Width           =   4215
      End
      Begin VB.TextBox Text1 
         Appearance      =   0  'Flat
         BackColor       =   &H80000018&
         ForeColor       =   &H00000000&
         Height          =   300
         Index           =   5
         Left            =   1320
         MaxLength       =   8
         TabIndex        =   2
         Top             =   2880
         Width           =   1455
      End
      Begin VB.TextBox Text1 
         Appearance      =   0  'Flat
         BackColor       =   &H80000018&
         ForeColor       =   &H00000000&
         Height          =   1140
         Index           =   7
         Left            =   1320
         MaxLength       =   255
         MultiLine       =   -1  'True
         ScrollBars      =   2  'Vertical
         TabIndex        =   1
         Top             =   3720
         Width           =   4215
      End
      Begin VB.Image Image1 
         BorderStyle     =   1  'Fixed Single
         Height          =   1095
         Left            =   6960
         Stretch         =   -1  'True
         Top             =   720
         Width           =   1095
      End
      Begin VB.Label Label5 
         Caption         =   "出生日期："
         Height          =   255
         Left            =   240
         TabIndex        =   31
         Top             =   1470
         Width           =   975
      End
      Begin VB.Label Label1