订单管理信息系统设计课程设计-管理信息系统课程设计报告

1、山东交通学院课程设计报告题目：订单管理信息系统设计摘要企业订单管理系统，它是企业管理系统的一个主要组成部分，其作用是对客户、订单 之间进行行之有效的管理。本系统包括：管理员管理、客户管理、定金管理、销售管理、 系统信息等模块。本系统是用于企业内部的专有系统，它加强了企业订单处理的效率， 减轻了人员工作量，减少了传统方式带来的出错，从而降低了企业开销。本文介绍了在 Visual Basic 6.0环境下采用“自上而下地总体规划，自下而上地应用开发”的策略开发 一个企业订单管理信息系统的过程， 主要分析了企业订单管理系统的一些基本功能和组 成情况，企业的订单管理是涉及企业生产、企业资金流和企业的经

2、营风险的关键环节。订 单管理是企业管理中的源头管理。实施了订单管理信息系统后，企业的管理将迈上一个，达到了数据的一致性和安全性，且应用程序功能完备，符合了作为典型的信息管理系统 (MIS)的要求。关键字：订单信息管理系统、Visual Basic应用、Acess数据库1山东交通学院课程设计报告目录摘要1目录11概述21.1 设计的背景和意义21.2 可行性分析21.3 设计任务分工说明32系统分析42.1 系统功能分析42.2 系统流程分析42.2.1 业务流程图52.2.2 数据流程图52.3 系统性能分析63系统设计83.1 物理配置方案设计83.2 数据库设计83.3 操作数据库设计93

3、.4 界面设计113.4.1 用户登录113.4.2 主窗体133.4.3 订单录入153.4.4 客户信息管理183.4.5 商品信息查询表213.4.6 订单信息查询234总结26参考文献271概述1.1 设计的背景和意义企业订单管理系统是一个企业管理不可缺少的部分，它的功能对于企业的快速和高效的管理订单信息及交货信息致关重要，所以企业订单管理系统应该能够为用户提供充 足的信息和快捷的查询手段。但一直以来人们使用传统人工的方式进行管理，这种管理 方式存在着许多缺点，如：效率低、时间长、易冲突、不完美。作为计算机应用的一部分，使用计算机对企业订单信息进行合理的管理，具有手工 管理所无法比拟的

4、优点。例如：排序速度快、查找方便、可靠性高、成本低等。这些优 点能够极大地提高企业管理中的效率.，也是学校的科学化、正规化、信息化管理，与世 界接轨的重要条件。1.2 可行性分析1 .可行性分析可行性分析是在进行初步调查后所进行的对系统开发必要性和可能性的研究，所以也称为可行性研究。信息系统也应从技术可行性，经济可行性和社会可行性三方面来论 证。通过长时间的观察与实践，我认为订单管理系统的可行性分析如下：（1）经济可行性分析现在，计算机的价格已经十分低廉，性能却有了长足的进步.而本系统的开发，为企业 的工作效率带来了一个质的飞跃，为此主要表现在以下几个方面：a. 本系统的运行可以代替人工进行许

5、多繁杂的劳动；b. 本系统的运行可以节省许多资源；c. 本系统的运行可以大大的提高企业的工作效率；d. 本系统可以使敏感文档更加安全，等等。所以，本系统在经济上是可行的（2）技术可行性分析本系统采用面向对象的软件开发办法，以 Microsoft公司的可视开发环境 Visual Basic6.0作为主要开发工具，使用 Microsoft Access 2000作为关系数据库，并为 VB 编程语言中采用ADO数据库编程模型，配合功能强大的SQL查询语言实现建立关系数 据库，访问数据库，对数据库的更新，较好地实现了预定的需求功能。利用其提供的各 种面向对象的开发工具，尤其是数据窗口这一功能方便而简洁

