采购管理系统3.docx

采购管理系统3.docx

《采购管理系统3.docx》由会员分享，可在线阅读，更多相关《采购管理系统3.docx（25页珍藏版）》请在冰豆网上搜索。

采购管理系统3

目录

一、绪论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系统可不受物料需求管理系统的控制，并能提供应付帐款、物料库存等系统的资料来源。

大型的采购管理系统是通过采购申请、采购订货、进料检验、仓库收料、采购退货、购货发票处理、供应商管理、价格及供货信息管理、订单管理，以及质量检验管理等功能综合运用的管理系统，对采购物流和资金流的全部过程进行有效的双向控制和跟踪，实现完善的企业物资供应信息管理。

本系统仅是一个简单的采购管理系统，包含六大模块：

系统设置模块、采购管理模块、到货管理模块、库存管理模块、退货管理模块、打印模块。

模块的具体实现和应用正文中将详细说明。

二、系统总体设计图

后台数据库使用SQLServer2005数据库，以VisualBasic6.0作为开发平台，系统总体功能设计如图2.1所示。

图2.1系统总体功能设计

1系统设置模块：

实现系统的相关操作，比如操作员管理、操作员密码修改、数据备份、数据恢复等。

2采购管理模块：

实现采购管理的相关功能或操作，比如采购员管理、供应商管理、采购材料管理、采购订单管理、订单信息查询等。

3到货管理模块：

实现到货信息的相关功能的管理，比如到货信息维护、到货信息查询等。

4库存管理模块：

实现库存管理相关信息的操作，比如库存信息的维护、库存信息查询、库存信息统计等。

5退货管理模块：

实现退货管理相关信息的操作，比如退货信息维护，退货信息查询等。

6打印模块：

实现打印管理相关功能的实现，比如打印到货信息、打印退货信息、打印库存信息等。

三、数据库设计

（一）cgb表

cgb表必须包含的以下字段：

货物编号、货物名称、供应商编号、供应商名称、单价、单位、结算币、采购员编号、采购员姓名、联系人、电话、采购日期、备注等。

具体设置如下表：

字段名称

字段类型

字段大小

允许为空

货物编号

Decimal

18

否

货物名称

varchar

50

是

供应商编号

Decimal

18

是

供应商名称

varchar

50

是

单价

float

是

单位

varchar

50

是

结算币

varchar

50

是

采购员编号

decimal

18

是

采购员姓名

varchar

50

是

联系人

varchar

50

是

电话

varchar

50

是

采购日期

datetime

是

备注

text

是

表3.1cgb表

（二）cgdd表

cgdd表必须包含以下字段：

单号、货物名称、批号、供应商编号、收货日期、发单时间、单位、币种、单价、数量、金额、备注、是否到货、状态等。

具体设置如下表：

字段名称

字段类型

字段大小

允许为空

单号

Decimal

18

否

货物名称

Varchar

50

是

批号

Varchar

50

是

供应商编号

Decimal

18

是

收货日期

Datetime

是

发单时间

Datetime

是

单位

Varchar

50

是

币种

Varchar

50

是

单价

Float

是

数量

Int

是

金额

Float

是

备注

Text

是

是否到货

Real

是

状态

Char

10

是

表3.2cgdd表

（三）cgyxx表

cgxx表应包含以下字段：

采购员编号、姓名、性别、年龄、民族、籍贯、学历、电话、现地址等。

具体设置如下表：

字段名称

字段类型

字段大小

允许为空

采购员编号

Decimal

18

否

姓名

Varchar

50

是

性别

Varchar

50

是

年龄

Int

是

民族

Varchar

50

是

籍贯

Varchar

50

是

学历

Varchar

50

是

电话

Varchar

50

是

现地址

varchar

50

是

表3.3cgyxx表

（四）dhb表

dhb表应包含以下字段：

到货单号、单号、货物名称、批号、供应商编号、收货日期、发单日期、单位、单价、订单数量、报损数量、报溢数量、数量、到货日期、备注、是否到货、状态等。

具体设置如下表：

字段名称

字段类型

字段大小

允许为空

到货单号

Decimal

18

否

单号

Decimal

18

是

货物名称

Varchar

50

是

批号

Varchar

50

是

供应商编号

Varchar

50

是

收货日期

Datetime

是

发单日期

Datetime

是

单位

Varchar

53

是

单价

Varchar

50

是

订单数量

Float

是

报损数量

Float

是

报溢数量

Float

是

数量

Float

是

到货日期

Datetime

是

备注

Text

是

是否到货

Real

是

状态

varchar

50

是

表3.4dhb表

（五）gysxx表

gysxx表应包含以下字段：

供应商编号、供应商名称、简称、传真、电话、E-mail、联系人、联系人电话、地址等。

具体设置如下表：

字段名称

字段类型

字段大小

允许为空

供应商编号

Decimal

18

供应商名称

varchar

50

是

简称

varchar

50

是

传真

varchar

50

是

电话

