齐云山食品系统设计报告

1、齐云山食品系统设计JIANG XI QIYUNSHAN FOOD CO.LTD 商学B1042 卢 芳 3 号 目录一、系统开发背景二、系统设计原则2.1、经济可行性分析2.2、技术可行性分析2.3、运营可行性分析2.4、电子交易的安全性 2.5、用户界面的友好三、系统总体结构设计3.1、系统的外部接口3.2、系统的组成结构四、系统信息基础设施设计4.1、网络环境设计4.2、服务器主机设计与选择。五、系统软件平台的选择与设计5.1、操作系统的选择5.2、数据库管理系统的选择5.3、开发工具的选择。六、系统应用软件设计6.1、子系统的划分6.2、系统模块结构设计6.3、代码设计6.4、输入输出设

2、计6.5数据存储设计6.6网页设计与编辑。一、 系统开发背景产品从供应商到消费者的手中，中间流通环节起到非常重要的地位。齐云山食品有限公司作为一个供应商和送货中心，数据的处理非常关键。目前，发现在手工操作的情况下，各个部门间的沟通相当困难，比如当销售部门收到采购订单后，仓库是否有足够货源，必须去库房询问，而且即使询问了，有时候由于订单较多，相同名称相同型号的商品也有可能重复，而无法确定是哪一张订单有货，哪一张没有足够货。这一系列的问题亟待解决。目前市面上已经出现了很多商品管理软件，但是行业不相同，对软件要求也不相同。本系统针对休闲食品商品库存管理存在的特殊性，统一规划，开发出符合商品流通公司的

3、管理软件。开发与设计一个符合中小型企业的管理系统，必须有一个合理的设计指导。通过合理选择数据结构、操作系统以及开发环境，构建一个合理、完善的食品管理系统，才能充分发挥计算机信息管理的优势。为企业建立一个集人员管理、采购、销售、库存查询和库存盘点一身的食品管理系统。二、系统设计原则 2.1、经济可行性分析通过这个系统可以取代原来用笔和纸才能完成的工作，不用担心忘记或计算错误。提高信息的利用率，减少管理员的工作量，查询方便，提高服务质量。2.2、技术可行性分析现有的数据库应用程序开发技术已非常成熟，利用现有技术完全可以实现预定的功能。Visual Basic 6.0语言简单、功能强大并容易掌握,而

4、Access 2003是一个非常优秀的小型数据库管理软件，方便使用，性能稳定。于是，采用Visual Basic 6.0和Access 2003技术完全能够实现本系统的开发。系统在使用上比较方便、简单；界面设计上美观大方；后期维护上比较容易。如要对功能模块方面作修改，则无需进行整个系统的重新架构。2.3、运营可行性分析本系统操作简单、易于理解、上手较快、运营环境低。面对系统设计还应以“标准性、安全性、高效性、保密性和可维护性”为标准，在着眼于当前实用的基础上，为将来系统的扩张，留有余地，软件的开发应能在较长的时间内适应市场发展的需求。2.4、电子交易的安全性 安全性是整个电子商务解决方案中最重

5、要的方面，因此，在系统设计时，需要充分保证对系统安全性的要求，通过支付密码技术、安全用户授权体系等技术来实现系统安全性。2.5、用户界面的友好 系统建设应该注重用户的感受，将用户的个人空间和交易界面设计的更加友好和个性化。三、系统总体结构设计3.1、系统的外部接口外部接口有通过浏览器和用户的接口、通过浏览器与食品供应商的接口、企业内部的接口、通过专门的软件和银行及其他支付平台的接口。3.2、系统的组成结构齐云山食品的系统由商业逻辑和应用服务器组成，其中，应用服务器又由Web表达层应用、支持平台、互联集成工具等几个部分组成。四、系统信息基础设施设计4.1、网络环境设计这是一个基于网络的系统，它的

