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

书店图书进销存管理系统一、引言1、编写目的本论文的目的是阐述书店图书进销存管理系统的设计。本设计的编写目的在于全面说明书店图书进销存管理系统中的设计方案，包括系统的基本处理流程、程序系统的组织结构、模块划分和功能分配，为程序的详细设计提供基础。2、背景一个现代化的书店在正常运营中总是面对大量的库存信息、售书信息、进书信息等。传统的管理方法既浪费人力物力财力，又容易导致各种错误的发生。不但管理起来及其不方便，而且极容易出现漏洞，从而造成不可估量的损失。因此实现一个智能化、系统化、信息化的书店图书管理系统是十分必要的。充分利用计算机的功能实现对库存管理、售书管理、进书管理等的自动化控制，将会使书店图书管理工作大大减轻，方便友好的图形用户界面，简便的操作，完善的数据库管理，将会使书店图书管理系统极大限度地应用于现代化书店管理，成为书店管理人员的助手。此系统就是基于这种背景才开发的，书店的图书种类非常多，如果用手工管理将会十分繁琐，所以此系统将大大的提高书店图书的管理效率。本系统的开发采用的是VisualBasic6.0，是由美国微软公司推出的可视化程序开发软件，由于其使用方便、硬件要求不高、易学等特点，它还提供强有力的应用程序开发工具，为将来的维护提供必要的基础。系统的操作对人员的素质的要求不高，只需稍加培训便能胜任；数据库采用的是微软Office下的Access2000，主要负责数据的录入、编辑与处理，为相关工作人员在处理既庞大又多样化数据时减轻压力，既节省时间又提高工作效率，成为数据处理之佳选。3、定义图书进销存管理系统是利用计算机信息技术，将书店图书入库、出库、批发、门市零售、内部间图书转移、图书报废等日常业务统一管理。利用计算机在运算方面的优势，及时准确的将图书进、销、存等环节的数据输出，使书店经营人员更为科学的进行经营活动。同时利用条形码识码技术对图书的相关信息进行输入，提高工作效率。二、系统分析1、系统功能分析2、系统模块设计（功能模块图）3、开发与运行环境的选择WindowsXPSP2Professional操作系统MicrosoftVisualBasic6.0MicrosoftOfficeAccess20004、系统实现过程分析5、系统数据流程图书店图书进销存管理系统库存管理售书管理进书管理退出系统增加原有记录查询原有记录修改原有记录删除原有记录增加已售记录查询已售记录修改已售记录删除已售记录增加进书记录查询进书记录修改进书记录删除进书记录6、E-R实体关系图欢迎界面用户登录增加原有记录查询原有记录修改原有记录退出系统进书管理售书管理库存管理删除原有记录增加已售记录查询已售记录修改已售记录删除已售记录增加进书记录查询进书记录修改进书记录删除进书记录三、系统设计1、主要窗体及代码主要窗体→库存管理→增加原有记录【窗体】【代码】PrivateSubCommand1_Click()Setrst=Nothingssql=select*fromyytsrst.Openssql,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.UpdateSetMSHFlexGrid1.DataSource=rstEndSubPrivateSubForm_Load()cnn=Provider=Microsoft.Jet.OLEDB.4.0;DataSource=&App.Path&\sdtsjxcgl.mdb;PersistSecurityInfo=FalseEndSub主要窗体→库存管理→查询原有记录【窗体】【代码】PrivateSubCommand1_Click()Setrst=NothingIfCombo1.Text=编号Thenssql=select*fromyytswhere编号='&Text1.Text&'ElseIfCombo1.Text=书名Thenssql=select*fromyytswhere书名='&Text1.Text&'ElseIfCombo1.Text=作者Thenssql=select*fromyytswhere作者='&Text1.Text&'ElseIfCombo1.Text=出版社Thenssql=select*fromyytswhere出版社='&Text1.Text&'Elsessql=select*fromyytswhereISBN='&Text1.Text&'EndIfrst.Openssql,cnn,adOpenKeyset,adLockPessimisticSetMSHFlexGrid1.DataSource=rstEndSubPrivateSubForm_Load()Combo1.AddItem编号Combo1.AddItem书名Combo1.AddItem作者Combo1.AddItem出版社Combo1.AddItemISBNCombo1.Text=Combo1.List(0)cnn=Provider=Microsoft.Jet.OLEDB.4.0;DataSource=&App.Path&\sdtsjxcgl.mdb;PersistSecurityInfo=FalseEndSub主要窗体→库存管理→修改原有记录【窗体】【代码】DimiAsIntegerPrivateSubCommand1_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.UpdateSetMSHFlexGrid1.DataSource=rstEndSubPrivateSubForm_Load()Setrst=Nothingcnn=Provider=Microsoft.Jet.OLEDB.4.0;DataSource=&App.Path&\sdtsjxcgl.mdb;PersistSecurityInfo=Falsessql=select*fromyytsrst.Openssql,cnn,adOpenKeyset,adLockPessimisticSetMSHFlexGrid1.DataSource=rstEndSubPrivateSubMSHFlexGrid1_Click()rst.MoveFirstFori=1ToMSHFlexGrid1.RowSel-1rst.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)EndSub主要窗体→售书管理→增加已售记录【窗体】【代码】PrivateSubCommand1_Click()Setrst=Nothingssql=select*fromystsrst.Openssql,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.UpdateSetMSHFlexGrid1.DataSource=rstEndSubPrivateSubForm_Load()cnn=Provider=Microsoft.Jet.OLEDB.4.0;DataSource=&App.Path&\sdtsjxcgl.mdb;PersistSecurityInfo=FalseEndSub主要窗体→售书管理→查询已售记录【窗体】【代码】PrivateSubCommand1_Click()Setrst=NothingIfCombo1.Text=编号Thenssql=select*fromystswhere编号='&Text1.Text&'ElseIfCombo1.Text=书名Thenssql=select*fromystswhere书名='&Text1.Text&'ElseIfCombo1.Text=作者Thenssql=select*fromystswhere作者='&Text1.Text&'ElseIfCombo1.Text=出版社Thenssql=select*fromystswhere出版社='&Text1.Text&'Elsessql=select*fromystswhereISBN='&Text1.Text&'EndIfrst.Openssql,cnn,adOpenKeyset,adLockPessimisticSetMSHFlexGrid1.DataSource=rstEndSubPrivateSubForm_Load()Combo1.AddItem编号Combo1.AddItem书名Combo1.AddItem作者Combo1.AddItem出版社Combo1.AddItemISBNCombo1.Text=Combo1.List(0)cnn=Provider=Microsoft.Jet.OLEDB.4.0;DataSource=&App.Path&\sdtsjxcgl.mdb;PersistSecurityInfo=FalseEndSub主要窗体→售书管理→修改已售记录【窗体】【代码】DimiAsIntegerPrivateSubCommand1_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.UpdateSetMSHFlexGrid1.DataSource=rstEndSubPrivateSubForm_Load()Setrst=Nothingcnn=Provider=Microsoft.Jet.OLEDB.4.0;DataSource=&App.Path&\sdtsjxcgl.mdb;PersistSecurityInfo=Falsessql=select*fromystsrst.Openssql,cnn,adOpenKeyset,adLockPessimisticSetMSHFlexGrid1.DataSource=rstEndSubPrivateSubMSHFlexGrid1_Click()rst.MoveFirstFori=1ToMSHFlexGrid1.RowSel-1rst.MoveNextNextText1.Text=rst.Fields(0)Text2.Text=rst.Fields(1)Text3.Text=rst.Fields(2)Text4.Text=rst.Fields(3)Text5.Text=r