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

1、.：.； 目录TOC o - u .引言 .引言. 需求分析随着电子产品创新性技术的迅速开展、人民生活程度的提高，电脑已成为人们追求文娱不可或缺的生活用品。而对于销售这些产品的终端，无论是规模型的商场还是小的商店，都要求它们的采购业务能顺利、高效地进展。博宏电脑公司近年来的销售量激增，但是采购业务成为了它获取高效益的掣肘。该公司无论是高层指点还是员工，都希望能开发一个采购管理系统，对采购业务进展管理。 在该公司中，产品的采购管理是一项日常性的任务。电脑产品因其更新换代迅速，假设做不到使产品的采购量以及采购时间顺应需求的变化，那么很容易呵斥商品积压或脱销，不仅影响商品的销售业绩，也会添加库存费以

2、及采购环节不用要的支出，最终影响公司的效益。另外，该公司的商品种类非常繁多，采购量大且频繁，依托传统的手工处置记录是很难对采购环节进展及时、正确地处置。所以开发并运用采购管理系统成为顺应时代开展，使管理现代化的重要措施。采购管理系统表达了当今先进的企业管理思想，对提高企业的管理程度有着重要的意义。采购管理系统可以保证方案的准确性和采购的合理性，降低商品的运营本钱，让利于消费者，提升该公司的竞争力。.可行性分析 可行性分析的义务是明确开发该采购管理系统的必要性和可行性。该公司的采购环节出现了制约商场开展的景象，利用计算机技术处理采购业务数据的处置迫在眉睫，公司的指点支持开发采购管理系统，管理人员

3、、员工积极呼应。因此开发采购管理系统的必要性与可行性是存在的。详细表现为：管理上的可行性：公司内部的采购环节的滞后让管理人员的日常管理任务难以顺利地进展，指点层也留意到当前落后的采购管理手段对商品的销售利润影响很大，公司上下都对采购管理系统的开发有很大的热情，迫切需求对其采购管理进展改革，开发采购管理系统的时机已成熟。技术上的可行性：由于该公司的办公室、采购部门、库存部门、销售部门和财务部门等都运用了电脑办公，公司员工的素质较高，员工的技术程度到达了采购管理系统所要求的程度。目前可视化开发技术及工具如visual basic和数据库技术如access很成熟，并且该采购管理系统在公司现有的硬软件

4、资源根底上可以实施，因此技术上是可行的。经济上的可行性：该系统所需的硬件设备，如效力器、PC机、打印机以及网络配件等的市场价钱不高，且目前主流的配置就能满足该系统的功能要求，设备费用的支出很小。该公司对于此次开发MIS的经济效益和费用支出进展了比较评价，回收期短。该公司经济效益好，现金流正常，为此次工程开发提供了充足的经费。由于该系统规模小，仅在公司内部运转，日常的维护量不大，所以运转费用低。但是由于采用了采购管理系统，减少了采购环节的人员作业，提高了任务效率，进而降低了商品的本钱，这些费用的节省远大于该采购管理系统的开发和运转费用。. 系统分析. 业务流程分析 图.为采购管理系统业务流程图：

5、描画了系统内各单位、人员之间业务关系、作业顺序和管理业务流向的图表。供应商付款单退款单采购订单财务部采购员退货单采购开单收货单仓库管理员 图. 采购管理业务流程图. 数据流程分析根据数据流程图画出的业务流程图如图.和图.所示：数据流程图能全面地描画信息系统逻辑模型供应商提货单采购处置 采购订单 图. 采购管理的顶层数据流程图财务账簿财务 部 退货单数据 订 单 数 据采购订单审核处置采购部供应商 采购订单 订单数据 入 出 库 库 单 单销售部 收退货处置库存处置 销售报表 出、入库数据库存台账图. 采购管理系统的第二层数据流程图. 数据字典数据项的定义以采购订单的单据编号为例 数据项编号：I

