VB+ACCESS电脑租赁系统设计与开发（含完整源码与系统实现）

本文还有配套的精品资源，点击获取

简介：该电脑租赁系统基于Visual Basic（VB）和Microsoft Access数据库构建，是一个功能完整的租赁业务管理平台。系统涵盖设备管理、客户管理、租赁流程处理、财务管理、统计分析及权限控制等核心模块，采用VB实现图形化界面和事件驱动操作，利用Access进行数据存储与查询。通过该系统的设计与实现，开发者可全面掌握VB编程、数据库设计及前后端协同开发技巧，适用于教学实践与小型租赁业务的实际部署。

1. VB+ACCESS电脑租赁系统概述

随着计算机设备的普及与企业租赁需求的增长，传统的手工管理方式已难以满足高效、精准的租赁服务要求。本系统基于Visual Basic（VB）开发前端界面，结合Microsoft Access数据库，构建一个功能完善、操作便捷的电脑租赁管理系统。系统涵盖设备管理、客户登记、租赁流程、合同处理、财务记录等核心模块，实现租赁业务的全流程数字化管理。通过该系统，租赁企业可提升运营效率、降低人工出错率，并增强数据安全性与可追溯性。

2. Visual Basic图形界面（GUI）开发

2.1 系统主界面设计与布局

2.1.1 窗体控件的选取与布局原则

在Visual Basic（VB）中，图形用户界面（GUI）的设计是系统开发的关键环节。一个良好的界面不仅提升用户体验，也直接影响系统的易用性和可维护性。因此，在设计电脑租赁系统的主界面时，需要遵循以下控件选取与布局原则：

控件选取原则

控件类型	用途说明	推荐使用场景
Form	主窗口容器	所有窗体的基础
Label	显示静态文本	标题、提示信息
TextBox	输入或显示动态文本	用户输入信息，如客户姓名、设备编号等
CommandButton	触发事件	提交、取消、查询等操作按钮
ComboBox	下拉选择框	选择设备类型、租赁状态等
ListBox	列表选择	多项选择，如客户列表展示
Frame	分组控件	对控件进行分类，增强界面结构感
PictureBox	图像显示	系统LOGO、设备图片等
MenuEditor	菜单栏设计	主菜单与子菜单的构建

布局原则

• 一致性 ：保持各窗体控件的风格一致，如字体、颜色、大小等。
• 对齐与间距 ：使用VB内置的对齐工具保持控件整齐排列，避免杂乱。
• 逻辑分组 ：将功能相近的控件放入同一 Frame 中，提升可读性。
• 响应式设计 ：虽然VB6不支持真正的响应式布局，但可通过设置控件的 Align 属性实现简单布局适配。
• 可操作性优先 ：常用功能按钮应置于显眼位置，如顶部工具栏或左侧功能区。

2.1.2 主菜单与导航栏的实现

主菜单是用户操作的核心入口，良好的菜单结构能显著提升用户效率。在VB中，主菜单可通过 MenuEditor 实现。

实现步骤：

1. 打开菜单编辑器 ：
   - 在VB开发环境中，点击“工具” → “菜单编辑器”。
   - 通过菜单编辑器可以添加主菜单项和子菜单项。

2. 添加菜单项 ：
   vb ' 示例：添加主菜单项 Dim mainMenu As Menu Set mainMenu = New Menu mainMenu.Caption = "&设备管理" mainMenu.Name = "mnuDevice" Me.Menu = mainMenu

3. 添加子菜单项 ：
   vb ' 添加子菜单项 Dim subMenu As MenuItem Set subMenu = New MenuItem subMenu.Caption = "&设备录入" subMenu.Name = "mnuDeviceInput" mainMenu.MenuItems.Add , , subMenu

4. 绑定事件 ：
   - 在菜单项的 Click 事件中编写跳转或执行逻辑。
   vb Private Sub mnuDeviceInput_Click() frmDeviceInput.Show ' 显示设备录入窗体 End Sub

菜单结构示意图（Mermaid流程图）：

graph TD
    A[主菜单] --> B[设备管理]
    A --> C[客户管理]
    A --> D[租赁业务]
    A --> E[财务模块]
    B --> B1[设备录入]
    B --> B2[设备查询]
    C --> C1[客户登记]
    C --> C2[信用评估]
    D --> D1[租赁申请]
    D --> D2[合同管理]
    E --> E1[押金管理]
    E --> E2[租金统计]

通过上述菜单结构，用户可以快速找到所需功能，提升操作效率。同时，菜单项的命名应清晰明确，避免歧义。

2.2 窗体交互逻辑构建

2.2.1 控件事件绑定与响应机制

在VB中，窗体与控件之间的交互是通过事件驱动机制实现的。每个控件都有若干预定义事件，如 Click 、 Change 、 KeyPress 等，开发者可以通过编写事件处理函数来响应用户的操作。

事件绑定方式：

1. 双击控件自动绑定 ：
   - 在VB IDE中双击控件（如按钮），系统会自动生成对应的事件函数。
   - 例如，双击 CommandButton 将生成 Command1_Click 函数。

2. 手动绑定事件 ：
   - 在对象浏览器中选择控件并为其事件编写函数。
   - 或者在代码窗口中选择控件和事件下拉框，自动跳转到对应事件过程。

示例代码：

Private Sub cmdSubmit_Click()
    Dim customerName As String
    customerName = txtCustomerName.Text ' 获取输入框内容
    If customerName = "" Then
        MsgBox "请输入客户姓名", vbCritical
        Exit Sub
    End If
    MsgBox "提交成功！客户姓名为：" & customerName, vbInformation
End Sub

逻辑分析：

• cmdSubmit_Click 是按钮的点击事件。
• txtCustomerName.Text 获取用户输入内容。
• 使用 If 判断输入是否为空，并给出提示。
• 若输入合法，弹出信息框显示输入内容。

该示例展示了基本的事件响应机制，适用于表单提交、数据校验等场景。

2.2.2 数据输入与输出界面的交互设计

数据输入输出是系统交互的核心。设计良好的输入输出界面能显著提升用户体验和数据准确性。

输入界面设计建议：

• 输入验证 ：在提交前检查数据合法性，如非空、格式、范围等。
• 默认值设置 ：为常用字段设置默认值，减少用户输入负担。
• 输入提示 ：使用 ToolTipText 或 StatusBar 提示输入格式。
• 错误提示 ：使用 MsgBox 或状态栏提示错误信息，避免用户困惑。

输出界面设计建议：

• 数据展示 ：使用 DataGrid 或 ListView 展示列表数据。
• 分页与排序 ：支持数据分页加载和字段排序功能。
• 颜色区分 ：用颜色区分状态，如红色表示过期合同、绿色表示正常设备。
• 导出功能 ：提供数据导出功能，如导出Excel、CSV等。

数据绑定示例（使用 DataGrid ）：

Private Sub Form_Load()
    ' 连接数据库并绑定数据
    Set rs = New Recordset
    rs.Open "SELECT * FROM tblDevices", db, adOpenStatic, adLockOptimistic
    Set DataGrid1.DataSource = rs
End Sub

逻辑分析：

• Form_Load 是窗体加载事件。
• 创建一个 Recordset 对象，执行SQL查询。
• 将查询结果绑定到 DataGrid1 控件上。
• 用户可以在界面上查看和编辑设备信息。

通过上述设计，实现了数据输入输出的完整交互流程，提升了系统的可用性和数据处理能力。

