使用ACCESS编写项目进度管理系统：详细步骤和功能指南

本文将详细介绍如何使用ACCESS编写一个项目进度管理系统，满足以下需求：

可以增删改查项目，内容包含开始日期、结束日期、责任人、优先级，每个项目下有固定的根据任务类型分类的任务列表。
每个项目下有不同的根据任务类型分类的任务，项目下会有固定的任务列表模板及对应工时，要求可以分配固定的列表中的任务，也可以手动添加任务。分配时需要录入负责人、所属项目、任务内容、开始日期、截止日期、优先级、预期工时、备注、附件以及甘特图。
可能会有任务需要返工，换不同的负责人需要特殊标记，并且任务完成时需要录入实际完成时间以及实际工时。
在分配任务时可以查看该员工当前的任务。

一、数据库设计

首先，我们需要创建一个数据库，并设计以下表格：

项目表 (Project)
- 项目ID (ProjectID)
- 开始日期 (StartDate)
- 结束日期 (EndDate)
- 责任人 (ResponsiblePerson)
- 优先级 (Priority)
任务列表模板表 (TaskTemplate)
- 任务模板ID (TaskTemplateID)
- 任务类型 (TaskType)
- 任务内容 (TaskContent)
- 对应工时 (ExpectedHours)
任务表 (Task)
- 任务ID (TaskID)
- 所属项目ID (ProjectID)
- 任务模板ID (TaskTemplateID)
- 负责人 (ResponsiblePerson)
- 开始日期 (StartDate)
- 截止日期 (EndDate)
- 优先级 (Priority)
- 预期工时 (ExpectedHours)
- 备注 (Remark)
- 附件 (Attachment)
- 甘特图 (GanttChart)
- 实际完成时间 (ActualFinishDate)
- 实际工时 (ActualHours)
- 是否返工 (IsRework)
- 负责人变更标记 (ResponsiblePersonChangeFlag)

二、界面设计

主界面：
- 包含增删改查项目的功能按钮。
项目详情界面：
- 显示项目的详细信息，并提供任务列表的增删改查功能。
任务分配界面：
- 显示固定的任务列表模板，可以选择其中的任务进行分配，并可以手动添加任务。
- 提供一个按钮，可以查看该员工当前正在进行的任务列表。

三、功能实现

增删改查项目：通过在主界面点击相应按钮实现对项目表的操作，可以通过表单或者弹窗来输入、编辑和删除项目信息。
分配任务：在任务分配界面，可以选择项目和任务模板，填写任务的相关信息，包括负责人、开始日期、截止日期、优先级、预期工时等。
查看员工当前任务：点击任务分配界面上的按钮，可以查看该员工当前正在进行的任务列表。
录入任务完成情况：当任务完成时，更新任务表的实际完成时间和实际工时字段。

四、特殊标记任务

在任务表中添加“是否返工”字段 (IsRework)，用于标记任务是否需要返工。
在任务表中添加“负责人变更标记”字段 (ResponsiblePersonChangeFlag)，用于标记任务负责人是否发生变更。

五、其他功能

根据需求，可以增加其他功能，比如：

导出报表：生成项目进度、任务分配等报表。
生成甘特图：根据任务信息生成甘特图，以便直观地展示项目进度。

六、代码示例

以下是一些示例代码，用于演示如何使用ACCESS编写部分功能：

' 添加项目
Private Sub btnAddProject_Click()
  Dim strSQL As String
  strSQL = "INSERT INTO Project (ProjectName, StartDate, EndDate, ResponsiblePerson, Priority) VALUES ('" & txtProjectName.Text & "', #" & txtStartDate.Text & "#, #" & txtEndDate.Text & "#, '" & txtResponsiblePerson.Text & "', " & txtPriority.Text & ")"
  CurrentDb.Execute strSQL
End Sub

' 查询项目
Private Sub btnSearchProject_Click()
  Dim strSQL As String
  strSQL = "SELECT * FROM Project WHERE ProjectName LIKE '%" & txtSearchProjectName.Text & "%'"
  Set rs = CurrentDb.OpenRecordset(strSQL)
  If Not rs.EOF Then
    lstProject.RowSource = rs.GetString
    lstProject.Requery
  End If
  rs.Close
  Set rs = Nothing
End Sub

' 分配任务
Private Sub btnAssignTask_Click()
  Dim strSQL As String
  strSQL = "INSERT INTO Task (ProjectID, TaskTemplateID, ResponsiblePerson, StartDate, EndDate, Priority, ExpectedHours, Remark) VALUES (" & txtProjectID.Text & ", " & txtTaskTemplateID.Text & ", '" & txtResponsiblePerson.Text & "', #" & txtStartDate.Text & "#, #" & txtEndDate.Text & "#, " & txtPriority.Text & ", " & txtExpectedHours.Text & ", '" & txtRemark.Text & "')"
  CurrentDb.Execute strSQL
End Sub

七、总结

通过以上步骤和代码示例，你可以构建一个基本的项目进度管理系统，满足你提出的需求。当然，你可以根据实际情况，添加更多功能和改进设计，使系统更加完善。

希望本文对你有所帮助，祝你成功！