6、- 数据项称号：单据编号 别名：单据编号 简述：区别采购订单独一性的代码 类型与长度：字符型，长度为 取值范围：“ 数据构造的定义以采购订单为例 数据构造编号：DS- 数据构造称号：采购订单 简述：采购部门所填采购订单信息 数据构造组成：DS- + DS- + DS-数据流的定义以采购订单为例 数据流编号：D- 数据流称号：合格的采购订单 简述：经审核同意的采购订单 数据流来源：采购订单审核处置模块 数据流去向：采购部门 数据项组成：单据编号+录单日期+商品编号+商品称号+型号+规格+单位+数量+单价+合计金额+供应商+到货日期+联络人+业务员+摘要 数据流量：约张/日 顶峰流量：约张/日 处

7、置逻辑的定义以采购订单审核为例 处置逻辑编号：P- 处置逻辑称号：采购订单审核处置 简述：审核采购订单能否合格并给予同意或不同意 输入的数据流：采购订单 审核处置描画：审核采购部门送来的采购订单填写格式能否符合要求，单据上的信息能否符合采购方案，能否真实等。不合格的单据前往采购部门，合格的单据登记采购订单台账。输出的数据流：合格的采购订单，未批采购订单 处置频率：约次/日数据存储的定义以采购订单数据存储为例 数据存储编号：F- 数据存储称号：采购订单台账 简述：存放采购订单信息 数据存储组成：单据编号+录单日期+商品编号+商品称号+型号+规格+单位+数量+单价+合计金额+预付账户+预付金额+供

8、应商+到货日期+联络人+业务员+摘要 关键字：单据编号 相关联的处置：P- 外部实体的定义以供应商为例 外部实体编号：S- 外部实体称号：供应商 简述：提供商品的供应商 输入的数据流：D- 输出的数据流：D-. 系统设计 . 系统总体构造 新系统的功能设计是以业务流程图和数据流程图为根据的。对该采购管理系统划分为系统设置、资料管理、采购订单、订单收货、采购开单、采购付款、采购退货、产品销售等功能模块。根据以上分析，该采购管理系统功能划分图如图.所示：采购管理系统系统设置采购管理产品销售采购退货采购付款采购开单订单收货采购订单修正密码权限管理添加用户 图. 采购管理系统功能构造图. 数据构造与数

9、据库设计ER模型：概念模型的最常用的表示方法是实体-联络方法。商品称号型号商品编号订单号规格采购订单日期供应商称号交给联络人编号供应商称号日期交货商品数量商品称号仓库订单号数量采购开单单价商品称号商品编号 图. 采购管理系统E-R模型图 数据表的设计：这是根据数据流程图设计的数据表主键列名数据类型长度允许空*供应商代码char*供应商称号文本*产品代码char*产品称号文本图. 产品销售表主键列名数据类型长度允许空*商品编号char*商品称号文本*型号文本*规格文本*单位文本*数量varchar*单价char*合计金额varchar*单据编号varchar*供应商文本*入库日期datatime

10、*联络人文本*char*业务员文本*摘要文本表. 商品库存表. 代码设计 代码设计部分主要是采购订单号的设计。博宏公司的主要协作同伴为其设计固定的编码。采购订单号是由供应商名和产品类别构成的。表.为采购订单编号表 ：供应商代码*供应商称号产品代码产品称号A经销商N-联想电脑B经销商N-戴尔电脑C经销商N-索尼电脑D经销商N-华硕电脑E经销商N-宏基电脑F经销商N-三星电脑G经销商N-惠普电脑 表. 采购订单编号表 . 输入输出设计输出设计：输出设备：打印机、显示器 输出报告：输出设计书资料代码XS-输知称号销售报表份数报送库存部门工程号工程称号位数及编辑备注商品编号X()商品称号X()型号X(

11、)销售数量X() 表. 输出设计书输入设计： 对输入信息进展校验在登陆界面： 用户名及密码不能为空，如不填写两者或两者之一，那么会弹出对话框提示用户不存在，请重新输入！假设用户输入的密码不是密码管理表中的用户名及密码，那么会弹出对话框提示用户不存在，请重新输入！在产品销售中：商品编号不能为空，否那么会弹出对话框提示Sorry,未找到他所查询的数据，请查证后再试单据号规格数量录单日期单位单价商品编号到货日期合计金额商品称号业务员预付账户型号联络人预付金额供应商摘要 表. 产品销售单录入屏幕.系统的平安设计信息系统平安设计主要处理以下几个问题：止带宽资源滥用防止无关网络行为影响任务效率管控外发信息

