visualbasic 程序计任务书

《visualbasic 程序计任务书》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

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

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

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

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

5、除纪录，删除当前纪录，如下图...进入学生成绩表，如下图图5程序所有代码如下：图1代码：PrivateSubCommand1_Click()UnloadForm1'退出form1窗体'Form2.Show'显示form2窗体'EndSubPrivateSubCommand2_Click()End'退出'EndSub...图2代码：PrivateSubCommand1_Click()IfText1.Text=Data1.Recordset("用户名")Then'如果text1与data1里的用户名相同，那么then'IfText2.Text=Data1.Re

6、cordset("密码")Then'如果text2与data1里的密码相同，那么then'UnloadForm2'退出form2'Form3.Show'显示form3'EndIfElseMsgBox"用户ID或用户密码错误"'弹出对话框提示'EndIfEndSubPrivateSubCommand2_Click()UnloadForm2Form1.ShowEndSubPrivateSubForm_Load()Data1.Visible=False'运行程序后不现实data1控件'EndSub图3代码：PrivateSubCommand1_Click()Fo

7、rm4.ShowUnloadForm3EndSubPrivateSubCommand2_Click()Form5.Show...UnloadForm3EndSubPrivateSubCommand3_Click()EndEndSub图4代码：PrivateSubCmdAppend_Click()Data1.Recordset.AddNew'增加一个新纪录'TxtNum="":TxtName="":TxtSex="":TxtAge="":TxtClass="":TxtMajor="":TxtBrithday="":TxtPhone=""'让上数text.te

8、xt不现实内容'TxtNum.SetFocusCmdUpdate.