案例三用VB制作一个大学学生查询系统.doc

案例三：用VB制作一个大学的学生查询系统 3.1 课程设计的目的和意义 3.2 系统功能设计 3.3 数据库与数据表的设计 3.4 创建应用系统主窗体 创建主窗体的方法和步骤： 启动VB程序，出现VB开发平台 创建一个标准的工程，出现一个空白窗体Form1 分别命名并保存工程及主窗体 在主窗体Form1中修改它的Caption属性为“大学学生查询系统” 在Form1中加载一张图片为背景 设置窗体的启动位置属性，该属性决定窗体在运行时出现的位置 在窗体中放入一个标签控件Label1，设置标签的Caption属性为“欢迎进入学生查询管理”。 在Form1中放入两个命令按钮控件Command1和Command2，分别设置他们的Caption属性为“进入系统”和“退出系统” 编制按钮控件Command1和Command2的代码 3.5 创建一个数据处理子窗体 3.6 用主窗体控件调用数据窗体 为按钮控件Command1和Command2编制代码： 右击命令按钮1，出现过程编辑器窗体，编制代码如下： Private Sub Command1_Click() 学生信息查询窗体.Show End Sub 为命令按钮2编制过程代码： Private Sub Command2_Click() Unload.Me End Sub 3.7 重要代码分析 指向第一条记录的按钮的过程代码： Private Sub cmdFirst_Click() On Error GoTo GoFirstError PrimaryCLS.MoveFirst mbDataChanged = False Exit Sub GoFirstError: MsgBox Err.Description End Sub 指向前一条记录的过程代码： Private Sub cmdPrevious_Click() On Error GoTo GoPrevError PrimaryCLS.MovePrevious Exit Sub GoPrevError: MsgBox Err.Description End Sub 指向下一条记录的过程代码： Private Sub cmdNext_Click() On Error GoTo GoNextError PrimaryCLS.MoveNext Exit Sub GoNextError: MsgBox Err.Description End Sub 指向最后一条记录按钮的过程代码： Private Sub cmdLast_Click() On Error GoTo GoLastError PrimaryCLS.MoveLast mbDataChanged = False Exit Sub GoLastError: MsgBox Err.Description End Sub 案例四：用VB控件制作一个大学的学生管理系统 4.1 课程设计的目的和意义 4.2 系统功能设计 4.3 数据库与数据表的设计 4.4 制作应用程序主窗体 应用主窗体与案例三相似 4.5 制作数据处理窗体 增加新的窗体： 单击VB主菜单中的“工程|添加窗体” 在出现的类型窗体选择面板中选择“窗体” 命名并保存窗体（主要要保存在工程中），设置窗体名称为DataForm 修改窗体Form2的Caption属性为“学生信息处理窗体” 为新的窗体布局并加入数据控件 往往一个数据处理窗体分为两个部分，一个是数据录入部分，一个是数据处理部分。 加入控件的过程 在窗体中放入一个数据控件Data1。 设置数据控件Data1的DataBaseName属性，Connect属性和Recordset属性。 添加文本框控件，文本框主要要设置DataSource属性和DataField属性 在每一个文本框之前放入一个标签控件，用于对每一个文本框的说明 作为数据查询，往往可以输入条件查询，所以再在窗体中加入一个标签和一个文本框，作为输入条件的表达式。 在窗体中添加五个命令控件按钮，分别设置他们的Caption属性为“添加记录”，“删除记录”，“更新记录”，“查询记录”，“结束操作”。 分别为每一命令控件编制过程代码 “添加记录”命令按钮的过程代码： Private Sub Command1_Click() Data1.Recordset.AddNew End Sub “删除记录”命令按钮的过程代码： Private Sub Command2_Click() If MsgBox(真的需要删除当前记录？, vbYesNo, 信息提示) = vbYes Then Data1.Recordset.Delete Data1.Records