企业销售采购管理系统课程设计及及

1、 目录TOC o 1-2 u 1.引言 PAGEREF _Toc22738 1 需求分析 PAGEREF _Toc4879 1可行性分析 PAGEREF _Toc26811 12. 系统分析 PAGEREF _Toc5884 2 业务流程分析 PAGEREF _Toc2335 2 数据流程分析3 数据字典43. 系统设计 PAGEREF _Toc30135 5 系统总体结构 PAGEREF _Toc30848 5 数据结构与数据库设计 PAGEREF _Toc26455 5 代码设计 PAGEREF _Toc9325 7 输入输出设计 PAGEREF _Toc17101 7系统的安全设计 PA

2、GEREF _Toc20343 84. 系统实施 PAGEREF _Toc30734 9 系统实施 PAGEREF _Toc16567 9系统运行管理制度 PAGEREF _Toc21728 325. 结束语 PAGEREF _Toc28072 33 参考文献461.引言 需求分析随着电子产品创新性技术的迅速发展、人民生活水平的提高，电脑已成为人们追求娱乐不可或缺的生活用品。而对于销售这些产品的终端，无论是规模型的商场还是小的商店，都要求它们的采购业务能顺利、高效地进行。博宏电脑公司近年来的销售量激增，但是采购业务成为了它获取高效益的掣肘。该公司无论是高层领导还是员工，都希望能开发一个采购管理

3、系统，对采购业务进行管理。 在该公司中，产品的采购管理是一项日常性的工作。电脑产品因其更新换代迅速，如果做不到使产品的采购量以及采购时间适应需求的变化，那么很容易造成商品积压或脱销，不仅影响商品的销售业绩，也会增加库存费以及采购环节不必要的支出，最终影响公司的效益。另外，该公司的商品种类非常繁多，采购量大且频繁，依靠传统的手工处理记录是很难对采购环节进行及时、正确地处理。所以开发并应用采购管理系统成为适应时代发展，使管理现代化的重要措施。采购管理系统体现了当今先进的企业管理思想，对提高企业的管理水平有着重要的意义。采购管理系统能够保证计划的准确性和采购的合理性，降低商品的运营成本，让利于消费者

4、，提升该公司的竞争力。可行性分析 可行性分析的任务是明确开发该采购管理系统的必要性和可行性。该公司的采购环节出现了制约商场发展的现象，利用计算机技术解决采购业务数据的处理迫在眉睫，公司的领导支持开发采购管理系统，管理人员、员工积极响应。因此开发采购管理系统的必要性与可行性是存在的。具体表现为：1）管理上的可行性：公司内部的采购环节的滞后让管理人员的日常管理工作难以顺利地进行，领导层也注意到当前落后的采购管理手段对商品的销售利润影响很大，公司上下都对采购管理系统的开发有很大的热情，迫切需要对其采购管理进行改革，开发采购管理系统的时机已成熟。2）技术上的可行性：由于该公司的办公室、采购部门、库存部

5、门、销售部门和财务部门等都使用了电脑办公，公司员工的素质较高，员工的技术水平达到了采购管理系统所要求的水平。目前可视化开发技术及工具（如visual basic）和数据库技术（如access）很成熟，并且该采购管理系统在公司现有的硬软件资源基础上可以实施，因此技术上是可行的。3）经济上的可行性：该系统所需的硬件设备，如服务器、PC机、打印机以及网络配件等的市场价格不高，且目前主流的配置就能满足该系统的功能要求，设备费用的支出很小。该公司对于此次开发MIS的经济效益和费用支出进行了比较评价，回收期短。该公司经济效益好，现金流正常，为此次项目开发提供了充足的经费。由于该系统规模小，仅在公司内部运行

