VB课设学生成绩管理系统

1、辽宁工业大学可视化编程技术课程设计（论文）题目学生成绩管理系统院（系）：软件学院专业班级：计算机网络技术071班学 号： 0714060653学生姓名：刘育辰指导教师：胡峰教师职称：助教起止时间：至 课程设计（论文）任务和评语院（系）：软件学院教研室：软件教研窒号 学辰 育 刘络班课程设计 （论文） 题目课程设计论文 >任务BVO石疋 O o AW'/.。p 厶冃 。础功 法。B 实B, q 农匕匕 y? 星 、力厶冃 、了 j 的决 接功寸 加汕 、H对匕连的对MK> 语九则册檢惱 H他 <:计 目 库 系 力 喫 己 S#近题宜、据现& ， i 砂 序的使

2、数实助+,«, ):|=3_L/" p 二 ? 二 / 匚3E一、 你 冋选s,/B码酬 由护 M V所M V代珊 心皿 折 握计杪解写-M妇空 诊 爭戶殳巾了扁通B戶 程!、以窗了编1 申完 课1>22计33445>i 地 设 确 中 正指导教师评语和成绩日6月2 宀字年 指7002 成目录第 1 章 课程设计目的与要求 11.1 课程设计目的 1.1.2 课程设计的实验环境 1.1.3 课程设计的预备知识 1.1.4 课程设计要求 1.第 2 章 课程设计内容 2.2.1 系统功能设计 2.2.2 系统详细设计 4.2.3 系统运行与测试 1.2第 3 章

3、课程设计总结 1.4.参考文献 1.5.第 1 章 课程设计目的与要求1.1 课程设计目的 本课程的课程设计实际是学生学习完可视化编程技术课程后，进行的一次全面 的综合训练，其目的在于加深对可视化编程技术基本知识的理解，掌握运用VB开发应用程序的基本方法和基本技巧。1.2 课程设计的实验环境硬件要求能运行 Windows 9.X 操作系统的微机系统。软件： Microsoft Visual Basic 6.0Microsoft Access 20031.3 课程设计的预备知识熟悉 Visual Basic 6.0 程序设计的基本语法知识和常用技巧。1.4 课程设计要求 按课程设计指导书提供的课

4、题，每个小组设计一个完整的管理系统应用程序。要求根据规定设计系统的具体要求，按照应用程序的设计步骤和 VB 的基本知识应用程序的 分析与实现。应根据基本学时分配合理安排设计时间，并独立完成各方面的设计。选择 同一题目的同学，可以共同协作完成一个应用程序的开发任务。要求书写详细的设计说 明书，对有复杂的代码段和程序段的部分，应画出程序流程图，写出全部的代码。在界 面设计中，需画出每个窗体的布局，进行属性说明，杜绝雷同。第 2 章 课程设计内容2.1 系统功能设计系统功能分析 学生信息管理系统主要用于对学校各院系的学生进行各种信息的管理，因此，该系 统需要具备如下功能：（1）教师管理：包括教师信息

5、（用户名、密码等）的录入、删除和查询等功能。教师的 基本信息以和教师的授课信息等。（2）院系管理：包括院系信息（院系编号、院系名称、院系职能描述等） 的录入、修改、 删除和查询等功能。（ 3）学生管理：包括的功能模块有学生基本信息管理和学生教育经理管理。其中， 学生 基本信息管理包括学生信息（学生编号、姓名、生日、所在院系等）的录入、修改、删 除和查询等功能；学生教育经历管理包括学生教育经历信息（开始日期、截止日期、所 在学校、职务等）录入、修改、删除和查询等功能。（ 4）课程管理：完成对课程信息的维护、选课、 ，包括课程添加、修改、删除和查询功 能。（ 5）成绩管理：包括的功能模块有课程设置

6、和学生成绩管理。其中， 课程设置包括课程 设置信息（课程编号、课程名称、课程内容等）的录入、修改、删除和查询等功能；学 生成绩管理包括学生成绩信息（课程编号、学生编号、分数等）的录入、修改、删除和 查询等功能。总的来说，学生成绩管理系统主要提供成绩查询， 方便管理的网上的信息查阅平台， 学生可以通过该系统查阅与自己相关信息、查看留言、提交留言、教师可以通过成绩管 理系统查阅学生成绩信息、教师信息、查看教师留言、学生留言、提交留言,留言的管理等相关操作 .系统管理员可以实现以上的所有功能 ,还有对学生的添加、删除、修改、教 师的添加、删除、修改、数据库的备份、数据库的还原等相关操作。系统功能模块

