change.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 = "Change"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
'1 ChangeId  Int 项目变更编号
'2 ProjId  Int 项目编号
'3 ChangeType  Tinyint 项目变更类型（1 - 中止项目，2 - 变更项目）
'4 Status  Varchar 10  申请状态（申请，批准）
'5 Amount  Decimal 15,2  变更后项目总金额
'6 Benefit Decimal 15,2  变更后项目利润
'7 FinishDate  Varchar 10  变更完成项目日期

Public ChangeId As Long
Public ProjId As Long
Public ChangeType As Integer
Public Status As String
Public Amount As Single
Public Benefit As Single
Public FinishDate As String

Public Sub Init()
  ChangeId = 0
  ProjId = 0
  ChangeType = 0
  Status = 0
  Amount = 0
  Benefit = 0
  FinishDate = ""
End Sub

'删除
Public Sub Delete(ByVal TmpChangeId As Long)
  DB_Connect
  
  SqlStmt = "DELETE FROM Change WHERE ChangeId=" + Trim(TmpChangeId)
  OdbcExt (SqlStmt)
  Rc = SQLFreeStmt(Hstmt, SQL_DROP)

  DB_Disconnect
End Sub

Public Sub GetInfo(ByVal TmpChangeId As Long)
  ChangeId = TmpChangeId
  If TmpChangeId <= 0 Then
    Init
    Exit Sub
  End If
  DB_Connect
  
  SqlStmt = "SELECT * FROM Change WHERE ChangeId=" _
          + Trim(Str(TmpChangeId))
  OdbcExt (SqlStmt)
  If SQLFetch(Hstmt) <> SQL_NO_DATA_FOUND Then
    ColVal = String(40, 0)
    Rc = SQLGetData(Hstmt, 2, 1, ColVal, Len(ColVal), pcblen)
    ProjId = Val(ColVal)
    
    ColVal = String(4, 0)
    Rc = SQLGetData(Hstmt, 3, 1, ColVal, Len(ColVal), pcblen)
    ChangeType = Val(ColVal)
    
    ColVal = String(400, 0)
    Rc = SQLGetData(Hstmt, 4, 1, ColVal, Len(ColVal), pcblen)
    Status = TrimStr(ColVal)
    
    ColVal = String(40, 0)
    Rc = SQLGetData(Hstmt, 5, 1, ColVal, Len(ColVal), pcblen)
    Amount = Val(ColVal)
  
    ColVal = String(40, 0)
    Rc = SQLGetData(Hstmt, 6, 1, ColVal, Len(ColVal), pcblen)
    Benefit = Val(ColVal)
  
    ColVal = String(40, 0)
    Rc = SQLGetData(Hstmt, 7, 1, ColVal, Len(ColVal), pcblen)
    FinishDate = Val(ColVal)
  Else
    Init
  End If
  Rc = SQLFreeStmt(Hstmt, SQL_DROP)
  
  DB_Disconnect
End Sub

Public Sub Insert()
  DB_Connect
  
  SqlStmt = "INSERT INTO Change (ProjId, ChangeType, Status," _
          + " Amount, Benefit, FinishDate) VALUES(" + Trim(Str(ProjId)) _
          + "," + Trim(ChangeType) + "," + Trim(Status) + "," _
          + Trim(Amount) + "," + Trim(Benefit) + ",'" + Trim(FinishDate) + "')"
  OdbcExt (SqlStmt)
  Rc = SQLFreeStmt(Hstmt, SQL_DROP)
  DB_Disconnect
End Sub

'更新数据
Public Sub Update(ByVal TmpChangeId As Long)
  DB_Connect
    
  SqlStmt = "UPDATE Change SET Amount=" + Trim(Amount) _
          + ",Benefit=" + Trim(Benefit) + ",FinishDate='" _
          + Trim(FinishDate) + "' WHERE ChangeId=" _
          + Trim(TmpChangeId)
  OdbcExt (SqlStmt)
  Rc = SQLFreeStmt(Hstmt, SQL_DROP)
  DB_Disconnect
End Sub

'更新数据
Public Sub UpdateStatus(ByVal TmpChangeId As Long)
  DB_Connect
    
  SqlStmt = "UPDATE Change SET Status=" + Trim(Status) _
          + " WHERE ChangeId=" + Trim(TmpChangeId)
  OdbcExt (SqlStmt)
  Rc = SQLFreeStmt(Hstmt, SQL_DROP)
  DB_Disconnect
End Sub