6、操纵数据库的智能化对 象，首先在短时间内建立系统应用原型，然后，对初始原型系统进行需求迭代，不断修正和改进，直到形成较为完善的可行系统。（3）操作可行性分析由于现在的科技的飞速发展，计算机早已普及世界的方方面面，便利的科技条 件，给人们带来优越的工作环境，这也使人们对工作效率及可操作性都有了更高的 要求。因此，管理形式的计算机是社会发展的必然趋势，各种智能化的软件层出不 穷，减少了原来人工操作的费时费力的状况，从而提高了工作效率和准确度。本系 统为一个小型的企业订单信息管理系统，所耗费的资源非常小，学校的电脑无论是 硬件还是软件都能够满足条件，因此，本系统在运行上是可行的。1.3 设计任务分工

7、说明文字整理：李玉鑫资料收集：林涛程序设计：李鹏鹏校正：李鹏鹏302系统分析2.1 系统功能分析企业订单管理系统是一个企事业单位不可缺少的一部分，它的内容对于企业的管理 来说都是至关重要的，因此，企业订单管理系统应该能够为用户提供充足的信息和快捷 的查询手段，但一直以来人们使用传统的人工方式管理订单，这种管理方式存在着许多 缺点，诸如效率低，保密性差等，而且时间一长，将产生大量的文件和数据，这对于查 找、更新和维护都带来了不少的困难。随着科学技术的不断提高，计算机科学不断发展, 其强大的功能已经被人们深刻认识， 它已经进入了人类社会的各个领域并发挥着越来越 重要的作用。2.2 系统流程分析经过

8、仔细的需求分析，对订单信息管理系统业务流程作出以下描述：管理员登录系 统后管理系统，如订单信息，客户信息，商品信息等。负责将订单的基本信息录入系统 中，并且根据需求进行增加、删减以及修改。2.2.1业务流程图订单信息管理系统管理员信息输入信息查询系统维护打印报表删除订单信息订单查询查 询 订 单 信 息图2.1业务流程图用 户 管 理222数据流程图数据流程图主要是使整个流程简单明了的展现出来，首先是管理员登陆，输入登陆账号以及密码即可进入订单信息管理系统。 在主窗体里可查询客户信息，添加客户信息, 删除客户信息；添加订单信息，删除订单信息，修改订单信息；添加商品信息，修改商品信息，删除商品信

9、息以及做订单录入工作。最后这些信息全都展现给用户及管理员O图2.32.3 系统性能分析订单管理系统主要是对订单执行的管理，即对订单情况的记录、跟踪和控制，包括 针对合同的执行，控制订货价格、数量和客户、业务员信用管理、随时对订单完成情况 进行跟踪、控制订单的实际执行。通过这个系统，工作人员可以更加方便快捷的实现对 订单的一系列管理。3系统设计3.1 物理配置方案设计本系统采用面向对象的软件开发办法，以 Microsoft公司的可视开发环境 Visual Basic6.0作为主要开发工具，使用 Microsoft Access 2000作为关系数据库，并为 VB 编程语言中采用ADO数据库编程模

10、型，配合功能强大的SQL查询语言实现建立关系数 据库，放问数据库，对数据库的更新，较好地实现了预定的需求功能。3.2 数据库设计数据项目订单信息有关的数据字段名称数据类型字段大小主键结构注释下单日期日期/时间50是订单信息表对下单日期进行记录以及整合下单公司文本50否订单信息表记录下单公司，进行发单交货日期文本50否订单信息表在规定日期内及时交货订单类型文本50否订单信息表说明订单类型订单货物文本50否订单信息表准确记录订单的货物进行交货订单数量文本50否订单信息表发货数量和下单数量一致货物单位文本50否订单信息表记录准确订单量所在仓库文本50否订单信息表确定下单货物准确位置图3.1订单信息表

11、数据项目客户信息主字段名称数据类型字段大小键有关的数据结构注释客户名称文本50是客户信息查询表记录下单单位地区名称文本50否客户信息查询表确定送货地点城市名称文本50否客户信息查询表确定送货地点邮政编码数字长整形否客户信息查询表下单客户地区的邮编联系电话数字长整形不客户信息查询表及时联系客户联系地址文本50否客户信息查询表准确送达货物联系人姓名文本50否客户信息查询表联系客户的需要图3.2客户信息表数据项目-商品信息主字段名称数据类型字段大小键有关的数据结构注释商品名称文本50是商品信息管理表确定订单商品商品类型文本50否商品信息管理表确定商品类型商品单价文本50否商品信息管理表给客户报价商品