12、，降低泄密风险掌握组织动态、优化员工管理为网络管理与优化提供决策根据，防止病毒木马等网络风险低本钱且有效推行信息管理制度等. 系统实施. 系统实施一、登录界面当输入的账号为：xiaolin密码为：xiaolin 时，焦点会自动落在确定上面，此时点击确定或按回车键即可以登入系统。假设错误，那么会弹出对话框提示“此用户不存在,请重新输入！并且它的输入密码为“*，是在属性栏中的passwordchar设置“*。用户名及密码不能为空，如不填写两者或两者之一，那么会弹出对话框提示此用户不存在，请重新输入！假设用户输入的密码不是密码管理表中的用户名及密码，那么会弹出对话框提示此用户不在，请重新输入！图-

13、登陆窗口它的详细代码为：Dim TIM As Integer 定义一个整型变量Dim myval As String 定义一个字符串变量Private Sub Form_Load() 衔接access数据库 Adodc.ConnectionString = Provider=Microsoft.Jet.OLEDB.;Data Source= & App.Path & 采购管理系统.mdb;Persist Security Info=False Adodc.RecordSource = select * from 用户 Adodc.Refresh End SubPrivate Sub Comma

14、nd_Click()Static itimes As Integer Form.StatusBar.Panels().Text = Text.Text 验证用户名及密码 Adodc.RecordSource = select * from 用户 where 用户名= + Text.Text + Adodc.RefreshIf Adodc.Recordset.RecordCount Then 假设记录数大于零 验证密码 If Text.Text = Adodc.Recordset.Fields(密码) Then Load Form Form.Show Unload Me Else If Text

15、.Text Adodc.Recordset.Fields(密码) Then MsgBox 密码错误,请重新输入！, vbCritical, 系统提示 itimes = itimes + Text.Text = Text.SetFocus End If End If Else MsgBox 用户不存在,请重新输入！, vbCritical, 系统提示 itimes = itimes + Text.Text = Text.Text = Text.SetFocus End If If itimes = Then 错误次，退出系统 MyMsg = MsgBox(输入错误,请向管理员查询！, vbCri

16、tical, 系统提示) If MyMsg = vbOK Then End End IfEnd SubPrivate Sub Command_Click()EndEnd SubPrivate Sub text_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyReturn Then Command_Click 按回车键进入End SubPrivate Sub Text_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyReturn Then

17、 Text.SetFocus 按回车键，text获得焦点End Sub二、主界面主界面是登陆后最根底的一个界面，内容包括采购订单，订单收获，采购开单，采购付款，采购退货，产品销售。图- 主界面它的详细代码为：Private Sub Command_Click()Form.ShowForm.Enabled = FalseEnd SubPrivate Sub 供应商资料_Click()Form.ShowForm.Enabled = FalseEnd SubPrivate Sub 库存查询_Click()Form.ShowForm.Enabled = FalseEnd SubPrivate Sub

18、权限管理_Click()Form.ShowForm.Enabled = FalseEnd SubPrivate Sub 添加用户_Click()Form.ShowForm.Enabled = FalseEnd SubPrivate Sub 退出系统_Click()EndEnd SubPrivate Sub 修正密码_Click()Form.ShowForm.Enabled = FalseEnd Sub三添加用户图- 添加用户它的详细代码为：Private Sub Form_Load() 自动识别数据库途径Adodc.ConnectionString = Provider=Microsoft.J