7、设计根据以上所述的个子系统的功能我们可以构思画出系统功能模块图先画出几个大的功能，然后在其分支画出具体的功能具体如图2-2所示：图2.1系统功能模块图2.2系统详细设计登录模块设计1.界面设计(1)登录窗体登陆窗体主要是方便客户与管理员打开该系统的。如图2.2所示:图2.2 登陆窗体新建窗体，命名为 Frmlogin。在窗体中使用TextBox,CommandButtor等控件，其中显 示密码Text文本框的PasswordChar属性设置为” * ”。可以实现如下功能：根据用户名和 密码登录时，系统调用数据中该用户名和密码核对是否一致，从而来判断是否可以进入系 统(如三次输入密码错误则自动关

8、闭系统)；并根据用户类型决定用户拥有的权限。2代码设计'数据有效性检查If txtUser = "" The nMsgBox "请输入用户名txtUser.SetFocusExit SubEnd IfIf txtPwd = "" The nMsgBox "请输入密码" txtPwd.SetFocusExit SubEnd IfNameKey = MakeStr(txtUser)PasswordKey = MakeStr(txtPwd)'判断用户是否存在If MyUser.ln_DB(NameKey) = Fa

9、lse The nMsgBox "用户名不存在"Try_times = Try_times + 1If Try_times >= 3 The nMsgBox "您已经三次尝试进入本系统，均不成功，系统将关闭DBapi_Disco nnectEndElseExit SubEnd IfEnd If'判断密码是否正确If MyUser.GetPwd(NameKey) <> PasswordKey The nMsgBox "密码错误"Try_times = Try_times + 1If Try_times >= 3 T

10、he nMsgBox "您已经三次尝试进入本系统，均不成功，系统将关闭End If'登录成功，将当前用户的信息保存在 CurUser中CurUser.UserName = MyUser.UserName'关闭自己Un load MeEnd Sub控件类型控件标题控件名称文本框用户名Tstuser name文本框密码Tstpassword标签框用户名lbluser name标签框密码txtpassword命令按钮确定cmde nter命令按钮取消cmdca ncle表2.1窗体控件表登入窗体后显示如图2.3在该窗体中，有添加用户、修改用户、删除用户和返回四个功能，在该窗

11、体中，根 据管理者的需求，可以自己任意的去管理该界面，从而来达到要求者的要求。图2.3用户管理窗体新建窗体，名为 FrmUserMan,窗体中添加 CommandButton,TextBox等控件,记录着 每一次与客户进行商业活动的日期，说明，。可以对这些信息进行添加、删除、修改、显 示等操作。2.代码设计Private Sub Cmd_Del_Click()If DataList1.Text = "" The nMsgBox "请选择要删除的用户"Exit SubEnd IfIf MyUser.UserName = "Admi n"

12、 The nMsgBox "此用户不能删除"Exit SubEnd If确认删除If MsgBox("是否删除当前用户", vbYesNo," 请确认")=vbYes ThenMyUser.Delete (DataList1.Text)AdoUserList.RefreshDataList1.ReFillDataList1_ClickEnd IfEnd Sub 222院系管理系统模块设计1.界面设计图2.4院系管理界面字段名称数据结构说明Class_idint院系编号，主键Class_NameVarchar40院系名称Upperldi

13、nt上级院系编号表2.2结构表2.代码设计Private Sub Cmd_OK_Click()'检查用户录入数据的有效性If Trim(txtClass) = "" The nMsgBox "请输入院系班级名称"Exit SubEnd If'将新输入的数据保存到类变量中With MyClass.CIass_Name = MakeStr(txtClass)'根据变量Modify决定是插入新数据，还是修改已有的数据If Modify = False The n '插入'调用ln_DB()函数判断用户输入的名称是否已经存

14、在If .In _DB(.CIass_Name) = True The nMsgBox Trim(txtClass) + "已经存在"Exit SubEnd If'CurClass 中保存在院系班级管理窗体中选中的院系班级信息 ' 当插入新记录时，新记录将做为当前院系班级的下级院系班级 .UpperId = CurClass.Class_IdBh = .Insert' 生成 TreeView 中一个结点的关键字Tmp_Key = "a" + Trim(Str(Bh)' 设置结点的图像= 1 = 2= 3' 在树中添

15、加一个结点Set TmpNode =_ tvwChild, Tmp_Key, .Class_Name, 4, 5)TmpNode.Selected = TrueElse ' 修改If CurClass.Class_Name <> Trim(txtClass) ThenIf .In_DB(Trim(txtClass) = True ThenMsgBox Trim(txtClass) + " 已经存在 "Exit SubEnd IfEnd If' 当修改记录时，不能改变上下级之间的关系.UpperId = CurClass.UpperId.Updat

16、e (CurClass.Class_Id)If CurClass.Class_Name <> Trim(txtClass) Then= Trim(txtClass)End If' 设置CurClass变量CurClass.Class_Name = Trim(txtClass)End IfEnd With'关闭窗口Un load MeEnd SubPrivate Sub Cmd_Ca ncel_Click()Un load MeEnd SubPrivate Sub Frame1_DragDrop(Source As Con trol, X As Sin gle, Y

17、As Sin gle)End SubPrivate Sub txtClass_KeyPress(KeyAscii As In teger)En terTAB (KeyAscii)End Sub学生管理系统模块设计1.界面设计图2.5学生成绩信息2代码设计rivate Sub Form_Load()Dim txtSQL As String Dim MsgText As String comboExamtype.Enabled = False comboClassno.Enabled = False comboSID.Enabled = False comboCourse.Enabled = Fa

