VisualBasic 程序计任务书

1、.本文由友情提供2007/2008学年第1学期课程设计任务书课程名称 ： visual basic 程序设计 班 级 ： 学 生 ： 指导老师： 精品.设计题目：小型学生管理系统设计目的：u掌握一个实际应用项目的开发过程u自主开发一个小型的信息管理系统设计环境：u操作系统：微软视窗操作系统u开发工具：vb 6.0u使用数据库：access 2000设计要求：开发一个小型学生管理系统，其功能主要包括密码登录、数据输入、浏览、查询、修改、统计等。系统中主要功能模块包括:本系统主要包括两大模块：学生信息管理及学生成绩管理系统启动界面：显示开发人员的名单及开发日期等 登录

2、窗体：用户登录界面学生管理主控窗体：含系统菜单的主窗体 学生信息输入窗体：输入每个学生的基本数据 学生信息修改窗体：浏览、修改、删除及查找学生的基本信息学生成绩输入窗体：输入学生成绩 学生成绩修改窗体：浏览、修改、删除及查找学生的成绩信息学生成绩统计窗体：统计学生的总成绩、平均成绩、排名等系统中的数据库及数据表可参考入下： 密码表：存放本系统用户名称及密码精品.学生基本信息表：包括学号、姓名、性别等基本信息学生成绩表：包括学号、姓名、数门功课成绩等成绩考核：1、本设计结束后，上交程序源代码及设计报告书，源代码中必须有相应的说明以说明本代码段的功能。2、设计中不得互相抄袭，如发现有互相抄袭的行为

3、，两人成绩计为0分。3、设计报告书中必须包含设计目的、设计思想、设计流程、程序实现过程、各功能模块介绍及操作方法、本次设计的心得体会等。报告书严格按照规定书写，不得抄袭。 信息工程系2008年1月4日实验步骤：1. 建立数据库打开vb，启动外接程序的可视化数据库管理器菜单项，如下图精品.在visdata窗口中，选择文件，新建，microsoft access,version7.0mdb菜单项，如下图，在弹出的对话框中选择保存数据库的文件夹，输入数据库文件名为学生信息，单击保存，即可新建一个还没有任何数据表的数据库，在新建的数据库窗口中单击右键，在弹出的快捷彩蛋中选择新建表菜单。如下图。单击添加

4、字段，如下左图，输入数据，重复该步骤到所有数据输入完后单击关闭。在数据窗口中，双击数据表名，在随后弹出的数据编辑窗口中单击添加按钮，出现下右图所示的添加新纪录窗口。数据数据后单击更新按钮，在谈出的询问是否保存新纪录对话框中单击是按钮， 该纪录便保存到数据表中。精品.以上就是数据库的创建。2. 程序设计程序运行结果如下图，代码已保存.单击确定，进入输入用户名密码界面，如下图： 图1 图2单击学生基本信息查询，显示学生基本信息，如下图：精品. 图3 图4单击查询纪录，输入想要查询的名字，单击删除纪录，删除当前纪录，如下图进入学生成绩表，如下图 图5程序所有代码如下：精品.图1代码：private

5、sub command1_click()unload form1 退出form1窗体form2.show 显示form2窗体end subprivate sub command2_click()end 退出end sub图2代码：private sub command1_click()if text1.text = data1.recordset(用户名) then 如果text1与data1里的用户名相同，那么thenif text2.text = data1.recordset(密码) then 如果text2与data1里的密码相同，那么thenunload form2 退出form2f

6、orm3.show 显示form3end ifelsemsgbox 用户id或用户密码错误 弹出对话框提示end ifend subprivate sub command2_click()unload form2form1.showend sub精品.private sub form_load()data1.visible = false 运行程序后不现实data1控件end sub图3代码：private sub command1_click()form4.showunload form3end subprivate sub command2_click()form5.showunload

7、form3end subprivate sub command3_click()endend sub图4代码：private sub cmdappend_click()data1.recordset.addnew 增加一个新纪录txtnum = : txtname = : txtsex = : txtage = : txtclass = : txtmajor = : txtbrithday = : txtphone = 让上数text.text不现实内容txtnum.setfocuscmdupdate.enabled = true 更新按钮可用end subprivate sub cmdbac

