学生管理系统VBWord格式文档下载.docx
- 文档编号:20420132
- 上传时间:2023-01-22
- 格式:DOCX
- 页数:104
- 大小:1.20MB
学生管理系统VBWord格式文档下载.docx
《学生管理系统VBWord格式文档下载.docx》由会员分享,可在线阅读,更多相关《学生管理系统VBWord格式文档下载.docx(104页珍藏版)》请在冰豆网上搜索。
学生成绩信息
实体和实体之间的关系E-R如下
三数据库结构的实现
1.3.1创建数据库和数据表
1创建系统用户表格user-Info
CREATTABLE[dbo].[user-info](
[user-ID][char](10)COLLATEChinese-PRC-CI-ASNOTNULL,
[user-PWD][char](10)COLLATEChinese-PRC-CI-ASNULL,
[user-Des][char](10)COLLATEChinese-PRC-CI-ASNULL,
)ON[PRIMARY]
2创建学生基本信息表格student_Info
CREATETABLE[dbo].[student_Info](
[student_ID][int]NOTNULL,
[student-ID][char](10)COLLATEChinese-PRC-CI-ASNULL,
[student-Sex][char]
(2)COLLATEChinese-PRC-CI-ASNULL,
[born_Date][datetime]NULL,
[class_NO][int]NULL,
[tele_Number][char](10)COLLATEChinese-PRC-CI-ASNULL,
[ru_Date][datetime]NULL,
[address][varchar](50)COLLATEChinese-PRC-CI-ASNULL,
[comment][varchar](200)COLLATEChinese-PRC-CI-ASNULL,
3创建班级信息表格class_Info
CREATTABLE[dbo].[class-info](
[class_No][int]NOTNULL,
[grade][char](10)COLLATEChinese-PRC-CI-ASNULL
[director][char](10)COLLATEChinese-PRC-CI-ASNULL
[classroom_No][char](10)COLLATEChinese-PRC-CI-ASNULL
)ON[PRIMARY]
4创建课程基本信息表course_Info
CREATTABLE[dbo].[course-info](
[course_No][int]NOTNULL,
[course_Name][char](10)COLLATEChinese-PRC-CI-ASNULL
[course_Type][char](10)COLLATEChinese-PRC-CI-ASNULL
[course_Des][char](50)COLLATEChinese-PRC-CI-ASNULL
5创建年级课程设置信息表gradecourse_Info
CREATTABLE[dbo].[gradecourse-info](
6创建学生成绩信息表result_Info
CREATTABLE[dbo].[result-info](
[exam_No][char](10)COLLATEChinese-PRC-CI-ASNOTNUL
[student_ID][int]NOTNULL
[student–Name][char](10)COLLATEChinese-PRC-CI-ASNULL
[class_No][int]NULL
[result][float]NULL
程序总体结构:
Student_mis系统的module1模块
PublicfMainFormAsfrmMain
PublicUserNameAsString
SubMain()
DimfLoginAsNewfrmLogin
fLogin.ShowvbModal
IfNotfLogin.OKThen
'
LoginFailedsoexitapp
End
EndIf
UnloadfLogin
SetfMainForm=NewfrmMain
fMainForm.Show
EndSub
PublicFunctionConnectString()_AsString
'
returnsaDBConnectString
ConnectString="
FileDSN=studentinfo.dsn;
UID=;
PWD="
EndFunction
PublicFunctionExecuteSQL(ByValSQL_AsString,,MsgStringAsString)_AsADODB.Recordset
executesSQLandreturnsRecordset
DimcnnAsADODB.Connection
DimrstAsADODB.Recordset
DimsTokens()AsString
OnErrorGoToExecuteSQL_Error
sTokens=Split(SQL)
Setcnn=NewADODB.Connection
cnn.OpenConnectString
IfInStr("
INSERT,DELETE,UPDATE"
_
UCase$(sTokens(0)))Then
cnn.ExecuteSQL
MsgString=sTokens(0)&
_
"
querysuccessful"
Else
Setrst=NewADODB.Recordset
rst.OpenTrim$(SQL),cnn,_
adOpenKeyset,_
adLockOptimistic
rst.MoveLast'
getRecordCount
SetExecuteSQL=rst
MsgString="
查询到"
&
rst.RecordCount&
条记录"
ExecuteSQL_Exit:
Setrst=Nothing
Setcnn=Nothing
ExitFunction
ExecuteSQL_Error:
查询错误:
Err.Description
ResumeExecuteSQL_Exit
PublicFunctionTesttxt(txtAsString)AsBoolean
IfTrim(txt)="
"
Then
Testtxt=False
Testtxt=True
ODBC配置
四系统用户管理模块的创建
控件
属性
属性取值
frmLogin(From)
Name
frmLogin
Caption
StartUpPostion
CenterScreen
WindowState
Nomal
txtUserName
txtpassword
txtPassword
Password
*
cmdOK
确定
cmdCancel
取消
Label1
学生信息管理系统
Label2
用户名
Label3
用户密码
Label
版权提供
主要实现:
1用户登录
2添加用户
3修改用户密码
系统启动后,将首先出现如下图所示的用户登录窗体,用户首先输入用户名,然后输入密码,如果用户3次输入密码不正确,将退出程序。
用户登录窗体中放置两个文本文档(TextBox),用来输入用户名和用户密码;
两个按钮(CommandButton)用来确定或取消登录;
4个标签(Label)用来标示窗体的信息。
为窗体定义全局变量OK,用来判断登陆是否成功;
定义miCount,用来记载输入密码的次数,并且在载入窗体时初始化这两个变量,代码如下:
用户登录窗体创建
‘强制变量声明
代码实现如下:
OptionExplicit
PublicOKAsBoolean
记录确定次数
DimmiCountAsInteger
PrivateSubForm_Load()
OK=False
miCount=0
OptionExplicit是用来规定所有变量使用前必须定义。
这样可以避免由于输入错误而产生的新变量。
当用户输入完用户名和用户密码,单击cmdOK按钮将对用户输入信息进行判断。
用户单击按钮,将触发按钮cmdOK的Click事件,代码如下:
PrivateSubcmdOK_Click()
用来存放SQL语句
DimtxtSQLAsString
用来存放记录集对象
DimmrcAsADODB.Recordset
用来存放返回信息
DimMsgTextAsString
ToDo:
createtestforcorrectpassword
checkforcorrectpassword
UserName="
IfTrim(txtUserName.Text="
)Then
判断输入用户名为空
MsgBox"
没有这个用户,请重新输入用户名!
vbOKOnly+vbExclamation,"
警告"
txtUserName.SetFocus
txtSQL="
select*fromuser_Infowhereuser_ID='
txtUserName.Text&
Setmrc=ExecuteSQL(txtSQL,MsgText)
Ifmrc.EOF=TrueThen
没有这个用户,请重新输入用户名!
IfTrim(mrc.Fields
(1))=Trim(txtPassword.Text)Then
OK=True
mrc.Close
Me.Hide
UserName=Trim(txtUserName.Text)
输入密码不正确,请重新输入!
txtPassword.SetFocus
txtPassword.Text="
miCount=miCount+1
IfmiCount=3Then
ExitSub
用户如果没有输入用户名密码,将出现消息框给予提示。
如果输入的用户名在用户表格中没有找到,将提示重新输入用户名,文本档txtUserName将重新获得输入焦点。
如果用户输入密码不正确,文本档txtUserName将重新获得输入焦点。
用户登录成功,全局变量OK将被赋值为Ture;
一旦三次输入密码均不正确,全局变量OK将被赋值为False。
公用模块中的Main过程将根据OK的值决定是退出,或者进入系统。
如果用户取消登录,单击“取消”按钮,将触发按钮的Click事件;
代码如下:
OK=False
me.Hide
Me是VisualBasic中一个常用的对象,用来指代当前对象本身。
添加用户窗体创建
Txtpassword1
txtPassword1
password
*
用户需要两次输入密码,用来确保输入密码的正确。
用户输入信息完毕,单击“确定”按键将触发Click事件,代码如下:
PrivateSubcmdCancel_Click()
UnloadMe
DimmrcAsADODB.Recordset
IfTrim(Text1(0).Text)="
请输入用户名称!
Text1(0).SetFocus
select*fromuser_Info"
判断数据集是否为空
While(mrc.EOF=False)
判断是否有重复记录
IfTrim(mrc.Fields(0))=Trim(Text1(0))Then
用户已经存在,请重新输入用户名!
Text1(0).Text="
Text1
(1).Text="
Text1
(2).Text="
移动到下一条记录
mrc.MoveNext
Wend
判断两次输入密码是否一致
IfTrim(Text1
(1).Text)<
>
Trim(Text1
(2).Text)Then
两次输入密码不一样,请确认!
Text1
(1).SetFocus
判断输入密码是否为空
IfText1
(1).Text="
密码不能为空!
mrc.AddNew
mrc.Fields(0)=Trim(Text1(0).Text)
mrc.Fields
(1)=Trim(Text1
(1).Text)
mrc.Update
添加用户成功!
添加用户"
EndSub
一旦输入密码完毕,系统将首先查询数据库中与新建用户名相同的记录,如果有相同的记录将提示用户重新输入用户名。
但确定数据库中没有相同的用户名,并且两次输入密码一致的时候,将把该条记录添加到数据库中。
单击取消按钮将取消添加用户的操作。
修改用户密码窗体创建
两次输入密码后,单击“确认”按钮,将触发Click事件判断是否修改密码,代码如下
修改密码
请输入密码
请确认密码
PrivateSubcudOK_Click()
DimtxtSQL,MsgTextAsString
DimmrcADODB.Recrodset
‘判断是否为空
IfTrim(Text
(1).Text)<
Trim((Text
(2).Text)Then
MsgBox“密码输入不正确!
”,vbOKOnly+vbExclamation,“警告”
Text
(1).SetFocus
Text
(1).Text=“”
Else
txtSQL=”select*fromuser_Infowhereuser_ID=””&
UserName&
””
Setmrc=ExecuteSQL(txtSQL,MsgText)
mrc.Fields
(1)=Text
(1).Text
MsgBox”密码修改成功!
”,vbOKOnly+vbExclamation,”修改密码”
Me.hide
Endif
Endsub
学籍管理模块的创建
属性取值
txtSID
txtTel
txtRudate
txtAddress
ScrollBars
Vertical
MultiLine
True
txtComment
comboGender
comboClassNo
cmdFirst
cndOK
第一条记录
cmdPrevious
cmdNext
上一条记录
下一条记录
cmdLast
最后一条记录
cmdEdit
修改记录
cmdUpdate
更新记录
取消修改记录
cmdDelete
删除记录
Frame1
查看学籍信息
Frame2
修改学籍信息
学号
姓名
性别
Label4
出生日期
Label5
班号
Label6
联系电话
Label7
入校日期
Label8
家庭住址
Label9
备注
功能如下
1添加学籍信息
2修改学籍信息
3查询学籍信息
添加学籍信息窗体创建
PrivateSubCommand1_Click()
定义数据集对象
定义字符串变量,表示查询语句
DimtxtSQLAsString
定义字符串变量,返回查询信息
是否输入学号
IfNot
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 学生 管理 系统 VB