6、网络环境包括Internet、Intranet、Extranet三个部分，结构如下图所示：4.2、服务器主机设计与选择。（1） 服务器主机设计与选择目前,虚拟主机成为广大中小企业构建网络信息系统的首选,但是它的缺点也比较明显。由于物理服务器分割给不同的用户使用,其中难免有些用户会进行非法操作,或者站点中存在致命漏洞而遭到攻击,这都会严重影响其他虚拟主机的正常使用。此时,提供虚拟主机的公司自然会对虚拟主机进行各种限制,让用户无法完全操纵虚拟主机。另外,当企业需求增大的时候,需要的性能、空间增加的时候,租用价格往往会迅速增到每年投资几千元甚至上万元,让中小企业感到“租房不如买房”,开始希望获得自己

7、真正拥有的服务器。因此，齐云山食品网站是购买专业级Web服务器。在市场上，IBM System x3550(7978B1C)从设计上和价格上都能够完全满足中等规模企业的需要，稳定可靠且易于管理，该服务器的配置如下：IBM System x3550(7978B1C)采用1U机架式设计，处理器采用单颗英特尔四核至强E5405处理器，采用45nm制程，核心频率2.0GHz，集成2x6MB二级缓存，前端总线1333MHz，功耗80W。内存标配2GB DDR2-667无缓冲内存，主板提供8内存插槽，内存最大可以扩展到32GB。服务器的存储方面，7978B1C没有标配磁盘驱动器，机箱提供了2个热插拔驱动器

8、托架，支持2块SAS硬盘，内部存储容量最高600GB。集成IBM ServeRAID 8k SAS 控制器，支持RAID0/1/10阵列模式。五、系统软件平台的选择与设计5.1、操作系统的选择齐云山食品系统选用Windows 2000作为在服务器上运行的操作系统。5.2、数据库管理系统的选择本网站的数据库选用SQL Server 2000作为数据库管理系统。SQL Server是微软公司开发的一个关系数据库管理系统。SQL Server提供了许多向导和管理工具，如为数据库建立、数据库管理、安全管理等提供相导，简化了管理和所用。SQL Server支持数据仓库的功能，使得分布在各处的各种不同类型

9、的数据能方便地获取和分析，便于管理者迅速作出正确的决策，提高了企业的竞争能力。5.3、开发工具的选择Visual Basic 6.0是微软公司出品的一个快速可视化程序开发工具软件，借助微软在操作系统和办公软件的垄断地位，Visual Basic 6.0在短短的几年内风靡全球。Visual Basic 6.0是极有特色和功能强大的软件，主要表现在：所见即所得的界面设计，基于对象的设计方法，极短的软件开发周期，较易维护的生成代码。Access 2003就是关系数据库开发工具，数据库能汇集各种信息以供查询、存储和检索。Access 2003的优点在于它能使用数据表示图或自定义窗体收集信息。另外，Ac

10、cess 2003允许创建自定义报表用于打印或输出数据库中的信息。Access 2003也提供了数据存储库，可以使用桌面数据库文件把数据库文件置于网络文件服务器，与其他网络用户共享数据库。Access 2003是一种关系数据库工具，关系数据库是已开发的最通用的数据库之一。如上所述，Access 2003作为关系数据库开发具备了许多优点，可以在一个数据包中同时拥有桌面数据库的便利和关系数据库的强大功能。六、系统应用软件设6.1、子系统的划分销售管理子系统齐云山食品管理系统会员管理子系统库存管理子系统员工管理子系统订单管理子系统产品管理子系统财务管理子系统6.2、系统模块设计（1）销售管理子系统这

11、一部分包括业务接单，商务维护客户信息，录入客户订单，录入出货通知单，录入销货单业务接单销售管理子系统商务维护客户信息录入客户信息录入客户订单录入出货通知单录入销货单（2）.库存管理子系统“库存管理”功能模块用于食品供应中心的销售业务， 各子功能模块实现的功能分别为：“库存查询”用于查询经营食品的库存，可以查询仓库中某种食品产品的库存信息等； “库存盘点”用于管理系统的库存盘点工作，方便查看某种食品产品是否还有库存量，库存量为多少等；“价格管理”用于查看食品的进价、库存数量、库存金额等信息。（3）会员管理子系统管理会员子系统会员信息录入会员积分管理会员注册会员登录（4）.订单管理子系统“订单管理

