mailform.vb

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

        Me.BtnLoad.Text = "加载"
        '
        'BtnAdd
        '
        Me.BtnAdd.Location = New System.Drawing.Point(80, 368)
        Me.BtnAdd.Name = "BtnAdd"
        Me.BtnAdd.Size = New System.Drawing.Size(64, 24)
        Me.BtnAdd.TabIndex = 4
        Me.BtnAdd.Text = "添加记录"
        '
        'BtnEdit
        '
        Me.BtnEdit.Location = New System.Drawing.Point(152, 368)
        Me.BtnEdit.Name = "BtnEdit"
        Me.BtnEdit.Size = New System.Drawing.Size(64, 24)
        Me.BtnEdit.TabIndex = 5
        Me.BtnEdit.Text = "修改记录"
        '
        'BtnDel
        '
        Me.BtnDel.Location = New System.Drawing.Point(224, 368)
        Me.BtnDel.Name = "BtnDel"
        Me.BtnDel.Size = New System.Drawing.Size(64, 24)
        Me.BtnDel.TabIndex = 6
        Me.BtnDel.Text = "删除记录"
        '
        'BtnUpdate
        '
        Me.BtnUpdate.Location = New System.Drawing.Point(296, 368)
        Me.BtnUpdate.Name = "BtnUpdate"
        Me.BtnUpdate.Size = New System.Drawing.Size(64, 24)
        Me.BtnUpdate.TabIndex = 7
        Me.BtnUpdate.Text = "更新"
        '
        'BtnQuery
        '
        Me.BtnQuery.Location = New System.Drawing.Point(368, 368)
        Me.BtnQuery.Name = "BtnQuery"
        Me.BtnQuery.Size = New System.Drawing.Size(64, 24)
        Me.BtnQuery.TabIndex = 8
        Me.BtnQuery.Text = "查询"
        '
        'BtnExit
        '
        Me.BtnExit.Location = New System.Drawing.Point(440, 368)
        Me.BtnExit.Name = "BtnExit"
        Me.BtnExit.Size = New System.Drawing.Size(64, 24)
        Me.BtnExit.TabIndex = 9
        Me.BtnExit.Text = "退出"
        '
        'btnNavFirst
        '
        Me.btnNavFirst.Location = New System.Drawing.Point(102, 336)
        Me.btnNavFirst.Name = "btnNavFirst"
        Me.btnNavFirst.Size = New System.Drawing.Size(40, 23)
        Me.btnNavFirst.TabIndex = 31
        Me.btnNavFirst.Text = "<<"
        '
        'btnNavPrev
        '
        Me.btnNavPrev.Location = New System.Drawing.Point(144, 336)
        Me.btnNavPrev.Name = "btnNavPrev"
        Me.btnNavPrev.Size = New System.Drawing.Size(40, 23)
        Me.btnNavPrev.TabIndex = 32
        Me.btnNavPrev.Text = "<"
        '
        'lblNavLocation
        '
        Me.lblNavLocation.BackColor = System.Drawing.Color.White
        Me.lblNavLocation.Location = New System.Drawing.Point(176, 336)
        Me.lblNavLocation.Name = "lblNavLocation"
        Me.lblNavLocation.Size = New System.Drawing.Size(95, 23)
        Me.lblNavLocation.TabIndex = 33
        Me.lblNavLocation.Text = "无记录"
        Me.lblNavLocation.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
        '
        'btnNavNext
        '
        Me.btnNavNext.Location = New System.Drawing.Point(269, 336)
        Me.btnNavNext.Name = "btnNavNext"
        Me.btnNavNext.Size = New System.Drawing.Size(40, 23)
        Me.btnNavNext.TabIndex = 34
        Me.btnNavNext.Text = ">"
        '
        'btnLast
        '
        Me.btnLast.Location = New System.Drawing.Point(310, 336)
        Me.btnLast.Name = "btnLast"
        Me.btnLast.Size = New System.Drawing.Size(40, 23)
        Me.btnLast.TabIndex = 35
        Me.btnLast.Text = ">>"
        '
        'Form1
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)
        Me.ClientSize = New System.Drawing.Size(512, 405)
        Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.btnNavFirst, Me.btnNavPrev, Me.lblNavLocation, Me.btnNavNext, Me.btnLast, Me.BtnExit, Me.BtnQuery, Me.BtnUpdate, Me.BtnDel, Me.BtnEdit, Me.BtnAdd, Me.BtnLoad, Me.GroupBox3, Me.GroupBox2, Me.GroupBox1})
        Me.Name = "Form1"
        Me.Text = "主窗体"
        Me.GroupBox1.ResumeLayout(False)
        Me.GroupBox2.ResumeLayout(False)
        Me.GroupBox3.ResumeLayout(False)
        Me.ResumeLayout(False)

    End Sub

