investigate.cls

来自「Visual Basic + Oracle 9i数据库应用系统开发与实例(项目售」· CLS 代码 · 共 116 行

VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "Investigate"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
'1 InvId Int 调查编号
'2 PrId  Int 问题编号
'3 Customer  Varchar 50  被调查人
'4 CustomerTel Varchar 50  调查电话
'5 InvDate Varchar 20  调查日期
'6 Handler Varchar 50  调查人
'7 Title Varchar 50  总体评价
'8 Body  Varchar 300 客户意见

Public InvId As Long
Public PrId As Long
Public Customer As String
Public CustomerTel As String
Public InvDate As String
Public Handler As String
Public Title As String
Public Body As String

Public Sub Init()
  InvId = 0
  PrId = 0
  Customer = ""
  InvDate = ""
  Handler = ""
  CustomerTel = ""
  Title = ""
  Body = ""
End Sub

Public Sub GetInfo(ByVal TmpInvId As Long)
  InvId = TmpInvId
  If TmpInvId <= 0 Then
    Init
    Exit Sub
  End If
  DB_Connect
  
  SqlStmt = "SELECT * FROM Investigate WHERE InvId=" _
          + Trim(Str(TmpInvId))
  OdbcExt (SqlStmt)
  If SQLFetch(Hstmt) <> SQL_NO_DATA_FOUND Then
    ColVal = String(400, 0)
    Rc = SQLGetData(Hstmt, 2, 1, ColVal, Len(ColVal), pcblen)
    PrId = Val(ColVal)
    
    ColVal = String(400, 0)
    Rc = SQLGetData(Hstmt, 3, 1, ColVal, Len(ColVal), pcblen)
    Customer = TrimStr(ColVal)
    
    ColVal = String(400, 0)
    Rc = SQLGetData(Hstmt, 4, 1, ColVal, Len(ColVal), pcblen)
    CustomerTel = TrimStr(ColVal)
    
    ColVal = String(400, 0)
    Rc = SQLGetData(Hstmt, 5, 1, ColVal, Len(ColVal), pcblen)
    InvDate = TrimStr(ColVal)
    
    ColVal = String(400, 0)
    Rc = SQLGetData(Hstmt, 6, 1, ColVal, Len(ColVal), pcblen)
    Handler = TrimStr(ColVal)
  
    ColVal = String(400, 0)
    Rc = SQLGetData(Hstmt, 7, 1, ColVal, Len(ColVal), pcblen)
    Title = TrimStr(ColVal)
    
    ColVal = String(400, 0)
    Rc = SQLGetData(Hstmt, 8, 1, ColVal, Len(ColVal), pcblen)
    Body = TrimStr(ColVal)
  Else
    Init
  End If
  Rc = SQLFreeStmt(Hstmt, SQL_DROP)
  
  DB_Disconnect
End Sub

Public Sub Insert()
  DB_Connect
  
  SqlStmt = "INSERT INTO Investigate VALUES( INVID.NEXTVAL, " _
          + Trim(Str(PrId)) + ",'','','','','','')"
  OdbcExt (SqlStmt)
  Rc = SQLFreeStmt(Hstmt, SQL_DROP)
  DB_Disconnect
End Sub

'更新数据
Public Sub Update(ByVal TmpInvId As Long)
  DB_Connect
    
  SqlStmt = "UPDATE Investigate SET Customer='" + Trim(Customer) _
          + "',InvDate='" + Trim(InvDate) + "',Handler='" _
          + Trim(Handler) + "',CustomerTel='" + Trim(CustomerTel) _
          + "',Title='" + Trim(Title) + "',Body='" _
          + Trim(Body) + "' WHERE InvId=" _
          + Trim(Str(TmpInvId))
  OdbcExt (SqlStmt)
  Rc = SQLFreeStmt(Hstmt, SQL_DROP)
  DB_Disconnect
End Sub