基于vb的原创图书管理系统的设计与实现

**基于VB的原创图书管理系统的设计与实现**

**1. 系统概述**

本系统是基于Visual Basic (VB) 的图书管理系统，旨在为图书馆提供一个方便、有效的图书管理工具。系统将支持图书的添加、删除、修改和查询等功能。

**2. 系统设计**

###2.1 数据库设计本系统使用Microsoft Access作为数据库管理系统，建立了以下几张表：

* **图书信息表（BookInfo）**
* 编号（ID）：图书编号 * 名称（Name）：图书名称 *作者（Author）：图书作者 * 出版日期（PublishDate）：图书出版日期 * 价格（Price）：图书价格* **借阅信息表（BorrowInfo）**
* 编号（ID）：借阅编号 * 图书编号（BookID）：对应的图书编号 * 借阅者名称（ReaderName）：借阅者的姓名 * 借出日期（BorrowDate）：借出日期 * 归还日期（ReturnDate）：预计归还日期###2.2 系统功能设计* **图书管理**
* 添加图书：添加新图书信息到数据库中 * 删除图书：从数据库中删除指定的图书信息 * 修改图书：修改已有的图书信息 * 查询图书：根据条件查询图书信息* **借阅管理**
* 借出图书：将图书借给读者，更新借阅信息表 * 归还图书：归还图书，更新借阅信息表###2.3 系统界面设计系统使用VB的GUI设计器创建了以下几个窗口：

* **主菜单窗口**
* 添加图书按钮 * 删除图书按钮 * 修改图书按钮 * 查询图书按钮 * 借出图书按钮 * 归还图书按钮* **添加图书窗口**
* 图书编号输入框 * 名称输入框 *作者输入框 * 出版日期输入框 * 价格输入框 * 确定按钮* **删除图书窗口**
* 编号选择框 * 确定按钮* **修改图书窗口**
* 编号输入框 * 名称输入框 *作者输入框 * 出版日期输入框 * 价格输入框 * 确定按钮* **查询图书窗口**
* 条件选择框（名称、作者、出版日期等）
* 查询按钮##3. 系统实现###3.1 数据库连接

vbDim conn As New ADODB.Connectionconn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "图书管理.mdb"

###3.2 图书管理功能#### 添加图书

vbSub AddBook()
 Dim bookID As String, name As String, author As String, publishDate As Date, price As Double bookID = InputBox("请输入图书编号", "添加图书")
 name = InputBox("请输入图书名称", "添加图书")
 author = InputBox("请输入图书作者", "添加图书")
 publishDate = InputBox("请输入出版日期", "添加图书")
 price = CDbl(InputBox("请输入价格", "添加图书"))
 conn.Execute "INSERT INTO BookInfo (ID, Name, Author, PublishDate, Price) VALUES ('" & bookID & "', '" & name & "', '" & author & "', #" & Format(publishDate, "yyyy-mm-dd") & "#, " & price & ")"
End Sub

#### 删除图书

vbSub DelBook()
 Dim bookID As String bookID = InputBox("请输入要删除的图书编号", "删除图书")
 conn.Execute "DELETE FROM BookInfo WHERE ID='" & bookID & "'"
End Sub

#### 修改图书

vbSub ModBook()
 Dim bookID As String, name As String, author As String, publishDate As Date, price As Double bookID = InputBox("请输入要修改的图书编号", "修改图书")
 name = InputBox("请输入新名称", "修改图书")
 author = InputBox("请输入新作者", "修改图书")
 publishDate = InputBox("请输入新出版日期", "修改图书")
 price = CDbl(InputBox("请输入新价格", "修改图书"))
 conn.Execute "UPDATE BookInfo SET Name='" & name & "', Author='" & author & "', PublishDate=#" & Format(publishDate, "yyyy-mm-dd") & "#, Price=" & price & " WHERE ID='" & bookID & "'"
End Sub

#### 查询图书

vbSub QueryBook()
 Dim condition As String condition = InputBox("请输入查询条件（名称、作者、出版日期等）", "查询图书")
 conn.Execute "SELECT * FROM BookInfo WHERE " & conditionEnd Sub

###3.3 借阅管理功能#### 借出图书

vbSub BorrowBook()
 Dim bookID As String, readerName As String, borrowDate As Date bookID = InputBox("请输入要借出的图书编号", "借出图书")
 readerName = InputBox("请输入读者的姓名", "借出图书")
 borrowDate = InputBox("请输入借出日期", "借出图书")
 conn.Execute "INSERT INTO BorrowInfo (BookID, ReaderName, BorrowDate) VALUES ('" & bookID & "', '" & readerName & "', #" & Format(borrowDate, "yyyy-mm-dd") & "#)"
End Sub

#### 归还图书

vbSub ReturnBook()
 Dim bookID As String bookID = InputBox("请输入要归还的图书编号", "归还图书")
 conn.Execute "UPDATE BorrowInfo SET ReturnDate=GETDATE() WHERE BookID='" & bookID & "'"
End Sub

##4. 系统测试###4.1 单元测试使用VB的单元测试工具，创建以下几个测试用例：

* **添加图书测试**
* 测试添加新图书信息到数据库中* **删除图书测试**
* 测试从数据库中删除指定的图书信息* **修改图书测试**
* 测试修改已有的图书信息* **查询图书测试**
* 测试根据条件查询图书信息* **借出图书测试**
* 测试将图书借给读者，更新借阅信息表* **归还图书测试**
* 测试归还图书，更新借阅信息表###4.2 集成测试使用VB的集成测试工具，创建以下几个测试用例：

* **添加图书和删除图书测试**
* 测试添加新图书信息到数据库中，然后从数据库中删除指定的图书信息* **修改图书和查询图书测试**
* 测试修改已有的图书信息，然后根据条件查询图书信息* **借出图书和归还图书测试**
* 测试将图书借给读者，更新借阅信息表，然后归还图书，更新借阅信息表##5. 系统部署###5.1 系统环境准备确保系统环境符合以下要求：

* **操作系统**
* Windows XP或以上版本* **数据库管理系统**
* Microsoft Access2007或以上版本* **浏览器**
* Internet Explorer6或以上版本###5.2 系统安装按照以下步骤进行系统安装：

1. **下载系统安装包**
* 下载VB的系统安装包2. **解压系统安装包**
* 解压系统安装包到指定目录3. **运行系统安装程序**
* 运行系统安装程序，按照提示进行安装###5.3 系统配置按照以下步骤进行系统配置：

1. **设置数据库连接**
* 设置数据库连接信息（用户名、密码等）
2. **设置图书管理功能**
* 设置图书管理功能的参数（添加图书、删除图书、修改图书等）

###5.4 系统测试按照以下步骤进行系统测试：

1. **单元