经管类决策支持系统设计报告.docx
- 文档编号:9918398
- 上传时间:2023-02-07
- 格式:DOCX
- 页数:40
- 大小:1.30MB
经管类决策支持系统设计报告.docx
《经管类决策支持系统设计报告.docx》由会员分享,可在线阅读,更多相关《经管类决策支持系统设计报告.docx(40页珍藏版)》请在冰豆网上搜索。
经管类决策支持系统设计报告
决策支持系统
课程设计报告
学院经济与管理学院
专业班级信息管理与信息系统
学号
姓名
指导教师
1.课程设计的目的和意义
“决策支持系统”课程是是信息管理专业的专业必修课,通过本课程学习,使学生能够系统地掌握决策、决策制定、决策建模、决策支持系统的基本知识,了解决策理论以及物流决策相关的技术和方法,初步具有分析和解决一些实际问题的能力,为进一步学习专业课程打下基础。
本课程设计是在决策支持系统课程理论教学之后的实践教学习,通过课程设计达到如下目的:
1)培养学生运用所学课程决策支持系统的理论知识和技能以及对数据库组织、管理和使用能力。
2)初步掌握决策支持系统的基本方法,运用所学的程序开发语言开发一个简单的决策支持系统,掌握决策支持系统的整个开发过程,为今后决策支持系统的开发打下基础。
2.课程设计的基本要求和内容
2.1实验1(建立成本预测数据库)
在Access2003中建立成本预测数据库的具体步骤如下:
(1)单击操作系统桌面左下方的“开始”——“所有程序”“MicrosoftOffice”——“MicrosoftOfficeAccess2003”选项,启动Access2003,如图2-1所示。
图2-1启动Access2003
(2)Access2003启动后,显示器上将出现初始界面,单击界面“工具栏”中的“新建命令”。
(3)初始界面右侧的任务窗格将由“开始工作”变为“新建文件”,如图2-2所示。
单击“新建文件”任务窗格中的“空数据库”选项。
(4)显示器上将出现如图2-2所示的“文件新建数据库”对话框。
在对话框中指定数据库文件的存储路径为“e:
\...”,指定数据库文件名为“cbyc”(成本预测)。
在指定了数据库文件的存储路径及文件名后,单击“创建”按钮。
图2-2“空数据库”选项
(5)显示器上将出现如图2-3所示的“cbyc:
数据库”窗口。
至此,创建成本预测数据库的实验任务成功完成。
图2-3“cbyc:
数据库”窗口
(6)在成本预测数据库中建立统计数据表,统计数据表具有如下表2-1所示的数据结构。
表2-1统计数据表的表结构
序号
字段名称
数据类型
是否主键
说明
1
Id
自动编号
是
在表中添加每一条记录时保证输入记录的唯一性
2
X
数字
否
每批投入产品件数(百件),字段大小为整数
3
Y
数字
否
产品成本(百元),字段大小为整数
(7)将某企业经连续观察收集的15组某产品成本与每批投入产品件数的统计数据表,具体的统计数据如表2-2所示。
表2-2某产品成本与每批投入产品件数的统计数据
序号
每批投入产品件数(百件)
产品成本(百元)
1
53
53.42
2
91
84.53
3
87
80.87
4
49
52.45
5
14
25.60
6
98
87.12
7
78
72.93
8
82
76.50
9
58
55.14
10
33
41.00
11
45
49.51
12
52
53.16
13
16
26.22
14
68
66.04
15
61
59.26
2.2实验2(建立统计数据表)
在已经建立的成本预测数据库基础上建立统计数据表的具体步骤如下:
(1)鼠标双击图“cbyc:
数据库”窗口中“表”选项下的“使用设计器创建表”选项,显示器上将弹出如图2-4所示的“表”设计窗口。
图2-4“表”设计窗口
(2)根据表2-1给出的统计数据表的数据结构,在“表”设计窗口第一行的。
图2-5“表”设计窗口第一行
“字段名称”列输入“id”,在数据类型列选择“自动编号”,在“说明”列输入“在表中添加每一条记录时,该宇段可自动输入连续数字的编号。
将其设置为主关键字,可保证输入记录的唯一性。
”操作结果如图2-5所示。
(3)在“表”设计窗口第二行的“字段名称”列输入“x”,在“数据类型”列选择“数字”,在“说明”列输入“每批投人产品件数(百件)”,字段大小为整型。
在“字段属性”中“常规”选项的“宇段大小”字段上选择“整型”。
(4)在“表”设计窗口第三行的“字段名称'列输入“y”,在“数据类型”列选择图2-5输入“x”字段后的“表”设计窗口“数字”,在“说明”列输入“产品成本(百元),字段大小为单精度型。
”,在“字段属性”中“常规”选项的“字段大小”字段上选择“单精度型”。
(5)在“y”字段输入完成后,为数据表设置主键。
根据表2-1所示,统计数据表的主键是“id”。
因此,首先选中“id”行,然后,单击工具栏上的“主键”按钮,将可以看到在“id”行的左侧多了一个钥匙标记,表明已将“id”设为主键,操作结果如图2-6所示。
图2-6设置主键
(6)单击工具栏上的“保存”按钮,如图2-7所示。
图2-7“保存”
所示的“另存为”对话框。
在对话框中输入数据表的名称“tjsj”(统计数据)后,单击“确定”按钮,统计数据表便被成功保存。
(7)单击“表”设计窗口右上角的关闭标记,将关闭“表”设计窗口。
这时,可以看到“cbyc:
数据库”窗口中出现了新的“tjsj”标记,表明统计数据表。
习已经成功创建,操作结果如图2-8所示。
图2-8出现“tjsj”标记的“cbyc:
数据库”窗口
(8)将统计数据录入统计数据表
在统计数据表tjsj创建完成之后,就可以在其中录入表2-2给出的15组统计数据,具体操作步骤如下:
(1)鼠标双击图中的“tjsj”标记,显示器上将出现“数据编辑”窗口。
(2)由于id是自动编号,因此,不需要在“id”列输入任何数据,只需要根据表2-2,在“x”和“y”列输入相应的数据。
数据输入完成后,直接单击“数据编辑”窗口右上角的关闭标记,已经输入的数据便会自动保存下来。
至此,将统计数据录入统计数据表的任务成功完成。
2.3实验3(VisualBasic6.0编写应用程序)
VisualBasic6.0提供了开发Windows应用程序最迅速、最简捷的方法,使用它,不但可以方便快速地实现成本预测决策支持系统所需要的对话部件,同时,也可以被用来方便快速地编写成本预测决策支持系统所需要的模型程序,因此,结合成本预测决策支持系统的开发需要,本章安排了对VisualBasic6.0的安装过程,及其基本使用方法的介绍。
2.3.1实验目的
(1)掌握VisualBasic6.0的安装方法。
(2)掌握VisualBasic6.0的基本语法。
(3)掌握使用VisualBasic6.0编写应用程序的方法。
(4)掌握运行VisualBasic6.0应用程序的方法。
2.3.2实验内容及要求
(1)安装VisualBasic6.0。
(2)学习VisualBasic6.0的基本语法。
(3)使用VisualBasic6.0编写最小二乘法模型程序。
一元线性回归模型又称直线回归模型,是确定两个变量间线性关系的一种模型,主要用于预测,既可以是短期预测,也可以是长期预测。
一元线性回归模型的出发点是假定两个变量间存在着一种线性关系,其回归方程为
其中,Y是因变量,x是自变量,b0和b1分别是方程的常数项和回归系数(统称为参数)。
当己知因变量和自变量的多组数值Yi和xi时,可以根据下面给出的最小二乘法公式分别计算出常数项b0和回归系数b1。
而在获得常数项b0和回归系数b1的值后,给出一个自变量x的值,就可以根据回归方程计算出相应的因变量Y的值,即预测值。
根据上述对一元线性回归模型的介绍,使用VisualBasic6.0编写一个能够计算回归方程常数项和回归系数的程序(最小二乘法模型程序)。
这个程序能够利用实验1录入统计数据表2中的15组统计数据,将产品成本作为因变量,每批投入产品件数作为自变量,利用公式计算出常数项b0和回归系数b1的值,然后,将计算出的b0和b1的值保存在参数数据表中,从而确定出产品成本与每批投入产品件数之间的线性关系。
(4)使用VisualBasic6.0编写“最小二乘法模型程序”调用程序。
该程序能够调用根据实验要求(3)编写的“最小二乘法模型程序”,然后从参数数据库cs中取出参数b0和b1的值,并将他们显示在屏幕上。
(5)运行调用程序。
2.3.3实验步骤
(一)安装VisualBasic6.0
(二)学习VisualBasic6.0的基本语法
(三)编写“最小二乘法模型程序
使用VisualBasic6.0编写最小二乘法模型程序的具体步骤如下:
(1)鼠标双击位于“e:
\jczcyzjxt\jczcxt\sj”目录下的cbyc.mdb文件,打开成本预测数据库。
在成本预测数据库中再建立一张用于保存常数项
和回归系数
数值的参数数据表,命名为cs(参数)。
参数数据表的数据结构如表2-3所示。
表2-3参数数据表的数据结构
(2)在“e:
\jczcxt\”目录下新建名为mx(模型)的子目录,用于存放模型文件。
在mx子目录下新建名为zxecf(最小二乘法)的子目录,用于存放最小二乘法模型程序文件。
在zxecf子目录下新建名为ywj(源文件)的子目录,用于存放最小二乘法模型程序的源文件。
在zxecf子目录下新建名为mbwj(目标文件)的子目录,用于存放最小二乘法模型程序的目标文件。
(3)单击操作系统桌面左下方的“开始”-“所有程序”-“MicrosoftVisualBasic6.0中文版”-“MicrosoftVisualBasic6.0中文版”选项,启动VisualBasic6.0应用程序。
(4)VisualBasic6.0启动后,显示器上将出现如图2-9所示的“启动”界面。
选择“标准EXE”选项后,单击“打开”按钮。
图2-9“启动”界面
(5)显示器上将出现如图2-10所示的“工程”(整个VB应用程序被叫做一个工程)界面。
单击工具栏上的“保存”按钮。
(6)显示器上将弹出“Form1另存为”对话框。
选择文件保存路径为“e:
\jczcxt\mx\zxecf\ywj”,同时指定窗体文件名为“zxecf.frm(最小二乘法)。
当然,也可以为窗体文件指定其他的名称。
单击“保存”按钮。
图2-10“工程”界面
(7)显示器上将弹出的“工程另存为”对话框。
指定工程文件名为“zxecf.vbp”(最小二乘法)。
当然,也可以为工程文件指定其他的名称。
单击“保存”按钮。
(8)显示器上将弹出的“信息提示”对话框,单击“No”按钮,工程文件被成功保存。
(9)单击菜单栏上的“工程”-“添加模块”选项,模块将用于存放模块级变量及用户自定义的通用过程。
(10)显示器上将出现如图2-11所示的“添加模块”对话框,单击“打开”按钮。
(11)显示器上将出现如图2-12所示的“Module1”窗口。
同时,窗口右侧的任务窗格中也增加了一个“模块”文件夹。
图2-11“添加模块”对话框
图2-12“Module1”窗口
(12)在右侧属性窗口修改模块的名称为“zxecf”,修改后的结果如图2-13所示。
然后,单击工具栏上的“保存”按钮。
(13)显示器上将出现的“文件另存为”对话框。
指定模块文件名为“zxecf.bas”,选择文件保存路径为“e:
\jczcxt\mx\zxecf\ywj”。
然后,单击“保存”按钮,模块文件被成功保存。
图2-13修改模块名称
(14)单击菜单栏上的“工程”-“引用”选项,显示器上将出现如图2-14所示的“引用”对话框。
在对话框中勾选“MicrosoftActiveXDataOjects2.8Library”选项和“MicrosoftActiVexDataObjectsRecordset2.8Library”选项。
然后,单击“确定”按钮。
图2-14“引用”对话框
(15)鼠标双击图2-13右侧任务窗格中的zxecf模块,在弹出的zxecf(code)“代码编写”界面中编写程序代码,操作结果如图2-15所示。
在界面中输入的完整程序代码如下:
图2-15“代码编写”界面
PublicADOcn_mxAsConnection
SubMain()
DimADOcn_mxAsNewADODB.Connection
DimadorsAsNewADODB.Recordset
DimstrsqlAsString
ADOcn_mx.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;DataSource=e:
\jczcxt\cbyc.mdb;"
ADOcn_mx.Open
strsql="select*fromtjsj"
Setadors.ActiveConnection=ADOcn_mx
adors.CursorType=adOpenStatic
adors.Openstrsql
DimnumAsInteger
num=adors.RecordCount
Dimv1,iAsInteger,v2,sum1,sum2,sum3,sum4AsSingle
Fori=1Tonum
v1=adors("x").Value
v2=adors("y").Value
sum1=sum1+v1*v1
sum2=sum2+v2
sum3=sum3+v1
sum4=sum4+v1*v2
adors.MoveNext
Nexti
adors.Close
ADOcn_mx.Close
DimaAsSingle,bAsSingle,sql1AsString
a=sum1
b=sum4
a=(sum1*sum2-sum3*sum4)/(num*sum1-sum3*sum3)
b=(num*sum4-sum2*sum3)/(num*sum1-sum3*sum3)
ADOcn_mx.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;DataSource=e:
\jczcxt\cbyc.mdb;"
ADOcn_mx.Open
sql1="updatecsseta="&a&",b="&b
ADOcn_mx.Executesql1
ADOcn_mx.Close
EndSub
(16)单击菜单栏上的“工程”-“工程1属性”选项,显示器上将弹出如图2-16所示的“工程属性”对话框。
将“通用”标签下的“启动对象”属性修改为“SubMain”,然后单击“确定”按钮。
图2-16“工程属性”对话框
(17)单击菜单栏上的“文件”-“生成zxecf.exe"选项,显示器上将出现如图2-17所示的“生成工程”对话框,修改文件的存储路径为“e:
\jczcxt\mx\zxecf\mbwj”,然后,单击“确定”按钮,zxecf.exe文件将被成功生成并保存。
(18)单击菜单栏上的“保存”按钮,保存工程。
然后,单击菜单栏上的“文件”-“退出”选项,退出VisualBasic6.0。
图2-17“生成工程”对话框
(四)编写调用程序
使用VisualBasic6.0编写调用程序的具体步骤如下。
(1)在“e:
\jczcxt“目录下新建一个名为dy(调用)的子目录。
(2)启动VisualBasic6.0,进入“工程”界面。
然后,将“工程”界面右侧任务窗格属性窗口中的(名称)属性的值修改为“dy”,如图2-18所示。
图2-18“工程”界面
(3)单击“工程”界面左侧工具箱上的Frame控件,在窗体Forml中拖动鼠标左键绘制一个Frame。
然后,修改右侧任务窗格属性窗口中的Caption属性的值为“参数a、b的值”,操作结果如图2-19所示。
图2-19绘制“Frame”后的界面
(4)单击工具箱上的Label控件,在Frame上拖动鼠标左键绘制一个Label。
然后,修改其Caption属性的值为“常数项”。
使用同样的方法绘制第二个Label,修改其Caption属性的值为“回归系数”,操作结果如图2-20所示。
图2-20绘制“Label”后的界面
(5)单击工具箱上的TextBox控件,在“常数项”的后面拖动鼠标左键绘制一个TextBox,然后,修改其Text属性的值为空,(名称)属性的值为“Txta”,Enabled属性设置为False。
使用同样的方法在“回归系数”的后面拖动鼠标左键绘制第二个TextBox,并修改其Text属性的值为空,(名称)属性的值为“Txtb”,Enabled属性设置为False,操作结果如图2-21所示。
图2-21绘制“TextBox”后的界面
(6)单击工具箱上的CommandButton控件,在Frame的适当位置上拖动鼠标左键绘制一个CommandButton。
然后,修改其Caption属性的值为“计算”,操作结果如图2-22所示。
图2-22绘制“CommandButton”后的界面
(7)单击菜单栏上的“工程”-“引用”选项,在弹出的“引用”对话框中勾选“MicrosoftActiveXDataObjects2.8Library”选项和“MicrosoftActiveXDataObiectsRecordset2.8Library”选项。
(8)单击菜单栏上的“工程”-“添加模块”选项,添加一个新的模块,并修改其名称为“dymk”(调用模块)。
然后,单击工具栏上的“保存”按钮,将模块文件保存在“e:
\jczcxt\dy”目录下。
之后,将窗体文件(命名为dy.frm),以及工程文件(命名为dy.vbp)也保存在“e:
\jczcxt\dy”目录下。
(9)在dymk(Code)“代码编写”界面中编写程序代码,操作结果如图2-23所示。
图2-23dymk(Code)“代码编写”界面
在界面中输入的完整程序代码如下:
PublicSubmain()
SetADOcn=NewConnection
Dimsql1AsString
ADOcn.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;DataSource=e:
\jczcxt\cbyc.mdb;"
ADOcn.Open
sql1="delete*fromcs"
ADOcn.Executesql1
sql1="insertintocs(a,b)values(11,0)"
ADOcn.Executesql1
dy.Show
ADOcn.Close
EndSub
(10)鼠标双击右侧任务窗格中的“dy”窗体,然后双击窗体中的“计算”按钮,如图2-24所示。
图2-24双击“计算”按钮
(11)显示器上将出现dy(Code)“代码编写”界面。
在“代码编写”界面中编写Command1_Click事件处理程序代码,操作结果如图2-25所示。
图2-25Command1_Click事件处理程序代码
在界面中输入的完整程序代码如下:
PrivateSubCommand1_Click()
Shell("E:
\jczcxt\mx\zxecf\mbwj\zxecf.exe")
DimADOcnAsNewADODB.Connection
DimadorsAsNewADODB.Recordset
ADOcn.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;DataSource=e:
\jczcxt\cbyc.mdb;"
ADOcn.Open
DimstrsqlAsString
Setadors.ActiveConnection=ADOcn
DimaAsSingle,bAsSingle
strsql="select*fromcs"
adors.Openstrsql
a=adors("a")
b=adors("b")
adors.Close
Ifa<>0Then
EndIf
Dimm,nAsString
m=CStr(a)
n=CStr(b)
IfLeft(m,1)="."Then
m="0"&m
EndIf
IfLeft(n,1)="."Then
n="0"&n
EndIf
Txta.Text=m
Txtb.Text=n
Txta.Enabled=True
Txtb.Enabled=True
EndSub
(12)单击菜单栏上的“工程”-“工程1属性”选项,修改“启动对象”属性为“SubMain”。
单击菜单栏上的“保存”按钮,保存工程。
(五)运行调用程序
在ViSHalBasic6.0中运行调用程序的具体步骤如下:
(1)鼠标单击工具栏上的“启动”按钮,如图2-26所示。
图2-26“启动”按钮
(2)显示器上将弹出如图2-27所示的“初始运行”界面。
单击界面上的“计算”按钮。
(3)显示器上将弹出如图2-28所示的“结果显示”界面。
利用最小二乘法模型程序计算出来的参数a和b的值将显示在相应的文本框中。
图2-27“初始运行”界面
图2-28“结果显示”界面
2.4实验4(拓展练习)
预测经济变量的变化趋势时,突出主要矛盾,抓主要因素,用一元线形回归模型是行之有效的。
但在许多情况下,某些经济变量的变化同时受到几个因素的共同作用,要预测其变化趋势,则要选择多个自变量来建立多元回归方程。
通常是两
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 经管 决策 支持系统 设计 报告