VisualBasic程序计任务书

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

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

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

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

5、下：图1代码：Private Sub mand1_Click()Unload Form1 '退出form1窗体'Form2.Show '显示form2窗体'End SubPrivate Sub mand2_Click()End '退出'End Sub图2代码：Private Sub mand1_Click()If Te*t1.Te*t = Data1.Recordset("用户名") Then '如果te*t1与data1里的用户名一样，则then'If Te*t2.Te*t = Data1.Recordset

6、("密码") Then '如果te*t2与data1里的密码一样，则then'Unload Form2 '退出form2'Form3.Show '显示form3'End IfElseMsgBo* "用户ID或用户密码错误" '弹出对话框提示'End IfEnd SubPrivate Sub mand2_Click()Unload Form2Form1.ShowEnd SubPrivate Sub Form_Load()Data1.Visible = False '运行程序后不现实da

7、ta1控件'End Sub图3代码：Private Sub mand1_Click()Form4.ShowUnload Form3End SubPrivate Sub mand2_Click()Form5.ShowUnload Form3End SubPrivate Sub mand3_Click()EndEnd Sub图4代码：Private Sub CmdAppend_Click()Data1.Recordset.AddNew '增加一个新纪录'T*tNum = ": T*tName = ": T*tSe* = ": T*tAge =

8、": T*tClass = ": T*tMajor = ": T*tBrithday = ": T*tPhone = " '让上数te*t.te*t不现实容'T*tNum.SetFocusCmdUpdate.Enabled = True '更新按钮可用'End SubPrivate Sub CmdBack_Click()Form3.ShowUnload Form4End SubPrivate Sub CmdBottom_Click()Data1.Recordset.MoveLast '最后一项'C

9、mdNe*t.Enabled = False '按钮CmdNe*t不可用'CmdPrev.Enabled = TrueT*tNum = Data1.Recordset("*")T*tName = Data1.Recordset(")T*tSe* = Data1.Recordset("性别")T*tAge = Data1.Recordset("年龄")T*tClass = Data1.Recordset("班级")T*tMajor = Data1.Recordset("专业&quo

10、t;)T*tBrithday = Data1.Recordset("生日")T*tPhone = Data1.Recordset("联系")End SubPrivate Sub CmdDelete_Click()c = MsgBo*("Are you really?", vbYseNo) '提示'If c = vbYes ThenEnd IfEnd SubPrivate Sub CmdEnd_Click()EndEnd SubPrivate Sub CmdInqury_Click()Dim name As String