18、lse txtName.Enabled = False txtResult.Enabled = False updateCommand.Enabled = False cancelCommand.Enabled = False txtSQL = "select * from result_Info "Set mrc = ExecuteSQL(txtSQL, MsgText)If mrc.EOF = False Then mrc.MoveFirst Call viewData myBookmark = mrc.BookmarkElseMsgBox " 没有纪录！ &

19、quot;, vbOKOnly + vbExclamation, "警告"做小II警告 "MsgBox " 请输入考试编号 !", vbOKOnly + vbExclamation, "Exit SubEnd IfIf Not Testtxt(comboClassno.Text) ThenMsgBox "请选择班号 !", vbOKOnly + vbExclamation, "Exit SubEnd IfIf Not Testtxt(comboSID.Text) ThenMsgBox "请选择学

20、号 !", vbOKOnly + vbExclamation, "Exit SubEnd IfIf Not Testtxt(comboCourse.Text) ThenMsgBox "请选择课程 !", vbOKOnly + vbExclamation, "Exit SubEnd If做小II警告 "If Not Testtxt(txtResult.Text) ThenMsgBox " 请输入分数 !", vbOKOnly + vbExclamation, "Exit SubEnd IfIf Not Is

21、Numeric(txtResult.Text) ThenMsgBox " 分数请输入数字 !", vbOKOnly + vbExclamation, "Exit SubEnd Ifmrc.Fields(0) = comboExamtype.Textmrc.Fields(1) = comboSID.Textmrc.Fields(2) = txtName.Textmrc.Fields(3) = comboClassno.Textmrc.Fields(4) = comboCourse.Textmrc.Fields(5) = txtResult.Textmrc.Updat

22、emrc.CloseMsgBox "修改成绩成功！ ", vbOKOnly + vbExclamation, "End Sub数据库访问技术Vb中提供了多种访问数据库的方法,可以通过访问的数据库类型有 dBase,ForxPro,和 Access数据库.另外可以通过 ODB（方式访问MS SQLServer和Oracle和Sybase等,并 以客户机 / 服务器方式访问数据库中的数据。学生成绩管理系统使用 SQLServer 2005 Express 版实现数据库到 vb 可视化编程的 连结,客户端登录 用户名sa密码DWOA火墙关闭 网络连接/本地连接/属性/高

23、级 /window防火墙设置/关闭（如果没有启用 Window防火墙服务，则不必设置）SQL把各11 / 18种完整性约束作为数据库模式定义的一部分，由数据库管理系统维护，这样即可有效防 止对数据库的意外破坏，提高了完整性检测的效率，又减轻了编程人员的负担。SQLServer支持三种完整性约束：1）实体完整性2）参照完整性（或引用完整性）3）用户自 定义完整性其中实体完整性是通过主码（PRIMARY KEY ）的定义来实现的。一旦某个 属性或属性组被定义为主码，该主码的每个属性就不能为空值，并且在表中不能出现主 码值完全相同的两个记录。参照完整性在更新记录时，参照完整性保持表之间已定义的 关系

24、。参照完整性基于外键与主键之间或外键与唯一键之间的关系。参照完整性确保键值在所有表中一致。这样的一致性要求不能引用不存在的值，如果键值更改了，那么在 整个数据库中，对该键值的所有引用要进行一致的更改。参照完整性约束的实现策略当 用户的操作违反了上述规则时，SQL提供了两种可选方案供数据库实现者使用:RESTRICT限制策略）；CASCAD级联策略）用户自定义完整性.图2.6登录数据库服务器端数据库2.3系统运行与测试学生管理系统支持如下平台：Microsoft SQL Server1.单击主界面的信息管理按钮进入信息管理对话框如图2.7所示:图2.7系统主界面图2登录进入其对话框，在明细类别选

25、项中输入要查询商品的类别如：计算机，然后在 项目名称中输入cpu频率，在是否二次修改中单击，在是否有效中选择有效，单击查询 则运行完毕。如图2.8所示：图2.8明细类别项目图第 3 章 课程设计总结通过本次的可视化编程课程设计，巩固了我在课堂上所学的理论知识，更进一步的 理解了面向对象编程的基本思想，并且对可视化编程工具 Microsoft Visual Basic 6.0 这种软件的应用有了一个简单的了解，开拓了自己的知识面。本次课程设计，在丁老师的指导下，通过不懈的努力完成了本次课程设计的任务， 游戏设计以和运行已基本实现。培养我的团队精神，学会了如何和别人合作，同时也从 同学那里学到了许多东西。在课程设计的过程中，我也深深体会到了，作为一名编程人员的不容易，这