Visual Basic程序设计项目化教程管小清电子教案 项目16 图书管理系统.pptVIP

Visual Basic 程序设计项目化教程 主编 管小清 郭贺彬 项目十六 图书管理系统 项目功能描述： 本项目设计并完成了一个小型的图书管理系统，系统可对借书人的个人信息及个人借情况进行登记录入、编辑、修改及删除，可对购买图书进行登记，对库存图书进行查询汇总，并对借书人损坏书籍进行登记录入。 项目十六 图书管理系统 项目主要知识点： 编程方式访问数据库 无源数据库连接 图书管理系统的设计 项目实施步骤： 1．阅读相关基础知识 2．图书管理系统功能设计简述 3．SQL Server 2000数据库设计 4．图书管理系统窗体设计 5．程序代码调试 16.1基础知识概述 16.1.1 无源数据库连接 1．无源数据库连接概述 “无源数据库”连接并不是说不需要数据源，如果没有数据源则连接将成为纸上谈兵，只是不需要配置ODBC数据源，利用ADO通过代码编程进行连接。 2．使用ADO 对象模型访问数据库 为了能够在程序中使用ADO对象编程，在连接数据库前，在Visual Basic 6.0菜单 “工程”—“引用”中选择Microsoft ActiveX Data Objects 2.8 Library组件。运用ADO对象模型的主要元素Connection（连接）中的ConnectionString属性进行连接，ConnectionString为可读写string类型，在模块中指定一个连接字符串，告诉ADO如何连接数据库。 16.2图书管理系统功能设计 16.2.1 系统目标 通过使用小型图书管理系统，可以方便地对个人借书、还书、损坏书籍赔偿及图书信息进行管理。 16.2.2 系统功能 1．个人信息 对借书人的必要的个人信息及借书情况进行添加、修改、删除。 2．图书信息 可以通过图书编号或时间进行书籍查询，并输出查询结果。同时对损坏的书籍进行赔偿登记。 3．系统管理 可以添加/删除系统用户，登记新图书，并对图书信息进行修改、删除。 16.2.3 系统结构图 图书管理系统系统结构图，如图16-1所示： 16.3数据库设计 16.3.1 建立tushugl数据库 启动SQL Server 2000中企业管理器，建立tushugl数据库，建立个人信息、个人借书、图书登记、用户信息、图书赔偿数据表。 1．个人信息表，如图16-2所示： 16.3数据库设计 2．个人借书表，如图16-3所示 16.3数据库设计 3．图书登记表，如图16-4所示： 16.3数据库设计 4．用户信息表，如图16-5所示： 16.3数据库设计 5．图书赔偿表，如图16-6所示： 16.3.2 连接数据库 1．引用ADO 在Visual Basic环境下，选择“工程”→“引用”命令，在出现的对话框中选择“Microsoft ActiveX Data Objects 2.0 Library”，然后单击“ 确定”按钮，如下图16-7所示： 16.3.2 连接数据库 2．创建模块文件 建立公共模块可以提高代码的效率，同时使得修改和维护代码都很方便。 （1）添加模块 在Visual Basic环境下，选择“工程”→“添加模块”则出现模块对话框，如图16-8所示: 选择模块图标后，单击“打开”按钮，则模块已经添加到工程中了。 默认情况下名为Module1。 16.3.2 连接数据库 （2） 定义ADO连接对象 在“图书管理系统”工程中，创建模块文件，在模块中，定义ADO连接对象。语句如下： Public conn As New ADODB.Connection 标记连接对象 Public rs As New ADODB.Recordset 标记连接对象 （3）创建实例对象 在子程序中，用如下的语句创建实例对象： Dim conn As ADODB.Connection Dim rs As ADODB.Recordsets Set conn = New ADODB.Connection 创建实例对象 Set rs = New ADODB. Recordsets 创建实例对象 （4）建立连接，打开数据库 conn.ConnectionString = Provider=SQLOLEDB.1;Persist_ Security_ Info=False;Server=机器名\实例名;User ID=sa;_ Password=;DataBase=tushugl; conn.Open 16.4“图书管理系统”窗体设计 16.4.1 主窗体设计 1．设计概述 在主窗体界面中单击菜单上的功能按钮,可以调用相应的子窗体。在状态栏中显示当前的日期、时间以及公司的网