8、k_click()form3.show精品.unload form4end subprivate sub cmdbottom_click()data1.recordset.movelast 最后一项cmdnext.enabled = false 按钮cmdnext不可用cmdprev.enabled = truetxtnum = data1.recordset(学号)txtname = data1.recordset(姓名)txtsex = data1.recordset(性别)txtage = data1.recordset(年龄)txtclass = data1.recordset(班级)

9、txtmajor = data1.recordset(专业)txtbrithday = data1.recordset(生日)txtphone = data1.recordset(联系电话)end subprivate sub cmddelete_click()c = msgbox(are you really?, vbyseno) 提示if c = vbyes thendata1.recordset.deletedata1.recordset.movepreviousend ifend subprivate sub cmdend_click()endend subprivate sub cm

10、dinqury_click()精品.dim name as stringname = inputbox(请输入欲查询的学生姓名) 提示data1.recordset.movefirstdata1.recordset.findfirst (姓名= & & name & )do while not data1.recordset.nomatchtxtnum = data1.recordset(学号)txtname = data1.recordset(姓名)txtsex = data1.recordset(性别)txtage = data1.recordset(年龄)txtclass = data1

11、.recordset(班级)txtmajor = data1.recordset(专业)txtbrithday = data1.recordset(生日)txtphone = data1.recordset(联系电话)k = msgbox(还想继续查询吗?, vbyesno)if k = vbyes thendata1.recordset.findnext (姓名= & & name & )elseexit doend ifloopif data1.recordset.nomatch thenmsgbox 没有所要查找的学生elsemsgbox (查询结束)end ifend subpriva

12、te sub cmdnext_click()data1.recordset.movenext 下一项cmdprev.enabled = true精品.if data1.recordset.bof = false thentxtnum = data1.recordset(学号)txtname = data1.recordset(姓名)txtsex = data1.recordset(性别)txtage = data1.recordset(年龄)txtclass = data1.recordset(班级)txtmajor = data1.recordset(专业)txtbrithday = dat

13、a1.recordset(生日)txtphone = data1.recordset(联系电话)elsecmdnext.enabled = false cmdnext不可用data1.recordset.moveprevious 上一项end ifend subprivate sub cmdprev_click()data1.recordset.moveprevious 上一项cmdnext.enabled = trueif data1.recordset.bof = false thentxtnum = data1.recordset(学号)txtname = data1.recordset

14、(姓名)txtsex = data1.recordset(性别)txtage = data1.recordset(年龄)txtclass = data1.recordset(班级)txtmajor = data1.recordset(专业)txtbrithday = data1.recordset(生日)txtphone = data1.recordset(联系电话)elsecmdprev.enabled = false cmdprev不可用data1.recordset.movenext精品.end ifend subprivate sub cmdtop_click()data1.recor

15、dset.movefirst 最上面项cmdprev.enabled = falsecmdnext.enabled = truetxtnum = data1.recordset(学号)txtname = data1.recordset(姓名)txtsex = data1.recordset(性别)txtage = data1.recordset(年龄)txtclass = data1.recordset(班级)txtmajor = data1.recordset(专业)txtbrithday = data1.recordset(生日)txtphone = data1.recordset(联系电

16、话)end subprivate sub command9_click()form3.showunload form4end subprivate sub cmdupdate_click()data1.recordset(学号) = txtnumdata1.recordset(姓名) = txtnamedata1.recordset(性别) = txtsexdata1.recordset(年龄) = txtagedata1.recordset(班级) = txtclassdata1.recordset(专业) = txtmajordata1.recordset(生日) = txtbrithda

17、y精品.data1.recordset(联系电话) = txtphonedata1.recordset.updatecmdupdate.enabled = falseend subprivate sub form_load()cmdprev.enabled = falsecmdupdate.enabled = falsedata1.visible = falseend sub图5代码：private sub cmdtop_click()data1.recordset.movefirstcmdprev.enabled = falsecmdnext.enabled = truetxtnum = d