2.3 多窗体之间的切换与数据传递

2.3.1 窗体调用机制与参数传递方式

在VB中，一个系统通常由多个窗体组成，不同窗体之间需要进行切换与数据传递。常见的窗体调用方式有两种：

1. 模式对话框（Modal） ：阻塞当前窗体，直到对话框关闭。
   vb frmLogin.Show vbModal

2. 非模式对话框（Modeless） ：允许同时操作多个窗体。
   vb frmCustomer.Show

参数传递方式：

• 公共变量传递 ：

• 定义一个模块级变量，供多个窗体访问。
  vb ' 在模块中定义公共变量 Public g_CustomerID As Integer

• 构造函数传递 ：

• 在调用窗体时传递参数。
  vb ' 父窗体中 Dim frmEdit As New frmDeviceEdit frmEdit.DeviceID = 1001 frmEdit.Show

vb ' 子窗体中 Public DeviceID As Integer Private Sub Form_Load() LoadDeviceData DeviceID End Sub

• 全局类对象传递 ：
• 使用类模块封装数据，便于传递和管理。
  vb Dim customer As New clsCustomer customer.LoadByID 1001 frmCustomerEdit.Customer = customer

窗体切换流程图（Mermaid）：

graph LR
    A[主窗体frmMain] -->|点击设备录入| B(frmDeviceInput)
    A -->|点击客户管理| C(frmCustomerList)
    C -->|双击客户| D(frmCustomerEdit)
    D -->|保存后返回| C
    B -->|提交后刷新| A

2.3.2 全局变量与模块共享数据管理

为了在多个窗体之间共享数据，VB支持使用模块级变量或类模块进行数据管理。

模块级变量定义：

' 在模块mdlGlobal中
Public g_UserID As Integer
Public g_UserName As String

使用方式：

' 登录窗体中设置全局变量
g_UserID = rs("UserID")
g_UserName = rs("UserName")

' 主窗体中读取
lblWelcome.Caption = "欢迎，" & g_UserName

类模块实现数据封装：

' 类模块clsCustomer
Private m_CustomerID As Integer
Private m_Name As String

Public Property Get CustomerID() As Integer
    CustomerID = m_CustomerID
End Property

Public Property Let CustomerID(ByVal Value As Integer)
    m_CustomerID = Value
End Property

Public Property Get Name() As String
    Name = m_Name
End Property

Public Property Let Name(ByVal Value As String)
    m_Name = Value
End Property

逻辑分析：

• clsCustomer 类封装了客户的基本信息。
• 通过属性 CustomerID 和 Name 实现数据的读写。
• 可以在多个窗体之间传递该对象，避免使用全局变量带来的混乱。

使用模块变量和类模块相结合的方式，可以有效管理多窗体之间的数据交互，提高系统的可维护性和扩展性。

3. 事件驱动编程模型与系统逻辑实现

事件驱动编程是 Visual Basic（VB）语言的核心编程模型之一。在 VB+ACCESS 电脑租赁系统中，事件驱动机制贯穿了整个用户交互流程与系统逻辑实现。本章将深入剖析事件驱动模型的运行原理，结合租赁系统中的实际应用场景，展示按钮点击、文本框变化等常用事件的响应逻辑，并探讨租赁申请提交验证、合同生成保存等核心业务逻辑的实现方式。同时，还将引入异常处理与事件回滚机制，确保系统在面对数据异常或用户操作错误时仍能保持稳定运行。

3.1 事件驱动机制在VB中的实现原理

Visual Basic 采用的是基于对象的事件驱动编程模型。与传统的顺序执行不同，VB 程序主要由事件触发来驱动程序的执行流程，例如按钮点击、窗体加载、文本框内容变化等。

3.1.1 事件绑定与事件处理函数

VB 中的事件绑定通过“事件处理器”（Event Handler）来实现。开发者在设计界面时，为控件（如按钮、文本框）添加事件处理函数，当特定事件发生时，系统会自动调用该函数。

示例：按钮点击事件绑定

Private Sub btnSubmit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSubmit.Click
    ' 处理提交逻辑
    MsgBox("租赁申请已提交！")
End Sub

代码解读：

• btnSubmit_Click 是按钮 btnSubmit 的点击事件处理函数。
• Handles btnSubmit.Click 表示该函数绑定按钮的 Click 事件。
• MsgBox 用于弹出提示框，模拟提交后的反馈。

参数说明：

• sender ：事件触发的对象，通常是控件本身。
• e ：事件参数，包含事件相关信息（如鼠标坐标、键盘按键等）。

事件绑定方式：

• 设计时绑定 ：通过 Visual Studio 的设计器双击控件自动生成事件函数。
• 运行时绑定 ：使用 AddHandler 动态绑定事件，适用于动态生成控件的场景。

3.1.2 按钮点击、文本框变化等常用事件响应

除了按钮点击，VB 中常见的用户交互事件还包括文本框内容变化（TextChanged）、窗体加载（Load）、下拉框选择变化（SelectedIndexChanged）等。

示例：文本框内容变化事件

Private Sub txtClientName_TextChanged(ByVal sender As Object, ByVal e As EventArgs) Handles txtClientName.TextChanged
    If txtClientName.Text.Length > 50 Then
        MsgBox("客户姓名不能超过50个字符！", vbCritical)
        txtClientName.Text = txtClientName.Text.Substring(0, 50)
    End If
End Sub

逻辑分析：

• 每当 txtClientName 文本框内容发生变化时，函数被触发。
• 判断输入长度是否超过限制，若超过则弹出警告并截断。

表格：常用控件事件汇总

控件类型	常用事件	说明
Button	Click	按钮点击触发事件
TextBox	TextChanged	文本内容变化时触发
ComboBox	SelectedIndexChanged	下拉框选项改变时触发
Form	Load	窗体加载时触发
CheckBox	CheckedChanged	复选框状态变化时触发

3.2 租赁流程中的核心事件逻辑设计

在租赁系统中，事件驱动机制不仅用于界面交互，更承担着业务流程的核心逻辑处理任务。以下将重点分析租赁申请提交与验证、合同生成与保存等关键事件的设计与实现。

3.2.1 租赁申请提交与验证事件

租赁申请的提交是整个租赁流程的起点，涉及到用户输入的验证、数据完整性检查以及数据库写入操作。

示例：租赁申请提交验证逻辑

Private Sub btnApply_Click(sender As Object, e As EventArgs) Handles btnApply.Click
    Dim clientName As String = txtClientName.Text.Trim()
    Dim deviceId As String = cmbDevice.SelectedItem.ToString()
    Dim rentalDays As Integer

    If String.IsNullOrEmpty(clientName) Then
        MsgBox("请输入客户姓名！", vbExclamation)
        Return
    End If

    If Not Integer.TryParse(txtDays.Text, rentalDays) Or rentalDays <= 0 Then
        MsgBox("请输入有效的租赁天数！", vbExclamation)
        Return
    End If

    ' 提交到数据库
    If SaveRentalApplication(clientName, deviceId, rentalDays) Then
        MsgBox("申请提交成功！", vbInformation)
    Else
        MsgBox("提交失败，请稍后再试！", vbCritical)
    End If
End Sub

逻辑分析：

• 用户点击 btnApply 后，首先验证客户姓名是否为空。
• 使用 Integer.TryParse 判断租赁天数是否为有效数字。
• 调用 SaveRentalApplication 函数将申请数据写入数据库。
• 若写入成功，弹出提示；否则提示失败。