#End Region
    Private Sub BtnLoad_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnLoad.Click
        On Error Resume Next
        TestWS = Engine.Workspaces(0)
        '申请数据空间
        TestDB = TestWS.OpenDatabase("H:\学生名册.mdb")
        '打开数据库
        TestRS = TestDB.OpenRecordset("SELECT * FROM 学生信息 INNER JOIN 原学历 ON 学生信息.学号 =原学历.学号 Order by 学生信息.学号")
        '打开记录集
        ShowData()
        '显示数据
        TestRS.MoveLast()
        TestRS.MoveFirst()
        Me.lblNavLocation.Text = (TestRS.AbsolutePosition + 1).ToString + "/" + TestRS.RecordCount.ToString()

        Me.BtnAdd.Enabled = True
        Me.BtnDel.Enabled = True
        Me.BtnEdit.Enabled = True
        Me.BtnUpdate.Enabled = True
        Me.BtnQuery.Enabled = True
        '设置按钮有效状态
    End Sub

    Public Sub ShowData()
        On Error Resume Next
        Me.Edit一级学科.Text = TestRS.Fields("一级学科").Value.ToString
        '在Edit一级学科文本框中显示“一级学科”字段的值

        Me.Edit二级学科.Text = TestRS.Fields("二级学科").Value.ToString
        '在“Edit二级学科”文本框中显示“二级学科”字段的值

        Me.Edit入学年月.Text = TestRS.Fields("入学年月").Value.ToString
        '在“Edit入学年月”文本框中显示“入学年月”字段的值

        Me.Edit出生日期.Text = TestRS.Fields("出生日期").Value.ToString
        '在“Edit出生日期”文本框中显示“出生日期”字段的值


        Me.Edit原单位.Text = TestRS.Fields("原单位").Value.ToString
        '在“Edit原单位”文本框中显示“原单位”字段的值

        Me.Edit国别.Text = TestRS.Fields("国别(或港澳台)").Value.ToString
        '在“Edit国别”文本框中显示“国别(或港澳台)”字段的值

        Me.Edit大学专业.Text = TestRS.Fields("大学专业").Value.ToString
        '在“Edit大学专业”文本框中显示“大学专业”字段的值

        Me.Edit大学专业号.Text = TestRS.Fields("大学专业号").Value.ToString
        '在“Edit大学专业号”文本框中显示“大学专业号”字段的值

        Me.Edit大学毕年月.Text = TestRS.Fields("大学毕年月").Value.ToString
        '在“Edit大学毕年月”文本框中显示“大学毕年月”字段的值

        Me.Edit大学毕校.Text = TestRS.Fields("大学毕校").Value.ToString
        '在“Edit大学毕校”文本框中显示“大学毕校”字段的值

        Me.Edit大学毕校号.Text = TestRS.Fields("大学毕校号").Value.ToString
        '在“Edit大学毕校号”文本框中显示“大学毕校号”字段的值

        Me.Edit姓名.Text = TestRS.Fields("姓名").Value.ToString
        '在“EditEdit姓名”文本框中显示“姓名”字段的值

        Me.Edit委定单位.Text = TestRS.Fields("委定单位").Value.ToString
        '在“Edit委定单位”文本框中显示“委定单位”字段的值

        Me.Edit学号.Text = TestRS.Fields("学生信息.学号").Value.ToString
        '在“Edit学号”中显示“学号”字段的值


        Me.Edit导师姓名.Text = TestRS.Fields("导师姓名").Value.ToString
        '在“Edit导师姓名”文本框中显示“导师姓名”字段的值

        Me.Edit导师证号.Text = TestRS.Fields("导师证号").Value.ToString
        '在“Edit导师证号”文本框中显示“导师证号”字段的值

        Me.CmbBox入学方式.Text = TestRS.Fields("入学方式").Value.ToString
        '在“CmbBox入学方式”组合框中显示“入学方式”字段的值

        Me.CmbBox博硕.Text = TestRS.Fields("博士/硕士").Value.ToString
        '在“CmbBox博硕”组合框中显示“博士/硕士”字段的值

        Me.CmbBox原学历.Text = TestRS.Fields("原学历").Value.ToString
        '在“CmbBox原学历”组合框中显示“原学历”字段的值

        Me.CmbBox委定类别.Text = TestRS.Fields("委定类别").Value.ToString
        '在“CmbBox委定类别”组合框中显示“委定类别”字段的值

        Me.CmbBox录取类别.Text = TestRS.Fields("录取类别").Value.ToString
        '在“CmbBox录取类别”组合框中显示“录取类别”字段的值

        Me.CmbBox性别.Text = TestRS.Fields("性别").Value.ToString
        '在“CmbBox性别”组合框中显示“性别”字段的值

        Me.CmbBox民族.Text = TestRS.Fields("民族").Value.ToString
        '在“CmbBox民族”组合框中显示“民族”字段的值

        Me.CmbBox考生生源.Text = TestRS.Fields("考生生源").Value.ToString
        '在“CmbBox考生来源”组合框中显示“考生生源”字段的值

        Me.CmbBox院.Text = TestRS.Fields("院(系、所)").Value.ToString
        '在“CmbBox院”组合框中显示“"院(系、所)”字段的值
    End Sub

    Private Sub BtnAdd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnAdd.Click
        On Error Resume Next
        If Not TestRS.Updatable Then
            MessageBox.Show("对不起，不能够添加记录", "出错啦")
            Exit Sub
        End If

        TestRS.AddNew()
        '添加新记录
        EditFlag = "add"

        Me.BtnAdd.Enabled = False
        Me.BtnDel.Enabled = False
        Me.BtnEdit.Enabled = False
        Me.BtnLoad.Enabled = False
        Me.BtnQuery.Enabled = False
        '设置按钮有效状态

        Me.Edit一级学科.Text = ""
        Me.Edit二级学科.Text = ""
        Me.Edit入学年月.Text = ""
        Me.Edit出生日期.Text = ""
        Me.Edit原单位.Text = ""
        Me.Edit国别.Text = ""
        Me.Edit大学专业.Text = ""
        Me.Edit大学专业号.Text = ""
        Me.Edit大学毕年月.Text = ""
        Me.Edit大学毕校.Text = ""
        Me.Edit大学毕校号.Text = ""
        Me.Edit姓名.Text = ""
        Me.Edit委定单位.Text = ""
        Me.Edit学号.Text = ""
        Me.Edit导师姓名.Text = ""
        Me.Edit导师证号.Text = ""

        Me.CmbBox入学方式.Text = ""
        Me.CmbBox博硕.Text = ""
        Me.CmbBox原学历.Text = ""
        Me.CmbBox委定类别.Text = ""
        Me.CmbBox录取类别.Text = ""
        Me.CmbBox性别.Text = ""
        Me.CmbBox民族.Text = ""
        Me.CmbBox考生生源.Text = ""
        Me.CmbBox院.Text = ""
    End Sub

    Private Sub BtnUpdate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnUpdate.Click
        On Error Resume Next
        Dim flag As Boolean
        flag = True
        If Me.Edit学号.Text = "" Then flag = False
        If Me.Edit姓名.Text = "" Then flag = False
        If Me.CmbBox博硕.Text = "" Then flag = False
        If Me.CmbBox博硕.Text = "" Then flag = False
        If Me.Edit出生日期.Text = "" Then flag = False
        If Me.CmbBox性别.Text = "" Then flag = False
        If Me.Edit国别.Text = "" Then flag = False
        If Not flag Then
            MessageBox.Show("请输入完整的学生信息！", "请重试", MessageBoxButtons.OK, MessageBoxIcon.Warning, MessageBoxDefaultButton.Button1, MessageBoxOptions.DefaultDesktopOnly)
        Else
            If EditFlag = "add" Then
                Dim TempRS As DAO.Recordset
                TempRS = TestRS.Clone
                TempRS.FindFirst("学生信息.学号=" + Me.Edit学号.Text)
                If Not TempRS.NoMatch Then
                    MessageBox.Show("学号重复，清重新输入!")
                    Exit Sub
                End If
                TempRS.Close()
                TempRS = Nothing
            End If

            Dim a As Object
            a = Me.Edit一级学科.Text
            TestRS.Fields("一级学科").Value = a
            '设置“一级学科”字段的值

            a = Me.Edit二级学科.Text
            TestRS.Fields("二级学科").Value = a
            '设置“二级学科”字段的值

            a = Me.Edit入学年月.Text
            If a <> "" Then
                TestRS.Fields("入学年月").Value = a
                '设置“入学年月”字段的值
            End If

            a = Me.Edit出生日期.Text