学生档案管理系统

学生档案管理系统

院 系： 数 学 系 专业班级： 数学与应用数学 学 号： 2009211853 姓 名： 何大平

日 期： 2011-6-19

学生档案管理系统

摘要

学生管理系统是一个计算机硬件资源以及数据库系统的人-机系统。学生档案管理系统是

典型的学生管理系统，其开发主要包括后台数据库的建立和维护以及前端应用程序的开发两方面。对于前者要求建立起资料安全性好的库。而对于后者则要求应用程序功能完备，易使用的特点。

于是，我们使用Microsoft公司的Visual Basic 6.0开发工具，在对系统进行设计和完善后，创建了Access数据库,并将两者连接起来，形成了学生档案管理系统。

系统功能分析

功能分析：学生档案管理系统属于应用系统。系统是一个集成多功能的档案管理系统，有学生基本信息、学生出勤信息、学生调动信息的三个功能模块。此系统大大的提高了学生信息的管理效力，带来了数据共享、网络查询和网络管理等便利，实现了学生档案管理的数字化和智能化。 1 系统功能模块图 学生档案管理系统 学生基本信息 学生出勤信息 学生调动信息 添 修查删添修查删设添修查删 加改修除加改询除置加改询除 学学学学学学学学上学学学学 生生生生生生生生下生生生生 基基基基出出出出学调调调调 本本本本勤勤勤勤时动动动动 信间 信信信信信信信信信信信 息 息 息 息 息 息 息 息 息 息 息 息 2 E-R图 学生基本信息

姓年生年专住电班籍职

名 龄 日 级 业 址 话 级 贯 务

用户登录信息

用用 户户名称 密码 数据库的逻辑结构设计

现在需要将上面的数据库概念结构转化为ACCESS2000数据库系统所支持的实际数据模型，也就是数据库的逻辑结构。在上面的实体以及实体之间关系的基础上，形成数据库的表以及各表之间的关系。

学生档案管理系统数据库中各表的设计结果如下所示： AlterationInfo

列名 数据类型 说明 ID 自动编号 记录编号 AID 文本 AName 文本 AOIdDept 文本 ANewDept 文本 AOIdPosition 文本 ANewPosition 文本 AOutTime 日期/时间 AInTime 日期/时间 ARemark 备注 AttendanceInfo

列名 数据类型 ID 自动编号 AStuffID 文本 AStuffName 文本 ADate 日期/时间 AFlag 文本 AInTime 日期/时间 AOutTime 日期/时间 ALate 数字 AEarly 数字 ErrandInfo

列名 数据类型 EID 自动编号 EStuffID 文本 EErranddays 数字 EPurpose 文本 EFromday 日期/时间LeaveInfo

列名 数据类型 LID 自动编号 LStuffID 文本 LIll 数字 LPrivate 数字 LFromDay 日期/时间 OvertimeInfo

学生编号 学生姓名 原班级 新班级 原职务 新职务 调出时间 调入时间 备注 说明 记录编号 学生编号 学生姓名 当前日期 出入标志 上学时间 下学时间 迟到次数 早退次数 说明 记录编号 学生编号 旷课天数 旷课目的 旷课开始时间 说明 记录编号 学生编号 病假天数 事假天数 假期开始时间 列名 数据类型 说明 OID 自动编号 记录编号 OStuffID 文本 学生编号 OSpeciality 数字 特殊补课天数 OCommon 数字 正常补课天数 OFromDay 日期/时间 补课日期 PersonNum

列名 数据类型 说明 Num 数字 编号 StuffInfo

列名 数据类型 说明 SID 文本 学生编号 SName 文本 学生姓名 SGender 文本 性别 SPlace 文本 籍贯 Sage 数字 年龄 SBirthday 日期/时间 生日 SDegree 文本 年级 SSpecial 文本 专业 SAddress 文本 住址 SCode 文本 邮编 STel 文本 电话 SEmail 文本 Email SWorkTime 日期/时间 入学时间 SInTime 日期/时间 入校时间 SDept 文本 班级