6、，日常的维护量不大，所以运行费用低。但是由于采用了采购管理系统，减少了采购环节的人员作业，提高了工作效率，进而降低了商品的成本，这些费用的节省远大于该采购管理系统的开发和运行费用。2. 系统分析 业务流程分析 图为采购管理系统业务流程图：描述了系统内各单位、人员之间业务关系、作业顺序和管理业务流向的图表。供应商付款单供应商付款单退款单退款单采购订单采购订单财务部采购员财务部采购员退货单采购开单退货单采购开单收货单仓库管理员收货单仓库管理员 图 采购管理业务流程图 数据流程分析根据数据流程图画出的业务流程图如图和图所示：数据流程图能全面地描述信息系统逻辑模型供应商提货单供应商采购处理采购处理 采

7、购订单 图 采购管理的顶层数据流程图财务账簿财务账簿财务 部 财务 部 退货单数据 订 单 数 据采购订单审核处理采购部供应商采购订单审核处理采购部供应商 采购订单 订单数据 入 出 库 库 单 单销售部 销售部收退货处理库存处理 销售报表 出、入库数据收退货处理库存处理库存台账库存台账图 采购管理系统的第二层数据流程图 数据字典1）数据项的定义（以采购订单的单据编号为例） 数据项编号：I02-01 数据项名称：单据编号 别名：单据编号 简述：区别采购订单唯一性的代码 类型与长度：字符型，长度为11 取值范围：“001”“999” 2）数据结构的定义（以采购订单为例） 数据结构编号：DS02-

8、01 数据结构名称：采购订单 简述：采购部门所填采购订单信息 数据结构组成：DS02-02 + DS02-03 + DS02-043）数据流的定义（以采购订单为例） 数据流编号：D02-02 数据流名称：合格的采购订单 简述：经审核批准的采购订单 数据流来源：采购订单审核处理模块 数据流去向：采购部门 数据项组成：单据编号+录单日期+商品编号+商品名称+型号+规格+单位+数量+单价+合计金额+供应商+到货日期+联系人+电话+业务员+摘要 数据流量：约30张/日 高峰流量：约50张/日 4）处理逻辑的定义（以采购订单审核为例） 处理逻辑编号：P02-01 处理逻辑名称：采购订单审核处理 简述：审

9、核采购订单是否合格并给予批准或不批准 输入的数据流：采购订单 审核处理描述：审核采购部门送来的采购订单填写格式是否符合要求，单据上的信息是否符合采购计划，是否真实等。不合格的单据返回采购部门，合格的单据登记采购订单台账。输出的数据流：合格的采购订单，未批采购订单 处理频率：约30次/日5）数据存储的定义（以采购订单数据存储为例） 数据存储编号：F02-01 数据存储名称：采购订单台账 简述：存放采购订单信息 数据存储组成：单据编号+录单日期+商品编号+商品名称+型号+规格+单位+数量+单价+合计金额+预付账户+预付金额+供应商+到货日期+联系人+电话+业务员+摘要 关键字：单据编号 相关联的处

10、理：P02-01 6）外部实体的定义（以供应商为例） 外部实体编号：S02-01 外部实体名称：供应商 简述：提供商品的供应商 输入的数据流：D02-02 输出的数据流：D02-013. 系统设计 系统总体结构 新系统的功能设计是以业务流程图和数据流程图为依据的。对该采购管理系统划分为系统设置、资料管理、采购订单、订单收货、采购开单、采购付款、采购退货、产品销售等功能模块。根据以上分析，该采购管理系统功能划分图如图所示：采购管理系统采购管理系统系统设置系统设置采购管理采购管理产品销售采购退货采购付款采购开单订单收货采购订单修改密码权限管理添加用户产品销售采购退货采购付款采购开单订单收货采购订单

