项目九 “学生学籍管理系统”的制作,学习目标 基本数据的生成 浏览数据 查询数据 添加数据 删除数据,制作一个能够“浏览数据”、“查询数据”、“添加数据”、“删除数据”、“保存数据”的“学生学籍管理系统”界面如图,本章任务,VB具有强大的数据处理功能，它支持多种数据库的访问，可以处理多种数据库中的数据。 在VB中建立一个ACCESS数据库，步骤如下： 第1步：新建一个ACCESS数据库 1建立封面后，选择“外接程序” “可视化数据管理器”，,知识1 学生学籍基本数据的生成,弹出VisData窗口,2在该窗口选择“文件/新建/Microsoft Access/Version 7.0MDB”，打开“选择要创建的Microsoft Access数据库”对话框,3选择合适的路径，文件名为“xsxj.mdb”，单击“保存”,第2步：新建表 在数据库窗口中单击鼠标右键，选择快捷菜单中的“新建表”命令,表名称输入xsxj，单击“添加字段”按钮，打开“添加字段”对话框，依次输入各字段的名称、类型和大小,所有字段输入完毕,单击“表结构”对话框中的“添加索引”按钮，打开“添加索引到xsxj”对话框，在“名称”文本框中输入索引名称xh，选择“学号”字段为“可用字段”，指定按学号字段建立索引。,第3步：输入数据 用鼠标右键单击数据库窗口中的xsxj表，选择快捷菜单中的“打开”命令，打开添加数据窗口。,单击“添加”按钮，将第一条记录输入完毕，单击“更新”按钮,重复以上步骤，将所有记录输入完毕。单击“关闭”按钮。 关闭可视化数据库管理器窗口。,知识2 “浏览数据”窗体的制作 第1步：制作“浏览数据”窗体 1选择菜单“工程/添加窗体”命令，添加Form2窗体。使用标签、文本框、命令按钮等控件制作界面。,2添加Data控件，名称为Data1。,第2步：设置“浏览数据”窗体中各个控件的属性值 第3步：为“浏览数据”窗体上的各个按钮编程 “第一个”按钮的单击事件编程 Private Sub Command1_Click() Data1.Recordset.MoveFirst Command3.Enabled = False Command2.Enabled = True End Sub “下一个”按钮的单击事件编程 Private Sub Command2_Click() Command3.Enabled = True Data1.Recordset.MoveNext If Data1.Recordset.EOF Then Data1.Recordset.MovePrevious Command2.Enabled = False End If End Sub,“上一个”按钮的单击事件编程 Private Sub Command3_Click() Command2.Enabled = True Data1.Recordset.MovePrevious If Data1.Recordset.BOF Then Data1.Recordset.MoveFirst Command3.Enabled = False End If End Sub “末一个”按钮的单击事件编程 Private Sub Command4_Click() Data1.Recordset.MoveLast Command3.Enabled = True Command2.Enabled = False End Sub,“退出”按钮的单击事件编程 Private Sub Command5_Click() Unload Form2 Form1.Show End Sub,第4步：将“学生学籍管理系统”的封面窗口与“浏览数据”窗口连接。 1. 将“学生学籍管理系统”的封面窗口设为当前窗口 2. 双击“浏览数据”按钮，弹出代码窗口，为按钮的单击事件编程。 Private Sub Command1_Click() Form2.Show End Sub,1选择菜单“工程/添加窗体”命令，添加Form3窗体。使用标签、文本框、命令按钮等控件制作界面。,知识3 “查询数据”窗口的制作,2添加Data控件，名称为Data1。,第2步：设置“查询数据”窗体中各个控件的属性值 第3步：为“查询数据”窗体中的各个按钮编程 “查询”按钮的单击事件编程 Private Sub Command1_Click() Dim num As String num = InputBox(“请输入学号(4位)“, “学号搜索“) Data1.Refresh Do While Not Data1.Recordset.EOF n = Data1.Recordset.Fields(“学号“) If n = num Then Exit Do Else Data1.Recordset.MoveNext End If Loop If Data1.Recordset.EOF Then Data1.Recordset.MoveFirst MsgBox (“查无此人“) End If End Sub,2“退出”按钮的单击事件编程 Private Sub Command2_Click() Unload Form3 Form1.Show End Sub,第4步：将“学生学籍管理系统”的封面窗口与“查询数据”窗口连接。 “学生学籍管理系统”的封面窗口设为当前窗口 双击“查询数据”按钮，弹出代码窗口，为按钮的单击事件编程。 Private Sub Command2_Click() Form3.Show End Sub,第1步：制作“添加数据”窗口 1选择菜单“工程/添加窗体”命令，添加Form4窗体。使用标签、文本框、命令按钮等控件制作界面。,知识4 “添加数据”窗口的制作,2添加Data控件，名称为Data1。,第2步：设置“添加数据”窗体中各个控件的属性值 第3步：为“添加数据”窗体中的各个按钮编程 “添加”按钮的单击事件编程 Private Sub Command1_Click() Data1.Refresh Data1.Recordset.AddNew Text1.SetFocus End Sub 2“保存”按钮的单击事件编程 Private Sub Command2_Click() Data1.UpdateRecord Data1.Refresh Data1.Recordset.MoveLast End Sub,3“退出”按钮的单击事件编程 Private Sub Command3_Click() Unload Form4 Form1.Show End Sub,第4步：将“学生学籍管理系统”的封面窗口与“添加数据”窗口连接。 学生学籍管理系统”的封面窗口设为当前窗口 双击“添加数据”按钮，调出代码窗口，为按钮的单击事件编程。 Private Sub Command3_Click() Form4.Show End Sub,第1步：制作“删除数据”窗口 1选择菜单“工程/添加窗体”命令，添加Form5窗体。使用标签、文本框、命令按钮等控件制作界面。,知识5 “删除数据”窗口的制作,添加Data控件，名称为Data1。,第2步：设置“删除数据”窗体中各个控件的属性值 第3步：为“删除数据”窗体中的各个按钮编程 “删除”按钮的单击事件编程 Private Sub Command1_Click() Data1.Recordset.MoveFirst num = InputBox(“请输入要删除的学生学号“) Do While Not Data1.Recordset.EOF n = Data1.Recordset.Fields(“学号“) If num = n Then s = MsgBox(“确定要删除吗?“, vbQuestion + vbOKCancel, “确定删除“) If s = 1 Then Data1.Recordset.Delete Data1.Recordset.MoveNext If Data1.Recordset.RecordCount 0 Then If Data1.Recordset.EOF Then Data1.Recordset.MoveLast End If End If End If Exit Do Else Data1.Recordset.MoveNext End If Loop If Data1.Recordset.EOF Then Data1.Recordset.MoveFirst MsgBox (“查无此人“) End If End Sub,2“退出”按钮的单击事件编程 Private Sub Command2_Click() Unload Form5 Form1.Show End Sub 第4步：将“学生学籍管理系统”的封面窗口与“删除数据”窗口连接。 “学生学籍管理系统”的封面窗口设为当前窗口 双击“删除数据”按钮，弹出代码窗口，为按钮的单击事件编程。 Private Sub Command4_Click() Form5.Show End Sub,本章小结,本章以“学生学籍管理系统”的制作，介绍了在VB中进行数据管理的方法。要求学会在VB中运用Access数据库组织数据，掌握Data控件的使用，制作简单的数据处理窗口，并利用数据处理窗口实现数据的浏览、查询、编辑、添加、删除。,