SPayTime 日期/时间 正式上课时间时间 SPosition 文本 职务 SRemark 文本 备注

TimeSetting

列名 数据类型 说明 Begintime 日期/时间 上学时间 Endtime 日期/时间 下学时间 UserInfo

列名 数据类型 说明 UserID 文本 用户名称 UserPWD 文本 用户密码

创建学生档案管理系统的主窗体

Visual Basic创建的应用程序是单文档界面和多文档界面。在单界面程序运行中，每个窗体时的，但在多文档界面的程序中，有一个窗体是主窗体，可以包含其他窗体。本系统采用多文档界面，这样可以使程序更加美观、整齐有序。

主窗体及其控件属性设置： 控件 FrmMain 属性 Name Caption StartUpPosition WindowsState SbStatusBar Name 属性取值 FrmMain 学生档案管理系统 CenterScreen Mainmized SbStatusBar 用户登录窗体的创建

系统启动后，将首先出现用户登录窗体，用户首先输入用户名，然后输入密码。

用户登录窗体中放置了二个文本框，用来输入用户名称、用户密码，两个按钮用来确定

和取消登录，三个标签用来标示窗体的信息。属性见下表：

控件 属性 属性取值 FrmLogin Name Caption StartUpPosition WindowState frmLogin 登录 CenterScreen NoMal TxUserName Txpassword TxtUserSx cmdCancel 取消 CmdOK 确定 学生档案管理系统 用户名称 用户密码 txtUserName txtPassword txtUserSx cmdCancel cmdOK Lable1 Lable2 Lable3 Name Name Name Name Caption Name Caption Caption Caption Caption 添加用户窗体的创建

user

控件 FrmAdduser txtUserName txtPassword 1 txtPassword 2 属性 Name Caption StarUpPostion windowState Name Name PasswordChar Name PasswordChar 属性取值 FrmAdduser 添加用户 CenterScreen Nomal txtUserName txtPassword 1 txtPassword 2 cmdCancel Name Caption Name Caption Caption Caption Caption cmdCancel cmdOK Lable1 Lable2 Lable3 取消 cmdOK 确定 请输入用户名 请输入密码 请确认密码 修改用户密码窗体创建

再修改密码窗体中，放置了两个文本框，用来输入密码和确认密码。两个按钮用来确认是否修改密码，两个标签用来标示文本框的内容。控件属性如下表： 控件 属性 属性取值 Name frmModifyuserinfo FrmModifyuserinfo Caption 修改密码 StarUpPostion CenterScreen WindowState Nomal TxtPassword1 Name TxtPassword1 PasswordChar TxtPassword2 Name TxtPassword2 CmdOK Name CmdOK Caption 确认 CmdCancel Name cmdCancel Caption 取消 Lable1 Caption 请输入密码 Lable2 Caption 请确认密码

附录

部分代码：用户登录 Option Explicit

Dim pwdCount As Integer

Private Sub cmdCancel_Click() Unload Me Exit Sub End Sub

Private Sub cmdOK_Click() Dim sql As String