12、库存文本50否商品信息管理表所下单商品剩余库存所在仓库文本50否商品信息管理表准确定位下单商品位置图3.3商品信息表数据项目-管理员信息主有关的数据结字段名称数据类型字段大小键构注释id文本6是用户管理表登陆的账号idcardno文本18否用户管理表管理员的身份证mima文本6否用户管理表登陆的密码name文本20否用户管理表登陆人的名称role文本20否用户管理表角色gender文本1否用户管理表管理员性别图3.4管理员信息表3.3 操作数据库设计1、使用DATA控件连接数据库在硬盘的用户盘上建立一个用户目录 （如E:WORK,用于保存所有实验文件。启动 ACCES戈到数据库WLG西认有货物

13、表，并已经录入了多条数据。将WLG数据库打开， 转化97格式的数据库，取名 WLGL-97复制到用户目录下。启动VB,在窗体上加入DATA控件datal ,文本框控件textl，保存文件和工程到用 户目录下。设置DAT饵空件的databasename属性为WLGL-97设置DAT8空件的Recordsource属性为货物表。设置文本框控件的 datasource属性为datal,设置文本框控件的 datafield 属性为货物名称。运行程序，查看结果。修改上述文本框控件的 datafield 属性，查看结果。添加其 他文本框控件，设置属性，显示更多的货物表内容。大泡发山东省华联山东省5有限公司

14、一#斯邦威地区名祢山东省2、使用ADOD探件连接数据库在硬盘的用户盘上建立一个用户目录 （如E:WORK,用于保存所有实验文件。启动 ACCESS找到数据库 WLG明认有货物表，并已经录入了多条数据。复制到用户目录下。启动VB,通过菜单工程一部件一控件添加控件Microsoft ADODATACOhTTROeLO和 Microsoft DATAgrid CONTROL 6.0。通过工具箱加两个控件到窗体上。设置ADOD的属性，生成一提供程序一 Microsoft JET 4.0 OLE DB ；连接一WLGE 测试连接成功；记录源一命令类型：2表名称：货物表。设置datagrid控件属性dat

15、asource 为 ADODC1.2013/12/2勘和鸨食品有眼幺M00120K-I-1自品类2013/12/3美杼甄邦威ooooe20H-1-1服装类2013/12M大闰友000032014-1-1日常用品类2013/12/5 华金0000420K-1-2化枚品类2013/12/6 大陵00005二20K-1-2官品箕如13/12/7华联0000&20H-1-6服装类1001项起毛音201200231204250300123、使用数据窗体设计器操作数据库在硬盘的用户盘上建立一个用户目录 （如E:WORK,用于保存所有实验文件。启动 ACCESS戈到数据库WLG班认有货物表，并已经录

