membertype.cls

机动车租赁管理就是对车辆信息和客户信息的管理

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