企业销售采购管理系统1

1、沈阳理工大学课程设计专用纸课程设计任务书学院机械工程学院专业工业工程学生姓名罗晓琳、彭昌泽班级学号0901030205 0901030220课程设计题目企业销售采购管理系统实践教学要求与任务：1 .每位同学都应制定相应的任务完成计划，并按计划开展课程设计，接受检查。2 .课程设计必须完成对系统的分析与设计任务，编写相应的分析与设计报告。实施部分的内容可根据个人实际能力决定取舍，但必须至少完成三个功能模块，并且通 过上机检查。3 .开发工具与开发环境自选，推荐选择 visual basic或b/s模式开发，数据库管 理系统建议选择 access或sql server。4 .说明书要求文字通顺、画

2、图清晰、紧凑、整洁。注意按统一规定格式和封而， 装订成册。工作量大、时间紧，需要付出f 的辛苦。工作计划与进度安排：1 .课程设计任务书的布置，讲解（0.5天）2 .系统分析（1.5天）3 .系统设计（1.5天）4 .教师检查课程设计进度（0.5天）5 .系统实施与测试（3天）6 .编制设计说明书（2天）7 .考核（1天）指导教师：2012年6月21日专业负责人：2012年 月 日学院教学副院长：2012年 月 日设计题目：企业销售采购管理信息系统背景资料：请为某公司开发一套企业销售采购管理信息系统，目的旨在减少库存费以及采购环节不必要的支出，保证产品及时更新换代以及不易积压和脱销。1 .销售

3、部门每天统计各产品销售数量制成销售报表。2 .采购部门根据销售报表和库存台账制定采购订单。3 .企业向供应商订货时，开据入库单，以便了解收货情况并预先安排存放货物的仓库。4 .企业要求供应商退货时，开据退货单给库存部门和供应商。5 .库存部门要根据销售报表，入库单，退货单，数据，形成库存台账，并制定出采购订单给采购部门。6 .查询库存商品，以便及时了解库存情况37目录第一章系统开发概述1.1 需求分析1.2 可行性研究第二章系统分析2.1 业务流程分析2.2 数据流程分析2.3 写出该系统中的主要数据字典第三章系统设计3.1 系统总体结构设计r模型设计3.2 数据结构与数据库设计，包括 e3.

4、3 代码设计3.4 输入、输出设计3.5 模块功能与处理过程设计3.6 系统安全设计第四章系统实施4.1 系统实施（编程、调试、试运行）4.2 系统运行管理制度4.3 系统维护第五章结束语附录第八早 参考文献第一章系统开发概述1.1需求分析随着电子产品创新性技术的迅速发展、人民生活水平的提高，电脑已成为人们追求娱乐不可或缺的生活用品。 而对于销售这些产品的终端， 无论是规模型的商场还是小的商店，都要求它们的采购业务能顺利、高效地进行。博宏电脑公司近年来的销售量激增，但是采购业务成为了它获取高效益的掣肘。该公司无论是高层领导还是员工，都希望能开发一个采购管理系统，对采购业务进行管理。 在该公司中

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

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

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

8、量不大，所以运行费用低。但是由于采用了采购管理系统，减少了采购 环节的人员作业，提高了工作效率，进而降低了商品的成本，这些费用的节省远大于该采购 管理系统的开发和运行费用。第二章系统分析2.1 业务流程分析下图为采购管理系统业务流程图：描述了系统内各单位、人员之间业务关系、作业顺序 和管理业务流向的图表。2.2 数据流程分析根据数据流程图画出的业务流程图如下所示：数据流程图能全面地描述信息系统逻辑模 型图2.2采购管理的顶层数据流程图图2.3采购管理系统的第二层数据流程图2.3 数据字典1）数据项的定义（以采购订单的单据编号为例）数据项编号：i02-01数据项名称：单据编号别名：单据编号简述：

