vb设计说明书.doc

2010-2011学年第一学期 vb 课程设计说明书题 目 学生信息管理系统 姓 名：_ _ 学 号：_ 所在院系：_信息工程系_所学班级：_09计二_指导教师：_ _设计时间：_20001-10-21_目 录一、设计课题2二、设计目的3三、设计任务3四、主要内容31设计分析32 设计说明43操作方法4五、设计体会：9六：参考书籍10学生信息管理系统张爱芳 德州科技职业学院 信息工程系一、设计课题学生信息管理系统二、设计目的1学习和巩固VB程序设计的方法（面向过程的程序设计方法和面向对象的程序设计方法），充分体会VB在程序设计方面的强大功能和独特之处；2了解用VB开发项目的一般过程，培养运用VB解决实际问题的工作能力。三、设计任务（1）要求用VisualBasic6.0提供的系统函数和标准控件完成设计。（2）从列表框中选择“年级、专业、日期”的信息后，显示该班级在当日所对应的课程。（3）利用Visual Basic设计学生信息管理系统，建立学生信息数据库及相应的软件界面，实现对学生信息的有效管理，本系统主要包括学校的机构信息（系、班级）、学生信息（如学生姓名、年龄、所在的院系和专业等）、每个学生的基本资料信息和所学专业信息等。可对有关信息查询、添加、修改、删除，维护等功能。（4）在设计程序的过程中，要求会使用按钮(commandbutton)、文本框(text)、列表框等基本控件以及它们的常用属性。 （5）程序界面美观，运行无差错。四、主要内容1设计分析（1）需要准备的工具有：access数据库、Vb程序设计教程、vb企业版（2）学生信息管理系统需要学生的基本信息、（如姓名、性别、籍贯、出生年月等）（3）学生信息管理系统的字段与数据库系统的字段分别要一一相对应，（4）子窗体要加载到主窗体中，实现学生信息管理系统的完整性2 设计说明学生信息管理系统是与access数据库相结合完成的，其系统可以方便完成简单的查询、添加、修改等数据操作。主窗体下的每个子窗体通过菜单栏可以查看系统的整体内容和系统的基本结构。3操作方法(1) 建立系统登录界面，实现主窗体与子窗体的相连。附录部分代码：Private Sub Command1_Click() Static i As IntegerIf i 2 Then MsgBox 对不起你登录的次数已经超过三次，下次再用谢谢！ Form1.HideEnd If If Trim(Text1.Text) = 123 And Trim(Text2.Text) = 123 Then Form1.Show Unload Form4 ElseIf Trim(Text1.Text) 123 And Trim(Text2) 123 Then MsgBox 用户名和密码错误！ ElseIf Trim(Text1) 123 And Trim(Text2) = 123 Then MsgBox 用户名错误！ Else MsgBox 密码错误！ End If i = i + 1End Sub(2) 根据题目要求建立的学生信息管理数据库 (3) 进入系统主界面，使用菜单编辑器添加系统相关的命令，每个主菜单下要有之相联系的子菜单。附录部分代码：Private Sub cxry_Click()Form3.ShowEnd SubPrivate Sub sc_Click()Form2.ShowEnd SubPrivate Sub tccx_Click()EndEnd SubPrivate Sub tj_Click() Form2.ShowEnd SubPrivate Sub xg_Click()Form2.ShowEnd Sub(3) 为每个主菜单和子菜单添加子窗体。附部分代码：rivate Sub Comadd_Click()If Comadd.Caption = 确定 Then On Error GoTo errorhandler Data1.UpdateRecord Comdel.Enabled = true Comadd.Caption = 添加 Else Data1.Recordset.AddNew Comadd.Caption = 确定 Comdel.Enabled = false End If Exit Suberrorhandler: If Err.Number = 524 Then MsgBox 该记录已存在!, 48, 警告 End If ResumeEnd SubPrivate Sub Comdel_Click()Dim i As Integeri = MsgBox(真的要删除当前记录吗！, 64, 提示)If i = 6 ThenData1.Recordset.DeleteData1.RefreshEnd IfEnd SubPrivate Sub Command2_Click()MsgBox 修改成功, 64, 提示End Sub(4 为每个窗体实现查询功能，每个窗体的data控件要与数据库相连。Private Sub Command2_Click()If Text8.Text = ThenMsgBox 请输入查询内容！, 48, 提示Exit SubEnd IfIf Combo2.Text = 姓名 ThenData1.Recordset.FindFirst 姓名= & & Text8.Text & ElseIf Combo2.Text = 年级 Then Data1.Recordset.FindFirst 年级= & & Text8.Text & ElseIf Combo2.Text = 院系 ThenData1.Recordset.FindFirst 院系= & & Text8.Text & End IfIf Data1.Recordset.NoMatch ThenMsgBox 查无此记录！End IfEnd SubPrivate Sub Comnext_Click()Data1.Recordset.MoveNextComnext.Enabled = True If Data1.Recordset.EOF Then Data1.Recordset.MoveLast Comnext.Enabled = False End IfEnd SubPrivate Sub Comprev_Click()Data1.Recordset.MovePreviousComnext.Enabled = TrueIf Data1.Recordset.BOF ThenData1.Recordset.MoveFirstComprev.Enabled = FalseEnd IfEnd SubPrivate Sub Form_Load()Combo2.AddItem 姓名Combo2.AddItem 院系Combo2.AddItem 年级Combo2.Text = 姓名End Sub(5) 为每个窗