数据库-学校饭堂消费管理系统的设计说明书

课程设计说明书 设计名称 数据库系统原理课程设计 题 目 学校饭堂消费管理系统的设计 学生姓名 孙璐 专 业 网络工程 班 级 12 网络 1 班 学 号 2012394108 指导教师 顾艳春 韦庆清 李娅 胡明 日 期 2015 年 01 月 14 日 0 课程设计任务书 网络工程 专业 12 年级 1 班 孙璐 一 一 设计题目设计题目 学校饭堂消费管理系统 二 二 主要内容主要内容 通过对学生在学校饭堂或餐厅的消费流程进行分析 完成具有食品管 理 消费管理 帐户管理 餐厅管理等相关功能的小型数据库管理应用系统 消费 刷卡可以通过手工输入来模拟完成 1 根据任务要求完成有关表的设计 表的设计需要遵循 3NF 2 完成饭堂 餐厅 员工表 消费人员及帐户表 餐厅表 食品价目表的 维护 3 3 完成消费表的生成 并计算消费折扣 可现金消费也可刷卡消费 4 4 按人员 时间 餐厅统计计算消费总额 5 5 按食品类别 时间 餐厅统计计算消费总额 6 6 完成用户帐户管理功能 7 7 完成数据备份与恢复功能 三 三 具体要求具体要求 围绕课程设计的目的和意义 基本要求如下 1 巩固和加深对数据库系统原理的理解 提高综合运用本课程所学知识 的能力 2 培养学生选用参考书 查阅手册及文献资料的能力 培养独立思考 深入研究 分析问题 解决问题以及团队协作能力 3 通过实际系统的分析设计 编程调试 掌握数据库软件的分析设计方 1 法和巩固软件工程方法 软件开发的流程可参见软件工程课程教材 见第 六部分 4 能够按要求编写课程设计报告书 能正确阐述设计和实验结果 正确 绘制系统数据流图和 E R 图 5 通过课程设计 培养学生严谨的科学态度 严肃认真的工作作风 和 团队协作精神 6 本课程设计只要求大家完成一个基本的数据库软件的开发工作 系统 开发不要求大而全数据库软件的开发 只要完成数据的增 删 改 查等 基本功能 并设计一个较友好系统操作界面 最好是图形界面 7 系统开发平台不做统一要求 四 四 进度安排进度安排 依照教学计划 课程设计时间为 2 周 本设计要求按照软件工程的基本过程完成设计 建议将时间分为四个阶段 第一阶段 根据题目要求 确定系统的总体设计方案 概要设计 即系统包 括哪些功能模块 每个模块的实现方法 同时编写相应的设计文档 第二阶段 完成系统的详细设计工作 第三阶段 完成数据库设计和编写程序代码并调试 再将调试通过的各个子模块进行集成调试 第四阶段 归纳文档资料 按要求 填写在 课程设计说明书 上 并参加答辩 三个阶段时间分配的大概比例是 25 25 40 10 具体安排如下 1 月 5 日 1 月 6 日 资料查找 系统分析 数据流程分析 概要设计 1 月 7 日 1 月 8 日 系统详细设计 功能设计 1 月 9 日 1 月 14 日 算法实现 编程调试 1 月 15 日 1 月 16 日 功能演示 资料整理 课程设计说明书编写 五 五 完成后应上交的材料完成后应上交的材料 本课程设计要求按照学校有关规范的要求完成 在课程设计完成后需要提 交的成果和有关文档资料包括课程设计的说明书 课程设计有关源程序及可运 2 行程序 含运行环境 其内容不能过于简单 必须包括的内容有 1 课程设计的基本思想 系统的总功能和各子模块的功能说明 2 数据库设计中有关数据流图和 E R 图 并对重要的操作画出有关算法流 程图 3 源程序中核心代码的说明 4 本课程设计的个人总结 主要包括以下内容 1 课程设计中遇到的主要问题和解决方法 2 你的创新和得意之处 3 设计中存在的不足及改进的设想 4 本次课程设计的感想和心得体会 5 源代码要求在关键的位置有注释 增加程序的可读性 程序结构和变量 等命名必须符合有关软件开发的技术规范 参见有关文献 六 六 总评成绩总评成绩 指导教师指导教师 签名日期签名日期 年年 月月 日日 系系 主主 任任 审核日期审核日期 年年 月月 日日 3 目目 录录 一 设计任务分析 5 1 1 系统总功能分析 5 1 2 系统总框架 5 1 3 设计思想简述 5 二 总体设计思路 6 三 需求分析 6 3 1 数据字典 7 3 1 1 数据库用到的表 7 3 1 2 各表的说明 7 四 概念结构设计 8 4 1 消除不必要的冗余 设计基本的 E R 图 8 4 2 合并分 E R 图 生成总的 E R 图 9 五 逻辑结构设计 10 5 1 数据模型的优化 10 5 2 由 E R 图得到的关系模式 10 六 物理结构设计 10 6 1 为关系模式选择存取方法 10 6 2 选择存取路径 10 6 3 创建基本表 11 6 4 建立索引 14 6 5 建立触发器 17 6 6 建立视图 18 7 数据库的实施 19 7 1 数据的载入 19 8 数据库的试运行 22 8 1 视图中的数据 22 8 2 视图的查询 23 九 数据库运行和维护 23 9 1 系统开发工具的介绍 23 9 2 VB 6 0 与 SQL sever 的连接 24 9 3 VB 实现学校餐厅的管理 27 9 3 1 登录界面 27 9 3 2 管理员功能 30 9 3 3 学生功能 57 十 课程设计的总结报告 60 4 一 设计任务分析一 设计任务分析 1 11 1 系统总功能分析系统总功能分析 通过对学生在学校饭堂或餐厅的消费流程进行分析 完成具有食品管理 消费管理 帐户管理 餐厅管理等相关功能的小型数据库管理应用系统 根据 任务要求完成有关表的设计 表的设计需要遵循 3NF 同时还要完成进人员 餐厅 食品价目表的维护 完成消费表的生成 并计算消费折扣 以及按人员 时间段 餐厅统计计算消费总额 按食品类别 时间段 餐厅统计计算消费总 额 最后完成用户管理功能 完成数据备份与恢复功能 1 21 2 系统总框架系统总框架 密码错误 密码正确 1 31 3 设计思想简述设计思想简述 这个系统我建立了管理员 员工 学生 餐厅 食品和餐厅营业表六张 基本表 为了提高查找速度 我为前五个基本表以主键建立了唯一索引 为营 业表建立了以餐厅编号 学生学号 食品编号和消费时间一起的唯一索引 为 用户登录 验证密码 退 出 系 统 管理员功能 学生功能 查 询 消 费 总 额 对 学 生 信 息 查 增 删 改 对 食 品 信 息 查 增 删 改 对 管 理 员 信 息 查 增 删 改 对 员 工 信 息 查 增 删 改 对 餐 厅 信 息 查 增 删 改 备 份 与 恢 复 查 看 自 己 基 本 信 息 查 询 学 生 卡 余 额 修 改 自 己 的 密 码 5 了简化操作 更清晰地表达查询 我为学生 餐厅 食品和餐厅营业表建立了 视图 二 二 总体设计思路总体设计思路 三 三 需求分析需求分析 通过我对学校餐厅的调查分析 我得出了餐厅以下几点特点 工作人员分为管理员 一般员工 管理员都有唯一的工号 姓名 密码 其中初始密码为工号 而一般员工都有唯一的工号 姓名 职位和所属餐厅 其中只有管理员可以登录系统 对餐厅 学生 一般员工 食品进行管理 对 餐厅营业表进行查询消费总额 每位同学都有唯一的学号 姓名 密码 专业和学生卡内余额 其中初始 密码为学号后 5 位 学生可以利用学号和初始密码登录系统进行修改密码 查 看自己的基本信息以及查询自己卡内的余额 餐厅分为两个 每个餐厅都有唯一的编号和姓名 食品的类别分为素菜和肉菜 每个食品都有唯一的编号 食品名称 素菜 的单价为 2 元 肉菜的单价为 4 元 学生在学校餐厅就餐 就有所就餐的餐厅编号 该学生的学号 所食用的 食品编号 食品数量 该食品的类别 付款方式 现金或者刷卡 和就餐时间 消费表就是建立的视图 包括学生学号 餐厅号 食品号 食品单价 食 品数量 折扣后价格 以上就是我对学校餐厅管理系统的需求分析 要求系统能有效 快速 安 全 可靠和无误的完成上述操作 服务器程序利于维护 6 3 13 1 数据字典 数据字典 3 1 1 数据库用到的表 数据库表名关系模式名称 manager 管理员信息表 student 学生信息表 restaurant 餐厅信息表 food 食品价格表 operation 餐厅营业表 worker 员工信息表 pf operation 消费表 视图 3 1 2 各表的说明 表一 管理员信息表 元素变量名数据类型备注 工号 mnoChar 9 主键 非空 姓名 mnameChar 20 非空 密码 mpswChar 18 非空 表二 学生信息表 元素变量名数据类型备注 学号 snoChar 9 主键 非空 姓名 snameChar 20 非空 密码 spswChar 18 非空 专业 sdeptChar 20 非空 余额 sbalanceInt 表三 餐厅信息表 元素变量名数据类型备注 编号 rnoChar 9 主键 非空 名称 rnameChar 20 非空 表四 食品价格表 元素变量名数据类型备注 食品编号 fnoChar 9 主键 非空 食品名称 fnameChar 20 非空 食品单价 fpriceInt 非空 7 食品类别 fbelongChar 20 非空 表五 餐厅营业表 元素变量名数据类型备注 餐厅编号 rnoChar 9 Restaurant 的外键 学号 snoChar 9 Student 的外键 食品编号 fnoChar 9 Food 的外键 食品数量 fnumChar 10 非空 消费时间 ctimeDatetime 允许空值 付款方式 wayChar 10 非空 食品类别 fbelongChar 20 非空 表六 员工信息表 元素变量名数据类型备注 工号 wnoChar 9 主键 非空 姓名 wnameChar 20 非空 职位 wpostChar 18 非空 所属餐厅 rnoChar 9 非空 4 4 概念结构设计概念结构设计 4 14 1 消除不必要的冗余 设计基本的消除不必要的冗余 设计基本的 E RE R 图图 由需求分析的结果可知 本系统设计的实体包括 1 员工基本信息 员工工号 员工姓名 员工职位 所属餐厅 2 管理员基本信息 管理员工号 管理员姓名 管理员密码 3 学生基本信息 学生学号 学生姓名 学生密码 专业 卡内余额 4 餐厅基本信息 餐厅编号 餐厅名称 5 食品基本信息 食品编号 食品名称 食品单价 食品类别 8 由于餐厅的营业表学生 餐厅 食品三者之间的多对多联系转换出来的表 是其基本属性 不必画在 E R 图上 这些实体间的联系包括 1 每位学生可以在多个餐厅里消费 每个餐厅也可以供给多个学生的饭菜 2 每个学生可以点多种食物 每个食物也可以被多个学生点 3 每个餐厅可以有多名员工 而每个员工只能在一个食堂工作 4 24 2 合并分合并分 E RE R 图 生成总的图 生成总的 E RE R 图图 学生 消费 餐厅 工作 食品 点菜 管理 管理员 学号姓名专业 卡内余额 食品号 食品名 职位 食品类别 编号 名称 工号 姓名密码 销售 员工 工号 姓名 单价 所属餐厅 学生密码 9 五 五 逻辑结构设计逻辑结构设计 5 15 1 数据模型的优化数据模型的优化 数据库逻辑设计的结果不是唯一的 为了进一步提高数据库应用系统的性能 还应该根据应用需求适当地修改 调整数据模型的结构 这就是数据模型的优 化 方法为 1 确定数据依赖 2 对于各个关系模式之间的数据依赖进行极小化的处理 消除冗余的联系 3 按照数据依赖的理论对关系模式逐一进行分析 考察是否存在部分函数 传递依赖 多值依赖等 确定各关系模式分别处于第几范式 由于并不是 规范化程度越高的关系就越优 一般说来 第三范式就足够了 所以对于 本系统 按照要求 达到第三范式 4 按照需求分析阶段得到的处理要求 分析对于这样的应用环境这些模式是 否合适 确定是否要对模式进行合并或分解 本系统中的管理员皆是餐厅 的员工 但是只要管理员拥有密码可以对餐厅进行管理 所以我把他们分 为管理员表和员工表 5 对关系模式进行必要的分解 提高数据操作的效率和存储空间的利用率 5 25 2 由由 E RE R 图得到的关系模式图得到的关系模式 数据结构名组成 管理员信息工号 姓名 密码 学生信息学号 姓名 密码 专业 卡内余额 餐厅信息编号 名称 食品价格表食品号 食品名 食品价 食品类别 营业表餐厅编号 学号 食品号 食品数量 消费时间 付 款方式 食品类别 员工信息工号 姓名 职位 所属餐厅 下划线标注的属性为主码 六 六 物理结构设计物理结构设计 6 16 1 为关系模式选择存取方法为关系模式选择存取方法 数据库在物理设备上的存储结构与存取方法称为数据库的物理结构 它依 赖于选定的数据库管理系统 为一个给定的逻辑数据模型选取一个最适合应用 环境的物理结构的过程 就是数据库的物理设计 这个系统我选择使用索引 为前五个基本表以主键建立了唯一索引 为营 业表建立了以餐厅编号 学生学号 食品编号和消费时间一起的唯一索引 6 26 2 选择存取路径选择存取路径 create database 学校餐厅 on name 学校餐厅 data filename d slslsl 学校餐厅 data mdf 10 log on name 学校餐厅 log filename d slslsl 学校餐厅 log ldf 6 36 3 创建基本表创建基本表 1 创建管理员表 CREATE TABLE manager mno CHAR 9 PRIMARY KEY mname CHAR 20 NOT NULL mpsw CHAR 18 NOT NULL 2 创建学生表 CREATE TABLE student sno CHAR 9 PRIMARY KEY sname CHAR 20 NOT NULL spsw CHAR 18 NOT NULL sdept CHAR 20 NOT NULL sbalance INT CHECK sbalance 0 11 3 创建餐厅表 CREATE TABLE restaurant rno CHAR 9 PRIMARY KEY rname CHAR 20 NOT NULL 4 创建食品表 CREATE TABLE food fno CHAR 9 PRIMARY KEY fname CHAR 20 NOT NULL fprice INT NOT NULL fbelong CHAR 20 NOT NULL 12 5 创建餐厅营业表 CREATE TABLE operation rno CHAR 9 NOT NULL sno CHAR 9 NOT NULL fno CHAR 9 NOT NULL fnum CHAR 10 NOT NULL ctime DATETIME DEFAULT GETDATE way CHAR 10 NOT NULL fbelong CHAR 20 NOT NULL FOREIGN KEY rno REFERENCES restaurant rno FOREIGN KEY sno REFERENCES student sno FOREIGN KEY fno REFERENCES food fno 6 创建员工表 CREATE TABLE worker wno CHAR 9 PRIMARY KEY wname CHAR 20 NOT NULL wpost CHAR 18 NOT NULL rno CHAR 9 NOT NULL FOREIGN KEY rno REFERENCES restaurant rno 13 6 46 4 建立索引建立索引 CREATE UNIQUE INDEX worker wno ON worker wno CREATE UNIQUE INDEX manager mno ON manager mno 14 CREATE UNIQUE INDEX student sno ON student sno CREATE UNIQUE INDEX restaurant rno ON restaurant rno 15 CREATE UNIQUE INDEX food fno ON food fno 16 CREATE UNIQUE INDEX operation rsft ON operation rno ASC sno ASC fno ASC ctime ASC 6 56 5 创建触发器创建触发器 CREATE TRIGGER student balance ON operation AFTER INSERT AS BEGIN DECLARE card char 10 定义变量 DECLARE time datetime select card way time ctime from inserted if card card begin UPDATE student SET student sbalance student sbalance food fprice operation fnum 1 FROM student operation food WHERE student sno operation sno and operation fno food fno and ctime time end END 学生卡内余额 原余额 食品单价 X 数量 X 折扣 只有当学生的付款方式为刷卡时才计算 支付现金不计算 17 6 66 6 创建视图创建视图 CREATE VIEW pf operation AS SELECT student sno restaurant rno food fno fprice fnum fnum fprice 1 price food fbelong ctime FROM operation restaurant student food WHERE operation sno student sno AND operation rno restaurant rno AND operation fno food fno 18 七 七 数据库的实施数据库的实施 7 17 1 数据的载入数据的载入 1 向管理员表中插入数据 INSERT INTO manager mno mname mpsw VALUES 30481 王红 30481 INSERT INTO manager mno mname mpsw VALUES 30482 李明 30482 2 向学生表中插入数据 INSERT INTO student sno sname spsw sdept sbalance VALUES 201215121 李勇 15121 cs 101 INSERT INTO student sno sname spsw sdept sbalance VALUES 201215143 刘晨 15143 cs 140 INSERT INTO student sno sname spsw sdept sbalance VALUES 201247384 王敏 47384 ma 99 INSERT INTO student sno sname spsw sdept sbalance VALUES 201268974 张立 68974 is 70 19 由于建立了触发器会自动修改学生卡内余额 截图是在所有消费记录输入 过以后的 所以插入数据时的余额跟截图的余额会有不同 3 向餐厅表中插入数据 INSERT INTO restaurant rno rname VALUES 01 清风楼 INSERT INTO restaurant rno rname VALUES 02 映月阁 4 向食品表中插入数据 INSERT INTO food fno fname fprice fbelong VALUES 01 红烧鱼块 4 carn INSERT INTO food fno fname fprice fbelong VALUES 02 炸鸡腿 4 carn INSERT INTO food fno fname fprice fbelong VALUES 03 清炒西洋菜 2 veg INSERT INTO food fno fname fprice fbelong VALUES 04 苦瓜炒蛋 2 veg INSERT INTO food fno fname fprice fbelong VALUES 05 酸辣土豆丝 2 veg INSERT INTO food fno fname fprice fbelong VALUES 06 家常豆腐 2 veg 5 向餐厅营业表中插入数据 插入了两天的营业记录 时间自动为系统时间 20 INSERT INTO operation rno sno fno fnum way fbelong VALUES 01 201215121 01 01 cash carn INSERT INTO operation rno sno fno fnum way fbelong VALUES 01 201215121 03 01 cash veg INSERT INTO operation rno sno fno fnum way fbelong VALUES 01 201215143 02 02 cash carn INSERT INTO operation rno sno fno fnum way fbelong VALUES 01 201215143 05 01 cash veg INSERT INTO operation rno sno fno fnum way fbelong VALUES 02 201247384 01 02 cash carn INSERT INTO operation rno sno fno fnum way fbelong VALUES 02 201247384 03 01 cash veg INSERT INTO operation rno sno fno fnum way fbelong VALUES 02 201247384 04 01 cash veg INSERT INTO operation rno sno fno fnum way fbelong VALUES 02 201247384 05 01 cash veg INSERT INTO operation rno sno fno fnum way fbelong VALUES 02 201268974 01 01 cash carn INSERT INTO operation rno sno fno fnum way fbelong VALUES 02 201268974 05 01 cash veg INSERT INTO operation rno sno fno fnum way fbelong VALUES 02 201268974 02 01 cash carn INSERT INTO operation rno sno fno fnum way fbelong VALUES 01 201215121 04 01 card veg INSERT INTO operation rno sno fno fnum way fbelong VALUES 01 201215143 06 01 card veg INSERT INTO operation rno sno fno fnum way fbelong VALUES 02 201268974 03 01 card veg 21 6 向员工表中插入数据 INSERT INTO worker wno wname wpost rno VALUES 40481 张兰 经理 01 INSERT INTO worker wno wname wpost rno VALUES 40482 马燕 厨师 01 INSERT INTO worker wno wname wpost rno VALUES 40483 周扬 经理 02 INSERT INTO worker wno wname wpost rno VALUES 40484 王刚 厨师 02 8 数据库的试运行数据库的试运行 22 8 1 视图中的数据视图中的数据 8 28 2 视图的查询视图的查询 23 经计算 结果正确 九 数据库运行和维护九 数据库运行和维护 9 19 1 系统开发工具的介绍系统开发工具的介绍 微软公司的 Visual Basic 6 0 是 Windows 应用程序开发工具 是目前最为广 泛的 易学易用的面向对象的开发工具 Visual Basic 提供了大量的控件 这些 控件可用于设计界面和实现各种功能 减少了编程人员的工作量 也简化了界 面设计过程 从而有效的提高了应用程序的运行效率和可靠性 利用 VISUAL BASIC 程序设计语言 可以很方便地设计出在 WINDOWS 环境下运行的应用 程序 故而 实现本系统 VB 是一个相对较好的选择 ADO 对象能够存取到数据库的内容 首先要求数据库的驱动程序 ODBC 驱 动程序与 OLE DB 驱动程序 必须安装上 否则 ADO 对象是无法存取数据库中 24 内容 其原理示意图如下图所示 9 29 2 VBVB 6 06 0 与与 SQLSQL seversever 的连接的连接 如果在一台新的电脑上应该先附加数据库 就是说要先有数据资源 对于我们的实验关机后会使数据库中我们自己建立的数据库不见 所以可以进 行如同下图的步骤 客户端客户端客户端 ADO 对象 各种数据库所对应的驱动程序 各种数据库 如 Access SQL Server 以及 Oracle 等 25 选择 mdf 格式文件即可 会提示附加数据库成功 26 点击 VB 工程处添加 新增一个模块 在里面输入如下代码 即可实现 VB 与数据库 SQL 的连接 Option Explicit Public strSQL As String Public Function ExecuteSQL ByVal strSQL As String As ADODB Recordset On Error GoTo ErrorTrap 声明 ADODB Connection 对象变量 Dim objConnection As ADODB Connection 声明 ADODB Recordset 对象变量 Dim objRecordset As ADODB Recordset 声明一个存放 SQL 查询条件的数组 Dim strArray As String 定义新连接 Set objConnection New ADODB Connection 创建新连接 objConnection ConnectionString ConnectString 打开数据库 objConnection Open Split 函数返回一个下标从零开始的一维数组 包含指定数目的子字符串 strArray Split strSQL If InStr INSER DELETE UPDATE UCase strArray 0 Then 执行 SQL 查询 objConnection Execute strSQL Else 打开记录集 Set objRecordset New ADODB Recordset objRecordset Open Trim strSQL objConnection adOpenKeyset adLockOptimistic Set ExecuteSQL objRecordset End If 释放对象 Set objRecordset Nothing Set objConnection Nothing Exit Function 出错处理 ErrorTrap Set objRecordset Nothing Set objConnection Nothing End Function 27 连接字符串赋值函数 Public Function ConnectString As String ConnectString Provider SQLOLEDB 1 Integrated Security SSPI Persist Security Info False Initial Catalog 学校餐厅 Data Source 本地数据库写 即可 End Function 9 39 3 VBVB 实现学校餐厅的管理实现学校餐厅的管理 9 3 19 3 1 登录界面登录界面 分为管理员和学生两种使用者 管理员有两个 初始登录密码是自己的工号 登录后可以自己修改 代码如下 Private Sub Command1 Click 声明 ADODB Recordset 对象变量 Dim objRecordset As ADODB Recordset 声明 SQL 字符串 28 Dim strSQL As String Select Case opt Case 1 查找用户名 strSQL select mno from manager where mno Integrated Security SSPI Persist Security Info False Initial Catalog 学校餐厅 Data Source cn BeginTrans cn Execute strSQL Err Number 0 55 If Err Number 0 Then cn CommitTrans MsgBox 恭喜您 数据备份成功 vbOKOnly vbExclamation 提示 Else cn RollbackTrans MsgBox 对不起 数据备份失败 vbOKOnly vbExclamation 提 示 End If End Sub Private Sub Command3 Click 管理员界面 Show Unload Me End Sub 恢复 点击浏览按钮会弹出电脑磁盘图框 进行选择备份到的磁盘 点击备份按钮 进行备份 56 代码如下 Private Sub Command1 Click CommonDialog2 Filter C CommonDialog2 ShowOpen If Len CommonDialog2 FileName 0 Then Open CommonDialog2 FileName For Append As 1 Text2 Text CommonDialog2 FileName Close 1 End If End Sub Private Sub Command2 Click ret MsgBox 数据恢复操作将覆盖以前所有的数据并且覆盖后无法 恢复 你确定要进行恢复操作吗 vbOKOnly vbExclamation 提示 If ret vbOK Then Dim cn As New ADODB Connection Dim sn As New ADODB Recordset Dim s restore As String cn Open Provider SQLOLEDB 1 Integrated Security SSPI Persist Security Info False Initial Catalog master Data Source 57 sn Open select spid from sysprocesses where dbid db id 学校餐厅 cn Do While Not sn EOF cn Execute kill sn spid sn MoveNext Loop sn Close s restore restore database 学校餐厅 from disk Trim Text2 Text with REPLACE cn Execute s restore cn BeginTrans If Err Number 0 Then cn CommitTrans MsgBox 恭喜您 数据还原成功 vbOKOnly vbExclamation 提示 Else cn RollbackTrans MsgBox 对不起 数据还原失败 vbOKOnly vbExclamation 提示 End If cn Close Else Exit Sub End If End Sub Private Sub Command3 Click 管理员界面 Show Unload Me 58 End Sub 9 3 39 3 3 学生功能学生功能 其中一个学生进行登录 1 查看自己基本信息 因为学生的隐私问题 所以我觉得应该对学生进行权限管理 学生和管理员看 到的信息应该不同 并且学生应该只能看自己的信息 所以我在学生登录那里 设置了一个变量 student ID 使得学生在进界面时 只能看到自己的信息 修 改自己的密码 59 2 修改密码 如果两次密码填写不同 则会提示 代码如下 Private Sub Command1 Click Dim strSQL As String Dim objRecordset As ADODB Recordset If Trim Text1 Text Trim Text2 Text Then MsgBox 密码不一致 vbOKOnly vbExclamation Text1 SetFocus Text1 Text Text2 Text ElseIf Text1 Text Or Text2 Text Then MsgBox 密码不能为空 vbOKOnly vbExclamation 60 Else strSQL update student set spsw Trim Text1 Text where sno 学生界面 StudentID Set objRecordset ExecuteSQL strSQL MsgBox 密码修改成功 vbOKOnly vbExclamation End If End Sub Private Sub Command2 Click 学生界面 Show Unload Me End Sub 3 查询余额 代码如下 Private Sub Command1 Click Dim strSQL As String Dim objRecordset As ADODB Recordset strSQL select sbalance from student where sno 学生界面 StudentID Set objRecordset ExecuteSQL strSQL Text1 Text objRecord