采购管理系统3.doc

目 录一、绪论1二、系统总体设计图1三、数据库设计2（一）cgb表2（二）cgdd表2（三）cgyxx表3（四）dhb表3（五）gysxx表4（六）kcb表4（七）thb表5（八）xxdl表5四、窗口设计6（一）主窗口6（二）主窗口代码6附录11总结20致谢21参考文献22采购管理系统一、绪论随着企业的扩大，企业的采购管理使用传统方法的弊端就尤为凸出。采购管理系统是制造业和装配业于上线生产前，供应厂商基本资料的收集和建立前置作业；各项料品及厂商交货进度的规划，透过采购资料维护的功能，使ERP系统可不受物料需求管理系统的控制，并能提供应付帐款、物料库存等系统的资料来源。大型的采购管理系统是通过采购申请、采购订货、进料检验、仓库收料、采购退货、购货发票处理、供应商管理、价格及供货信息管理、订单管理，以及质量检验管理等功能综合运用的管理系统，对采购物流和资金流的全部过程进行有效的双向控制和跟踪，实现完善的企业物资供应信息管理。 本系统仅是一个简单的采购管理系统，包含六大模块：系统设置模块、采购管理模块、到货管理模块、库存管理模块、退货管理模块、打印模块。模块的具体实现和应用正文中将详细说明。二、系统总体设计图后台数据库使用SQL Server 2005数据库，以Visual Basic 6.0作为开发平台，系统总体功能设计如图2.1所示。图2.1 系统总体功能设计1 系统设置模块：实现系统的相关操作，比如操作员管理、操作员密码修改、数据备份、数据恢复等。2 采购管理模块：实现采购管理的相关功能或操作，比如采购员管理、供应商管理、采购材料管理、采购订单管理、订单信息查询等。3 到货管理模块：实现到货信息的相关功能的管理，比如到货信息维护、到货信息查询等。4 库存管理模块：实现库存管理相关信息的操作，比如库存信息的维护、库存信息查询、库存信息统计等。5 退货管理模块：实现退货管理相关信息的操作，比如退货信息维护，退货信息查询等。6 打印模块：实现打印管理相关功能的实现，比如打印到货信息、打印退货信息、打印库存信息等。三、数据库设计（一）cgb表cgb表必须包含的以下字段：货物编号、货物名称、供应商编号、供应商名称、单价、单位、结算币、采购员编号、采购员姓名、联系人、电话、采购日期、备注等。具体设置如下表：字段名称字段类型字段大小允许为空货物编号Decimal18否货物名称varchar50是供应商编号Decimal18是供应商名称varchar50是单价float是单位varchar50是结算币varchar50是采购员编号decimal18是采购员姓名varchar50是联系人varchar50是电话varchar50是采购日期datetime是备注text是表3.1 cgb表（二）cgdd表cgdd表必须包含以下字段：单号、货物名称、批号、供应商编号、收货日期、发单时间、单位、币种、单价、数量、金额、备注、是否到货、状态等。具体设置如下表：字段名称字段类型字段大小允许为空单号Decimal18否货物名称Varchar50是批号Varchar50是供应商编号Decimal18是收货日期Datetime是发单时间Datetime是单位Varchar50是币种Varchar50是单价Float是数量Int是金额Float是备注Text是是否到货Real是状态Char10是表3.2 cgdd表（三）cgyxx表cgxx表应包含以下字段：采购员编号、姓名、性别、年龄、民族、籍贯、学历、电话、现地址等。具体设置如下表：字段名称字段类型字段大小允许为空采购员编号Decimal18否姓名Varchar50是性别Varchar50是年龄Int是民族Varchar50是籍贯Varchar50是学历Varchar50是电话Varchar50是现地址varchar50是表3.3 cgyxx表（四）dhb表dhb表应包含以下字段：到货单号、单号、货物名称、批号、供应商编号、收货日期、发单日期、单位、单价、订单数量、报损数量、报溢数量、数量、到货日期、备注、是否到货、状态等。具体设置如下表：字段名称字段类型字段大小允许为空到货单号Decimal18否单号Decimal18是货物名称Varchar50是批号Varchar50是供应商编号Varchar50是收货日期Datetime是发单日期Datetime是单位Varchar53是单价Varchar50是订单数量Float是报损数量Float是报溢数量Float是数量Float是到货日期Datetime是备注Text是是否到货Real是状态varchar50是表3.4 dhb表（五）gysxx表gysxx表应包含以下字段：供应商编号、供应商名称、简称、传真、电话、E-mail、联系人、联系人电话、地址等。具体设置如下表：字段名称字段类型字段大小允许为空供应商编号Decimal18供应商名称varchar50是简称varchar50是传真varchar50是电话varchar50是E-mailvarchar50是联系人varchar50是联系人电话varchar50是地址varchar50是表3.5 gysxx表（六）kcb表kcb表应包含以下字段：货物编号、单号、货物名称、批号、供应商编号、收货日期、单位、单价、数量、报损数量、报溢数量、金额、到货日期、入库日期、状态、备注等。具体设置如下表：字段名称字段类型字段大小允许为空货物编号Decimal18否单号Decimal18是货物名称varchar50是批号varchar50是供应商编号Varchar50是收货日期Datetime是单位Varchar53是单价Varchar50是数量Float是报损数量Float是报溢数量Float是金额Float是到货日期Datetime是入库日期Datetime是状态Varchar50是备注text是表3.6 kcb表（七）thb表thb表应包含如下字段：退货单号、单号、货物名称、批号、供应商名称、收货日期、单位、单价、数量、到货日期、货物备注、退货日期、退货原因、状态等。具体设置如下表：字段名称字段类型字段大小允许为空退货单号Decimal18否单号Decimal18是货物名称Varchar50是批号Varchar50是供应商名称Varchar50是收货日期Datetime是单位Varchar53是单价Varchar50是数量Float是到货日期Datetime是货物备注Text是退货日期Datetime是退货原因text是状态varchar50是表3.7 thb表（八）xxdl表xxdl表应包含以下字段：Id、用户名、口令、系统维护、采购管理、到货管理、退货管理、库存管理、报表统计等。具体设置如下表：字段名称字段类型字段大小允许为空IdDecimal18否用户名Varchar50是口令Varchar50是系统维护real是采购管理real是到货管理real是退货管理real是库存管理real是报表统计real是表3.8 xxdl表四、窗口设计（一）主窗口主窗口包含有如下模块：系统设置、采购管理、到货管理、库存管理、退货管理、打印报表、关闭系统。具体设置如图4.1所示。图4.1 主窗口（二）主窗口代码Dim i As IntegerDim cPrivate Sub CGCLGL_Click()frm_cgclgl.ShowEnd SubPrivate Sub CGDDGL_Click()frm_cgdd.ShowEnd SubPrivate Sub CGYGL_Click()frm_cgygl.ShowEnd SubPrivate Sub CZYGL_Click()frm_YHGL.ShowEnd SubPrivate Sub DDXXCX_Click()frm_ddxx_cx.ShowEnd SubPrivate Sub DHXX_Click()If i = 0 Or i 1 Then 如果i=0 代表窗体启动时首先点击到货菜单i = i + 2 步长为2，越过打印库存信息和打印退货信息而引起的错误信息 DataEnvironment1.rsCom_dhxx.Open select * from Table_dhb If DataEnvironment1.rsCom_dhxx.RecordCount 0 Then DataRep_dhxx.Show Else DataEnvironment1.rsCom_dhxx.Close MsgBox 没有到货信息, 64, 采购管理系统 End IfElseIf i = 1 Then DataEnvironment1.rsCom_dhxx.Close DataEnvironment1.rsCom_dhxx.Open select * from Table_dhb If DataEnvironment1.rsCom_dhxx.RecordCount 0 Then DataRep_dhxx.Show Else DataEnvironment1.rsCom_dhxx.Close MsgBox 没有到货信息, 64, 采购管理系统 End IfElseEnd IfEnd SubPrivate Sub DHXXCX_Click()frm_dhxx_cx.ShowEnd SubPrivate Sub DHXXWH_Click()frm_dhb.ShowEnd SubPrivate Sub END_Click() c = MsgBox(确认要退出采购管理系统吗？, 33, 采购管理系统) If c = vbOK Then End Else End IfEnd SubPrivate Sub Form_Activate()If Check1.Value = 1 ThenSTSZ.Enabled = TrueElseIf Check1.Value = 0 ThenSTSZ.Enabled = FalseElseEnd IfIf Check2.Value = 1 ThenCGGL.Enabled = TrueElseIf Check2.Value = 0 ThenCGGL.Enabled = FalseElseEnd IfIf Check3.Value = 1 ThenDHGL.Enabled = TrueElseIf Check3.Value = 0 ThenDHGL.Enabled = FalseElseEnd IfIf Check4.Value = 1 ThenTHGL.Enabled = TrueElseIf Check4.Value = 0 ThenTHGL.Enabled = FalseElseEnd IfIf Check5.Value = 1 ThenXSGL.Enabled = TrueElseIf Check5.Value = 0 ThenXSGL.Enabled = FalseElseEnd IfIf Check6.Value = 1 ThenBBTJ.Enabled = TrueElseIf Check6.Value = 0 ThenBBTJ.Enabled = FalseElseEnd IfEnd SubPrivate Sub Form_Load()Me.Left = (Screen.Width - Me.Width) / 2Me.Top = (Screen.Height - Me.Height) / 2i = 0End SubPrivate Sub GYSGL_Click()frm_gysgl.ShowEnd SubPrivate Sub KCTJ_Click()frm_kctj.ShowEnd SubPrivate Sub KCXX_Click() If i = 0 Or i = 1 Then 如果首先点击库存菜单，那么i值变为1，代表首先点击的不是退货菜单 i = i + 1 Else End If DataEnvironment1.rsCom_kcxx.Open select * from Table_kcb If DataEnvironment1.rsCom_kcxx.RecordCount 0 Then DataRep_kcxx.Show Else DataEnvironment1.rsCom_kcxx.Close i = i + 2 如果没有打印的信息，i值就跳过1 MsgBox 没有库存信息, 64, 采购管理系统 End IfEnd SubPrivate Sub MAXG_Click()frm_xgmm.ShowEnd SubPrivate Sub QXSZ_Click()frm_czysz.ShowEnd SubPrivate Sub RELOAD_Click()Unload Mefrm_czydl.ShowEnd SubPrivate Sub SJBF_Click()frm_sjbf.Showfrm_sjbf.Text4.Text = StatusBar1.Panels.Item(3).TextEnd SubPrivate Sub SJHF_Click()Dim iTask As LongMsgBox 请您注意,为了确保数据安全,在进行数据恢复的同时需要关闭应用程序,请您在恢复数据完成之后重新运行应用程序, 64, 提示信息调用数据恢复可执行文件iTask = Shell(App.Path & Restore.exe, vbNormalFocus)EndEnd SubPrivate Sub SYTS_Click()frm_znsb.ShowEnd SubPrivate Sub THXX_Click() If i = 0 Or i = 1 Then 如果首先点击退货菜单，那么I值变为1，代表首先点击的不是退货菜单 i = i + 1 Else End If DataEnvironment1.rsCom_thxx.Open select * from Table_thb If DataEnvironment1.rsCom_thxx.RecordCount 0 Then DataRep_thxx.Show Else DataEnvironment1.rsCom_thxx.Close i = i + 2 如果没有打印的信息，I值就跳过1 MsgBox 没有退货信息, 64, 采购管理系统 End IfEnd SubPrivate Sub THXXCX_Click()frm_thxx_cx.ShowEnd SubPrivate Sub THXXWH_Click()frm_thgl.ShowEnd SubPrivate Sub Timer1_Timer()StatusBar1.Panels.Item(2).Text = Format(Now, yyyy年mm月dd日 hh点mm分ss秒)End SubPrivate Sub XSXXCX_Click()frm_kcxx_cx.ShowEnd SubPrivate Sub XSXXWH_Click()frm_kcb.ShowEnd Sub附录采购管理系统的运行时截图如下：总结论文在撰写过程中，力求将理论与实践结合起来，在对企业物资采购理论进行阐述的同时，配合模拟系统从实际应用和操作技巧上加以说明，以达到对企业物资采购管理系统更深层次的理解和认识。致谢在老师的指导和我的努力下，经过一个多月时间，终于将毕业设计完成了。通过此次毕业设计，让我对VB以及运用VB开发软件的全过程有了更深一层的认识，这要求我们要有严密的逻辑思维能力和良好的软件开发能力。开发前的准备工作非常重要，首先应该定义好问题，接着分析其可行性，是否确实可行，再进行分析，设计出大体的框架，并对各模块进一步细化，逐一开发出软件框架。再对软件的各部分进行细节开发。最后将各模块连接起来，进行综合的测试，对错误的进行修改并改进，尽所能地使设计更加完备。在此次设计中，让我更加掌握了SQL Server2005软件。软件的主体设计全部由Visual Basic做成的。在此次设计过程中，给我印象最深的是逻辑思维性的重要性，如果事先没有正确的规划好，它就会给我们的课题开发带来严重的麻烦。在这次设计中的结构的合理安排给我们带来了不小的经验教训参考文献1新概念Visual Basic 6教程，北京科海集团公司出品2Visual Basic数据库开发实例解析，刘志铭等编著，机械工业出版社 3VB6.0编程实例与技巧，曾琦主编，国水利水电出版社 4VB6.0实用数据库编程，张龙志等编著，中国科学技术大学出版社 5VB6.0多媒体开发实例，清汉计算机工作室编著，机械工业出版社 3、通过活动，使学生养成博览群书的好习惯。B比率分析法和比较分析法不能测算出各因素的影响程度。C采用约当产量比例法，分配原材料费用与分配加工费用所用的完工率都是一致的。C采用直接分配法分配辅助生产费用时，应考虑各辅助生产车间之间相互提供产品或劳务的情况。错 C产品的实际生产成本包括废品损失和停工损失。C成本报表是对外报告的会计报表。C成本分析的首要程序是发现问题、分析原因。C成本会计的对象是指成本核算。C成本计算的辅助方法一般应与基本方法结合使用而不单独使用。C成本计算方法中的最基本的方法是分步法。XD当车间生产多种产品时，“废品损失”、“停工损失”的借方余额，月末均直接记入该产品的产品成本 中。D定额法是为了简化成本计算而采用的一种成本计算方法。F“废品损失”账户月末没有余额。F废品损失是指在生产过程中发现和入库后发现的不可修复废品的生产成本和可修复废品的修复费用。F分步法的一个重要特点是各步骤之间要进行成本结转。()G各月末在产品数量变化不大的产品，可不计算月末在产品成本。错G工资费用就是成本项目。()G归集在基本生产车间的制造费用最后均应分配计入产品成本中。对J计算计时工资费用，应以考勤记录中的工作时间记录为依据。()J简化的分批法就是不计算在产品成本的分批法。()J简化分批法是不分批计算在产品成本的方法。对 J加班加点工资既可能是直接计人费用，又可能是间接计人费用。J接生产工艺过程的特点，工业企业的生产可分为大量生产、成批生产和单件生产三种，XK可修复废品是指技术上可以修复使用的废品。错K可修复废品是指经过修理可以使用，而不管修复费用在经济上是否合算的废品。P品种法只适用于大量大批的单步骤生产的企业。Q企业的制造费用一定要通过“制造费用”科目核算。Q企业职工的医药费、医务部门、职工浴室等部门职工的工资，均应通过“应付工资”科目核算。 S生产车间耗用的材料，全部计入“直接材料”成本项目。 S适应生产特点和管理要求，采用适当的成本计算方法，是成本核算的基础工作。()W完工产品费用等于月初在产品费用加本月生产费用减月末在产品费用。对Y“预提费用”可能出现借方余额，其性质属于资产，实际上是待摊费用。对 Y引起资产和负债同时减少的支出是费用性支出。XY以应付票据去偿付购买材料的费用，是成本性支出。XY原材料分工序一次投入与原材料在每道工序陆续投入，其完工率的计算方法是完全一致的。Y运用连环替代法进行分析，即使随意改变各构成因素的替换顺序，各因素的影响结果加总后仍等于指标的总差异，因此更换各因索替换顺序，不会影响分析的结果。()Z在产品品种规格繁多的情况下，应该采用分类法计算产品成本。对Z直接生产费用就是直接计人费用。XZ逐步结转分步法也称为计列半成品分步法。A按年度计划分配率分配制造费用，“制造费用”账户月末(可能有月末余额/可能有借方余额/可能有贷方余额/可能无月末余额)。A按年度计划分配率分配制造费用的方法适用于(季节性生产企业)第 22 页 共 23 页