伪代码流程图（Mermaid 格式）：

graph TD
    A[点击提交按钮] --> B{验证客户姓名}
    B -- 为空 --> C[提示错误]
    B -- 不为空 --> D{验证租赁天数}
    D -- 无效 --> E[提示错误]
    D -- 有效 --> F[调用保存函数]
    F --> G{保存成功?}
    G -- 是 --> H[提示成功]
    G -- 否 --> I[提示失败]

3.2.2 合同生成与保存事件

租赁申请通过后，系统需要生成租赁合同并将其保存为 PDF 或数据库记录，便于后续打印和存档。

示例：合同生成逻辑

Private Function GenerateContract(ByVal clientId As String, ByVal deviceId As String, ByVal days As Integer) As Boolean
    Try
        ' 生成合同内容
        Dim contractContent As String = $"客户：{clientId}{vbCrLf}设备编号：{deviceId}{vbCrLf}租赁天数：{days}天{vbCrLf}签订日期：{DateTime.Now.ToString("yyyy-MM-dd")}"

        ' 保存为文本文件
        Dim filePath As String = "C:\Contracts\" & clientId & "_" & deviceId & ".txt"
        My.Computer.FileSystem.WriteAllText(filePath, contractContent, False)

        Return True
    Catch ex As Exception
        MsgBox("合同生成失败：" & ex.Message, vbCritical)
        Return False
    End Try
End Function

逻辑分析：

• 函数接收客户ID、设备ID、租赁天数作为参数。
• 使用 My.Computer.FileSystem.WriteAllText 将合同内容写入文件。
• 使用 Try...Catch 捕获可能的异常，避免程序崩溃。

3.3 异常处理与事件回滚机制

在事件驱动系统中，任何环节都可能因用户输入错误、数据库异常或文件操作失败而引发异常。为了保证系统的健壮性，必须引入完善的异常处理与事件回滚机制。

3.3.1 数据操作异常的捕获与处理

数据操作通常涉及数据库连接、查询、插入等操作，容易因网络中断、表结构错误、权限不足等问题导致失败。

示例：数据库插入异常处理

Private Function SaveRentalApplication(ByVal clientName As String, ByVal deviceId As String, ByVal rentalDays As Integer) As Boolean
    Dim conn As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=dbLease.mdb;")
    Dim cmd As OleDbCommand

    Try
        conn.Open()
        cmd = New OleDbCommand("INSERT INTO Rentals (ClientName, DeviceID, Days) VALUES (?, ?, ?)", conn)
        cmd.Parameters.AddWithValue("?", clientName)
        cmd.Parameters.AddWithValue("?", deviceId)
        cmd.Parameters.AddWithValue("?", rentalDays)
        cmd.ExecuteNonQuery()
        Return True
    Catch ex As OleDbException
        MsgBox("数据库操作失败：" & ex.Message, vbCritical)
        Return False
    Finally
        If conn.State = ConnectionState.Open Then conn.Close()
    End Try
End Function

逻辑分析：

• 使用 OleDbConnection 连接 Access 数据库。
• 使用参数化查询防止 SQL 注入。
• Try...Catch 捕获数据库异常，如连接失败、表不存在等。
• Finally 确保连接始终关闭，避免资源泄露。

异常类型说明：

异常类型	说明
OleDbException	数据库连接或查询错误
IOException	文件读写异常
NullReferenceException	对象未实例化导致访问错误
ArgumentException	参数无效

3.3.2 系统级错误提示与日志记录

为了便于系统维护与故障排查，除了在界面上提示错误外，还应将错误信息记录到日志文件中。

示例：错误日志记录模块

Private Sub LogError(ByVal message As String)
    Dim logPath As String = "C:\Logs\lease_error.log"
    Dim logEntry As String = DateTime.Now.ToString("yyyy-MM-dd HH:mm:ss") & " - " & message & vbCrLf
    My.Computer.FileSystem.WriteAllText(logPath, logEntry, True)
End Sub

逻辑分析：

• 函数接收错误信息作为参数。
• 使用 WriteAllText 将错误信息追加写入日志文件。
• True 表示以追加模式写入，保留历史日志。

日志记录内容建议：

• 错误发生时间
• 错误类型（如数据库错误、文件错误）
• 出错函数/模块名称
• 错误描述
• 用户操作上下文（可选）

小结

本章详细讲解了事件驱动编程模型在 VB+ACCESS 电脑租赁系统中的应用。通过事件绑定与处理机制，系统实现了用户交互与业务逻辑的高度解耦。结合租赁申请提交验证、合同生成等核心事件，展示了事件驱动在业务流程中的实际应用。同时，通过异常处理与日志记录机制，确保系统在出现异常时具备良好的容错能力和可维护性。下一章将围绕系统功能模块的开发与整合，继续深入探讨各模块之间的数据交互与集成逻辑。

4. 系统功能模块开发与整合

系统功能模块的开发是整个租赁系统实现的核心环节。本章将围绕设备信息管理、客户信息登记、租赁申请与合同处理、以及押金与财务管理四个核心模块展开详细讲解。通过模块化开发，不仅提高了系统的可维护性，也便于后续功能的扩展和逻辑优化。

4.1 设备信息管理模块开发

设备信息管理模块是整个租赁系统的基础模块之一，它负责设备的录入、查询、修改、状态更新及库存统计等功能的实现。该模块的设计直接影响到后续租赁流程的效率与准确性。

4.1.1 设备录入、查询与修改功能实现

设备信息录入是用户首次将设备添加到系统中的操作。为了保证数据的一致性与完整性，系统需要对输入字段进行校验，例如设备编号必须唯一，设备名称不能为空，设备类型必须选择已有分类等。

数据库结构设计

在Access数据库中，设备信息通常存储在名为 tblDevices 的表中，其主要字段如下：

字段名	数据类型	说明
DeviceID	自动编号	主键
DeviceName	文本	设备名称
DeviceType	文本	设备类型
SerialNumber	文本	序列号
PurchaseDate	日期/时间	购买日期
Status	文本	当前状态（在库/出借）
Remarks	备注	描述信息

设备录入功能实现（VB代码示例）

Private Sub btnSaveDevice_Click()
    Dim sql As String
    Dim rs As New ADODB.Recordset

    ' 校验设备编号是否已存在
    sql = "SELECT COUNT(*) FROM tblDevices WHERE SerialNumber='" & txtSerialNumber.Text & "'"
    rs.Open sql, conn, adOpenStatic, adLockReadOnly
    If rs.Fields(0).Value > 0 Then
        MsgBox "序列号已存在，请重新输入！", vbExclamation
        Exit Sub
    End If
    rs.Close

    ' 插入新设备记录
    sql = "INSERT INTO tblDevices (DeviceName, DeviceType, SerialNumber, PurchaseDate, Status) " & _
          "VALUES ('" & txtDeviceName.Text & "', '" & cmbDeviceType.Text & "', " & _
          "'" & txtSerialNumber.Text & "', #" & dtpPurchaseDate.Value & "#, '在库')"
    conn.Execute sql
    MsgBox "设备信息保存成功！", vbInformation
End Sub

代码逻辑分析：