11、修改密码权限管理添加用户 图 采购管理系统功能结构图 数据结构与数据库设计ER模型：概念模型的最常用的表示方法是实体-联系方法。商品名称商品名称型号商品编号型号商品编号订单号订单号规格采购订单规格采购订单日期供应商名称交给日期供应商名称交给联系人编号联系人编号供应商供应商电话电话名称名称日期交货日期交货商品数量商品数量商品名称仓库商品名称仓库订单号订单号数量采购开单数量采购开单单价商品名称单价商品名称商品编号商品编号 图 采购管理系统E-R模型图 数据表的设计：这是根据数据流程图设计的数据表主键列名数据类型长度允许空*供应商代码char3*供应商名称文本4*产品代码char6*产品名称文本4图

12、 产品销售表主键列名数据类型长度允许空*商品编号char6*商品名称文本4*型号文本8*规格文本9*单位文本15*数量varchar15*单价char4*合计金额varchar19*单据编号varchar3*供应商文本4*入库日期datatime8*联系人文本3*电话char11*业务员文本3*摘要文本9表 商品库存表 代码设计 代码设计部分主要是采购订单号的设计。博宏公司的主要合作伙伴为其设计固定的编码。采购订单号是由供应商名和产品类别构成的。表为采购订单编号表 ：供应商代码*供应商名称产品代码产品名称001A经销商N-01联想电脑002B经销商N-02戴尔电脑003C经销商N-03索尼电脑

13、004D经销商N-04华硕电脑005E经销商N-05宏基电脑006F经销商N-06三星电脑007G经销商N-07惠普电脑 表 采购订单编号表 输入输出设计输出设计：输出设备：打印机、显示器 输出报告：输出设计书资料代码XS-01输出名称销售报表份数1报送库存部门项目号项目名称位数及编辑备注1商品编号X(4)2商品名称X(6)3型号X(6)4销售数量X(3) 表 输出设计书输入设计： 对输入信息进行校验在登陆界面： 用户名及密码不能为空，如不填写两者或两者之一，则会弹出对话框提醒用户不存在，请从新输入！如果用户输入的密码不是密码管理表中的用户名及密码，则会弹出对话框提醒用户不存在，请从新输入！在

14、产品销售中：商品编号不能为空，否则会弹出对话框提醒Sorry,未找到你所查询的数据，请查证后再试单据号规格数量录单日期单位单价商品编号到货日期合计金额商品名称业务员预付账户型号联系人预付金额供应商电话摘要 表 产品销售单录入屏幕系统的安全设计信息系统安全设计主要解决以下几个问题：止带宽资源滥用防止无关网络行为影响工作效率管控外发信息，降低泄密风险掌握组织动态、优化员工管理为网络管理与优化提供决策依据，防止病毒木马等网络风险低成本且有效推行信息管理制度等4. 系统实施 系统实施一、登录界面当输入的账号为：xiaolin密码为：xiaolin 时，焦点会自动落在确定上面，此时点击确定或按回车键即可

15、以登入系统。若错误，则会弹出对话框提醒“此用户不存在,请重新输入！”并且它的输入密码为“*”，是在属性栏中的passwordchar设置“*”。用户名及密码不能为空，如不填写两者或两者之一，则会弹出对话框提醒此用户不存在，请从新输入！如果用户输入的密码不是密码管理表中的用户名及密码，则会弹出对话框提醒此用户不在，请从新输入！图4-1 登陆窗口它的具体代码为：Dim TIM As Integer 定义一个整型变量Dim myval As String 定义一个字符串变量Private Sub Form_Load() 连接access数据库 = Provider= Source= & & 采购管理

16、系统.mdb;Persist Security Info=False = select * from 用户 End SubPrivate Sub Command1_Click()Static itimes As Integer = 验证用户名及密码 = select * from 用户 where 用户名= + + If 0 Then 如果记录数大于零 验证密码 If = 密码) Then Load Form2 Unload Me Else If 密码) Then MsgBox 密码错误,请重新输入！, vbCritical, 系统提示 itimes = itimes + 1 = End If

