学生档案管理完整编码实现.docVIP

学生档案管理系统编码实现 开发平台 本文论述了在Windows XP平台下，利用Visual Basic 6.0可视化开发软件工具，分析、设计、开发学生档案管理系统的过程。通过对计算机硬件和软件解决方案的论证，对应用领域进行调查分析，参考各种资料和进行数据库编程实践，在指导老师的帮助下，已经基本上成功地实现了设计要求。所设计的数据库系统能够实现学生信息管理，成绩管理，系统管理等功能。该系统基本上满足了用户在学校信息管理方面的需求，用户界面友好。此系统更加贴近信息电子化处理，从而降低了人工劳动并增加了信息的准确性。 本课题采用的开发工具是VB6.0。Visual Basic是一种可视化编程环境，一种方便快捷的Windows应用程序开发工具，它使用了Microsoft Windows图形用户界面的许多特性和设计思想，采用了弹性可重复利用的完整面向对象程序语言，是一种非常方便实用的编辑器，较为领先的数据库技术。 源代码 2.1登录界面中，“登录”按钮的实现代码如下： Dim Mrc As ADODB.Recordset Dim MsgText As String Dim TxtSQL As String If Frmstart_UserInfo = Have Then 如果有表中有用户信息 TxtSQL = select * from User_Disk where User_ID= Trim(TxtUserID.Text) and User_Type= ComUserType.Text Set Mrc = ExecuteSQL(TxtSQL, MsgText) If Mrc.EOF = False Then If Trim(TxtUserPWD.Text) = DeCrypt(Mrc.Fields(2), Then 利用解密算法（数据库中的密码解密后与输入的密码比较） User_AdminType = ComUserType.Text 记录用户类型 User_AdminID = Trim(TxtUserID.Text) 记录用户编号 User_AdminName = Mrc.Fields(0) 记录用户姓名 Unload Me MDIFrm_Admin.Show Else MsgBox 对不起，您输入的密码错误，请重新输入！, vbOKOnly + vbExclamation, 用户PWD错误 TxtUserPWD.Text = TxtUserPWD.SetFocus FrmStart_InwriteNO = FrmStart_InwriteNO + 1 End If Else If ComUserType.Text = 超级管理员 Then If TxtUserID.Text = admin Then If TxtUserPWD.Text = admin Then User_AdminType = 超级管理员 User_AdminID = admin User_AdminName = 超级管理员 Unload Me MDIFrm_Admin.Show End If Else MsgBox 对不起，您输入的用户ID错误，请重新输入！, vbOKOnly + vbExclamation, 用户ID错误 TxtUserID.Text = : TxtUserPWD.Text = TxtUserID.SetFocus FrmStart_InwriteNO = FrmStart_InwriteNO + 1 End If Else MsgBox 对不起，您输入的用户ID错误，请重新输入！, vbOKOnly + vbExclamation, 用户ID错误 TxtUserID.Text = : TxtUserPWD.Text =