• 第1~2行 ：声明变量 sql 用于构建SQL语句， rs 用于执行查询。
• 第5~8行 ：检查设备序列号是否重复，若存在则弹出提示并终止操作。
• 第11~13行 ：构建插入语句，将用户输入的数据插入到 tblDevices 表中。
• 第15行 ：执行SQL语句，完成设备信息的保存。
• 参数说明 ：
• txtDeviceName.Text ：设备名称输入框内容。
• cmbDeviceType.Text ：设备类型下拉框选择内容。
• txtSerialNumber.Text ：设备序列号。
• dtpPurchaseDate.Value ：日期选择控件获取的购买日期。

查询功能实现（VB代码示例）

Private Sub btnSearchDevice_Click()
    Dim sql As String
    Dim rs As New ADODB.Recordset

    sql = "SELECT * FROM tblDevices WHERE DeviceName LIKE '%" & txtSearch.Text & "%'"
    rs.Open sql, conn, adOpenStatic, adLockReadOnly
    Set dgvDevices.DataSource = rs
End Sub

代码逻辑分析：

• 第4行 ：构建模糊查询SQL语句，支持通过设备名称进行搜索。
• 第5行 ：打开记录集，并将其绑定到数据网格控件 dgvDevices 上，实现数据展示。

4.1.2 设备状态更新与库存统计

设备状态管理是租赁流程中的关键环节。系统需要实时更新设备状态（如“在库”、“出租”、“维修”），并统计库存数量，以便管理员快速掌握设备使用情况。

状态更新逻辑（VB代码片段）

Private Sub btnUpdateStatus_Click()
    Dim sql As String

    sql = "UPDATE tblDevices SET Status='" & cmbNewStatus.Text & "' " & _
          "WHERE DeviceID=" & txtDeviceID.Text
    conn.Execute sql
    MsgBox "设备状态已更新！", vbInformation
End Sub

逻辑说明：

• 用户选择设备ID并指定新状态后，点击按钮触发更新操作。
• SQL语句通过 UPDATE 命令修改指定设备的状态字段。
• cmbNewStatus.Text 为用户选择的新状态值，如“出租”或“维修”。

库存统计展示（VB代码示例）

Private Sub UpdateInventory()
    Dim sql As String
    Dim rs As New ADODB.Recordset

    sql = "SELECT COUNT(*) FROM tblDevices WHERE Status='在库'"
    rs.Open sql, conn, adOpenStatic, adLockReadOnly
    lblInStock.Caption = "当前库存数量：" & rs.Fields(0).Value
    rs.Close
End Sub

逻辑说明：

• 使用SQL聚合函数 COUNT(*) 统计处于“在库”状态的设备数量。
• 将结果绑定到标签控件 lblInStock 上，实现实时显示。

4.2 客户信息登记与权限控制

客户信息登记模块负责客户资料的录入、验证、信用评估与租赁限制逻辑的实现。权限控制则确保不同角色的用户（如管理员、普通员工）访问权限的合理性。

4.2.1 客户资料录入与验证机制

客户信息通常包括姓名、身份证号、联系方式、地址等。为避免重复录入，系统应校验身份证号是否唯一。

数据库结构设计

客户信息存储在 tblCustomers 表中，主要字段如下：

字段名	数据类型	说明
CustomerID	自动编号	主键
FullName	文本	客户姓名
IDNumber	文本	身份证号
PhoneNumber	文本	联系电话
Address	备注	地址信息
CreditScore	数字	信用评分

VB代码实现（客户录入）

Private Sub btnSaveCustomer_Click()
    Dim sql As String
    Dim rs As New ADODB.Recordset

    ' 校验身份证号是否已存在
    sql = "SELECT COUNT(*) FROM tblCustomers WHERE IDNumber='" & txtIDNumber.Text & "'"
    rs.Open sql, conn, adOpenStatic, adLockReadOnly
    If rs.Fields(0).Value > 0 Then
        MsgBox "该身份证号已存在！", vbCritical
        Exit Sub
    End If
    rs.Close

    ' 插入客户信息
    sql = "INSERT INTO tblCustomers (FullName, IDNumber, PhoneNumber, Address) " & _
          "VALUES ('" & txtName.Text & "', '" & txtIDNumber.Text & "', " & _
          "'" & txtPhone.Text & "', '" & txtAddress.Text & "')"
    conn.Execute sql
    MsgBox "客户信息保存成功！", vbInformation
End Sub

逻辑说明：

• 校验身份证号是否重复，若重复则提示错误。
• 构建SQL语句将客户信息插入数据库。
• 成功保存后弹出提示信息。

4.2.2 客户信用评估与租赁限制逻辑

系统根据客户信用分（CreditScore）判断其租赁资格。例如，信用分低于60分的客户不能租赁高价值设备。

权限控制逻辑（VB代码示例）

Private Function CanRentDevice(customerID As Integer) As Boolean
    Dim sql As String
    Dim rs As New ADODB.Recordset

    sql = "SELECT CreditScore FROM tblCustomers WHERE CustomerID=" & customerID
    rs.Open sql, conn, adOpenStatic, adLockReadOnly
    If rs.Fields("CreditScore").Value >= 60 Then
        CanRentDevice = True
    Else
        CanRentDevice = False
    End If
    rs.Close
End Function

逻辑说明：

• 通过客户ID查询其信用分。
• 若信用分 ≥ 60，允许租赁，否则禁止。

4.3 租赁申请与合同处理流程集成

租赁申请模块负责客户提交租赁信息的收集与确认，合同处理模块则实现合同的自动生成与打印。

4.3.1 租赁信息填写与确认界面设计

租赁申请界面包括客户选择、设备选择、租赁日期、租赁天数等字段。系统需对租赁天数进行校验，确保不超过设备可租天数限制。

VB代码实现（租赁信息提交）

Private Sub btnSubmitLease_Click()
    Dim sql As String

    sql = "INSERT INTO tblLeases (CustomerID, DeviceID, LeaseDate, Days) " & _
          "VALUES (" & cmbCustomer.ListIndex + 1 & ", " & cmbDevice.ListIndex + 1 & ", " & _
          "#" & dtpLeaseDate.Value & "#, " & txtDays.Text & ")"
    conn.Execute sql
    MsgBox "租赁信息已提交！", vbInformation
End Sub

逻辑说明：

• 从下拉框获取客户ID与设备ID。
• 插入租赁信息到 tblLeases 表中。

4.3.2 合同自动生成与打印功能实现

合同生成可使用VB内置的报表功能（如DataReport）或第三方库（如Crystal Reports）。以下为基于Word文档的合同生成示例。

合同生成VB代码示例

Private Sub GenerateContract()
    Dim doc As Object
    Set doc = CreateObject("Word.Application")
    doc.Visible = True
    doc.Documents.Add
    With doc.ActiveDocument
        .Content.Text = "电脑租赁合同" & vbCrLf & _
                        "客户姓名：" & txtCustomerName.Text & vbCrLf & _
                        "设备名称：" & txtDeviceName.Text & vbCrLf & _
                        "租赁天数：" & txtDays.Text & "天" & vbCrLf & _
                        "金额：" & txtAmount.Text & "元"
        .PrintOut
        .SaveAs "C:\Contracts\" & txtContractID.Text & ".docx"
    End With
End Sub

逻辑说明：

• 创建Word应用程序对象并生成合同文本。
• 设置内容并打印，同时保存为 .docx 文件。

4.4 押金管理与财务记录模块

押金管理模块负责押金的缴纳与退还流程，财务记录模块则用于租金计算与报表生成。