17、 End If Else MsgBox 用户不存在,请重新输入！, vbCritical, 系统提示 itimes = itimes + 1 = = End If If itimes = 3 Then 错误3次，退出系统 MyMsg = MsgBox(输入错误,请向管理员查询！, vbCritical, 系统提示) If MyMsg = vbOK Then End End IfEnd SubPrivate Sub Command2_Click()EndEnd SubPrivate Sub text2_KeyDown(KeyCode As Integer, Shift As Integer) I

18、f KeyCode = vbKeyReturn Then Command1_Click 按回车键进入End SubPrivate Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyReturn Then 按回车键，text2获得焦点End Sub二、主界面主界面是登陆后最基础的一个界面，内容包括采购订单，订单收获，采购开单，采购付款，采购退货，产品销售。图4-2 主界面它的具体代码为：Private Sub Command1_Click() = FalseEnd SubPrivate Sub 供应

19、商资料_Click() = FalseEnd SubPrivate Sub 库存查询_Click() = FalseEnd SubPrivate Sub 权限管理_Click() = FalseEnd SubPrivate Sub 添加用户_Click() = FalseEnd SubPrivate Sub 退出系统_Click()EndEnd SubPrivate Sub 修改密码_Click() = FalseEnd Sub三添加用户图4-3 添加用户它的具体代码为：Private Sub Form_Load() 自动识别数据库路径 = Provider= Source= & & 采购管理

20、系统.mdb;Persist Security Info=False = select * from 权限设置 = Provider= Source= & & 采购管理系统.mdb;Persist Security Info=False = select * from 用户End SubPrivate Sub Form_Activate() text1获得焦点End SubPrivate Sub Form_Unload(Cancel As Integer) = TrueEnd SubPrivate Sub Text1_KeyDown(KeyCode As Integer, Shift As I

21、nteger) If KeyCode = vbKeyReturn Then 回车text2获得焦点End SubPrivate Sub text2_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyReturn Then 回车text3获得焦点End SubPrivate Sub Text3_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyReturn Then 回车Command1获得焦点End SubPrivate Sub Comma

22、nd1_Click() Dim yhm 保存用户名及密码 If Then = select * from 用户 where 用户名= + + If = 用户名) Then MsgBox 已添加该用户，请重新添加, , 系统提示 = : = : = ElseIf And And = Then Provider= Source= & & 采购管理系统.mdb;Persist Security Info=False select * from 用户, adocon, adOpenKeyset, adLockOptimistic (用户名) = (密码) = Provider= Source= & &

23、 采购管理系统.mdb;Persist Security Info=False select * from 权限设置, adocon, adOpenKeyset, adLockOptimistic (用户名) = (密码) = = : = : = MsgBox 添加用户成功！, , 系统提示 ElseIf = Then MsgBox 请输入确认密码, , 系统提示 ElseIf Then MsgBox 两次输入的密码不相同, , 系统提示 = = End If Else MsgBox 请输入用户名！, , 系统提示 End IfEnd SubPrivate Sub Command2_Click

24、() = : = : = End SubPrivate Sub Command3_Click() Unload Me = TrueEnd Sub四密码设置 本功能允许使用者对密码进行修改，取保系统的安全与方便。如果你是系统的用户，输入用户名可对自己的密码进行修改。图4-4 密码设置它的具体代码为：Private Sub Form_Load() = Provider= Source= & & 采购管理系统.mdb;Persist Security Info=False = select * from 权限设置 End SubPrivate Sub Command1_Click() If = Or

25、 = Or = Then MsgBox 输入不能为空!, 48, 提示信息 Else = select * from 权限设置 where 用户名= + + If 0 Then If = 密码) Then Provider= Source= & & 采购管理系统.mdb;Persist Security Info=False Set adoRs = (update 权限设置 set 密码= + + where 用户名= + + ) Dim rs1 As New select * from 用户 where 用户名= + + , StrCnn, adOpenKeyset, adLockPessi

