版权说明:本文档由用户提供并上传,收益归属内容提供方,若内容存在侵权,请进行举报或认领
文档简介
1、课程设计任务书学院信息工程学院班级11级通信一班姓名陈宇设计起止日期2012年12月24至26日设计题目:学生成绩信息管理系统设计任务(主要技术参数):目的是进一步培养协商综合应用 visual basic 的各种编程知识和技巧设计的能 力。通过课程设计,学生能达到具备设计功能较为复杂的windows应用能力。同时,通过课程设计,培养学生自主学习和独立创新的精神,是人才培养体系中极为重要的 一环。随着学校的规模不断扩大,学生人数急剧增加,有关学生的各种成绩也成倍增长。 面对庞大的信息量需要有学生管理系统来提供学生管理工作的效率。通过这样的系统可以做到信息的规划管理,科学统计和快速查询,修改,录
2、入,删除等,从而减少管 理方面的工作量。实现学生信息关系的系统化,规范化,自动化,用计算机对学生各 种信息进行日常管理。指导教师评语:成绩:签字:年月日课程设计说明书no.16沈阳大学学生成绩信息管理系统1课程设计题目学生成绩信息管理系统2功能描述本程序主要有部分构成;按姓名查询系统,按学号查询系统,逐条查询系统, 录入系统,删除系统,修改系统,主窗体等。目的是方便快捷的查询到所需内容,并且 修改方便,一目了然。3概要设计根据功能描述,现将系统的体系结构,即组成系统的若干子功能模块说明如下。学生成绩信息管理系统按 学 号 查 询按姓名查询逐条查询录入删除1按学号查询:此模块的功能是输入学号查询
3、学生成绩信息。2按姓名查询:此模块的功能是输入姓名查询学生成绩信息。3逐条查询:此模块的功能是输入各项信息查询学生成绩信息。4录入:此模块的功能是录入学生成绩各项信息。5删除:此模块的功能是删除学生成绩错误信息。6修改:此模块的功能是修改学生成绩信息。4详细设计(1)创建主窗体建立主窗体:单击“工程”-添加mdi窗体”菜单,在弹出的对话框中单击”打 开”按钮则为当前项目添加了一个 mdi窗体。设置好mdi窗体属性后,设置此项目的属 性。单击“工程-”工程1属性”菜单,进入项目属性设置窗体。在此项目属性窗体 中通用选项卡的启动对象中选择mdifrmmain项,将这一多文档窗体作为程序的启动窗体。
4、(2)主要窗体的实现主页面模块的设计:此模块是系统服务器端的主要控制界面,通过菜单的选择,可 以控制系统的所有功能。主界面的设计步骤:1)设计主界面控件布局:在主界面的布局中使用了工具栏( toolbar)、和图象列表 (imagelist )等非vb标准控件。2)工具栏的设置:给工具栏添加按钮。3)添加菜单:菜单的使用是为了更好的给用学生供功能指引,同时也简单了主菜 单的操作。(3)创建系统主界面当系统运行时,便直接进入主窗体,窗体的上方标有各个功能键,每个功能键又包 含若干功能,启动系统主界面,没有用到任何插件。(4)如果信息录入错误,需对学生信息进行修改:在该系统中,此模块是必不可少的首
5、要环节。通过检查对入住录入的信息的修改, 可方便老师和学生查询信息。显示有关控件;通过语句:酒店信息管理.txt for input as #1。实现对相关数据所在文本文件以读方式打开;通过语句:学生成绩信息管理系统temp.txt for output as #2 在当前文件夹中创建联系人号码temp.txt文件。 增删数据完成后,通过语句:kill app.path & 酒店信息管理.txt nameapp.path & 学生成绩信息管理系统学生成绩信息管理系统.txt 删除原来的联系人号码.txt文件,保留后者。既增删数据成功。5运行效果1.查询系统的主界面2.根据学号查询3.根据姓名查
6、询4.逐条查询5.录入存在的不足:只能单一的查询成绩信息,没有其他复杂的登录界面,程序简单可查询的信息量小6心德与体会通过此次课程设计我懂得了很多,在这次的课程设计中不仅检验了我所学习的知 识,也培养了我如何去把握一件事情,如何去做一件事情,又如何完成一件事情。在设 计过程中,与同学分工设计,和同学们相互探讨,相互学习,相互监督。学会了合作, 学会了运筹帷幄,学会了宽容,学会了理解,也学会了做人与处世。课程设计是我们专业课程知识综合应用的实践训练,着是我们迈向社会,从事职业 工作前一个必不少的过程. 千里之行始于足下”,通过这次课程设计,我深深体会到 这句千古名言的真正含义.我今天认真的进行课
7、程设计,学会脚踏实地迈开这一步,就 是为明天能稳健地在社会大潮中奔跑打下坚实的基础.7附录:各功能模块的全部代码。1主窗体代码private sub chaxun1_click()load frm_ 查询 1frm_ 查询 1.showend subprivate sub chaxun2_click()load frm_ 查询 2frm_ 查询 2.showend subprivate sub chaxun3_click()load frm_ 查询 3frm_ 查询 3.showend subprivate sub image1_click()end subprivate sub form_l
8、oad()end subprivate sub jishiben_click()shell c:windowsnotepad.exe, vbnormalfocusend subprivate sub jisuanqi_click()shell c:windowssystem32calc.exe, vbnormalfocusend subprivate sub luru_click()load frm_ 录入frm_ 录入.showend subprivate sub shanchu_click()load frm_ 删除frm_ 删除.showend subprivate sub tuichu
9、_click()endend subprivate sub xiugai_click()load frm_ 修改frm_ 修改.showend sub2学号查询代码private sub command1_click()on error resume nextdh = trim(text1.text)学生成绩信息管理.txt for input as #1do while not eof(1)line input #1, xa = trim(left(x, 10)b = trim(mid(x, 11,20)c = trim(mid(x, 31,20)if dh = b thenmsgbox a
10、 & chr(13) & b & chr(13) & cend ifloopclose #1end subprivate sub form_unload(cancel as integer)on error resume nextclose #1end subprivate sub picture1_click()end sub3姓名查询代码private sub command2_click()on error resume nextxm = trim(text2.text)学生成绩信息管理.txt for input as #1do while not eof(1)line input #
11、1, xa = trim(left(x, 10)b = trim(mid(x, 11,20)c = trim(mid(x, 31,20)if xm = a thenmsgbox a & chr(13) & b & chr(13) & cend ifloopclose #1end subprivate sub form_unload(cancel as integer)on error resume nextclose #1end sub4逐条查询代码private sub command1_click()on error resume nextdh = trim(text1.text)学生成绩
12、信息管理.txt for input as #1do while not eof(1)input #1, xa = trim(left(x, 20)b = trim(mid(x, 21,20)c = trim(mid(x, 41,20)if dh = b or dh = c thenmsgbox a & chr(13) & b & chr(13) & cend ifloopclose #1end subprivate sub command2_click()on error resume nextxm = trim(text2.text)学生成绩信息管理.txt for input as #1
13、do while not eof(1)input #1, xa = trim(left(x, 20)b = trim(mid(x, 21,20)c = trim(mid(x, 41,20)if xm = a thenmsgbox a & chr(13) & b & chr(13) & cend ifloopclose #1end subprivate sub command3_click()学生成绩信息管理.txt for input as #1command3.enabled = falsecommand4.enabled = truecommand5.enabled = trueend s
14、ubprivate sub command4_click()if not eof(1) thenline input #1, xtext3.text = trim(left(x, 10)text4.text = trim(mid(x, 11,20)text5.text = trim(mid(x, 31,20)elsemsgbox 已经是最后一条了 end ifend subprivate sub command5_click()close #1command3.enabled = truecommand4.enabled = falsecommand5.enabled = falseend s
15、ubprivate sub form_load()command3.enabled = truecommand4.enabled = falsecommand5.enabled = falseend subprivate sub form_unload(cancel as integer)close #1end sub5录入代码private sub command1_click()学生成绩信息管理.txt for append as #1print #1, text1.text; tab(11); text2.text; tab(31); text3.textclose #1textl.te
16、xt =text2.text =text3.text =end subprivate sub command2_click()unload meend subprivate sub form_load()text1.text =text2.text =text3.text =end sub6修改代码dim n as integerdim num as integerprivate sub command4_click()学生成绩信息管理.txt for input as #1学生成绩信息管理temp.txt for output as #2for i = 1 to n - 1line inpu
17、t #1, aprint #2, anext iline input #1, aprint #2, text1.text; tab(11); text2.text; tab(31); text3.textfor i = n + 1 to numline input #1, aprint #2, anext iclose #2close #1学生成绩信息管理.txt学生成绩信息管理电话.txtend subprivate sub command5_click()unload meend subprivate sub form_load()num = 0hscroll1.min = 1学生成绩信息
18、管理.txt for input as #1do while not eof(1)line input #1, anum = num + 1loopclose #1hscroll1.max = numend subprivate sub hscroll1_change()学生成绩信息管理.txt for input as #1for i = 1 to hscroll1.valueline input #1, xnext itext1.text = trim(left(x, 10)text2.text = trim(mid(x, 11,20)text3.text = trim(mid(x, 31
19、,20)close #1n = hscrolli.valueend sub7删除代码dim n as integerdim num as integerprivate sub command1_click()k = msgbox(是否确定要删除? , vbyesno + vbexclamation,删除一条数据)if k = 6 then学生成绩信息管理.txt for input as #1学生成绩信息管理temp.txt for output as #2for i = 1 to n - 1line input #1, aprint #2, anext iline input #1, afor i = n + 1 to numline input #1, aprint #2, anext iclose #2close #1num = num - 1hscroll1.max = num学生成绩信息管理.txt学生成绩信息管理学生成绩信息管理.txtend ifend subprivate sub command2_click()unload meend subprivate sub form_load()num = 0hscroll1.min = 1学生成绩
温馨提示
- 1. 本站所有资源如无特殊说明,都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
- 2. 本站的文档不包含任何第三方提供的附件图纸等,如果需要附件,请联系上传者。文件的所有权益归上传用户所有。
- 3. 本站RAR压缩包中若带图纸,网页内容里面会有图纸预览,若没有图纸预览就没有图纸。
- 4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
- 5. 人人文库网仅提供信息存储空间,仅对用户上传内容的表现方式做保护处理,对用户上传分享的文档内容本身不做任何修改或编辑,并不能对任何下载内容负责。
- 6. 下载文件中如有侵权或不适当内容,请与我们联系,我们立即纠正。
- 7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。
最新文档
- 员工保证书范文
- 油田工程建设系统人员测试专项试卷
- 学校应急预案汇编2
- 语文统编版(2024)一年级上册语文园地一 教案
- 会计数据分析 课件 第8章 财务报表分析
- 2024届山西省运城市重点中学高三练习三(全国卷I)数学试题
- 科学的声音课件
- 5年中考3年模拟试卷初中生物八年级下册第一节地球上生命的起源
- 学校预防自然灾害(暴风雨雪天气、地震)应急处置预案
- 高中语文《人的正确思想是从哪里来的?》随堂练习(含答案)
- 身份证号码前6 位表示的地区对照表
- 残疾人政策解读课件
- 五年级《小学生安全教育》课件
- (新版)征信知识竞赛基础题库(500题)
- 高中校园五防安全教育主题班会课件
- 公司章程可下载打印
- 超声引导血管穿刺优质课件
- 工程管理概论知识点总结
- 车辆出入登记审批表参考模板范本
- 四级公路设计总说明
- 中小学校岗位安全工作指导手册1
评论
0/150
提交评论