www.pudn.com > vb625557712344.rar > MemberType.cls, change:2004-05-05,size:1942b

VERSION 1.0 CLASS 
BEGIN 
  MultiUse = -1  'True 
  Persistable = 0  'NotPersistable 
  DataBindingBehavior = 0  'vbNone 
  DataSourceBehavior  = 0  'vbNone 
  MTSTransactionMode  = 0  'NotAnMTSObject 
END 
Attribute VB_Name = "MemberType" 
Attribute VB_GlobalNameSpace = False 
Attribute VB_Creatable = True 
Attribute VB_PredeclaredId = False 
Attribute VB_Exposed = False 
 
Public Id As Long 
Public TypeName As String 
Public Rate As Double 
 
Public Sub Init() 
  TypeName = "" 
  Rate = 1 
End Sub 
 
Public Sub Delete(ByVal TmpId As Long) 
  SqlStmt = "DELETE FROM MemberType WHERE Id=" + Trim(TmpId) 
  SQLExt (SqlStmt) 
End Sub 
 
Public Function In_DB(ByVal TmpTypeName As String) As Boolean 
  Dim rs As New ADODB.Recordset 
   
  SqlStmt = "SELECT * FROM MemberType WHERE TypeName='" _ 
          + Trim(TmpTypeName) + "'" 
  Set rs = QueryExt(SqlStmt) 
  If rs.EOF = True Then 
    In_DB = False 
  Else 
    In_DB = True 
  End If 
End Function 
Public Function GetInfo(ByVal TmpId As Long) As Boolean 
  Dim rs As New ADODB.Recordset 
   
  SqlStmt = "SELECT * FROM MemberType WHERE Id=" + Trim(TmpId) 
  Set rs = QueryExt(SqlStmt) 
 
  If rs.EOF Then 
    Init 
    GetInfo = False 
  Else 
    If IsNull(rs.Fields(0)) Then 
      Id = 0 
    Else 
      Id = rs.Fields(0) 
    End If 
    
    If IsNull(rs.Fields(1)) Then 
      TypeName = "" 
    Else 
      TypeName = rs.Fields(1) 
    End If 
    If IsNull(rs.Fields(2)) Then 
      Rate = 1 
    Else 
      Rate = rs.Fields(2) 
    End If 
    GetInfo = True 
  End If 
End Function 
 
Public Sub Insert() 
  SqlStmt = "INSERT INTO MemberType(TypeName,Rate) " _ 
          + "VALUES('" + Trim(TypeName) + "'," + Trim(Rate) + ")" 
  SQLExt (SqlStmt) 
End Sub 
Public Sub Update(ByVal TmpId As Long) 
   SqlStmt = "UPDATE MemberType SET TypeName='" + Trim(TypeName) _ 
          + "',Rate='" + Trim(Rate) + "' Where Id = " + Trim(TmpId) 
  SQLExt (SqlStmt) 
End Sub