VB课程设计（论文）采购管理系统

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 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