- 1、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。。
- 2、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 3、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
- 4、该文档为VIP文档,如果想要下载,成为VIP会员后,下载免费。
- 5、成为VIP后,下载本文档将扣除1次下载权益。下载后,不支持退款、换文档。如有疑问请联系我们。
- 6、成为VIP后,您将拥有八大权益,权益包括:VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
- 7、VIP文档为合作方或网友上传,每下载1次, 网站将根据用户上传文档的质量评分、类型等,对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档
查看更多
书店图书进销存管理系统
一、引言
1、编写目的
本论文的目的是阐述书店图书进销存管理系统的设计。本设计的编写目的在于全面说明书店图书进销存管理系统中的设计方案,包括系统的基本处理流程、程序系统的组织结构、模块划分和功能分配,为程序的详细设计提供基础。
2、背景
一个现代化的书店在正常运营中总是面对大量的库存信息、售书信息、进书信息等。传统的管理方法既浪费人力物力财力,又容易导致各种错误的发生。不但管理起来及其不方便,而且极容易出现漏洞,从而造成不可估量的损失。因此实现一个智能化、系统化、信息化的书店图书管理系统是十分必要的。充分利用计算机的功能实现对库存管理、售书管理、进书管理等的自动化控制,将会使书店图书管理工作大大减轻,方便友好的图形用户界面,简便的操作,完善的数据库管理,将会使书店图书管理系统极大限度地应用于现代化书店管理,成为书店管理人员的助手。
此系统就是基于这种背景才开发的,书店的图书种类非常多,如果用手工管理将会十分繁琐,所以此系统将大大的提高书店图书的管理效率。
本系统的开发采用的是Visual Basic 6.0,是由美国微软公司推出的可视化程序开发软件,由于其使用方便、硬件要求不高、易学等特点,它还提供强有力的应用程序开发工具,为将来的维护提供必要的基础。系统的操作对人员的素质的要求不高,只需稍加培训便能胜任;数据库采用的是微软Office下的Access2000,主要负责数据的录入、编辑与处理,为相关工作人员在处理既庞大又多样化数据时减轻压力,既节省时间又提高工作效率,成为数据处理之佳选。
3、定义
图书进销存管理系统是利用计算机信息技术,将书店图书入库、出库、批发、门市零售、内部间图书转移、图书报废等日常业务统一管理。利用计算机在运算方面的优势,及时准确的将图书进、销、存等环节的数据输出,使书店经营人员更为科学的进行经营活动。同时利用条形码识码技术对图书的相关信息进行输入,提高工作效率。
二、系统分析
1、系统功能分析
2、系统模块设计(功能模块图)
书店图书进销存管理系统
书店图书进销存管理系统
库存管理
售书管理
进书管理
退出系统
增加原有记录
查询原有记录
修改原有记录
删除原有记录
增加已售记录
查询已售记录
修改已售记录
删除已售记录
增加进书记录
查询进书记录
修改进书记录
删除进书记录
3、开发与运行环境的选择
Windows XP SP2 Professional操作系统
Microsoft Visual Basic 6.0
Microsoft Office Access 2000
4、系统实现过程分析
5、系统数据流程图
欢迎
欢迎界面
用户登录
增加原有记录
查询原有记录
修改原有记录
退出系统
进书管理
售书管理
库存管理
删除原有记录
增加已售记录
查询已售记录
修改已售记录
删除已售记录
增加进书记录
查询进书记录
修改进书记录
删除进书记录
6、E-R实体关系图
三、系统设计
1、主要窗体及代码
主要窗体→库存管理→增加原有记录
【窗体】
【代码】
Private Sub Command1_Click()
Set rst = Nothing
ssql = select * from yyts
rst.Open ssql, cnn, adOpenKeyset, adLockPessimistic
rst.AddNew
rst.Fields(0) = Text1.Text
rst.Fields(1) = Text2.Text
rst.Fields(2) = Text3.Text
rst.Fields(3) = Text4.Text
rst.Fields(4) = Text5.Text
rst.Fields(5) = Text6.Text
rst.Fields(6) = Text7.Text
rst.Update
Set MSHFlexGrid1.DataSource = rst
End Sub
Private Sub Form_Load()
cnn = Provider=Microsoft.Jet.OLEDB.4.0;Data Source= App.Path \sdtsjxcgl.mdb;Persist Security Info=False
End Sub
主要窗体→库存管理→查询原有记录
【窗体】
【代码】
Private Sub Command1_Click()
Set rst = Nothing
If Combo1.Text = 编号 Then
ssql = select * from yyts where 编号 = Text1.Text
ElseIf Combo1.Text = 书名 Then
ssql = select * from yy
原创力文档


文档评论(0)