19、et.OLEDB.;Data Source= & App.Path & 采购管理系统.mdb;Persist Security Info=FalseAdodc.RecordSource = select * from 权限设置Adodc.RefreshAdodc.ConnectionString = Provider=Microsoft.Jet.OLEDB.;Data Source= & App.Path & 采购管理系统.mdb;Persist Security Info=FalseAdodc.RecordSource = select * from 用户Adodc.RefreshEnd S

20、ubPrivate Sub Form_Activate() Text.SetFocus text获得焦点End SubPrivate Sub Form_Unload(Cancel As Integer) Form.Enabled = TrueEnd SubPrivate Sub Text_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyReturn Then Text.SetFocus 回车text获得焦点End SubPrivate Sub text_KeyDown(KeyCode As Integer, Shi

21、ft As Integer) If KeyCode = vbKeyReturn Then Text.SetFocus 回车text获得焦点End SubPrivate Sub Text_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyReturn Then Command.SetFocus 回车Command获得焦点End SubPrivate Sub Command_Click() Dim yhm 保管用户名及密码 If Text.Text Then Adodc.RecordSource = select * f

22、rom 用户 where 用户名= + Text.Text + If Text.Text = Adodc.Recordset.Fields(用户名) Then MsgBox 已添加该用户，请重新添加, , 系统提示 Text.Text = : Text.Text = : Text.Text = Text.SetFocus ElseIf Text.Text And Text.Text And Text.Text = Text.Text Then adocon.Open Provider=Microsoft.Jet.OLEDB.;Data Source= & App.Path & 采购管理系统.m

23、db;Persist Security Info=False adoRs.Open select * from 用户, adocon, adOpenKeyset, adLockOptimistic adoRs.AddNew adoRs.Fields(用户名) = Text.Text adoRs.Fields(密码) = Text.Text adoRs.Update adocon.Close adocon.Open Provider=Microsoft.Jet.OLEDB.;Data Source= & App.Path & 采购管理系统.mdb;Persist Security Info=Fa

24、lse adoRs.Open select * from 权限设置, adocon, adOpenKeyset, adLockOptimistic adoRs.AddNew adoRs.Fields(用户名) = Text.Text adoRs.Fields(密码) = Text.Text adoRs.Update adocon.Close Text.Text = : Text.Text = : Text.Text = MsgBox 添加用户胜利！, , 系统提示 ElseIf Text.Text = Then MsgBox 请输入确认密码, , 系统提示 Text.SetFocus Else

25、If Text.Text Text.Text Then MsgBox 两次输入的密码不一样, , 系统提示 Text.Text = Text.Text = Text.SetFocus End If Else MsgBox 请输入用户名！, , 系统提示 End IfEnd SubPrivate Sub Command_Click() Text.Text = : Text.Text = : Text.Text = End SubPrivate Sub Command_Click() Unload Me Form.Show Form.Enabled = TrueEnd Sub四密码设置 本功能允许

26、运用者对密码进展修正，取保系统的平安与方便。假设他是系统的用户，输入用户名可对本人的密码进展修正。图- 密码设置它的详细代码为：Private Sub Form_Load() Adodc.ConnectionString = Provider=Microsoft.Jet.OLEDB.;Data Source= & App.Path & 采购管理系统.mdb;Persist Security Info=False Adodc.RecordSource = select * from 权限设置 Adodc.RefreshEnd SubPrivate Sub Command_Click() If T

27、ext.Text = Or Text.Text = Or Text.Text = Then MsgBox 输入不能为空!, , 提示信息 Else Adodc.RecordSource = select * from 权限设置 where 用户名= + Text.Text + Adodc.Refresh If Adodc.Recordset.RecordCount Then If Text.Text = Adodc.Recordset.Fields(密码) Then adocon.Open Provider=Microsoft.Jet.OLEDB.;Data Source= & App.Pat

