如何开发VB工程合同管理系统Access版源代码？完整实现指南

在工程项目管理中，合同是核心文件之一，其内容繁杂、条款多变，传统纸质或Excel方式难以满足高效管理需求。Visual Basic（VB）结合Microsoft Access数据库，为中小型项目团队提供了一种低成本、易上手的解决方案。本文将详细解析如何从零开始构建一个完整的VB工程合同管理系统Access版源代码，涵盖数据库设计、界面开发、数据交互逻辑及常见问题处理。

一、系统需求分析与功能规划

首先明确系统目标：实现合同信息的录入、查询、修改、删除、统计和导出等功能。典型用户包括项目经理、法务人员、财务专员等。关键功能模块如下：

• 合同基本信息管理：编号、名称、签订日期、甲方乙方、金额、有效期、状态（生效/失效/终止）等
• 附件管理：支持上传PDF、Word等文档并关联到对应合同
• 提醒机制：到期前自动提示（如30天、7天）
• 权限控制：基础角色区分（管理员、普通用户）
• 报表输出：按时间、金额、状态分类生成Excel报表

二、数据库设计（Access部分）

使用Access创建名为 ContractDB.accdb 的数据库，包含以下表结构：

表名：Contracts
字段：
- ID (AutoNumber, 主键)
- ContractNo (Text, 唯一)
- Title (Text)
- SignDate (Date/Time)
- ClientName (Text)
- SupplierName (Text)
- Amount (Currency)
- ValidUntil (Date/Time)
- Status (Text: 生效/失效/终止)
- Remarks (Memo)
- FilePath (Text, 存储附件路径)

建议建立索引字段：ContractNo 和 Status，提升查询效率。同时可添加辅助表如 UserAccounts 实现简单登录验证（用户名+密码哈希存储）。

三、VB开发环境搭建

确保已安装：

• Visual Studio 2019/2022 Community版（免费且支持VB.NET）
• Microsoft Access Database Engine 2016 Redistributable（用于连接Access数据库）

新建VB Windows Forms Application项目后，右键引用添加：

• System.Data.OleDb（用于访问Access）
• System.IO（文件操作）
• System.Windows.Forms.DataVisualization.Charting（可选：图表展示）

四、核心代码实现详解

1. 数据库连接字符串配置

Private connectionString As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Projects\ContractDB.accdb;Persist Security Info=False;"

注意路径应根据实际部署位置调整，也可通过配置文件读取以增强灵活性。

2. 合同数据CRUD操作示例

插入合同：

Public Sub AddContract(contract As Contract)
    Using conn As New OleDbConnection(connectionString)
        Dim sql As String = "INSERT INTO Contracts (ContractNo, Title, SignDate, ClientName, SupplierName, Amount, ValidUntil, Status, Remarks) VALUES (?, ?, ?, ?, ?, ?, ?, ?, ?)"
        Using cmd As New OleDbCommand(sql, conn)
            cmd.Parameters.AddWithValue("?", contract.ContractNo)
            cmd.Parameters.AddWithValue("?", contract.Title)
            cmd.Parameters.AddWithValue("?", contract.SignDate)
            cmd.Parameters.AddWithValue("?", contract.ClientName)
            cmd.Parameters.AddWithValue("?", contract.SupplierName)
            cmd.Parameters.AddWithValue("?", contract.Amount)
            cmd.Parameters.AddWithValue("?", contract.ValidUntil)
            cmd.Parameters.AddWithValue("?", contract.Status)
            cmd.Parameters.AddWithValue("?", contract.Remarks)
            conn.Open()
            cmd.ExecuteNonQuery()
        End Using
    End Using
End Sub

查询合同列表：

