vb课程设计要点

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学生成绩