28、h & 采购管理系统.mdb;Persist Security Info=False Set adoRs = adocon.Execute(update 权限设置 set 密码= + Text.Text + where 用户名= + Text.Text + ) adocon.Close Dim rs As New ADODB.Recordset rs.Open select * from 用户 where 用户名= + Text.Text + , StrCnn, adOpenKeyset, adLockPessimistic If rs.RecordCount Then rs.Fields(密

29、码) = Text.Text rs.Update rs.Close End If MsgBox 密码修正胜利,退出密码设置!, , 系统提示 Form.Enabled = True Unload Me Else MsgBox 原密码错误,请重新输入原密码!, , 系统提示 End If Else MsgBox 该用户不存在,请重新输入, , 系统提示 End IfEnd IfEnd SubPrivate Sub Form_Unload(Cancel As Integer) Form.Enabled = TrueEnd SubPrivate Sub Command_Click() Form.En

30、abled = True Unload Me Form.ShowEnd SubPrivate Sub Form_Activate() Text.SetFocus 回车text获得焦点End SubPrivate Sub Text_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyReturn Then Text.SetFocus 回车text获得焦点End SubPrivate Sub text_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vb

31、KeyReturn Then Text.SetFocus 回车text获得焦点End SubPrivate Sub Text_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = Then Command_ClickEnd Sub五权限管理： 图.详细的陈说了权限设置的内容，包括系统设置，资料管理，采购管理，库存管理和退货管理。图- 权限管理它的详细代码为：Private Sub Form_Load() Adodc.ConnectionString = Provider=Microsoft.Jet.OLEDB.;Data Sour

32、ce= & App.Path & 采购管理系统.mdb;Persist Security Info=False Adodc.RecordSource = select * from 权限设置 Adodc.Refresh Adodc.ConnectionString = Provider=Microsoft.Jet.OLEDB.;Data Source= & App.Path & 采购管理系统.mdb;Persist Security Info=False Adodc.RecordSource = select * from 权限设置 Adodc.Refresh Set DataList.Row

33、Source = AdodcEnd SubPrivate Sub Form_Unload(Cancel As Integer) Form.Enabled = TrueEnd SubPrivate Sub Datalist_Click() Adodc.RecordSource = select * from 权限设置 where 用户名= & DataList.BoundText & Adodc.Refresh If Adodc.Recordset.RecordCount Then For i = To If Adodc.Recordset.Fields(i) = - Then Check(i)

34、.Value = Else Check(i).Value = Next i Else DataList.BoundText = End IfEnd SubPrivate Sub Command_Click() 全选For i = To Check(i).Value = Next iEnd SubPrivate Sub Command_Click() 全不选 For i = To Check(i).Value = Next iEnd SubPrivate Sub Command_Click() 为用户设置权限 If DataList.BoundText Then Adodc.RecordSour

35、ce = select * from 权限设置 where 用户名= + DataList.BoundText + Adodc.Refresh If Adodc.Recordset.RecordCount Then For i = To If Check(i).Value = Then Adodc.Recordset.Fields(i) = - Else Adodc.Recordset.Fields(i) = Next i Adodc.Recordset.Update End If MsgBox 权限设置胜利!, , 系统提示 End IfEnd SubPrivate Sub Command_

36、Click() Unload Me Form.Enabled = True Form.ShowEnd SubPrivate Sub Command_Click() 删除用户 On Error Resume Next A = MsgBox(确认删除该用户?, , 系统提示) If A = vbYes Then Adodc.Recordset.Delete Adodc.Refresh Dim rs As New ADODB.Recordset rs.Open select * from 用户 where 用户名 = + DataList.BoundText + , StrCnn, adOpenKe

