科研项目管理系统ASP源码
科研项目管理系统是一种用于管理科研项目的软件系统，可以帮助研究人员更好地组织和管理他们的项目，并提高工作效率。一个好的科研项目管理系统可以提高项目的成功率，降低项目风险，并促进项目的进展。
科研项目管理系统通常包括以下功能：
1. 项目计划：可以创建项目任务，并跟踪任务的进度。
2. 项目预算：可以跟踪项目的预算，并生成预算报告。
3. 项目报告：可以生成项目报告，包括项目的进展，风险和成本分析。
4. 文档管理：可以管理项目文档，包括报告， 大纲， 演示文稿等。
5. 用户管理：可以管理用户，包括添加， 删除和修改用户信息。
6. 权限管理：可以管理用户权限，包括授予用户访问特定文档或功能的权限。
下面是一个简单的科研项目管理系统的ASP源码示例，它包括项目计划， 项目预算和项目报告等功能。
“`
# 项目计划
function CreateProjectPlan()
\’创建项目计划
Dim ProjectPlan
ProjectPlan = Server.CreateObject(\”ADODB.Recordset\”)
ProjectPlan.Open \”SELECT * FROM projects\”, Server.Main数据中心
ProjectPlan.SQL = \”SELECT * FROM projects\”
ProjectPlan.Send
ProjectPlan.Close
\’返回项目计划对象
return ProjectPlan
End Function
function UpdateProjectPlan(ProjectPlan)
\’更新项目计划
Dim ProjectPlan2
ProjectPlan2 = Server.CreateObject(\”ADODB.Recordset\”)
ProjectPlan2.Open \”UPDATE projects SET budget = budget + :budget, plan = plan + :plan WHERE id = :id\”, Server.Main数据中心
ProjectPlan2.SQL = \”UPDATE projects SET budget = :budget, plan = :plan WHERE id = :id\”
ProjectPlan2.Update
ProjectPlan2.Close
\’返回更新后的项目计划对象
return ProjectPlan2
End Function
function GetProjectPlan(ProjectId)
\’获取项目计划
Dim ProjectPlan
ProjectPlan = Server.CreateObject(\”ADODB.Recordset\”)
ProjectPlan.Open \”SELECT * FROM projects WHERE id = :projectId\”, Server.Main数据中心
ProjectPlan.SQL = \”SELECT * FROM projects WHERE id = :projectId\”
ProjectPlan.Send
ProjectPlan.Close
\’返回项目计划对象
return ProjectPlan
End Function
function GetBudget(ProjectId)
\’获取项目预算
Dim ProjectPlan
ProjectPlan = Server.CreateObject(\”ADODB.Recordset\”)
ProjectPlan.Open \”SELECT budget FROM projects WHERE id = :projectId\”, Server.Main数据中心
ProjectPlan.SQL = \”SELECT budget FROM projects WHERE id = :projectId\”
ProjectPlan.Send
ProjectPlan.Close
\’返回项目预算对象
return ProjectPlan
End Function
function GetPlan报告(ProjectId)
\’获取项目计划报告
Dim ProjectPlan
ProjectPlan = Server.CreateObject(\”ADODB.Recordset\”)
ProjectPlan.Open \”SELECT * FROM projects WHERE id = :projectId\”, Server.Main数据中心
ProjectPlan.SQL = \”SELECT * FROM projects WHERE id = :projectId\”
ProjectPlan.Send
ProjectPlan.Close
\’返回项目计划报告对象
return ProjectPlan
End Function
# 项目预算
function AddBudget(Budget)
\’添加项目预算
Dim BudgetItem
BudgetItem = Budget.Item
BudgetItem.Value = 0
BudgetItem.Update
\’返回添加后的预算对象
return Budget
End Function
function UpdateBudget(Budget)
\’更新项目预算
Dim BudgetItem
BudgetItem = Budget.Item
BudgetItem.Value = 0
BudgetItem.Update
\’返回更新后的预算对象
return Budget
End Function
function GetBudget(ProjectId)
\’获取项目预算
Dim Budget
Budget = Server.CreateObject(\”ADODB.Recordset\”)
Budget.Open \”SELECT budget FROM projects WHERE id = :projectId\”, Server.Main数据中心
Budget.SQL = \”SELECT budget FROM projects WHERE id = :projectId\”
Budget.Send
Budget.Close
\’返回项目预算对象
return Budget
End Function
function GetBudgetItem(ProjectId, BudgetId)
\’获取预算对象中的
版权声明：本文内容由互联网用户自发贡献，该文观点仅代表作者本人。本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌抄袭侵权/违法违规的内容， 请发送邮件至 举报，一经查实，本站将立刻删除。