project.cls

Visual Basic + Oracle 9i数据库应用系统开发与实例《小区物业管理系统》,界面还行

VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "Project"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
'1   ProjId  Smallint    工程编号
'2   ProjName    Varchar2 50 工程名称
'3   ProjOrg Varchar2 50 施工单位
'4   StartDate   Char 10 开工日期
'5   EndDate Char 10 完工日期
'6   ProjMemo    Varchar2 200    工程进展描述
'7   Workfee Number 15,2 施工费用
'8   Materialfee Number 15,2 材料费用

Public ProjId As Long
Public ProjName As String
Public ProjOrg As String
Public StartDate As String
Public EndDate As String
Public ProjMemo As String
Public Workfee As Single
Public Materialfee As Single

Public Sub Init()
  ProjId = 0
  ProjName = ""
  ProjOrg = ""
  StartDate = ""
  EndDate = ""
  ProjMemo = ""
  Workfee = 0
  Materialfee = 0
End Sub

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

  DB_Disconnect
End Sub

Public Sub GetInfo(ByVal TmpId As Long)
  ProjId = TmpId
  If TmpId = 0 Then
    Init
    Exit Sub
  End If
  DB_Connect
  
  SqlStmt = "SELECT * FROM Project WHERE ProjId=" + Trim(TmpId)
  OdbcExt (SqlStmt)
  If SQLFetch(Hstmt) <> SQL_NO_DATA_FOUND Then
    ColVal = String(400, 0)
    Rc = SQLGetData(Hstmt, 2, 1, ColVal, Len(ColVal), pcblen)
    ProjName = TrimStr(ColVal)
    
    ColVal = String(400, 0)
    Rc = SQLGetData(Hstmt, 3, 1, ColVal, Len(ColVal), pcblen)
    ProjOrg = TrimStr(ColVal)
  
    ColVal = String(400, 0)
    Rc = SQLGetData(Hstmt, 4, 1, ColVal, Len(ColVal), pcblen)
    StartDate = TrimStr(ColVal)
  
    ColVal = String(400, 0)
    Rc = SQLGetData(Hstmt, 5, 1, ColVal, Len(ColVal), pcblen)
    EndDate = TrimStr(ColVal)
  
    ColVal = String(400, 0)
    Rc = SQLGetData(Hstmt, 6, 1, ColVal, Len(ColVal), pcblen)
    ProjMemo = TrimStr(ColVal)
  
    ColVal = String(400, 0)
    Rc = SQLGetData(Hstmt, 7, 1, ColVal, Len(ColVal), pcblen)
    Workfee = Val(ColVal)
  
    ColVal = String(400, 0)
    Rc = SQLGetData(Hstmt, 8, 1, ColVal, Len(ColVal), pcblen)
    Materialfee = Val(ColVal)
  Else
    Init
  End If
  Rc = SQLFreeStmt(Hstmt, SQL_DROP)
  
  DB_Disconnect
End Sub

Public Function In_DB(ByVal TmpProjName As String) As Boolean
  DB_Connect
  
  SqlStmt = "SELECT ProjId FROM Project WHERE ProjName='" _
          + Trim(TmpProjName) + "'"
  OdbcExt (SqlStmt)
  If SQLFetch(Hstmt) <> SQL_NO_DATA_FOUND Then
    In_DB = True
  Else
    In_DB = False
  End If
  Rc = SQLFreeStmt(Hstmt, SQL_DROP)

  DB_Disconnect
End Function

Public Sub Insert()
  DB_Connect
  
  SqlStmt = "INSERT INTO Project (ProjId,ProjName," _
          + " ProjOrg, StartDate, EndDate, ProjMemo, Workfee, Materialfee)" _
          + " VALUES(PROJID.NEXTVAL,'" + Trim(ProjName) + "','" + Trim(ProjOrg) _
          + "','" + Trim(StartDate) + "','" + Trim(EndDate) + "','" _
          + Trim(ProjMemo) + "'," + Trim(Workfee) + "," + Trim(Materialfee) _
          + ")"
  OdbcExt (SqlStmt)
  Rc = SQLFreeStmt(Hstmt, SQL_DROP)
  DB_Disconnect
End Sub

'更新地域数据
Public Sub Update(ByVal TmpId As Long)
  DB_Connect
    
  SqlStmt = "UPDATE Project SET ProjName='" + Trim(ProjName) _
          + "', ProjOrg='" + Trim(ProjOrg) + "', StartDate='" _
          + Trim(StartDate) + "', EndDate='" + Trim(EndDate) _
          + "',ProjMemo='" + Trim(ProjMemo) + "',Workfee=" _
          + Trim(Workfee) + ", Materialfee=" + Trim(Materialfee) _
          + " WHERE ProjId=" + Trim(Str(TmpId))
  OdbcExt (SqlStmt)
  Rc = SQLFreeStmt(Hstmt, SQL_DROP)
  DB_Disconnect
End Sub