9、区别采购订单唯一性的代码类型与长度：字符型，长度为 11取值范围：“20110101001 ” “21001231999”2）数据结构的定义（以采购订单为例）数据结构编号：ds02-01数据结构名称：采购订单简述：采购部门所填采购订单信息数据结构组成： ds02-02 + ds02-03 + ds02-043）数据流的定义（以采购订单为例）数据流编号：d02-02数据流名称：合格的采购订单简述：经审核批准的采购订单数据流来源：采购订单审核处理模块数据流去向：采购部门数据项组成：单据编号 +录单日期+商品编号+商品名称+型号+规格+单位+数量+单价+ 合计金额 钺应商+到货日期+联系人+电话+业

10、务员+摘要数据流量：约30张/日高峰流量：约50张/日4）处理逻辑的定义（以采购订单审核为例）处理逻辑编号：p02-01处理逻辑名称：采购订单审核处理简述：审核采购订单是否合格并给予批准或不批准输入的数据流：采购订单审核处理描述：审核采购部门送来的采购订单填写格式是否符合要求，单据上的信息是否符合采购计划，是否真实等。不合格的单据返回采购部门，合格的单据登记采购订单台账。输出的数据流：合格的采购订单，未批采购订单处理频率：约30次/日5）数据存储的定义（以采购订单数据存储为例）数据存储编号：f02-01数据存储名称：采购订单台账简述：存放采购订单信息数据存储组成：单据编号+录单日期+商品编号+

11、商品名称+型号+规格+单位+数量+单价 +合计金额+预付账户+预付金额+供应商+到货日期+联系人+电话+业务员+摘要关键字：单据编号相关联的处理：p02-016）外部实体的定义（以供应商为例）外部实体编号：s02-01外部实体名称：供应商简述：提供商品的供应商输入的数据流：d02-02输出的数据流：d02-01第三章系统设计3.1系统总体结构新系统的功能设计是以业务流程图和数据流程图为依据的。对该采购管理系统划分为系 统设置、资料管理、采购订单、订单收货、采购开单、采购付款、采购退货、产品销售等功 能模块。根据以上分析，该采购管理系统功能划分图如下采购管理系统采购管理系统设置修改密码采购订单订

12、 单 收 货采购开单采购付款采购退货产品销售3.2数据结构与数据库设计图3.1采购管理系统功能结构图e r模型：概念模型的最常用的表示方法是实体-联系方法。图3.2采购管理系统e-r模型图数据表的设计：这是根据数据流程图设计的数据表主键列名数据类型长度允许空*供应商代码char3*供应商名称文本4*产品代码char6*产品名称文本4图3.0产品销售表主键列名数据类型长度允许空*商口 口编pchar6*商品名称文本4*型号文本8*规格文本9*单位文本15*数量varchar15*单价char4*合计金额varchar19*单据编号varchar3*供应商文本4*入库日期datatime8*联系人

13、文本3*电话char11*业务员文本3*摘要文本9表3.1 商品库存表3.3 代码设计代码设计部分主要是采购订单号的设计。博宏公司的主要合作伙伴为其设计固定的编码。采购订单号是由供应商名和产品类别构成的。供应商代码*供应商名称产品代码产品名称001a经销商n-01联想电脑002b经销商n-02戴尔电脑003c经销商n-03索尼电脑004d经销商n-04华硕电脑005e经销商n-05宏丕电脑006f经销商n-06三星电脑007g经销商n-07惠普电脑表3.2采购订单编号表3.4 输入输出设计输出设计：输出设备：打印机、显示器输出报告：输出设计书资料代码xs-01输出名称销售报表份数1报送库存部门

14、项目号项目名称位数及编辑备注1商口口编px(4)2商品名称x(6)3型号x(6)4销售数量x(3)表3.3输出设计书输入设计：对输入信息进行校验在登陆界面：用户名及密码不能为空，如不填写两者或两者之一，则会弹出对话框提醒”用户不存在，请从新输入！”如果用户输入的密码不是密码管理表中的用户名及密码， 则会弹出对话框提醒用户不存在，请从新输入！”在产品销售中：商品编号不能为空，否则会弹出对话框提醒sorry,未找到你所查询的数据,请查证后再试单据号规格数量录单日期单位:单价商口口编p到货日期:合计金额商品名称业务员预付账户型号联系人r预付金额供应商电话摘要表3.4产品销售单录入屏幕3.5 系统的安

