《access数据库宿舍系统》课程设计指导书及任务书.doc

《ACCESS 数据库》课程设计任务书及指导书班 级 姓 名 指导老师 赵 艳 平 安徽水利水电职业学院 电子信息工程系第 1 页一、系统名称与系统功能介绍本系统是面向一般大中小学寝室的管理而是设计的，系统名称为《寝室管理系统》 作为本次课程设计课题，考虑到时间的有限和设计的易操作性，本系统只实现了寝室管理方面的基本功能，实现的主要功能有：（1）寝室基本数据管理①寝室信息的修改；② 寝室信息入库； ③寝室信息的查询；④寝室信息的打印2）学生宿舍楼数据管理①学生宿舍楼信息的修改；② 学生宿舍楼信息的添加； ③学生宿舍楼信息的查询；④ 学生宿舍楼空床位的统计； ⑤学生宿舍楼信息的打印；（3）学生档案信息管理①学生档案信息的录入；② 学生档案信息的修改； ③学生档案信息的查询；④ 学生档案信息的删除；⑤ 学生档案信息的打印二、设计指导与任务分配（一）数据库设计根据本系统的规模，经过数据需求分析、数据项分析、规范化等步骤，其数据库结构如图 1 所示：可见数据库中包含有宿舍楼基本数据（Dormitory .dbf） 、寝室基本数据（Bedroom.dbf） 、学生档案基本数据（Student.dbf）三个表。

 [学生基本数据] 数据表：此表主要用来存储学生的基本数据 字段结构（表 1）另外，xh 字段设置为：[规则]：NOT. NULL[信息]：“学号不能为空！”第 2 页表 1：学生基本数据字段名 类型 长度 标题 显示类别 默认值 格式 输入屏蔽xh 字符 9 学号 99999999qsh 字符 4 寝室号 xm 字符 10 姓名 xb 字符 2 性别 bj 字符 20 班级 zy 字符 16 专业 rxrq 日期 8 入学日期 dhhm 字符 11 R (9999)9999999dz 字符 40 地址  索引（表 2）表 2：学生基本数据索引排序 索引名 类型 表达式 xh 主索引 xh qsh 普通索引 qsh xm 普通索引 xm图 1：数据库结构第 3 页 bj 普通索引 bj 函数依赖关系（图 2）学号专业地址图 2 [寝室记录] 数据表：此表主要用来存储寝室基本数据记录 字段结构（表 3）表 3：寝室记录字段名 类型 长度 标题 默认值 输入屏蔽qsh 字符 4 寝室号 9999sslh 字符 2 宿舍楼号 99qsz 字符 8 寝室长bzr 字符 8 班主任dhhm 字符 11 (9999)9999999wsfs 数值 4 卫生分数wmqs 逻辑型 1 文明寝室 .F.kcws 数值 2 空床位数 索引（表 4）表 4：寝室记录表索引排序 索引名 类型 表达式 筛选 qsh 主索引 qsh sslh 普通索引 sslh 函数依赖关系（图 3） [宿舍楼数据] 数据表：此表主要用来存储宿舍楼的基本数据。

 字段结构（表 5）姓名性别寝室号班级入学日期第 4 页寝室号文明寝室空床位数图 3表 5：宿舍楼数据字段名 类型 长度 标题 默认值 格式 输入屏蔽sslh 字符 2 宿舍楼号 99gly 字符 8 管理员zbdh 字符 7 值班 9999999kzws 数值 4 空床位数 索引（表 6）表 6：宿舍楼数据表索引排序 索引名 类型 表达式 sslh 主索引 sslh 函数依赖关系管理员值班空床位数宿舍楼号图 4（二）界面（表单）设计1、主界面（学生宿舍管理） （见图 5）：宿舍楼号寝室长班主任卫生分数第 5 页图 5为了从主界面进入登录界面，必须为表单 form1 的 click 事件编写代码Do form k1.scxThisform.release2、用户登录界面（k1.scx）(见图 6)设计一个用户登录界面，目的是加强数据安全管理，具有该系统使用权限的人才能进入系统，否则谢绝使用第 6 页图 63、系统界面（系统表单.scx）(见图 7)图 7在系统表单中包括四个主菜单，每个菜单又包括其相应的子菜单，如下所列，实现系统的全部功能编辑包括录入、修改、删除录入包括录入学生档案、寝室信息、宿舍楼信息；修改也包括这三项子菜单；删除包括按学号、按班级删除。

第 7 页查询菜单包括学生档案（按学号、按姓名、按班级） ，寝室信息、宿舍楼信息查询打印菜单包括学生档案（按班级） 、寝室信息打印退出菜单关闭系统4、录入学生档案（学生档案录入.scx） （见图 8）图 8按表单要求输入相关信息，点击“确定”按钮，则把相关信息输入到数据库的学生基本数据表，并且使“确定”和“放弃”按钮无效；点击“放弃”按钮则不把 相关信息输入到数据库，并且使“确定”和“放弃”按钮无效；点击“退出”按钮，则释放该表单5、录入寝室信息（寝室信息录入.scx） （见图 9）第 8 页图 9按表单要求输入相关信息，点击“确定”按钮，则把相关信息输入到数据库的寝室记录表，并且使“确定”和“放弃”按钮无效；点击“放弃”按钮则不把 相关信息输入到数据库，并且使“确定”和“放弃”按钮无效；点击“退出”按钮，则释放该表单6、宿舍信息录入（宿舍楼信息录入.scx） （见图 10）第 9 页图 10按表单要求输入相关信息，点击“确定”按钮，则把相关信息输入到数据库的宿舍楼数据表，并且使“确定”和“放弃”按钮无效；点击“放弃”按钮则不把 相关信息输入到数据库，并且使“确定”和“放弃”按钮无效；点击“退出”按钮，则释放该表单。