37、yset, adLockPessimistic If rs.RecordCount Then rs.Delete rs.Update End If Unload Me Adodc.Refresh Form.Show End IfEnd Sub六采购订单企业向供应商订货物时，开据采购订单，以便供应商及时供货。在界面内填入相应的商品信息，点击添加那么会将所输入的订单信息保管到采购订单中中。假设输入有误，且已保管，可以运用删除功能，将错误信息删除。订单号不能为空，否那么会弹出对话框提示请输入完好信息！在单价和数量中输入数字，金额工程会自动显示为两者乘积结果。 图- 采购商品信息的录入它的详细代码为：

38、Private Sub Form_Load() 衔接access数据库 Adodc.ConnectionString = Provider=Microsoft.Jet.OLEDB.;Data Source= & App.Path & 采购管理系统.mdb;Persist Security Info=False Adodc.RecordSource = select * from 采购订单 Adodc.Refresh Adodc.ConnectionString = Provider=Microsoft.Jet.OLEDB.;Data Source= & App.Path & 采购管理系统.md

39、b;Persist Security Info=False Adodc.RecordSource = select * from 供应商资料 Adodc.Refresh Combo.Clear Combo.AddItem Adodc.Recordset.Fields(供应商称号) DTPicker = Date DTPicker = Date Adodc.ConnectionString = Provider=Microsoft.Jet.OLEDB.;Data Source= & App.Path & 采购管理系统.mdb;Persist Security Info=False Adodc.R

40、ecordSource = select * from 付款明细账 Adodc.RefreshEnd SubPrivate Sub Command_Click() If Text.Text = Or Text.Text = Then MsgBox 请输入单据编号和商品编号, , 系统提示 Else If Text.Text = Adodc.Recordset.Fields(单据编号) Or Text.Text = Adodc.Recordset.Fields(商品编号) Then MsgBox 单据编号和商品编号不能反复添加，请重新输入, , 系统提示 Text.Text = Text.Tex

41、t = Text.Text = Combo.Text = Text.Text = Text.Text = Text.Text = Text.Text = Text.Text = Text.Text = Text.Text = Text.Text = Text.Text = Text.Text = Combo.Text = Combo.Text = Else Adodc.Recordset.AddNew Adodc.Recordset.Fields(单据编号) = Trim(Text.Text) Adodc.Recordset.Fields(录单日期) = Trim(DTPicker.Value

42、) Adodc.Recordset.Fields(供应商) = Trim(Combo.Text) Adodc.Recordset.Fields(到货日期) = Trim(DTPicker.Value) Adodc.Recordset.Fields(联络人) = Trim(Text.Text) Adodc.Recordset.Fields() = Trim(Text.Text) Adodc.Recordset.Fields(业务员) = Trim(Combo.Text) Adodc.Recordset.Fields(摘要) = Trim(Text.Text) Adodc.Recordset.Fi

43、elds(商品编号) = Trim(Text.Text) Adodc.Recordset.Fields(商品称号) = Trim(Text.Text) Adodc.Recordset.Fields(型号) = Trim(Text.Text) Adodc.Recordset.Fields(规格) = Trim(Text.Text) Adodc.Recordset.Fields(单位) = Trim(Text.Text) Adodc.Recordset.Fields(数量) = Trim(Text.Text) Adodc.Recordset.Fields(单价) = Trim(Text.Text)

44、 Adodc.Recordset.Fields(合计金额) = Trim(Text.Text) Adodc.Recordset.Fields(预付账户) = Trim(Combo.Text) Adodc.Recordset.Fields(预付金额) = Trim(Text.Text) Adodc.Recordset.Update Adodc.Recordset.AddNew Adodc.Recordset.Fields(单据编号) = Trim(Text.Text) Adodc.Recordset.Fields(商品编号) = Trim(Text.Text) Adodc.Recordset.F

