订单管理信息系统设计课程设计.doc

山东交通学院课程设计报告山东交通学院物流信息系统课程设计报告题目：订单管理信息系统设计院(系)别 交通与物流工程学院 专 业 物流工程专业 班 级 物流113 学 号 110512308 110512311 110512312 姓 名 李玉鑫 林 涛 李鹏鹏 指导教师 张良智、刘建磊 二一三年十二月27摘要 企业订单管理系统，它是企业管理系统的一个主要组成部分，其作用是对客户、订单之间进行行之有效的管理。本系统包括：管理员管理、客户管理、定金管理、销售管理、系统信息等模块。本系统是用于企业内部的专有系统，它加强了企业订单处理的效率，减轻了人员工作量，减少了传统方式带来的出错，从而降低了企业开销。本文介绍了在Visual Basic 6.0环境下采用“自上而下地总体规划，自下而上地应用开发”的策略开发一个企业订单管理信息系统的过程，主要分析了企业订单管理系统的一些基本功能和组成情况,企业的订单管理是涉及企业生产、企业资金流和企业的经营风险的关键环节。订单管理是企业管理中的源头管理。实施了订单管理信息系统后,企业的管理将迈上一个，达到了数据的一致性和安全性，且应用程序功能完备，符合了作为典型的信息管理系统(MIS)的要求。关键字:订单信息管理系统、Visual Basic应用、Acess数据库目录摘要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.4 界面设计113.4.1用户登录113.4.2主窗体133.4.3订单录入153.4.4客户信息管理183.4.5商品信息查询表213.4.6订单信息查询234 总结26参考文献271 概述1.1 设计的背景和意义企业订单管理系统是一个企业管理不可缺少的部分，它的功能对于企业的快速和高效的管理订单信息及交货信息致关重要，所以企业订单管理系统应该能够为用户提供充足的信息和快捷的查询手段。但一直以来人们使用传统人工的方式进行管理，这种管理方式存在着许多缺点，如:效率低、时间长、易冲突、不完美。作为计算机应用的一部分，使用计算机对企业订单信息进行合理的管理，具有手工管理所无法比拟的优点。例如：排序速度快、查找方便、可靠性高、成本低等。这些优点能够极大地提高企业管理中的效率，也是学校的科学化、正规化、信息化管理，与世界接轨的重要条件。1.2 可行性分析1.可行性分析可行性分析是在进行初步调查后所进行的对系统开发必要性和可能性的研究，所以也称为可行性研究。信息系统也应从技术可行性，经济可行性和社会可行性三方面来论证。通过长时间的观察与实践，我认为订单管理系统的可行性分析如下：（1）经济可行性分析现在,计算机的价格已经十分低廉,性能却有了长足的进步.而本系统的开发,为企业的工作效率带来了一个质的飞跃,为此主要表现在以下几个方面:a. 本系统的运行可以代替人工进行许多繁杂的劳动；b. 本系统的运行可以节省许多资源；c. 本系统的运行可以大大的提高企业的工作效率；d. 本系统可以使敏感文档更加安全，等等。所以，本系统在经济上是可行的（2）技术可行性分析本系统采用面向对象的软件开发办法，以Microsoft公司的可视开发环境 Visual Basic6.0 作为主要开发工具，使用Microsoft Access 2000作为关系数据库，并为VB编程语言中采用ADO数据库编程模型，配合功能强大的SQL查询语言实现建立关系数据库，访问数据库，对数据库的更新，较好地实现了预定的需求功能。利用其提供的各种面向对象的开发工具，尤其是数据窗口这一功能方便而简洁操纵数据库的智能化对象，首先在短时间内建立系统应用原型，然后，对初始原型系统进行需求迭代，不断修正和改进，直到形成较为完善的可行系统。（3）操作可行性分析由于现在的科技的飞速发展，计算机早已普及世界的方方面面，便利的科技条件，给人们带来优越的工作环境，这也使人们对工作效率及可操作性都有了更高的要求。因此，管理形式的计算机是社会发展的必然趋势，各种智能化的软件层出不穷，减少了原来人工操作的费时费力的状况，从而提高了工作效率和准确度。本系统为一个小型的企业订单信息管理系统，所耗费的资源非常小，学校的电脑无论是硬件还是软件都能够满足条件，因此，本系统在运行上是可行的。1.3 设计任务分工说明文字整理：李玉鑫资料收集：林涛程序设计：李鹏鹏校正：李鹏鹏2 系统分析2.1 系统功能分析企业订单管理系统是一个企事业单位不可缺少的一部分,它的内容对于企业的管理来说都是至关重要的，因此，企业订单管理系统应该能够为用户提供充足的信息和快捷的查询手段，但一直以来人们使用传统的人工方式管理订单，这种管理方式存在着许多缺点，诸如效率低，保密性差等，而且时间一长，将产生大量的文件和数据，这对于查找、更新和维护都带来了不少的困难。随着科学技术的不断提高，计算机科学不断发展，其强大的功能已经被人们深刻认识，它已经进入了人类社会的各个领域并发挥着越来越重要的作用。2.2 系统流程分析经过仔细的需求分析，对订单信息管理系统业务流程作出以下描述：管理员登录系统后管理系统，如订单信息，客户信息，商品信息等。负责将订单的基本信息录入系统中，并且根据需求进行增加、删减以及修改。2.2.1 业务流程图系统维护信息输入信息查询打印报表管理员订单信息管理系统权限及密码设置系统登录订单录入客户信息管理商品信息查询订单信息查询用户管理添加订单信息删除订单信息修改订单信息删除客户信息添加客户信息修改客户信息查询订单信息查询商品信息图2.1 业务流程图2.2.2 数据流程图数据流程图主要是使整个流程简单明了的展现出来，首先是管理员登陆，输入登陆账号以及密码即可进入订单信息管理系统。在主窗体里可查询客户信息，添加客户信息，删除客户信息；添加订单信息，删除订单信息，修改订单信息；添加商品信息，修改商品信息，删除商品信息以及做订单录入工作。最后这些信息全都展现给用户及管理员。管理员管理员订单信息管理系统客户信息订单信息用户登录信息商品信息订单录入管理员所在仓库货物单位你订单数量订单货物订单类型型交货日期订单号下单公司添加信息删除信息查看信息修改信息下单日期用户身份验证订单查询图2.2图2.32.3 系统性能分析订单管理系统主要是对订单执行的管理，即对订单情况的记录、跟踪和控制，包括针对合同的执行，控制订货价格、数量和客户、业务员信用管理、随时对订单完成情况进行跟踪、控制订单的实际执行。通过这个系统，工作人员可以更加方便快捷的实现对订单的一系列管理。3 系统设计3.1 物理配置方案设计本系统采用面向对象的软件开发办法，以Microsoft公司的可视开发环境 Visual Basic6.0 作为主要开发工具，使用Microsoft Access 2000作为关系数据库，并为VB编程语言中采用ADO数据库编程模型，配合功能强大的SQL查询语言实现建立关系数据库，放问数据库，对数据库的更新，较好地实现了预定的需求功能。3.2 数据库设计数据项目-订单信息字段名称数据类型字段大小主键有关的数据结构注释下单日期日期/时间50是订单信息表对下单日期进行记录以及整合下单公司文本50否订单信息表记录下单公司，进行发单交货日期文本50否订单信息表在规定日期内及时交货订单类型文本50否订单信息表说明订单类型订单货物文本50否订单信息表准确记录订单的货物进行交货订单数量文本50否订单信息表发货数量和下单数量一致货物单位文本50否订单信息表记录准确订单量所在仓库文本50否订单信息表确定下单货物准确位置图3.1订单信息表数据项目-客户信息字段名称数据类型字段大小主键有关的数据结构注释客户名称文本50是客户信息查询表记录下单单位地区名称文本50否客户信息查询表确定送货地点城市名称文本50否客户信息查询表确定送货地点邮政编码数字长整形否客户信息查询表下单客户地区的邮编联系电话数字长整形否客户信息查询表及时联系客户联系地址文本50否客户信息查询表准确送达货物联系人姓名文本50否客户信息查询表联系客户的需要图3.2客户信息表数据项目-商品信息字段名称数据类型字段大小主键有关的数据结构注释商品名称文本50是商品信息管理表确定订单商品商品类型文本50否商品信息管理表确定商品类型商品单价文本50否商品信息管理表给客户报价商品库存文本50否商品信息管理表所下单商品剩余库存所在仓库文本50否商品信息管理表准确定位下单商品位置图3.3商品信息表数据项目-管理员信息字段名称数据类型字段大小主键有关的数据结构注释id文本6是用户管理表登陆的账号idcardno文本18否用户管理表管理员的身份证mima文本6否用户管理表登陆的密码name文本20否用户管理表登陆人的名称role文本20否用户管理表角色gender文本1否用户管理表管理员性别图3.4管理员信息表3.3 操作数据库设计1、使用DATA控件连接数据库在硬盘的用户盘上建立一个用户目录（如E:WORK），用于保存所有实验文件。启动ACCESS，找到数据库WLGL,确认有货物表，并已经录入了多条数据。将WLGL数据库打开，转化97格式的数据库，取名WLGL-97，复制到用户目录下。启动VB，在窗体上加入DATA控件data1，文本框控件text1，保存文件和工程到用户目录下。设置DATA控件的databasename属性为WLGL-97，设置DATA控件的Recordsource属性为货物表。设置文本框控件的datasource属性为data1,设置文本框控件的datafield属性为货物名称。运行程序，查看结果。修改上述文本框控件的datafield属性，查看结果。添加其他文本框控件，设置属性，显示更多的货物表内容。2、使用ADODC控件连接数据库在硬盘的用户盘上建立一个用户目录（如E:WORK），用于保存所有实验文件。启动ACCESS，找到数据库WLGL,确认有货物表，并已经录入了多条数据。复制到用户目录下。启动VB,通过菜单 工程部件控件添加控件Microsoft ADO DATA CONTROL 6.0 和Microsoft DATAgrid CONTROL 6.0。通过工具箱加两个控件到窗体上。设置ADODC的属性，生成提供程序Microsoft JET 4.0 OLE DB；连接WLGL测试连接成功；记录源命令类型：2表名称：货物表。设置datagrid控件属性datasource为ADODC1.：3、使用数据窗体设计器操作数据库在硬盘的用户盘上建立一个用户目录（如E:WORK），用于保存所有实验文件。启动ACCESS，找到数据库WLGL,确认有货物表，并已经录入了多条数据。将WLGL数据库打开，转化97格式的数据库，取名WLGL-97，复制到用户目录下。启动VB,通过菜单 外接程序可视化数据管理器，在visdata界面上文件-打开数据库Microsoft ACCESS- WLGL-97,实用程序-数据窗体设计器窗体名称:huowu记录源：货物表添加使用的多个字段到右侧生成窗体关闭。对自动生成的窗体，重新排列位置、设置字体大小，颜色，控件长度等，调整界面美观大方，不留空白，不显拥挤。4、使用ADO对象访问数据库在硬盘的用户盘上建立一个用户目录（如E:WORK），用于保存所有实验文件。启动ACCESS，找到数据库WLGL,确认有货物表，并已经录入了多条数据。复制到用户目录下。启动VB,通过菜单 工程引用 添加Microsoft ActiveX DATA Objects2.5.窗体上添加按钮控件，添加list控件list1,编写单击事件如下：Dim i%, j%Dim ans1 As New ADODB.ConnectionDim com1 As New ADODB.CommandDim rst1 As New ADODB.Recordsetans1.Open Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source= E:WORKWLGL.mdbSet com1.ActiveConnection = ans1com1.CommandText = select * from 货物表rst1.Open com1, , adOpenDynamic, adLockOptimisticrst1.MoveFirsti = rst1.RecordCountFor i = 0 To 15 List1.AddItem rst1.Fields(1).Value For j = 0 To 6 Print rst1.Fields(j); Next j rst1.MoveNext PrintNext i3.4 界面设计3.4.1用户登录系统登录控制，必须使用用户名和密码登录后才能使用系统代码如下Option ExplicitPublic LoginSucceeded As BooleanPrivate Sub cmdcancel_Click() 设置全局变量为 false 不提示失败的登录 LoginSucceeded = False Me.Hide EndEnd SubPrivate Sub cmdOK_Click() Dim cn As New ADODB.Connection Dim rs As New ADODB.Recordset Dim constr As String cn.Open Provider=Microsoft.Jet.OLEDB.4.0;Data Source= & App.Path & ddgl.mdb;Persist Security Info=False If Trim(txtUserName.Text) = Then MsgBox (请输入用户名) txtUserName.SetFocus Else rs.Open select * from 用户管理 where id= & Trim(txtUserName.Text) & , cn, adOpenDynamic, adLockOptimistic If rs.BOF And rs.EOF Then MsgBox (不存在该用户，请重新输入用户名) txtUserName.SetFocus Else 若用户未指定列名 If txtPassword = rs.Fields(mima) Then LoginSucceeded = True Me.Hide MDIForm1.Show Else MsgBox 密码错误，请重试!, , 登录 txtPassword.SetFocus SendKeys Home+End End If End If End If End SubPrivate 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()End 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 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订单录入订单信息管理，管理订单信息，可以添加、修改和删除订单信息，在增加订单时需要使用的产品信息和经销商信息必须首先通过产品信息管理和经销商信息管理功能添加； 代码如下Private Sub cmdadd_Click() 添加记录Adodc1.Recordset.AddNewFor i = 0 To 8Text1(i).Enabled = TrueText1(i).Text = Next iText1(0).SetFocuscmdadd.Enabled = Falsecmddelete.Enabled = Falsecmdedit.Enabled = Falsecmdsave.Enabled = Truecmdcancel.Enabled = TrueEnd SubPrivate Sub cmdcancel_Click() 放弃修改Adodc1.Recordset.CancelUpdateFor i = 0 To 8 Text1(i).Enabled = False Next icmdsave.Enabled = Falsecmdcancel.Enabled = Falsecmdadd.Enabled = Truecmdedit.Enabled = Truecmddelete.Enabled = TrueEnd SubPrivate Sub cmddelete_Click() Dim myval As String myval = MsgBox(是否要删除该记录？, vbYesNo) If myval = vbYes Then Adodc1.Recordset.Delete Adodc1.Recordset.MoveNext If Adodc1.Recordset.EOF Then Adodc1.Recordset.MoveLast For i = 0 To 8 Text1(i).Enabled = False Next i End If End IfEnd SubPrivate Sub cmdedit_Click()If Adodc1.Recordset.RecordCount 0 ThenFor i = 0 To 8Text1(i).Enabled = TrueNext icmdsave.Enabled = Truecmdcancel.Enabled = Truecmdadd.Enabled = Falsecmdedit.Enabled = Falsecmddelete.Enabled = FalseElseMsgBox (没有要修改的记录！)End IfEnd SubPrivate Sub cmdsave_Click() 保存记录If Text1(0).Text = Then MsgBox 姓名不能为空！ Text1(0).SetFocus Exit SubEnd IfAdodc1.Recordset.UpdateFor i = 0 To 8Text1(i).Enabled = FalseNext icmdsave.Enabled = Falsecmdcancel.Enabled = Falsecmdadd.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.4客户信息管理.经销商信息管理，管理订单中的经销商信息，可以查询、添加、修改和删除客户信息。 代码如下Private Sub cmdadd_Click() 添加记录Adodc1.Recordset.AddNewFor i = 0 To 6Text1(i).Enabled = TrueText1(i).Text = Next iText1(0).SetFocuscmdadd.Enabled = Falsecmddelete.Enabled = Falsecmdedit.Enabled = Falsecmdsave.Enabled = Truecmdcancel.Enabled = TrueEnd SubPrivate Sub cmdcancel_Click() 放弃修改Adodc1.Recordset.CancelUpdateFor i = 0 To 6 Text1(i).Enabled = False Next icmdsave.Enabled = Falsecmdcancel.Enabled = Falsecmdadd.Enabled = Truecmdedit.Enabled = Truecmddelete.Enabled = TrueEnd SubPrivate Sub cmddelete_Click() Dim myval As String myval = MsgBox(是否要删除该记录？, vbYesNo) If myval = vbYes Then Adodc1.Recordset.Delete Adodc1.Recordset.MoveNext If Adodc1.Recordset.EOF Then Adodc1.Recordset.MoveLast For i = 0 To 6 Text1(i).Enabled = False Next i End If End IfEnd SubPrivate Sub cmdedit_Click()If Adodc1.Recordset.RecordCount 0 ThenFor i = 0 To 6Text1(i).Enabled = TrueNext icmdsave.Enabled = Truecmdcancel.Enabled = Truecmdadd.Enabled = Falsecmdedit.Enabled = Falsecmddelete.Enabled = FalseElseMsgBox (没有要修改的记录！)End IfEnd SubPrivate Sub cmdsave_Click() 保存记录If Text1(0).Text = Then MsgBox 姓名不能为空！ Text1(0).SetFocus Exit SubEnd IfAdodc1.Recordset.UpdateFor i = 0 To 6Text1(i).Enabled = FalseNext icmdsave.Enabled = Falsecmdcancel.Enabled = Falsecmdadd.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商品信息查询表用户查询，查询系统中的商品信息，可以选择查询方式，使用指定的方式查询相应的信息，并且以列表的形式显示出来。 代码如下：Private Sub Command1_Click()If Text1.Text = ThenMsgBox 请准确输入查询内容End IfIf Combo1.Text = 商品名称 ThenAdodc2.ConnectionString = Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:UsersdellDesktop订单管理系统ddgl.mdb;Persist Security Info=FalseAdodc2.RecordSource = select * from 商品信息管理 where 商品名称 like % & Text1.Text & %Adodc2.CommandType = adCmdTextAdodc2.Refresh If Not Adodc2.Recordset.EOF Then Text2.Text = Adodc2.Recordset.Fields(商品名称)Text3.Text = Adodc2.Recordset.Fields(商品类型)Text4.Text = Adodc2.Recordset.Fields(商品单价)Text5.Text = Adodc2.Recordset.Fields(商品库存)Text6.Text = Adodc2.Recordset.Fields(所在仓库)Else: MsgBox 您所要查询的内容不存在！End IfEnd IfIf Combo1.Text = 商品类型 ThenAdodc2.ConnectionString = Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:UsersdellDesktop订单管理系统ddgl.mdb;Persist Security Info=FalseAdodc2.RecordSource = select * from 商品信息管理 where 商品类型 like % & Text1.Text & %Adodc2.CommandType = adCmdTextAdodc2.Refresh If Not Adodc2.Recordset.EOF Then Text2.Text = Adodc2.Recordset.Fields(商品名称)Text3.Text = Adodc2.Recordset.Fields(商品类型)Text4.Text = Adodc2.Recordset.Fields(商品单价)Text5.Text = Adodc2.Recordset.Fields(商品库存)Text6.Text = Adodc2.Recordset.Fields(所在仓库)Else: MsgBox 您所要查询的内容不存在！End IfEnd IfEnd SubPrivate Sub Command2_Click()MDIForm1.Showfryfxskhxxcxb.HideEnd SubPrivate Sub Form_Load()Combo1.AddItem (商品名称)Combo1.AddItem (商品类型)Me.Picture = LoadPicture(App.Path & 12.jpg)End Sub3.4.6订单信息查询用户查询，查询系统中的订单信息，可以选择查询方式，使用指定的方式查询相应的信息，并且以列表的形式显示出来Private Sub Command1_Click() 代码如下：If Text1.Text = ThenMsgBox 请准确输入查询内容End IfIf Combo1.Text = 订单日期 ThenAdodc2.ConnectionString = Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:UsersdellDesktop订单管理系统ddgl.mdb;Persist Security Info=FalseAdodc2.RecordSource = select * from 订单信息表 where 订单日期 like % & Text1.Text & %Adodc2.CommandType = adCmdTextAdodc2.Refresh If Not Adodc2.Recordset.EOF Then Text2.Text = Adodc2.Recordset.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.Text = Adodc2.Recordset.Fields(订单数量)Text9.Text = Adodc2.Recordset.Fields(货物单位)Text10.Text = Adodc2.Recordset.Fields(所在仓库)Else: MsgBox 您所要查询的内容不存在！End IfEnd IfIf Combo1.Text = 订单号 ThenAdodc2.ConnectionString = Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:UsersdellDesktop订单管理系统ddgl.mdb;Persist Security Info=FalseAdodc2.RecordSource = select * from 订单信息表 where 订单号