学生档案管理系统编码实现.docx
- 文档编号:2072274
- 上传时间:2022-10-26
- 格式:DOCX
- 页数:58
- 大小:58.09KB
学生档案管理系统编码实现.docx
《学生档案管理系统编码实现.docx》由会员分享,可在线阅读,更多相关《学生档案管理系统编码实现.docx(58页珍藏版)》请在冰豆网上搜索。
学生档案管理系统编码实现
学生档案管理系统编码实现
1、开发平台
本文论述了在WindowsXP平台下,利用VisualBasic6.0可视化开发软件工具,分析、设计、开发学生档案管理系统的过程。
通过对计算机硬件和软件解决方案的论证,对应用领域进行调查分析,参考各种资料和进行数据库编程实践,在指导老师的帮助下,已经基本上成功地实现了设计要求。
所设计的数据库系统能够实现学生信息管理,成绩管理,系统管理等功能。
该系统基本上满足了用户在学校信息管理方面的需求,用户界面友好。
此系统更加贴近信息电子化处理,从而降低了人工劳动并增加了信息的准确性。
本课题采用的开发工具是VB6.0。
VisualBasic是一种可视化编程环境,一种方便快捷的Windows应用程序开发工具,它使用了MicrosoftWindows图形用户界面的许多特性和设计思想,采用了弹性可重复利用的完整面向对象程序语言,是一种非常方便实用的编辑器,较为领先的数据库技术。
2、源代码
2.1登录界面中,“登录”按钮的实现代码如下:
DimMrcAsADODB.Recordset
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
Else
IfTxtUserID.Text="admin"Then
IfTxtUserPWD.Text="admin"Then
User_AdminType="超级管理员"
User_AdminID="admin"
User_AdminName="超级管理员"
UnloadMe
MDIFrm_Admin.Show
EndIf
Else
MsgBox"对不起,您输入的用户ID错误,请重新输
入!
",vbOKOnly+vbExclamation,"用户ID错误"
TxtUserID.Text="":
TxtUserPWD.Text=""
TxtUserID.SetFocus
FrmStart_InwriteNO=FrmStart_InwriteNO+1
EndIf
Else
MsgBox"对不起,您输入的用户ID错误,请重新输入!
",vbOKOnly+vbExclamation,"用户ID错误"
TxtUserID.Text="":
TxtUserPWD.Text=""
TxtUserID.SetFocus
FrmStart_InwriteNO=FrmStart_InwriteNO+1
EndIf
EndIf
Else'表中无用户信息
IfTxtUserID.Text="admin"AndTxtUserPWD.Text="admin"Then'用户名和密码都是admin
User_AdminType="超级管理员"
User_AdminID="admin"
User_AdminName="超级管理员"
UnloadMe
MDIFrm_Admin.Show
Else
IfTxtUserID.Text<>"admin"Then
MsgBox"对不起,你输入的用户ID错误,请重新输入!
",vbOKOnly+vbExclamation,"用户ID错误"
TxtUserID.Text="":
TxtUserPWD.Text=""
TxtUserID.SetFocus
FrmStart_InwriteNO=FrmStart_InwriteNO+1
Else
MsgBox"对不起,您输入的密码错误,请重新输入!
",vbOKOnly+vbExclamation,"用户PWD昔误”
TxtUserPWD.Text=""
TxtUserPWD.SetFocus
FrmStart_InwriteNO=FrmStart_InwriteNO+1
EndIf
EndIf
EndIf
'检查用户名或密码错误的次数,如果大于6次则退出系统,防止恶意破译密码
IfFrmStart_InwriteNO>=6Then
MsgBox"对不起,您输入用户信息的错误次数过多!
",vbOKOnly+vbExclamation,"系统警告"
UnloadMe
EndIf
2.2学生基本信息录入的实现代码如下:
PrivateSubCMD_OK_Click()
DimMrcAsADODB.Recordset
DimTxtSQLAsString
DimMsgTextAsString
IfNotTesttxt(Trim(TxtStudent_Name.Text))Then
MsgBox"学生姓名不能为空,请您填写!
",vbOKOnly+vbExclamation,"系统提示"
TxtStudent_Name.SetFocus
ExitSub
EndIf
IfNotTesttxt(Trim(ComStudent_Six.Text))Then
MsgBox"性别不能为空,请您选择!
",vbOKOnlyvbExclamation,"系统提示"
ComStudent_Six.SetFocus
ExitSub
EndIf
IfNotTesttxt(Trim(ComStudent_BirthdayYear.Text))Then
MsgBox"出生日期不能为空,请您选择!
",vbOKOnlyvbExclamation,"系统提示"
ComStudent_BirthdayYear.SetFocus
ExitSub
EndIf
IfNotTesttxt(Trim(ComStudent_BirthdayMonth.Text))Then
MsgBox"出生日期不能为空,请您选择!
",vbOKOnlyvbExclamation,"系统提示"
ComStudent_BirthdayMonth.SetFocus
ExitSub
EndIf
IfNotTesttxt(Trim(ComStudent_BirthdayDay.Text))Then
MsgBox"出生日期不能为空,请您选择!
",vbOKOnly+vbExclamation,"系统提示"
ComStudent_BirthdayDay.SetFocus
ExitSub
EndIf
IfNotTesttxt(Trim(TxtStudent_FaMaName.Text))Then
MsgBox"家长姓名不能为空,请您填写!
",vbOKOnlyvbExclamation,"系统提示"
TxtStudent_FaMaName.SetFocus
ExitSub
EndIf
IfNotTesttxt(Trim(ComStudent_StuGX.Text))Then
MsgBox"与学生关系不能为空,请您选择!
",vbOKOnly+vbExclamation,"系统提示"
ComStudent_StuGX.SetFocus
ExitSub
EndIf
IfNotTesttxt(Trim(TxtStudent_FaMaJob.Text))Then
MsgBox"家长职业不能为空,请您填写!
",vbOKOnlyvbExclamation,"系统提示"
TxtStudent_FaMaJob.SetFocus
ExitSub
EndIf
IfNotTesttxt(Trim(TxtStudent_FamilyAdress.Text))Then
MsgBox"家庭住址不能为空,请您填写!
",vbOKOnlyvbExclamation,"系统提示"
TxtStudent_FamilyAdress.SetFocus
ExitSub
EndIf
IfNotTesttxt(Trim(TxtStudent_SchoolNO.Text))Then
MsgBox"学号不能为空,请您填写!
",vbOKOnlyvbExclamation,"系统提示"
TxtStudent_SchoolNO.SetFocus
ExitSub
EndIf
IfNotTesttxt(Trim(ComStudent_ClassNO.Text))Then
MsgBox"班级不能为空,请您选择!
",vbOKOnlyvbExclamation,"系统提示"
ComStudent_ClassNO.SetFocus
ExitSub
EndIf
IfNotTesttxt(Trim(ComStudent_XB.Text))Then
MsgBox"系别不能为空,请您选择!
",vbOKOnlyvbExclamation,"系统提示"
ComStudent_XB.SetFocus
ExitSub
EndIf
IfNotTesttxt(Trim(ComStudent_InSchoolYear.Text))Then
MsgBox"入学时间不能为空,请您选择!
",vbOKOnlyvbExclamation,"系统提示"
ComStudent_InSchoolYear.SetFocus
ExitSub
EndIf
IfNotTesttxt(Trim(ComStu
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 学生 档案管理系统 编码 实现