26、mistic If 0 Then (密码) = End If MsgBox 密码修改成功,退出密码设置!, , 系统提示 = True Unload Me Else MsgBox 原密码错误,请重新输入原密码!, , 系统提示 End If Else MsgBox 该用户不存在,请重新输入, , 系统提示 End IfEnd IfEnd SubPrivate Sub Form_Unload(Cancel As Integer) = TrueEnd SubPrivate Sub Command2_Click() = True Unload Me End SubPrivate Sub Form_A

27、ctivate() 回车text1获得焦点End SubPrivate Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyReturn Then 回车text2获得焦点End SubPrivate Sub text2_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyReturn Then 回车text3获得焦点End SubPrivate Sub Text3_KeyDown(KeyCode As Integer, Sh

28、ift As Integer) If KeyCode = 13 Then Command1_ClickEnd Sub五权限管理： 图详细的陈述了权限设置的内容，包括系统设置，资料管理，采购管理，库存管理和退货管理。图4-5 权限管理它的具体代码为：Private Sub Form_Load() = Provider= Source= & & 采购管理系统.mdb;Persist Security Info=False = select * from 权限设置 = Provider= Source= & & 采购管理系统.mdb;Persist Security Info=False = sel

29、ect * from 权限设置 Set = Adodc2End SubPrivate Sub Form_Unload(Cancel As Integer) = TrueEnd SubPrivate Sub Datalist1_Click() = select * from 权限设置 where 用户名= & & If 0 Then For i = 0 To 11 If = -1 Then Check1(i).Value = 1 Else Check1(i).Value = 0 Next i Else = 0 End IfEnd SubPrivate Sub Command1_Click() 全

30、选For i = 0 To 11 Check1(i).Value = 1Next iEnd SubPrivate Sub Command2_Click() 全不选 For i = 0 To 11 Check1(i).Value = 0 Next iEnd SubPrivate Sub Command3_Click() 为用户设置权限 If Then = select * from 权限设置 where 用户名= + + If 0 Then For i = 0 To 11 If Check1(i).Value = 1 Then = -1 Else = 0 Next i End If MsgBox

31、 权限设置成功!, , 系统提示 End IfEnd SubPrivate Sub Command4_Click() Unload Me = True End SubPrivate Sub Command5_Click() 删除用户 On Error Resume Next A = MsgBox(确认删除该用户, 4, 系统提示) If A = vbYes Then Dim rs2 As New select * from 用户 where 用户名 = + + , StrCnn, adOpenKeyset, adLockPessimistic If 0 Then End If Unload M

32、e End IfEnd Sub六采购订单企业向供应商订货物时，开据采购订单，以便供应商及时供货。在界面内填入相应的商品信息，点击添加则会将所输入的订单信息保存到采购订单中中。如果输入有误，且已保存，可以应用删除功能，将错误信息删除。订单号不能为空，否则会弹出对话框提醒请输入完整信息！在单价和数量中输入数字，金额项目会自动显示为两者乘积结果。 图4-6 采购商品信息的录入它的具体代码为：Private Sub Form_Load() 连接access数据库 = Provider= Source= & & 采购管理系统.mdb;Persist Security Info=False = selec

33、t * from 采购订单 = Provider= Source= & & 采购管理系统.mdb;Persist Security Info=False = select * from 供应商资料 供应商名称) DTPicker1 = Date DTPicker2 = Date = Provider= Source= & & 采购管理系统.mdb;Persist Security Info=False = select * from 付款明细账 End SubPrivate Sub Command1_Click() If = Or = Then MsgBox 请输入单据编号和商品编号, , 系

34、统提示 Else If = 单据编号) Or = 商品编号) Then MsgBox 单据编号和商品编号不能重复添加，请重新输入, , 系统提示 = = = = = = = = = = = = = = = = Else 单据编号) = Trim 录单日期) = Trim 供应商) = Trim 到货日期) = Trim 联系人) = Trim 电话) = Trim 业务员) = Trim 摘要) = Trim 商品编号) = Trim 商品名称) = Trim 型号) = Trim 规格) = Trim 单位) = Trim 数量) = Trim 单价) = Trim 合计金额) = Trim

