华硕书店图书进销存管理系统.docx
《华硕书店图书进销存管理系统.docx》由会员分享，可在线阅读，更多相关《华硕书店图书进销存管理系统.docx（20页珍藏版）》请在冰点文库上搜索。
华硕书店图书进销存管理系统
书店图书进销存管理系统
一、引言
1、编写目的
本论文的目的是阐述书店图书进销存管理系统的设计。
本设计的编写目的在于全面说明书店图书进销存管理系统中的设计方案，包括系统的基本处理流程、程序系统的组织结构、模块划分和功能分配，为程序的详细设计提供基础。
2、背景
一个现代化的书店在正常运营中总是面对大量的库存信息、售书信息、进书信息等。
传统的管理方法既浪费人力物力财力，又容易导致各种错误的发生。
不但管理起来及其不方便，而且极容易出现漏洞，从而造成不可估量的损失。
因此实现一个智能化、系统化、信息化的书店图书管理系统是十分必要的。
充分利用计算机的功能实现对库存管理、售书管理、进书管理等的自动化控制，将会使书店图书管理工作大大减轻，方便友好的图形用户界面，简便的操作，完善的数据库管理，将会使书店图书管理系统极大限度地应用于现代化书店管理，成为书店管理人员的助手。
此系统就是基于这种背景才开发的，书店的图书种类非常多，如果用手工管理将会十分繁琐，所以此系统将大大的提高书店图书的管理效率。
本系统的开发采用的是VisualBasic6.0，是由美国微软公司推出的可视化程序开发软件，由于其使用方便、硬件要求不高、易学等特点，它还提供强有力的应用程序开发工具，为将来的维护提供必要的基础。
系统的操作对人员的素质的要求不高，只需稍加培训便能胜任；数据库采用的是微软Office下的Access2000，主要负责数据的录入、编辑与处理，为相关工作人员在处理既庞大又多样化数据时减轻压力，既节省时间又提高工作效率，成为数据处理之佳选。
3、定义
图书进销存管理系统是利用计算机信息技术，将书店图书入库、出库、批发、门市零售、内部间图书转移、图书报废等日常业务统一管理。
利用计算机在运算方面的优势，及时准确的将图书进、销、存等环节的数据输出，使书店经营人员更为科学的进行经营活动。
同时利用条形码识码技术对图书的相关信息进行输入，提高工作效率。
二、系统分析
1、系统功能分析
2、系统模块设计（功能模块图）
3、开发与运行环境的选择
WindowsXPSP2Professional操作系统
MicrosoftVisualBasic6.0
MicrosoftOfficeAccess2000
4、系统实现过程分析
5、系统数据流程图
6、E-R实体关系图
三、系统设计
1、主要窗体及代码
主要窗体→库存管理→增加原有记录
【窗体】
【代码】
PrivateSubCommand1_Click（）
Setrst=Nothing
ssql="select*fromyyts"
rst.Openssql,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
SetMSHFlexGrid1.DataSource=rst
EndSub
PrivateSubForm_Load（）
cnn="Provider=Microsoft.Jet.OLEDB.4.0;DataSource="&App.Path&"\sdtsjxcgl.mdb;PersistSecurityInfo=False"
EndSub
主要窗体→库存管理→查询原有记录
【窗体】
【代码】
PrivateSubCommand1_Click（）
Setrst=Nothing
IfCombo1.Text="编号"Then
ssql="select*fromyytswhere编号='"&Text1.Text&"'"
ElseIfCombo1.Text="书名"Then
ssql="select*fromyytswhere书名='"&Text1.Text&"'"
ElseIfCombo1.Text="作者"Then
ssql="select*fromyytswhere作者='"&Text1.Text&"'"
ElseIfCombo1.Text="出版社"Then
ssql="select*fromyytswhere出版社='"&Text1.Text&"'"
Else
ssql="select*fromyytswhereISBN='"&Text1.Text&"'"
EndIf
rst.Openssql,cnn,adOpenKeyset,adLockPessimistic
SetMSHFlexGrid1.DataSource=rst
EndSub
PrivateSubForm_Load（）
Combo1.AddItem"编号"
Combo1.AddItem"书名"
Combo1.AddItem"作者"
Combo1.AddItem"出版社"
Combo1.AddItem"ISBN"
Combo1.Text=Combo1.List（0）
cnn="Provider=Microsoft.Jet.OLEDB.4.0;DataSource="&App.Path&"\sdtsjxcgl.mdb;PersistSecurityInfo=False"
EndSub
主要窗体→库存管理→修改原有记录
【窗体】
【代码】
DimiAsInteger
PrivateSubCommand1_Click（）
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
SetMSHFlexGrid1.DataSource=rst
EndSub
PrivateSubForm_Load（）
Setrst=Nothing
cnn="Provider=Microsoft.Jet.OLEDB.4.0;DataSource="&App.Path&"\sdtsjxcgl.mdb;PersistSecurityInfo=False"
ssql="select*fromyyts"
rst.Openssql,cnn,adOpenKeyset,adLockPessimistic
SetMSHFlexGrid1.DataSource=rst
EndSub
PrivateSubMSHFlexGrid1_Click（）
rst.MoveFirst
Fori=1ToMSHFlexGrid1.RowSel-1
rst.MoveNext
Next
Text1.Text=rst.Fields（0）
Text2.Text=rst.Fields
（1）
Text3.Text=rst.Fields
（2）
Text4.Text=rst.Fields（3）
Text5.Text=rst.Fields（4）
Text6.Text=rst.Fields（5）
Text7.Text=rst.Fields（6）
EndSub
主要窗体→售书管理→增加已售记录
【窗体】
【代码】
PrivateSubCommand1_Click（）
Setrst=Nothing
ssql="select*fromysts"
rst.Openssql,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
SetMSHFlexGrid1.DataSource=rst
EndSub
PrivateSubForm_Load（）
cnn="Provider=Microsoft.Jet.OLEDB.4.0;DataSource="&App.Path&"\sdtsjxcgl.mdb;PersistSecurityInfo=False"
EndSub
主要窗体→售书管理→查询已售记录
【窗体】
【代码】
PrivateSubCommand1_Click（）
Setrst=Nothing
IfCombo1.Text="编号"Then
ssql="select*fromystswhere编号='"&Text1.Text&"'"
ElseIfCombo1.Text="书名"Then
ssql="select*fromystswhere书名='"&Text1.Text&"'"
ElseIfCombo1.Text="作者"Then
ssql="select*fromystswhere作者='"&Text1.Text&"'"
ElseIfCombo1.Text="出版社"Then
ssql="select*fromystswhere出版社='"&Text1.Text&"'"
Else
ssql="select*fromystswhereISBN='"&Text1.Text&"'"
EndIf
rst.Openssql,cnn,adOpenKeyset,adLockPessimistic
SetMSHFlexGrid1.DataSource=rst
EndSub
PrivateSubForm_Load（）
Combo1.AddItem"编号"
Combo1.AddItem"书名"
Combo1.AddItem"作者"
Combo1.AddItem"出版社"
Combo1.AddItem"ISBN"
Combo1.Text=Combo1.List（0）
cnn="Provider=Microsoft.Jet.OLEDB.4.0;DataSource="&App.Path&"\sdtsjxcgl.mdb;PersistSecurityInfo=False"
EndSub
主要窗体→售书管理→修改已售记录
【窗体】
【代码】
DimiAsInteger
PrivateSubCommand1_Click（）
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
SetMSHFlexGrid1.DataSource=rst
EndSub
PrivateSubForm_Load（）
Setrst=Nothing
cnn="Provider=Microsoft.Jet.OLEDB.4.0;DataSource="&App.Path&"\sdtsjxcgl.mdb;PersistSecurityInfo=False"
ssql="select*fromysts"
rst.Openssql,cnn,adOpenKeyset,adLockPessimistic
SetMSHFlexGrid1.DataSource=rst
EndSub
PrivateSubMSHFlexGrid1_Click（）
rst.MoveFirst
Fori=1ToMSHFlexGrid1.RowSel-1
rst.MoveNext
Next
Text1.Text=rst.Fields（0）
Text2.Text=rst.Fields
（1）
Text3.Text=rst.Fields
（2）
Text4.Text=rst.Fields（3）
Text5.Text=rst.Fields（4）
Text6.Text=rst.Fields（5）
Text7.Text=rst.Fields（6）
EndSub
主要窗体→进书管理→增加进书记录
【窗体】
【代码】
PrivateSubCommand1_Click（）
Setrst=Nothing
ssql="select*fromxjts"
rst.Openssql,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
SetMSHFlexGrid1.DataSource=rst
EndSub
PrivateSubForm_Load（）
cnn="Provider=Microsoft.Jet.OLEDB.4.0;DataSource="&App.Path&"\sdtsjxcgl.mdb;PersistSecurityInfo=False"
EndSub
主要窗体→进书管理→查询进书记录
【窗体】
【代码】
PrivateSubCommand1_Click（）
Setrst=Nothing
IfCombo1.Text="编号"Then
ssql="select*fromxjtswhere编号='"&Text1.Text&"'"
ElseIfCombo1.Text="书名"Then
ssql="select*fromxjtswhere书名='"&Text1.Text&"'"
ElseIfCombo1.Text="作者"Then
ssql="select*fromxjtswhere作者='"&Text1.Text&"'"
ElseIfCombo1.Text="出版社"Then
ssql="select*fromxjtswhere出版社='"&Text1.Text&"'"
Else
ssql="select*fromxjtswhereISBN='"&Text1.Text&"'"
EndIf
rst.Openssql,cnn,adOpenKeyset,adLockPessimistic
SetMSHFlexGrid1.DataSource=rst
EndSub
PrivateSubForm_Load（）
Combo1.AddItem"编号"
Combo1.AddItem"书名"
Combo1.AddItem"作者"
Combo1.AddItem"出版社"
Combo1.AddItem"ISBN"
Combo1.Text=Combo1.List（0）
cnn="Provider=Microsoft.Jet.OLEDB.4.0;DataSource="&App.Path&"\sdtsjxcgl.mdb;PersistSecurityInfo=False"
EndSub
主要窗体→进书管理→修改进书记录
【窗体】
【代码】
DimiAsInteger
PrivateSubCommand1_Click（）
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
SetMSHFlexGrid1.DataSource=rst
EndSub
PrivateSubForm_Load（）
Setrst=Nothing
cnn="Provider=Microsoft.Jet.OLEDB.4.0;DataSource="&App.Path&"\sdtsjxcgl.mdb;PersistSecurityInfo=False"
ssql="select*fromxjts"
rst.Openssql,cnn,adOpenKeyset,adLockPessimistic
SetMSHFlexGrid1.DataSource=rst
EndSub
PrivateSubMSHFlexGrid1_Click（）
rst.MoveFirst
Fori=1ToMSHFlexGrid1.RowSel-1
rst.MoveNext
Next
Text1.Text=rst.Fields（0）
Text2.Text=rst.Fields
（1）
Text3.Text=rst.Fields
（2）
Text4.Text=rst.Fields（3）
Text5.Text=rst.Fields（4）
Text6.Text=rst.Fields（5）
Text7.Text=rst.Fields（6）
EndSub
4、数据库设计
表dl信息
字段名称
类型
说明
用户名
文本
口令
文本
表yyts信息
字段名称
类型
说明
编号
数字
书名
文本
价格
数字
作者
文本
出版社
文本
ISBN
文本
库存量
数字
表ysts信息
字段名称
类型
说明
编号
数字
书名
文本
价格
数字
作者
文本
出版社
文本
ISBN
文本
已售数量
数字
表xjts信息
字段名称
类型
说明
编号
数字
书名
文本
价格
数字
作者
文本
出版社
文本
ISBN
文本
新进数量
数字
四、小结
五、参考文献
[1]申莉莉等编著．Access数据库应用教程．北京：
机械工业出版社．2005
[2]殷生财编著．VisualBasic6.0简明教程．大连：
海事大学出版社．2003
[3]赵增敏，朱粹丹，赵朱曦编著．ASP动态网页设计．北京：
电子工业出版社．2005
[4]李兰友，杨晓光编著．ASP.NET应用程序设计．北京：
交通大学出版社．2005
[5]田博文编著．网页设计与制作．北京：
人民邮电出版社．2006
[6]杨晓钟，孙振萍，陈建，宫兵等编著．网站设计与开发．北京：
机械工业出版社．2005
[7]范胜英编著．网站设计、建设与维护实务．北京：
高等教育出版社．2005
升级会员 