45、ields(商品称号) = Trim(Text.Text) Adodc.Recordset.Fields(合计金额) = Trim(Text.Text) Adodc.Recordset.Fields(已预付款) = Trim(Text.Text) Adodc.Recordset.Fields(应付款) = Trim(Text.Text) - Trim(Text.Text) Adodc.Recordset.Update Text.Text = Text.Text = Text.Text = Combo.Text = Text.Text = Text.Text = Text.Text = Text

46、.Text = Text.Text = Text.Text = Text.Text = Text.Text = Text.Text = Text.Text = Combo.Text = Combo.Text = End If End IfEnd SubPrivate Sub Command_Click() Text.Text = Text.Text = Text.Text = Combo.Text = Text.Text = Text.Text = Text.Text = Text.Text = Text.Text = Text.Text = Text.Text = Text.Text = T

47、ext.Text = Text.Text = Combo.Text = Combo.Text = End SubPrivate Sub Command_Click()Unload MeForm.ShowForm.Enabled = TrueEnd SubPrivate Sub Text_Change() Text.Text = Val(Text.Text) * Val(Text.Text)End Sub七订单收货订单收货：是“采购订单上的货到货后入库，完成买卖。对采购订单表中商品的订单号进展查找。在表中可查询订货商品的详细信息，如单价、数量、商品能否入库等，假设没有入库，那么可运用入库功能，对

48、商品进展入库处置。图.为订单收货图，包括单据编号，录单日期，供应商，到货日期，联络人，业务员，商品编号，商品称号，型号，规格，单位，数量，单价。输入单据编号就可以查找到提到的相关的一切信息。图- 订单收货它的详细代码为：Private Sub Form_Load() Adodc.ConnectionString = Provider=Microsoft.Jet.OLEDB.;Data Source= & App.Path & 采购管理系统.mdb;Persist Security Info=False Adodc.RecordSource = select * from 采购订单 where

49、能否已入库= order by 单据编号 Adodc.Refresh Set DataGrid.DataSource = Adodc DataGrid.Refresh Adodc.ConnectionString = Provider=Microsoft.Jet.OLEDB.;Data Source= & App.Path & 采购管理系统.mdb;Persist Security Info=False Adodc.RecordSource = select * from 库存商品 Adodc.Refresh End SubPrivate Sub Command_Click() 查找订单Ado

50、dc.RecordSource = select * from 采购订单 where 采购订单.单据编号 = & Text.Text & Adodc.RefreshEnd SubPrivate Sub Command_Click() 入库 Adodc.Recordset.AddNew Adodc.Recordset.Fields(商品编号) = Adodc.Recordset.Fields(商品编号) Adodc.Recordset.Fields(商品称号) = Adodc.Recordset.Fields(商品称号) Adodc.Recordset.Fields(型号) = Adodc.Re

51、cordset.Fields(型号) Adodc.Recordset.Fields(规格) = Adodc.Recordset.Fields(规格) Adodc.Recordset.Fields(单位) = Adodc.Recordset.Fields(单位) Adodc.Recordset.Fields(数量) = Adodc.Recordset.Fields(数量) Adodc.Recordset.Fields(单价) = Adodc.Recordset.Fields(单价) Adodc.Recordset.Fields(合计金额) = Adodc.Recordset.Fields(合计金

52、额) Adodc.Recordset.Fields(单据编号) = Adodc.Recordset.Fields(单据编号) Adodc.Recordset.Fields(入库日期) = Adodc.Recordset.Fields(到货日期) Adodc.Recordset.Fields(供应商) = Adodc.Recordset.Fields(供应商) Adodc.Recordset.Fields(联络人) = Adodc.Recordset.Fields(联络人) Adodc.Recordset.Fields() = Adodc.Recordset.Fields() Adodc.Rec

