despatch.cls

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

VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "Despatch"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
'1 PrId  Int 记录编号
'2 Muser Varchar 50  项目经理用户名
'3 Euser Varchar 50  负责工程师用户名
'5 Msuggest  Varchar 30  经理处理意见
'6 Mdate Varchar(20) 经理处理日期
'7 Ddate Varchar(20) 记录提交日期

Public PrId As Long
Public Muser As String
Public Euser As String
Public Msuggest As String
Public Mdate As String
Public Ddate As String

Public Sub Init()
  PrId = 0
  Muser = ""
  Euser = ""
  Msuggest = ""
  Mdate = ""
  Ddate = ""
End Sub

Public Sub GetInfo(ByVal TmpPrId As Long)
  '设置问题编号
  PrId = TmpPrId
  '连接数据库
  DB_Connect
  '设置SELECT语句
  SqlStmt = "SELECT * FROM Despatch WHERE PrId=" _
          + Trim(Str(TmpPrId))
  '执行SQL语句
  OdbcExt (SqlStmt)
  If SQLFetch(Hstmt) <> SQL_NO_DATA_FOUND Then
    '项目主管姓名
    ColVal = String(400, 0)
    Rc = SQLGetData(Hstmt, 2, 1, ColVal, Len(ColVal), pcblen)
    Muser = TrimStr(ColVal)
    '负责工程师姓名
    ColVal = String(400, 0)
    Rc = SQLGetData(Hstmt, 3, 1, ColVal, Len(ColVal), pcblen)
    Euser = TrimStr(ColVal)
    
    ColVal = String(400, 0)
    Rc = SQLGetData(Hstmt, 4, 1, ColVal, Len(ColVal), pcblen)
    Msuggest = TrimStr(ColVal)
  
    ColVal = String(400, 0)
    Rc = SQLGetData(Hstmt, 5, 1, ColVal, Len(ColVal), pcblen)
    Mdate = TrimStr(ColVal)
    
    ColVal = String(400, 0)
    Rc = SQLGetData(Hstmt, 6, 1, ColVal, Len(ColVal), pcblen)
    Ddate = TrimStr(ColVal)
  Else
    Init
  End If
  Rc = SQLFreeStmt(Hstmt, SQL_DROP)
  
  DB_Disconnect
End Sub

Public Sub Insert()
  DB_Connect
  
  Ddate = Format(Now, "yyyy-mm-dd")
  SqlStmt = "INSERT INTO Despatch VALUES(" _
          + Trim(Str(PrId)) + ",'" + Trim(Muser) + "','','','','" _
          + Trim(Ddate) + "')"
  OdbcExt (SqlStmt)
  Rc = SQLFreeStmt(Hstmt, SQL_DROP)
  DB_Disconnect
End Sub

'更新数据
Public Sub Update(ByVal TmpPrId As Long)
  DB_Connect
    
  SqlStmt = "UPDATE Despatch SET Euser='" + Trim(Euser) _
          + "',Msuggest='" + Trim(Msuggest) + "',Mdate='" _
          + Trim(Mdate) + "' WHERE PrId=" + Trim(Str(TmpPrId))
  OdbcExt (SqlStmt)
  Rc = SQLFreeStmt(Hstmt, SQL_DROP)
  DB_Disconnect
End Sub