《VB课程设计（论文）-采购管理系统.doc》由会员分享，可在线阅读，更多相关《VB课程设计（论文）-采购管理系统.doc（23页珍藏版）》请在三一文库上搜索。
1、目 录一、绪论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系统可不受物料需求管理系统的控制，并能提供应付帐款、物料库存等系统的资料来源。大型的采购管理系统是通过采
2、购申请、采购订货、进料检验、仓库收料、采购退货、购货发票处理、供应商管理、价格及供货信息管理、订单管理，以及质量检验管理等功能综合运用的管理系统，对采购物流和资金流的全部过程进行有效的双向控制和跟踪，实现完善的企业物资供应信息管理。 本系统仅是一个简单的采购管理系统，包含六大模块：系统设置模块、采购管理模块、到货管理模块、库存管理模块、退货管理模块、打印模块。模块的具体实现和应用正文中将详细说明。二、系统总体设计图后台数据库使用SQL Server 2005数据库，以Visual Basic 6.0作为开发平台，系统总体功能设计如图2.1所示。图2.1 系统总体功能设计1 系统设置模块：实现系
3、统的相关操作，比如操作员管理、操作员密码修改、数据备份、数据恢复等。2 采购管理模块：实现采购管理的相关功能或操作，比如采购员管理、供应商管理、采购材料管理、采购订单管理、订单信息查询等。3 到货管理模块：实现到货信息的相关功能的管理，比如到货信息维护、到货信息查询等。4 库存管理模块：实现库存管理相关信息的操作，比如库存信息的维护、库存信息查询、库存信息统计等。5 退货管理模块：实现退货管理相关信息的操作，比如退货信息维护，退货信息查询等。6 打印模块：实现打印管理相关功能的实现，比如打印到货信息、打印退货信息、打印库存信息等。三、数据库设计（一）cgb表cgb表必须包含的以下字段：货物编号
4、、货物名称、供应商编号、供应商名称、单价、单位、结算币、采购员编号、采购员姓名、联系人、电话、采购日期、备注等。具体设置如下表：字段名称字段类型字段大小允许为空货物编号Decimal18否货物名称varchar50是供应商编号Decimal18是供应商名称varchar50是单价float是单位varchar50是结算币varchar50是采购员编号decimal18是采购员姓名varchar50是联系人varchar50是电话varchar50是采购日期datetime是备注text是表3.1 cgb表（二）cgdd表cgdd表必须包含以下字段：单号、货物名称、批号、供应商编号、收货日期、发
5、单时间、单位、币种、单价、数量、金额、备注、是否到货、状态等。具体设置如下表：字段名称字段类型字段大小允许为空单号Decimal18否货物名称Varchar50是批号Varchar50是供应商编号Decimal18是收货日期Datetime是发单时间Datetime是单位Varchar50是币种Varchar50是单价Float是数量Int是金额Float是备注Text是是否到货Real是状态Char10是表3.2 cgdd表（三）cgyxx表cgxx表应包含以下字段：采购员编号、姓名、性别、年龄、民族、籍贯、学历、电话、现地址等。具体设置如下表：字段名称字段类型字段大小允许为空采购员编号De
6、cimal18否姓名Varchar50是性别Varchar50是年龄Int是民族Varchar50是籍贯Varchar50是学历Varchar50是电话Varchar50是现地址varchar50是表3.3 cgyxx表（四）dhb表dhb表应包含以下字段：到货单号、单号、货物名称、批号、供应商编号、收货日期、发单日期、单位、单价、订单数量、报损数量、报溢数量、数量、到货日期、备注、是否到货、状态等。具体设置如下表：字段名称字段类型字段大小允许为空到货单号Decimal18否单号Decimal18是货物名称Varchar50是批号Varchar50是供应商编号Varchar50是收货日期Dat
7、etime是发单日期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
8、是联系人varchar50是联系人电话varchar50是地址varchar50是表3.5 gysxx表（六）kcb表kcb表应包含以下字段：货物编号、单号、货物名称、批号、供应商编号、收货日期、单位、单价、数量、报损数量、报溢数量、金额、到货日期、入库日期、状态、备注等。具体设置如下表：字段名称字段类型字段大小允许为空货物编号Decimal18否单号Decimal18是货物名称varchar50是批号varchar50是供应商编号Varchar50是收货日期Datetime是单位Varchar53是单价Varchar50是数量Float是报损数量Float是报溢数量Float是金额Float
9、是到货日期Datetime是入库日期Datetime是状态Varchar50是备注text是表3.6 kcb表（七）thb表thb表应包含如下字段：退货单号、单号、货物名称、批号、供应商名称、收货日期、单位、单价、数量、到货日期、货物备注、退货日期、退货原因、状态等。具体设置如下表：字段名称字段类型字段大小允许为空退货单号Decimal18否单号Decimal18是货物名称Varchar50是批号Varchar50是供应商名称Varchar50是收货日期Datetime是单位Varchar53是单价Varchar50是数量Float是到货日期Datetime是货物备注Text是退货日期Date
10、time是退货原因text是状态varchar50是表3.7 thb表（八）xxdl表xxdl表应包含以下字段：Id、用户名、口令、系统维护、采购管理、到货管理、退货管理、库存管理、报表统计等。具体设置如下表：字段名称字段类型字段大小允许为空IdDecimal18否用户名Varchar50是口令Varchar50是系统维护real是采购管理real是到货管理real是退货管理real是库存管理real是报表统计real是表3.8 xxdl表四、窗口设计（一）主窗口主窗口包含有如下模块：系统设置、采购管理、到货管理、库存管理、退货管理、打印报表、关闭系统。具体设置如图4.1所示。图4.1 主窗口
11、（二）主窗口代码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
12、 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.r
13、sCom_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_Cli
14、ck()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 = TrueElseI
15、f 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 = TrueEl
16、seIf 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_Clic
17、k()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
18、 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.Te
19、xt = 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 =
20、 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 S
21、ubPrivate 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附录采购管理系统的
22、运行时截图如下：总结论文在撰写过程中，力求将理论与实践结合起来，在对企业物资采购理论进行阐述的同时，配合模拟系统从实际应用和操作技巧上加以说明，以达到对企业物资采购管理系统更深层次的理解和认识。致谢在老师的指导和我的努力下，经过一个多月时间，终于将毕业设计完成了。通过此次毕业设计，让我对VB以及运用VB开发软件的全过程有了更深一层的认识，这要求我们要有严密的逻辑思维能力和良好的软件开发能力。开发前的准备工作非常重要，首先应该定义好问题，接着分析其可行性，是否确实可行，再进行分析，设计出大体的框架，并对各模块进一步细化，逐一开发出软件框架。再对软件的各部分进行细节开发。最后将各模块连接起来，进行
23、综合的测试，对错误的进行修改并改进，尽所能地使设计更加完备。在此次设计中，让我更加掌握了SQL Server2005软件。软件的主体设计全部由Visual Basic做成的。在此次设计过程中，给我印象最深的是逻辑思维性的重要性，如果事先没有正确的规划好，它就会给我们的课题开发带来严重的麻烦。在这次设计中的结构的合理安排给我们带来了不小的经验教训参考文献1新概念Visual Basic 6教程，北京科海集团公司出品2Visual Basic数据库开发实例解析，刘志铭等编著，机械工业出版社 3VB6.0编程实例与技巧，曾琦主编，国水利水电出版社 4VB6.0实用数据库编程，张龙志等编著，中国科学技术大学出版社 5VB6.0多媒体开发实例，清汉计算机工作室编著，机械工业出版社 第 22 页 共 23 页