15、全设计信息系统安全设计主要解决以下几个问题：止带宽资源滥用防止无关网络行为影响工作效率管控外发信息，降低泄密风险掌握组织动态、优化员工管理 为网络管理与优化提供决策依据，防止病毒木马等网络风险低成本且有效推行信息管理制度等第四章系统实施4.1系统实施一、登录界面当输入的账号为：xiaolin密码为：xiaolin时，焦点会自动落在确定上面，此时点击确定或 按回车键即可以登入系统。若错误，则会弹出对话框提醒“此用户不存在，请重新输入！”并且它的输入密码为“ *，是在属性栏中的 passwordchar设置“ * ”。用户名及密码不能为空，如不填写两者或两者之一，则会弹出对话框提醒此用户不存在，请

16、从新输入！”如果用户输入的密码不是密码管理表中的用户名及密码，则会弹出对话框提醒此用户不在，请从新输入！”沈阳理工大学0901030205罗晓琳 制作图4-1登陆窗口它的具体代码为：dim tim as integer定义一个整型变量dim myval as string定义一个字符串变量private sub form_load()连接 access数据库adodc1.connectionstring = provider=microsoft.jet.oledb.4.0;data source= & app.path & 采购管理系统.mdb;persist security info=fa

17、lseadodc1.recordsource = select * from 用户adodci.refreshend subprivate sub command1_click()static itimes as integerform2.statusbar1.panels(4).text = textl.text验证用户名及密码adodci.recordsource = select * from 用户 where 用户名=+ textl.text + adodci.refreshif adodc1.recordset.recordcount 0 then 如果记录数大于零 验证密码if t

18、ext2.text = adodc1.recordset.fields(密码)then load form2form2.showunload me elseif text2.text adodc1.recordset.fields(密码)thenmsgbox 密码错误，请重新输入！, vbcritical,系统提示itimes = itimes + 1 text2.text =text2.setfocusend if end ifelsemsgbox”用户不存在，请重新输入！, vbcritical,系统提示itimes = itimes + 1 textl.text = text2.text

19、 = textl.setfocus 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)if keycode = vbkeyreturn then command1_click 按回车键进入end subpriv

20、ate sub text1_keydown(keycode as integer, shift as integer)if keycode = vbkeyreturn then text2.setfocus按回车键，text2 获得焦点end sub 二、主界面内容包括采购订单， 订单收获，采购开单，采购付主界面是登陆后最基础的一个界面, 款，采购退货，产品销售。& 二一.果购f单订单收货采的退货2012/7/523:08双迎使用采购销售管理系统图4-2主界面它的具体代码为：private sub command1_click()form3.showform2.enabled = falsee

21、nd subprivate sub 供应商资料 _click()form21.showform2.enabled = falseend subprivate sub 库存查询 _click()form8.showform2.enabled = falseend subprivate sub 权限管理 _click()form91.showform2.enabled = falseend subprivate sub 添加用户 _click()form9.showform2.enabled = falseend subprivate sub 退出系统 _click()endend subpriv

22、ate sub 修改密码 _click()form92.showform2.enabled = falseend sub三.添加用户图4-3添加用户它的具体代码为：private sub form_load()自动识别数据库路径 购管理系统.mdb;persist security info=falseadodci.recordsource = select * from 权限设置adodci.refresh采购管理系统.mdb;persist security info=falseadodc2.recordsource = select * from 用户adodc2.refreshend