53、ordset.Fields(业务员) = Adodc.Recordset.Fields(业务员) Adodc.Recordset.Fields(摘要) = Adodc.Recordset.Fields(摘要) Adodc.Recordset.Update Adodc.Recordset.Fields(能否已入库) = - Adodc.Recordset.UpdateAdodc.Refresh Set DataGrid.DataSource = Adodc DataGrid.Refresh Text.Text = End SubPrivate Sub Command_Click() Text.T

54、ext = End SubPrivate Sub Command_Click()Unload MeForm.ShowForm.Enabled = TrueEnd Sub八采购开单采购开单是企业向供应商订货时，开据入库订单，以便了解收货情况并预先安排存放货物的仓库。填入相关商品信息，将相关商品信息保管到库存台账中，对于仓库中已有的商品，数量上会在原有的根底上添加。 图.为采购开单图，包括单据编号，录单日期，供应商，到货日期，联络人，业务员，商品编号，商品称号，型号，规格，单位，数量，单价。还包括摘要合计金额，付款账户，付款金额。输入入库日期就会弹出在此时间段入库的商品的信息。 图- 采购开单详细

55、代码为：Private Sub Form_Load() 衔接access数据库 Adodc.ConnectionString = Provider=Microsoft.Jet.OLEDB.;Data Source= & App.Path & 采购管理系统.mdb;Persist Security Info=False Adodc.RecordSource = select * from 库存商品 Adodc.Refresh Adodc.ConnectionString = Provider=Microsoft.Jet.OLEDB.;Data Source= & App.Path & 采购管理系

56、统.mdb;Persist Security Info=False Adodc.RecordSource = select * from 付款明细账 Adodc.Refresh DTPicker = DateEnd SubPrivate Sub Command_Click() Adodc.Recordset.AddNew Adodc.Recordset.Fields(单据编号) = Trim(Text.Text) Adodc.Recordset.Fields(入库日期) = Trim(DTPicker.Value) Adodc.Recordset.Fields(供应商) = Trim(Comb

57、o.Text) Adodc.Recordset.Fields(联络人) = Trim(Text.Text) Adodc.Recordset.Fields() = Trim(Text.Text) Adodc.Recordset.Fields(业务员) = Trim(Combo.Text) Adodc.Recordset.Fields(摘要) = Trim(Text.Text) Adodc.Recordset.Fields(商品编号) = Trim(Text.Text) Adodc.Recordset.Fields(商品称号) = Trim(Text.Text) Adodc.Recordset.F

58、ields(型号) = Trim(Text.Text) Adodc.Recordset.Fields(规格) = Trim(Text.Text) Adodc.Recordset.Fields(单位) = Trim(Text.Text) Adodc.Recordset.Fields(数量) = Trim(Text.Text) Adodc.Recordset.Fields(单价) = Trim(Text.Text) Adodc.Recordset.Fields(合计金额) = Trim(Text.Text) Adodc.Recordset.Fields(追加付款账户) = Trim(Combo.T

59、ext) Adodc.Recordset.Fields(追加付款) = Trim(Text.Text) Adodc.Recordset.Fields(应付款) = Trim(Text.Text) - Trim(Text.Text) End SubPrivate Sub Command_Click() Text.Text = Text.Text = Text.Text = Text.Text = Text.Text = Text.Text = Text.Text = Text.Text = Text.Text = Text.Text = Text.Text = Text.Text = Text.

60、Text = Combo.Text = Combo.Text = Combo.Text = End SubPrivate Sub Command_Click()Unload MeForm.ShowForm.Enabled = TrueEnd Sub九采购付款假设付款给供应商，支付金额自动登账入库，完成入库买卖。输入订单号对要付款的订单进展查询，假设订单号存在且其“能否付款属性为否，那么确认付款，并将信息保管到仓库库存台账中完成付款买卖。图.为采购付款，包括单据编号，商品编号，商品称号，合计金额，已预付款，追加付款金额，追加付款账户。 图- 采购付款详细代码如下：Private Sub Form