《管理信息系统》实验指导书
课程名称：管理信息系统 课程代码：
英文名称：Management Information System，MIS
适用对象：工商管理类本科专业
学时学分：共64学时，其中理论教学48学时，实践16学时，3学分。
一、实验目的与任务
管理信息系统实验作为课程实践性环节之一，是教学过程中必不可少的重要内容。通过计算机实验和案例分析，使学生加深理解、验证巩固课堂教学内容；增强管理信息系统的感性认识；掌握管理信息系统分析、开发的基本方法；培养学生理论与实践相结合的能力。
二、实验开设对象
本实验开设对象为《管理信息系统》课程的学习者（工商管理类本科学生），实验为必修内容。
三、基本原理及课程简介
《管理信息系统》是信息管理与信息系统、电子商务、工商管理类专业学生的一门重要的专业基础课程，主要任务是在其它相关课程的基础上，使学生对信息系统的理论和应用有较深刻的了解，通过本课程的学习，使学生认识到信息对企业管理的重要意义，了解信息处理的各种方法和信息系统的各种形式，掌握信息系统开发的正确方法，具备一定的分析、设计和表达信息系统的能力。本课程强调实践，突出应用，为学生今后从事管理信息系统的管理与开发打下基础。在实践能力方面着重培养系统分析方法、系统设计方法与基本技能的训练。实验课程不同于理论课程，应充分体现“教师指导下的以学生为中心”的教学模式，以学生为认知主体，充分调动学生的积极性和能动性，重视学生自学能力的培养，共开设12个实验项目。
四、主要教材及参考书
教材：《信息时代的管理信息系统》（第六版） 斯蒂芬·哈格 机械工业出版社
参考书目：《管理信息系统》 黄梯云 高等教育出版社
《管理信息系统》（第四版） 薛华成 清华大学出版社
五、指导教师
原则上由管理信息系统课程讲授教师负责，由年轻教师担任主要的实验指导教师，实验室人员配合指导。指导教师应在每次实验前讲清实验目的、基本原理、实验要求等，指导学生在规定的时间内完成相关课程实验。
六、实验设备配置
每人配置1台电脑，安装有 Office/Visual Foxpro / Visual Basic，可访问Internet。
七、考核与报告
1．实验后，学生将实验结果等内容写出实验报告，符合实验教学的要求，并得到指导教师的认可。
2．指导教师对每份实验报告进行审阅、评分。
3．该实验课程依附于理论课，实验课的成绩记入课程平时成绩，占总成绩的20%。
实验一 认识计算机硬件和网络结构
一、实验题目
认识计算机硬件和网络结构。
二、实验课时
2课时。
三、实验目的
认识计算机的主要构成部件、功能、型号、在计算机机箱内的位置、网络结构等。
四、实验内容和要求
1、 利用多媒体演示计算机的主要组成部件：机箱、主板、CPU、内存条、硬盘、软驱、光驱、插槽、BUS总线、串行接口、并行接口、USB接口等；
2、 打开机箱，实物展示并讲解个部件的功能及其连接；
3、 机箱、主板、CPU、CPU风扇、内存条、显卡、网卡等分别如下所示。
机箱 主板
内存条 显卡 网卡 无线网卡
CPU CPU风扇 硬盘
机箱背面 并行接口 串行接口 USB接口
4、 观察每个部件在机箱的位置，并掌握每个部件的功能和基本知识。
5、 观察实验室网络结构图。
6、 结合某网吧的例子更好地理解网络结构。
7、独立完成上述内容，并提交书面实验报告。
实验二 信息技术在组织的应用情况及其效益
一、实验题目
信息技术在组织的应用情况及其效益。
二、实验课时
2课时。
三、实验目的
1．了解各种组织现在应用信息技术的情况；
2．了解组织应用信息技术的主要类型，给组织带来的效益，增强学生对信息技术作用的认识。
四、实验内容和要求
1、 登录互联网，通过百度（www.baidu.com）、谷歌(www.google.com)等搜索引擎，查看组织应用信息技术的情况（如联想、海尔、海信、招商银行、青啤等大公司）；
2、 学生自己上网操作，输入关键字搜索或登陆组织网站了解组织应用信息技术的情况；
3、 总结现代企业主要应用哪些信息技术并体会这些信息技术对组织的支持作用。
4、 独立完成上述内容，并提交书面实验报告。
实验三 客户关系管理（CRM）系统软件
一、实验题目
熟悉并操作客户关系管理（CRM）系统软件。
二、实验课时
2课时。
三、实验目的
1．了解客户关系管理（CRM）系统的功能模块；
2．熟悉CRM中的业务流程；
3．体会CRM对组织经营的影响。
四、实验内容和要求
1．网上搜索“StarCRM 客户关系管理系统”或其他免费CRM软件。
2．安装后熟悉客户关系管理软件的主要内容和功能。
3．输入帐号中的用户名和密码
4．客户关系管理系统中包括个人办公、营销中心、客户档案、销售管理、客户沟通、客户服务、客户报表、知识资源、系统设置几项功能。学生自己操作个功能模块，了解其功能和具体操作方法；
5．点击各个模块，尝试每种功能的操作方式和作用；
6．独立完成上述内容，并提交书面实验报告。
实验四 练习Excel中的部分功能，体验决策支持
一、实验题目
练习Excel中的部分功能，体验决策支持。
二、实验课时
2课时。
三、实验目的
练习Excel中的筛选、条件格式和数据透视表功能
四、实验内容和要求
1、本实验请参考教材第4章扩展模块中的内容。
2、给学生数据示例，首先建立Excel表格。
3、利用数据筛选功能查找符合要求的记录。打开“数据”菜单下的“筛选”子菜单，表格的标题部分会出现黑色的下拉键头，在黑色的下来键头下，设置筛选条件。
4、打开“格式”菜单下的“条件格式”子菜单，在弹出的对话框中设置条件，并给符合的记录设置格式。然后练习取消条件格式。
5、给学生第二个示例表。学生自己建立表。
6、打开“数据”菜单下的“数据透视表”子菜单。把相应的标题字段拖到行、列、数据项标示处，生成数据透视表。
7、独立完成上述内容，并提交书面实验报告。
实验五 熟悉和操作智能排课决策支持系统（DSS）
一、实验题目
熟悉和操作智能排课决策支持系统（DSS）。
二、实验课时
2课时。
三、实验目的
1．通过操作DSS实例，加强对DSS的理解，体会DSS在组织中的作用
2．了解决策支持系统具有的功能；体验决策支持系统对决策如何支持。
四、实验要求和内容
1、从下面的网址下载智能排课DSS系统
http://www.newhua.com/soft/37834.htm
2、从下面的网址下载指南针智能决策系统
http://soft.66169.com/soft.php?id=1015918
3、演示该系统主要功能的使用。
4、学生自己上网操作 ；
5、记录相关内容，课下写实验报告。
实验六 体验电子商务
一、实验题目
体验电子商务。
二、实验课时
2课时
三、实验目的
熟悉B2B、B2C、C2C电子商务操作流程，了解目前电子商务的发展情况
四、实验要求和内容
1、登陆阿里巴巴网站，网址：www.alibaba.com.cn，演示B2B、B2C、C2C网站的操作流程；
2、登陆当当网站，网址：www.dangdang.com，演示B2B、B2C、C2C网站的操作流程；
3、登陆易趣网站，网址：www.ebay.com.cn, 演示B2B、B2C、C2C网站的操作流程；
4、登陆淘宝等网站，网址：www.taobao.com,演示B2B、B2C、C2C网站的操作流程；
5、学生自己上网操作,了解目前电子商务网站经营商品的种类，经营方式，经营效果等；
6、记录相关内容，课下写实验报告。
实验七 电子商务网站建设
一、实验题目
电子商务网站建设。
二、实验课时
4课时
三、实验目的
通过创建小型的电子商务网站并尝试经营，体会电子商的运作过程和经营技巧
四、实验要求和内容
1、推荐免费主页空间或学生自己搜索能够提过免费空间的网站
推荐：www.mymyle.com
www.free8.com/webspace/index.htm
www.paipai.com
注：这些网站已经提供良好的电子商务网站模板，学生主要从事自己商品的上传、网站的宣传、网站的更新和交易的处理。
2、尝试选定网站提供的功能
3、规划自己的网站
4、建立自己的网站
5、学生访问其他同学的网站，并下订单模拟网上订购。
6、学生处理自己的订单，了解配送和付款方式。
7、更新自己的网站。怎么把自己的网站建设的更吸引人并易于操作？
第二篇：《管理信息系统》课内实验指导书5、6
《管理信息系统》课内实验指导书
实验五 系统设计（二）——数据库设计
一、实验目的
建立新系统的逻辑模型并在SQLSEVER或其它数据库环境下创建数据库
二、实验设备与仪器
Win2000以上软件操作系统，SQLSEVER2000或其它数据库开发环境。
三、实验内容
1、熟悉由概念模型向逻辑模型（主要指关系数据库模型）转化的过程；
2、根据系统分析的结果，创建数据库并在数据库中创建数据表；
3、根据所创建的数据表，绘制数据库的逻辑关系模型。
四、实验步骤
1、利用相关工具，根据实验三、四的结果，创建数据库并在数据库中创建数据表。
2、添加数据库记录。
五、实验要求
提交本次实验结果的WORD文档，并保留创建的数据库文件。
1
实验六 系统实施—MIS应用程序设计
一、实验目的
在VB或其它开发环境下创建信息系统应用程序
二、实验设备与仪器
Win2000以上软件操作系统，VB或其它软件开发环境。
三、实验内容
1、新系统应用程序的登录界面的实施；
2、创建应用程序的主界面并进行菜单设计；
3、连接应用程序和数据库，并完成对数据的查询、更新等数据操作程序设计；
4、完成统计报表的程序设计和打印模块的程序设计；
5、制作简单的应用程序帮助系统；
6、调试、编译程序；
7、运行测试应用程序。
四、实验步骤
本部分实验内容较多，同学们需要有计划有条理地独立完成各部分的功能。下面给出应用程序的主要界面及大部分代码，以供参考，希望对同学们进行程序设计有所帮助和启迪，同学们在实验过程中应该侧重理解，不要盲目照抄代码。
程序的体系结构及参考实例如下：
2
１、设计数据库：按照上述要求用Access建立数据库与表
院系信息表：Department(deptID,deptName)
班级信息表：Class(className,studentNum,detpID)
学生信息表：Student(studentID,studentName,ClassName)
课程信息表：Course(courseID,courseName,ExamTime,deptID)
教室信息表：Classroom(classroomName,holdNum)
考试性质表：KSXZ(KSXZID,KSXZ)
补考信息表：
BK_Stud(xn,xq,studentID,courseID,KSXZ,BKID,BKClassroom,BKTime,score,reason)
补考分配表：BK_Flag(BKBH,BKnum,xn,xq,courseID,BKTime)
补考教室分配表：Exam_Classroom(BKBH,BKClassroom)
用户信息表：User(userID,UserName,Userpassword)
2、系统功能结构图
3、用VB6.0实现系统
（1）、创建工程项目BKXT。
启动VB，单击“文件》新建工程”菜单，选择“VB企业版控件”，将自动产生一个窗体，其属性都是默认设置。将默认窗体移去，重命名工程全称为BKXY，然后单击“文件》保存工程”，选择保存工程位置，将工程保存。
（2）、创建BKXT的主窗体。
单击“工程》添加MDI窗体”，生成一个MDI窗体，设置窗体属性（参见主窗体及其控件属性设置）。
在主窗体中加入状态栏控件，设置状态栏的一般属性（参见主窗体及其控件属性设置）；然后选中状态栏，右键单击，在弹出菜单中选中“属性”，在弹出的属性页中，在“窗格”选项卡中两次单击“插入空格”，使状态栏的窗格为３个，然后分别设置不同窗格的样式：
表：状态栏空格样式属性设置
面板索引 １ ２ ３
样式属性单击“工具》菜单编辑器”，为主窗体加入菜单（参见主窗体菜单属性设置）。
3
表：主窗体及其控件属性设置
控件 属性
Caption
FrimMain（Form） StartUpPosition 属性取值 补考系统 屏幕中心
表：主窗体菜单属性设置
菜单标题 名称 上层菜单
文件无
用户信息文件
基本信息表维护文件
－基本信息表维护
课程信息基本信息表维护 班级信息基本信息表维护 时间信息基本信息表维护 －基本信息表维护
考试备注标志基本信息表维护 补考备注标志基本信息表维护
数据无
补考名单录入补考成绩录入学生信息录入班级信息录入课程信息录入院系信息录入教室信息录入补考性质录入自动安排考试地点与时间报表打印补考考试安排单补考学生成绩间退出 Tc 数据 数据 数据 数据 数据 数据 数据 数据 操作 无 －数据 －数据 操作无 统计查询操作 报表打印 报表打印 无
（3）、模块代码设计：
为了实验本程序的部分功能，也为了更好的分类设计程序，将功能相似的操作放在同一 4
创建数据库并在数据库中创建数据表模块中，设计了三个模块：
MdlMain模块（与数据库连接也和程序启动有关）：具体代码如下：
Public cnn As New ADODB.Connection
Public Function ExecuteSQL(ByVal SQL As String, MsgString As String) As ADODB.Recordset
Dim rst As ADODB.Recordset Dim sTokens() As String On Error GoTo ExecuteSQL_Error sTokens = Split(SQL) If
InStr("INSERT,DELETE,UPDATE",
UCase(sTokens(0))) Then
cnn.Execute SQL
MsgString = sTokens(0) & "Query Successful!"
Else
Set rst = New ADODB.Recordset rst.Open
Trim(SQL),
cnn,
adOpenKeyset, adLockOptimistic
Set ExecuteSQL = rst
MsgString = "查询到" & rst.RecordCount & "条记录"
End If ExecuteSQL_Exit: Set rst = Nothing Exit Function
ExecuteSQL_Error:
MsgString = "查询错误：" & Err.Description
Resume ExecuteSQL_Exit End Function
Public Function ConnectString() As String ConnectString
"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=db.mdb;Persist Security Info=false"
End Function Public Sub Main() Call DBConn FrmMain.Show End Sub
Public Sub DBConn()
Set Cnn = New ADODB.Connection cnn.Open ConnectString End Sub
Public Sub DBClose() cnn.Close Set cnn = Nothing End Sub
=
MdlCheckData(此模块主要验证输入的信息正确与否)，代码如下：
Public Function Testtxt(ByVal txt As String) As Boolean
If Trim(txt) = "" Then Testtxt = False Else
Testtxt = True End If End Function
Public Function checkStudentID(ByVal stuID As String) As Boolean
checkStudentID = True If Len(stuID) <> 8 Then
MsgBox ("学生学号必有为8位整数")
checkStudentID = False End If End Function
")
checkClassName = False
Public Function checkStudentName(ByVal stuName As String) As Boolean
checkStudentName = True
If Len(stuName) = 0 Or Len(stuName) > 50 Then
MsgBox ("学生姓名不能为空，而且不能超过50个字符！")
checkStudentName = False End If End Function
Public Function checkClassName(ByVal clsName As String) As Boolean
checkClassName = True If Len(clsName) <> 6 Then
MsgBox ("班级名称必须为6位整数
5
End If End Function
Public Function checkCourseID(ByVal couID As String) As Boolean
checkCourseID = True If Len(couID) <> 8 Then
MsgBox ("课程编号必须为8位整数")
checkCourseID = False End If End Function
Public Function checkCourseName(ByVal couName As String) As Boolean
checkCourseName = True
If Len(couName) = 0 Or Len(couName) > 50 Then
MsgBox ("课程名称不能为空，而且不能超过50个字符！")
checkCourseName = False End If End Function
ExamTime As Integer) As Boolean
checkExamTime = True If
checkExamTime
<
60
Or
checkExamTime > 120 Then
MsgBox "考试时间必有为 60—120 分钟之间!"
checkExamTime = False End If End Function
Public Function checkdeptID(ByVal deptID As String) As Boolean
checkdeptID = True If Len(couID) <> 2 Then
MsgBox ("院系编号必须为2位整数")
checkdeptID = False End If End Function
deptName As String) As Boolean
checkdeptName = True
If Len(deptName) = 0 Or Len(deptName) > 50 Then
MsgBox ("课程名称不能为空，而且不能超过50个字符！")
checkdeptName = False End If End Function
Public Function checkKSXZID(ByVal KSXZID As String) As Boolean
checkKSXZID = True If Len(KSXZID) <> 2 Then
MsgBox ("考试性质编号必须为2位整数")
checkKSXZID = False End If End Function
Public Function checkKSXZ(ByVal KSXZ As String) As Boolean
checkKSXZ = True
If Len(KSXZ) = 0 Or Len(KSXZ) > 50 Then
MsgBox ("考试性质不能为空，而且不能超过50个字符！")
checkKSXZ = False End If End Function
Public Function checkClassroomName(ByVal classroomName As String) As Boolean
checkClassroomName = True If
Len(classroomName)
=
Or
Len(classroomName) > 50 Then
MsgBox ("教室名称不能为空，而且不能超过50个字符！")
checkClassroomName = False End If End Function
MdlShowData（此模块主要在窗体中显示数据之用），代码如下：
6
Public Sub readDataKcmc(ByRef CboKcmc As ComboBox) CboKcmc.Clear
Dim tem As String
Dim MsgText As String
Dim rs As New ADODB.Recordset
Dim i As Integer
Dim txtSQL As String
txtSQL = "select * from Course order by courseID asc" Set rs = ExecuteSQL(txtSQL, MsgText)
For i = 1 To rs.RecordCount
CboKcmc.AddItem rs("courseID") & " " & rs("courseName") rs.MoveNext
Next i
rs.Close
End Sub
Public Sub readDataKsxz(ByRef CboKsxz As ComboBox)
CboKsxz.Clear
Dim tem As String
Dim MsgText As String
Dim rs As New ADODB.Recordset
Dim i As Integer
Dim txtSQL As String
txtSQL = "select * from KSXZ order by KSXZID asc" Set rs = ExecuteSQL(txtSQL, MsgText)
For i = 1 To rs.RecordCount
CboKsxz.AddItem rs("KSXZID") & " " & rs("KSXZ") rs.MoveNext
Next i
rs.Close
End Sub
Public Sub readDataYx(ByRef CboYx As ComboBox)
CboYx.Clear
Dim tem As String
Dim MsgText As String
Dim rs As New ADODB.Recordset
Dim i As Integer
Dim txtSQL As String
txtSQL = "select * from Department order by deptID asc" Set rs = ExecuteSQL(txtSQL, MsgText)
7
For i = 1 To rs.RecordCount
CboYx.AddItem rs("deptID") & " " & rs("deptName")
rs.MoveNext
Next i
rs.Close
End Sub
Public Sub readDataBj(ByRef CboBj As ComboBox, ByRef CboYx As ComboBox) CboBj.Clear
Dim tem As String
Dim MsgText As String
Dim s As String
Dim rs As New ADODB.Recordset
Dim i As Integer
Dim a, b As Integer
Dim txtSQL As String
b = Len(CboYx.Text)
a = InStr(CboYx.Text, " ")
s = Left(CboYx.Text, a)
txtSQL = "select * from Class where deptID='" & Trim(s) & "'"
Set rs = ExecuteSQL(txtSQL, MsgText)
For i = 1 To rs.RecordCount
CboBj.AddItem rs("className") & " " & rs("deptID")
rs.MoveNext
Next i
rs.Close
End Sub
Public Sub readDataXs(ByRef CboXs As ComboBox, ByRef CboBj As ComboBox) CboXs.Clear
Dim tem As String
Dim txtSQL As String
Dim MsgText As String
Dim rs As New ADODB.Recordset
Dim i As Integer
Dim a1, b1, a2, b2 As Integer
Dim s1, s2 As String
a2 = InStr(CboBj.Text, " ")
s2 = Left(CboBj.Text, a2)
txtSQL = "select * from Student where className='" & Trim(s2) & "'" Set rs = ExecuteSQL(txtSQL, MsgText)
8
For i = 1 To rs.RecordCount
CboXs.AddItem rs("studentID") & " " & rs("studentName") rs.MoveNext
Next i
End Sub
9