16、入了多条数据。将WLG散据库打开， 转化97格式的数据库，取名 WLGL-97复制到用户目录下。启动VB,通过菜单外接程序一可视化数据管理器，在visdata界面上文件打开数 据库一Microsoft ACCESS- WLGL-97,实用程序-数据窗体设计器一窗体名称：huowu一记 录源：货物表一添加使用的多个字段到右侧一生成窗体一关闭。对自动生成的窗体，重新排列位置、设置字体大小，颜色，控件长度等，调整界面 美观大方，不留空白，不显拥挤。4、使用ADO对象访问数据库在硬盘的用户盘上建立一个用户目录(如E:WORK,用于保存所有实验文件。启动ACCESS找到数据库WLG崎认有货物表，并已经录

17、入了多条数据。复制到用户目录下。启动VB,通过菜单 工程一引用 添加Microsoft ActiveX DATA Objects2.5. 窗体上 添加按钮控件，添加list控件listl,编写单击事件如下：Dim i%, j%Dim ansi As New ADODB.ConnectionDim com1 As New ADODB.CommandDim rst1 As New ADODB.Recordsetansi .Open "Provider=Microsoft.Jet.OLEDB.4.0;PersistSecurity lnfo=False;Data Source=E:WORK

18、WLGtdb"Set com1 .ActiveConnection = ansicom1 .CommandText = "select * from货物表”rst1 .Open com1, , adOpenDynamic, adLockOptimisticrstl.MoveFirsti = rst1 .RecordCountFor i = 0 To 15Listl .Additem rst1 .Fields(1).ValueForj = 0 To 6Print rstl.Fields(j);Next jrst1 .MoveNextPrintNext i3.4界面设计341用

19、户登录系统登录控制，必须使用用户名和密码登录后才能使用系统代码如下Option ExplicitPublic LoginSucceeded As BooleanPrivate Sub cmdcancel_Click()设置全局变量为false'不提示失败的登录LoginSucceeded = False Me.HideEndEnd SubPrivate Sub cmdOK_Click()Dim cn As New ADODB.ConnectionDim rs As New ADODB.RecordsetDim constr As StringSecuritycn.Open HProvi

20、der=Microsoft.Jet.OLEDB.4.0;Data Source'& App.Path & Hddgl.mdb;Persist lnfo=False"If Trim(txtUserName.Text) = ,f ThenMsgBox (”请输入用户名")txtUserName.SetFocusElsers.Open "select * from 用户管理 where id="' & Trim(txtUserName.Text) & , cn, adOpenDynamic, adLockOpti

21、misticIf rs.BOF And rs.EOF ThenMsgBox ("不存在该用户，请重新输入用户名")txtUserName.SetFocusElse,若用户未指定列名If txtPassword = rs.Fields("mima") ThenLoginSucceeded = TrueMe.HideMDIForml .ShowElseMsgBox "密码错误，请重试!","登录"txtPassword.SetFocusSendKeys ”Home+EndEnd IfEnd IfEnd IfEnd Su

22、bPrivate Sub Form_Load()Me.Picture = LoadPicture(App.Path & "11 .jpg")End Sub3.4.2主窗体代码如下:Private Sub gbxt_Click()Unload MeEnd SubPrivate Sub gzryjbxxcx_Click()End SubPrivate Sub gzryjbxxsr_Click()End SubPrivate Sub kcbdjxgxxcx_Click() frkccx.ShowEnd SubPrivate Sub kcbdjxgxxsr_Click()E

23、nd SubPrivate Sub Picture1_Click()End SubPrivate Sub ddlr_Click()fxsddlr.ShowEnd SubPrivate Sub ddxxcx_Click() fxsddxxcx.ShowEnd SubPrivate Sub khxxgl_Click()fxskhxxgl.ShowEnd SubPrivate Sub MDIForm_Load()End SubPrivate Sub qxjmmsz_Click() frmmxg.ShowEnd SubPrivate Sub xscjc_Click()fxskhxxgl.ShowEnd

24、 SubPrivate Sub yspsxxcx_Click() frysxxcx.ShowEnd SubPrivate Sub xsyjbxxsr_Click()fxsddlr.ShowEnd SubPrivate Sub xxzyxxb_Click()fxsddxxcx.ShowEnd SubPrivate Sub spxxcx_Click() fxsspxxcxb.ShowEnd Sub3.4.3 订单录入订单信息管理，管理订单信息，可以添加、修改和删除订单信息，在增加订单时需要使用的产品信息和经销商信息必须首先通过产品信息管理和经销商信息管理功能添 加；代码如下'添加记录Pri

25、vate Sub cmdadd_Click()Adodcl. Recordset. AddNew For i = 0 To 8Text1(i).Enabled = True Text1(i).Text = "" Next iText1(0).SetFocus cmdadd.Enabled = False cmddelete.Enabled = False cmdedit.Enabled = False cmdsave.Enabled = True cmdcanceLEnabled = True End SubPrivate Sub cmdcancel_Click(),放弃修

26、改Adodcl .Recordset.CancelUpdateFor i = 0 To 8Text1(i).Enabled = FalseNext icmdsave.Enabled = FalsecmdcanceLEnabled = Falsecmdadd.Enabled = Truecmdedit.Enabled = Truecmddelete.Enabled = TrueEnd SubPrivate Sub cmddelete_Click()Dim myval As Stringmyval = MsgBoxf 是否要删除该记录？", vbYesNo)If myval = vbYe

27、s ThenAdodcl .Recordset.DeleteAdodcl .Recordset.MoveNextIf Adodcl .Recordset.EOF ThenAdodcl. Recordset. MoveLastFor i = 0 To 8Text1(i).Enabled = FalseNext iEnd IfEnd IfEnd SubPrivate Sub cmdedit_Click()If Adodcl .Recordset.RecordCount <> 0 ThenFor i = 0 To 8Text1(i).Enabled = TrueNext icmdsave

28、.Enabled = TruecmdcanceLEnabled = Truecmdadd.Enabled = Falsecmdedit.Enabled = Falsecmddelete.Enabled = FalseElseMsgBox ("没有要修改的记录！”)End IfEnd SubPrivate Sub cmdsave_Click()，保存记录If Text1(0).Text = "" ThenMsgBox "姓名不能为空！"Text1(0).SetFocusExit SubEnd IfAdodcl .Recordset. Update

29、For i = 0 To 8Text1(i).Enabled = FalseNext icmdsave.Enabled = FalsecmdcanceLEnabled = Falsecmdadd.Enabled = Truecmdedit.Enabled = Truecmddelete.Enabled = TrueEnd SubPrivate Sub cmdExit_Click() '退出Unload MeEnd SubPrivate Sub Form_Load()Me.Picture = LoadPicture(App.Path & "12.jpg")En

30、d Sub3.4.4 客户信息管理.经销商信息管理，管理订单中的经销商信息，可以查询、添加、修改和删除客户信 息。b客户相关信息管理客户信息管理客户名称:地区名称:德州扒鸡有限公司*山东省联系电话,联系地址安街5号城市名称产帏联系人姓名：李朋瓢邮政编码53000添加修改删除客户名称除誉工而漉有限公司一美特斯邦威一大词发省省省 东东东 lip山山保存取消代码如下Private Sub cmdadd_Click() '添加记录Adodcl .Recordset.AddNewFor i = 0 To 6Text1(i).Enabled = TrueText1(i).

31、Text = ""Next iText1(0).SetFocuscmdadd.Enabled = Falsecmddelete.Enabled = Falsecmdedit.Enabled = Falsecmdsave.Enabled = TruecmdcanceLEnabled = TrueEnd SubPrivate Sub cmdcancel_Click()，放弃修改Adodcl .Recordset.CancelUpdateFor i = 0 To 6Text1(i).Enabled = False 1信息浏览 MNext icmdsave.Enabled = Fa

32、lsecmdcanceLEnabled = Falsecmdadd.Enabled = Truecmdedit.Enabled = Truecmddelete.Enabled = TrueEnd SubPrivate Sub cmddelete_Click()Dim myval As Stringmyval = MsgBoxf 是否要删除该记录？", vbYesNo)If myval = vbYes ThenAdodcl .Recordset.DeleteAdodcl .Recordset.MoveNextIf Adodcl .Recordset.EOF ThenAdodcl. Re

33、cordset. MoveLastFor i = 0 To 6Text1(i).Enabled = FalseNext iEnd IfEnd IfEnd SubPrivate Sub cmdedit_Click()If Adodcl .Recordset.RecordCount <> 0 ThenFor i = 0 To 6Text1(i).Enabled = TrueNext icmdsave.Enabled = TruecmdcanceLEnabled = Truecmdadd.Enabled = Falsecmdedit.Enabled = Falsecmddelete.En

34、abled = FalseElseMsgBox ("没有要修改的记录！”)End IfEnd SubPrivate Sub cmdsave_Click()'保存记录If Text1(0).Text = "" ThenMsgBox "姓名不能为空！"Text1(0).SetFocusExit SubEnd IfAdodcl .Recordset. UpdateFor i = 0 To 6Text1(i).Enabled = FalseNext icmdsave.Enabled = FalsecmdcanceLEnabled = False

35、cmdadd.Enabled = Truecmdedit.Enabled = Truecmddelete.Enabled = TrueEnd SubPrivate Sub cmdExit_Click() '退出Unload MeEnd SubPrivate Sub Form_Load()Me.Picture = LoadPicture(App.Path & "12.jpg")End Sub3.4.5 商品信息查询表用户查询，查询系统中的商品信息，可以选择查询方式，使用指定的方式查询相应的信 息，并且以列表的形式显示出来。b存户相关信息管理客户信息管理客户名称

36、:德州扒鸡有限公司联系电话区名称山东省联系地址:长安街5号城市名称州市联系人姓名：李朋瓢邮政编码产3。添加修改删除客户名称除誉工而漉有限公司一美特斯邦威一大词发省省省 东东东 山山保存取消 1信息浏览 M代码如下：Private Sub Command1_Click（）If Textl.Text = "" ThenMsgBox ”请准确输入查询内容 "End IfIf Combol.Text ="商品名称"Then订单管理系统 ddgl.mdb;Persist Security lnfo=False"Adod

37、c2.RecordSource = "select * from 商品信息管理 where 商品名称 like '%" & Textl.Text & "%"'Adodc2.CommandType = adCmdTextAdodc2. RefreshIf Not Adodc2. Recordset.EOF ThenText2.Text = Adodc2.Recordset.Fields（"商品名称"）Text3.Text = Adodc2.Recordset.Fields（"商品类型"

38、）Text4.Text = Adodc2.Recordset.Fields（"商品单价”）Text5.Text = Adodc2.Recordset.Fields（"商品库存"）Text6.Text = Adodc2.Recordset.Fields（"所在仓库"）Else: MsgBox ”您所要查询的内容不存在！ ”End IfEnd IfIf Combol.Text = *'商品类型"Then订单管理系统 ddgl.mdb;Persist Security lnfo=False"Adodc2.RecordSou

39、rce = "select * from 商品信息管理 where 商品类型 like '%" & Textl.Text &Adodc2.CommandType = adCmdTextAdodc2. RefreshIf Not Adodc2. Recordset.EOF ThenText2.Text = Adodc2.Recordset.Fields（"商品名称"）Text3.Text = Adodc2.Recordset.Fields（"商品类型"）Text4.Text = Adodc2.Recordset.

40、Fields（"商品单价"）Text5.Text = Adodc2.Recordset.Fields（"商品库存"）Text6.Text = Adodc2.Recordset.Fields（"所在仓库"）Else: MsgBox "您所要查询的内容不存在！"End IfEnd IfEnd SubPrivate Sub Command2_Click（）MDIForml.Showfryfxskhxxcxb.HideEnd SubPrivate Sub Form_Load（）Combol.Additem （M 商品名称&

41、quot;）Combol.Additem （"商品类型"）Me.Picture = LoadPicture（App.Path & "12.jpg"）End Sub3.4.6订单信息查询用户查询，查询系统中的订单信息，可以选择查询方式，使用指定的方式查询相应的信 息，并且以列表的形式显示出来 Private Sub Command1_Click()代码如下：If Textl.Text = "" ThenMsgBox ”请准确输入查询内容”End IfIf Combed .Text = "订单日期"Then订单

42、管理系统 ddgl.mdb;Persist Security lnfo=False"Adodc2.RecordSource = "select * from 订单信息表 where 订单日期 like '%" & Textl.Text & "%"'Adodc2.CommandType = adCmdTextAdodc2. Refresh下单日期") 下单公司") 订单号")If Not Adodc2. Recordset.EOF ThenText2.Text = Adodc2. Re

43、cordset. Fields("Text3.Text = Adodc2. Recordset. Fields("Text4.Text = Adodc2. Recordset. Fields("订单类型")订单货物")订单数量”)货物单位")Text5.Text = Adodc2.Recordset.Fields("交货日期")Text6.Text = Adodc2.Recordset.Fields("Text7.Text = Adodc2. Recordset. Fields("Text8.T

44、ext = Adodc2. Recordset. Fields("Text9.Text = Adodc2. Recordset. Fields("TextIO.Text = Adodc2.Recordset.Fields("所在仓库")Else: MsgBox "您所要查询的内容不存在！”End IfEnd IfIf Combol .Text ="订单号"Then订单管理系统 ddgl.mdb;Persist Security lnfo=False"Adodc2.RecordSource = "select * from 订单信息表 where 订单号 like '%" & Textl.Text & "%"'Adodc2.CommandType = adCmdTextAdodc2. Refresh下单日期") 下单公司&quo