《VB图书销售管理系统》由会员分享，可在线阅读，更多相关《VB图书销售管理系统（20页珍藏版）》请在金锄头文库上搜索。
1、XXXXXVB程序设计课程设计报告题目：图书销售管理系统所在院系：信息技术学院学 生： XX指导老师： XX日 期：二XXXXXXX摘 要：图书作为一种关系到人们工作、学习及生活等各个方面的特殊商品,在人们的生活水平日益提高的同时,它的地位也越来越重要, 然而图书品种繁多,销售模式特殊，随着信息化的快速发展和业务量的不断增大,传统的手工管理手段已经无法适应图书销售业的发展，如今，图书销售业需要实现销售业务的计算机管理,迫切需要开发出相应的销售管理软件，从而加强对图书销售的管理,通过计算机来完成大量本来由工作人员手工完成的工作,真正达到合理和充分利用现有资源,减轻工作压力的效果。因此, 开发一个
2、图书销售管理系统是很有必要的,除此之外，图书销售管理系统也有着广泛的市场前景和实际的应用价值。经过分析，使用微软公司的Visual Basic6.0开发工具及Access数据库,设计了图书销售管理系统。 关键字：图书销售管理系统,数据库,Visual Basic6.0 Abstract： As a particular commodity,books affect peoples work , study and life and so on.At the same time , peoples living standards are rising quickly, now , it pla
3、ys a more and more important role, however, a wide variety of books and special sales mode, With the rapid development of information technology and the growing volume of business, the traditional management tools have not adapted the development of the bookselling industry, today, industry sales of
4、 books need to achieve sales of computer management. it is urgent to develop relevant sales management software , so that people can strengthen the Book sales management, using computers to finish the large amount of work which was finished by hand before ,people can really make full use of existing
5、 resources and alleviate the pressure of work. As a result, it is very necessary to develop a Book Selling Management System., in addition, the book sales management systems also have broad market prospects and practical application. After analysis, using Microsofts Visual Basic6.0 and Access databa
6、se development tool to design the book sales management system.Key words: Book Selling Management System, database, Visual Basic6.0一：开发环境介绍： 1.1 Visual Basic简介Visual Basic简称VB,是Microsoft公司推出的一种 Windows应用程序开发工具。是当今世界上使用最广泛的编程语言之一，它也被公认为是编程效率最高的一种编程方法。 早在1991年，为了简化Windows应用程序的开发，微软公司推出了Visual Basic1.0
7、,如今的最新版本是Visual Basic 6.0。Visual Basic 6.0集成开发环境包含标题栏、菜单栏、工具栏、窗体设计器窗口、工程资源管理器窗口、工程窗口、窗体布局窗口和属性窗口。Visual Basic 6.0 的特点有：可视化的设计平台、面向对象的设计方法、事件驱动的编程机制、结构化的设计语言、充分利用Windows资源、开放的数据库功能与网络支持。 二：系统需求分析与功能模块2.1 系统需求分析一般的图书销售管理系统包括，进货管理，销售管理，库存管理，退货管理，销售统计,信息维护等功能。以下介绍一下销售管理系统的一些必备功能，每个功能由若干相关的子模块构成。 进货管理 包括
8、进书录入及查询 销售管理 主要对销售的情况进行记录及浏览销售情况 库存管理 主要对库存量进行录入与查询。 退货管理 对顾客退回来的书籍进行管理，包括退货录入及查询 销售统计 主要是对销售业绩进行统计，以报表的形式显示销售业绩 信息维护 主要包括图书信息维护，人员信息维护及用户信息维护，其中只有管理员可以对人员信息进行维护，管理员可以更改所有用户的信息，用户只能修改个人信息。2.2 系统的功能可用如图2-1所示框图表示。系统登陆图书销售管理系统进货管理销售管理库存管理退货管理销售统计信息维护 图2-1 2.3 数据库设计 本系统的数据库采用 Microsoft Access 2003 2.3.1
9、 建立ccess 数据库 启动ccess 2003，选择文件，新建，空数据库(books_sale.mdb)，如图2-2所示 图2-2 2.3.2 创建表在上面的基础上，选择主菜单中的插入-表格，根据要求设计相应的表格，本系统中设计的表格如下所示: tb_login (用户登录信息表) tb_buybooks(图书进货录入表) tb_personnelinfo(人员信息维护表) tb_sale (图书销售表) tb_store（图书库存表） tb_withdraw(图书退货表)三：系统具体实现3.1 欢迎界面 在此界面中引用了一个第三方控件（ccrpprg6），它是一个进度条控件。首先要加载此
10、控件，具体方法是把压缩包ccrpprg6.zip解压缩,然后在工具箱的空白处单击鼠标右键，从弹出的快捷菜单中启动部件窗口，如图3-1所示。 图3-1点击浏览按钮，从存放ccrpProgressBar控件的文件夹中找到ccrpprg.ocx文件。点击应用后ccrpProgressBar控件就添加到工具箱中了。向窗体中添加一个ccrpProgressBar控件和一个Timer控件Timer控件的Interval值设置为100，与ccrpProgressBar控件的默认值一致。在timer1的timer事件中添加如下代码If i = 100 Then Frm_before.Hide Timer1.E
11、nabled = False 定时器停止工作 Frm_login.ShowElse i 不为100则进度条向前进 ccrpProgressBar1.Value = i i = i + 2End If. 使本窗体透明,新建一个模块Module1，添加如下代码Public Declare Function SetLayeredWindowAttributes Lib user32 (ByVal hwnd As Long, ByVal crKey As Long, ByVal bAlpha As Byte, ByVal dwFlags As Long) As Long AnimateWindow是一
12、个窗口打开和关闭时产生动画效果的新函数，因为是一个新的函数, 所以在此定义Public Const WS_EX_LAYERED = &H80000Public Const GWL_EXSTYLE = (-20)Public Const LWA_ALPHA = &H2 表示把窗体设置成半透明样式 Public Const LWA_COLORKEY = &H1 不显示窗体中的透明色 Public Declare Function GetWindowLong Lib user32 Alias GetWindowLongA (ByVal hwnd As Long, ByVal nIndex As Lo
13、ng) As LongPublic Declare Function SetWindowLong Lib user32 Alias SetWindowLongA (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long在form的load 事件中加入如下代码Timer1.Enabled = TrueTimer1.Interval = 100 定时器开始工作Frm_before.Visible = Truertn = GetWindowLong(Me.hwnd, GWL_EXSTYLE) 取窗口的原先样
14、式rtn = rtn Or WS_EX_LAYERED 使窗体添加上新的样式WS_EX_LAYEREDSetWindowLong Me.hwnd, GWL_EXSTYLE, rtn 把新的样式赋给窗体SetLayeredWindowAttributes Me.hwnd, 0, 150, LWA_ALPHA 把窗体设置成半透明样式,第二个参数表示透明程度取值范围0 -255, 为0时就是一个全透明的窗体了3.2 系统登录. 在窗体上加个adodc1控件,登录的主要代码为Dim i As IntegerAdodc1.RefreshAdodc1.Recordset.MoveLastAdodc1.Recordset.MoveFirstFor i = 1 To Adodc1.Recordset.RecordCountIf 控件名.Text = Then 如果控件中
