VB图书销售系统Word格式文档下载.docx

1、（1）登陆模块包括系统登录窗体，用户可通过登录窗体进入系统。（2）系统主窗体模块设计系统主窗体。系统主窗体使用MDI窗体，在窗体中通过菜单来，执行各项系统功能。包括信息管理、查询、密码修改和窗口等主要功能，在接下来设计的窗体中，将它们的MDIChild属性设置为True。（3）数据管理模块在主窗体点击数据管理菜单时，则进入数据理界面，可以对书籍基本信息进行添加、删除、修改、查询等功能。（4） 图书销售模块主要设计图书的销售以及图书编号、类型、图书名称、状态、作者、价格、出版社、入库时间等基本资料。以及对上述基本资料的上一条信息、购买、查询、下一条信息、查看定单、取消等操作。方便用户了解图书的基

2、本资料和库存情况。3.3数据库设计针对一般图书销售管理系统的需求，通过对销售管理工作过程的内容和数据流程的分析，设计数据项和数据结构。本实例根据具体情况设计规划出学生个人信息实体、家长情况实体、用户实体等。这里的数据库采用Access，用ADODC作为链接数据对象。书籍个人信息实体属性图如图2所示。图书2实体属性图3.3.1建立Access数据库启动Access，建立一个空的数据库：图书系统.mdb，使用程序设计器建立系统需要的表格如下。购书统计表，如图3所示；图书资料表，如图4所示。图3 购书统计表图4 图书资料3.3.2连接数据库在Visual Basic环境下，在程序设计的公共模块中，先

3、定义ADO链接对象。语句如下：Public cn As ADODB.Connection 连接的定义Public rs As ADODB.Recordset 记录集的定义Sub main（） Set cn = New ADODB.Connection 实例化连接对象 cn.ConnectionString = Provider=Microsoft.Jet.OLEDB.4.0;Data Source= & App.Path & personinfo.mdb;Persist Security Info=False 给连接赋字符串 cn.Open 打开连接 Set rs = New ADODB.Re

4、cordset frmdl.ShowEnd Sub4详细设计 4.1登录窗体4.1.1界面设计设计好的登录界面如图5所示。窗体上有二个Label、两个TextBox、一个按钮。图5 登录窗体4.1.2相关属性设置创建一个窗体，并添加相关控件设置其属性，如下表所示。表1登录窗体的属性控件名称属性值Label1Caption用户名Label2密码TextBox2PasswordChar*TextBox1Text123Button1确定4.2界面设计设计好的界面如图6所示。图6图书销售管理系统界面这是一个多文档界面（MDI）应用程序，可以同时显示多个文档，每个文档显示在各自的窗体中。菜单应用程序中，

5、有3个菜单项分别实现相应的功能。4.2.1创建主窗体首先创建一个工程，命名为图书销售管理系统，选择“工程”“添加MDI窗体”命令，则在项目中添加了主窗体，并设置相关属性。下面主要介绍窗体上菜单的实现。如表2所示。表2菜单项表菜单名称Text属性功能描述Shujvguanli数据管理顶级菜单，调出数据管理窗体Qinggoumaitushu请购选图书顶级菜单，调出购买窗体Gongjv工具顶级菜单，退出系统4.3子窗体模块4.3.1数据管理子窗体新建窗体，将其属性MDIChild设成True，Name属性为数据管理，则这个窗体成为MDI窗体的子窗体。并添加相控件设置其相关属性。可以参看所有书籍资料，

6、并可以管理数据库，添加，修改，删除书籍的类型、价格、书名、作者等，界面如图7所示。图7 数据管理窗口4.3.2请选购图书子窗体（1）新建窗体，将其属性MDIChild设置成True，Name属性设为qinggouxuantushu，则这个窗体成为MDI窗体的子窗体。并添加相控件设置其相关属性，界面如图8所示。图8 购买图书窗体数据环境设计器为数据访问提供了一个交互式的设计环境。在设计时，首先是建立Connection对象并指定连接的数据库，然后创建Command对象来连接指定的数据表，从而获得对数据表的连接操作，最后把它们绑定到数据报表设计器上。之后建立DataReport，设置其DataSo

7、urce与DataMember属性来确定数据来源。点击购买按钮后向数据库提交购买的数据，并可以查看订单显示购买的书籍，合计价格操作，如图9所示。图9 查看订单窗口4.3.3退出系统窗体新建窗体，将其属性MDIChild设置成True，Name属性设为gongjv，则这个窗体成为MDI窗体的子窗体。并添加相控件设置其相关属性，界面如图10所示。图10 退出系统5效果及存在问题 在设计本管理系统的过程中，从界面设计到代码的编写都曾遇到诸多的问题，但本着循序渐进稳扎稳打的原则，逐步去解决问题，程序慢慢变得功能强大，知道最后能够正常运行，为此付出了一定的时间和经历。体统可以实现书籍信息的管理，图书销售

