clscaller.cls

来自「以vb为开发工具,使用支持来电显示的modem,实现一个来电显示的客户管理系统」· CLS 代码 · 共 92 行

VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "ClsCaller"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Public CallerID As String
Public CallNumber As String
Public CallDate As String
Public CallTime As String
Public CallName As String
Public CallCaller As String
Public CallMessag As String

Public Sub Init()
  CallerID = 0
  CallNumber = ""
  CallDate = ""
  CallName = ""
  CallCaller = ""
  CallMessag = ""
End Sub







Public Function GetNewId() As Long
  Dim TmpId As String
  
   '连接数据库
  MyDB.openDB
    
  SqlStmt = "SELECT CallerID FROM Caller ORDER BY CallerID"
       '执行SQL语句
  Dim Isexe As Boolean
  Dim rsCaller As ADODB.Recordset
  Isexe = MyDB.exeSql(SqlStmt, rsCaller, True)
  
  i = 1
  Do While rsCaller.EOF = False
  
    TmpId = rsCaller.Fields("CallerId")
    If TmpId = i Then
      i = i + 1
    Else
      GetNewId = i
      '断开与数据库的连接
  MyDB.closeDB
      Exit Function
    End If
  rsCaller.MoveNext
  Loop
      '断开与数据库的连接
  MyDB.closeDB
  
  GetNewId = i
End Function

Public Sub Insert()
  Id = GetNewId
  
   '连接数据库
  MyDB.openDB

  SqlStmt = "INSERT INTO Caller (CallerId, CallNumber, CallDate, CallTime, CallName,CallCaller,CallMessag)" _
     + " Values('" + Trim(CallerID) + "','" + Trim(CallNumber) _
     + "','" + Trim(CallDate) + "','" + Trim(CallTime) + "','" _
     + Trim(CallName) + "','" + Trim(CallCaller) + "','" + Trim(CallMessag) + "')"
   '执行SQL语句
  Dim Isexe As Boolean
  Dim rsCaller As ADODB.Recordset
  Isexe = MyDB.exeSql(SqlStmt, rsCaller, True)
    
      '断开与数据库的连接
  MyDB.closeDB
End Sub