12、”模块用于各种单据的录入和处理业务。各子功能模块实现的功能分别为：“出库单”对公司销售的食品进行管理，登记单据的主要供应商、经手人、票据、入库时间、入库品种、金额、数量； “出库退单”对公司的订购单进行退货，登记单据的供应商、经手人、票据、返厂的时间以及产品的信息；“销售单”对公司销售出去商品进行管理，使该种类商品的库存量减少；“销售退单”对公司销售出去或者被客户退回来的商品进行管理，使该种类商品的库存量增加。（5）产品管理子系统产品管理子系统产品出库管理产品入库管理产品库存信息统计产品信息6.3、输入输出设计 6.5代码设计1.用户登录窗口登录程序代码Data1.RecordSource =

13、 select * from ma where 操作员= & Text1.Text & Data1.RefreshIf Text1.Text And Text2.Text = Text3.Text Then Load frm_main frm_main.Show Unload MeIf Text1.Text = Then 操作员代号为空，提示信息 MsgBox (请输入操作员代号!) Text1.SetFocus Else If Text1.Text Data1.Recordset.Fields(操作员) Then MsgBox (查无此操作员,请重新输入操作员代号!) Text1.SetFo

14、cus Else If Text2.Text Text3.Text Then MsgBox (密码错误,请重新输入密码!) TIM = TIM + 1 Text2.SetFocus End If End If End IfEnd If2.入库单添加程序代码Data3.RecordSource = select * from rkd order by 票号Data3.Refresh创建入库票号If Data3.Recordset.RecordCount 0 Then If Not Data3.Recordset.EOF Then Data3.Recordset.MoveLast If Data3