varchar

50

是

E-mail

varchar

50

是

联系人

varchar

50

是

联系人电话

varchar

50

是

地址

varchar

50

是

表3.5gysxx表

（六）kcb表

kcb表应包含以下字段：

货物编号、单号、货物名称、批号、供应商编号、收货日期、单位、单价、数量、报损数量、报溢数量、金额、到货日期、入库日期、状态、备注等。

具体设置如下表：

字段名称

字段类型

字段大小

允许为空

货物编号

Decimal

18

否

单号

Decimal

18

是

货物名称

varchar

50

是

批号

varchar

50

是

供应商编号

Varchar

50

是

收货日期

Datetime

是

单位

Varchar

53

是

单价

Varchar

50

是

数量

Float

是

报损数量

Float

是

报溢数量

Float

是

金额

Float

是

到货日期

Datetime

是

入库日期

Datetime

是

状态

Varchar

50

是

备注

text

是

表3.6kcb表

（七）thb表

thb表应包含如下字段：

退货单号、单号、货物名称、批号、供应商名称、收货日期、单位、单价、数量、到货日期、货物备注、退货日期、退货原因、状态等。

具体设置如下表：

字段名称

字段类型

字段大小

允许为空

退货单号

Decimal

18

否

单号

Decimal

18

是

货物名称

Varchar

50

是

批号

Varchar

50

是

供应商名称

Varchar

50

是

收货日期

Datetime

是

单位

Varchar

53

是

单价

Varchar

50

是

数量

Float

是

到货日期

Datetime

是

货物备注

Text

是

退货日期

Datetime

是

退货原因

text

是

状态

varchar

50

是

表3.7thb表

（八）xxdl表

xxdl表应包含以下字段：

Id、用户名、口令、系统维护、采购管理、到货管理、退货管理、库存管理、报表统计等。

具体设置如下表：

字段名称

字段类型

字段大小

允许为空

Id

Decimal

18

否

用户名

Varchar

50

是

口令

Varchar

50

是

系统维护

real

是

采购管理

real

是

到货管理

real

是

退货管理

real

是

库存管理

real

是

报表统计

real

是

表3.8xxdl表

四、窗口设计

（一）主窗口

主窗口包含有如下模块：

系统设置、采购管理、到货管理、库存管理、退货管理、打印报表、关闭系统。

具体设置如图4.1所示。

图4.1主窗口

（二）主窗口代码

DimiAsInteger

Dimc

PrivateSubCGCLGL_Click（）

frm_cgclgl.Show

EndSub

PrivateSubCGDDGL_Click（）

frm_cgdd.Show

EndSub

PrivateSubCGYGL_Click（）

frm_cgygl.Show

EndSub

PrivateSubCZYGL_Click（）

frm_YHGL.Show

EndSub

PrivateSubDDXXCX_Click（）

frm_ddxx_cx.Show

EndSub

PrivateSubDHXX_Click（）

Ifi=0Ori>1Then'如果i=0代表窗体启动时首先点击到货菜单

i=i+2'步长为2，越过打印库存信息和打印退货信息而引起的错误信息

DataEnvironment1.rsCom_dhxx.Open"select*fromTable_dhb"

IfDataEnvironment1.rsCom_dhxx.RecordCount>0Then

DataRep_dhxx.Show

Else

DataEnvironment1.rsCom_dhxx.Close

MsgBox"没有到货信息",64,"采购管理系统"

EndIf

ElseIfi=1Then

DataEnvironment1.rsCom_dhxx.Close

DataEnvironment1.rsCom_dhxx.Open"select*fromTable_dhb"

IfDataEnvironment1.rsCom_dhxx.RecordCount>0Then

DataRep_dhxx.Show

Else

DataEnvironment1.rsCom_dhxx.Close

MsgBox"没有到货信息",64,"采购管理系统"

EndIf

Else

EndIf

EndSub

PrivateSubDHXXCX_Click（）

frm_dhxx_cx.Show

EndSub

PrivateSubDHXXWH_Click（）

frm_dhb.Show

EndSub

PrivateSubEND_Click（）

c=MsgBox（"确认要退出采购管理系统吗？

",33,"采购管理系统"）

Ifc=vbOKThen

End

Else

EndIf

EndSub

PrivateSubForm_Activate（）

IfCheck1.Value=1Then

STSZ.Enabled=True

ElseIfCheck1.Value=0Then

STSZ.Enabled=False

Else

EndIf

IfCheck2.Value=1Then

CGGL.Enabled=True

ElseIfCheck2.Value=0Then

CGGL.Enabled=False

Else

EndIf

IfCheck3.Value=1Then

DHGL.Enabled=True

ElseIfCheck3.Value=0Then

DHGL.Enabled=False

Else

EndIf

IfCheck4.Value=1Then

THGL.Enabled=True

ElseIfCheck4.Value=0Then

THGL.Enabled=False

Else

EndIf

IfCheck5.Value=1Then

XSGL.Enabled=True

