学生档案管理系统编码实现Word格式文档下载.docx
- 文档编号:14991009
- 上传时间:2022-10-26
- 格式:DOCX
- 页数:58
- 大小:58.09KB
学生档案管理系统编码实现Word格式文档下载.docx
《学生档案管理系统编码实现Word格式文档下载.docx》由会员分享,可在线阅读,更多相关《学生档案管理系统编码实现Word格式文档下载.docx(58页珍藏版)》请在冰豆网上搜索。
DimMsgTextAsString
DimTxtSQLAsString
IfFrmstart_UserInfo="
Have"
Then'
如果有表中有用户信息
TxtSQL="
select*fromUser_DiskwhereUser_ID='
"
&
Trim(TxtUserID.Text)&
"
'
andUser_Type='
ComUserType.Text
&
SetMrc=ExecuteSQL(TxtSQL,MsgText)
IfMrc.EOF=FalseThen
IfTrim(TxtUserPWD.Text)=DeCrypt(Mrc.Fields
(2),19820226)Then'
利用解密算法(数据库中的密码解密后与输入的密码比较)
User_AdminType=ComUserType.Text'
记录用户类型
User_AdminID=Trim(TxtUserID.Text)'
记录用户编号
User_AdminName=Mrc.Fields(0)'
记录用户姓名
UnloadMe
MDIFrm_Admin.Show
Else
MsgBox"
对不起,您输入的密码错误,请重新输入!
vbOKOnly+vbExclamation,"
用户PWD昔误”
TxtUserPWD.Text="
TxtUserPWD.SetFocus
FrmStart_InwriteNO=FrmStart_InwriteNO+1
EndIf
IfTxtUserID.Text="
admin"
Then
IfTxtUserPWD.Text="
User_AdminType="
超级管理员"
User_AdminID="
User_AdminName="
对不起,您输入的用户ID错误,请重新输
入!
vbOKOnly+vbExclamation,"
用户ID错误"
TxtUserID.Text="
:
TxtUserPWD.Text="
TxtUserID.SetFocus
对不起,您输入的用户ID错误,请重新输入!
用户ID错误"
Else'
表中无用户信息
AndTxtUserPWD.Text="
用户名和密码都是admin
IfTxtUserID.Text<
>
对不起,你输入的用户ID错误,请重新输入!
vbOKOnly+vbExclamation,"
检查用户名或密码错误的次数,如果大于6次则退出系统,防止恶意破译密码
IfFrmStart_InwriteNO>
=6Then
对不起,您输入用户信息的错误次数过多!
系统警告"
2.2学生基本信息录入的实现代码如下:
PrivateSubCMD_OK_Click()
IfNotTesttxt(Trim(TxtStudent_Name.Text))Then
学生姓名不能为空,请您填写!
系统提示"
TxtStudent_Name.SetFocus
ExitSub
IfNotTesttxt(Trim(ComStudent_Six.Text))Then
性别不能为空,请您选择!
vbOKOnlyvbExclamation,"
ComStudent_Six.SetFocus
IfNotTesttxt(Trim(ComStudent_BirthdayYear.Text))Then
出生日期不能为空,请您选择!
ComStudent_BirthdayYear.SetFocus
IfNotTesttxt(Trim(ComStudent_BirthdayMonth.Text))Then
ComStudent_BirthdayMonth.SetFocus
IfNotTesttxt(Trim(ComStudent_BirthdayDay.Text))Then
出生日期不能为空,请您选择!
ComStudent_BirthdayDay.SetFocus
IfNotTesttxt(Trim(TxtStudent_FaMaName.Text))Then
家长姓名不能为空,请您填写!
TxtStudent_FaMaName.SetFocus
IfNotTesttxt(Trim(ComStudent_StuGX.Text))Then
与学生关系不能为空,请您选择!
ComStudent_StuGX.SetFocus
IfNotTesttxt(Trim(TxtStudent_FaMaJob.Text))Then
家长职业不能为空,请您填写!
TxtStudent_FaMaJob.SetFocus
IfNotTesttxt(Trim(TxtStudent_FamilyAdress.Text))Then
家庭住址不能为空,请您填写!
TxtStudent_FamilyAdress.SetFocus
IfNotTesttxt(Trim(TxtStudent_SchoolNO.Text))Then
学号不能为空,请您填写!
TxtStudent_SchoolNO.SetFocus
IfNotTesttxt(Trim(ComStudent_ClassNO.Text))Then
班级不能为空,请您选择!
ComStudent_ClassNO.SetFocus
IfNotTesttxt(Trim(ComStudent_XB.Text))Then
系别不能为空,请您选择!
ComStudent_XB.SetFocus
IfNotTesttxt(Trim(ComStudent_InSchoolYear.Text))Then
入学时间不能为空,请您选择!
ComStudent_InSchoolYear.SetFocus
IfNotTesttxt(Trim(ComStu
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 学生 档案管理系统 编码 实现