VB课设实例Word文档格式.docx
- 文档编号:19191376
- 上传时间:2023-01-04
- 格式:DOCX
- 页数:31
- 大小:1.11MB
VB课设实例Word文档格式.docx
《VB课设实例Word文档格式.docx》由会员分享,可在线阅读,更多相关《VB课设实例Word文档格式.docx(31页珍藏版)》请在冰豆网上搜索。
结构化查询语言SQL:
结构化查询语言(StructruedQueryLauguage,SQL)是访问数据库的标准语言,使用SQL语言可以从数据库中获取数据,建立数据库和数据库对象,增加,修改数据和实现复杂的查询功能。
它是本系统实现的基础。
使用data控件访问数据库:
主要使用的是data控件和数据绑定控件编写数据库应用程序的方法。
二.系统功能简介
1.系统概述
随着学校的规模不断扩大,学生数量急剧增加,有关学生的各种信息量也成倍增长。
面对庞大的信息量,需要有学生管理系统来提高学生管理工作的效率。
通过这样的系统,可以做到信息的规范管理、科学统计和快速的查询,从而减少管理方面的工作量。
2.系统的组成以及各模块的功能
系统开发的总任务是实现学生信息关系的系统化、规范化和自动化。
系统主要由五部分组成:
系统用户的管理、学生成绩的管理、学生学籍信息的管理、信息的查询,其中还包括登录界面以及成绩的统计模块。
各模块的主要功能如下:
●系统用户的管理:
实现用户的添加、删除和密码的修改
●学生学籍信息的管理:
实现学生学籍信息的添加、删除和修改。
●学生成绩的管理:
实现学生成绩的录入,删除和修改。
●学生信息的查询:
实现学生学籍的查询、成绩的查询。
●学生成绩信息的统计:
实现学生男女生人数以及不及格人数的统计。
3.系统的运行环境
系统使用环境
操作系统:
windowsxp/2000/me/98
系统支持:
visualbasic6.0及以上版本
数据库:
access
系统开发环境
visualbasic6.0
三系统设计
1.总体结构设计
对上述各项功能进行集中、分块,按照结构化层序设计的要求,得到如下所示的系统功能功能模块图。
小型成绩管理系统
成绩查询
成绩修改
成绩录入
成绩管理
信息查询
信息修改
信息添加
学生信息
项目统计
退出系统
修改密码
添加用户
统计信息
系统管理
2.数据库设计
数据库在本成绩管理系统中占有非常重要的地位,数据库结构的好坏将直接对应用系统的效率以及实现的效率产生影响。
合理的数据库及结构设计可以提高数据存储的效率,保证数据的完整和一致。
同时合理的数据库结构也将有利于程序的实现。
设计本系统的数据库应该充分满足用户的需求。
针对一般学生管理系统的需求,通过对学生学习过程的内容的分析,设计如下面所示的数据项和数据结构
●基本信息表:
包括的字段有:
学号,姓名,性别,年龄,联系电话,家庭住址。
●成绩表:
包括的字段有:
学号,姓名,性别,年龄,高数成绩,英语成绩,计算机成绩,平均成绩。
●密码表:
用户名,密码。
●教师密码表:
用户名,密码。
⑵得到上面的数据项就可以设计出能够满足用户需求的各种实体以及他们之间的关系。
由上面的设计规划出的实体有:
用户实体、信息实体、成绩实体。
按照以上实体进行设计:
(1)打开可视化数据管理器程序
(2)建立数据库(3)创建数据库表(4)添加字段(5)生成表⑹添加内容
基本信息表
字段名称
数据类型
字段大小
学号
文本
10
姓名
性别
2
年龄
数字
联系电话
50
班级
家庭住址
等。
四系统实现
现在已经完成了程序各个功能模块的创建,现在可以进行系统的实现了
1登录界面实现
第一个登陆界面选择用户类型,分为教师和学生。
具体图形及相关代码如下所示:
核心代码:
PrivateSubCommand1_Click()
dl.Hide
xsdl.Show进入学生登陆界面
EndSub
PrivateSubCommand2_Click()
jsdl.Show进入教师登陆界面
PrivateSubForm_Load()
Label1.Width=dl.ScaleWidth
Label1.Left=dl.ScaleWidth设定标签(欢迎使用成绩管理系统)的起始值
PrivateSubTimer1_Timer()
IfLabel1.Left+Label1.Width>
=0Then
Label1.Left=Label1.Left-50
Else
Label1.Left=dl.ScaleWidth使上述标签以一定的时间运动
EndIf
学生登陆界面
核心代码如下:
UserName="
"
IfTrim(Text1.Text)="
Then
MsgBox"
用户名不能为空,请重新输入!
vbOKOnly+vbExclamation,"
警告"
‘判断输入是否为空,若是,则弹出窗体警告!
Text1.SetFocus
Data1.RecordSource="
select*from密码表where用户名='
&
Text1.Text&
"
'
and密码='
Text2.Text&
连接数据库,查找满足条件的记录。
Data1.Refresh刷新数据库
IfData1.Recordset.BOF=TrueAndData1.Recordset.EOF=TrueThen
用户名或密码输入错误,请重新输入!
Text2.SetFocus判断所查找的记录是否存在,即输入的用户名和密码是否匹配
UserName=Text1.Text
Text2.Text="
Me.Hide
Form4.Show若是匹配,则当前窗体隐藏,进入学生成绩查询界面。
Text1.Text="
EndSub“取消”按钮,使两个文本框内容为空。
Label1.Left=dl.ScaleWidth使标签按一定的时间运动,达到电子滚动的效果。
教师登陆界面:
核心代码如下所示;
该界面代码与上个界面基本一致。
select*from教师密码表where用户名='
Data1.Refresh
Text2.SetFocus
main.Show
Text3.Text="
IfLabel3.Left+Label3.Width>
Label3.Left=Label3.Left-50
Label3.Left=jsdl.ScaleWidth
Label3.Width=jsdl.ScaleWidth
学生成绩查询界面:
使用一个data控件,一个MSFlexgrid控件,两个命令按钮。
代码如下:
End
EndSub单击“退出系统”按钮,结束程序。
xiugaimima.Show单击修改“密码按钮”,进入学生修改密码界面。
select*from成绩表where学号='
xsdl.Text1.Text&
EndSub当界面载入的时候,就连接数据库,并查找出满足学号等于学生登陆窗体中的用户名的记录。
学生密码修改界面:
IfTrim(Text1.Text)<
>
Trim(Text2.Text)Then
密码输入不正确!
信息提示"
判断两次输入地密码是否一致,若不一致,则弹出警告,重新输入!
'
Data1.Recordset.Edit
Data1.Recordset.Fields("
密码"
)=Text1.Text
Data1.Recordset.Update
密码修改成功!
修改密码"
EndIf若是一致,则连接数据库,将所输入的新密码修改并加入数据库。
EndSub单击“取消”按钮,将文本框清空。
PrivateSubCommand3_Click()
Form4.Show单击“返回”按钮,当前窗体隐藏,学生成绩查询界面出现。
主窗体界面:
PrivateSubtcxt_Click()
End单击“退出系统”按钮,结束程序。
PrivateSubtjyh_Click()
tianjiayonghu.Show单击“添加用户”按钮,当前窗体隐藏,“添加用户窗体”出现。
PrivateSubxgmm_Click()
jiaoshimimaxiugai.Show单击“修改密码”按钮,当前窗体隐藏,“教师修改密码”窗体出现。
PrivateSubxmtj_Click()
xiangmutongji.Show单击“项目统计”按钮,进入“项目统计”界面
PrivateSubxxcx_Click()
xinxichaxun.Show单击“信息查询”按钮,进入“学生信息查询”界面。
PrivateSubxxtj_Click()
xueshengxinxitianjia.Show单击“信息添加”按钮,进入“学生信息添加”界面。
PrivateSubxxxg_Click()
xinxixiugai.Show单击“信息修改”按钮,进入“学生信息修改”界面。
PrivateSubcjcx_Click()
main.Hide
chengjichaxun.Show
EndSub单击“成绩查询”按钮,进入“成绩查询”界面。
PrivateSubcjlr_Click()
chengjiluru.Show
EndSubv单击“成绩录入”按钮,进入“成绩录入”界面。
PrivateSubcjxg_Click()
chengjixiugai.Show单击“成绩修改”按钮,进入成绩修改界面。
添加用户界面:
请输入用户名!
Text1.SetFocus判断用户名是否为空,若为空,则弹出警告,输入用户名!
ExitSub
IfNotData1.Recordset.EOFThen
用户已存在,请重新输入用户名!
提示信息"
:
Text2.Text="
Text3.Text="
EndIf若不为空,连接数据库,判断该用户名是否已经存在,若已经存在,弹出警告,重新输入!
IfTrim(Text2.Text)<
Trim(Text3.Text)Then
两次输入的密码不一样,请确认!
若两次输入地密码不一致,则弹出警告,确认并重新输入密码。
WithData1
.Recordset.AddNew
.Recordset.Fields(0)=Trim(Text1.Text)
.Recordset.Fields
(1)=Trim(Text2.Text)
.Recordset.Update
EndWith
添加用户成功!
添加用户"
EndSub若上述情况均没有,则连接数据库,将输入的用户信息添加到“教师密码表”中去。
单击“取消”按钮,将文本框清空。
main.Show单击“返回”按钮,返回到主界面。
修改密码界面:
判断两次输入的密码是否一致,若不一致,弹出警告,并重新输入。
Data1.Recordset.Update若一致,连接数据库,进行修改,将所输入密码保存到数据库中去。
EndSub弹出“修改成功”的窗体。
EndSub清空文本框。
Form4.Show
EndSub返回主界面。
添加学生信息界面:
IfText2.Text="
OrText3.Text="
学号和姓名不能为空!
ExitSub判断“学号”和“姓名”是否为空,若是,则弹出警告,重新输入!
select*from基本信息表where学号='
Trim(Text2.Text)&
IfData1.Recordset.BOF=FalseAndData1.Recordset.EOF=FalseThen
输入的学号已经存在,请重新输入!
Text2.SetFocus若不为空,连接数据库,判断输入的学号是否已经存在,若存在,弹出警告,重新输入!
Data1.Recordset.AddNew
Data1.Recordset.Fields(0)=Text2.Text
Data1.Recordset.Fields
(1)=Text3.Text
Data1.Recordset.Fields
(2)=text4.Text
Data1.Recordset.Fields(3)=Text5.Text
Data1.Recordset.Fields(4)=Text6.Text
Data1.Recordset.Fields(5)=Text7.Text
Data1.Recordset.Fields(6)=Text8.Text
添加成功!
若不为空,且输入的学号不存在,则连接数据库,将所输入的信息添加到“基本信息表”中。
Data2.RecordSource="
Data2.Refresh
Data3.RecordSource="
Data3.Refresh
Data2.Recordset.AddNew
Data2.Recordset.Fields(0)=Text2.Text
Data2.Recordset.Fields
(1)=Text3.Text
Data2.Recordset.Update
Data3.Recordset.AddNew
Data3.Recordset.Fields(0)=Text2.Text
Data3.Recordset.Fields
(1)=Text2.Text
Data3.Recordset.Update
EndIf同时,也将输入的学号添加到“成绩表”与“密码表”中,
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- VB 实例
![提示](https://static.bdocx.com/images/bang_tan.gif)