ElseIfCheck5.Value=0Then

XSGL.Enabled=False

Else

EndIf

IfCheck6.Value=1Then

BBTJ.Enabled=True

ElseIfCheck6.Value=0Then

BBTJ.Enabled=False

Else

EndIf

EndSub

PrivateSubForm_Load（）

Me.Left=（Screen.Width-Me.Width）/2

Me.Top=（Screen.Height-Me.Height）/2

i=0

EndSub

PrivateSubGYSGL_Click（）

frm_gysgl.Show

EndSub

PrivateSubKCTJ_Click（）

frm_kctj.Show

EndSub

PrivateSubKCXX_Click（）

Ifi=0Ori=1Then'如果首先点击库存菜单，那么i值变为1，代表首先点击的不是退货菜单

i=i+1

Else

EndIf

DataEnvironment1.rsCom_kcxx.Open"select*fromTable_kcb"

IfDataEnvironment1.rsCom_kcxx.RecordCount>0Then

DataRep_kcxx.Show

Else

DataEnvironment1.rsCom_kcxx.Close

i=i+2'如果没有打印的信息，i值就跳过1

MsgBox"没有库存信息",64,"采购管理系统"

EndIf

EndSub

PrivateSubMAXG_Click（）

frm_xgmm.Show

EndSub

PrivateSubQXSZ_Click（）

frm_czysz.Show

EndSub

PrivateSubRELOAD_Click（）

UnloadMe

frm_czydl.Show

EndSub

PrivateSubSJBF_Click（）

frm_sjbf.Show

frm_sjbf.Text4.Text=StatusBar1.Panels.Item（3）.Text

EndSub

PrivateSubSJHF_Click（）

DimiTaskAsLong

MsgBox"请您注意,为了确保数据安全,在进行数据恢复的同时需要关闭应用程序,请您在恢复数据完成之后重新运行应用程序",64,"提示信息"

'调用数据恢复可执行文件

iTask=Shell（App.Path&"\Restore.exe",vbNormalFocus）

End

EndSub

PrivateSubSYTS_Click（）

frm_znsb.Show

EndSub

PrivateSubTHXX_Click（）

Ifi=0Ori=1Then'如果首先点击退货菜单，那么I值变为1，代表首先点击的不是退货菜单

i=i+1

Else

EndIf

DataEnvironment1.rsCom_thxx.Open"select*fromTable_thb"

IfDataEnvironment1.rsCom_thxx.RecordCount>0Then

DataRep_thxx.Show

Else

DataEnvironment1.rsCom_thxx.Close

i=i+2'如果没有打印的信息，I值就跳过1

MsgBox"没有退货信息",64,"采购管理系统"

EndIf

EndSub

PrivateSubTHXXCX_Click（）

frm_thxx_cx.Show

EndSub

PrivateSubTHXXWH_Click（）

frm_thgl.Show

EndSub

PrivateSubTimer1_Timer（）

StatusBar1.Panels.Item

（2）.Text=Format（Now,"yyyy年mm月dd日hh点mm分ss秒"）

EndSub

PrivateSubXSXXCX_Click（）

frm_kcxx_cx.Show

EndSub

PrivateSubXSXXWH_Click（）

frm_kcb.Show

EndSub

附录

采购管理系统的运行时截图如下：

总结

论文在撰写过程中，力求将理论与实践结合起来，在对企业物资采购理论进行阐述的同时，配合模拟系统从实际应用和操作技巧上加以说明，以达到对企业物资采购管理系统更深层次的理解和认识。

致谢

在老师的指导和我的努力下，经过一个多月时间，终于将毕业设计完成了。

通过此次毕业设计，让我对VB以及运用VB开发软件的全过程有了更深一层的认识，这要求我们要有严密的逻辑思维能力和良好的软件开发能力。

开发前的准备工作非常重要，首先应该定义好问题，接着分析其可行性，是否确实可行，再进行分析，设计出大体的框架，并对各模块进一步细化，逐一开发出软件框架。

再对软件的各部分进行细节开发。

最后将各模块连接起来，进行综合的测试，对错误的进行修改并改进，尽所能地使设计更加完备。

在此次设计中，让我更加掌握了SQLServer2005软件。

软件的主体设计全部由VisualBasic做成的。

在此次设计过程中，给我印象最深的是逻辑思维性的重要性，如果事先没有正确的规划好，它就会给我们的课题开发带来严重的麻烦。

在这次设计中的结构的合理安排给我们带来了不小的经验教训

参考文献

[1]《新概念VisualBasic6教程》，北京科海集团公司出品

[2]《VisualBasic数据库开发实例解析》，刘志铭等编著，机械工业出版社

[3]《VB6.0编程实例与技巧》，曾琦主编，国水利水电出版社

[4]《VB6.0实用数据库编程》，张龙志等编著，中国科学技术大学出版社

[5]《VB6.0多媒体开发实例》，清汉计算机工作室编著，机械工业出版社