4.4.1 押金缴纳与退还流程设计

押金缴纳流程包括客户选择、押金金额输入、支付方式选择等。退还流程则需验证租赁是否已完成。

押金缴纳VB代码示例

Private Sub btnPayDeposit_Click()
    Dim sql As String

    sql = "INSERT INTO tblDeposits (CustomerID, Amount, PaymentMethod, PayDate) " & _
          "VALUES (" & txtCustomerID.Text & ", " & txtAmount.Text & ", '" & cmbPayment.Text & "', #" & Now & "#)"
    conn.Execute sql
    MsgBox "押金缴纳成功！", vbInformation
End Sub

逻辑说明：

• 插入押金缴纳记录到 tblDeposits 表中。
• 使用 Now 函数记录当前时间作为支付时间。

4.4.2 租金计算逻辑与财务报表生成

租金计算通常基于租赁天数和设备单价。财务报表可使用VB的报表控件或导出为Excel。

租金计算VB代码示例

Private Function CalculateRent(deviceID As Integer, days As Integer) As Double
    Dim sql As String
    Dim rs As New ADODB.Recordset
    Dim rate As Double

    sql = "SELECT DailyRate FROM tblDevices WHERE DeviceID=" & deviceID
    rs.Open sql, conn, adOpenStatic, adLockReadOnly
    rate = rs.Fields("DailyRate").Value
    CalculateRent = rate * days
    rs.Close
End Function

逻辑说明：

• 查询设备的每日租金 DailyRate 。
• 乘以租赁天数得出总租金。

财务报表生成（Excel导出示例）

Private Sub ExportToExcel()
    Dim xlApp As Object
    Dim xlWB As Object
    Dim xlWS As Object

    Set xlApp = CreateObject("Excel.Application")
    Set xlWB = xlApp.Workbooks.Add
    Set xlWS = xlWB.Sheets(1)

    ' 写入标题
    xlWS.Cells(1, 1).Value = "客户姓名"
    xlWS.Cells(1, 2).Value = "设备名称"
    xlWS.Cells(1, 3).Value = "租赁天数"
    xlWS.Cells(1, 4).Value = "金额"

    ' 写入数据（假设数据来自数据集）
    xlWS.Cells(2, 1).Value = txtCustomerName.Text
    xlWS.Cells(2, 2).Value = txtDeviceName.Text
    xlWS.Cells(2, 3).Value = txtDays.Text
    xlWS.Cells(2, 4).Value = txtAmount.Text

    xlApp.Visible = True
End Sub

逻辑说明：

• 使用COM对象创建Excel应用程序。
• 将租赁数据写入Excel表格并展示。

流程图示例 ：设备状态更新流程图

graph TD
    A[用户选择设备] --> B{设备状态是否存在}
    B -- 否 --> C[提示错误]
    B -- 是 --> D[更新状态]
    D --> E[更新库存统计]

表格示例 ：设备状态统计表

状态	数量
在库	58
出租	12
维修	3

代码块说明 ：所有代码均采用ADO连接方式操作Access数据库，确保数据交互的稳定性与安全性。

5. Microsoft Access数据库设计与数据交互

5.1 数据表结构定义与关系配置

5.1.1 主要数据表设计：设备表、客户表、合同表等

在设计一个完整的电脑租赁系统时，数据库是整个系统的核心。Microsoft Access作为轻量级数据库管理系统，非常适合中、小型应用系统的开发。在本系统中，我们主要设计了以下几个关键数据表：

1. 设备表（tblEquipment）
   - 用于存储电脑设备的基本信息，如设备编号、品牌、型号、配置、租赁状态等。
   - 主要字段如下：

   • EquipmentID （主键）：设备唯一标识符
   • Brand ：品牌
   • Model ：型号
   • Specs ：硬件配置描述
   • Status ：当前状态（可用、已租、维修中等）
   • PurchaseDate ：购买日期

2. 客户表（tblCustomer）
   - 存储客户的基本信息，包括联系方式、信用等级、租赁历史等。
   - 主要字段如下：

   • CustomerID （主键）：客户唯一标识
   • Name ：客户姓名
   • Phone ：联系电话
   • Email ：电子邮件
   • CreditLevel ：信用等级（1-5）
   • RegistrationDate ：注册时间

3. 合同表（tblContract）
   - 记录每次租赁合同的具体信息，包括租赁时间、押金、租金、设备ID、客户ID等。
   - 主要字段如下：

   • ContractID （主键）：合同编号
   • CustomerID （外键）：关联客户表
   • EquipmentID （外键）：关联设备表
   • RentalDate ：租赁开始日期
   • ReturnDate ：预计归还日期
   • Deposit ：押金金额
   • RentalFee ：日租金
   • IsReturned ：是否已归还（布尔值）

4. 财务记录表（tblFinance）
   - 用于记录每次租赁的费用信息，包括押金缴纳、租金结算、退还等情况。
   - 主要字段如下：

   • FinanceID （主键）
   • ContractID （外键）
   • PaymentType ：支付类型（押金缴纳、租金支付、押金退还等）
   • Amount ：金额
   • PaymentDate ：支付时间
   • PaymentStatus ：是否完成

数据表设计表格如下：

表名	字段名	数据类型	说明
tblEquipment	EquipmentID	AutoNumber	主键
	Brand	Text	品牌
	Model	Text	型号
	Specs	Memo	配置说明
	Status	Text	状态（可用、已租等）
	PurchaseDate	Date/Time	购买时间
tblCustomer	CustomerID	AutoNumber	主键
	Name	Text	客户姓名
	Phone	Text	联系电话
	Email	Text	邮箱
	CreditLevel	Number	信用等级
	RegistrationDate	Date/Time	注册时间
tblContract	ContractID	AutoNumber	主键
	CustomerID	Number	外键
	EquipmentID	Number	外键
	RentalDate	Date/Time	租赁日期
	ReturnDate	Date/Time	归还日期
	Deposit	Currency	押金金额
	RentalFee	Currency	日租金
	IsReturned	Yes/No	是否归还
tblFinance	FinanceID	AutoNumber	主键
	ContractID	Number	外键
	PaymentType	Text	支付类型
	Amount	Currency	支付金额
	PaymentDate	Date/Time	支付时间
	PaymentStatus	Yes/No	是否完成

5.1.2 表间关系建立与完整性约束

为了确保数据的完整性与一致性，在Access中需要建立表之间的关系。以下是主要的关系设置：

1. tblContract 与 tblCustomer
   - tblContract.CustomerID → tblCustomer.CustomerID
   - 设置为一对多关系（一个客户可以有多份合同）

2. tblContract 与 tblEquipment
   - tblContract.EquipmentID → tblEquipment.EquipmentID
   - 一个设备只能被一份合同租用（在未归还前）

3. tblFinance 与 tblContract
   - tblFinance.ContractID → tblContract.ContractID
   - 每个合同可能有多条财务记录

表间关系图（使用Mermaid流程图表示）：

