华硕书店图书进销存管理系统.doc

书店图书进销存管理系统一、引言1、编写目的本论文的目的是阐述书店图书进销存管理系统的设计。本设计的编写目的在于全面说明书店图书进销存管理系统中的设计方案，包括系统的基本处理流程、程序系统的组织结构、模块划分和功能分配，为程序的详细设计提供基础。2、背景一个现代化的书店在正常运营中总是面对大量的库存信息、售书信息、进书信息等。传统的管理方法既浪费人力物力财力，又容易导致各种错误的发生。不但管理起来及其不方便，而且极容易出现漏洞，从而造成不可估量的损失。因此实现一个智能化、系统化、信息化的书店图书管理系统是十分必要的。充分利用计算机的功能实现对库存管理、售书管理、进书管理等的自动化控制，将会使书店图书管理工作大大减轻，方便友好的图形用户界面，简便的操作，完善的数据库管理，将会使书店图书管理系统极大限度地应用于现代化书店管理，成为书店管理人员的助手。此系统就是基于这种背景才开发的，书店的图书种类非常多，如果用手工管理将会十分繁琐，所以此系统将大大的提高书店图书的管理效率。本系统的开发采用的是Visual Basic 6.0，是由美国微软公司推出的可视化程序开发软件，由于其使用方便、硬件要求不高、易学等特点，它还提供强有力的应用程序开发工具，为将来的维护提供必要的基础。系统的操作对人员的素质的要求不高，只需稍加培训便能胜任；数据库采用的是微软Office下的Access2000，主要负责数据的录入、编辑与处理，为相关工作人员在处理既庞大又多样化数据时减轻压力，既节省时间又提高工作效率，成为数据处理之佳选。3、定义图书进销存管理系统是利用计算机信息技术，将书店图书入库、出库、批发、门市零售、内部间图书转移、图书报废等日常业务统一管理。利用计算机在运算方面的优势，及时准确的将图书进、销、存等环节的数据输出，使书店经营人员更为科学的进行经营活动。同时利用条形码识码技术对图书的相关信息进行输入，提高工作效率。二、系统分析1、系统功能分析2、系统模块设计（功能模块图）书店图书进销存管理系统库存管理售书管理进书管理退出系统增加原有记录查询原有记录修改原有记录删除原有记录增加已售记录查询已售记录修改已售记录删除已售记录增加进书记录查询进书记录修改进书记录删除进书记录3、开发与运行环境的选择Windows XP SP2 Professional操作系统Microsoft Visual Basic 6.0Microsoft Office Access 20004、系统实现过程分析5、系统数据流程图欢迎界面用户登录增加原有记录查询原有记录修改原有记录退出系统进书管理售书管理库存管理删除原有记录增加已售记录查询已售记录修改已售记录删除已售记录增加进书记录查询进书记录修改进书记录删除进书记录6、E-R实体关系图三、系统设计1、主要窗体及代码主要窗体库存管理增加原有记录【窗体】【代码】Private Sub Command1_Click()Set rst = Nothingssql = select * from yytsrst.Open ssql, cnn, adOpenKeyset, adLockPessimisticrst.AddNewrst.Fields(0) = Text1.Textrst.Fields(1) = Text2.Textrst.Fields(2) = Text3.Textrst.Fields(3) = Text4.Textrst.Fields(4) = Text5.Textrst.Fields(5) = Text6.Textrst.Fields(6) = Text7.Textrst.UpdateSet MSHFlexGrid1.DataSource = rstEnd SubPrivate Sub Form_Load()cnn = Provider=Microsoft.Jet.OLEDB.4.0;Data Source= & App.Path & sdtsjxcgl.mdb;Persist Security Info=FalseEnd Sub主要窗体库存管理查询原有记录【窗体】【代码】Private Sub Command1_Click()Set rst = NothingIf Combo1.Text = 编号 Then ssql = select * from yyts where 编号 = & Text1.Text & ElseIf Combo1.Text = 书名 Then ssql = select * from yyts where 书名 = & Text1.Text & ElseIf Combo1.Text = 作者 Then ssql = select * from yyts where 作者 = & Text1.Text & ElseIf Combo1.Text = 出版社 Then ssql = select * from yyts where 出版社 = & Text1.Text & Else ssql = select * from yyts where ISBN = & Text1.Text & End Ifrst.Open ssql, cnn, adOpenKeyset, adLockPessimisticSet MSHFlexGrid1.DataSource = rstEnd SubPrivate Sub Form_Load()Combo1.AddItem 编号Combo1.AddItem 书名Combo1.AddItem 作者Combo1.AddItem 出版社Combo1.AddItem ISBNCombo1.Text = Combo1.List(0)cnn = Provider=Microsoft.Jet.OLEDB.4.0;Data Source= & App.Path & sdtsjxcgl.mdb;Persist Security Info=FalseEnd Sub主要窗体库存管理修改原有记录【窗体】【代码】Dim i As IntegerPrivate Sub Command1_Click()rst.Fields(0) = Text1.Textrst.Fields(1) = Text2.Textrst.Fields(2) = Text3.Textrst.Fields(3) = Text4.Textrst.Fields(4) = Text5.Textrst.Fields(5) = Text6.Textrst.Fields(6) = Text7.Textrst.UpdateSet MSHFlexGrid1.DataSource = rstEnd SubPrivate Sub Form_Load()Set rst = Nothingcnn = Provider=Microsoft.Jet.OLEDB.4.0;Data Source= & App.Path & sdtsjxcgl.mdb;Persist Security Info=Falsessql = select * from yytsrst.Open ssql, cnn, adOpenKeyset, adLockPessimisticSet MSHFlexGrid1.DataSource = rstEnd SubPrivate Sub MSHFlexGrid1_Click()rst.MoveFirstFor i = 1 To MSHFlexGrid1.RowSel - 1 rst.MoveNextNextText1.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)End Sub主要窗体售书管理增加已售记录【窗体】【代码】Private Sub Command1_Click()Set rst = Nothingssql = select * from ystsrst.Open ssql, cnn, adOpenKeyset, adLockPessimisticrst.AddNewrst.Fields(0) = Text1.Textrst.Fields(1) = Text2.Textrst.Fields(2) = Text3.Textrst.Fields(3) = Text4.Textrst.Fields(4) = Text5.Textrst.Fields(5) = Text6.Textrst.Fields(6) = Text7.Textrst.UpdateSet MSHFlexGrid1.DataSource = rstEnd SubPrivate Sub Form_Load()cnn = Provider=Microsoft.Jet.OLEDB.4.0;Data Source= & App.Path & sdtsjxcgl.mdb;Persist Security Info=FalseEnd Sub主要窗体售书管理查询已售记录【窗体】【代码】Private Sub Command1_Click()Set rst = NothingIf Combo1.Text = 编号 Then ssql = select * from ysts where 编号 = & Text1.Text & ElseIf Combo1.Text = 书名 Then ssql = select * from ysts where 书名 = & Text1.Text & ElseIf Combo1.Text = 作者 Then ssql = select * from ysts where 作者 = & Text1.Text & ElseIf Combo1.Text = 出版社 Then ssql = select * from ysts where 出版社 = & Text1.Text & Else ssql = select * from ysts where ISBN = & Text1.Text & End Ifrst.Open ssql, cnn, adOpenKeyset, adLockPessimisticSet MSHFlexGrid1.DataSource = rstEnd SubPrivate Sub Form_Load()Combo1.AddItem 编号Combo1.AddItem 书名Combo1.AddItem 作者Combo1.AddItem 出版社Combo1.AddItem ISBNCombo1.Text = Combo1.List(0)cnn = Provider=Microsoft.Jet.OLEDB.4.0;Data Source= & App.Path & sdtsjxcgl.mdb;Persist Security Info=FalseEnd Sub主要窗体售书管理修改已售记录【窗体】【代码】Dim i As IntegerPrivate Sub Command1_Click()rst.Fields(0) = Text1.Textrst.Fields(1) = Text2.Textrst.Fields(2) = Text3.Textrst.Fields(3) = Text4.Textrst.Fields(4) = Text5.Textrst.Fields(5) = Text6.Textrst.Fields(6) = Text7.Textrst.UpdateSet MSHFlexGrid1.DataSource = rstEnd SubPrivate Sub Form_Load()Set rst = Nothingcnn = Provider=Microsoft.Jet.OLEDB.4.0;Data Source= & App.Path & sdtsjxcgl.mdb;Persist Security Info=Falsessql = select * from ystsrst.Open ssql, cnn, adOpenKeyset, adLockPessimisticSet MSHFlexGrid1.DataSource = rstEnd SubPrivate Sub MSHFlexGrid1_Click()rst.MoveFirstFor i = 1 To MSHFlexGrid1.RowSel - 1 rst.MoveNextNextText1.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)End Sub主要窗体进书管理增加进书记录【窗体】【代码】Private Sub Command1_Click()Set rst = Nothingssql = select * from xjtsrst.Open ssql, cnn, adOpenKeyset, adLockPessimisticrst.AddNewrst.Fields(0) = Text1.Textrst.Fields(1) = Text2.Textrst.Fields(2) = Text3.Textrst.Fields(3) = Text4.Textrst.Fields(4) = Text5.Textrst.Fields(5) = Text6.Textrst.Fields(6) = Text7.Textrst.UpdateSet MSHFlexGrid1.DataSource = rstEnd SubPrivate Sub Form_Load()cnn = Provider=Microsoft.Jet.OLEDB.4.0;Data Source= & App.Path & sdtsjxcgl.mdb;Persist Security Info=FalseEnd Sub主要窗体进书管理查询进书记录【窗体】【代码】Private Sub Command1_Click()Set rst = NothingIf Combo1.Text = 编号 Then ssql = select * from xjts where 编号 = & Text1.Text & ElseIf Combo1.Text = 书名 Then ssql = select * from xjts where 书名 = & Text1.Text & ElseIf Combo1.Text = 作者 Then ssql = select * from xjts where 作者 = & Text1.Text & ElseIf Combo1.Text = 出版社 Then ssql = select * from xjts where 出版社 = & Text1.Text & Else ssql = select * from xjts where ISBN = & Text1.Text & End Ifrst.Open ssql, cnn, adOpenKeyset, adLockPessimisticSet MSHFlexGrid1.DataSource = rstEnd SubPrivate Sub Form_Load()Combo1.AddItem 编号Combo1.AddItem 书名Combo1.AddItem 作者Combo1.AddItem 出版社Combo1.AddItem ISBNCombo1.Text = Combo1.List(0)cnn = Provider=Microsoft.Jet.OLEDB.4.0;Data Source= & App.Path & sdtsjxcgl.mdb;Persist Security Info=FalseEnd Sub主要窗体进书管理修改进书记录【窗体】【代码】Dim i As IntegerPrivate Sub Command1_Click()rst.Fields(0) = Text1.Textrst.Fields(1) = Text2.Textrst.Fields(2) = Text3.Textrst.Fields(3) = Text4.Textrst.Fields(4) = Text5.Textrst.Fields(5) = Text6.Textrst.Fields(6) = Text7.Textrst.UpdateSet MSHFlexGrid1.DataSource = rstEnd SubPrivate Sub Form_Load()Set rst = Nothingcnn = Provider=Microsoft.Jet.OLEDB.4.0;Data Source= & App.Path & sdtsjxcgl.mdb;Persist Security Info=Falsessql = select * from xjtsrs