complain.cls

来自「Visual Basic + Oracle 9i数据库应用系统开发与实例《小区物」· CLS 代码 · 共 129 行

VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "Complain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
'1   ComplainId  Smallint    投诉编号
'2   HouseId Smallint    投诉业主的房屋编号
'3   ComplainItem    Varchar2 200    投诉项目
'4   ComplainDate    Char 10 投诉日期
'5   Dealway Varchar2 200    处理方法
'6   Dealemp Varchar2 50 处理人
'7   Dealdate    Char 10 处理日期

Public ComplainId As Long
Public HouseId As Long
Public ComplainItem As String
Public ComplainDate As String
Public Dealway As String
Public Dealemp As String
Public Dealdate As String

Public Sub Init()
  ComplainId = -1
  HouseId = 0
  ComplainItem = ""
  ComplainDate = ""
  Dealway = ""
  Dealemp = ""
  Dealdate = ""
End Sub

'删除
Public Sub Delete(TmpId As Long)
  DB_Connect
  
  SqlStmt = "DELETE FROM Complain WHERE ComplainId=" _
          + Trim(Str(TmpId))
  OdbcExt (SqlStmt)
  Rc = SQLFreeStmt(Hstmt, SQL_DROP)

  DB_Disconnect
End Sub

Public Sub GetInfo(TmpId As Long)
  ComplainId = TmpId
  If TmpId = 0 Then
    Init
    Exit Sub
  End If
  DB_Connect
  
  SqlStmt = "SELECT * FROM Complain WHERE ComplainId=" _
          + Trim(Str(TmpId))
  OdbcExt (SqlStmt)
  If SQLFetch(Hstmt) <> SQL_NO_DATA_FOUND Then
    ColVal = String(40, 0)
    Rc = SQLGetData(Hstmt, 2, 1, ColVal, Len(ColVal), pcblen)
    HouseId = Val(ColVal)
    
    ColVal = String(400, 0)
    Rc = SQLGetData(Hstmt, 3, 1, ColVal, Len(ColVal), pcblen)
    ComplainItem = TrimStr(ColVal)
  
    ColVal = String(400, 0)
    Rc = SQLGetData(Hstmt, 4, 1, ColVal, Len(ColVal), pcblen)
    ComplainDate = TrimStr(ColVal)
  
    ColVal = String(400, 0)
    Rc = SQLGetData(Hstmt, 5, 1, ColVal, Len(ColVal), pcblen)
    Dealway = TrimStr(ColVal)
  
    ColVal = String(400, 0)
    Rc = SQLGetData(Hstmt, 6, 1, ColVal, Len(ColVal), pcblen)
    Dealemp = TrimStr(ColVal)
  
    ColVal = String(400, 0)
    Rc = SQLGetData(Hstmt, 7, 1, ColVal, Len(ColVal), pcblen)
    Dealdate = TrimStr(ColVal)
  Else
    Init
  End If
  Rc = SQLFreeStmt(Hstmt, SQL_DROP)
  
  DB_Disconnect
End Sub

Public Sub Insert()
  '连接数据库
  DB_Connect
  '设置INSERT语句
  SqlStmt = "INSERT INTO Complain (Complainid,HouseId, ComplainItem," _
          + " ComplainDate, Dealway, Dealemp, Dealdate)" _
          + " VALUES(COMPLAINID.NEXTVAL," + Trim(HouseId) + ",'" + Trim(ComplainItem) _
          + "','" + Trim(ComplainDate) + "','" + Trim(Dealway) + "','" _
          + Trim(Dealemp) + "','" + Trim(Dealdate) + "')"
  '执行SQL语句
  OdbcExt (SqlStmt)
  Rc = SQLFreeStmt(Hstmt, SQL_DROP)
  '断开与数据库的连接
  DB_Disconnect
End Sub

'更新地域数据
Public Sub Update(ByVal TmpId As Long)
  '连接数据库
  DB_Connect
  '设置UPDATE语句
  SqlStmt = "UPDATE Complain SET HouseId=" + Trim(HouseId) _
          + ", ComplainItem='" + Trim(ComplainItem) + "', ComplainDate='" _
          + Trim(ComplainDate) + "',Dealway='" + Trim(Dealway) _
          + "', Dealemp='" + Trim(Dealemp) + "',Dealdate='" _
          + Trim(Dealdate) + "' WHERE ComplainId=" + Trim(Str(TmpId))
  '执行SQL语句
  OdbcExt (SqlStmt)
  Rc = SQLFreeStmt(Hstmt, SQL_DROP)
  '断开与数据库的连接
  DB_Disconnect
End Sub