projects.cls

软件项目管理的基本功能

VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "Projects"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
'1   ProId  数字 自动编号 项目ID
'2   ProName 文本 长度50 项目名称
'3   TypeId  数字 项目类型编号
'4   StatusId  文本 长度200 项目状态
'5   ProSum 数字 项目金额
'6   ManHourSum 数字 单精度 人工费用
'7   ManHours  数字 单精度  人工时
'8   StartDate  日期/时间 项目开始日期
'9   EndDate  日期/时间 项目结束日期
'10  ProDetail  备注 项目信息

Public ProId As Long
Public ProName As String
Public TypeId As Long
Public StatusId As Long
Public ProSum As Double
Public ManHourSum As Double
Public ManHours As Double
Public StartDate As String
Public EndDate As String
Public ProDetail As String

Public Sub Init()
  ProId = 0
  ProName = ""
  TypeId = 0
  StatusId = 0
  ProSum = 0
  ManHourSum = 0
  ManHours = 0
  StartDate = ""
  EndDate = ""
  ProDetail = ""
End Sub

'删除数据
Public Sub Delete(ByVal TmpProId As Long)
  SqlStmt = "DELETE FROM Projects WHERE ProId=" + Trim(TmpProId)
  SQLExt (SqlStmt)
End Sub

Public Function GetInfo(ByVal TmpProId As Long) As Boolean
  ProId = TmpProId
  Dim rs As New ADODB.Recordset
  
  SqlStmt = "SELECT * FROM Projects WHERE ProId=" + Trim(TmpProId)
  Set rs = QueryExt(SqlStmt)
  If rs.EOF Then
    GetInfo = False
    Exit Function
  Else
    ProName = Trim(rs.Fields(1))
    TypeId = rs.Fields(2)
    StatusId = rs.Fields(3)
    ProSum = rs.Fields(4)
    ManHourSum = rs.Fields(5)
    ManHours = rs.Fields(6)
    StartDate = Trim(rs.Fields(7))
    EndDate = Trim(rs.Fields(8))
    ProDetail = Trim(rs.Fields(9))
  End If
  
  GetInfo = True
End Function

Public Sub Insert()
  SqlStmt = "INSERT INTO Projects(ProName,TypeId,StatusId,ProSum,ManHourSum," _
     + "ManHours,StartDate,EndDate,ProDetail) Values('" + Trim(ProName) _
     + "'," + Trim(TypeId) + "," + Trim(StatusId) + "," + Trim(ProSum) + "," _
     + Trim(ManHourSum) + "," + Trim(ManHours) + ",'" + Trim(StartDate) + "','" _
     + Trim(EndDate) + "','" + Trim(ProDetail) + "')"
  SQLExt (SqlStmt)
End Sub

Public Sub Update(ByVal TmpProId As Long)
  SqlStmt = "Update Projects Set ProName='" + Trim(ProName) _
          + "',TypeId=" + Trim(TypeId) + ",StatusId=" + Trim(StatusId) _
          + ",ProSum=" + Trim(ProSum) + ",ManHourSum=" + Trim(ManHourSum) _
          + ",ManHours=" + Trim(ManHours) + ",StartDate='" + Trim(StartDate) _
          + "',EndDate='" + Trim(EndDate) + "',ProDetail='" + Trim(ProDetail) _
          + "' WHERE ProId=" + Trim(TmpProId)
  SQLExt (SqlStmt)
End Sub

Public Function HaveType(ByVal TmpTypeId As Long, ByVal TmpFlag As Integer) As Boolean
  Dim rs As New ADODB.Recordset
  If TmpFlag = 1 Then
    SqlStmt = "SELECT * FROM Projects WHERE TypeId=" + Trim(TmpTypeId)
  Else
    SqlStmt = "SELECT * FROM Projects WHERE StatusId=" + Trim(TmpTypeId)
  End If
  Set rs = QueryExt(SqlStmt)
  If rs.EOF Then
    HaveType = False
  Else
    HaveType = True
  End If
End Function