Dim rs As ADODB.Recordset If Trim(UserName.Text = \"\") Then

MsgBox \"没有输入用户名称，请重新输入！\警告\" UserName.SetFocus

Else '查询用户 sql = \"select * from UserInfo where UserID='\" & UserName.Text & \"'\" Set rs = TransactSQL(sql) If iflag = 1 Then

If rs.EOF = True Then

MsgBox \"没有这个用户，请重新输入！\警告\"

UserName.SetFocus Else

If Trim(rs.Fields(1)) = Trim(PassWord.Text) Then rs.Close Me.Hide

gUserName = Trim(UserName.Text) '保存用户名称

FrmMain.Show Unload Me Else

MsgBox \"密码不正确，请重新输入！\警告\"

PassWord.SetFocus PassWord.Text = \"\" End If End If Else

Unload Me End If End If

pwdCount = pwdCount + 1 '判断输入次数 If pwdCount = 3 Then Unload Me Exit Sub End If End Sub

Private Sub Form_Load()

pwdCount = 0 UserName = \"\" End Sub

Private Sub PassWord_KeyDo()

End Subwn(KeyCode As Integer, Shift As Integer) TabToEnter KeyCode

Private Sub UserName_KeyDown(KeyCode As Integer, Shift As Integer)

TabToEnter KeyCode End Sub

修改密码

Option Explicit

Private Sub cmdCancel_Click() Unload Me End Sub

Private Sub cmdOK_Click()

Dim sql As String

Dim rs As ADODB.Recordset

'If Trim(OldPWD.Text) = UserPWD Then '判断是否输入旧密码

'MsgBox \"请输入旧密码！\警告\" 'OldPWD.SetFocus 'Exit Sub 'Else

If Trim(NewPWD.Text) = \"\" Then '判断是否输入新密码 MsgBox \"请输入新密码！\警告\" NewPWD.SetFocus Exit Sub

ElseIf Trim(NewPWD.Text) <> Trim(ConfirmPWD.Text) Then '判断两次密码是否相同

MsgBox \"两次密码不同！\警告\" NewPWD.Text = \"\" ConfirmPWD.Text = \"\" NewPWD.SetFocus Else ' If Trim(OldPWD.Text) = UserPWD Then '修改密码

sql = \"update UserInfo set UserPWD = '\" & NewPWD & \"'where UserID='\" sql = sql & gUserName & \"'\" TransactSQL (sql)

MsgBox \"密码已经修改！\修改结果\" Unload Me End If

End Sub

Private Sub Form_Load() 'OldPWD.Text = \"\" NewPWD.Text = \"\" ConfirmPWD.Text = \"\" End Sub

Option Explicit

Private Sub cmdCancel_Click() Unload Me End Sub

Private Sub cmdOK_Click() Dim sql As String

Dim rs As ADODB.Recordset

If Trim(UserName.Text) = \"\" Then '判断用户名称是否为空

MsgBox \"请输入用户名称!\警告\" Exit Sub

UserName.SetFocus Else

sql = \"select * from UserInfo where UserID='\" & UserName & \"'\" Set rs = TransactSQL(sql)

If rs.EOF = False Then '判断是否已经存在用户

MsgBox \"这个用户已经存在！请重新输入用户名称！\vbOKOnly + vbExclamation, \"警告\"

UserName.SetFocus UserName.Text = \"\" PassWord.Text = \"\" ConfirmPWD.Text = \"\" Exit Sub Else

If Trim(PassWord.Text) <> Trim(ConfirmPWD.Text) Then '判断两次密码是否相同

MsgBox \"两次输入的密码不一致，请重新输入密码！\vbOKOnly + vbExclamation, \"警告\"

PassWord.Text = \"\" ConfirmPWD.Text = \"\" PassWord.SetFocus Exit Sub

ElseIf Trim(PassWord.Text) = \"\" Then '判断密码是否为空 MsgBox \"密码不能为空！\警告\"

PassWord.Text = \"\" ConfirmPWD = \"\" PassWord.SetFocus

Else '添加用户 sql = \"insert into UserInfo (UserID,UserPWD) values('\" & UserName sql = sql & \"','\" & PassWord & \"')\" TransactSQL (sql)

MsgBox \"添加成功！\添加结果\"

'重新设置初始化为空

UserName.Text = \"\" PassWord.Text = \"\" ConfirmPWD.Text = \"\" UserName.SetFocus End If End If End If End Sub

Private Sub Form_Load() UserName.Text = \"\" PassWord.Text = \"\" ConfirmPWD.Text = \"\" End Sub