7、学生档案修改（学生档案修改.scx） （见图 11）图 11在文本框中输入要修改的班级名称，按回车键，如果在数据库的学生基本信息表中存在该班级，则击活“进入修改界面” ，点击该按钮进入修改界面并且使该按钮无效，否则提示“没有该班级“，如图 12第 10 页图 12在该界面中进行修改，点击“确定”按钮，则把修改的结果存入学生档案基本信息表；点击“放弃”按钮，则不保存并且返回前一个界面8、寝室信息修改（寝室信息修改.scx） （见图 13）图 13第 11 页在 text1 中输入要修改的寝室号，把相关信息显示在其他文本框，可以在其中修改，修改完后，点击“确定“按钮，则保存修改结果，并清除文本框中信息；点击”放弃“按钮，则不保存相关信息如果在寝室记录表中无该寝室，则提示”不存在该寝室“9、宿舍楼信息修改（宿舍楼信息修改.scx） （见图 14）图 14在 text1 中输入要修改的宿舍楼号，把相关信息显示在其他文本框，可以在其中修改，修改完后，点击“确定“按钮，则保存修改结果，并清除文本框中信息；点击”取消“按钮，则不保存相关信息如果在宿舍楼数据表中无该宿舍楼，则提示”不存在该宿舍楼“。

10、按学号删除学生档案（按学号删除.scx） （见图 15）第 12 页图 15在 text1 中输入要删除的学生学号，按回车键，如果有该学生，则在其他文本框中显示其信息，点击“删除“按钮，给出提示”确实要删除该学生吗？“按” “是”删除该学生，如果该学生是寝室长，则要修改寝室记录表中该寝室的寝室长，如图 16，按“否”则不删除如果不存在该学生，则提示“没有该学生”图 16第 13 页11、按班级删除（按班级删除.scx）见图 17图 17在 text1 中输入班级名称，点击“删除”按钮，则提示 “确实要删除该班级” ，点击“是” ，删除点击“放弃”则不删除，并清除 text1点击“退出” ，释放该表单12、查询模块1）姓名查询.scx、第 14 页在姓名文本框中输入要查询的姓名，按回车键，弹出另一个表单，显示查询结果点击“继续查询”返回上个界面按班级查询方法与按姓名查询方法类似2）按学号查询.scx第 15 页在学号文本框中输入要查询的学号，按回车键，在其他文本框中显示其相关内容，并且为只读的点击“继续查询”把光标定位在学号文本框，清除其他文本框中内容寝室信息查询，宿舍楼信息查询可以和按学号查询类似的方法。

13、打印模块按班级打印.scx在班级文本框中输入要打印的班级，点击“先查询” ，把查询的内容保存在报表中，点击“后打印” ，把报表送往打印机打印打印寝室信息和按班级打印方法类似三）程序代码设计程序代码设计是程序设计的重点和难点这里以“学生档案录入”界面中“确定”按钮的 Click 事件过程和“按学号查询” 界面中的“text1 ”文本框的keypress 事件过程为例1、Procedure command1.click() &&学生档案录入中“确定”按钮的Click 事件过程mand1.enabled=.f. &&点击后使该按钮无效mand2.enabled=.f.第 16 页INSERT INTO 学生基本信息（xh,xm,xb,zy,bj,rxrq,qsh,dhhm）values(txtxh.value, txtxm.value, op1.value, txtzy.value, txtbj.value, ctod(thisform.txtrxrq.value), txtqsh.value, txtdhhm.value)&&追加一行空记录&&把文本框中信息赋值给与表字段同名的内存变量2、procedure text1.keypress() &&“按学号查询 ”界面中的“text1”文本框的 keypress 事件过程LPARAMETERS nKeyCode, nShiftAltCtrlif nKeyCode==13 &&如果按回车键，则执行以下代码go toploca for alltrim(xh)=alltrim(thisform.text1.value) &&按顺序查询if alltrim(xh)=alltrim(thisform.text1.value) &&如果找到该学号的学生，则把“学生基本数据表.dbf”的内容显示在相应文本框中thisform.text2.value=alltrim(xm)thisform.text3.value=alltrim(xb)thisform.text4.value=alltrim(qsh)if qszf=.t. thenthisform.text5.value="是"elsethisform.text5.value="否"endifthisform.text6.value=alltrim(bj)thisform.text7.value=alltrim(zy)thisform.text8.value=dtoc(rxrq)thisform.text9.value=alltrim(dhhm)thisform.tabstop=.t.第 17 页elsemessagebox("查无此人",0+16,"提示") &&如果没找到，则提示“查无此人”thisform.text1.value=""thisform.text1.setfocusendifendif。