- 1、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。。
- 2、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 3、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
- 4、该文档为VIP文档,如果想要下载,成为VIP会员后,下载免费。
- 5、成为VIP后,下载本文档将扣除1次下载权益。下载后,不支持退款、换文档。如有疑问请联系我们。
- 6、成为VIP后,您将拥有八大权益,权益包括:VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
- 7、VIP文档为合作方或网友上传,每下载1次, 网站将根据用户上传文档的质量评分、类型等,对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档
查看更多
VisualBasic 程序计任务书.doc
本文由 HYPERLINK 友情提供
2007/2008学年第1学期
课程设计任务书
课程名称 : Visual Basic 程序设计
班 级 :
学 生 :
指导老师:
设计题目:
小型学生管理系统
设计目的:
?掌握一个实际应用项目的开发过程
?自主开发一个小型的信息管理系统
设计环境:
?操作系统:微软视窗操作系统
?开发工具:VB 6.0
?使用数据库:Access 2000
设计要求:
开发一个小型学生管理系统,其功能主要包括密码登录、数据输入、浏览、查询、修改、统计等。
系统中主要功能模块包括:
本系统主要包括两大模块:学生信息管理及学生成绩管理
?系统启动界面:显示开发人员的名单及开发日期等
?登录窗体:用户登录界面
?学生管理主控窗体:含系统菜单的主窗体
?学生信息输入窗体:输入每个学生的基本数据
?学生信息修改窗体:浏览、修改、删除及查找学生的基本信息
?学生成绩输入窗体:输入学生成绩
?学生成绩修改窗体:浏览、修改、删除及查找学生的成绩信息
?学生成绩统计窗体:统计学生的总成绩、平均成绩、排名等
系统中的数据库及数据表可参考入下:
密码表:存放本系统用户名称及密码
学生基本信息表:包括学号、姓名、性别等基本信息
学生成绩表:包括学号、姓名、数门功课成绩等
成绩考核:
1、本设计结束后,上交程序源代码及设计报告书,源代码中必须有相应的说明以说明本代码段的功能。
2、设计中不得互相抄袭,如发现有互相抄袭的行为,两人成绩计为0分。
3、设计报告书中必须包含设计目的、设计思想、设计流程、程序实现过程、各功能模块介绍及操作方法、本次设计的心得体会等。报告书严格按照规定书写,不得抄袭。
信息工程系
2008年1月4日
实验步骤:
建立数据库
打开VB,启动外接程序的可视化数据库管理器菜单项,如下图
在VisData窗口中,选择文件,新建,Microsoft Access,Version7.0MDB菜单项,如下图,
在弹出的对话框中选择保存数据库的文件夹,输入数据库文件名为学生信息,单击保存,
即可新建一个还没有任何数据表的数据库,在新建的数据库窗口中单击右键,在弹出的快捷彩蛋中选择新建表菜单。如下图。
单击添加字段,如下左图,输入数据,重复该步骤到所有数据输入完后单击关闭。在数据窗口中,双击数据表名,在随后弹出的数据编辑窗口中单击添加按钮,出现下右图所示的添加新纪录窗口。数据数据后单击更新按钮,在谈出的询问是否保存新纪录对话框中单击是按钮, 该纪录便保存到数据表中。
以上就是数据库的创建。
程序设计
程序运行结果如下图,代码已保存.
单击确定,进入输入用户名密码界面,如下图:
图1 图2
单击学生基本信息查询,显示学生基本信息,如下图:
图3 图4
单击查询纪录,输入想要查询的名字,单击删除纪录,删除当前纪录,如下图
进入学生成绩表,如下图
图5
程序所有代码如下:
图1代码:
Private Sub Command1_Click()
Unload Form1 退出form1窗体
Form2.Show 显示form2窗体
End Sub
Private Sub Command2_Click()
End 退出
End Sub
图2代码:
Private Sub Command1_Click()
If Text1.Text = Data1.Recordset(用户名) Then 如果text1与data1里的用户名相同,那么then
If Text2.Text = Data1.Recordset(密码) Then 如果text2与data1里的密码相同,那么then
Unload Form2 退出form2
Form3.Show 显示form3
End If
Else
MsgBox 用户ID或用户密码错误 弹出对话框提示
End If
End Sub
Private Sub Command2_Click()
Unload Form2
Form1.Show
End S
文档评论(0)