mailform.vb

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

            TestRS.Fields("出生日期").Value = a
            '设置“出生日期”字段的值

            a = Me.Edit原单位.Text
            TestRS.Fields("原单位").Value = a
            '设置“原单位”字段的值

            a = Me.Edit国别.Text
            TestRS.Fields("国别(或港澳台)").Value = a
            '设置“国别(或港澳台)”字段的值

            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
            TestRS.Fields("大学毕校").Value = a
            '设置“大学毕校”字段的值

            a = Me.Edit大学毕校号.Text
            TestRS.Fields("大学毕校号").Value = a
            '设置“大学毕校号”字段的值

            a = Me.Edit姓名.Text
            TestRS.Fields("姓名").Value = a
            '设置“姓名”字段的值

            a = Me.Edit委定单位.Text
            TestRS.Fields("委定单位").Value = a
            '设置“委定单位”字段的值

            a = Me.Edit学号.Text
            TestRS.Fields("学生信息.学号").Value = a
            '设置“学号”字段的值

            a = Me.Edit导师姓名.Text
            TestRS.Fields("导师姓名").Value = a
            '设置“导师姓名”字段的值

            a = Me.Edit导师证号.Text
            If Not a = "" Then
                TestRS.Fields("导师证号").Value = a
            End If
            '设置“导师证号”字段的值

            a = Me.CmbBox入学方式.Text
            TestRS.Fields("入学方式").Value = a
            '设置“入学方式”字段的值

            a = Me.CmbBox博硕.Text
            TestRS.Fields("博士/硕士").Value = a
            '设置“博士/硕士”字段的值

            a = Me.CmbBox原学历.Text
            TestRS.Fields("原学历").Value = a
            '设置“原学历”字段的值

            a = Me.CmbBox委定类别.Text
            TestRS.Fields("委定类别").Value = a
            '设置“委定类别”字段的值

            a = Me.CmbBox录取类别.Text
            TestRS.Fields("录取类别").Value = a
            '设置“录取类别”字段的值

            a = Me.CmbBox性别.Text
            TestRS.Fields("性别").Value = a
            '设置“性别”字段的值

            a = Me.CmbBox民族.Text
            TestRS.Fields("民族").Value = a
            '设置“民族”字段的值

            a = Me.CmbBox考生生源.Text
            TestRS.Fields("考生生源").Value = a
            '设置“考生生源”字段的值

            a = Me.CmbBox院.Text
            TestRS.Fields("院(系、所)").Value = a
            '设置“院(系、所)”字段的值
            If TestRS.Updatable Then
                TestRS.Update()
                '更新记录集
            End If
        End If
        TestRS.MoveLast()
        Me.lblNavLocation.Text = (TestRS.AbsolutePosition + 1).ToString + "/" + TestRS.RecordCount.ToString()
        Me.BtnAdd.Enabled = True
        Me.BtnDel.Enabled = True
        Me.BtnEdit.Enabled = True
        Me.BtnLoad.Enabled = True
        Me.BtnQuery.Enabled = True
        '设置按钮有效状态
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        On Error Resume Next
        Me.CmbBox入学方式.Items.Add("博士生统考")
        Me.CmbBox入学方式.Items.Add("博士生推荐免试")
        Me.CmbBox入学方式.Items.Add("硕士生统考")
        Me.CmbBox入学方式.Items.Add("硕士生推荐免试")
        Me.CmbBox入学方式.Items.Add("硕士生单独考试")
        Me.CmbBox入学方式.Items.Add("其他")

        Me.CmbBox博硕.Items.Add("博士")
        Me.CmbBox博硕.Items.Add("硕士")

        Me.CmbBox原学历.Items.Add("高中")
        Me.CmbBox原学历.Items.Add("本科")
        Me.CmbBox原学历.Items.Add("硕士")
        Me.CmbBox原学历.Items.Add("博士")
        Me.CmbBox原学历.Items.Add("其他")

        Me.CmbBox委定类别.Items.Add("普通高等学校")
        Me.CmbBox委定类别.Items.Add("科研机构")
        Me.CmbBox委定类别.Items.Add("企业")
        Me.CmbBox委定类别.Items.Add("经营公司")
        Me.CmbBox委定类别.Items.Add("地方机关")
        Me.CmbBox委定类别.Items.Add("中央机关")
        Me.CmbBox委定类别.Items.Add("军队系统")
        Me.CmbBox委定类别.Items.Add("其他")

        Me.CmbBox录取类别.Items.Add("国家计划内非定向")
        Me.CmbBox录取类别.Items.Add("国家计划内定向")
        Me.CmbBox录取类别.Items.Add("国家计划外委托")
        Me.CmbBox录取类别.Items.Add("国家计划外自筹")
        Me.CmbBox录取类别.Items.Add("国家计划外自筹定向")
        Me.CmbBox录取类别.Items.Add("其他")

        Me.CmbBox性别.Items.Add("男")
        Me.CmbBox性别.Items.Add("女")

        Me.CmbBox民族.Items.Add("汉")
        Me.CmbBox民族.Items.Add("蒙")
        Me.CmbBox民族.Items.Add("回")
        Me.CmbBox民族.Items.Add("苗")
        Me.CmbBox民族.Items.Add("壮")
        Me.CmbBox民族.Items.Add("满")

        Me.CmbBox考生生源.Items.Add("黑龙江省")
        Me.CmbBox考生生源.Items.Add("吉林省")
        Me.CmbBox考生生源.Items.Add("辽宁省")
        Me.CmbBox考生生源.Items.Add("四川省")
        Me.CmbBox考生生源.Items.Add("江苏省")
        Me.CmbBox考生生源.Items.Add("浙江省")
        Me.CmbBox考生生源.Items.Add("安徽省")
        Me.CmbBox考生生源.Items.Add("山东省")

        Me.CmbBox院.Items.Add("精密仪器与机械学系")
        Me.CmbBox院.Items.Add("力学系")
        Me.CmbBox院.Items.Add("机械工程系")
        Me.CmbBox院.Items.Add("热能工程系")
        Me.CmbBox院.Items.Add("汽车工程系")
        Me.CmbBox院.Items.Add("电子系")
        Me.CmbBox院.Items.Add("计算机系")
        Me.CmbBox院.Items.Add("化学工程系")
        Me.CmbBox院.Items.Add("经济管理学院")
        Me.CmbBox院.Items.Add("新闻传播学院")
        Me.CmbBox院.Items.Add("人文社科学院")
        Me.CmbBox院.Items.Add("外语系")

        Me.CmbBox入学方式.Items.Add("博士生统考")
        Me.CmbBox入学方式.Items.Add("博士生推荐免试")
        Me.CmbBox入学方式.Items.Add("硕士生统考")
        Me.CmbBox入学方式.Items.Add("硕士生推荐免试")
        Me.CmbBox入学方式.Items.Add("硕士生单独考试")
        Me.CmbBox入学方式.Items.Add("其他")

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

    Private Sub BtnEdit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnEdit.Click
        On Error Resume Next
        If Not TestRS.Updatable Then
            MessageBox.Show("对不起，不允许修改记录！", "出错啦")
            Exit Sub
        End If

        TestRS.Edit()
        '进入编辑状态
        EditFlag = "edit"
        Me.BtnAdd.Enabled = False
        Me.BtnDel.Enabled = False
        Me.BtnEdit.Enabled = False
        Me.BtnLoad.Enabled = False
        Me.BtnQuery.Enabled = False
        '设置按钮有效状态
    End Sub

    Private Sub BtnExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnExit.Click
        On Error Resume Next
        TestRS.Close()
        TestRS = Nothing
        TestDB.Close()
        TestDB = Nothing
        TestWS.Close()
        TestWS = Nothing
        '释放变量

        End
        '退出程序
    End Sub

    Private Sub BtnQuery_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnQuery.Click
        On Error Resume Next
        Dim dlg As QueryForm
        Dim i As Integer
        dlg = New QueryForm()
        For i = 0 To TestRS.Fields.Count - 1
            dlg.CmbBox查询依据.Items.Add(TestRS.Fields(i).Name)
            dlg.CmbBox排序依据.Items.Add(TestRS.Fields(i).Name)
        Next

        If dlg.ShowDialog = DialogResult.OK Then
            ShowData()
        End If
        TestRS.MoveLast()
        TestRS.MoveFirst()
        Me.lblNavLocation.Text = (TestRS.AbsolutePosition + 1).ToString + "/" + TestRS.RecordCount.ToString()
    End Sub

    Private Sub BtnDel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnDel.Click
        On Error Resume Next
        If Not TestRS.Updatable Then
            MessageBox.Show("对不起，不允许删除记录！", "出错啦")
            Exit Sub
        End If

        TestRS.Delete()
    End Sub

    Private Sub btnNavPrev_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnNavPrev.Click
        On Error Resume Next
        If TestRS.RecordCount < 1 Then Exit Sub
        If Not TestRS.BOF Then
            TestRS.MovePrevious()
        Else
            TestRS.MoveFirst()
        End If
        If TestRS.BOF Then
            TestRS.MoveFirst()
        End If
        Me.lblNavLocation.Text = (TestRS.AbsolutePosition + 1).ToString + "/" + TestRS.RecordCount.ToString()
        ShowData()
    End Sub

    Private Sub btnNavFirst_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnNavFirst.Click
        On Error Resume Next
        If TestRS.RecordCount < 1 Then Exit Sub
        TestRS.MoveFirst()
        Me.lblNavLocation.Text = (TestRS.AbsolutePosition + 1).ToString + "/" + TestRS.RecordCount.ToString()
        ShowData()
    End Sub

    Private Sub btnNavNext_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnNavNext.Click
        On Error Resume Next
        If TestRS.RecordCount < 1 Then Exit Sub
        If Not TestRS.EOF Then
            TestRS.MoveNext()
        Else
            TestRS.MoveLast()
        End If
        If TestRS.EOF Then
            TestRS.MoveLast()
        End If
        Me.lblNavLocation.Text = (TestRS.AbsolutePosition + 1).ToString + "/" + TestRS.RecordCount.ToString()
        ShowData()
    End Sub

    Private Sub btnLast_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnLast.Click
        On Error Resume Next
        If TestRS.RecordCount < 1 Then Exit Sub
        TestRS.MoveLast()
        Me.lblNavLocation.Text = (TestRS.AbsolutePosition + 1).ToString + "/" + TestRS.RecordCount.ToString()
        ShowData()
    End Sub


End Class