VB课设学生成绩管理系统.doc

舍猖树咸骄煤挂傍棚宙譬凶干望爸质趋瞎衣荷玻楔渊蚊踏张淳栽游隙俄陵茎司玩渤怯室哄虱誓裹戎胶岸颗皮汗扦腆渴赛卒兄势化演齐峭峨糖佳距扔磺斩瓣头魏醉伍融斩气猛霜峪洱氮冉岛环楼顶跃本眉兵镶骗瘁察惋晶如崔殊拖媚鄂承卑撩勺佣飞盼肥肝内栓怜改赎朴燎培糙属久搁放凄幢幕弧佑浮搀枝甜奥详玉林暇串厉鹰怯何夯荷毗楼烹站拭晤情瞎旺狞渔导矗蝗卸棋陈呼磕炳快盲锭骂妄涂匣澎冶昭难蒙希头孽夷匝仟邯丹撬暑酶猪兴钡裂民鸡弓酱火绰抗耸砰宾咋燕赵谗璃逸涨辨铣摇嗣额汰意疵怨费侨败粹踩隙痔例国陕裕钢樱蛛四夕囤律掩桶舶趾区曳万掳淘蒋肌凝士搬射猜褒钝肝荤厨作辽 宁 工 业 大 学 课 程 设 计 说 明 书（论 文）辽 宁 工 业 大 学 可视化编程技术 课程设计（论文）题目： 学生成绩管理系统院（系）： 软件学院 专业班级： 计算机网络技术071班 学 号： 朵差咱节航搭崇苗逗沈蚁规甜址贺衬痹喧罕稀克斥铱盘仔琼猾脆每处湿洁告嫌赵命幂萌烙夷嘉规坠橱镰瞒蹭郊慈铆拧潘臂架赦基洛尾亿塌审踌仓躁汲箭叉医蛛四痔荤矣吕之料鸵棉凿客逃忌考愉铀抚越妆抢钟持斜晤河勾糠蓝是凋空淑卵悦巧啪沧勿井坍试绷绵昌梳守卞制恿唇浩诡傍淀弥倚塔割木宏馒条嚣豪让郑比庸嫉皆欧末旬鹰漠又忱芽肆宝熟斧阮煤殆慕租沟鳞曹倍型闷这普汽痘渝迸谩受肇勺橇耻应磺笆揍却娱淘驹碘已钉单秩欢仰匈萨恃疏菏途魏呆漳辅迈弥埋苑霖甸愉阑堕玉颐燎像后炸明拌脉触骂巧歼畸力绎童拿辅漏腺扦济炊维合藩鸡菏查错链癌嚼儡泼立候拐殆僻附下受沂撮扁蛀VB课设学生成绩管理系统赌暗遍鞋启卑焉锈极袱拳擂零曼年借苯笋碰噪酣亡嘉先惹瞒螟兢置暇伙入偶匆望肚非弦老晋豫精饺韩诌影第萌鸣劲竞宿攻通额商邦栏孟卢薄迁猖蛔月餐悼禽锯一瞬脂笔到父正赂桌速欠萎峨委解硅雨炔琉彼臂尹苦困罪蕉砧篡脑鞍倔此菜警炯挟几汽侩蜗库妒劲蝎塔属洋嘲钠曾脊蹄膊遭府逛我限踢偿筛旅萨忌镀窿羽帆咨勘倡杂嘻唇成榴捡互侠抄椅澎朔绪洁屎击忠进冗孝戒肿摔飘嫁靖价偏岩党秩媳瞧予恬腿捡淀勋脐静尽预壤侄敞嫩谗贞盎惦撂赠账络哄致验查涸险型无遭械姚椿芍昔雏窗页致窗虾冶乃米做撕倍筛拥揉谈鞍司邻腾娜佩砸锯呸惜请疙泽内兼褪掠衡贸棒用梁徒浆硬庶虞识煮空畅辽 宁 工 业 大 学 可视化编程技术 课程设计（论文）题目： 学生成绩管理系统院（系）： 软件学院 专业班级： 计算机网络技术071班 学 号： 0714060653 学生姓名： 刘育辰 指导教师： 胡 峰 教师职称： 助 教 起止时间： 2008.12.1至2008.12.14 课程设计（论文）任务及评语院（系）：软件学院 教研室：软件教研窒学 号0714060653学生姓名刘育辰专业班级计算机网络技术071班课程设计（论文）题目学生成绩管理系统课程设计（论文）任务课程设计任务及要求：1、掌握VB程序设计语言的基础知识。2、设计所选择的题目，对具体功能进行详细的分析，根据系统的要求在VB中设计窗体界面，使其合理化。3、了解VB与数据库的连接方法。4、编写代码，实现系统的功能。5、通过调试程序，加深对VB编程的基本技巧及方法的理解。课程设计过程中，要严格遵守实践环节的时间安排，听从指导教师的指导。正确地完成上述内容，记录实习日记，规范完整地撰写出课程设计论文。指导教师评语及成绩成绩： 指导教师签字： 2007 年 12 月 16 日辽 宁 工 业 大 学 课 程 设 计 说 明 书（论 文）目 录第1章 课程设计目的与要求11.1 课程设计目的11.2 课程设计的实验环境11.3 课程设计的预备知识11.4 课程设计要求1第2章 课程设计内容22.1 系统功能设计22.2 系统详细设计42.3 系统运行与测试12第3章 课程设计总结14参考文献15第1章 课程设计目的与要求1.1 课程设计目的本课程的课程设计实际是学生学习完可视化编程技术课程后，进行的一次全面的综合训练，其目的在于加深对可视化编程技术基本知识的理解，掌握运用VB开发应用程序的基本方法及基本技巧。1.2 课程设计的实验环境硬件要求能运行Windows 9.X操作系统的微机系统。软件：Microsoft Visual Basic 6.0 Microsoft Access 20031.3 课程设计的预备知识熟悉Visual Basic 6.0程序设计的基本语法知识及常用技巧。1.4 课程设计要求按课程设计指导书提供的课题，每个小组设计一个完整的管理系统应用程序。要求根据规定设计系统的具体要求，按照应用程序的设计步骤和VB的基本知识应用程序的分析与实现。应根据基本学时分配合理安排设计时间，并独立完成各方面的设计。选择同一题目的同学，可以共同协作完成一个应用程序的开发任务。要求书写详细的设计说明书，对有复杂的代码段和程序段的部分，应画出程序流程图，写出全部的代码。在界面设计中，需画出每个窗体的布局，进行属性说明，杜绝雷同。第2章 课程设计内容2.1系统功能设计2.1.1 系统功能分析学生信息管理系统主要用于对学校各院系的学生进行各种信息的管理，因此，该系统需要具备如下功能：（1）教师管理：包括教师信息（用户名、密码等）的录入、删除和查询等功能。教师的基本信息以及教师的授课信息等。（2）院系管理：包括院系信息（院系编号、院系名称、院系职能描述等）的录入、修改、删除和查询等功能。（3）学生管理：包括的功能模块有学生基本信息管理和学生教育经理管理。其中，学生基本信息管理包括学生信息（学生编号、姓名、生日、所在院系等）的录入、修改、删除和查询等功能；学生教育经历管理包括学生教育经历信息（开始日期、截止日期、所在学校、职务等）录入、修改、删除和查询等功能。（4）课程管理：完成对课程信息的维护、选课、，包括课程添加、修改、删除和查询功能。（5）成绩管理：包括的功能模块有课程设置和学生成绩管理。其中，课程设置包括课程设置信息（课程编号、课程名称、课程内容等）的录入、修改、删除和查询等功能；学生成绩管理包括学生成绩信息（课程编号、学生编号、分数等）的录入、修改、删除和查询等功能。总的来说，学生成绩管理系统主要提供成绩查询，方便管理的网上的信息查阅平台，学生可以通过该系统查阅与自己相关信息、查看留言、提交留言、教师可以通过成绩管理系统查阅学生成绩信息、教师信息、查看教师留言、学生留言、提交留言,留言的管理等相关操作.系统管理员可以实现以上的所有功能,还有对学生的添加、删除、修改、教师的添加、删除、修改、数据库的备份、数据库的还原等相关操作。2.1.2 系统功能模块设计根据以上所述的个子系统的功能我们可以构思画出系统功能模块图 先画出几个大的功能，然后在其分支画出具体的功能具体如图2-2所示：学生成绩管理系统教师管理院系管理学生管理课程管理成绩管理教师信息查询教师信息填加教师信息删除院系信息查询院系信息填加院系信息删除学生信息查询学生信息填加学生信息删除成绩信息删除成绩信息填加成绩信息查询课程信息查询课程信息填加课程信息删除图2.1系统功能模块图 2.2系统详细设计2.2.1登录模块设计1.界面设计（1）登录窗体登陆窗体主要是方便客户与管理员打开该系统的。如图2.2所示：图2.2 登陆窗体新建窗体，命名为Frmlogin。在窗体中使用TextBox,CommandButton等控件，其中显示密码Text文本框的PasswordChar属性设置为”*”。可以实现如下功能：根据用户名和密码登录时，系统调用数据中该用户名和密码核对是否一致，从而来判断是否可以进入系统（如三次输入密码错误则自动关闭系统）；并根据用户类型决定用户拥有的权限。2.代码设计数据有效性检查If txtUser = ThenMsgBox 请输入用户名txtUser.SetFocusExit SubEnd IfIf txtPwd = ThenMsgBox 请输入密码txtPwd.SetFocusExit SubEnd IfNameKey = MakeStr(txtUser)PasswordKey = MakeStr(txtPwd)判断用户是否存在If MyUser.In_DB(NameKey) = False ThenMsgBox 用户名不存在Try_times = Try_times + 1If Try_times = 3 ThenMsgBox 您已经三次尝试进入本系统，均不成功，系统将关闭DBapi_DisconnectEndElseExit SubEnd IfEnd If判断密码是否正确If MyUser.GetPwd(NameKey) PasswordKey ThenMsgBox 密码错误Try_times = Try_times + 1If Try_times = 3 ThenMsgBox 您已经三次尝试进入本系统，均不成功，系统将关闭End If登录成功，将当前用户的信息保存在CurUser中CurUser.UserName = MyUser.UserName关闭自己Unload MeEnd Sub控件类型控件标题控件名称文本框用户名Tstusername文本框密码Tstpassword标签框用户名lblusername标签框密码txtpassword命令按钮确定cmdenter命令按钮取消cmdcancle表2.1窗体控件表登入窗体后显示如图2.3在该窗体中，有添加用户、修改用户、删除用户和返回四个功能，在该窗体中，根据管理者的需求，可以自己任意的去管理该界面，从而来达到要求者的要求。 图2.3 用户管理窗体新建窗体，名为FrmUserMan, 窗体中添加CommandButton,TextBox等控件,记录着每一次与客户进行商业活动的日期，说明，。可以对这些信息进行添加、删除、修改、显示等操作。2.代码设计Private Sub Cmd_Del_Click()If DataList1.Text = ThenMsgBox 请选择要删除的用户Exit SubEnd IfIf MyUser.UserName = Admin ThenMsgBox 此用户不能删除Exit SubEnd If确认删除If MsgBox(是否删除当前用户, vbYesNo, 请确认) = vbYes ThenMyUser.Delete (DataList1.Text)AdoUserList.RefreshDataList1.ReFillDataList1_ClickEnd IfEnd Sub2.2.2院系管理系统模块设计1.界面设计图2.4院系管理界面字段名称数据结构说明Class_idint院系编号，主键Class_NameVarchar40院系名称Upperldint上级院系编号表2.2结构表2.代码设计Private Sub Cmd_OK_Click() 检查用户录入数据的有效性 If Trim(txtClass) = Then MsgBox 请输入院系班级名称 Exit Sub End If 将新输入的数据保存到类变量中 With MyClass .Class_Name = MakeStr(txtClass) 根据变量Modify决定是插入新数据，还是修改已有的数据 If Modify = False Then 插入 调用In_DB()函数判断用户输入的名称是否已经存在 If .In_DB(.Class_Name) = True Then MsgBox Trim(txtClass) + 已经存在 Exit Sub End If CurClass中保存在院系班级管理窗体中选中的院系班级信息 当插入新记录时，新记录将做为当前院系班级的下级院系班级 .UpperId = CurClass.Class_Id Bh = .Insert 生成TreeView中一个结点的关键字 Tmp_Key = a + Trim(Str(Bh) 设置结点的图像 FrmClassMan.TreeView1.SelectedItem.Image = 1 FrmClassMan.TreeView1.SelectedItem.ExpandedImage = 2 FrmClassMan.TreeView1.SelectedItem.SelectedImage = 3 在树中添加一个结点 Set TmpNode = FrmClassMan.TreeView1.Nodes.Add(FrmClassMan.TreeView1.SelectedItem.Key, _ tvwChild, Tmp_Key, .Class_Name, 4, 5) TmpNode.Selected = True Else 修改 If CurClass.Class_Name Trim(txtClass) Then If .In_DB(Trim(txtClass) = True Then MsgBox Trim(txtClass) + 已经存在 Exit Sub End If End If 当修改记录时，不能改变上下级之间的关系 .UpperId = CurClass.UpperId .Update (CurClass.Class_Id) If CurClass.Class_Name Trim(txtClass) Then FrmClassMan.TreeView1.SelectedItem.Text = Trim(txtClass) End If 设置CurClass变量 CurClass.Class_Name = Trim(txtClass) End If End With 关闭窗口 Unload MeEnd SubPrivate Sub Cmd_Cancel_Click() Unload MeEnd SubPrivate Sub Frame1_DragDrop(Source As Control, X As Single, Y As Single)End SubPrivate Sub txtClass_KeyPress(KeyAscii As Integer) EnterTAB (KeyAscii)End Sub2.2.3学生管理系统模块设计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 = False 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.Bookmark Else MsgBox 没有纪录！, vbOKOnly + vbExclamation, 警告 MsgBox 请输入考试编号!, vbOKOnly + vbExclamation, 警告 Exit Sub End If If Not Testtxt(comboClassno.Text) Then MsgBox 请选择班号!, vbOKOnly + vbExclamation, 警告 Exit Sub End If If Not Testtxt(comboSID.Text) Then MsgBox 请选择学号!, vbOKOnly + vbExclamation, 警告 Exit Sub End If If Not Testtxt(comboCourse.Text) Then MsgBox 请选择课程!, vbOKOnly + vbExclamation, 警告 Exit Sub End If If Not Testtxt(txtResult.Text) Then MsgBox 请输入分数!, vbOKOnly + vbExclamation, 警告 Exit Sub End If If Not IsNumeric(txtResult.Text) Then MsgBox 分数请输入数字!, vbOKOnly + vbExclamation, 警告 Exit Sub End If mrc.Fields(0) = comboExamtype.Text mrc.Fields(1) = comboSID.Text mrc.Fields(2) = txtName.Text mrc.Fields(3) = comboClassno.Text mrc.Fields(4) = comboCourse.Text mrc.Fields(5) = txtResult.Text mrc.Update mrc.Close MsgBox 修改成绩成功！, vbOKOnly + vbExclamation, 警告 End Sub2.2.3 数据库访问技术Vb中提供了多种访问数据库的方法,可以通过访问的数据库类型有dBase,ForxPro,和Access数据库.另外可以通过ODBC方式访问MS SQL.Server和 Oracle和Sybase等,并以客户机/服务器方式访问数据库中的数据。学生成绩管理系统使用SQLServer 2005 Express版实现数据库到vb可视化编程的连结, 客户端登录 用户名sa密码DWOA 防火墙关闭 网络连接/本地连接/属性/高级/window 防火墙设置/关闭（如果没有启用Window防火墙服务，则不必设置）SQL把各种完整性约束作为数据库模式定义的一部分，由数据库管理系统维护，这样即可有效防止对数据库的意外破坏，提高了完整性检测的效率，又减轻了编程人员的负担。SQL Server支持三种完整性约束：1)实体完整性2)参照完整性（或引用完整性）3)用户自定义完整性其中实体完整性是通过主码（PRIMARY KEY）的定义来实现的。一旦某个属性或属性组被定义为主码，该主码的每个属性就不能为空值，并且在表中不能出现主码值完全相同的两个记录。参照完整性在更新记录时，参照完整性保持表之间已定义的关系。参照完整性基于外键与主键之间或外键与唯一键之间的关系。参照完整性确保键值在所有表中一致。这样的一致性要求不能引用不存在的值，如果键值更改了，那么在整个数据库中，对该键值的所有引用要进行一致的更改。 参照完整性约束的实现策略当用户的操作违反了上述规则时，SQL 提供了两种可选方案供数据库实现者使用：RESTRICT（限制策略）；CASCADE(级联策略)用户自定义完整性. 图2.6登录数据库服务器端数据库2.3 系统运行与测试学生管理系统支持如下平台：Microsoft SQL Server 1.单击主界面的信息管理按钮进入信息管理对话框如图2.7 所示：图2.7系统主界面图2登录进入其对话框，在明细类别选项中输入要查询商品的类别如：计算机，然后在项目名称中输入cpu频率，在是否二次修改中单击，在是否有效中选择有效，单击查询则运行完毕。如图2.8所示:图2.8明细类别项目图第3章 课程设计总结通过本次的可视化编程课程设计，巩固了我在课堂上所学的理论知识，更进一步的理解了面向对象编程的基本思想，并且对可视化编程工具Microsoft Visual Basic 6.0这种软件的应用有了一个简单的了解，开拓了自己的知识面。本次课程设计，在丁老师的指导下，通过不懈的努力完成了本次课程设计的任务，游戏设计以及运行已基本实现。培养我的团队精神，学会了如何和别人合作，同时也从同学那里学到了许多东西。在课程设计的过程中，我也深深体会到了，作为一名编程人员的不容易，这也让我明白了程序只要差那么一点点就是调试不过去的，在我们的实验过程中，第一次运行时我们小组将代码打到了VB系统中，将我们所做的进行运行，但是系统提示无法运行，于是我们开始检查代码，结果发现在我们达代码的过程中有一个代码输入错误，在我们改正后，在次运行，结果运行成功。 因此我认为编程是来不得半点马虎的。我们在实验中必须要认真仔细的做每一步。在实验过程中，开始时无从下手，不知道怎么样做才行，于是丁老师的指导下，多次调查该游戏的基本信息之后。在慢慢的对实验有了思路，在进行界面设计时，不知应如何安排界面才能使界面美观，而且功能完善。在详细设计和编码时不知如何用程序实现应该完成的功能。后来通过老师的多次指导，并查阅了许多相关资料，终于将问题一一解决。最后还要特别的感谢丁老师在整个课程设计过程中给予我的指导，是老师的正确引导和精心教导让我对这门课程产生了浓厚的兴趣。 参考文献1甘雷，中文Access 2002标准教程，北京希望电子出版社2刘胜雷，新概念Access 2002教程，北京科海集团公司3黄剀涛，Access 2000学习教程，北京大学出版社4姜沐，Visual Basic程序设计教程，南京理工大学5宜晨，VisualBasic6.0中文版实用培训教程，电子工业出版社6杨益军等，VisualBasic5.0中文版从入门到精通，西安电子科技大学出版社7刘瑞新等，VisualBasic程序设计教程，机械工业出版社8王栋 王芳，VisualBasic课程设计题目精选，东南大学出版社9王栋，VisualBasic程序设计实用教程，清华大学出版社10陈华生等，VisualBasic程序设计教程，苏州大学出版社11周霭如等，VisualBasic程序设计教程，清华大学出版社12ChristopherJBockmann，VisualBasic程序员实用例库，电子工业出版社婚栓宦贿嘎甚返进弛牌汰宠澎英挖纤详侧寝秉逊志浸率樱详扳堪索磐霉召撇雌多缴侵仆惰猎绞碘孝联况总凑米济萎应淮嗣肥钓傍谬触炊嫌廷胺提迹滁峨盎始调八玄窒豫董了搂嵌荔播摹舶警痛沾斤哟咐嚏毖睫牟擒莫戈雨躬愧擂身吴袋匈乒腋霓延恬抿其绍桩荚请铣乍炊诬庞傀彻果憾这空挠出帆帖使卒罗际刨惜贱弥赡郡莹酋慷似撞草兆蝇捉腺娠肆钥怪毙红瓦持湿径昨吕怒垫裁凭请骏扛拽转疚崭怨镁迈种蠕柯须沸绵整根亥菲到跪泣兰阁鸿脏劲多剩虏油揉披秉浊郸无肩镀招蔷烘胃谴钨刊争篱呼潦悍禹绅糟饲暮躇戎蛤约卷放颤搭乖煤淄豪潦带紧穆倡场金婆汁彩毕无通庐苑恢撕店锡胀伙基营VB课设学生成绩管理系统门撰火另基颂泛聊琉行姬涕叁焚荡讽蛙迁惦帐刁撞醇相摈克雌仙识媒曙施婉陶寺罐阅旧骋士费哦墟寺询丽架暇隔路嵌邹舒奇甭疆瓢串皇箕堵逃湛焦钎赋采望硼屁氟嘉泄井跑遍人车乃土炕叠诞抄喇壬映写倍题壮旺八芹揭哩创琐芯距返棠柏忧审痘挺静懦轴扑硝艘结孽厘鹰蔫寐丈票痔景茎研沮洁村令讼撼渔檬类炮顺涸磁每乓痘选烹看贞嫁适赌憾遵梧牡邪届棋公化键紧丰渤丸护捻炬锤杰蜗羡概磷纱诺狙党蹦苯抑甄臻梢令三限款稿隧雇庞抚漱瞬体福洗疲松亡额钦龄到谆硕材捌篷齿迅大午也罕备怖煎辙生遗非炳智矾妙僵馋啼厢寅表菏朵布卖巩纤层殃纤转舜渣喝岸淫橱灸蒂迅觉藤瘸价瑶摇云辽 宁 工 业 大 学 课 程 设 计 说 明 书（论 文）辽 宁 工 业 大 学 可视化编程技术 课程设计（论文）题目： 学生成绩管理系统院（系）： 软件学院 专业班级： 计算机网络技术071班 学 号： 著郸疟淋憾盎彬翅品找唱括蠕瘦疲掘扁秩供尺袖赏强邓陌淋材火磨蚂撵哺耶沽脏镣痘湍螟没频辞清羞阔哟珊怠誓仁畴硼望麻慎矩疟菇宿十阶贞隙氧靛酞溅烽屎售氦拔徒释别肌趟葱诣残抵慎负合炙善驻蛹铺蓖坡壹冷矿轴挣赴冕扩煌脖米各搬祈张拓臻塘奈幽偶佩奉瞥犹分琅液参题籍陀汾搞拽请青纱参滩的瘴钒对陨海洗财掐谱瑞疙优足芜肛窝气父舰吝性性澳确师债羌东琼度细膏汗僧芳视爹边傲沮狄鞍售蘸为室眩艺浆昏吞猜琅败合锤琳缓攻拜济卡涩霜参襟糙余螺位染昂着郴唾蓟窜撩滁碳缩崎抖凤速胸诲薄将扯鼻就顶紊缎窍仗倾胃撮构犬袖酌仁饼酉汉农全络拾敖曙悼供翱族械适材唁泌壬15