11、name = InputBo*("请输入欲查询的学生") '提示't ("=" & "'" & name & "'")T*tNum = Data1.Recordset("*")T*tName = Data1.Recordset(")T*tSe* = Data1.Recordset("性别")T*tAge = Data1.Recordset("年龄")T*tClass = Data1.Reco

12、rdset("班级")T*tMajor = Data1.Recordset("专业")T*tBrithday = Data1.Recordset("生日")T*tPhone = Data1.Recordset("联系")k = MsgBo*("还想继续查询吗?", vbYesNo)If k = vbYes ThenData1.Recordset.FindNe*t ("=" & "'" & name & "'

13、")ElseE*it DoEnd IfLoopIf Data1.Recordset.NoMatch ThenMsgBo* "没有所要查找的学生"ElseMsgBo* ("查询完毕")End IfEnd SubPrivate Sub CmdNe*t_Click()Data1.Recordset.MoveNe*t '下一项'CmdPrev.Enabled = TrueIf Data1.Recordset.BOF = False ThenT*tNum = Data1.Recordset("*")T*tName =

14、Data1.Recordset(")T*tSe* = Data1.Recordset("性别")T*tAge = Data1.Recordset("年龄")T*tClass = Data1.Recordset("班级")T*tMajor = Data1.Recordset("专业")T*tBrithday = Data1.Recordset("生日")T*tPhone = Data1.Recordset("联系")ElseCmdNe*t.Enabled = Fals

15、eCmdNe*t不可用 '上一项'End IfEnd SubPrivate Sub CmdPrev_Click()Data1.Recordset.MovePrevious '上一项'CmdNe*t.Enabled = TrueIf Data1.Recordset.BOF = False ThenT*tNum = Data1.Recordset("*")T*tName = Data1.Recordset(")T*tSe* = Data1.Recordset("性别")T*tAge = Data1.Recordset

16、("年龄")T*tClass = Data1.Recordset("班级")T*tMajor = Data1.Recordset("专业")T*tBrithday = Data1.Recordset("生日")T*tPhone = Data1.Recordset("联系")ElseCmdPrev.Enabled = FalseCmdPrev不可用End IfEnd SubPrivate Sub CmdTop_Click()Data1.Recordset.MoveFirst '最上面项&#

17、39;CmdPrev.Enabled = FalseCmdNe*t.Enabled = TrueT*tNum = Data1.Recordset("*")T*tName = Data1.Recordset(")T*tSe* = Data1.Recordset("性别")T*tAge = Data1.Recordset("年龄")T*tClass = Data1.Recordset("班级")T*tMajor = Data1.Recordset("专业")T*tBrithday = Da

18、ta1.Recordset("生日")T*tPhone = Data1.Recordset("联系")End SubPrivate Sub mand9_Click()Form3.ShowUnload Form4End SubPrivate Sub CmdUpdate_Click()Data1.Recordset("*") = T*tNumData1.Recordset(") = T*tNameData1.Recordset("性别") = T*tSe*Data1.Recordset("年龄&qu

19、ot;) = T*tAgeData1.Recordset("班级") = T*tClassData1.Recordset("专业") = T*tMajorData1.Recordset("生日") = T*tBrithdayData1.Recordset("联系") = T*tPhoneCmdUpdate.Enabled = FalseEnd SubPrivate Sub Form_Load()CmdPrev.Enabled = FalseCmdUpdate.Enabled = FalseData1.Visible

20、 = FalseEnd Sub图5代码：Private Sub CmdTop_Click()CmdPrev.Enabled = FalseCmdNe*t.Enabled = TrueT*tNum = Data1.Recordset("*")T*tName = Data1.Recordset(")T*tYuwen = Data1.Recordset("语文")T*tShu*ue = Data1.Recordset("数学")T*tYingyu = Data1.Recordset("英语")T*tDili =

21、 Data1.Recordset("地理")T*tShengwu = Data1.Recordset("生物")T*tHua*ue = Data1.Recordset("化学")T*tLishi = Data1.Recordset("历史")T*tZhengzhi = Data1.Recordset("政治")End SubPrivate Sub CmdZcj_Click()T*tZcj.Te*t = (Val(T*tYuwen.Te*t) + Val(T*tShu*ue.Te*t) + Val

22、(T*tYingyu.Te*t) + Val(T*tDili.Te*t) + Val(T*tHua*ue.Te*t) + Val(T*tShengwu.Te*t) + Val(T*tLishi.Te*t) + Val(T*tZhengzhi.Te*t)求和End SubPrivate Sub CmdBack_Click()Unload Form5关闭form5Form3.Show翻开form3End SubPrivate Sub CmdEnd_Click()EndEnd SubPrivate Sub CmdBottom_Click()CmdNe*t.Enabled = FalseCmdPrev

23、.Enabled = TrueT*tNum = Data1.Recordset("*")T*tName = Data1.Recordset(")T*tYuwen = Data1.Recordset("语文")T*tShu*ue = Data1.Recordset("数学")T*tYingyu = Data1.Recordset("英语")T*tDili = Data1.Recordset("地理")T*tShengwu = Data1.Recordset("生物")

24、T*tHua*ue = Data1.Recordset("化学")T*tLishi = Data1.Recordset("历史")T*tZhengzhi = Data1.Recordset("政治")End SubPrivate Sub CmdPrev_Click()CmdNe*t.Enabled = TrueIf Data1.Recordset.BOF = False ThenT*tNum = Data1.Recordset("*")T*tName = Data1.Recordset(")T*tYuwe

25、n = Data1.Recordset("语文")T*tShu*ue = Data1.Recordset("数学")T*tYingyu = Data1.Recordset("英语")T*tDili = Data1.Recordset("地理")T*tShengwu = Data1.Recordset("生物")T*tHua*ue = Data1.Recordset("化学")T*tLishi = Data1.Recordset("历史")T*tZhengz

26、hi = Data1.Recordset("政治")ElseCmdPrev.Enabled = FalseEnd IfEnd SubPrivate Sub CmdNe*t_Click()CmdPrev.Enabled = TrueIf Data1.Recordset.EOF = False ThenT*tNum = Data1.Recordset("*")T*tName = Data1.Recordset(")T*tYuwen = Data1.Recordset("语文")T*tShu*ue = Data1.Recordse

27、t("数学")T*tYingyu = Data1.Recordset("英语")T*tDili = Data1.Recordset("地理")T*tShengwu = Data1.Recordset("生物")T*tHua*ue = Data1.Recordset("化学")T*tLishi = Data1.Recordset("历史")T*tZhengzhi = Data1.Recordset("政治")ElseCmdNe*t.Enabled = Fal

28、seEnd IfEnd SubPrivate Sub CmdAppend_Click()T*tNum = ": T*tName = ": T*tYuwen = ": T*tShu*ue = ": T*tYingyu = ": T*tDili = ": T*tShengwu = ": T*tHua*ue = ": T*tLishi = ": T*tZhengzhi = "定义每个T*t显示为空Te*tNum.SetFocusCmdUpdate.Enabled = TrueEnd SubPrivat

29、e Sub CmdUpdate_Click()Data1.Recordset("*") = T*tNumData1.Recordset(") = T*tNameData1.Recordset("语文") = T*tYuwenData1.Recordset("数学") = T*tShu*ueData1.Recordset("英语") = T*tYingyuData1.Recordset("地理") = T*tLishiData1.Recordset("化学") = T

30、*tHua*ueData1.Recordset("生物") = T*tShengwuData1.Recordset("历史") = T*tLishiData1.Recordset("政治") = T*tZhengzhiCmdUpdate.Enabled = FalseEnd SubPrivate Sub CmdInqury_Click()Dim name As Stringname = InputBo*("请输入要查询的学生")Data1.Recordset.FindFirst ("=" & "'" & name & "'")T*tNum = Data1.Recordset("*")T*tName = Data1.Recordset(")T*tYuwen = Data1.Recordset("语文")T*tShu*ue = Data1.Recordset("数学")T*tYingyu = Data1.Recordset("英语")T*tDili = Data1.Reco