Public Function GetAllContracts() As List(Of Contract)
    Dim contracts As New List(Of Contract)
    Using conn As New OleDbConnection(connectionString)
        Dim sql As String = "SELECT * FROM Contracts ORDER BY SignDate DESC"
        Using cmd As New OleDbCommand(sql, conn)
            conn.Open()
            Using reader As OleDbDataReader = cmd.ExecuteReader()
                While reader.Read()
                    contracts.Add(New Contract With {
                        .ID = CInt(reader("ID")),
                        .ContractNo = reader("ContractNo").ToString(),
                        .Title = reader("Title").ToString(),
                        .SignDate = DateTime.Parse(reader("SignDate")),
                        .ClientName = reader("ClientName").ToString(),
                        .SupplierName = reader("SupplierName").ToString(),
                        .Amount = CDbl(reader("Amount")),
                        .ValidUntil = DateTime.Parse(reader("ValidUntil")),
                        .Status = reader("Status").ToString(),
                        .Remarks = reader("Remarks").ToString()
                    })
                End While
            End Using
        End Using
    End Using
    Return contracts
End Function

3. 界面控件绑定与事件处理

在主窗体中放置DataGridView显示合同列表，设置DataSource为上述GetAllContracts()返回的数据集合。点击行时更新编辑框内容：

Private Sub dgvContracts_SelectionChanged(sender As Object, e As EventArgs) Handles dgvContracts.SelectionChanged
    If dgvContracts.SelectedRows.Count > 0 Then
        Dim row As DataGridViewRow = dgvContracts.SelectedRows(0)
        txtContractNo.Text = row.Cells("ContractNo").Value.ToString()
        txtTitle.Text = row.Cells("Title").Value.ToString()
        ' ... 其他字段赋值
    End If
End Sub

4. 文件上传与附件存储逻辑

利用OpenFileDialog选择本地文件，保存至指定目录（如App_Data\Attachments），并将路径存入数据库：

Private Sub btnUpload_Click(sender As Object, e As EventArgs) Handles btnUpload.Click
    Dim openFileDialog As New OpenFileDialog()
    If openFileDialog.ShowDialog() = DialogResult.OK Then
        Dim fileName As String = Path.GetFileName(openFileDialog.FileName)
        Dim targetPath As String = Path.Combine(Application.StartupPath, "Attachments", fileName)
        File.Copy(openFileDialog.FileName, targetPath, True)
        txtFilePath.Text = targetPath
    End If
End Sub

5. 提醒功能实现（定时任务）

可通过Timer控件每小时扫描一次数据库，判断是否有合同将在未来7日内到期：

Private Sub tmrReminder_Tick(sender As Object, e As EventArgs) Handles tmrReminder.Tick
    Dim today As DateTime = DateTime.Today
    Dim nextWeek As DateTime = today.AddDays(7)
    
    Using conn As New OleDbConnection(connectionString)
        Dim sql As String = "SELECT * FROM Contracts WHERE ValidUntil BETWEEN ? AND ? AND Status='生效'"
        Using cmd As New OleDbCommand(sql, conn)
            cmd.Parameters.AddWithValue("?", today)
            cmd.Parameters.AddWithValue("?", nextWeek)
            conn.Open()
            Using reader As OleDbDataReader = cmd.ExecuteReader()
                While reader.Read()
                    MessageBox.Show(String.Format("合同 {0} 即将到期，请及时处理！", reader("Title")))
                End While
            End Using
        End Using
    End Using
End Sub

五、进阶功能拓展建议

• 多用户权限管理：基于角色分配增删改查权限，避免误操作
• 日志记录：每次重要操作写入日志表，便于审计追踪
• 云端备份：定期将Access数据库同步到OneDrive或FTP服务器
• 移动端适配：考虑用VB.NET + Xamarin构建轻量级Android/iOS应用

六、常见问题与调试技巧

• “无法找到指定文件”错误：检查Access数据库路径是否正确，或改为相对路径（如Application.StartupPath + "\ContractDB.accdb"）
• 中文乱码：确保Access表字段编码为ANSI，VB代码页设为UTF-8
• 性能瓶颈：对大数据量（>1000条合同）建议分页加载，或引入SQL查询优化
• 异常处理：所有数据库操作包裹在Try-Catch块中，避免程序崩溃

七、总结

本系统采用VB + Access组合，适合预算有限但需要快速落地的中小型企业。它具备良好的扩展性，既可用于本地部署，也可通过简单的封装迁移到Web端（如ASP.NET）。虽然不如专业ERP系统强大，但在特定场景下足以替代手工表格，显著提升合同管理效率。开发者可根据业务需求灵活定制，是学习数据库应用开发的理想实践项目。