23、subprivate sub form_activate()textl.setfocustext1 获得焦点end subprivate sub form_unload(cancel as integer) form2.enabled = trueend subprivate sub text1_keydown(keycode as integer, shift as integer)if keycode = vbkeyreturn then text2.setfocus 回车 text2 获得焦点end subprivate sub text2_keydown(keycode as inte

24、ger, shift as integer)if keycode = vbkeyreturn then text3.setfocus 回车 text3 获得焦点end subprivate sub text3_keydown(keycode as integer, shift as integer)if keycode = vbkeyreturn then command1.setfocus 回车 command1 获得焦点 end subprivate sub command1_click()dim yhm保存用户名及密码if text1.text thenadodc1.recordsour

25、ce = select * from 用户 where 用户名=+ textl.text + if textl.text = adodcl.recordset.fields(用户名)then msgbox 已添加该用户，请重新添加系统提示textl.text = : text2.text = : text3.text =textl.setfocuselseif text2.text and text3.text and text2.text = text3.text then采购管理系统.mdb;persist security info=false adors.open select * f

26、rom 用户, adocon, adopenkeyset, adlockoptimistic adors.addnewadors.fields(用户名)=textl.textadors.fields(密码)=text2.textadors.update adocon.close采购管理系统.mdb;persist security info=falseadors.open select * from 权限设置, adocon, adopenkeyset, adlockoptimistic adors.addnewadors.fields(用户名)=textl.textadors.fields(

27、密码)=text2.textadors.updateadocon.closetextl.text = : text2.text = : text3.text =msgbox 添加用户成功！系统提示elself text3.text = thenmsgbox ”请输入确认密码”系统提示text3.setfocuselseif text2.text text3.text thenmsgbox 两次输入的密码不相同一系统提示text2.text =text3.text =text2.setfocusend ifelsemsgbox ”请输入用户名！一系统提示end ifend subprivate

28、sub command2_click()text1.text = : text2.text = : text3.text =end subprivate sub command3_click()unload meform2.showform2.enabled = trueend sub四.密码设置本功能允许使用者对密码进行修改，取保系统的安全与方便。如果你是系统的用户，输入用户名可对自己的密码进行修改。6密码设置1=11回一里一请输入用户名i请输入原密码i请输入新密码i确定退出图4-4密码设置它的具体代码为：private sub form_load（）adodcl.connectionstr

29、ing = provider=microsoft.jet.oledb.4.0;data source= & app.path & 采购管理系统.mdb;persist security info=falseadodci.recordsource = select * from 权限设置adodci.refreshend subprivate sub command1_click（）if textl.text = or text2.text = or text3.text = thenmsgbox 输入不能为空！!, 48,提示信息elseadodci.recordsource = select

30、 * from 权限设置 where 用户名=+ textl.text + adodci.refreshif adodcl.recordset.recordcount 0 thenif text2.text = adodcl.recordset.fields（密码）then采购管理系统.mdb;persist security info=falseset adors = adocon.execute（update 权限设置 set 密码=+ text3.text + where 用户名=+ textl.text + ”，）adocon.closedim rs1 as new adodb.rec

31、ordsetrsl.open select * from 用户 where 用户名=+ textl.text + , strcnn, adopenkeyset, adlockpessimisticif rsl.recordcount 0 thenrsl.fields（密码）=text3.textrsl.update rsl.closeend ifmsgbox ”密码修改成功，退出密码设置 匚，系统提示 form2.enabled = trueunload meelsemsgbox 原密码错误，请重新输入原密码 匚，系统提示end ifelsemsgbox 该用户不存在，请重新输入系统提示end

32、 ifend ifend subprivate sub form_unload(cancel as integer)form2.enabled = trueend subprivate sub command2_click()form2.enabled = trueunload meform2.showend subprivate sub form_activate()text1.setfocus回车 text1 获得焦点end subprivate sub text1_keydown(keycode as integer, shift as integer)if keycode = vbke

33、yreturn then text2.setfocus 回车 text2 获得焦点 end subprivate sub text2_keydown(keycode as integer, shift as integer)if keycode = vbkeyreturn then text3.setfocus 回车 text3 获得焦点 end subprivate sub text3_keydown(keycode as integer, shift as integer)if keycode = 13 then command1_clickend sub五.权限管理：a夜限设百*图4-5