18、ata1.recordset(学号)txtname = data1.recordset(姓名)txtyuwen = data1.recordset(语文)txtshuxue = data1.recordset(数学)txtyingyu = data1.recordset(英语)txtdili = data1.recordset(地理)txtshengwu = data1.recordset(生物)txthuaxue = data1.recordset(化学)txtlishi = data1.recordset(历史)txtzhengzhi = data1.recordset(政治)end su

19、bprivate sub cmdzcj_click()txtzcj.text = (val(txtyuwen.text) + val(txtshuxue.text) + val(txtyingyu.text) + val(txtdili.text) + val(txthuaxue.text) + val(txtshengwu.text) + val(txtlishi.text) + val(txtzhengzhi.text)精品. 求和end subprivate sub cmdback_click()unload form5 关闭form5form3.show 打开form3end subp

20、rivate sub cmdend_click()endend subprivate sub cmdbottom_click()data1.recordset.movelastcmdnext.enabled = falsecmdprev.enabled = truetxtnum = data1.recordset(学号)txtname = data1.recordset(姓名)txtyuwen = data1.recordset(语文)txtshuxue = data1.recordset(数学)txtyingyu = data1.recordset(英语)txtdili = data1.re

21、cordset(地理)txtshengwu = data1.recordset(生物)txthuaxue = data1.recordset(化学)txtlishi = data1.recordset(历史)txtzhengzhi = data1.recordset(政治)end subprivate sub cmdprev_click()精品.data1.recordset.movepreviouscmdnext.enabled = trueif data1.recordset.bof = false thentxtnum = data1.recordset(学号)txtname = dat

22、a1.recordset(姓名)txtyuwen = data1.recordset(语文)txtshuxue = data1.recordset(数学)txtyingyu = data1.recordset(英语)txtdili = data1.recordset(地理)txtshengwu = data1.recordset(生物)txthuaxue = data1.recordset(化学)txtlishi = data1.recordset(历史)txtzhengzhi = data1.recordset(政治)elsecmdprev.enabled = falsedata1.reco

23、rdset.movenextend ifend subprivate sub cmdnext_click()data1.recordset.movenextcmdprev.enabled = trueif data1.recordset.eof = false thentxtnum = data1.recordset(学号)txtname = data1.recordset(姓名)txtyuwen = data1.recordset(语文)txtshuxue = data1.recordset(数学)txtyingyu = data1.recordset(英语)txtdili = data1.

24、recordset(地理)txtshengwu = data1.recordset(生物)精品.txthuaxue = data1.recordset(化学)txtlishi = data1.recordset(历史)txtzhengzhi = data1.recordset(政治)elsecmdnext.enabled = falsedata1.recordset.movepreviousend ifend subprivate sub cmdappend_click()data1.recordset.addnewtxtnum = : txtname = : txtyuwen = : txt

25、shuxue = : txtyingyu = : txtdili = : txtshengwu = : txthuaxue = : txtlishi = : txtzhengzhi = 定义每个txt显示为空textnum.setfocuscmdupdate.enabled = trueend subprivate sub cmdupdate_click()data1.recordset(学号) = txtnumdata1.recordset(姓名) = txtnamedata1.recordset(语文) = txtyuwendata1.recordset(数学) = txtshuxueda

26、ta1.recordset(英语) = txtyingyudata1.recordset(地理) = txtlishidata1.recordset(化学) = txthuaxuedata1.recordset(生物) = txtshengwudata1.recordset(历史) = txtlishidata1.recordset(政治) = txtzhengzhidata1.recordset.update精品.cmdupdate.enabled = falseend subprivate sub cmdinqury_click()dim name as stringname = inpu

27、tbox(请输入要查询的学生姓名)data1.recordset.movefirstdata1.recordset.findfirst (姓名= & & name & )do while not data1.recordset.nomatchtxtnum = data1.recordset(学号)txtname = data1.recordset(姓名)txtyuwen = data1.recordset(语文)txtshuxue = data1.recordset(数学)txtyingyu = data1.recordset(英语)txtdili = data1.recordset(地理)txtshengwu = data1.recordset(生物)txthuaxue = data1.r