VB程序设计实验报告

一、目的与要求 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各窗体如下：n Form1: 登录界面，需要有效的用户名和登录密码。n Form2：信息管理，信息的浏览、信息的修改、信息的添加以及删除等主功能。n Form3：对学生信息进行全部浏览五、系统设计图1.总体结构设计小型信息管理系统信息管理信息浏览登录系统2.数据库设计基本信息表：字段名称数据类型字段大小学号文本12姓名文本4性别文本8Vb数字10English文本10Math文本10六、系统的实现现在已经完成了程序各个功能模块的创建，现在可以进行系统的实现了。1. 登录界面第一个界面，登录的实现。需要存在的用户名和有效的密码，才能成功的进入学生信息管理系统。通过以下代码来实现：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 IfEnd SubPrivate Sub Form_Load()Text1.Text = Text1.MaxLength = 12Text2.Text = Text2.MaxLength = 6Text2.PasswordChar = *End SubPrivate Sub Text1_LostFocus()If Not IsNumeric(Text1.Text) ThenMsgBox 账号必须为数字, , 警告Text1.Text = Text1.SetFocusEnd IfEnd Sub2.主管理窗口 主管理窗口包含绝大多数的功能，来实现与操作整个学生信息管理系统。信息的管理包含有：添加信息、删除信息、修改信息、更新系统等功能，通过以下代码来实现：Private Sub Command1_Click()Adodc1.Recordset.AddNewEnd SubPrivate Sub Command10_Click()Dim mno As Stringmno = InputBox(请输入学号, 查找窗)Adodc1.Recordset.Find 学号= & mno & , , , 1If Adodc1.Recordset.EOF Then MsgBox 无此学号！, , 提示End SubPrivate 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 IfEnd SubPrivate Sub Command3_Click()Adodc1.Recordset.SaveEnd SubPrivate Sub Command4_Click()EndEnd SubPrivate Sub Command5_Click()Form2.HideForm3.ShowEnd SubPrivate Sub Command6_Click()Adodc1.Recordset.MoveFirstEnd SubPrivate Sub Command7_Click()Adodc1.Recordset.MovePreviousEnd SubPrivate Sub Command8_Click()Adodc1.Recordset.MoveNextIf Adodc1.Recordset.EOF Then Adodc1.Recordset.MoveFirstEnd SubPrivate Sub Command9_Click()Adodc1.Recordset.MoveLastEnd SubPrivate Sub Form_Load()End Sub2. 浏览窗口这个窗口主要功能是总体浏览学生的信息,连接好数据库即可,代码如下: Private Sub Command1_Click()Form3.HideForm1.ShowEnd SubPrivate Sub Command2_Click()Form3.HideForm2.ShowEnd Sub七、设计总结1.存在的问题（1）对数据库的建立不熟悉，建好了数据库无法与窗体连接起来，还有窗口文本与数据源连接所设置的属性等等，都不上手。（2）对窗体中的控件的使用不了解。（3）窗体中的按钮很多，代码间条理不清晰。（4）窗体之间连接，处理的不是很恰当。2.个人体会在以上种种问题中，反复的琢磨了很多次，每次都会好一点点，但是都不理想。无法把自己想到的理想结构做出来，并且连接运行。想到代码，脑子就是一片空白，打不出什么东西来。使得我有点着急，但是静下来想了想，恍然大悟，既然底子不好，何必浪费时间，也想不出什么东西来，不如好好再看一遍课本。我认真的查看了课本，发现很多代码都在书上有介绍，看懂后，转变并运用到设计当中来，比刚开始要好多了。数据库的的思想和思路也有了，很快就能连接上了。完善了几项系统的管理功能，插入些背景，设计基本上也完成了。这次课程设计我流的汗，都是以成功的完成课程设计任务为收获的