15、.Recordset.Fields(票号) Then lsph = Right(Trim(Data3.Recordset.Fields(票号), 4) + 1 PH.Text = Date & rkd & Format(lsph, 0000) End If Else PH.Text = Date & rkd & 0001End If设置控件有效或无效gys.Enabled = True: jsr.Enabled = True: js.Enabled = True: hjsl.Enabled = True: hj.Enabled = TrueText1.Enabled = True: mf1.E

16、nabled = True: Combc.Enabled = True: Comqx.Enabled = True: Comdj.Enabled = False清空数据For i = 1 To 100For j = 1 To 11 mf1.TextMatrix(i, j) = Next jNext igys.SetFocusmf1.Row = 1: mf1.Col = 1 添加数据代码Set mydb = Workspaces(0).OpenDatabase(App.Path & cpjxc.mdb) 自动识别数据库路径 Set rs1 = mydb.OpenRecordset(rkd, db

17、OpenTable) Set rs2 = mydb.OpenRecordset(kc, dbOpenTable) 查询库存商品信息 Data1.RecordSource = SELECT * FROM KC Data1.Refresh For i = 1 To 100 If mf1.TextMatrix(i, 1) And mf1.TextMatrix(i, 8) Then 添加入库商品信息到rkd表中 rs1.AddNew If mf1.TextMatrix(i, 1) Then rs1.Fields(商品名称) = mf1.TextMatrix(i, 1) If mf1.TextMatri

18、x(i, 2) Then rs1.Fields(简称) = mf1.TextMatrix(i, 2) If mf1.TextMatrix(i, 3) Then rs1.Fields(批号) = mf1.TextMatrix(i, 3) If mf1.TextMatrix(i, 4) Then rs1.Fields(产地) = mf1.TextMatrix(i, 4) If mf1.TextMatrix(i, 5) Then rs1.Fields(规格) = mf1.TextMatrix(i, 5) If mf1.TextMatrix(i, 6) Then rs1.Fields(包装) = mf

19、1.TextMatrix(i, 6) If mf1.TextMatrix(i, 7) Then rs1.Fields(单位) = mf1.TextMatrix(i, 7) If mf1.TextMatrix(i, 8) Then rs1.Fields(数量) = mf1.TextMatrix(i, 8) If mf1.TextMatrix(i, 9) Then rs1.Fields(进价) = mf1.TextMatrix(i, 9) If mf1.TextMatrix(i, 10) Then rs1.Fields(金额) = mf1.TextMatrix(i, 10) If mf1.Text

20、Matrix(i, 11) Then rs1.Fields(备注) = mf1.TextMatrix(i, 11) If gys.Text Then rs1.Fields(供应商) = gys.Text If jsr.Text Then rs1.Fields(经手人) = jsr.Text If rkrq.Text Then rs1.Fields(日期) = rkrq.Text If PH.Text Then rs1.Fields(票号) = PH.Text rs1.Update 更新表 查找库存商品信息 Data1.Recordset.FindFirst 商品名称 like + Chr(34

21、) + mf1.TextMatrix(i, 1) + Chr(34) + and 批号 like + Chr(34) + mf1.TextMatrix(i, 3) + Chr(34) + and 产地 like + Chr(34) + mf1.TextMatrix(i, 4) + Chr(34) + and 规格 like + Chr(34) + mf1.TextMatrix(i, 5) + Chr(34) + If Data1.Recordset.NoMatch Then 添加入库商品到kc表中 rs2.AddNew If mf1.TextMatrix(i, 1) Then rs2.Fiel

22、ds(商品名称) = mf1.TextMatrix(i, 1) If mf1.TextMatrix(i, 2) Then rs2.Fields(简称) = mf1.TextMatrix(i, 2) If mf1.TextMatrix(i, 3) Then rs2.Fields(批号) = mf1.TextMatrix(i, 3) If mf1.TextMatrix(i, 4) Then rs2.Fields(产地) = mf1.TextMatrix(i, 4) If mf1.TextMatrix(i, 5) Then rs2.Fields(规格) = mf1.TextMatrix(i, 5)

23、If mf1.TextMatrix(i, 6) Then rs2.Fields(包装) = mf1.TextMatrix(i, 6) If mf1.TextMatrix(i, 7) Then rs2.Fields(单位) = mf1.TextMatrix(i, 7) If mf1.TextMatrix(i, 8) Then rs2.Fields(库存) = mf1.TextMatrix(i, 8) If mf1.TextMatrix(i, 9) Then rs2.Fields(进价) = mf1.TextMatrix(i, 9) If mf1.TextMatrix(i, 10) Then rs

24、2.Fields(库存金额) = mf1.TextMatrix(i, 10) rs2.Update 更新表 Else 更新kc表中的库存及库存金额 Data1.Recordset.Edit Data1.Recordset.Fields(库存) = Val(mf1.TextMatrix(i, 8) + Val(Data1.Recordset.Fields(库存) Data1.Recordset.Fields(库存金额) = Val(Data1.Recordset.Fields(库存) * Val(Data1.Recordset.Fields(进价) Data1.UpdateRecord End

25、If End If Next i rs1.Close: mydb.Close 清空数据 For i = 1 To 100 For j = 1 To 11 mf1.TextMatrix(i, j) = Next j Next i gys.Text = : jsr.Text = : js.Text = : hjsl.Text = : hj.Text = Text1.Visible = False: DBList1.Visible = False 设置控件不可见 mf1.Enabled = False: Combc.Enabled = False: Comdj.Enabled = True: Comqx.Enabled = FalseEnd Sub其它代码类似，因代码的复杂性，其它不再一一例举6.6数据库设计（1）概念结构设计将需求分析得到的用户需求抽象为信息机构，概念结构是各种数据模型的基础。有二类方法：自顶向下、自底向上，本系统采用自顶向下的方法。E-R图是概念结构设计的有力工具。利用E-R方法进行数据概念设计，可分为一步进行，首先设计局布E-R模式，然后把各局E-R模式，综合成一个全局模式，最后对全局E-R模式进行优化，得到最终模式