vb设计说明书

2010-2011学年第一学期vb课程设计说明书

题目学生信息管理系统姓名：___________________学号：___________________所在院系：_______信息工程系_____________所学班级：____09计二________________指导教师：____________________设计时间：__20001-10-21__________________目录一、设计课题.............................................................................................3二、设计目的.............................................................................................3三、设计任务.............................................................................................3四、主要内容.............................................................................................41设计分析..................................................................................................42设计说明.................................................................................................43操作方法..................................................................................................4五、设计体会：.........................................................................................9六：参考书籍...........................................................................................10学生信息管理系统张爱芳德州科技职业学院信息工程系一、设计课题

学生信息管理系统二、设计目的1．学习和巩固VB程序设计的方法（面向过程的程序设计方法和面向对象的程序设计方法），充分体会VB在程序设计方面的强大功能和独特之处；

2．了解用VB开发项目的一般过程，培养运用VB解决实际问题的工作能力。三、设计任务（1）要求用VisualBasic6.0提供的系统函数和标准控件完成设计。（2）从列表框中选择“年级、专业、日期”的信息后，显示该班级在当日所对应的课程。

（3）利用VisualBasic设计学生信息管理系统，建立学生信息数据库及相应的软件界面，实现对学生信息的有效管理，本系统主要包括学校的机构信息（系、班级）、学生信息（如学生姓名、年龄、所在的院系和专业等）、每个学生的基本资料信息和所学专业信息等。可对有关信息查询、添加、修改、删除，维护等功能。

（4）在设计程序的过程中，要求会使用按钮(commandbutton)、文本框(text)、列表框等基本控件以及它们的常用属性。（5）程序界面美观，运行无差错。四、主要内容1设计分析（1）需要准备的工具有：access数据库、Vb程序设计教程、vb企业版（2）学生信息管理系统需要学生的基本信息、（如姓名、性别、籍贯、出生年月等）（3）学生信息管理系统的字段与数据库系统的字段分别要一一相对应，（4）子窗体要加载到主窗体中，实现学生信息管理系统的完整性2设计说明

学生信息管理系统是与access数据库相结合完成的，其系统可以方便完成简单的查询、添加、修改等数据操作。主窗体下的每个子窗体通过菜单栏可以查看系统的整体内容和系统的基本结构。3操作方法(1)建立系统登录界面，实现主窗体与子窗体的相连。附录部分代码：

PrivateSubCommand1_Click()StaticiAsIntegerIfi>2ThenMsgBox"对不起你登录的次数已经超过三次，下次再用谢谢！！"Form1.HideEndIfIfTrim(Text1.Text)="123"AndTrim(Text2.Text)="123"ThenForm1.ShowUnloadForm4ElseIfTrim(Text1.Text)<>"123"AndTrim(Text2)<>"123"ThenMsgBox"用户名和密码错误！！"ElseIfTrim(Text1)<>"123"AndTrim(Text2)="123"ThenMsgBox"用户名错误！！"ElseMsgBox"密码错误！！"EndIfi=i+1EndSub

(2)根据题目要求建立的学生信息管理数据库

(3)进入系统主界面，使用菜单编辑器添加系统相关的命令，每个主菜单下要

有之相联系的子菜单。附录部分代码：6

PrivateSubcxry_Click()Form3.ShowEndSub

PrivateSubsc_Click()Form2.ShowEndSub

PrivateSubtccx_Click()EndEndSub

PrivateSubtj_Click()Form2.ShowEndSub

PrivateSubxg_Click()Form2.ShowEndSub

(3)为每个主菜单和子菜单添加子窗体。附部分代码：7

rivateSubComadd_Click()IfComadd.Caption="确定"ThenOnErrorGoToerrorhandlerData1.UpdateRecordComdel.Enabled="true"

Comadd.Caption="添加"ElseData1.Recordset.AddNewComadd.Caption="确定"Comdel.Enabled="false"EndIfExitSuberrorhandler:IfErr.Number=524ThenMsgBox"该记录已存在!",48,"警告"EndIfResumeEndSub

PrivateSubComdel_Click()DimiAsIntegeri=MsgBox("真的要删除当前记录吗！",64,"提示")Ifi=6ThenData1.Recordset.DeleteData1.RefreshEndIfEndSub

PrivateSubCommand2_Click()MsgBox"修改成功",64,"提示"EndSub

(4为每个窗体实现查询功能，每个窗体的data控件要与数据库相连。

PrivateSubCommand2_Click()IfText8.Text=""ThenMsgBox"请输入查询内容！",48,"提示"ExitSubEndIfIfCombo2.Text="姓名"ThenData1.Recordset.FindFirst"姓名="&"'"&Text8.Text&"'"ElseIfCombo2.Text="年级"ThenData1.Recordset.FindFirst"年级="&"'"&Text8.Text&"'"ElseIfCombo2.Text="院系"ThenData1.Recordset.FindFirst"院系="&"'"&Text8.Text&"'"EndIfIfData1.Recordset.NoMatchThenMsgBox"查无此记录！"EndIfEndSubPrivateSubComnext_Click()Data1.Recordset.MoveNextComnext.Enabled=TrueIfData1.Recordset.EOFThenData1.Recordset.MoveLastComnext.Enabled=FalseEndIfEndSub

PrivateSubComprev_Click()Data1.Recordset.MovePreviousComnext.Enabled=TrueIfData1.Recordset.BOFThenData1.Recordset.MoveFirstComprev.Enabled=FalseEndIfEndSub

PrivateSubForm_Load()Combo2.AddItem"姓名"Combo2.AddItem"院系"Combo2.AddItem"年级"Combo2.Text="姓名"EndSub(5)为每个窗体加载图片。以达到美化的效果。

五设计体会：在此设计过程中，自己学到了很多知识及查阅相关资料，丰富了头脑。此次设计过程中也培养了自己独立思考的能力，虽然此次没有全部完成该系统的全