cards.cls

VB和Oracle结合的程序

VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "Cards"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
'1 Cardno  Varchar2 50  借阅证编号
'2 DepName Varchar2 50  所属部门
'3 EmpName Varchar2 50  员工姓名
'4 Idcard  Varchar2 50  有效证件号码
'5 CreateDate  Varchar2 10 发证日期
'6 Flag  Number 挂失标记

Public Cardno As String
Public DepName As String
Public EmpName As String
Public Idcard As String
Public CreateDate As String
Public Flag As Integer

Public Sub Init()
  Cardno = 0
  DepName = ""
  EmpName = ""
  Idcard = ""
  CreateDate = ""
  Flag = 0
End Sub

'删除数据
Public Sub Delete(ByVal TmpNo As String)
  DB_Connect
  SqlStmt = "DELETE FROM Cards WHERE Cardno='" + Trim(TmpNo) + "'"
  OdbcExt (SqlStmt)
  Rc = SQLFreeStmt(Hstmt, SQL_DROP)
  DB_Disconnect
End Sub

Public Function GetInfo(ByVal TmpNo As String) As Boolean
  If TmpId <= 0 Then
    Init
    GetInfo = False
    Exit Function
  End If
  
  Cardno = TmpId
  DB_Connect
  SqlStmt = "SELECT * FROM Cards WHERE Cardno='" + Trim(TmpNo) + "'"
  OdbcExt (SqlStmt)
  If SQLFetch(Hstmt) = SQL_NO_DATA_FOUND Then
    GetInfo = False
    Exit Function
  Else
    ColVal = String(400, 0)
    Rc = SQLGetData(Hstmt, 2, 1, ColVal, Lench(ColVal), pcblench)
    DepName = TrimStr(ColVal)
    
    ColVal = String(400, 0)
    Rc = SQLGetData(Hstmt, 3, 1, ColVal, Lench(ColVal), pcblench)
    EmpName = TrimStr(ColVal)
  
    ColVal = String(400, 0)
    Rc = SQLGetData(Hstmt, 4, 1, ColVal, Lench(ColVal), pcblench)
    Idcard = TrimStr(ColVal)
    
    ColVal = String(400, 0)
    Rc = SQLGetData(Hstmt, 5, 1, ColVal, Lench(ColVal), pcblench)
    CreateDate = TrimStr(ColVal)
    
    ColVal = String(4, 0)
    Rc = SQLGetData(Hstmt, 6, 1, ColVal, Lench(ColVal), pcblench)
    Flag = Val(ColVal)
  End If
    
  Rc = SQLFreeStmt(Hstmt, SQL_DROP)
  
  GetInfo = True
  DB_Disconnect
End Function

Public Function GetFlag(ByVal TmpNo As String) As Integer
  DB_Connect
  SqlStmt = "SELECT Flag FROM Cards WHERE Cardno='" + Trim(TmpNo) + "'"
  OdbcExt (SqlStmt)
  If SQLFetch(Hstmt) = SQL_NO_DATA_FOUND Then
    GetFlag = -1
    Exit Function
  Else
    ColVal = String(4, 0)
    Rc = SQLGetData(Hstmt, 6, 1, ColVal, Lench(ColVal), pcblench)
    GetFlag = Val(ColVal)
  End If
    
  Rc = SQLFreeStmt(Hstmt, SQL_DROP)
  
  DB_Disconnect
End Function


Public Sub Insert()
  DB_Connect
  
  SqlStmt = "INSERT INTO Cards Values('" + Trim(Cardno) + "','" _
          + Trim(DepName) + "','" + Trim(EmpName) + "','" _
          + Trim(Idcard) + "','" + Trim(CreateDate) + "'," + Trim(Flag) + ")"
  OdbcExt (SqlStmt)
  Rc = SQLFreeStmt(Hstmt, SQL_DROP)
  DB_Disconnect
End Sub

Public Sub Update(ByVal TmpNo As String)
  DB_Connect
  
  SqlStmt = "Update Cards Set Cardno='" + Trim(Cardno) + "',DepName='" + Trim(DepName) + "',EmpName='" _
          + Trim(EmpName) + "', Idcard='" + Trim(Idcard) + "', CreateDate='" _
          + Trim(CreateDate) + "', Flag=" + Trim(Flag) + " WHERE Cardno='" _
          + Trim(TmpNo) + "'"
  OdbcExt (SqlStmt)
  Rc = SQLFreeStmt(Hstmt, SQL_DROP)
  DB_Disconnect
End Sub
'更改状态标志为挂失Flag=FlagNum
Public Sub UpdateFlag(ByVal TmpNo As String, ByVal FlagNum As Integer)
  DB_Connect
  
  SqlStmt = "Update Cards Set Flag=" + Trim(FlagNum) + " WHERE Cardno='" _
          + Trim(TmpNo) + "'"
  OdbcExt (SqlStmt)
  Rc = SQLFreeStmt(Hstmt, SQL_DROP)
  DB_Disconnect
End Sub