基于ASPACCESS的学生信息综合管理系统源代码及全套资料.docx

摘要随 着 科 学 技 术 发 展 ， 计 算 机 领 域 不 断 取 得 新 研 究 成 果 。 并 不 断 地 代 替 和 延 伸 脑 力 劳 动 方 面 发 挥 越 来 越 重 要 作 用 ， 无 论 是 工 业 还 是 日 常 生 活 全部 越 来 越 离 不 开 计 算 机 ， 尤 其 是 在 学 校 里 ， 随 着 不 同 高 校 不 断 扩 大 和 招 生 人 数 不 断 增 加 ， 要 处 理 大 量 学 生 数 据 信 息 显 得 尤 为 重 要 。 学 生 信 息 管 理 是 学 校 工 作 中 一 项 重 要 内 容 。本 系 统 论 文 主 要 是 管 理 学 生 资 料 。 重 点 介 绍 其 功 能 ： 信 息 添 加 、 信 息 修 改 、 信 息 删 除 及 信 息 查 询 。使 用 进 行 静 态 页 面 设 计 ,应 用 A S P 程 序 进 行 后 台 管 理 操 作 ，并 用 A ccess 进 行 后 台 数 据 库 连 接 设 计 。 主 要 是 以 四 大 功 能 进 行 系 统 设 计 和 实 现 。关 键 词 ： Dreamw eaver M X 系 统站 点 设 计A S PA ccess 数 据 库1 .1开发工具介绍1 . 1 . 1 AS PASP （ Ac t i ve Se ve r Pa g e s 动 态 网 页 ） 是 微 软 公 司 推 出 一 种 用 以 取 代 CGI ( Common Ga t e wa y I nt e r f a c e ) 技 术 。 目 前 ， I nt e r ne t 上 许 多 基 于 Wi ndows 平 台 We b 站 点 已 开 始 应 用 ASP 来 替 换 CGI 。ASP 是 在 服 务 器 端 脚 本 编 译 环 境 ， 使 用 它 可 以 创 建 和 运 行 动 态 、 交 互 We b 服 务 器 应 用 程 序 。 ASP 可 以 和 HTML 页 、 脚 本 命 令 和 Ac t i ve X 组 件 组 合 创 建 交 互 We b 页 和 基 于 We b 功 能 强 大 应 用 程 序 。 ASP 应 用 程 序 很 容 易 开 发 和 修 改 。ASP 是 一 个 位 于 服 务 器 端 脚 本 运 行 环 境 。通 过 这 种 环 境 ，用 户 可 以 创 建 和 运 行 动 态 交 互 式 We b 服 务 器 应 用 程 序 ， 如 交 互式 动 态 网 页 ， 包 括 使 用 HTML表 单 收 集 和 处 理 信 息 、 上 传 和 下 载 等 。通 常 情 况 下 ， 用 户 通 过 浏 览 器 看 到 网 页 大 多 是 静 态 ， 目 前 I nt e r ne t 上 许 多 站 点 ， 仍 然 提 供 “静 态 ”（ s t a t i c ） 主 页 内 容 。 所 谓 “静 态 ”， 是 指 站 点 主 页 内 容 是 “固 定 不 变 ” 。 一 个 “静 态 ” 站 点 ， 若 要 更 新 主 页 内 容 ， 必 须 手 动 更 新 其HTML 文 件 数 据 。 而 随 着 We b 技 术 发 展 ，用 户 希 望 能 够 看 到 根 据 要 求 而 动 态 生 成 主 页 ，例 如 响 应 用 户 查 询 数 据 库 要 求 而 生 成 报 表 等 。 站 点 服 务 器 收 到 要 求 执 行 应 用 程 序 ，分 析 表 单（ f or m） 输 入 数 据 ，将 执 行 结 果 以 HTML 格 式 传 送 给 浏 览 器 。 根 据 用 户 请 求 生 成 动 态 主 页 传 统 方 法 有 CGI 、 I SAPI 等 。 CGI 是 根 据 浏 览 器 端 ht t p 请 求 激 活 响 应 进 程 ， 每 一 个 请 求 对 应 一 个 进 程 。 当 同 时 有 很 多 请 求 时 ， 程 序 挤 占 系 统 资 源 ， 造 成 效 率 低 下 。I SAPI 针 对 这 一 缺 点 进 行 了 改 进 ， 利 用 dl l （ 动 态 链 接 库 技 术 ）， 以 线 程 代 替 进 程 ， 提 高 了 性 能 和 速 度 ， 但 要 考 虑 线 程 同 步 问 题 ， 而 且 开 发 步 骤 烦 琐 。 这 两 种 技 术 和 另 一 普 遍 使 用 开 发 动 态 网 页 技 术J a va 全部 还 存 在 着 另 外 一 个 问 题 ，那 就 是 开 发 困 难 ，程 序 开 发 和 HTML 写 作 是 两 个 完 全 不 同 过 程 ， 需 要 专 门 程 序 员 开 发 。 ASP 使 用 Ac t i ve X 技 术 基 于 开 放 设 计 环 境 ， 用 户 可 以 自 己 定 义 和 制 作 组 件 加 入 其 中 ， 使 自 己 动 态 网 页 几 乎 具 有 无 限 扩 充 能 力 ， 这 是 传 统 CGI 等 程 序 所 远 远 不 及 地 方 。1 . 1 . 2 Ac c e s sA ccess 是 一 个 数 据 库 管 理 系 统 ，它 之 所 以 被 集 成 到 Office 中 而 不 是 Visual S tudio 中 ，是 因 为 它 和 其 它 数 据 库 管 理 系 统（ 如 S QL S erver ） 相 比 更 加 简 单 易 学 ， 一 个 普 通 计 算 机 用 户 即 可 掌 握 并 使 用 它 。 而 且 最 重 要 一 点 是 ， A ccess 功 能 足 够 强 大 ， 足 以 应 付 一 般 数 据 管 理 及 处 理 需 要 。A ccess 可 以 实 现 建 立 数 据 库 、 报 表 ， 以 及 对 数 据 库 、 报 表 修 改 、 查 询 等 功 能 。A ccess 随 着 W i nd o w s 操 作 系 统 和 O ffi c e s 办 公 自 动 化 应 用 软 件 普 及 ， A ccess 各 个 版 本 变 得 和 其 她 Office 成 员 集 成 得 越 来 越 紧 密 。 Office 所 有 成 员 和 Visual B asic 6 .0 现 在 共 享 是 同 样 Visual B asicforA pplications( V B A )版 本 6 .0 。 A ccess 最 后 采 纳 了 Office V B A 编 辑 器 ( 也 叫 做 集 成 开 发 环 境 或 者 IDE)用 于 编 写 V B A 代 码 来 自 动 操 作 A ccess 应 用 。不 论 好 坏 ，A ccess 还 共 享 了 Office 新 超 文 本 标 记 语 言 (HTM L ) 帮 助 系 统 。 A ccess 最 主 要 用 是 创 建 数 据 库 ， 并 建 立 相 应 软 件 连 接 。 如 ODB C 连 接 。第 2 章系 统 需 求 分 析 和 设 计2 .1系统需求分析如 果 我 国 各 个 学 校 管 理 水 平 还 停 留 在 纸 介 质 基 础 上 ， 已 不 能 适 应 时 代 发 展 ， 因 为 它 浪 费 了 许 多 人 力 和 物 力 ， 在 当 今 信 息 时 代 这 种 管 理 方 法 必 然 被 计 算 机 为 基 础 信 息 管 理 所 取 代 。 学 生 信 息 管 理 系 统 开 发 ， 适 合 任 何 一 个 大 中 小 学 校 管 理 ，该 学 生 信 息 管 理 系 统 归 纳 起 来 有 四 点 ：1 学 生 信 息 插 入 。可 以 插 入 不 同 地 区 学 生 姓 名 、个 人 联 系 方 法 、所 在 院 系 、班 级 及 相 关 情 况 。 实 现 了 信 息 动 态 管 理 。2 学 生 信 息 查 询 。 学 生 信 息 使 管 理 员 可 以 通 过 多 种 方 式（ 年 级 、 班 级 、 姓 名 、 学 号 、 所 在 系 等 等 ） 查 询 ， 就 可 以 直 接 查 看 自 己 需 要 学 生 相 关 信 息 。 实 现 了 信 息 动 态 管 理 。3 学 生 信 息 修 改 。管 理 人 员 可 以 随 时 对 转 入 、转 出 学 生 进 行 修 改 ，比 如 学 号 、所 在 系 等 等 实 现 了 信 息 动 态 管 理 。3 学 生 信 息 删 除 。管 理 人 员 可 以 随 时 对 转 入 、转 出 学 生 进 行 删 除 ，比 如 学 号 、所 在 系 等 等 实 现 了 信 息 动 态 管 理 。好 处 为 ：1 可 以 存 储 怕 有 学 生 档 案 ， 安 全 、 高 效 ；2 只 需 一 到 二 名 档 案 录 入 员 即 可 操 作 系 统 ， 节 省 大 量 人 力 ；3 可 以 迅 速 查 找 到 所 需 要 信 息 。 其 功 能 结 构 如 图 ：学生信息管理系统登录学生资料管理添加资料修改资料删除资料查询资料第 3 章系 统 实 现3 .1数据库存设计数 据 库 是 整 个 学 生 信 息 管 理 系 统 核 心 部 分 。 只 有 通 过 数 据 库 调 用 才 能 进 行 学 生 信 息 更 新 处 理 、 插 入 资 料 、 删 除 资 料 和 查 询 资 料 ， 方 便 管 理 进 行 管 理 ， 减 少 管 理 员 工 作 量 以 及 更 多 人 力 。3 . 1 . 1 管 理 员 数 据 库 设 计Us e r s 表 是 用 于 管 理 员 登 陆 时 用 于 验 证 管 理 员 身 份 ， 这 样 使 前 后 台 分 隔 开 ， 保 护 网 站 安 全 ， 阻 止 除 了 管 理 员 之 外 任 何 人 进 入 后 台 ， 威 胁 到 整 个 网 站 安 全 。 包 括 用 户 名 、 密 码 和 访 问 权 限 等 等 。其 数 据 库 如 图 ：3 . 1 . 2 学 生 信 息 数 据 库 设 计学 生 信 息 数 据 库 是 存 放 学 生 基 本 信 息 资 料 ， 如 学 号 、 姓 名 、 出 生 日 期 、 所 在 系 及 一 些 个 人 联 系 方 式 等 等 。 其 数 据 库 如 下 ：3 .2登录3 . 2 . 1 系 统 总 模 型学 生 信 息 管 理 系 统 总 模 型 主 要 是 说 明 系 统 注 册 后 才 能 登 录 ， 登 录 后 进 么 主 页 面 后 实 现 主 要 有 学 生 资 料 管 理 、 管 理 员 管 理 以 及 更 改 级 别 ， 其 中 学 生 资 料 管 理 主 要 实 现 学 生 信 息 添 加 、 修 改 、 删 除 和 查 询 功 能 。 管 理 员 管 理 是 只 有 权 限 最 高 管 理 员 才 能 进 行 删 除 管 理 员 和 更 改 权 限 操 作 。 其 结 构 图 如 下 ：注 册登 录主 页 面学 生 资 料 管 理管 理 员 设 置更 改 级 别添 加 资 料修 改 资 料删 除 资 料查 询 资 料3 . 2 . 2 登 录 界 面（ 1 ） 只 有 通 过 i nde x . a s p 登 录 界 面 才 能 进 入 主 页 面 进 行 相 应 学 生 信 息 操 作 。（ 2 ） 进 入 登 录 界 面 ： 通 过 注 册 页 面 让 用 户 提 交 注 册 并 保 存 在 us e r 表 里 ， 并 通 过 登 录 页 面 读 取 用 户 提 交 登 录 信 息 和 保 存 在 数 据 库 中 数 据 进 行 比 较 以 验 证 是 否 成 功 登 录 。图 1 ： 用 户 登 录 界 面3 . 2 . 3 主 页 面 实 现图 2：主页面学 生 信 息 管 理 系 统 主 要 是 和 数 据 库 连 接 ,然 后 数 据 库 连 接 必 须 使 用 A DO 内 置 C onnection 对 象 ， 并 且 调 用 R ecordset 对 象 来 进 行 和 数 据 库 查 找 、 删 除 、 更 改 等 功 能 ， 具 体 脚 本 如 下 ：%dim username,password dim cnn,rst,ssqlusername=trim(request.form(txtusername) password=trim(request.form(txtpassword) login=request.form(btnlogin)if login= and session(username)= then response.redirect login.htmif (username= or password= ) and login then response.redirect login.htm%if seesion(username)= or (session(username)username and seesion(username) then set cnn=server.createobject(adodb.connection)set rst=server.CreateObject(adodb.recordset) cnn.connectionstring=provider=microsoft.jet.oledb.4.0;data source=&server.MapPath(Datedate.mdb ) cnn.openssql=select * from users where user_name=&username& and mm =&password& set rst =cnn.execute(ssql, ,adcmtext)if rst.eof thenresponse.WriteUsername or Password is error.sorry! response.write重新登录(restart login)else session(username)=rst(user_name) session(level)=rst(purview_level)end if%3 .3后台关键功效实现3 . 3 . 1 添 加 学 生 信 息 资 料在 学 生 信 息 管 理 系 统 首 页 （ index .a sp） 单 击 “ 添 加 资 料 ” 链 接 ， 可 以 进 入 addinfo.asp 页 面 ， 在 该 页 面 中 输 入 学 生 资 料 ， 并 提 交 给 saveinfo.asp 页 面 进 行 添 加 ， 将 数 据 保 存 到 数 据 库 中 。 界 面 如 下 ：图 1 添加页面 addinfo.asp实 现 功 能 脚 本 如 下 ：%Dim cnn, rst, sSQLDim StudentNum, StudentName, StudentSex, BirthDate, DepartmentDim Speciality, Grade, sClass, ParentName, HomeAddr, HomePhone, Remark StudentNum = Trim(Request.Form(txtStudentNum)StudentName = Trim(Request.Form(txtStudentName) StudentSex = Request.Form(optStudentSex)BirthDate = Trim(Request.Form(txtBirthDate) Department = Trim(Request.Form(txtDepartment) Speciality = Trim(Request.Form(txtSpeciality) Grade = Trim(Request.Form(txtGrade)sClass = Trim(Request.Form(txtClass)ParentName = Trim(Request.Form(txtParentName) HomeAddr = Trim(Request.Form(txtHomeAddr) HomePhone = Trim(Request.Form(txtHomePhone) Remark = Trim(Request.Form(txtRemark)If StudentNum = Or StudentName = Then Response.Redirect addInfo.aspEnd IfSet cnn = Server.CreateObject(ADODB.Connection) Set rst = Server.CreateObject(ADODB.Recordset)cnn.ConnectionString = PROVIDER=microsoft.jet.oledb.4.0;DATA SOURCE= & server.mappath(Datedate.mdb) cnn.OpensSQL = SELECT student_num FROM students WHERE student_num= & StudentNum & Set rst = cnn.Execute(sSQL, , adCmdText)If Not rst.EOF ThenResponse.Write 学号“ & rst(student_num) & ”已经存在，请重新输入！ElsesSQL = INSERT into students(student_num, student_name, & student_sex, birthdate, department, speciality, sSQL = sSQL & grade, class, home_addr, parent_name, sSQL = sSQL & home_phone, remark) VALUES(sSQL = sSQL & StudentNum & , & StudentName & , & StudentSex & , & BirthDate & , sSQL = sSQL & Department & , & Speciality & , & Grade & , & sClass & ,sSQL = sSQL & HomeAddr & , & ParentName & , & HomePhone & , & Remark & ) cnn.Execute sSQL, , adCmdText%数据保留成功！3 . 3 . 2 修 改 学 生 资 料在 学 生 信 息 管 理 系 统 首 页 （ index .a sp） 单 击 “ 修 改 资 料 ” 链 接 ， 可 以 进 入 editinfo.asp 页 面 ， 在 该 页 面 中 输 入 学 生 资 料 ， 并 提 交 给 editinfo2 .asp 页 面 进 行 修 改 ， 将 数 据 进 行 修 改 操 作 中 。 界 面 如 下 ：图 2 修改页面 editinfo.asp实 现 功 能 脚 本 如 下 ：%Dim cnn, rst, sSQL, StuNumStuNum = Trim(Request.Form(txtStuNum)Set cnn = Server.CreateObject(ADODB.Connection) Set rst = Server.CreateObject(ADODB.Recordset)cnn.ConnectionString = PROVIDER=microsoft.jet.oledb.4.0;DATA SOURCE= & server.mappath(Datedate.mdb) cnn.OpenIf StuNum ThensSQL = SELECT * FROM students WHERE student_num= & StuNum & Set rst = cnn.Execute(sSQL, , adCmdText)If rst.EOF ThenResponse.Write 没有找到符合条件统计！ Else%修改学生资料学号：INPUT TYPE = text NAME = txtStudentNum SIZE = 12 VALUE = INPUT TYPE = hidden NAME = txtOldStuNum SIZE = 12 VALUE = 姓名：INPUT TYPE = text NAME = txtStudentName SIZE = 12 VALUE = 性别：INPUT TYPE = radio VALUE = 男NAME=optStudentSex 男INPUT TYPE=radio VALUE=女NAME=optStudentSex 女出生日期：INPUT TYPE = text NAME = txtBirthDate SIZE = 12VALUE = 所在院系：INPUT TYPE = text NAME = txtDepartment SIZE = 12 VALUE = 所在专业：INPUT TYPE = text NAME = txtSpeciality SIZE = 12 VALUE = 年级：INPUT TYPE = text NAME = txtGrade SIZE = 12VALUE = 班级：INPUT TYPE = text NAME = txtClass SIZE = 12VALUE = 家长姓名：INPUT TYPE = text NAME = txtParentName SIZE = 12 VALUE = 家庭住址：INPUT TYPE = textNAME = txtHomeAddr SIZE = 33 VALUE = 住宅电话：INPUT TYPE = text NAME = txtHomePhone SIZE = 12VALUE = 备注：   Editinfo2 .a sp 页 面 脚 本 如 下 :3 . 3 . 3 删 除 资 料在 学 生 信 息 管 理 系 统 首 页 （ index .a sp） 单 击 “ 删 除 资 料 ” 链 接 ， 可 以 进 入 deleteinfo.asp 页 面 ， 在 该 页 面 中 输 入 一 个 指 定 学 号 并 单 击 ”提 交 ”按 钮 ,如 果 找 到 匹 配 学 生 记 录 ， 则 以 表 格 形 式 显 示 出 该 学 生 详 细 资 料 ,此 时 发 给 deletetinfo2.asp 页 面 进 行 删 除 操 作 。功 能 脚 本 如 下 :%Dim cnn, rst, sSQL, StuNumStuNum = Trim(Request.Form(txtStuNum)Set cnn = Server.CreateObject(ADODB.Connection) Set rst = Server.CreateObject(ADODB.Recordset)cnn.ConnectionString = PROVIDER=microsoft.jet.oledb.4.0;DATA SOURCE= & server.mappath(Datedate.mdb) cnn.OpenIf StuNum ThensSQL = SELECT * FROM students WHERE student_num = & StuNum & Set rst = cnn.Execute(sSQL, , adCmdText)If rst.EOF Then%没有找到符合条件统计！学号为“”学生资料以下：学号：姓名： 性别：TD