prrec.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 = "PrRec"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
'1 PrId  Int 记录编号
'2 Cname Varchar 50  客户名称
'3 Cperson Varchar 50  联系人姓名
'4 Ctel  Varchar 50  联系人电话
'5 Plevel  Varchar 20  严重级别
'6 Pdetail Varchar 300 详细描述
'7 Ptype Varchar 20  问题类型
'8 Pstatus Varchar 20  记录状态
'9  Pcomment  Varchar 300 备注
'10  PEdate  Varchar 20  完成日期
'11  LogPerson Varchar 20  录入人
'12  Createdate  Varchar 20  创建日期

Public PrId As Long
Public Cname As String
Public Cperson As String
Public Ctel As String
Public Plevel As String
Public Pdetail As String
Public Ptype As String
Public Pstatus As String
Public Pcomment As String
Public PEdate As String
Public LogPerson As String
Public Createdate As String

Public Sub Init()
  PrId = 0
  Cname = ""
  Cperson = ""
  Ctel = ""
  Plevel = ""
  Pdetail = ""
  Ptype = ""
  Pstatus = ""
  Pcomment = ""
  PEdate = ""
  LogPerson = ""
  Createdate = ""
End Sub

'删除
Public Sub Delete(ByVal TmpPrId As Long)
  '连接数据库
  DB_Connect
  '设置DELETE语句
  SqlStmt = "DELETE FROM PrRec WHERE PrId=" _
          + Trim(Str(TmpPrId))
  '执行SQL语句
  OdbcExt (SqlStmt)
  Rc = SQLFreeStmt(Hstmt, SQL_DROP)
  '断开与数据库的连接
  DB_Disconnect
End Sub

Public Sub GetInfo(ByVal TmpPrId As Long)
  PrId = TmpPrId
  If TmpPrId <= 0 Then
    Init
    Exit Sub
  End If
  DB_Connect
  
  SqlStmt = "SELECT * FROM PrRec WHERE PrId=" _
          + Trim(Str(TmpPrId))
  OdbcExt (SqlStmt)
  If SQLFetch(Hstmt) <> SQL_NO_DATA_FOUND Then
    ColVal = String(400, 0)
    Rc = SQLGetData(Hstmt, 2, 1, ColVal, Len(ColVal), pcblen)
    Cname = TrimStr(ColVal)
    
    ColVal = String(400, 0)
    Rc = SQLGetData(Hstmt, 3, 1, ColVal, Len(ColVal), pcblen)
    Cperson = TrimStr(ColVal)
    
    ColVal = String(400, 0)
    Rc = SQLGetData(Hstmt, 4, 1, ColVal, Len(ColVal), pcblen)
    Ctel = TrimStr(ColVal)
    
    ColVal = String(400, 0)
    Rc = SQLGetData(Hstmt, 5, 1, ColVal, Len(ColVal), pcblen)
    Plevel = TrimStr(ColVal)
  
    ColVal = String(400, 0)
    Rc = SQLGetData(Hstmt, 6, 1, ColVal, Len(ColVal), pcblen)
    Pdetail = TrimStr(ColVal)
    
    ColVal = String(400, 0)
    Rc = SQLGetData(Hstmt, 7, 1, ColVal, Len(ColVal), pcblen)
    Ptype = TrimStr(ColVal)
    
    ColVal = String(400, 0)
    Rc = SQLGetData(Hstmt, 8, 1, ColVal, Len(ColVal), pcblen)
    Pstatus = TrimStr(ColVal)
    
    ColVal = String(400, 0)
    Rc = SQLGetData(Hstmt, 9, 1, ColVal, Len(ColVal), pcblen)
    Pcomment = TrimStr(ColVal)
    
    ColVal = String(400, 0)
    Rc = SQLGetData(Hstmt, 10, 1, ColVal, Len(ColVal), pcblen)
    PEdate = TrimStr(ColVal)
    
    ColVal = String(400, 0)
    Rc = SQLGetData(Hstmt, 11, 1, ColVal, Len(ColVal), pcblen)
    LogPerson = TrimStr(ColVal)
    
    ColVal = String(400, 0)
    Rc = SQLGetData(Hstmt, 12, 1, ColVal, Len(ColVal), pcblen)
    Createdate = TrimStr(ColVal)
  Else
    Init
  End If
  Rc = SQLFreeStmt(Hstmt, SQL_DROP)
  
  DB_Disconnect
End Sub

Public Sub Insert()
  DB_Connect
  
  SqlStmt = "INSERT INTO PrRec VALUES( PRID.NEXTVAL, '" + Trim(Cname) _
          + "','" + Trim(Cperson) + "','" + Trim(Ctel) + "','" + Trim(Plevel) _
          + "','" + Trim(Pdetail) + "','" + Trim(Ptype) _
          + "','未处理','" + Trim(Pcomment) + "','" _
          + Trim(PEdate) + "','" + Trim(LogPerson) _
          + "','" + Trim(Createdate) + "')"
  OdbcExt (SqlStmt)
  Rc = SQLFreeStmt(Hstmt, SQL_DROP)
  DB_Disconnect
End Sub

'更新问题状态
Public Sub UpdateStatus(ByVal TmpPrId As Long)
  DB_Connect
    
  SqlStmt = "UPDATE PrRec SET Pstatus='" + Trim(Pstatus) _
          + "' WHERE PrId=" + Trim(Str(TmpPrId))
  OdbcExt (SqlStmt)
  Rc = SQLFreeStmt(Hstmt, SQL_DROP)
  DB_Disconnect
End Sub

'更新数据
Public Sub Update(ByVal TmpPrId As Long)
  DB_Connect
    
  SqlStmt = "UPDATE PrRec SET Cname='" + Trim(Cname) _
          + "',Cperson='" + Trim(Cperson) + "',Ctel='" _
          + Trim(Ctel) + "',Plevel='" + Trim(Plevel) _
          + "',Pdetail='" + Trim(Pdetail) + "',Ptype='" _
          + Trim(Ptype) + "',Pcomment='" _
          + Trim(Pcomment) + "',Pedate='" + Trim(PEdate) _
          + "',LogPerson='" + Trim(LogPerson) + "',Createdate='" _
          + Trim(Createdate) + "' WHERE PrId=" _
          + Trim(Str(TmpPrId))
  OdbcExt (SqlStmt)
  Rc = SQLFreeStmt(Hstmt, SQL_DROP)
  DB_Disconnect
End Sub