35、 预付账户) = Trim 预付金额) = Trim 单据编号) = Trim 商品编号) = Trim 商品名称) = Trim 合计金额) = Trim 已预付款) = Trim 应付款) = Trim - Trim = = = = = = = = = = = = = = = = End If End IfEnd SubPrivate Sub Command2_Click() = = = = = = = = = = = = = = = = End SubPrivate Sub Command3_Click()Unload Me = TrueEnd SubPrivate Sub Text12

36、_Change() = Val * ValEnd Sub七订单收货订单收货：是“采购订单”上的货到货后入库，完成交易。对采购订单表中商品的订单号进行查找。在表中可查询订货商品的详细信息，如单价、数量、商品是否入库等，如果没有入库，则可应用入库功能，对商品进行入库处理。图为订单收货图，包括单据编号，录单日期，供应商，到货日期，联系人，电话，业务员，商品编号，商品名称，型号，规格，单位，数量，单价。输入单据编号就可以查找到提到的相关的所有信息。图4-7 订单收货它的具体代码为：Private Sub Form_Load() = Provider= Source= & & 采购管理系统.mdb;Pe

37、rsist Security Info=False = select * from 采购订单 where 是否已入库=0 order by 单据编号 Set = Adodc1 = Provider= Source= & & 采购管理系统.mdb;Persist Security Info=False = select * from 库存商品 End SubPrivate Sub Command4_Click() 查找订单 = select * from 采购订单 where 采购订单.单据编号 = & & End SubPrivate Sub Command1_Click() 入库 商品编号)

38、 = 商品编号) 商品名称) = 商品名称) 型号) = 型号) 规格) = 规格) 单位) = 单位) 数量) = 数量) 单价) = 单价) 合计金额) = 合计金额) 单据编号) = 单据编号) 入库日期) = 到货日期) 供应商) = 供应商) 联系人) = 联系人) 电话) = 电话) 业务员) = 业务员) 摘要) = 摘要) 是否已入库) = -1 Set = Adodc1 = End SubPrivate Sub Command2_Click() = End SubPrivate Sub Command3_Click()Unload Me = TrueEnd Sub八采购开单采

39、购开单是企业向供应商订货时，开据入库订单，以便了解收货情况并预先安排存放货物的仓库。填入相关商品信息，将相关商品信息保存到库存台账中，对于仓库中已有的商品，数量上会在原有的基础上增加。 图为采购开单图，包括单据编号，录单日期，供应商，到货日期，联系人，电话，业务员，商品编号，商品名称，型号，规格，单位，数量，单价。还包括摘要合计金额，付款账户，付款金额。输入入库日期就会弹出在此时间段入库的商品的信息。 图4-8 采购开单具体代码为：Private Sub Form_Load() 连接access数据库 = Provider= Source= & & 采购管理系统.mdb;Persist Sec

40、urity Info=False = select * from 库存商品 = Provider= Source= & & 采购管理系统.mdb;Persist Security Info=False = select * from 付款明细账 DTPicker2 = DateEnd SubPrivate Sub Command1_Click() 单据编号) = Trim 入库日期) = Trim 供应商) = Trim 联系人) = Trim 电话) = Trim 业务员) = Trim 摘要) = Trim 商品编号) = Trim 商品名称) = Trim 型号) = Trim 规格)

41、= Trim 单位) = Trim 数量) = Trim 单价) = Trim 合计金额) = Trim 追加付款账户) = Trim 追加付款) = Trim 应付款) = Trim - Trim End SubPrivate Sub Command2_Click() = = = = = = = = = = = = = = = = End SubPrivate Sub Command3_Click()Unload Me = TrueEnd Sub九采购付款若付款给供应商，支付金额自动登账入库，完成入库交易。输入订单号对要付款的订单进行查询，如果订单号存在且其“是否付款”属性为否，则确认付款，

