《项目九“学生学籍管理系统”的制作.ppt》由会员分享，可在线阅读，更多相关《项目九“学生学籍管理系统”的制作.ppt（31页珍藏版）》请在taowenge.com淘文阁网|工程机械CAD图纸|机械工程制图|CAD装配图下载|SolidWorks_CaTia_CAD_UG_PROE_设计图分享下载上搜索。
1、Visual Basic 6.0Visual Basic 6.0可视化编程与实训可视化编程与实训项目九 “学生学籍管理系统”的制作学习目标学习目标o基本数据的生成o浏览数据o查询数据o添加数据o删除数据Visual Basic 6.0Visual Basic 6.0可视化编程与实训可视化编程与实训 制作一个能够“浏览数据”、“查询数据”、“添加数据”、“删除数据”、“保存数据”的“学生学籍管理系统”界面如图本章任务本章任务本章任务本章任务Visual Basic 6.0Visual Basic 6.0可视化编程与实训可视化编程与实训oVB具有强大的数据处理功能，具有强大的数据处理功能，它支持多
2、种数据库的访问，可以它支持多种数据库的访问，可以处理多种数据库中的数据。处理多种数据库中的数据。o在在VB中建立一个中建立一个ACCESS数据数据库，步骤如下：库，步骤如下：第第1步：新建一个步：新建一个ACCESS数据数据库库 1建立封面后，选择建立封面后，选择“外接程序外接程序”“可视化数据管理器可视化数据管理器”，知识知识1 学生学籍基本数据的生成学生学籍基本数据的生成Visual Basic 6.0Visual Basic 6.0可视化编程与实训可视化编程与实训o弹出VisData窗口 Visual Basic 6.0Visual Basic 6.0可视化编程与实训可视化编程与实训2在
3、该窗口选择“文件/新建/Microsoft Access/Version 7.0MDB”，打开“选择要创建的Microsoft Access数据库”对话框 Visual Basic 6.0Visual Basic 6.0可视化编程与实训可视化编程与实训3选择合适的路径，文件名为“xsxj.mdb”，单击“保存”Visual Basic 6.0Visual Basic 6.0可视化编程与实训可视化编程与实训第2步：新建表o在数据库窗口中单击鼠标右键，选择快捷菜单中的“新建表”命令 Visual Basic 6.0Visual Basic 6.0可视化编程与实训可视化编程与实训o表名称输入xsxj
4、，单击“添加字段”按钮，打开“添加字段”对话框，依次输入各字段的名称、类型和大小 Visual Basic 6.0Visual Basic 6.0可视化编程与实训可视化编程与实训o所有字段输入完毕 Visual Basic 6.0Visual Basic 6.0可视化编程与实训可视化编程与实训o单击“表结构”对话框中的“添加索引”按钮，打开“添加索引到xsxj”对话框，在“名称”文本框中输入索引名称xh，选择“学号”字段为“可用字段”，指定按学号字段建立索引。Visual Basic 6.0Visual Basic 6.0可视化编程与实训可视化编程与实训第3步：输入数据o用鼠标右键单击数据库窗
5、口中的xsxj表，选择快捷菜单中的“打开”命令，打开添加数据窗口。Visual Basic 6.0Visual Basic 6.0可视化编程与实训可视化编程与实训o单击“添加”按钮，将第一条记录输入完毕，单击“更新”按钮 重复以上步骤，将所有记录输入完毕。单击“关闭”按钮。关闭可视化数据库管理器窗口。Visual Basic 6.0Visual Basic 6.0可视化编程与实训可视化编程与实训知识知识2 “浏览数据浏览数据”窗体的制作窗体的制作第第1步：制作步：制作“浏览数据浏览数据”窗体窗体1选择菜单选择菜单“工程工程/添加窗体添加窗体”命令，添加命令，添加Form2窗体。使用标签、窗体。
6、使用标签、文本框、命令按钮等控件制作界面。文本框、命令按钮等控件制作界面。Visual Basic 6.0Visual Basic 6.0可视化编程与实训可视化编程与实训2添加Data控件，名称为Data1。Visual Basic 6.0Visual Basic 6.0可视化编程与实训可视化编程与实训第2步：设置“浏览数据”窗体中各个控件的属性值第3步：为“浏览数据”窗体上的各个按钮编程o“第一个”按钮的单击事件编程 Private Sub Command1_Click()Data1.Recordset.MoveFirst Command3.Enabled=False Command2.En
7、abled=True End Subo“下一个”按钮的单击事件编程 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 Visual Basic 6.0Visual Basic 6.0可视化编程与实训可视化编程与实训o“上一个”按钮的单击事件编程 Private Sub Command3_Click()Comm
8、and2.Enabled=True Data1.Recordset.MovePrevious If Data1.Recordset.BOF Then Data1.Recordset.MoveFirst Command3.Enabled=False End If End Subo“末一个”按钮的单击事件编程 Private Sub Command4_Click()Data1.Recordset.MoveLast Command3.Enabled=True Command2.Enabled=False End Subp“退出”按钮的单击事件编程 Private Sub Command5_Click
9、()Unload Form2 Form1.Show End SubVisual Basic 6.0Visual Basic 6.0可视化编程与实训可视化编程与实训o第4步：将“学生学籍管理系统”的封面窗口与“浏览数据”窗口连接。1.将“学生学籍管理系统”的封面窗口设为当前窗口2.双击“浏览数据”按钮，弹出代码窗口，为按钮的单击事件编程。Private Sub Command1_Click()Form2.Show End SubVisual Basic 6.0Visual Basic 6.0可视化编程与实训可视化编程与实训1选择菜单“工程/添加窗体”命令，添加Form3窗体。使用标签、文本框、命
10、令按钮等控件制作界面。知识知识3 “查询数据查询数据”窗口的制作窗口的制作Visual Basic 6.0Visual Basic 6.0可视化编程与实训可视化编程与实训2添加Data控件，名称为Data1。Visual Basic 6.0Visual Basic 6.0可视化编程与实训可视化编程与实训第2步：设置“查询数据”窗体中各个控件的属性值第3步：为“查询数据”窗体中的各个按钮编程o“查询”按钮的单击事件编程 Private Sub Command1_Click()Dim num As String num=InputBox(请输入学号(4位),学号搜索)Data1.Refresh D
11、o 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 SubVisual Basic 6.0Visual Basic 6.0可视化编程与实训可视化编程与实训2“退出”按钮的单击事件编程 Private Sub Command2_Click()Unloa
12、d Form3 Form1.Show End SubVisual Basic 6.0Visual Basic 6.0可视化编程与实训可视化编程与实训第4步：将“学生学籍管理系统”的封面窗口与“查询数据”窗口连接。o“学生学籍管理系统”的封面窗口设为当前窗口o双击“查询数据”按钮，弹出代码窗口，为按钮的单击事件编程。Private Sub Command2_Click()Form3.Show End SubVisual Basic 6.0Visual Basic 6.0可视化编程与实训可视化编程与实训第1步：制作“添加数据”窗口1选择菜单“工程/添加窗体”命令，添加Form4窗体。使用标签、文本
13、框、命令按钮等控件制作界面。知识4 “添加数据添加数据”窗口的制作窗口的制作Visual Basic 6.0Visual Basic 6.0可视化编程与实训可视化编程与实训2添加Data控件，名称为Data1。Visual Basic 6.0Visual Basic 6.0可视化编程与实训可视化编程与实训第2步：设置“添加数据”窗体中各个控件的属性值第3步：为“添加数据”窗体中的各个按钮编程o“添加”按钮的单击事件编程 Private Sub Command1_Click()Data1.Refresh Data1.Recordset.AddNew Text1.SetFocus End Sub2
14、“保存”按钮的单击事件编程 Private Sub Command2_Click()Data1.UpdateRecord Data1.Refresh Data1.Recordset.MoveLast End Sub3“退出”按钮的单击事件编程 Private Sub Command3_Click()Unload Form4 Form1.Show End SubVisual Basic 6.0Visual Basic 6.0可视化编程与实训可视化编程与实训第4步：将“学生学籍管理系统”的封面窗口与“添加数据”窗口连接。o学生学籍管理系统”的封面窗口设为当前窗口o双击“添加数据”按钮，调出代码窗口
15、，为按钮的单击事件编程。Private Sub Command3_Click()Form4.Show End SubVisual Basic 6.0Visual Basic 6.0可视化编程与实训可视化编程与实训第1步：制作“删除数据”窗口1选择菜单“工程/添加窗体”命令，添加Form5窗体。使用标签、文本框、命令按钮等控件制作界面。知识5 “删除数据删除数据”窗口的制作窗口的制作Visual Basic 6.0Visual Basic 6.0可视化编程与实训可视化编程与实训o添加Data控件，名称为Data1。Visual Basic 6.0Visual Basic 6.0可视化编程与实训可
16、视化编程与实训第2步：设置“删除数据”窗体中各个控件的属性值第3步：为“删除数据”窗体中的各个按钮编程o“删除”按钮的单击事件编程 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 D
17、ata1.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 SubVisual Basic 6.0Visual Basic 6.0可视
18、化编程与实训可视化编程与实训2“退出”按钮的单击事件编程 Private Sub Command2_Click()Unload Form5 Form1.Show End Sub第4步：将“学生学籍管理系统”的封面窗口与“删除数据”窗口连接。o“学生学籍管理系统”的封面窗口设为当前窗口o双击“删除数据”按钮，弹出代码窗口，为按钮的单击事件编程。Private Sub Command4_Click()Form5.Show End SubVisual Basic 6.0Visual Basic 6.0可视化编程与实训可视化编程与实训本章小结o本章以“学生学籍管理系统”的制作，介绍了在VB中进行数据管理的方法。要求学会在VB中运用Access数据库组织数据，掌握Data控件的使用，制作简单的数据处理窗口，并利用数据处理窗口实现数据的浏览、查询、编辑、添加、删除。