采购管理系统3Word文档格式.docx
- 文档编号:1556954
- 上传时间:2023-04-30
- 格式:DOCX
- 页数:25
- 大小:393KB
采购管理系统3Word文档格式.docx
《采购管理系统3Word文档格式.docx》由会员分享,可在线阅读,更多相关《采购管理系统3Word文档格式.docx(25页珍藏版)》请在冰点文库上搜索。
后台数据库使用SQLServer2005数据库,以VisualBasic6.0作为开发平台,系统总体功能设计如图2.1所示。
图2.1系统总体功能设计
1系统设置模块:
实现系统的相关操作,比如操作员管理、操作员密码修改、数据备份、数据恢复等。
2采购管理模块:
实现采购管理的相关功能或操作,比如采购员管理、供应商管理、采购材料管理、采购订单管理、订单信息查询等。
3到货管理模块:
实现到货信息的相关功能的管理,比如到货信息维护、到货信息查询等。
4库存管理模块:
实现库存管理相关信息的操作,比如库存信息的维护、库存信息查询、库存信息统计等。
5退货管理模块:
实现退货管理相关信息的操作,比如退货信息维护,退货信息查询等。
6打印模块:
实现打印管理相关功能的实现,比如打印到货信息、打印退货信息、打印库存信息等。
三、数据库设计
(一)cgb表
cgb表必须包含的以下字段:
货物编号、货物名称、供应商编号、供应商名称、单价、单位、结算币、采购员编号、采购员姓名、联系人、电话、采购日期、备注等。
具体设置如下表:
字段名称
字段类型
字段大小
允许为空
货物编号
Decimal
18
否
货物名称
varchar
50
是
供应商编号
供应商名称
单价
float
单位
结算币
采购员编号
decimal
采购员姓名
联系人
电话
采购日期
datetime
备注
text
表3.1cgb表
(二)cgdd表
cgdd表必须包含以下字段:
单号、货物名称、批号、供应商编号、收货日期、发单时间、单位、币种、单价、数量、金额、备注、是否到货、状态等。
单号
Varchar
批号
收货日期
Datetime
发单时间
币种
Float
数量
Int
金额
Text
是否到货
Real
状态
Char
10
表3.2cgdd表
(三)cgyxx表
cgxx表应包含以下字段:
采购员编号、姓名、性别、年龄、民族、籍贯、学历、电话、现地址等。
姓名
性别
年龄
民族
籍贯
学历
现地址
表3.3cgyxx表
(四)dhb表
dhb表应包含以下字段:
到货单号、单号、货物名称、批号、供应商编号、收货日期、发单日期、单位、单价、订单数量、报损数量、报溢数量、数量、到货日期、备注、是否到货、状态等。
到货单号
发单日期
53
订单数量
报损数量
报溢数量
到货日期
表3.4dhb表
(五)gysxx表
gysxx表应包含以下字段:
供应商编号、供应商名称、简称、传真、电话、E-mail、联系人、联系人电话、地址等。
简称
传真
联系人电话
地址
表3.5gysxx表
(六)kcb表
kcb表应包含以下字段:
货物编号、单号、货物名称、批号、供应商编号、收货日期、单位、单价、数量、报损数量、报溢数量、金额、到货日期、入库日期、状态、备注等。
入库日期
表3.6kcb表
(七)thb表
thb表应包含如下字段:
退货单号、单号、货物名称、批号、供应商名称、收货日期、单位、单价、数量、到货日期、货物备注、退货日期、退货原因、状态等。
退货单号
货物备注
退货日期
退货原因
表3.7thb表
(八)xxdl表
xxdl表应包含以下字段:
Id、用户名、口令、系统维护、采购管理、到货管理、退货管理、库存管理、报表统计等。
Id
用户名
口令
系统维护
real
采购管理
到货管理
退货管理
库存管理
报表统计
表3.8xxdl表
四、窗口设计
(一)主窗口
主窗口包含有如下模块:
系统设置、采购管理、到货管理、库存管理、退货管理、打印报表、关闭系统。
具体设置如图4.1所示。
图4.1主窗口
(二)主窗口代码
DimiAsInteger
Dimc
PrivateSubCGCLGL_Click()
frm_cgclgl.Show
EndSub
PrivateSubCGDDGL_Click()
frm_cgdd.Show
PrivateSubCGYGL_Click()
frm_cgygl.Show
PrivateSubCZYGL_Click()
frm_YHGL.Show
PrivateSubDDXXCX_Click()
frm_ddxx_cx.Show
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
Else
EndIf
PrivateSubDHXXCX_Click()
frm_dhxx_cx.Show
PrivateSubDHXXWH_Click()
frm_dhb.Show
PrivateSubEND_Click()
c=MsgBox("
确认要退出采购管理系统吗?
"
33,"
)
Ifc=vbOKThen
End
PrivateSubForm_Activate()
IfCheck1.Value=1Then
STSZ.Enabled=True
ElseIfCheck1.Value=0Then
STSZ.Enabled=False
IfCheck2.Value=1Then
CGGL.Enabled=True
ElseIfCheck2.Value=0Then
CGGL.Enabled=False
IfCheck3.Value=1Then
DHGL.Enabled=True
ElseIfCheck3.Value=0Then
DHGL.Enabled=False
IfCheck4.Value=1Then
THGL.Enabled=True
ElseIfCheck4.Value=0Then
THGL.Enabled=False
IfCheck5.Value=1Then
XSGL.Enabled=True
ElseIfCheck5.Value=0Then
XSGL.Enabled=False
IfCheck6.Value=1Then
BBTJ.Enabled=True
ElseIfCheck6.Value=0Then
BBTJ.Enabled=False
PrivateSubForm_Load()
Me.Left=(Screen.Width-Me.Width)/2
Me.Top=(Screen.Height-Me.Height)/2
i=0
PrivateSubGYSGL_Click()
frm_gysgl.Show
PrivateSubKCTJ_Click()
frm_kctj.Show
PrivateSubKCXX_Click()
Ifi=0Ori=1Then'
如果首先点击库存菜单,那么i值变为1,代表首先点击的不是退货菜单
i=i+1
DataEnvironment1.rsCom_kcxx.Open"
select*fromTable_kcb"
IfDataEnvironment1.rsCom_kcxx.RecordCount>
DataRep_kcxx.Show
DataEnvironment1.rsCom_kcxx.Close
i=i+2'
如果没有打印的信息,i值就跳过1
没有库存信息"
PrivateSubMAXG_Click()
frm_xgmm.Show
PrivateSubQXSZ_Click()
frm_czysz.Show
PrivateSubRELOAD_Click()
UnloadMe
frm_czydl.Show
PrivateSubSJBF_Click()
frm_sjbf.Show
frm_sjbf.Text4.Text=StatusBar1.Panels.Item(3).Text
PrivateSubSJHF_Click()
DimiTaskAsLong
MsgBox"
请您注意,为了确保数据安全,在进行数据恢复的同时需要关闭应用程序,请您在恢复数据完成之后重新运行应用程序"
提示信息"
'
调用数据恢复可执行文件
iTask=Shell(App.Path&
"
\Restore.exe"
vbNormalFocus)
End
PrivateSubSYTS_Click()
frm_znsb.Show
PrivateSubTHXX_Click()
如果首先点击退货菜单,那么I值变为1,代表首先点击的不是退货菜单
DataEnvironment1.rsCom_thxx.Open"
select*fromTable_thb"
IfDataEnvironment1.rsCom_thxx.RecordCount>
DataRep_thxx.Show
DataEnvironment1.rsCom_thxx.Close
如果没有打印的信息,I值就跳过1
没有退货信息"
PrivateSubTHXXCX_Click()
frm_thxx_cx.Show
PrivateSubTHXXWH_Click()
frm_thgl.Show
PrivateSubTimer1_Timer()
StatusBar1.Panels.Item
(2).Text=Format(Now,"
yyyy年mm月dd日hh点mm分ss秒"
PrivateSubXSXXCX_Click()
frm_kcxx_cx.Show
PrivateSubXSXXWH_Click()
frm_kcb.Show
附录
采购管理系统的运行时截图如下:
总结
论文在撰写过程中,力求将理论与实践结合起来,在对企业物资采购理论进行阐述的同时,配合模拟系统从实际应用和操作技巧上加以说明,以达到对企业物资采购管理系统更深层次的理解和认识。
致谢
在老师的指导和我的努力下,经过一个多月时间,终于将毕业设计完成了。
通过此次毕业设计,让我对VB以及运用VB开发软件的全过程有了更深一层的认识,这要求我们要有严密的逻辑思维能力和良好的软件开发能力。
开发前的准备工作非常重要,首先应该定义好问题,接着分析其可行性,是否确实可行,再进行分析,设计出大体的框架,并对各模块进一步细化,逐一开发出软件框架。
再对软件的各部分进行细节开发。
最后将各模块连接起来,进行综合的测试,对错误的进行修改并改进,尽所能地使设计更加完备。
在此次设计中,让我更加掌握了SQLServer2005软件。
软件的主体设计全部由VisualBasic做成的。
在此次设计过程中,给我印象最深的是逻辑思维性的重要性,如果事先没有正确的规划好,它就会给我们的课题开发带来严重的麻烦。
在这次设计中的结构的合理安排给我们带来了不小的经验教训
参考文献
[1]《新概念VisualBasic6教程》,北京科海集团公司出品
[2]《VisualBasic数据库开发实例解析》,刘志铭等编著,机械工业出版社
[3]《VB6.0编程实例与技巧》,曾琦主编,国水利水电出版社
[4]《VB6.0实用数据库编程》,张龙志等编著,中国科学技术大学出版社
[5]《VB6.0多媒体开发实例》,清汉计算机工作室编著,机械工业出版社
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 采购 管理 系统
![提示](https://static.bingdoc.com/images/bang_tan.gif)