42、并将信息保存到仓库库存台账中完成付款交易。图为采购付款，包括单据编号，商品编号，商品名称，合计金额，已预付款，追加付款金额，追加付款账户。 图4-9 采购付款具体代码如下：Private Sub Form_Load() = Provider= Source= & & 采购管理系统.mdb;Persist Security Info=False = select * from 采购订单 where 是否已核销=0 order by 单据编号 Set = Adodc1 = = = = = = Provider= Source= & & 采购管理系统.mdb;Persist Security Inf

43、o=False = select * from 付款明细账 where 是否已核销=0 order by 单据编号 End SubPrivate Sub Command1_Click() 单据编号) = Trim 商品编号) = Trim 商品名称) = Trim 合计金额) = Trim 已预付款) = Trim 追加付款账户) = Trim 追加付款) = Trim 是否已核销) = -1 应付款) = 0 是否已核销) = -1 End SubPrivate Sub Command3_Click()Unload Me = TrueEnd Sub十采购退货采购退货是对销售中不满意的商品向供

44、应商要求退货。输入需要退货的商品的相关信息即可进行退货处理，库存台账中的商品数量会相应减少。采购部门也可对退货产品进行查询。 图为采购退货，包括商品编号，商品名称，商品数量，型号，供应商和联系方式。图4-10 采购退货具体代码如下：Private Sub Command1_Click()Unload Me = TrueEnd SubPrivate Sub Command2_Click() = select * from 采购退货 where 采购退货.商品编号 = & & If Then MsgBox SORRY,未找到你所查询的数据，请查证后再试, , 确定ElseText2 = 商品名称)

45、Text3 = 商品数量)Text4 = 型号)Text5 = 供应商)Text6 = 联系方式)End IfEnd SubPrivate Sub Command3_Click() If = Or = Or = Or = Or = Or = Then MsgBox 请输入完整信息, , 系统提示 Else 商品编号) = Trim 商品名称) = Trim 商品数量) = Trim 型号) = Trim 供应商) = Trim 联系方式) = Trim = = = = = = MsgBox 商品已添加成功, , 系统提示 End IfEnd SubPrivate Sub Command4_Cl

46、ick() = = = = = = End SubPrivate Sub Form_Load() = Provider= Source= & & 采购管理系统.mdb;Persist Security Info=False = select * from 采购退货 End Sub十一. 产品销售 本功能可以将销售的产品信息输入到管理系统中，生成销售报表。也可对已销售的商品信息进行查询、删除处理。 图4-11产品销售具体代码如下：Private Sub Command1_Click() = select * from 产品销售 where 产品销售.商品编号 = & & If Then MsgB

47、ox SORRY,未找到你所查询的数据，请查证后再试, , 确定ElseText2 = 商品名称)Text3 = 型号)Text4 = 销售数量)End IfEnd SubPrivate Sub Command2_Click()Unload Me = TrueEnd SubPrivate Sub Command3_Click() If = Or = Or = Or = Then MsgBox 请输入完整信息, , 系统提示 Else 商品编号) = Trim 商品名称) = Trim 型号) = Trim 销售数量) = Trim = = = = MsgBox 商品已添加成功, , 系统提示

48、End IfEnd SubPrivate Sub Command4_Click() MsgBox 商品已删除, , 系统提示End SubPrivate Sub Command5_Click() = = = = End SubPrivate Sub Form_Load() = Provider= Source= & & 采购管理系统.mdb;Persist Security Info=False = select * from 产品销售 End Sub系统运行管理制度企业销售采购管理信息系统运行管理制度第一条为做好销售采购管理信息系统运行管理工作，制定本制度。第二条本制度适用于采购管理所涉及的所有部门和人员。第三条本系统主要负责采购管理、销售管理、库存管理和财务管理等。第四条系统所有相关的部门都必须按照系