简介：本课程设计以VB 6.0和SQL数据库为基础，构建一个功能完整的人事管理系统，涵盖员工信息管理、工资计算、考勤记录、绩效考核及报表查询等核心模块。通过该项目实践，学生将掌握可视化编程、数据库设计与操作、前后端逻辑整合等关键技术，深入理解企业级信息系统开发流程，提升系统分析与项目实现能力，为后续从事信息化系统开发奠定坚实基础。
1. 人事管理系统需求分析与功能规划
在信息化管理日益普及的背景下，传统的人工人事管理模式已难以满足现代企业对效率与准确性的要求。本章从企业实际需求出发，明确系统服务对象为人力资源部门、管理层及普通员工，围绕员工信息管理、工资计算、考勤记录、绩效考核和数据报表五大核心业务展开分析。通过调研典型组织架构与管理流程，提炼出功能性需求（如增删改查、联动计算）与非功能性需求（如安全性、可扩展性），并据此进行模块化规划，构建以员工信息为核心，工资、考勤、考核三大模块协同运作的功能框架，为后续系统设计与开发奠定坚实基础。
2. VB 6.0可视化界面设计与事件驱动编程
在企业级应用开发中，用户界面不仅是系统功能的展示窗口，更是人机交互的核心通道。特别是在20世纪末至21世纪初广泛使用的 Visual Basic 6.0（简称 VB 6.0）环境下，其强大的可视化设计能力和简洁高效的事件驱动模型为快速构建桌面应用程序提供了坚实基础。本章将深入探讨如何利用 VB 6.0 实现一个结构清晰、响应灵敏的人事管理系统前端界面，并结合实际业务场景解析其背后的编程机制。
随着人事管理系统的复杂度提升，仅靠静态的数据录入已无法满足需求，必须通过精心设计的界面布局和动态的事件响应来增强用户体验。从窗体创建到控件组织，从菜单导航到多窗体跳转，再到核心的事件处理逻辑，每一个环节都直接影响系统的可用性与可维护性。尤其在面向非技术人员的操作环境中，良好的界面设计能够显著降低培训成本并减少误操作概率。
更为关键的是，VB 6.0 所采用的“事件驱动”编程范式彻底改变了传统过程式程序的执行流程。它不再依赖于线性的代码执行顺序，而是以用户行为（如点击按钮、输入文本）作为触发点，激活相应的事件处理过程。这种机制使得程序具备高度的交互性和灵活性，特别适合用于实现具有频繁用户输入和状态变化的应用模块，例如员工信息录入、工资调整确认等操作密集型任务。
此外，界面与后台逻辑的有效整合是确保系统稳定运行的关键。如何在保证界面美观的同时，实现数据验证、错误提示、状态反馈等功能，成为开发者必须面对的技术挑战。本章将以员工信息管理模块为例，逐步演示从界面搭建到事件绑定，再到逻辑控制的完整实现路径，帮助读者掌握 VB 6.0 在真实项目中的工程化应用方法。
2.1 VB 6.0开发环境与窗体设计基础
Visual Basic 6.0 自1998年发布以来，凭借其直观的图形化开发环境和易于上手的语言特性，迅速成为中小企业管理系统开发的主流工具之一。尽管如今已被 .NET 平台所取代，但在遗留系统维护与教学实践中仍具有重要价值。理解其开发环境结构与基本设计原则，是构建高效、可扩展界面的前提。
2.1.1 集成开发环境（IDE）布局与项目结构
VB 6.0 的集成开发环境由多个组件构成，主要包括： 菜单栏、工具栏、工具箱（Toolbox）、属性窗口（Properties Window）、工程资源管理器（Project Explorer）、窗体设计器（Form Designer）和代码编辑器（Code Editor） 。这些组件协同工作，支持开发者进行拖放式界面设计与事件编码。
启动 VB 6.0 后，首先需选择项目类型。对于人事管理系统，通常选用“标准 EXE”项目模板，该模板默认包含一个初始窗体（Form1），可用于主登录界面或主菜单界面。整个项目的文件结构如下表所示：
| 文件类型 | 扩展名 | 说明 |
|---|---|---|
| 工程文件 | .vbp | 包含项目配置、引用库、启动对象等元信息 |
| 窗体文件 | .frm | 存储窗体的布局、控件及其关联的事件代码 |
| 模块文件 | .bas | 存放公共函数、全局变量等共享代码 |
| 类模块 | .cls | 定义自定义类，用于封装业务逻辑 |
| 资源文件 | .frx | 存储二进制资源，如图片、控件集合等 |
工程资源管理器以树形结构展示所有模块和窗体，便于组织大型项目。建议在开发初期即建立合理的命名规范，如 frmEmployeeInfo 表示员工信息窗体， modDataAccess 表示数据访问模块，避免后期维护困难。
' 示例：在模块中定义全局变量
Public gConnectionString As String
Public gCurrentUserID As Integer
上述代码定义了两个公共变量，分别用于存储数据库连接字符串和当前登录用户ID。这类全局状态应在 Sub Main() 过程中初始化，或在第一个加载的窗体 Form_Load 事件中设置。
逻辑分析 ：
-Public关键字表示变量在整个项目范围内可访问；
- 将连接字符串设为全局有助于统一管理数据库配置；
- 使用前缀g标识全局变量，符合 VB 开发惯例，提高代码可读性。
2.1.2 窗体（Form）的创建与属性设置
窗体是 VB 应用程序的基本容器，所有用户交互均发生在其内部。右键单击工程资源管理器，选择“添加窗体”即可新建一个 .frm 文件。每个窗体都有大量可通过属性窗口修改的属性，其中最关键的包括：
-
Name：窗体的编程标识符，不能包含空格或特殊字符； -
Caption：显示在标题栏上的名称； -
BorderStyle：决定窗体是否可调整大小（如1-Fixed Single或3-Dialog）； -
StartPosition：控制窗体启动位置（如屏幕居中）； -
WindowState：初始状态（正常、最小化、最大化）； -
BackColor/ForeColor：背景与前景颜色； -
Font：字体样式，影响整体视觉风格。
以下是一个典型员工信息录入窗体的初始化设置代码：
Private Sub Form_Load()
Me.Caption = "员工信息录入"
Me.StartUpPosition = 2 ' 屏幕居中
Me.BorderStyle = 1 ' 固定单边框
Me.BackColor = RGB(240, 248, 255) ' 浅蓝色背景
txtEmpID.Enabled = False ' 编号自动生成，禁止手动修改
End Sub
逻辑分析 ：
-Me指代当前窗体对象；
-StartUpPosition = 2对应枚举值vbCenterScreen，使窗体居中显示；
-txtEmpID.Enabled = False锁定文本框，防止用户篡改系统生成字段；
- 此类初始化逻辑应集中于Form_Load事件，确保每次加载时一致。
2.1.3 常用控件介绍：标签、文本框、按钮、列表框等
VB 6.0 提供丰富的内置控件，以下是人事管理系统中最常用的几种：
| 控件名称 | 常用用途 | 关键属性 |
|---|---|---|
| Label | 显示静态文本（如“姓名：”） | Caption, Alignment, ForeColor |
| TextBox | 输入/显示文本数据 | Text, MaxLength, PasswordChar, Locked |
| CommandButton | 触发操作（如“保存”、“取消”） | Caption, Enabled, Default, Cancel |
| ComboBox | 下拉选择（如部门、职位） | List, ListIndex, Text, Style |
| ListBox | 多项选择或数据显示 | List, ListIndex, MultiSelect |
| Frame | 分组控件（逻辑分区） | Caption |
| OptionButton | 单选按钮（性别选择） | Value (True/False) |
| CheckBox | 复选框（是否在职） | Value (0:Unchecked, 1:checked, 2:Grayed) |
下面是一个完整的员工信息输入区域的设计示例：
' 在窗体上添加以下控件并设置 Name 属性
' lblName, txtName, lblDept, cboDept, cmdSave, cmdCancel
Private Sub cmdSave_Click()
If Trim(txtName.Text) = "" Then
MsgBox "请输入员工姓名！", vbExclamation, "提示"
txtName.SetFocus
Exit Sub
End If
If cboDept.ListIndex = -1 Then
MsgBox "请选择所属部门！", vbExclamation, "提示"
Exit Sub
End If
Call SaveEmployeeRecord
MsgBox "员工信息保存成功！", vbInformation, "完成"
End Sub
逻辑分析 ：
-Trim()函数去除前后空格，防止无效输入；
-ListIndex = -1表示未选择任何项；
-SetFocus方法将光标定位到出错字段，提升用户体验；
-Exit Sub提前终止过程，避免继续执行；
-Call关键字调用外部子程序SaveEmployeeRecord，实现职责分离。
graph TD
A[用户点击"保存"按钮] --> B{姓名是否为空?}
B -- 是 --> C[弹出警告消息]
B -- 否 --> D{部门是否已选?}
D -- 否 --> E[提示选择部门]
D -- 是 --> F[调用保存函数]
F --> G[显示成功提示]
该流程图展示了按钮点击后的完整判断路径，体现了事件驱动下条件分支的典型结构。通过合理使用控件与事件组合，可以构建出既安全又友好的用户界面。
3. SQL数据库设计与员工信息表构建
在现代企业信息系统中，数据是驱动业务运转的核心资源。一个结构合理、设计严谨的数据库不仅能保障数据的一致性与完整性，还能显著提升系统的查询效率与维护便利性。对于人事管理系统而言，其核心在于对“人”的全生命周期管理——从入职、调岗、考勤记录到薪酬计算和绩效评估，所有流程均依赖于底层数据的支持。因此，构建一个科学、可扩展且符合业务逻辑的数据库体系，是系统成功实施的关键前提。
本章将围绕人事管理系统的数据存储需求，深入探讨关系型数据库的设计原理，并以员工信息为核心展开数据库的逻辑建模与物理实现。通过引入E-R模型进行实体关系分析，结合范式理论优化表结构，确保数据冗余最小化的同时保持高度可用性。随后，基于实际应用场景完成工资、考勤、考核等关联表的设计，并明确主键、外键及约束条件的应用策略。最终，使用SQL语句在Access或SQL Server环境中完成数据库的创建、索引设置以及测试数据填充，为后续的数据访问与模块开发提供坚实支撑。
3.1 数据库设计理论基础
数据库设计并非简单的“建几张表”，而是一个系统工程，涉及数据抽象、结构组织、完整性保障与性能优化等多个层面。只有建立在扎实理论基础上的设计，才能应对未来业务扩展带来的挑战。本节将从关系型数据库的基本概念出发，逐步深入至范式理论与E-R建模方法，帮助开发者建立起结构化思维模式。
3.1.1 关系型数据库基本概念与范式理论
关系型数据库（Relational Database）由埃德加·科德（E.F. Codd）于1970年提出，其核心思想是将数据组织成二维表格形式，即“关系”（Relation），每个表由行（元组）和列（属性）构成。这种结构天然具备良好的数学基础，支持复杂的集合运算与逻辑推理，广泛应用于企业管理、金融交易等领域。
在人事管理系统中，每一个员工的信息都可以视为一个元组，包含姓名、工号、部门、职位、入职时间等多个属性，这些共同组成“员工信息表”。但若仅停留在“有表就行”的层次，则极易导致数据异常——如插入异常（无法单独添加部门）、更新异常（修改某字段需多处同步）、删除异常（删员工误删部门信息）等问题。
为解决上述问题，数据库规范化（Normalization）理论应运而生。它通过一系列“范式”（Normal Form）来指导表结构的设计，目标是消除数据冗余并保证数据一致性。常用的范式包括：
| 范式等级 | 核心要求 |
|---|---|
| 第一范式（1NF） | 所有属性都必须是原子性的，不可再分；每列只含单一值 |
| 第二范式（2NF） | 满足1NF，且所有非主属性完全依赖于整个主键（消除部分依赖） |
| 第三范式（3NF） | 满足2NF，且非主属性之间不存在传递依赖 |
| BCNF（Boyce-Codd范式） | 更强的3NF变体，确保每一个决定因素都是候选键 |
举例说明：假设初始设计中存在一张宽表 EmployeeDetail 包含以下字段：
CREATE TABLE EmployeeDetail (
EmpID CHAR(6),
Name VARCHAR(50),
DeptName VARCHAR(50),
DeptManager VARCHAR(50),
Salary DECIMAL(10,2)
);
此处存在明显的问题： DeptName 和 DeptManager 属于部门级信息，多个员工共享同一部门时会造成重复存储（冗余）。当某部门更换经理时，必须批量更新所有相关员工记录，否则会出现不一致。这违反了2NF和3NF原则。
正确的做法是将其拆分为两个表： Employees 与 Departments ，并通过外键关联：
CREATE TABLE Departments (
DeptID INT PRIMARY KEY,
DeptName VARCHAR(50) NOT NULL UNIQUE,
ManagerName VARCHAR(50)
);
CREATE TABLE Employees (
EmpID CHAR(6) PRIMARY KEY,
Name VARCHAR(50),
DeptID INT FOREIGN KEY REFERENCES Departments(DeptID),
Salary DECIMAL(10,2),
HireDate DATE
);
这样设计后，部门信息只存一次，修改只需操作一行；同时通过 DeptID 实现引用，既节省空间又增强一致性。此过程体现了从非规范到第三范式的演进路径。
规范化权衡：性能 vs 可维护性
尽管高范式能减少冗余，但在某些高频查询场景下，过度拆分可能导致频繁连接（JOIN），影响性能。例如，在每次显示员工列表时都需要联查部门名称。此时可适度反规范化（Denormalization），如在 Employees 表中冗余 DeptName 字段，以换取查询速度提升。但必须清楚代价：需要额外机制（如触发器或应用层逻辑）来同步冗余字段。
因此，数据库设计应在规范化与实用性之间取得平衡，通常建议至少达到3NF，再根据具体查询负载做局部调整。
3.1.2 E-R模型设计与实体关系映射
实体-关系模型（Entity-Relationship Model，简称E-R模型）是由Peter Chen提出的用于描述现实世界数据结构的图形化工具。它通过“实体”、“属性”和“关系”三个基本元素，将复杂的业务需求转化为清晰的数据库蓝图。
在人事管理系统中，主要实体包括：
- Employee（员工） ：拥有工号、姓名、性别、出生日期、身份证号、联系方式、所属部门、岗位、薪资等级等属性。
- Department（部门） ：包含部门编号、名称、负责人、成立时间等。
- Attendance（考勤） ：记录每日出勤状态，如上班时间、下班时间、迟到、早退、请假类型等。
- Salary（工资） ：包含基本工资、津贴、扣款、实发金额、发放月份等。
- Performance（绩效） ：涵盖考核周期、评分、评语、考核人等。
这些实体之间的关系如下图所示（Mermaid流程图）：
erDiagram
EMPLOYEE ||--o{ DEPARTMENT : "belongs to"
EMPLOYEE ||--o{ ATTENDANCE : "has"
EMPLOYEE ||--o{ SALARY : "receives"
EMPLOYEE ||--o{ PERFORMANCE : "undergoes"
EMPLOYEE {
string EmpID PK
string Name
string Gender
date BirthDate
string IDCard
string Phone
int DeptID FK
string Position
}
DEPARTMENT {
int DeptID PK
string DeptName
string Manager
}
ATTENDANCE {
int RecordID PK
string EmpID FK
date WorkDate
datetime CheckIn
datetime CheckOut
string Status
}
SALARY {
int PayID PK
string EmpID FK
int MonthYear
decimal BasicSalary
decimal Allowance
decimal Deduction
decimal NetPay
}
PERFORMANCE {
int EvalID PK
string EmpID FK
int YearQuarter
int Score
string Comment
string Assessor
}
该E-R图清晰表达了各实体间的联系类型：
- 员工与部门之间是一对多（1:N）关系，即一个部门可有多名员工，但每名员工只能属于一个部门；
- 员工与考勤、工资、绩效均为一对多关系，表示每位员工可有多条历史记录；
- 所有子表均通过
EmpID或DeptID与主表建立外键连接，形成树状依赖结构。
通过E-R建模，不仅可以避免遗漏关键实体或关系，还便于团队成员理解整体架构，为后续表结构定义打下坚实基础。
3.1.3 主键、外键与约束条件的作用
数据库中的约束（Constraint）是用来强制执行数据完整性和一致性的规则机制。常见的约束类型包括主键约束、外键约束、唯一性约束、检查约束和默认值约束。
主键（Primary Key）
主键用于唯一标识表中的每一行数据，具有两大特性： 唯一性 （Unique）和 非空性 （Not Null）。在人事系统中，员工表的主键通常选择 EmpID （员工编号），而非姓名，因为姓名可能存在重复。
ALTER TABLE Employees ADD CONSTRAINT PK_EmpID PRIMARY KEY (EmpID);
主键自动创建唯一索引，极大提升基于该字段的查询效率。此外，主键也是其他表建立外键引用的基础。
外键（Foreign Key）
外键用于建立表与表之间的链接，实现参照完整性（Referential Integrity）。例如，在 Attendances 表中添加 EmpID 作为外键，指向 Employees 表的主键，确保每条考勤记录对应的员工真实存在。
ALTER TABLE Attendances
ADD CONSTRAINT FK_Attendance_EmpID
FOREIGN KEY (EmpID) REFERENCES Employees(EmpID)
ON DELETE CASCADE
ON UPDATE CASCADE;
上述语句中， ON DELETE CASCADE 表示当某个员工被删除时，其所有考勤记录也将自动清除； ON UPDATE CASCADE 则保证员工编号变更时，相关子表数据同步更新。这一机制有效防止了“孤儿记录”的产生。
其他约束示例
-- 添加唯一约束：防止重复手机号
ALTER TABLE Employees ADD CONSTRAINT UQ_Phone UNIQUE (Phone);
-- 添加检查约束：限制性别只能为'男'或'女'
ALTER TABLE Employees ADD CONSTRAINT CK_Gender CHECK (Gender IN ('男','女'));
-- 设置默认值：入职日期默认为当前系统日期
ALTER TABLE Employees ADD CONSTRAINT DF_HireDate DEFAULT GETDATE() FOR HireDate;
这些约束不仅提升了数据质量，也减少了应用程序端的校验负担，使数据库本身成为第一道防线。
3.2 人事管理数据库逻辑结构设计
完成理论准备后，下一步是将抽象模型转化为具体的表结构设计。本节将详细定义各核心表的字段、类型、长度、默认值及业务含义，确保每一项设计都能准确反映现实业务规则。
3.2.1 员工基本信息表结构设计（字段类型、长度、默认值）
员工信息表是整个系统的核心枢纽，其他模块均以其为基础进行关联查询。以下是推荐的 Employees 表设计方案：
CREATE TABLE Employees (
EmpID CHAR(6) PRIMARY KEY, -- 员工编号，格式E00001
Name NVARCHAR(20) NOT NULL, -- 姓名，支持中文
Gender NCHAR(1) CHECK (Gender IN (N'男', N'女')), -- 性别
BirthDate DATE, -- 出生日期
IDCard CHAR(18) UNIQUE, -- 身份证号，唯一
Phone VARCHAR(15), -- 手机号
Email VARCHAR(50), -- 邮箱
DeptID INT NOT NULL, -- 所属部门ID
Position NVARCHAR(30), -- 职位
HireDate DATE DEFAULT GETDATE(), -- 入职日期，默认当前日期
Status TINYINT DEFAULT 1 -- 状态：1在职，2离职，3试用
);
参数说明与设计考量：
| 字段名 | 类型 | 是否可空 | 约束/默认值 | 说明 |
|---|---|---|---|---|
EmpID | CHAR(6) | 否 | 主键 | 固定长度便于排序和索引，前缀’E’代表Employee |
Name | NVARCHAR(20) | 否 | 无 | 使用Unicode类型支持中文姓名 |
Gender | NCHAR(1) | 是 | CHECK约束 | 明确限定取值范围，避免非法输入 |
BirthDate | DATE | 是 | 无 | 仅保留日期部分，无需时间 |
IDCard | CHAR(18) | 是 | UNIQUE | 身份证唯一，可用于身份验证 |
Phone | VARCHAR(15) | 是 | 无 | 支持国际号码格式 |
Email | VARCHAR(50) | 是 | 无 | 用于系统通知发送 |
DeptID | INT | 否 | 外键 | 引用 Departments 表 |
Position | NVARCHAR(30) | 是 | 无 | 记录具体职务名称 |
HireDate | DATE | 是 | DEFAULT GETDATE() | 自动填入录入当天日期 |
Status | TINYINT | 是 | DEFAULT 1 | 数值编码便于程序判断 |
注：
GETDATE()是SQL Server函数，Access中对应为NOW()。
此设计兼顾了数据完整性、易用性与扩展性，适合作为系统主表长期使用。
3.2.2 工资表、考勤表、考核表的关联设计
为了支持跨模块联动，必须明确定义各辅助表的结构及其与员工表的关系。
工资表（Salaries）
CREATE TABLE Salaries (
PayID INT IDENTITY(1,1) PRIMARY KEY, -- 自增主键
EmpID CHAR(6) FOREIGN KEY REFERENCES Employees(EmpID),
PayMonth INT NOT NULL, -- 年月，格式YYYYMM
BasicSalary DECIMAL(10,2) NOT NULL,
OvertimePay DECIMAL(10,2) DEFAULT 0,
Bonus DECIMAL(10,2) DEFAULT 0,
Deduction DECIMAL(10,2) DEFAULT 0,
NetPay AS (BasicSalary + OvertimePay + Bonus - Deduction) PERSISTED,
Paid BIT DEFAULT 0, -- 是否已发放
CreateTime DATETIME DEFAULT GETDATE()
);
-
NetPay使用计算列（Computed Column），自动得出实发工资； -
PERSISTED表示该值会被物理存储，提高查询效率； -
PayMonth采用整数形式存储年月，便于范围查询（如BETWEEN 202401 AND 202412）。
考勤表（Attendances）
CREATE TABLE Attendances (
RecordID INT IDENTITY(1,1) PRIMARY KEY,
EmpID CHAR(6) FOREIGN KEY REFERENCES Employees(EmpID),
WorkDate DATE NOT NULL,
CheckIn TIME, -- 上班打卡时间
CheckOut TIME, -- 下班打卡时间
Status NVARCHAR(10) DEFAULT N'正常', -- 正常/迟到/早退/缺勤/请假
LeaveType NVARCHAR(10) NULL, -- 事假/病假/年假等
Remarks NVARCHAR(100), -- 备注
CONSTRAINT UQ_DailyRecord UNIQUE (EmpID, WorkDate)
);
-
UNIQUE (EmpID, WorkDate)确保每人每天最多一条记录； -
TIME类型精确到秒，适用于打卡系统； -
LeaveType为空时表示未请假。
绩效表（Performances）
CREATE TABLE Performances (
EvalID INT IDENTITY(1,1) PRIMARY KEY,
EmpID CHAR(6) FOREIGN KEY REFERENCES Employees(EmpID),
YearQuarter INT NOT NULL, -- 如20241表示2024年第1季度
Score TINYINT CHECK (Score BETWEEN 0 AND 100),
Level AS CASE
WHEN Score >= 90 THEN N'优秀'
WHEN Score >= 80 THEN N'良好'
WHEN Score >= 70 THEN N'合格'
ELSE N'待改进'
END PERSISTED,
Comment NVARCHAR(200),
Assessor NVARCHAR(20), -- 考核人
EvalDate DATE DEFAULT GETDATE()
);
-
YearQuarter采用整数编码，便于归档与统计； -
Level为计算列，自动生成评级结果； -
CHECK约束确保分数在合理区间。
3.2.3 表间关系建立与参照完整性保障
通过外键约束，可以确保数据在跨表操作时保持一致。例如：
-- 建立部门与员工的外键关系
ALTER TABLE Employees
ADD CONSTRAINT FK_Employee_DeptID
FOREIGN KEY (DeptID) REFERENCES Departments(DeptID);
-- 开启级联删除（谨慎使用）
ALTER TABLE Employees
DROP CONSTRAINT FK_Employee_DeptID;
ALTER TABLE Employees
ADD CONSTRAINT FK_Employee_DeptID
FOREIGN KEY (DeptID) REFERENCES Departments(DeptID)
ON DELETE SET NULL; -- 删除部门时，员工部门设为空，而非删除员工
相较于 CASCADE ， SET NULL 更安全，避免误删核心人员信息。
此外，可通过视图整合常用查询：
CREATE VIEW EmployeeSummary AS
SELECT
e.EmpID,
e.Name,
d.DeptName,
e.Position,
e.HireDate,
s.NetPay AS LastSalary
FROM Employees e
LEFT JOIN Departments d ON e.DeptID = d.DeptID
LEFT JOIN (
SELECT EmpID, MAX(PayMonth) AS MaxMonth
FROM Salaries GROUP BY EmpID
) sm ON e.EmpID = sm.EmpID
LEFT JOIN Salaries s ON sm.EmpID = s.EmpID AND sm.MaxMonth = s.PayMonth;
该视图返回每位员工的最新薪资摘要，简化前端展示逻辑。
3.3 使用SQL Server或Access实现数据库构建
完成逻辑设计后，需在具体数据库平台中落地实现。本节以SQL Server为例演示建库全过程，亦兼容Access语法差异说明。
3.3.1 数据库的创建与表的物理实现
在SQL Server Management Studio（SSMS）中执行以下脚本：
-- 创建数据库
CREATE DATABASE HRSystem;
GO
USE HRSystem;
-- 创建部门表
CREATE TABLE Departments (
DeptID INT IDENTITY(1,1) PRIMARY KEY,
DeptName NVARCHAR(50) NOT NULL UNIQUE,
Manager NVARCHAR(20),
Established DATE DEFAULT GETDATE()
);
-- 创建员工表（略，见上文）
-- 创建工资、考勤、绩效表（略）
在Access中可通过图形界面创建表，或使用DAO/SQl命令导入结构。
3.3.2 使用SQL语句完成建表与索引优化
为提升查询性能，应在经常用于搜索或连接的字段上建立索引：
-- 在员工姓名上建立非聚集索引
CREATE NONCLUSTERED INDEX IX_Employees_Name ON Employees(Name);
-- 在考勤表的工作日期上建立索引
CREATE NONCLUSTERED INDEX IX_Attendances_WorkDate ON Attendances(WorkDate);
-- 复合索引：按部门+状态查询在职员工
CREATE NONCLUSTERED INDEX IX_Employees_Dept_Status
ON Employees(DeptID, Status) INCLUDE (Name, Position);
复合索引利用最左匹配原则，适合 WHERE DeptID = 1 AND Status = 1 类型查询； INCLUDE 子句将额外字段包含在索引页中，减少回表次数。
3.3.3 初始测试数据的插入与维护
插入示例数据用于功能验证：
INSERT INTO Departments (DeptName, Manager) VALUES
(N'人力资源部', N'张伟'),
(N'技术部', N'李强'),
(N'财务部', N'王芳');
INSERT INTO Employees (EmpID, Name, Gender, BirthDate, IDCard, Phone, DeptID, Position, Status)
VALUES
('E00001', N'赵敏', '女', '1990-05-12', '110101199005123456', '13800138001', 1, N'HR专员', 1),
('E00002', N'钱程', '男', '1988-03-22', '110101198803223457', '13800138002', 2, N'Java开发工程师', 1);
INSERT INTO Salaries (EmpID, PayMonth, BasicSalary, Bonus, Deduction)
VALUES ('E00001', 202404, 8000, 1000, 500); -- 实发8500
可通过查询验证数据正确性：
SELECT * FROM EmployeeSummary WHERE Name LIKE N'%赵%';
输出预期结果包含员工姓名、部门、职位及最新工资。
3.4 数据字典与数据库文档编制
良好的文档是系统可持续发展的保障。数据字典应详细记录每个字段的业务含义、来源、更新频率等。
3.4.1 字段说明与业务含义注释
| 表名 | 字段名 | 中文名 | 数据类型 | 是否必填 | 示例值 | 说明 |
|---|---|---|---|---|---|---|
| Employees | EmpID | 员工编号 | CHAR(6) | 是 | E00001 | 自动生成，前缀E |
| Employees | Status | 在职状态 | TINYINT | 是 | 1 | 1:在职 2:离职 3:试用 |
| Salaries | PayMonth | 发薪年月 | INT | 是 | 202404 | YYYYMM格式 |
| Attendances | Status | 出勤状态 | NVARCHAR(10) | 是 | 迟到 | 枚举值控制 |
建议使用Excel或专用工具（如PowerDesigner）生成正式文档，并随版本迭代更新。
3.4.2 数据库备份与安全策略初步设定
定期备份是防范数据丢失的根本措施。可在SQL Server中配置维护计划：
-- 手动备份命令
BACKUP DATABASE HRSystem TO DISK = 'D:\Backup\HRSystem_20240405.bak';
-- 设置自动备份作业（通过SQL Agent）
同时启用登录审计、限制sa账户使用、分配角色权限（如db_datareader/db_datawriter），确保最小权限原则。
综上所述，本章从理论到实践全面阐述了人事管理系统数据库的设计与实现路径。通过规范化建模、E-R图绘制、约束设置与索引优化，构建了一个稳健、高效且易于维护的数据基础，为后续VB前端开发提供了可靠支撑。
4. 员工信息管理模块实现（增删改查）
在现代企业信息化系统中，员工信息管理是人事管理系统的核心基础模块。该模块承担着组织内所有人力资源数据的录入、维护、查询与更新任务，其稳定性、准确性与响应效率直接影响到后续工资计算、考勤分析和绩效考核等业务流程的正常运行。本章将围绕VB 6.0平台与关系型数据库（如Access或SQL Server）的集成应用，深入探讨如何通过ADO数据访问技术实现完整的“增删改查”功能体系。从底层连接配置到前端界面交互，再到异常处理机制的设计，逐步构建一个具备高可用性与良好用户体验的信息管理子系统。
本章内容不仅关注功能实现的技术路径，更强调系统设计中的可维护性与安全性考量。例如，在执行关键操作时引入事务控制以防止数据不一致；在用户界面层面提供确认提示与日志追踪，增强系统的审计能力；同时通过对DataGrid控件的数据绑定优化展示性能，提升大规模员工列表的浏览体验。整个模块开发过程体现了前后端协同、数据驱动与事件响应相结合的编程思想。
4.1 数据访问技术选型与连接配置
员工信息管理模块的首要前提是建立稳定可靠的数据通道，使VB应用程序能够与后端数据库进行高效通信。为此，必须选择合适的数据访问技术并完成正确的连接配置。在VB 6.0时代，最主流且功能强大的数据访问方式是使用 ADO（ActiveX Data Objects）对象模型 ，它提供了简洁而灵活的接口来操作各种类型的数据库。
4.1.1 ADO对象模型简介：Connection、Recordset、Command
ADO是Microsoft推出的用于OLE DB服务的一组高层COM接口，广泛应用于Visual Basic、ASP等旧版开发环境中。其核心对象包括 Connection 、 Recordset 和 Command ，三者协同工作，构成完整的数据库操作链条。
- Connection对象 ：负责建立与数据库的物理连接。通过设置连接字符串（ConnectionString），指定数据源类型、路径、用户名、密码等参数。
- Command对象 ：用于封装SQL命令或存储过程，支持带参数的查询与执行。
- Recordset对象 ：表示查询结果集，可用于遍历、编辑、添加或删除记录，并支持立即更新回数据库。
下面是一个典型的ADO初始化代码片段：
Dim conn As ADODB.Connection
Dim rs As ADODB.Recordset
Set conn = New ADODB.Connection
Set rs = New ADODB.Recordset
' 打开数据库连接
conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\HRSystem\HR.mdb;"
conn.Open
' 查询员工表
rs.Open "SELECT * FROM Employees", conn, adOpenDynamic, adLockOptimistic
逻辑分析与参数说明 ：
- 第1–2行：声明两个对象变量，分别用于管理连接和结果集。
New ADODB.Connection：创建一个新的Connection实例，确保每次操作都拥有独立连接上下文。ConnectionString中"Provider=Microsoft.Jet.OLEDB.4.0"表示使用OLE DB提供程序访问Access数据库；若为SQL Server，则应改为SQLOLEDB或SQLNCLI。Data Source=后接数据库文件完整路径，需确保运行环境有读写权限。rs.Open方法中：- 第一个参数为SQL语句；
- 第二个参数传入已打开的Connection对象；
adOpenDynamic指定游标类型为动态，允许实时反映其他用户的更改；adLockOptimistic表示乐观锁，仅在调用Update时加锁，适合多用户并发场景。
该结构为后续增删改查操作奠定了基础，体现了分层解耦的设计理念。
4.1.2 ODBC与OLE DB数据源配置方法
除了直接编写连接字符串外，还可以通过系统级数据源（DSN）方式进行连接，主要分为 ODBC（Open Database Connectivity） 和 OLE DB 两种方式。
| 连接方式 | 特点 | 适用场景 |
|---|---|---|
| ODBC DSN | 需预先在控制面板中配置数据源名称 | 多应用共享同一数据库连接 |
| OLE DB | 更底层，性能更高，无需DSN | 直接连接Access/SQL Server |
| 无DSN连接 | 连接字符串内嵌，便于部署 | 分发式桌面应用 |
以ODBC为例，配置步骤如下：
- 打开“控制面板 → 管理工具 → 数据源 (ODBC)”；
- 在“用户DSN”或“系统DSN”选项卡中点击“添加”；
- 选择驱动程序（如“Microsoft Access Driver (*.mdb)”）；
- 设置DSN名称（如
HRDB）、数据库路径； - 在VB中使用如下连接字符串：
conn.ConnectionString = "DSN=HRDB;UID=admin;PWD=;"
而使用OLE DB则更为灵活，尤其适用于非Access数据库。例如连接SQL Server：
conn.ConnectionString = _
"Provider=SQLOLEDB;" & _
"Data Source=localhost;" & _
"Initial Catalog=HRDatabase;" & _
"User ID=sa;" & _
"Password=mypassword;"
优势对比分析 ：
- 使用DSN的优点是连接信息集中管理，便于维护；
- 缺点是部署时需在每台机器上手动配置，不利于自动化分发；
- 推荐采用“无DSN + OLE DB”的方式，将连接信息写入配置文件（如
.ini或注册表），提高移植性。
4.1.3 连接字符串编写与数据库连接测试
连接字符串的质量直接决定系统能否成功访问数据库。以下为常见数据库的连接范例汇总：
| 数据库类型 | 示例连接字符串 |
|---|---|
| Microsoft Access (.mdb) | Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\HR.mdb; |
| Access ACCDB (2007+) | Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\HR.accdb; |
| SQL Server (本地) | Provider=SQLOLEDB;Data Source=.\SQLEXPRESS;Initial Catalog=HRDB;Integrated Security=SSPI; |
| SQL Server (账号密码) | Provider=SQLOLEDB;Data Source=192.168.1.100;Initial Catalog=HRDB;User ID=hruser;Password=hrpass; |
为了验证连接有效性，可设计一个简单的测试函数：
Public Function TestConnection() As Boolean
Dim conn As New ADODB.Connection
On Error GoTo ErrorHandler
conn.ConnectionString = GetConnectionString() ' 自定义函数获取字符串
conn.Open
If conn.State = adStateOpen Then
MsgBox "数据库连接成功！", vbInformation
TestConnection = True
Else
MsgBox "连接状态异常！"
TestConnection = False
End If
conn.Close
Exit Function
ErrorHandler:
MsgBox "连接失败：" & Err.Description, vbCritical
TestConnection = False
End Function
逐行解析 ：
- 使用
On Error GoTo实现基本错误捕获；GetConnectionString()可从配置文件读取，避免硬编码；conn.State判断是否处于打开状态（值为adStateOpen=1）；- 出错时跳转至
ErrorHandler标签，显示具体错误描述；- 最终返回布尔值供主程序判断。
此外，建议在系统启动时自动调用此函数，并在连接失败时阻止进一步操作，防止空指针异常。
flowchart TD
A[启动应用程序] --> B{是否需要连接数据库?}
B -->|是| C[加载连接字符串]
C --> D[尝试打开Connection]
D --> E{连接成功?}
E -->|是| F[初始化主界面]
E -->|否| G[弹出错误提示]
G --> H[记录日志并退出]
上述流程图清晰展示了连接初始化的决策路径，突出了健壮性设计的重要性。
4.2 增删改查功能的代码实现
员工信息管理的核心功能体现在对员工数据的全生命周期管理，即“增加、删除、修改、查询”四大操作（CRUD）。这些功能需结合前端界面控件与后端SQL语句协同完成，既要保证数据一致性，又要提供良好的交互反馈。
4.2.1 添加员工信息的界面交互与SQL插入语句执行
新增员工功能通常由一个独立窗体（如 frmAddEmployee ）承载，包含文本框输入各项基本信息（如姓名、工号、部门、职位、入职日期等），并通过“保存”按钮触发插入操作。
关键代码如下：
Private Sub cmdSave_Click()
Dim sql As String
Dim cmd As New ADODB.Command
' 校验必填字段
If Trim(txtEmpID.Text) = "" Or Trim(txtName.Text) = "" Then
MsgBox "工号和姓名不能为空！", vbExclamation
Exit Sub
End If
' 构造参数化SQL语句
sql = "INSERT INTO Employees (EmpID, Name, Department, Position, HireDate) " & _
"VALUES (?, ?, ?, ?, ?)"
With cmd
.ActiveConnection = GetGlobalConnection ' 全局连接对象
.CommandText = sql
.CommandType = adCmdText
' 添加参数防止SQL注入
.Parameters.Append .CreateParameter("EmpID", adVarChar, adParamInput, 20, txtEmpID.Text)
.Parameters.Append .CreateParameter("Name", adVarChar, adParamInput, 50, txtName.Text)
.Parameters.Append .CreateParameter("Department", adVarChar, adParamInput, 50, cboDept.Text)
.Parameters.Append .CreateParameter("Position", adVarChar, adParamInput, 50, txtPosition.Text)
.Parameters.Append .CreateParameter("HireDate", adDate, adParamInput, , dtpHireDate.Value)
On Error GoTo SaveError
.Execute ' 执行插入
MsgBox "员工信息添加成功！", vbInformation
ClearForm
End With
Exit Sub
SaveError:
MsgBox "保存失败：" & Err.Description, vbCritical
End Sub
逻辑详解与安全说明 ：
- 使用
Parameters集合实现参数化查询，有效防御SQL注入攻击；adParamInput表示输入参数；- 字段长度限制（如20、50）需与数据库定义保持一致；
dtpHireDate.Value获取日期控件值，自动转换为Date类型；Execute方法执行无返回结果的SQL语句；- 错误处理确保即使插入失败也不会崩溃；
- 成功后调用
ClearForm清空输入框，准备下一次录入。
该实现方式兼顾了功能性与安全性，符合企业级开发标准。
4.2.2 查询功能实现：模糊查询与条件筛选
查询功能是日常使用频率最高的操作之一。常见的需求包括按姓名模糊查找、按部门筛选、按工号精确匹配等。
实现方案如下：
Sub SearchEmployees(keyword As String, deptFilter As String)
Dim sql As String
Dim rs As New ADODB.Recordset
Dim conn As ADODB.Connection
Set conn = GetGlobalConnection
sql = "SELECT EmpID, Name, Department, Position, HireDate FROM Employees WHERE 1=1"
If keyword <> "" Then
sql = sql & " AND (Name LIKE '%" & Replace(keyword, "'", "''") & "%' " & _
"OR EmpID LIKE '%" & Replace(keyword, "'", "''") & "%')"
End If
If deptFilter <> "" Then
sql = sql & " AND Department = '" & Replace(deptFilter, "'", "''") & "'"
End If
rs.Open sql, conn, adOpenForwardOnly, adLockReadOnly
' 绑定到DataGrid
Set frmMain.grdEmployees.DataSource = rs
End Sub
参数解释与风险规避 ：
LIKE '%...%'实现模糊匹配；Replace(..., "'", "''")防止单引号引发语法错误（虽不如参数化安全，但在此处简化逻辑）；adOpenForwardOnly提升只读查询性能；- 结果集直接赋给DataGrid控件实现快速展示；
- 若追求更高安全性，建议改用Command+Parameters方式重构。
该查询模块支持组合条件过滤，极大提升了检索效率。
4.2.3 修改与删除操作的数据确认与事务处理
修改与删除属于高危操作，必须加入确认机制与事务保障。
修改示例（带事务）：
Sub UpdateEmployee(empID As String, newName As String)
Dim conn As ADODB.Connection
Set conn = GetGlobalConnection
On Error GoTo Rollback
conn.BeginTrans ' 开始事务
Dim sql As String
sql = "UPDATE Employees SET Name = ? WHERE EmpID = ?"
Dim cmd As New ADODB.Command
With cmd
.ActiveConnection = conn
.CommandText = sql
.CommandType = adCmdText
.Parameters.Append .CreateParameter("Name", adVarChar, adParamInput, 50, newName)
.Parameters.Append .CreateParameter("EmpID", adVarChar, adParamInput, 20, empID)
.Execute
End With
conn.CommitTrans ' 提交事务
MsgBox "更新成功！", vbOKOnly
Exit Sub
Rollback:
conn.RollbackTrans
MsgBox "更新失败：" & Err.Description, vbCritical
End Sub
删除操作（带用户确认）：
If MsgBox("确定要删除该员工吗？此操作不可恢复！", vbYesNo + vbQuestion) = vbYes Then
Dim sql As String: sql = "DELETE FROM Employees WHERE EmpID = '" & selectedID & "'"
conn.Execute sql, , adExecuteNoRecords
RefreshGrid
End If
事务机制价值 ：
- 当多个相关更新需同时成功或失败时（如修改员工信息的同时更新工资表），事务可确保原子性；
BeginTrans/CommitTrans/RollbackTrans构成完整事务控制块；- 即使某一步出错也能回滚到初始状态，避免脏数据产生。
4.3 数据绑定与动态显示
4.3.1 DataGrid控件绑定Recordset实现数据展示
VB 6.0中的 DataGrid 控件是数据显示的理想选择。通过将其 DataSource 属性绑定至 Recordset 对象，即可实现自动列生成与滚动浏览。
Dim rs As New ADODB.Recordset
rs.Open "SELECT EmpID, Name, Department FROM Employees", GetConn(), adOpenStatic, adLockReadOnly
Set DataGrid1.DataSource = rs
优点 ：
- 自动映射字段为列；
- 支持排序、选择、编辑（若可写）；
- 轻量级，适合中小型数据集。
4.3.2 实时刷新与状态同步机制
当其他用户修改数据后，本地视图应能及时更新。可通过定时器控件（Timer）轮询数据库变化：
Private Sub Timer1_Timer()
If NeedRefresh Then
LoadEmployeeList ' 重新加载
NeedRefresh = False
End If
End Sub
或监听Windows消息机制实现更高级的同步。
4.3.3 分页显示与性能优化技巧
对于大量员工数据（>1000条），一次性加载会影响性能。可采用分页查询：
-- SQL Server风格
SELECT TOP 20 * FROM Employees
WHERE EmpID NOT IN (
SELECT TOP 20*(PageNum-1) EmpID FROM Employees ORDER BY EmpID
) ORDER BY EmpID
或在VB中使用 AbsolutePosition 与 PageSize 模拟分页。
4.4 异常处理与操作日志记录
4.4.1 数据库连接失败与SQL执行错误捕获
统一使用 On Error GoTo 处理运行时异常：
On Error GoTo ErrorHandler
Exit Sub
ErrorHandler:
LogError "Module: EmployeeManager, Error: " & Err.Description
4.4.2 用户操作日志写入本地文件或日志表
Sub LogAction(user As String, action As String, details As String)
Dim fnum As Integer
fnum = FreeFile
Open "C:\Logs\action.log" For Append As #fnum
Print #fnum, Format(Now, "yyyy-mm-dd hh:nn:ss") & " | " & user & " | " & action & " | " & details
Close #fnum
End Sub
也可插入数据库日志表，便于审计分析。
classDiagram
class Employees {
+EmpID : String
+Name : String
+Department : String
+Position : String
+HireDate : Date
}
class ActionLog {
+LogID : Long
+UserID : String
+ActionType : String
+Details : String
+LogTime : DateTime
}
Employees "1" -- "0..*" ActionLog : 记录操作
该类图展示了员工与日志之间的关联关系，体现系统可追溯性设计。
5. 工资计算逻辑设计与工资表管理
5.1 工资构成分析与计算规则建模
现代企业薪酬体系通常由多个维度组成，合理建模工资结构是实现自动化计算的前提。在人事管理系统中，工资主要由以下几个核心要素构成：
- 基本工资 ：员工岗位对应的标准月薪。
- 岗位津贴 ：如交通补贴、通讯补贴、住房补贴等。
- 绩效奖金 ：基于绩效考核结果浮动发放的奖励。
- 考勤扣款 ：迟到、早退、旷工、请假等行为导致的工资扣除。
- 社保公积金代扣项 ：依法代缴的社会保险与住房公积金个人部分。
- 应发工资 = 基本工资 + 津贴 + 奖金
- 实发工资 = 应发工资 - 考勤扣款 - 社保公积金扣款 - 个税（简化模型中可暂不包含个税）
考勤影响工资的算法设计
考勤数据对工资的影响可通过以下方式量化：
' 示例：VB函数 计算考勤扣款
Public Function CalculateAttendanceDeduction(ByVal EmployeeID As String, ByVal Month As Integer) As Double
Dim rs As New ADODB.Recordset
Dim strSQL As String
Dim TotalWorkDays As Integer
Dim AbsentDays As Integer
Dim LateCount As Integer
Dim DeductPerDay As Double
Dim LatePenalty As Double
' 假设每月标准工作日为22天
TotalWorkDays = 22
DeductPerDay = GetBasicSalary(EmployeeID) / TotalWorkDays
LatePenalty = DeductPerDay * 0.1 ' 迟到一次扣10%的日薪
strSQL = "SELECT COUNT(*) FROM Attendance WHERE EmpID='" & EmployeeID & _
"' AND MONTH(AttDate)=" & Month & " AND Status='Absent'"
rs.Open strSQL, GetConnection
If Not rs.EOF Then AbsentDays = rs.Fields(0).Value
rs.Close
strSQL = "SELECT COUNT(*) FROM Attendance WHERE EmpID='" & EmployeeID & _
"' AND MONTH(AttDate)=" & Month & " AND Status='Late'"
rs.Open strSQL, GetConnection
If Not rs.EOF Then LateCount = rs.Fields(0).Value
rs.Close
CalculateAttendanceDeduction = AbsentDays * DeductPerDay + LateCount * LatePenalty
End Function
上述代码展示了如何从考勤表提取缺勤和迟到记录，并将其转化为具体的工资扣款金额。该函数可被工资计算主流程调用。
绩效与工资浮动关联机制
绩效考核结果通常分为等级（如A/B/C/D），每个等级对应不同的奖金系数：
| 绩效等级 | 奖金系数 |
|---|---|
| A | 1.5 |
| B | 1.2 |
| C | 1.0 |
| D | 0.6 |
通过外键 EmpID 关联员工与绩效表，在工资计算时动态读取当月绩效等级并乘以基准奖金。
5.2 工资计算模块的程序实现
5.2.1 数据提取与联动查询
工资计算需跨表整合信息，典型SQL语句如下：
-- 提取某月某员工的综合工资数据
SELECT
e.EmpID,
e.Name,
e.BasicSalary,
e.Allowance,
ISNULL(SUM(CASE WHEN a.Status='Absent' THEN 1 ELSE 0 END), 0) AS Absences,
ISNULL(SUM(CASE WHEN a.Status='Late' THEN 1 ELSE 0 END), 0) AS Lates,
ISNULL(p.Score, 75) AS PerformanceScore,
ISNULL(p.Rating, 'C') AS Rating
FROM Employees e
LEFT JOIN Attendance a ON e.EmpID = a.EmpID AND MONTH(a.AttDate) = 5
LEFT JOIN Performance p ON e.EmpID = p.EmpID AND p.EvalMonth = 5
WHERE e.EmpID = 'E001'
GROUP BY e.EmpID, e.Name, e.BasicSalary, e.Allowance, p.Score, p.Rating;
此查询将员工基本信息、当月考勤统计、绩效评级合并输出，作为工资计算输入源。
5.2.2 VB中的工资计算引擎实现
构建一个通用的 ComputeSalary 函数：
Public Sub ComputeSalary(ByVal EmpID As String, ByVal CalcMonth As Integer)
Dim rs As New ADODB.Recordset
Dim conn As ADODB.Connection
Set conn = GetConnection
Dim BasicSal As Double, Allowance As Double
Dim Absences As Integer, Lates As Integer
Dim PerfRating As String
Dim DailyWage As Double, Deduct As Double
Dim BonusRate As Double, BonusAmount As Double
Dim NetPay As Double
' 执行联合查询获取数据
Dim sql As String
sql = BuildSalaryQuery(EmpID, CalcMonth)
rs.Open sql, conn, adOpenForwardOnly, adLockReadOnly
If rs.EOF Then Exit Sub
With rs
BasicSal = .Fields("BasicSalary").Value
Allowance = .Fields("Allowance").Value
Absences = .Fields("Absences").Value
Lates = .Fields("Lates").Value
PerfRating = .Fields("Rating").Value
End With
rs.Close
' 日工资 = 基本工资 / 22
DailyWage = BasicSal / 22
Deduct = Absences * DailyWage + Lates * (DailyWage * 0.1)
' 绩效奖金映射
Select Case PerfRating
Case "A": BonusRate = 1.5
Case "B": BonusRate = 1.2
Case "C": BonusRate = 1.0
Case Else: BonusRate = 0.6
End Select
BonusAmount = BasicSal * BonusRate * 0.1 ' 奖金为基础工资的10%×系数
NetPay = BasicSal + Allowance + BonusAmount - Deduct
' 写入工资表
InsertIntoPayroll EmpID, CalcMonth, BasicSal, Allowance, BonusAmount, Deduct, NetPay, "Generated"
End Sub
该函数实现了从业务数据提取到最终工资写入的完整闭环。
5.2.3 批量生成工资条与汇总表
使用循环遍历所有在职员工执行批量计算：
Public Sub BatchGeneratePayroll(ByVal Month As Integer)
Dim rsEmp As New ADODB.Recordset
Dim conn As ADODB.Connection
Set conn = GetConnection
rsEmp.Open "SELECT EmpID FROM Employees WHERE Status='Active'", conn
Do While Not rsEmp.EOF
ComputeSalary rsEmp.Fields("EmpID").Value, Month
rsEmp.MoveNext
Loop
MsgBox "工资批量生成完成！共处理" & rsEmp.RecordCount & "名员工。"
rsEmp.Close
End Sub
同时生成部门级汇总报表用于财务核对：
-- 部门工资汇总
SELECT
e.Dept,
COUNT(*) AS EmployeeCount,
SUM(p.NetPay) AS TotalNetPay,
AVG(p.NetPay) AS AvgNetPay
FROM Payroll p
JOIN Employees e ON p.EmpID = e.EmpID
WHERE p.PayMonth = 5
GROUP BY e.Dept;
5.3 工资表存储与数据一致性保障
5.3.1 工资明细表结构设计
| 字段名 | 类型 | 含义说明 |
|---|---|---|
| PayID | AutoNumber | 主键 |
| EmpID | Text(10) | 员工编号 |
| PayMonth | Integer | 发放月份 |
| BasicSalary | Currency | 基本工资 |
| Allowance | Currency | 津贴 |
| BonusAmount | Currency | 奖金金额 |
| AttendanceDeduct | Currency | 考勤扣款 |
| SDEDeduct | Currency | 社保公积金扣款 |
| NetPay | Currency | 实发工资 |
| Status | Text(10) | 状态（Generated/Paid） |
| GeneratedDate | DateTime | 生成时间 |
| PaidDate | DateTime | 发放时间 |
历史数据建议按年归档至 Payroll_2023 , Payroll_2024 等分区表，提升查询性能。
5.3.2 事务控制确保完整性
在插入工资记录时启用 ADO 事务处理：
Public Sub InsertIntoPayroll(...)
On Error GoTo ErrorHandler
Dim conn As ADODB.Connection
Set conn = GetConnection
conn.BeginTrans
Dim cmd As New ADODB.Command
Set cmd.ActiveConnection = conn
cmd.CommandText = "INSERT INTO Payroll (...) VALUES (...)"
cmd.Execute
' 可选：同步更新员工最后工资记录字段
cmd.CommandText = "UPDATE Employees SET LastSalary=" & NetPay & " WHERE EmpID='" & EmpID & "'"
cmd.Execute
conn.CommitTrans
Exit Sub
ErrorHandler:
conn.RollbackTrans
LogError "工资写入失败", Err.Description
End Sub
事务机制防止部分写入造成的数据不一致问题。
5.4 报表输出与多条件查询功能集成
5.4.1 使用 Data Report 设计器生成打印报表
在 VB 6.0 中使用 Data Environment 和 Data Report 控件创建专业工资条：
- 添加
DataEnvironment1到窗体 - 建立连接对象指向数据库
- 添加命令对象，编写 SELECT 查询语句
- 将
DataReport1拖入项目，设置 DataSource 为 DataEnvironment - 拖拽字段到报表 Detail 节
- 添加页眉、公司Logo、签名栏等静态元素
最终输出 PDF 或直接打印。
5.4.2 多维度查询支持
提供灵活查询界面，支持组合条件筛选：
Private Sub cmdSearch_Click()
Dim sql As String
sql = "SELECT * FROM Payroll p JOIN Employees e ON p.EmpID=e.EmpID WHERE 1=1"
If txtEmpID.Text <> "" Then sql = sql & " AND p.EmpID LIKE '%" & txtEmpID.Text & "%'"
If cboDept.ListIndex >= 0 Then sql = sql & " AND e.Dept='" & cboDept.Text & "'"
If IsDate(dtpFrom.Value) Then sql = sql & " AND p.GeneratedDate >= #" & dtpFrom.Value & "#"
If IsDate(dtpTo.Value) Then sql = sql & " AND p.GeneratedDate <= #" & dtpTo.Value & "#"
FillDataGrid sql
End Sub
5.4.3 导出 Excel 功能实现
利用 Excel.Application 对象导出数据：
Public Sub ExportToExcel(rs As ADODB.Recordset)
Dim xlApp As Object
Set xlApp = CreateObject("Excel.Application")
xlApp.Visible = True
xlApp.Workbooks.Add
Dim i As Integer
For i = 0 To rs.Fields.Count - 1
xlApp.Cells(1, i + 1).Value = rs.Fields(i).Name
Next i
rs.MoveFirst
Dim row As Long
row = 2
Do Until rs.EOF
For i = 0 To rs.Fields.Count - 1
xlApp.Cells(row, i + 1).Value = Nz(rs.Fields(i).Value, "")
Next i
rs.MoveNext
row = row + 1
Loop
xlApp.Columns.AutoFit
End Sub
支持一键导出便于财务归档或银行代发。
flowchart TD
A[开始工资计算] --> B{是否为批量?}
B -->|是| C[获取所有在职员工]
B -->|否| D[指定单个员工]
C --> E[循环调用计算函数]
D --> F[执行单人计算]
E --> G[提取考勤与绩效]
F --> G
G --> H[应用计算公式]
H --> I[生成实发工资]
I --> J[开启事务]
J --> K[插入工资表]
K --> L[更新员工状态]
L --> M{提交事务?}
M -->|成功| N[标记生成成功]
M -->|失败| O[回滚并记录日志]
N --> P[生成报表/导出Excel]
O --> P
P --> Q[结束]
简介：本课程设计以VB 6.0和SQL数据库为基础，构建一个功能完整的人事管理系统，涵盖员工信息管理、工资计算、考勤记录、绩效考核及报表查询等核心模块。通过该项目实践，学生将掌握可视化编程、数据库设计与操作、前后端逻辑整合等关键技术，深入理解企业级信息系统开发流程，提升系统分析与项目实现能力，为后续从事信息化系统开发奠定坚实基础。
扫一扫
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