8、的管理。但是不足的地方是在书籍信息管理中添加书籍时，不能重复添加相同的书籍，导致程序有瑕疵。6心得体会通过近一周的程序设计，假日酒店管理系统设计完毕。但是由于是初次使用Visual Basic 6.0软件设计，所以该系统还有许多不尽如人意的地方，用户界面不够美观，出错处理不够多等方面问题，功能不够齐全。这些都有待进一步改善。通过这学期的学习和该系统的设计，学到了很多东西，对Visual Basic 6.0编程语言和技术有了一定的了解。总的来说，该系统的功能稳定性和操作的灵活性都有着不小的差距。因此在日后，我会通过学习和练习不断地完善该系统，使它能应用到实际中，在现实生活中得到充分应用。我充分的

9、感觉到此次课程设计的锻炼对我以后的课程设计来说，是一次难得的积累知识和经验的机会，它对我编程技巧的提高起了十分重要的作用在本次课程设计中通过学生信息管理系统实例介绍用Visual Basic 6.0开发数据库应用程序的过程，介绍了开发应用系统时的系统分析，功能设计，数据库设计以及数据库的实现，具体描述了实例中各种Visual Basic 6.0对象的设计方法，较为系统、综合、全面地总结了Visual Basic 6.0的应用。7参考文献1 刘天惠. Visual Basic程序设计教程M.北京：清华大学出版社，2010.2：210-221.2 余芳.中文access2003应用实例教程M.北京

10、：冶金工业出版社，2009.3:213-246.3 陈鹏.VB访问数据库方法简介J.南京海南大学.2009,12（03）:10-13.4 启明工作室.Visual Basic+Access数据库应用系统开发与实例M.北京：人民邮电出版社，2009.11: 41-46.5 王新民，张彦玲. Visual Basic程序设计与数据库应用M.北京：电子工业出版社，2008.2: 163-175.6 许军，亚卫忠.VB结合Access快速开发数据库管理系统J.华南金融电脑.2009,4（09）: 5-7.7 柴明建. Visual Basic数据库访问技术漫谈J.计算机应用.2010,3（06）:2-

11、5.8附录：各功能模块的主要代码8.1登录窗体代码Command1的点击事件。Private Sub Command1_Click（）If Text1.Text = 123 And Text2.Text = ThenUnload Me主窗体.ShowElseMsgBox 登录失败，重新登录！Text1.Text = Text2.Text = Text1.SetFocusEnd If8.2主窗体代码本项目中，子菜单事件都是Click事件，这里先给出主窗体部分的代码。Private Sub qinggouxuantushu_Click（）请购选图书.ShowPrivate Sub Adodc1_W

12、illMove（ByVal adReason As ADODB.EventReasonEnum, adStatus As ADODB.EventStatusEnum, ByVal pRecordset As ADODB.Recordset）Private Sub MDIForm_Load（）Private Sub qinggouxuan_Click（）Private Sub shujvguanli_Click（）数据管理.ShowPrivate Sub tuichu_Click（）退出.Show8.3各子窗体代码8.3.1数据管理子窗体本窗体具有添加（cmd_add）、修改（cmd_updat

13、e）、查询（cmd_find）、删除（cmd_del）等按钮。代码如下：Adodc1.Recordset.UpdateBatchPrivate Sub Command2_Click（）Adodc1.Recordset.AddNewPrivate Sub Command3_Click（）Private Sub Command5_Click（）Adodc1.Recordset.DeleteAdodc1.Recordset.MoveNextIf Adodc1.Recordset.EOF = True Then Adodc1.Recordset.MovePreviousPrivate Sub Form

14、_Load（）8.3.2购书子窗体代码Adodc2.RefreshAdodc2.Recordset.AddNewAdodc2.Recordset.Fields（编号） = CStr（Text1.Text）所购书籍） = CStr（Text2.Text）价格合计） = CInt（Text9.Text）Adodc2.Recordset.UpdatePrivate Sub Command4_Click（）所购图书.ShowAdodc1.Recordset.MovePreviousIf Adodc1.Recordset.BOF = True Then Adodc1.Recordset.MoveNext

15、 MsgBox 这是第一条记录, vbOKOnly, 消息 End SubPrivate Sub Command6_Click（）已是最后一条记录 End If8.3.3查看订单子窗体代码Dim bAdodc1.Recordset.MoveFirstDo While Adodc1.Recordset.EOF True b = b + Adodc1.Recordset.Fields（2）Loop金额总计 b & 元 统计Private Sub Form_Activate（）Adodc1.Refresh List1.AddItem Adodc1.Recordset.Fields（1）8.3.4退出窗体代码Unload 主窗体Unload 所购图书Unload 数据管理Unload 请选购图书