mailform.vb

这是一个实用的学生名册管理系统

Public Class Form1
    Inherits System.Windows.Forms.Form

#Region " Windows 窗体设计器生成的代码 "

    Public Sub New()
        MyBase.New()

        '该调用是 Windows 窗体设计器所必需的。
        InitializeComponent()

        '在 InitializeComponent() 调用之后添加任何初始化

    End Sub

    '窗体重写处置以清理组件列表。
    Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
        If disposing Then
            If Not (components Is Nothing) Then
                components.Dispose()
            End If
        End If
        MyBase.Dispose(disposing)
    End Sub

    'Windows 窗体设计器所必需的
    Private components As System.ComponentModel.IContainer

    '注意：以下过程是 Windows 窗体设计器所必需的
    '可以使用 Windows 窗体设计器修改此过程。
    '不要使用代码编辑器修改它。
    Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox
    Friend WithEvents Label1 As System.Windows.Forms.Label
    Friend WithEvents Label2 As System.Windows.Forms.Label
    Friend WithEvents Label3 As System.Windows.Forms.Label
    Friend WithEvents Label4 As System.Windows.Forms.Label
    Friend WithEvents Label5 As System.Windows.Forms.Label
    Friend WithEvents Label6 As System.Windows.Forms.Label
    Friend WithEvents CmbBox原学历 As System.Windows.Forms.ComboBox
    Friend WithEvents Edit大学毕校 As System.Windows.Forms.TextBox
    Friend WithEvents Edit大学毕校号 As System.Windows.Forms.TextBox
    Friend WithEvents Edit大学专业 As System.Windows.Forms.TextBox
    Friend WithEvents Edit大学专业号 As System.Windows.Forms.TextBox
    Friend WithEvents Edit大学毕年月 As System.Windows.Forms.TextBox
    Friend WithEvents GroupBox2 As System.Windows.Forms.GroupBox
    Friend WithEvents Label7 As System.Windows.Forms.Label
    Friend WithEvents Label8 As System.Windows.Forms.Label
    Friend WithEvents Label9 As System.Windows.Forms.Label
    Friend WithEvents Label10 As System.Windows.Forms.Label
    Friend WithEvents Label11 As System.Windows.Forms.Label
    Friend WithEvents Label12 As System.Windows.Forms.Label
    Friend WithEvents Label13 As System.Windows.Forms.Label
    Friend WithEvents GroupBox3 As System.Windows.Forms.GroupBox
    Friend WithEvents Label19 As System.Windows.Forms.Label
    Friend WithEvents Label16 As System.Windows.Forms.Label
    Friend WithEvents Label14 As System.Windows.Forms.Label
    Friend WithEvents Label20 As System.Windows.Forms.Label
    Friend WithEvents Label18 As System.Windows.Forms.Label
    Friend WithEvents Label17 As System.Windows.Forms.Label
    Friend WithEvents Label15 As System.Windows.Forms.Label
    Friend WithEvents Label21 As System.Windows.Forms.Label
    Friend WithEvents Label23 As System.Windows.Forms.Label
    Friend WithEvents Label24 As System.Windows.Forms.Label
    Friend WithEvents Label25 As System.Windows.Forms.Label
    Friend WithEvents Label26 As System.Windows.Forms.Label
    Friend WithEvents Edit学号 As System.Windows.Forms.TextBox
    Friend WithEvents Edit姓名 As System.Windows.Forms.TextBox
    Friend WithEvents Edit出生日期 As System.Windows.Forms.TextBox
    Friend WithEvents Edit国别 As System.Windows.Forms.TextBox
    Friend WithEvents CmbBox博硕 As System.Windows.Forms.ComboBox
    Friend WithEvents CmbBox性别 As System.Windows.Forms.ComboBox
    Friend WithEvents CmbBox民族 As System.Windows.Forms.ComboBox
    Friend WithEvents Edit导师证号 As System.Windows.Forms.TextBox
    Friend WithEvents Edit导师姓名 As System.Windows.Forms.TextBox
    Friend WithEvents Edit二级学科 As System.Windows.Forms.TextBox
    Friend WithEvents Edit一级学科 As System.Windows.Forms.TextBox
    Friend WithEvents CmbBox院 As System.Windows.Forms.ComboBox
    Friend WithEvents CmbBox入学方式 As System.Windows.Forms.ComboBox
    Friend WithEvents CmbBox录取类别 As System.Windows.Forms.ComboBox
    Friend WithEvents Edit入学年月 As System.Windows.Forms.TextBox
    Friend WithEvents Edit原单位 As System.Windows.Forms.TextBox
    Friend WithEvents Edit委定单位 As System.Windows.Forms.TextBox
    Friend WithEvents CmbBox委定类别 As System.Windows.Forms.ComboBox
    Friend WithEvents BtnLoad As System.Windows.Forms.Button
    Friend WithEvents BtnAdd As System.Windows.Forms.Button
    Friend WithEvents BtnEdit As System.Windows.Forms.Button
    Friend WithEvents BtnDel As System.Windows.Forms.Button
    Friend WithEvents BtnUpdate As System.Windows.Forms.Button
    Friend WithEvents BtnQuery As System.Windows.Forms.Button
    Friend WithEvents BtnExit As System.Windows.Forms.Button
    Friend WithEvents CmbBox考生生源 As System.Windows.Forms.ComboBox
    Friend WithEvents btnNavFirst As System.Windows.Forms.Button
    Friend WithEvents btnNavPrev As System.Windows.Forms.Button
    Friend WithEvents lblNavLocation As System.Windows.Forms.Label
    Friend WithEvents btnNavNext As System.Windows.Forms.Button
    Friend WithEvents btnLast As System.Windows.Forms.Button
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
        Me.GroupBox1 = New System.Windows.Forms.GroupBox()
        Me.Edit大学毕年月 = New System.Windows.Forms.TextBox()
        Me.Edit大学专业号 = New System.Windows.Forms.TextBox()
        Me.Edit大学专业 = New System.Windows.Forms.TextBox()
        Me.Edit大学毕校号 = New System.Windows.Forms.TextBox()
        Me.Edit大学毕校 = New System.Windows.Forms.TextBox()
        Me.CmbBox原学历 = New System.Windows.Forms.ComboBox()
        Me.Label6 = New System.Windows.Forms.Label()
        Me.Label5 = New System.Windows.Forms.Label()
        Me.Label4 = New System.Windows.Forms.Label()
        Me.Label3 = New System.Windows.Forms.Label()
        Me.Label2 = New System.Windows.Forms.Label()
        Me.Label1 = New System.Windows.Forms.Label()
        Me.GroupBox2 = New System.Windows.Forms.GroupBox()
        Me.CmbBox民族 = New System.Windows.Forms.ComboBox()
        Me.CmbBox性别 = New System.Windows.Forms.ComboBox()
        Me.CmbBox博硕 = New System.Windows.Forms.ComboBox()
        Me.Edit国别 = New System.Windows.Forms.TextBox()
        Me.Edit出生日期 = New System.Windows.Forms.TextBox()
        Me.Edit姓名 = New System.Windows.Forms.TextBox()
        Me.Edit学号 = New System.Windows.Forms.TextBox()
        Me.Label13 = New System.Windows.Forms.Label()
        Me.Label12 = New System.Windows.Forms.Label()
        Me.Label11 = New System.Windows.Forms.Label()
        Me.Label10 = New System.Windows.Forms.Label()
        Me.Label9 = New System.Windows.Forms.Label()
        Me.Label8 = New System.Windows.Forms.Label()
        Me.Label7 = New System.Windows.Forms.Label()
        Me.GroupBox3 = New System.Windows.Forms.GroupBox()
        Me.CmbBox考生生源 = New System.Windows.Forms.ComboBox()
        Me.CmbBox委定类别 = New System.Windows.Forms.ComboBox()
        Me.Edit委定单位 = New System.Windows.Forms.TextBox()
        Me.Edit原单位 = New System.Windows.Forms.TextBox()
        Me.Edit入学年月 = New System.Windows.Forms.TextBox()
        Me.CmbBox录取类别 = New System.Windows.Forms.ComboBox()
        Me.CmbBox入学方式 = New System.Windows.Forms.ComboBox()
        Me.Edit导师证号 = New System.Windows.Forms.TextBox()
        Me.Edit导师姓名 = New System.Windows.Forms.TextBox()
        Me.Edit二级学科 = New System.Windows.Forms.TextBox()
        Me.Edit一级学科 = New System.Windows.Forms.TextBox()
        Me.CmbBox院 = New System.Windows.Forms.ComboBox()
        Me.Label26 = New System.Windows.Forms.Label()
        Me.Label25 = New System.Windows.Forms.Label()
        Me.Label24 = New System.Windows.Forms.Label()
        Me.Label23 = New System.Windows.Forms.Label()
        Me.Label21 = New System.Windows.Forms.Label()
        Me.Label20 = New System.Windows.Forms.Label()
        Me.Label18 = New System.Windows.Forms.Label()
        Me.Label17 = New System.Windows.Forms.Label()
        Me.Label15 = New System.Windows.Forms.Label()
        Me.Label19 = New System.Windows.Forms.Label()
        Me.Label16 = New System.Windows.Forms.Label()
        Me.Label14 = New System.Windows.Forms.Label()
        Me.BtnLoad = New System.Windows.Forms.Button()
        Me.BtnAdd = New System.Windows.Forms.Button()
        Me.BtnEdit = New System.Windows.Forms.Button()
        Me.BtnDel = New System.Windows.Forms.Button()
        Me.BtnUpdate = New System.Windows.Forms.Button()
        Me.BtnQuery = New System.Windows.Forms.Button()
        Me.BtnExit = New System.Windows.Forms.Button()
        Me.btnNavFirst = New System.Windows.Forms.Button()
        Me.btnNavPrev = New System.Windows.Forms.Button()
        Me.lblNavLocation = New System.Windows.Forms.Label()
        Me.btnNavNext = New System.Windows.Forms.Button()
        Me.btnLast = New System.Windows.Forms.Button()
        Me.GroupBox1.SuspendLayout()
        Me.GroupBox2.SuspendLayout()
        Me.GroupBox3.SuspendLayout()
        Me.SuspendLayout()
        '
        'GroupBox1
        '
        Me.GroupBox1.Controls.AddRange(New System.Windows.Forms.Control() {Me.Edit大学毕年月, Me.Edit大学专业号, Me.Edit大学专业, Me.Edit大学毕校号, Me.Edit大学毕校, Me.CmbBox原学历, Me.Label6, Me.Label5, Me.Label4, Me.Label3, Me.Label2, Me.Label1})
        Me.GroupBox1.Location = New System.Drawing.Point(3, 8)
        Me.GroupBox1.Name = "GroupBox1"
        Me.GroupBox1.Size = New System.Drawing.Size(192, 168)
        Me.GroupBox1.TabIndex = 0
        Me.GroupBox1.TabStop = False
        Me.GroupBox1.Text = "原学历"
        '
        'Edit大学毕年月
        '
        Me.Edit大学毕年月.Location = New System.Drawing.Point(80, 137)
        Me.Edit大学毕年月.Name = "Edit大学毕年月"
        Me.Edit大学毕年月.Size = New System.Drawing.Size(80, 21)
        Me.Edit大学毕年月.TabIndex = 11
        Me.Edit大学毕年月.Text = ""
        '
        'Edit大学专业号
        '
        Me.Edit大学专业号.Location = New System.Drawing.Point(80, 114)
        Me.Edit大学专业号.Name = "Edit大学专业号"
        Me.Edit大学专业号.Size = New System.Drawing.Size(80, 21)
        Me.Edit大学专业号.TabIndex = 10
        Me.Edit大学专业号.Text = ""
        '
        'Edit大学专业
        '
        Me.Edit大学专业.Location = New System.Drawing.Point(80, 89)
        Me.Edit大学专业.Name = "Edit大学专业"
        Me.Edit大学专业.Size = New System.Drawing.Size(80, 21)
        Me.Edit大学专业.TabIndex = 9
        Me.Edit大学专业.Text = ""
        '
        'Edit大学毕校号
        '
        Me.Edit大学毕校号.Location = New System.Drawing.Point(80, 64)
        Me.Edit大学毕校号.Name = "Edit大学毕校号"
        Me.Edit大学毕校号.Size = New System.Drawing.Size(80, 21)
        Me.Edit大学毕校号.TabIndex = 8
        Me.Edit大学毕校号.Text = ""
        '
        'Edit大学毕校
        '
        Me.Edit大学毕校.Location = New System.Drawing.Point(80, 40)
        Me.Edit大学毕校.Name = "Edit大学毕校"
        Me.Edit大学毕校.Size = New System.Drawing.Size(80, 21)
        Me.Edit大学毕校.TabIndex = 7
        Me.Edit大学毕校.Text = ""
        '
        'CmbBox原学历
        '
        Me.CmbBox原学历.Location = New System.Drawing.Point(80, 16)
        Me.CmbBox原学历.Name = "CmbBox原学历"
        Me.CmbBox原学历.Size = New System.Drawing.Size(80, 20)
        Me.CmbBox原学历.TabIndex = 6
        '
        'Label6
        '
        Me.Label6.Location = New System.Drawing.Point(7, 138)
        Me.Label6.Name = "Label6"
        Me.Label6.Size = New System.Drawing.Size(73, 16)
        Me.Label6.TabIndex = 5
        Me.Label6.Text = "大学毕年月"
        '
        'Label5
        '
        Me.Label5.Location = New System.Drawing.Point(8, 114)
        Me.Label5.Name = "Label5"
        Me.Label5.Size = New System.Drawing.Size(72, 16)
        Me.Label5.TabIndex = 4
        Me.Label5.Text = "大学专业号"
        '
        'Label4
        '
        Me.Label4.Location = New System.Drawing.Point(8, 90)
        Me.Label4.Name = "Label4"
        Me.Label4.Size = New System.Drawing.Size(56, 16)
        Me.Label4.TabIndex = 3
        Me.Label4.Text = "大学专业"
        '
        'Label3
        '
        Me.Label3.Location = New System.Drawing.Point(8, 66)
        Me.Label3.Name = "Label3"
        Me.Label3.Size = New System.Drawing.Size(72, 16)
        Me.Label3.TabIndex = 2
        Me.Label3.Text = "大学毕校号"
        '
        'Label2
        '
        Me.Label2.Location = New System.Drawing.Point(8, 43)
        Me.Label2.Name = "Label2"
        Me.Label2.Size = New System.Drawing.Size(64, 16)
        Me.Label2.TabIndex = 1
        Me.Label2.Text = "大学毕校"
        '
        'Label1
        '
        Me.Label1.Location = New System.Drawing.Point(8, 24)
        Me.Label1.Name = "Label1"
        Me.Label1.Size = New System.Drawing.Size(48, 16)
        Me.Label1.TabIndex = 0
        Me.Label1.Text = "原学历"
        '
        'GroupBox2
        '
        Me.GroupBox2.Controls.AddRange(New System.Windows.Forms.Control() {Me.CmbBox民族, Me.CmbBox性别, Me.CmbBox博硕, Me.Edit国别, Me.Edit出生日期, Me.Edit姓名, Me.Edit学号, Me.Label13, Me.Label12, Me.Label11, Me.Label10, Me.Label9, Me.Label8, Me.Label7})
        Me.GroupBox2.Location = New System.Drawing.Point(224, 4)
        Me.GroupBox2.Name = "GroupBox2"
        Me.GroupBox2.Size = New System.Drawing.Size(272, 170)
        Me.GroupBox2.TabIndex = 1
        Me.GroupBox2.TabStop = False
        Me.GroupBox2.Text = "学生信息"
        '
        'CmbBox民族
        '
        Me.CmbBox民族.Location = New System.Drawing.Point(128, 123)
        Me.CmbBox民族.Name = "CmbBox民族"
        Me.CmbBox民族.Size = New System.Drawing.Size(80, 20)
        Me.CmbBox民族.TabIndex = 14
        '
        'CmbBox性别
        '
        Me.CmbBox性别.Location = New System.Drawing.Point(128, 82)
        Me.CmbBox性别.Name = "CmbBox性别"
        Me.CmbBox性别.Size = New System.Drawing.Size(80, 20)
        Me.CmbBox性别.TabIndex = 13
        '
        'CmbBox博硕