VB程序设计实验报告.docVIP

PAGE PAGE 9 一、目的与要求 1、目的： （1）要求达到熟练掌握VB语言的基本知识和技能； （2）基本掌握程序设计的基本思路和方法； （3）能够利用所学的基本知识和技能，解决简单程序设计问题。 2、基本要求： （1）要求利用函数调用的方法以及VB语言的编程思想来完成系统的设计； （2）要求在设计的过程中，建立清晰的层次结构； 3、创新要求： 在基本要求达到后，可进行创新设计。 4、写出设计说明书 二、课程的主要内容 （1）选题 （2）进行系统分析 （3）程序设计实现 （4）系统测试 （5）编写、上交课程设计报告 四、设计方法和基本原理 1.系统概述 随着学校的规模不断扩大，学生数量急剧增加，有关学生的各种信息量也成倍增长。面对庞大的信息量，需要有学生信息管理系统来提高学生管理工作的效率。通过这样的系统，可以做到信息的规范管理、科学统计和快速的查询，从而减少管理方面的工作量。 2.功能要求 要求完成以下功能： （1）系统有良好的安全性，需要用户登录和密码的保密等等。 （2）从屏幕上读出若干个学生的信息（包括姓名、学号、电话等等）。 （3）能够添加新信息源并记录在案。 （4）能将指定的个人信息删除。 （5）能按学号直接查询个人信息。 （6）系统过程间的衔接与提示要明确。 3.系统的窗体以及各模块的功能 系统开发的总任务是实现学生信息关系的系统化、规范化和自动化。 系统主要由五部分组成：系统用户的管理、学生信息的管理、学生学籍信息的管理、信息的查询，其中还包括登录界面。 3.1各窗体如下： Form1: 登录界面，需要有效的用户名和登录密码。 Form2：信息管理，信息的浏览、信息的修改、信息的添加以及删除等主功能。 Form3：对学生信息进行全部浏览 五、系统设计图 1.总体结构设计 小型信息 小型信息管理系统 信息管理信息浏览登录系统 信息管理 信息浏览 登录系统 2.数据库设计 基本信息表： 字段名称 数据类型 字段大小 学号 文本 12 姓名 文本 4 性别 文本 8 Vb 数字 10 English 文本 10 Math 文本 10 六、系统的实现 现在已经完成了程序各个功能模块的创建，现在可以进行系统的实现了。 登录界面 第一个界面，登录的实现。需要存在的用户名和有效的密码，才能成功的进入学生信息管理系统。通过以下代码来实现： Private Sub Command1_Click() Dim i As Integer If Text2.Text 182533 Then i = MsgBox(密码错误, 5 + vbExclamation, 警告) If i 6 Then Text2.Text = Text2.SetFocus End If Else Form1.Hide Form2.Show End If End Sub Private Sub Form_Load() Text1.Text = Text1.MaxLength = 12 Text2.Text = Text2.MaxLength = 6 Text2.PasswordChar = * End Sub Private Sub Text1_LostFocus() If Not IsNumeric(Text1.Text) Then MsgBox 账号必须为数字, , 警告 Text1.Text = Text1.SetFocus End If End Sub 2.主管理窗口 主管理窗口包含绝大多数的功能，来实现与操作整个学生信息管理系统。 信息的管理包含有：添加信息、删除信息、修改信息、更新系统等功能，通过以下代码来实现： Private Sub Command1_Click() Adodc1.Recordset.AddNew End Sub Private Sub Command10_Click() Dim mno As String mno = InputBox(请输入学号, 查找窗) Adodc1.Recordset.Find 学号= mno , , , 1 If Adodc1.Recordset.EOF Then MsgBox 无此学号！, , 提示 End Sub Private Sub Command2_Click() ask = MsgBox(删除否?, vbYesNo) If ask = 6 Then Adodc1.Recordset.Delete Adodc1.Recordset.MoveNext If Adodc1.Recordset.EOF Then Adodc1.Recordset.MoveLast End If End S