1、银杏酒店管理学院管理信息系统实验指导书管理信息系统实验指导书一、实验的地位、作用管理信息系统实验作为课程实践性环节之一，是教学过程中必不可少的重要内容。通过计算机实验和案例分析，使学生加深理解、验证巩固课堂教学内容；增强管理信息系统的感性认识；掌握管理信息系统分析、开发的基本方法；培养学生理论与实践相结合的能力。二、基本原理及课程简介管理信息系统是一门培养学生信息系统分析、设计、开发能力的理论课程，同时要求学生具有较强的动手实践能力。在信息管理与信息系统专业的培养计划中，它是核心课程。本课程在教学内容方面着重基本理论、基本知识和基本方法。在实践能力方面着重培养系统分析方法、系统设计方法与基本技
2、能的训练。实验课程不同于理论课程，应充分体现“教师指导下的以学生为中心”的教学模式，以学生为认知主体，充分调动学生的积极性和能动性，重视学生自学能力的培养，共开设5个实验项目。实验1-4侧重单项技能训练，实验5为综合性实验。三、实验内容及要求用信息系统开发工具（例如VFP，也可用Access、VB等）开发一个实用的中小型管理信息系统。1、根据实验时间选择适当规模大小的设计课题。2、根据合理的进度安排，按照系统开发的流程及方法，踏实地开展实验活动。3、实验过程中，根据选题的具体需求，在开发各环节中撰写相关的技术文档，最后要求提交详细的课程设计报告。4、开发出可以运行的管理信息系统，通过上机检查。
3、四、实验的考查由指导教师根据学生完成课程设计任务的情况综合打分，记入平时成绩。五、实验报告撰写要求实验报告撰写的基本要求是报告原则上不少于2000字，需在封面注明设计选题、班级、姓名、学号及课题设计日期、地点，其正文至少包括如下几个方面的内容：（1）可行性分析（2）系统分析部分 1）业务流程图 2）数据流程图 3）功能分析图 4）数据字典 5）数据加工处理的描述 6）管理信息系统流程设想图（新系统模型）（3）系统设计部分 1）功能结构图设计 2）新系统信息处理流程设计 3）输出设计（主要指打印输出设计） 4）存储文件格式设计（数据库结构设计） 5）输入设计（主要指数据录入卡设计） 6）代码设计
4、（职工证号和部门代号等） 7）程序设计说明书（4）系统实施部分 1）程序框图 2）源程序 3）模拟运行数据 4）打印报表 5）系统使用说明书（5）附录或参考资料 六、指导教师原则上由管理信息系统课程讲授教师负责，由年轻教师担任主要的实验指导教师，实验室人员配合指导。指导教师应在每次实验前讲清实验目的、基本原理、实验要求等，指导学生在规定的时间内完成相关课程实验。七、实验设备配置每人配置1台电脑，安装Visual Foxpro以及其他开发工具，可访问Internet。八、重要提示 本课程实验分两大部分： 第一部分：技术基础，熟练掌握Visual Foxpro6.0第二部分：管理信息系统综合实验学
5、时分配按专业和总课时灵活调配。第一部分：技术基础（8课时）实验一 基础知识实验目的：熟悉Visual FoxPro6.0用户界面要求：1熟悉Visual FoxPro的各种窗口、菜单、对话框，了解其用途。2了解Visual FoxPro的设计与管理工具。3假定表结构为：Sb(编号 C(5),名称 C(6),启用日期 D,价格 N(9,2),部门 C(2),主要设备 L,备注 M, 商标 G )用表设计器建立表sb.DBF的结构并输入数据记录。4写出实验报告。实验二 表的建立与维护实验目的：熟练掌握表的基本操作 要求：1 利用实验1的结果，建立与维护表文件sb.dbf。2 验证下列例题：例24
6、定义内存变量C,N1,N2,N3。 s=VFP & 字符串VFP赋给变量S ,结果S值为VFP,并成为字符型变量 STORE 2*4 TO n1,n2,n3 & 计算2*4得8,结果3个变量值都是8,都成为数字型变量例25 按下列要求显示SB.DBF的有关信息。(1) 列出头3个记录。 (2) 列出部门代码为21(一车间)的编号、名称与备注。 (3) 列出1995年前所启用设备的编号、名称、价格与启用日期,还要求其中的价格打9折,并且不显示记录号。 USE sb LIST NEXT 3 & (1) LIST 部门,编号,名称,备注 FOR 部门=21 & (2) LIST 编号,名称,价格*0
7、.9,启用日期 FOR YEAR(启用日期)=1990 AND YEAR(启用日期)=1995 LIST & 只显示1990年至1995年的记录 set filtER to & 取消过滤器 LIST & 显示全部记录 例2-9 对SB.DBF命令设置字段表,使有效字段为编号、名称和部门。 use SB set fielDS to 编号,名称,部门 LIST & 显示3个字段的数据 set fielDS OFF & 取消字段表的作用 LIST & 显示所有字段的数据例2-10 建立设备大修表DX.DBF。 CREATE TABLE dx(编号 c(5),年月 c(4),费用 n(6,1) LIS
8、T STRUCTURE & 主屏幕显示DX.DBF的结构 INSERT INTO dx VALUES(016-1,8911,2763.5) INSERT INTO dx VALUES(016-1,9112,3520.0) INSERT INTO dx VALUES(037-2,9206,6204.4) INSERT INTO dx VALUES(038-1,8911,2850.0) LIST OFF & 主窗口显示所有记录例2-11 将例2-6产生的表A1.DBF中所有记录的名称和价格字段的值追加到SB.DBF的末尾。 USE sb APPEND FROM a1 FIELDS 名称,价格 &
9、A1表中7个记录的2个字段值追加到SB表的末尾例2-12 将例2-7产生的文本文件B1.TXT的记录添入SB.DBF的末尾。 use sb APPEND FROM b1 SDF & B1.TXT是系统数据格式的文本文件2写出实验报告。实验三 查询与统计 实验目的：熟练掌握数据查询与统计这两种最常见的应用要求：1. 上机操作，验证下列例题。2. 写出实验报告。例3-1 对SB.DBF分别按以下要求排序: (1) 将非主要设备按启用日期降序排序,并要求新表只包含编号、名称、启用日期等3个字段。 (2) 将主要设备按部门降序排序,当部门相同时则按价格升序排序。 USE sb SORT TO rqx
10、ON 启用日期/D FIELDS 编号,名称,启用日期 FOR NOT 主要设备 USE rqx & 打开新表RQX.DBF LIST & 主窗口显示如下 USESORT TO bmx ON 部门/D,价格 FOR 主要设备 USE bmx LIST & 主窗口显示如下 例3-2 为SB.DBF建立一个结构复合索引文件,其中包括3个索引： (1) 记录以价格降序排列,索引为普通索引型。 (2) 记录以部门升序排列,部门相同时则按价格升序排列,索引为普通索引型。 (3) 记录以部门升序排列,部门相同时则按价格降序排列,索引为候选索引型。 USE sb INDEX ON 价格 TAG jg DES
11、CENDING & 建立SB.CDX,并为价格字段建立普通索引,索引标识为JG LIST & 记录已按价格降序排列 INDEX ON 部门+STR(价格,9,2) TAG bmjg ; & 以字段表达式“部门+STR(价格,9,2)”建立普通索引,索引标识BMJG增入SB.CDX LIST & 索引表达式运算后升序排列, 致使记录按部门升序、部门相同按价格升序排列 INDEX ON VAL(部门)-价格/1000000 TAG bmjg1 CANDIDATE ; & 以字段表达式建立候选索引,索引标识bmjg1增入SB.CDX LIST & 索引表达式运算后升序排列,致使记录按部门升序、部门相
12、同按价格降序排列 例3-3 根据例3-2建立的索引改变主控索引。 USE sb set ordeR to jg & 用索引标识JG指定主控索引 LIST & 记录按价格降序排列 set ordeR to 3 & 用索引序号3指定BMJG1为主控索引LIST & 记录以部门升序排列,部门相同时则按价格降序排列SET ORDER TO & 取消主控索引 LIST & 记录按物理顺序显示 set ordeR to 2 & 用索引序号2指定BMJG为主控索引LIST & 记录按部门升序排列,部门相同时则按价格升序排列 例3-4 在SB.DBF中查询价格小于15000元的非主要设备。 USE sb LO
13、CATE FOR 价格=01/01/92(c) 例3-9设置的多一关系可用如下命令序列来表达: SELECT 2 USE bmdm & 打开子表 INDEX ON 代码 TAG 代码 ADDITIVE & 子表在代码字段建立索引 SELECT 1 USE sb & 打开父表 SET RELATION TO sb.部门 INTO bmdm ADDITIVE & 指定在部门字段对子表设置多一关系例3-10 列出所有设备的价格、增值和部门名,试写出命令序列。 CLOSE ALL SELECT 2 USE bmdm & 子表1 SET ORDER TO TAG 代码 SELECT 3 USE zz &
14、 子表2 INDEX ON 编号 TAG bh SELECT 1 USE sb & 父表 SET RELATION TO sb.部门 INTO bmdm SET RELATION TO sb.编号 INTO zz ADDITIVE SET SKIP TO zz & 子表ZZ为多方BROWSE FIELDS 编号,价格,zz.增值,bmdm.名称:H=部门名 例3-11 统计设备科拥有的设备台数,试写出命令序列。 SET VIEW TO sbbm & 恢复例3-9所建立的sb表与bmdm表的关联 LOCATE FOR bmdm.名称=设备科 dm=bmdm.代码 & 将bmdm表当前记录的代码保
15、存到内存变量dm中 COUNT FOR sb.部门=dm TO ts & 由于两个表指针联动,不可直接用bmdm.代码来代替dm ?设备科设备台数:,ts & 显示“设备科设备台数: 2” 例3-12 试根据SB.DBF与ZZ.DBF求各设备的价格和与增值和,试写出命令序列。 CLOSE ALLUSE sb IN 0 & 在可用的最小编号工作区打开sb表SUM 价格 TO mjg SELECT 0 USE zz SUM zz.增值 TO mzz ?价格和,增值和:,mjg,mzz & 显示“价格和,增值和: 505859.47 4720.00” 例3-13 求所有设备价格与增值的总和,试写出命
16、令序列。 CLOSE ALLUSE sb IN 0CALCULATE SUM(价格) TO jgh SELECT 0 USE zz CALCULATE SUM(增值) TO zzh ?价格与增值总和:,jgh+zzh & 显示“价格与增值总和: 510579.47” 例3-14 在DX.DBF中按设备的编号来汇总大修费用,试写出命令序列。 USE dx INDEX ON 编号 TAG bh TOTAL ON 编号 TO jghz FIELDS 费用 & 按编号汇总费用,写入新表JGHZ.DBF USE jghz BROWSE FIELDS 编号,费用 TITLE 大修费用汇总表 例3-15 查
17、找大修过的所有设备。 SELECT DISTINCT 编号 FROM dx 例3-16 求出每一设备的增值金额,并送至打印机打印。 SELECT 编号,SUM(增值) FROM zz ; GROUP BY 编号 TO PRINTER 例3-17 找出大修费用已超过5000元的设备,并将结果存入数组ADX。 SELECT 编号 FROM dx ; GROUP BY 编号 HAVING SUM(费用)5000 INTO ARRAY adx FOR i=1 TO ALEN(adx) & ALEN函数返回数组元素的个数 ?adx(i) NEXT 例3-18 求价格低于20000元的设备名称、启用日期与
18、部门,并按启用日期升序排序。 SELECT 名称,启用日期,部门 FROM sb ; WHERE 价格20000 ORDER BY 启用日期 ASC 例3-19 查找增值设备的编号、名称及每次增值的金额。解一： SELECT sb.编号,sb.名称,zz.增值 ; FROM sb INNER JOIN zz ON sb.编号=zz.编号解二： SELECT sb.编号,sb.名称,zz.增值 FROM sb,zz ; WHERE sb.编号=zz.编号 例3-20 试汇总设备的大修费用,要求 (1) SB.编号头3位小于038。 (2) 显示设备名称与大修费用小计。 (3) 显示结果按大修费用
19、小计降序排列。 解一： SELECT sb.名称, SUM(dx.费用) FROM sb INNER JOIN dx ON sb.编号 = dx.编号; WHERE LEFT(sb.编号,3) 038; GROUP BY dx.编号; ORDER BY 2 DESCENDING由于不可使用SUM(dx.费用)作为排序表达式,故命令的ORDER BY子句中用数字2来表示按查询结果中的第2列排序。查询结果如图3.25所示。解二： SELECT sb.名称, SUM(dx.费用) FROM sb,dx ; WHERE sb.编号 = dx.编号 AND LEFT(sb.编号,3) 038; GROU
20、P BY dx.编号; ORDER BY 2 DESCENDING 例3-21 找出增值设备的名称,所属部门和累计增值金额。 SELECT sb.名称 as 设备名,bmdm.名称 AS 部门名,SUM(zz.增值) AS 累计增值额; FROM sb,bmdm,zz; WHERE sb.编号 = zz.编号 AND sb.部门=bmdm.代码 GROUP BY zz.编号 例3-28 从SBSJ数据库所属的SB和ZZ两个表中抽取编号、名称和增值3个字段,组成名称为“我的视图”的SQL视图。 可使用以下的命令： OPEN DATABASE sbsj &含SB、ZZ等数据库表 CREATE SQ
21、L VIEW 我的视图; AS SELECT sb.编号,sb.名称,zz.增值 FROM sb,zz WHERE sb.编号=zz.编号实验四 结构化程序实验目的：熟练掌握Visual FoxPro6.0程序设计的基本方法要求：1. 上机操作（1）编一程序，要求显示九九乘法表（部分）：11=1 12=2 13=3 14=4 15=522=4 23=6 24=8 25=1055=25（2）编一学生成绩统计表。设学生表和成绩表文件有如下信息：学生表：xs.dbf 记录号 学号 姓名 住址 1 1001 李利 成都 2 1002 王华 绵阳 3 1003 张丽 重庆 4 1004 吴芳 内江 5
22、1005 赵华 自贡 成绩表：cj.dbf 记录号 学号 数学 外语 计算机 总分 平均 1 1001 56 76 79 2 1002 65 74 83 3 1003 76 65 79 4 1004 67 56 58 5 1005 78 96 59 计算各位学生平均成绩，并按平均成绩降序输出成绩表，表中要有学号、姓名、各科成绩及平均成绩等信息。（3）设计一个计算球表面积的子程序（或过程），并要求在主程序中带参数调用它。 计算公式：算球表面积= （4）设计一个自定义函数，用来求一元一次方程AX+B=0的根。2. 写出实验报告。实验五 菜单设计实验目的：熟练掌握菜单设计的基本方法要求：1. 利用菜
23、单设计器建立一个下拉式菜单。2. 建立一个具有撤销和剪贴板功能的快捷菜单，供浏览表文件是使用。同时编写一个调用程序，来调用这个快捷菜单。3. 写出实验报告。实验六 表单设计实验目的：熟练掌握表单设计的基本方法要求：1. 上机操作（1）创建以下表单：表单的Name属性值为：Form1;表单上放有两个命令按钮，其Name属性值分别为：Command1，Command2;命令按钮Command1的Click事件代码如下： thisform.scalemode=3 &表单坐标已象素为单位 x1=thisform.width/2 y1=thisform.width/2 max=iif(x1y1,x1,y
24、1) for r=0 to max step 10thisform.circle(r,x1,y1)endfor 命令按钮Command2的Click事件代码如下：thisform.clsthisform.release运行该表单：鼠标左键单击命令按钮Command1的结果是：鼠标左键单击命令按钮Command2的结果是：（2）创建只含一个文本框控件（Text1）的表单（Form1）：表单（Form1）的Load事件代码编写如下：PUBLIC i文本框（Text1）的Click事件代码编写如下：IF i=.T. THISFORM.TEXT1.VALUE=DATE( ) THISFORM.TEXT1.DateFormat=12 &日期格式设置为年月日次序 THISFORM.TEXT1.DateMark=. &年月日间隔符设置为点号 i=.F. ELSE THISFORM.TEXT1.VALUE=TIME( ) i=.T. ENDIF运行该表单时，鼠标左键逐次单击文本框的内部，该文本框内会出现什么情况？（3）创建一表单，运行该表单时从右到左滚动显示“成都银杏酒店管理学院”。2. 写出实验报告。实验七 高级表单设计实验目的：熟练掌握高级表单设计方法要求：1. 上机操作（1）设计一个具有密码检验功能的应用程序，并要求密码检验合