34、权限管理它的具体代码为:private sub form_load()adodcl.connectionstring = provider=microsoft.jet.oledb.4.0;data source= & app.path & 采购管理系统.mdb;persist security info=falseadodci.recordsource = select * from 权限设置adodci.refreshadodc2.connectionstring = provider=microsoft.jet.oledb.4.0;data source= & app.path & 采购管

35、理系统.mdb;persist security info=falseadodc2.recordsource = select * from 权限设置adodc2.refreshset datalistl.rowsource = adodc2end subprivate sub form_unload(cancel as integer)form2.enabled = trueend subprivate sub datalist1_click()adodci.recordsource = select * from 权限设置 where 用户名=&datalistl.boundtext &

36、皿adodci.refreshif adodcl.recordset.recordcount 0 thenfor i = 0 to 11if adodcl.recordset.fields(i) = -1 then check1(i).value = 1 elsecheck1(i).value = 0next ielsedatalistl.boundtext = 0end ifend subprivate sub command1_click() 全选for i = 0 to 11check1(i).value = 1next iend subprivate sub command2_clic

37、k() 全不选for i = 0 to 11check1(i).value = 0next iend subprivate sub command3_click()为用户设置权限if datalist1.boundtext thenadodc1.recordsource = select * from 权限设置 where 用户名=+ datalistl.boundtext + ”adodc1.refreshif adodc1.recordset.recordcount 0 thenfor i = 0 to 11if check1(i).value = 1 then adodc1.record

38、set.fields(i) = -1 elseadodc1.recordset.fields(i) = 0next iadodc1.recordset.updateend ifmsgbox ”权限设置成功 匚，系统提示end ifend subprivate sub command4_click()unload meform2.enabled = trueform2.showend subprivate sub command5_click() 删除用户on error resume nexta = msgbox(确认删除该用户？, 4,系统提示) if a = vbyes thenadodc

39、1.recordset.deleteadodc1.refreshdim rs2 as new adodb.recordsetrs2.open select * from 用户 where 用户名 =+ datalist1.boundtext + , strcnn,adopenkeyset, adlockpessimisticif rs2.recordcount 0 thenrs2.deleters2.updateend ifunload meadodci.refreshform91.showend ifend sub六.采购订单企业向供应商订货物时，开据采购订单，以便供应商及时供货。在界面内填

40、入相应的商品信息，点击添加则会将所输入的订单信息保存到采购订单中中。如果输入有误，且已保存,可以应用删除功能，将错误信息删除。订单号不能为空，否则会弹出对话框提醒请输入完整信息！”在单价和数量中输入数字，金额项目会自动显示为两者乘积结果。0或帧丁s采购订单同立向忠把口明联嘉人电舌业者员摘要商星!1号商品名神朝短轮单也打兄单航录甲m曲|乳|q t / $即择户拉付辐回尊目”用话上002an2打死题雅里造szum0d330l27?/fil:翅谪齿2q2,rr/9lejqsgtoch2fll2/7/5啜聃鬲20j2/t/sdossdl277/l5嗨丽h132/t/s5eig29bt00l2ol2/7

41、/5模请陶2012nrellll1111*图4-6米购商品信息的录入它的具体代码为：private sub form_load()连接 access数据库adodc1.connectionstring = provider=microsoft.jet.oledb.4.0;data source= & app.path &采购管理系统.mdb;persist security info=falseadodc1.recordsource = select * from 采购订单”adodci.refreshadodc2.connectionstring = provider=microsoft.j

42、et.oledb.4.0;data source= & app.path & 采购管理系统.mdb;persist security info=falseadodc2.recordsource = select * from 供应商资料 adodc2.refreshcombo1.clearcombo1.additem adodc2.recordset.fields（供应商名称）dtpicker1 = datedtpicker2 = dateadodc3.connectionstring = provider=microsoft.jet.oledb.4.0;data source= & app.