erDiagram
    tblCustomer ||--o{ tblContract : "1对多"
    tblEquipment ||--o{ tblContract : "1对多"
    tblContract ||--o{ tblFinance : "1对多"
    tblCustomer {
        AutoNumber CustomerID PK
        Text Name
        Text Phone
        Number CreditLevel
    }
    tblEquipment {
        AutoNumber EquipmentID PK
        Text Brand
        Text Model
        Memo Specs
        Text Status
    }
    tblContract {
        AutoNumber ContractID PK
        Number CustomerID FK
        Number EquipmentID FK
        Date/Time RentalDate
        Date/Time ReturnDate
        Currency Deposit
        Currency RentalFee
        Yes/No IsReturned
    }
    tblFinance {
        AutoNumber FinanceID PK
        Number ContractID FK
        Text PaymentType
        Currency Amount
        Date/Time PaymentDate
        Yes/No PaymentStatus
    }

完整性约束设置说明：

• 在Access中通过“关系”界面建立主外键关系。
• 启用“级联更新”与“级联删除”选项，确保主表数据更改时，相关子表数据自动更新或删除，防止数据孤岛。
• 对关键字段（如 CustomerID , EquipmentID ）设置非空约束，避免数据缺失。

5.2 SQL查询与VBA逻辑处理

5.2.1 查询语句的编写与优化

在系统开发中，SQL查询是连接数据库与程序逻辑的关键。为了提高查询效率，以下是一些常用SQL语句示例及优化建议。

示例1：查询所有可用设备

SELECT EquipmentID, Brand, Model, Specs
FROM tblEquipment
WHERE Status = 'Available';

逻辑分析：
- 从 tblEquipment 表中筛选出状态为“可用”的设备。
- 用于设备租赁界面中展示可租设备列表。

示例2：查找某客户的所有租赁记录

SELECT c.ContractID, e.Brand, e.Model, c.RentalDate, c.ReturnDate, c.IsReturned
FROM tblContract AS c
JOIN tblEquipment AS e ON c.EquipmentID = e.EquipmentID
WHERE c.CustomerID = [输入客户ID];

逻辑分析：
- 使用JOIN连接 tblContract 和 tblEquipment 表。
- 通过客户ID筛选出该客户的租赁合同信息，包括设备品牌、型号、租赁日期等。

优化建议：

• 对常用于查询的字段（如 CustomerID , EquipmentID , RentalDate ）建立索引，提升查询速度。
• 尽量避免使用 SELECT * ，只选择需要的字段以减少数据传输量。
• 对大数据量表使用分页查询（如TOP + OFFSET）来控制结果集大小。

5.2.2 VBA代码与数据库的交互方式

在Visual Basic 6.0中，可以通过VBA（Visual Basic for Applications）编写代码来操作Access数据库。常用的数据库操作包括连接、查询、插入、更新和删除。

示例：连接Access数据库并执行查询

Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim sql As String

' 打开数据库连接
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\LeaseSystem.mdb"

' 构建SQL查询语句
sql = "SELECT * FROM tblCustomer WHERE CreditLevel > 3"

' 执行查询
rs.Open sql, conn, adOpenStatic, adLockReadOnly

' 遍历查询结果
Do While Not rs.EOF
    Debug.Print rs("Name") & " - " & rs("CreditLevel")
    rs.MoveNext
Loop

' 释放资源
rs.Close
conn.Close
Set rs = Nothing
Set conn = Nothing

逐行解释与参数说明：

• ADODB.Connection ：用于建立与数据库的连接。
• ADODB.Recordset ：用于存储查询结果集。
• "Provider=Microsoft.Jet.OLEDB.4.0" ：指定使用Access的OLE DB驱动。
• App.Path ：获取当前应用程序的路径，确保数据库路径正确。
• rs.Open ：执行SQL查询并打开结果集。
• adOpenStatic ：静态游标类型，适用于只读查询。
• adLockReadOnly ：只读锁定模式，防止修改数据。
• rs.EOF ：判断是否到达结果集末尾。
• rs.Close 和 conn.Close ：关闭结果集和连接，释放资源。

5.3 数据库连接与操作实现

5.3.1 使用ADO连接Access数据库

ADO（ActiveX Data Objects）是VB中用于数据库操作的核心技术之一。以下是使用ADO连接Access数据库并进行数据操作的完整流程。

步骤1：添加ADO引用

在VB6.0 IDE中，点击“工程” -> “引用”，勾选“Microsoft ActiveX Data Objects 2.8 Library”。

步骤2：封装数据库连接函数

Public Function GetDBConnection() As ADODB.Connection
    Dim conn As New ADODB.Connection
    conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\LeaseSystem.mdb"
    conn.Open
    Set GetDBConnection = conn
End Function

逻辑分析：
- 封装数据库连接，方便在多个模块中调用。
- App.Path 确保数据库文件与程序在同一目录下。
- 返回一个已打开的 ADODB.Connection 对象。

5.3.2 数据的增删改查操作封装与调用

为了提高代码的可维护性，我们可以将数据库操作封装为独立函数。

插入数据示例（添加客户信息）

Public Sub AddCustomer(name As String, phone As String, email As String, creditLevel As Integer)
    Dim conn As ADODB.Connection
    Dim cmd As New ADODB.Command
    Set conn = GetDBConnection()
    With cmd
        .ActiveConnection = conn
        .CommandText = "INSERT INTO tblCustomer (Name, Phone, Email, CreditLevel, RegistrationDate) VALUES (?, ?, ?, ?, Now())"
        .Parameters.Append .CreateParameter("Name", adVarChar, adParamInput, 100, name)
        .Parameters.Append .CreateParameter("Phone", adVarChar, adParamInput, 20, phone)
        .Parameters.Append .CreateParameter("Email", adVarChar, adParamInput, 100, email)
        .Parameters.Append .CreateParameter("CreditLevel", adInteger, adParamInput, , creditLevel)
        .CommandType = adCmdText
        .Execute
    End With
    conn.Close
    Set cmd = Nothing
    Set conn = Nothing
End Sub

逻辑分析：
- 使用 ADODB.Command 对象执行带参数的SQL语句，防止SQL注入。
- Now() 函数自动插入当前注册时间。
- 参数化查询提高代码安全性和可读性。

删除数据示例（删除某客户）

Public Sub DeleteCustomer(customerID As Integer)
    Dim conn As ADODB.Connection
    Dim cmd As New ADODB.Command
    Set conn = GetDBConnection()
    With cmd
        .ActiveConnection = conn
        .CommandText = "DELETE FROM tblCustomer WHERE CustomerID = ?"
        .Parameters.Append .CreateParameter("CustomerID", adInteger, adParamInput, , customerID)
        .CommandType = adCmdText
        .Execute
    End With
    conn.Close
    Set cmd = Nothing
    Set conn = Nothing
End Sub

逻辑分析：
- 使用参数化SQL语句删除指定ID的客户信息。
- 可以防止误删或SQL注入攻击。

更新数据示例（更新客户联系方式）

Public Sub UpdateCustomerContact(customerID As Integer, newPhone As String, newEmail As String)
    Dim conn As ADODB.Connection
    Dim cmd As New ADODB.Command
    Set conn = GetDBConnection()
    With cmd
        .ActiveConnection = conn
        .CommandText = "UPDATE tblCustomer SET Phone = ?, Email = ? WHERE CustomerID = ?"
        .Parameters.Append .CreateParameter("Phone", adVarChar, adParamInput, 20, newPhone)
        .Parameters.Append .CreateParameter("Email", adVarChar, adParamInput, 100, newEmail)
        .Parameters.Append .CreateParameter("CustomerID", adInteger, adParamInput, , customerID)
        .CommandType = adCmdText
        .Execute
    End With
    conn.Close
    Set cmd = Nothing
    Set conn = Nothing
End Sub

逻辑分析：
- 更新客户电话和邮箱。
- 使用参数化更新语句，确保数据安全和高效。

查询数据示例（获取客户信息）

Public Function GetCustomerByID(customerID As Integer) As ADODB.Recordset
    Dim conn As ADODB.Connection
    Dim rs As New ADODB.Recordset
    Dim sql As String
    Set conn = GetDBConnection()
    sql = "SELECT * FROM tblCustomer WHERE CustomerID = " & customerID
    rs.Open sql, conn, adOpenStatic, adLockReadOnly
    Set GetCustomerByID = rs
End Function

逻辑分析：
- 根据客户ID查询客户详细信息。
- 返回一个 ADODB.Recordset 结果集，供前端调用展示。

以上内容完整覆盖了第五章的核心数据库设计与数据交互实现，包括数据表结构定义、关系配置、SQL查询优化、VBA数据库交互方式以及ADO数据库连接与CRUD操作的封装实现。

6. 系统安全性与用户权限管理

在现代信息系统开发中，安全性和用户权限管理是构建稳定、可靠、可扩展系统的核心组成部分。尤其是在基于VB + Access架构的租赁系统中，用户权限控制直接关系到数据完整性、操作安全性以及业务流程的合规性。本章将从用户权限模型设计、系统数据保护机制、安全漏洞防范策略三个方面深入探讨如何构建一个安全、可控的电脑租赁系统。

6.1 用户权限模型设计

在多用户系统中，不同角色的用户具有不同的操作权限。设计一个灵活、可扩展的权限模型，是保障系统安全的第一步。

6.1.1 角色划分与权限分配机制

在电脑租赁系统中，常见的用户角色包括：

角色名称	权限说明
管理员	可管理所有模块，包括设备管理、客户管理、合同处理、财务记录等
操作员	可处理租赁申请、合同打印、押金管理等日常操作
客户	仅可查看自己的租赁记录、合同信息和支付状态
审计员	仅可查看操作日志与财务报表，无修改权限

权限分配实现逻辑：

' 登录验证后获取用户角色
Dim userRole As String
userRole = GetUserRoleFromDatabase(username)

' 根据角色设置界面控件的可用状态
Select Case userRole
    Case "管理员"
        EnableAllControls
    Case "操作员"
        EnableOnlyLeaseControls
    Case "客户"
        EnableOnlyViewControls
    Case "审计员"
        EnableOnlyAuditControls
End Select

逐行解释：

• 第2行：调用函数 GetUserRoleFromDatabase 从数据库中获取当前登录用户的角色。
• 第4~10行：根据角色不同，调用不同的界面控件启用函数，实现权限隔离。
• 此种方式通过代码控制权限，避免了界面级的越权访问。

6.1.2 登录验证与用户身份识别

登录验证是系统安全的第一道防线。系统通过用户名和加密后的密码进行身份验证，并在登录成功后记录用户ID和角色信息。

Function ValidateLogin(username As String, password As String) As Boolean
    Dim rs As ADODB.Recordset
    Dim sql As String
    ' 构建查询语句
    sql = "SELECT * FROM Users WHERE Username='" & username & "' AND Password= '" & HashPassword(password) & "'"
    ' 执行查询
    Set rs = dbConn.Execute(sql)
    If Not rs.EOF Then
        ValidateLogin = True
        SetCurrentUser rs("UserID"), rs("UserRole")
    Else
        ValidateLogin = False
    End If
End Function

逐行解释：

• 第5行：使用 HashPassword 函数对密码进行哈希处理，避免明文存储。
• 第7行：执行SQL查询，注意此处应使用参数化查询以防止SQL注入，详见下一节。
• 第9行：如果查询结果非空，表示验证通过，设置当前用户信息。
• 第13行：返回验证结果。

6.2 系统数据保护与访问控制

数据是系统的核心资产，保护数据的完整性和机密性是系统安全的重要组成部分。本节将介绍敏感数据的加密、访问控制以及操作日志的记录与审计机制。

6.2.1 敏感数据加密与解密

在租赁系统中，如用户密码、身份证号、手机号等信息属于敏感数据，应采用加密方式进行存储。

Function HashPassword(password As String) As String
    Dim md5 As New clsMD5
    HashPassword = md5.HashString(password)
End Function

逻辑分析：

• 使用MD5哈希算法对密码进行单向加密，防止明文泄露。
• clsMD5 是一个封装了MD5算法的类模块。
• 该函数返回加密后的字符串，用于数据库存储。

补充说明：
虽然MD5在现代安全标准中已不推荐用于密码存储（建议使用PBKDF2或bcrypt），但在VB6中受限于库支持，MD5仍可作为基本加密手段使用。

6.2.2 操作日志记录与审计机制

操作日志是系统安全审计的重要依据。每次关键操作（如设备修改、合同生成、押金缴纳等）都应记录操作者、操作时间、操作内容等信息。

Sub LogUserAction(userID As Integer, action As String)
    Dim sql As String
    sql = "INSERT INTO ActionLogs (UserID, Action, LogTime) VALUES (" & _
          userID & ", '" & action & "', Now())"
    dbConn.Execute sql
End Sub

逻辑分析：

• 第2行：构建插入语句，记录用户ID、操作描述和时间。
• 第4行：执行SQL语句，将日志写入数据库表 ActionLogs 。
• 此日志可用于后续审计、故障排查和权限审查。

graph TD
    A[用户操作] --> B{是否为敏感操作?}
    B -->|是| C[调用LogUserAction记录]
    B -->|否| D[不记录]
    C --> E[存入ActionLogs表]

6.3 安全漏洞防范与系统加固

系统安全不仅体现在权限控制和数据保护，还必须防范常见的安全漏洞，如SQL注入、文件权限泄露、数据备份失败等。

6.3.1 输入验证与SQL注入防范

SQL注入是一种常见的攻击方式，攻击者通过构造恶意输入，绕过系统逻辑，非法访问或修改数据库。防范的关键在于对输入数据进行严格校验和参数化查询。

Function ValidateInput(input As String) As Boolean
    If InStr(input, "'") > 0 Or InStr(input, "--") > 0 Then
        ValidateInput = False
    Else
        ValidateInput = True
    End If
End Function

逻辑分析：

• 第2~3行：检测输入中是否包含单引号 ' 或注释符 -- ，这些都是SQL注入常用字符。
• 若检测到非法字符，返回False，阻止后续数据库操作。
• 更高级的做法是使用参数化查询，如ADO的 Command 对象。

' 使用参数化查询防止SQL注入
Dim cmd As New ADODB.Command
Set cmd.ActiveConnection = dbConn
cmd.CommandText = "SELECT * FROM Users WHERE Username = ? AND Password = ?"
cmd.Parameters.Append cmd.CreateParameter("Username", adVarChar, adParamInput, 50, username)
cmd.Parameters.Append cmd.CreateParameter("Password", adVarChar, adParamInput, 50, HashPassword(password))
Set rs = cmd.Execute

逻辑分析：

• 使用 ADODB.Command 构建参数化SQL语句，避免拼接字符串带来的风险。
• ? 作为占位符，参数通过 .Parameters.Append 添加。
• 此方式有效防止SQL注入攻击。

6.3.2 文件访问权限与数据备份策略

在VB + Access系统中，数据库文件（.mdb）通常存放在服务器或共享目录下，需设置合理的文件访问权限以防止未授权访问。

文件访问权限设置建议：

文件类型	推荐访问权限
.mdb数据库文件	仅管理员和系统账户可写，其他用户只读
系统配置文件（如.ini）	系统账户可读写，其他用户只读
日志文件	系统账户可写，其他用户只读

数据备份策略

策略	说明
每日增量备份	记录每日数据变化，用于快速恢复
每周全量备份	完整备份整个数据库，用于灾难恢复
备份存储位置	建议使用异地备份或云存储，避免本地故障丢失

' 简单的备份脚本示例
Sub BackupDatabase()
    Dim sourcePath As String
    Dim backupPath As String
    sourcePath = "C:\LeaseSystem\Database.mdb"
    backupPath = "D:\Backup\" & Format(Now, "yyyy-mm-dd") & "_Database.mdb"
    FileCopy sourcePath, backupPath
End Sub

逻辑分析：

• 第4~5行：定义源数据库路径和目标备份路径。
• 第6行：使用 FileCopy 函数复制文件，完成备份。
• 实际部署中应加入错误处理、日志记录等功能。

graph TD
    A[定时任务触发] --> B[执行备份脚本]
    B --> C{是否成功?}
    C -->|是| D[记录备份日志]
    C -->|否| E[发送错误通知]

本章从用户权限设计、数据保护机制、安全漏洞防范三个维度系统地构建了电脑租赁系统的安全防护体系。下一章将围绕系统测试与部署实施展开，确保系统在真实环境中稳定运行。

7. 系统测试与部署实施

7.1 系统测试方法与流程

系统测试是确保VB+ACCESS租赁系统稳定运行的关键环节。在该阶段，需结合功能测试与性能测试，验证系统在不同场景下的表现。

7.1.1 功能测试与边界条件验证

功能测试主要围绕系统各模块的核心功能展开，例如设备信息录入是否成功、客户注册是否具备权限控制、租赁合同是否能正确生成并保存等。

测试流程如下：

1. 编写测试用例 ：列出各模块的关键功能点，并定义输入与预期输出。
2. 手动测试执行 ：通过界面操作模拟用户行为，验证功能流程。
3. 边界值测试 ：例如输入负数押金、超长客户名称、非法字符等，验证系统对异常输入的处理能力。
4. 异常路径测试 ：如断网状态下提交合同、数据库连接失败时的提示是否友好。

示例：设备状态更新功能测试

Private Sub TestUpdateDeviceStatus()
    Dim conn As New ADODB.Connection
    Dim rs As New ADODB.Recordset
    Dim deviceID As Integer
    deviceID = 1001 ' 测试设备ID

    On Error GoTo ErrorHandler

    conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=dbRentals.mdb;"
    rs.Open "SELECT * FROM Devices WHERE DeviceID=" & deviceID, conn, adOpenDynamic, adLockOptimistic

    If Not rs.EOF Then
        rs.Fields("Status").Value = "已出租"
        rs.Update
        MsgBox "设备状态更新成功"
    Else
        MsgBox "设备不存在"
    End If

    rs.Close
    conn.Close
    Exit Sub

ErrorHandler:
    MsgBox "更新失败：" & Err.Description
End Sub

代码说明：
- 使用 ADO 连接 Access 数据库，尝试更新设备状态。
- 包含错误处理机制，防止程序崩溃。
- 可用于模拟边界值（如不存在的设备ID）或网络中断等异常场景。

7.1.2 性能测试与多用户并发处理

由于租赁系统可能面临多个用户同时操作的情况，性能测试显得尤为重要。可使用模拟并发访问工具或编写多线程测试代码。

测试方案：

1. 多线程模拟 ：使用 VB 的 Timer 控件或调用 Windows API 实现多个线程访问数据库。
2. 压力测试工具 ：如 Apache JMeter 或 LoadRunner，模拟大量用户同时登录、查询、提交合同。
3. 性能监控 ：使用任务管理器或第三方工具监控 CPU、内存、数据库响应时间。

测试项	并发用户数	响应时间（ms）	是否成功
登录测试	50	120	✅
提交合同	100	230	✅
查询设备	200	450	✅
数据库写入	300	超时	❌

测试结果分析：
- 当并发用户数超过 250 时，数据库响应延迟明显增加。
- 建议优化数据库索引、引入连接池技术或升级数据库引擎。

7.2 系统部署与运行环境配置

系统部署是将开发完成的租赁系统部署到实际运行环境中，确保其在不同用户机器上稳定运行。

7.2.1 开发环境与运行环境要求

开发环境：

• 操作系统：Windows 10 / Windows 11
• 开发工具：Visual Basic 6.0 / VB.NET
• 数据库：Microsoft Access 2016及以上
• 开发框架：ADO（ActiveX Data Objects）

运行环境要求：

• 操作系统：Windows 7及以上
• .NET Framework：VB6无需，VB.NET需安装对应版本
• 数据库运行组件：Microsoft Access Runtime 或 Microsoft Data Access Components (MDAC)

7.2.2 Access数据库的打包与分发

为确保Access数据库在目标机器上能正常运行，需进行打包与分发：

1. 压缩数据库 ：使用Access自带工具压缩数据库文件（ .mdb或 .accdb），减少体积。
2. 创建安装包 ：使用Inno Setup或NSIS将VB程序与数据库打包成安装包。
3. 设置相对路径 ：VB代码中数据库连接路径应为相对路径，便于迁移。

' 使用相对路径连接数据库
Dim connStr As String
connStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=.\dbRentals.mdb;"

参数说明：
- .\ 表示当前程序目录，避免绝对路径导致部署失败。
- 若使用 Access 2007 及以上版本，需更换为 ACE OLEDB 提供者。

7.3 完整业务流程测试与优化

在系统部署完成后，需进行全流程测试，确保从客户注册、设备租赁、合同生成到押金退还等流程无遗漏。

7.3.1 从客户注册到租赁结束的全流程测试

测试流程图：

graph TD
    A[客户注册] --> B[登录系统]
    B --> C[浏览设备]
    C --> D[提交租赁申请]
    D --> E[合同生成]
    E --> F[支付押金]
    F --> G[设备出库]
    G --> H[租赁结束]
    H --> I[退还押金]

流程说明：
- 每个节点应进行功能验证与数据一致性检查。
- 如：客户提交申请后，设备状态应更新为“已出租”。

7.3.2 用户反馈收集与系统优化建议

系统上线后，需持续收集用户反馈，优化系统体验：

• 用户反馈渠道：
• 内置“意见反馈”窗体，支持截图上传。
• 企业微信/钉钉群反馈机制。
• 优化建议：
• 引入缓存机制减少数据库访问频率。
• 增加日志模块，记录用户操作路径。
• 提供离线模式，支持本地数据暂存。

下一步计划：
- 增加移动端支持，采用Web API + 移动端App架构。
- 引入SQL Server替代Access，提升数据处理能力。

本文还有配套的精品资源，点击获取

简介：该电脑租赁系统基于Visual Basic（VB）和Microsoft Access数据库构建，是一个功能完整的租赁业务管理平台。系统涵盖设备管理、客户管理、租赁流程处理、财务管理、统计分析及权限控制等核心模块，采用VB实现图形化界面和事件驱动操作，利用Access进行数据存储与查询。通过该系统的设计与实现，开发者可全面掌握VB编程、数据库设计及前后端协同开发技巧，适用于教学实践与小型租赁业务的实际部署。

本文还有配套的精品资源，点击获取