VB课程设计（论文）-采购管理系统.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