43、path & 采购管理系统.mdb;persist security info=falseadodc3.recordsource = select * from 付款明细账”adodc3.refreshend subprivate sub command1_click（）if textl.text = or text6.text = thenmsgbox ”请输入单据编号和商品编号系统提示elseif textl.text = adodcl.recordset.fields（单据编号）or text6.text =adodcl.recordset.fields（商品编号）thenmsgbox

44、”单据编号和商品编号不能重复添加，请重新输入一系统提示textl.text =text2.text =text3.text =combo3.text =text5.text =text6.text =text7.text =text8.text =text9.text =textio.text =textll.text =text12.text =text13.text =text14.text =combol.text =combo2.text =elseadodcl.recordset.addnewadodc1.recordset.fields（单据编号）=trim（textl.text）

45、adodcl.recordset.fields（录单日期）=trim（dtpicker2.value）adodc1.recordset.fields（供应商）=trim（combol.text）adodcl.recordset.fields（到货日期）=trim（dtpickerl.value）adodc1.recordset.fields（联系人）=trim（text2.text）adodc1.recordset.fields(电话)=trim(text3.text)adodc1.recordset.fields(业务员)=trim(combo3.text)adodci.recordset.

46、fields(摘要)=trim(text5.text)adodc1.recordset.fields(商品编号)=trim(text6.text)adodc1.recordset.fields(商品名称)=trim(text7.text)adodc1.recordset.fields(型号adodc1.recordset.fields(规格adodc1.recordset.fields(单位adodc1.recordset.fields(数量adodc1.recordset.fields(单价)=trim(text8.text)=trim(text9.text)=trim(text10.tex

47、t)=trim(textll.text)=trim(text14.text)adodc1.recordset.fields(合计金额)=trim(text12.text)adodci.recordset.fields(预付账户)=trim(combo2.text)adodci.recordset.fields(预付金额)=trim(text13.text)adodc3.recordset.addnewadodc3.recordset.fields(单据编号adodc3.recordset.fields(商品编号adodc3.recordset.fields(商品名称adodc3.records

48、et.fields(合计金额adodc3.recordset.fields(已预付款adodc3.recordset.fields(应付款)adodc3.recordset.updatetext1.text =text2.text =text3.text =combo3.text =text5.text =text6.text =text7.text =text8.text =text9.text =text10.text =text11.text =text12.text =text13.text =text14.text =combo1.text =combo2.text =)=trim(

49、text1.text)=trim(text6.text)=trim(text7.text)=trim(text12.text)=trim(text13.text)=trim(text12.text) - trim(text13.text)adodci.recordset.updateend ifend ifend subprivate sub command2_click()textl.text =text2.text =text3.text =combo3.text =text5.text =text6.text =text7.text =text8.text =text9.text =te

50、xtio.text =textll.text =text12.text =text13.text =text14.text =combol.text =combo2.text =end subprivate sub command3_click()unload meform2.showform2.enabled = trueend subprivate sub text12_change()text12.text = val(text14.text) * val(textll.text)end sub七.订单收货订单收货：是“采购订单”上的货到货后入库，完成交易。对采购订单表中商品的订单 号进

51、行查找。在表中可查询订货商品的详细信息，如单价、数量、商品是否入库等，如果没 有入库，则可应用入库功能，对商品进行入库处理。曰n单白寸叵 亚货商商司 西前谄 %鬻wlittt吴戏1234s6t翡怦王窕g4ecmt学掘聘11严羯|xe艇就品显m用品转称好n精单行岫品单mtsuqol再l00*0*10占艮4000tsoflte腐占10qokits0q03索尼刑心段由白45flcot50fld4华茶电晅品电白a如cots0qo5路段白44000 _ 图5-7订单收货它的具体代码为：private sub form_load()adodcl.connectionstring = provider=microsoft.jet.oledb.4.0;data source= & app.path & 采购管理系统.mdb;persist security info=f