VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "Customer"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
'1 CustId Varchar 40 客戶編號（用客戶身份證號碼表示）
'2 Idtype  Varchar 20 證件類型（包括身份證、軍官證、駕駛證、工作證、學生證、回鄉證和護照等）
'3 CustName Varchar 50 聯系人姓名
'4 OrgName Varchar 100  客戶單位
'5 CustType Varchar 50 客戶類別（由用戶自定義，可以按行業或地域劃分）
'6 CustFrom Varchar 50 國籍戶籍
'7 Sex Varchar 10 性別
'8 Job Varchar 50 職務
'9 Office  Varchar 30 單位電話
'10  Mobile  Varchar 30 移動電話
'11  Home  Varchar 30 家庭電話
'12  CustLevel  Varchar 10 客戶等級（本系統分為普通客戶和貴賓客戶兩種等級，貴賓客戶在結帳時有簽單的權限。在設計賓館酒店管理系統時，可以根據需要設置客戶等級，并為不同等級的客戶制定不同的優惠政策和權限）
'13  Address Varchar 200  家庭住址
'14  Postcode  Varchar 20 郵政編碼

Public CustId As String
Public Idtype As String
Public CustName As String
Public OrgName As String
Public CustType As String
Public CustFrom As String
Public Sex As String
Public Job As String
Public Office As String
Public Mobile As String
Public Home As String
Public CustLevel As String
Public Address As String
Public Postcode As String

Public Sub Init()
  CustId = ""
  Idtype = ""
  CustName = ""
  OrgName = ""
  CustType = ""
  CustFrom = ""
  Sex = ""
  Job = ""
  Office = ""
  Mobile = ""
  Home = ""
  CustLevel = ""
  Address = ""
  Postcode = ""
End Sub

'刪除
Public Sub Delete(ByVal TmpId As String)
  SqlStmt = "DELETE FROM Customer WHERE CustId='" + Trim(TmpId) + "'"
  SQLExt (SqlStmt)
End Sub

Public Function GetInfo(ByVal TmpId As String) As Boolean
  Dim rs As New ADODB.Recordset
  
  '設置SELECT語句，讀取編號為TmpId的記錄
  SqlStmt = "SELECT * FROM Customer WHERE CustId='" + Trim(TmpId) + "'"
  '將結果集讀取到rs中
  Set rs = QueryExt(SqlStmt)

  If rs.EOF = True Then
    '如果結果集為空，則初始化
    Init
    GetInfo = False
  Else
    '將結果集中的數據賦值到成員變量中
    If IsNull(rs.Fields(0)) Then
      CustId = ""
    Else
      CustId = rs.Fields(0)
    End If
    If IsNull(rs.Fields(1)) Then
      Idtype = ""
    Else
      Idtype = rs.Fields(1)
    End If
    If IsNull(rs.Fields(2)) Then
      CustName = ""
    Else
      CustName = rs.Fields(2)
    End If
    If IsNull(rs.Fields(3)) Then
      OrgName = ""
    Else
      OrgName = rs.Fields(3)
    End If
    If IsNull(rs.Fields(4)) Then
      CustType = ""
    Else
      CustType = rs.Fields(4)
    End If
    If IsNull(rs.Fields(5)) Then
      CustFrom = ""
    Else
      CustFrom = rs.Fields(5)
    End If
    If IsNull(rs.Fields(6)) Then
      Sex = ""
    Else
      Sex = rs.Fields(6)
    End If
    If IsNull(rs.Fields(7)) Then
      Job = ""
    Else
      Job = rs.Fields(7)
    End If
    If IsNull(rs.Fields(8)) Then
      Office = ""
    Else
      Office = rs.Fields(8)
    End If
    If IsNull(rs.Fields(9)) Then
      Mobile = ""
    Else
      Mobile = rs.Fields(9)
    End If
    If IsNull(rs.Fields(10)) Then
      Home = ""
    Else
      Home = rs.Fields(10)
    End If
    If IsNull(rs.Fields(11)) Then
      CustLevel = ""
    Else
      CustLevel = rs.Fields(11)
    End If
    If IsNull(rs.Fields(12)) Then
      Address = ""
    Else
      Address = rs.Fields(12)
    End If
    If IsNull(rs.Fields(13)) Then
      Postcode = ""
    Else
      Postcode = rs.Fields(13)
    End If
    
    GetInfo = True
  End If
End Function

Public Function GetNum() As Long
  Dim rs As New ADODB.Recordset
  
  SqlStmt = "SELECT Count(CustId) FROM Customer"
  Set rs = QueryExt(SqlStmt)
  If rs.EOF = True Then
    GetNum = 0
  Else
    GetNum = rs.Fields(0)
  End If
End Function

Public Function In_DB(ByVal TmpId As String) As Boolean
  Dim rs As New ADODB.Recordset
  
  SqlStmt = "SELECT CustId FROM Customer WHERE CustId='" + Trim(TmpId) + "'"
  Set rs = QueryExt(SqlStmt)
  If rs.EOF = True Then
    In_DB = False
  Else
    In_DB = True
  End If
End Function

Public Sub Insert()
  SqlStmt = "INSERT INTO Customer VALUES('" + Trim(CustId) + "','" + Trim(Idtype) + "','" _
          + Trim(CustName) + "','" + Trim(OrgName) + "','" + Trim(CustType) _
          + "','" + Trim(CustFrom) + "','" + Trim(Sex) + "','" + Trim(Job) _
          + "','" + Trim(Office) + "','" + Trim(Mobile) + "','" + Trim(Home) _
          + "','" + Trim(CustLevel) + "','" + Trim(Address) + "','" + Trim(Postcode) + "')"
  SQLExt (SqlStmt)
End Sub

Public Sub Loadtype()
  Dim i As Integer
  Dim rs As New ADODB.Recordset
  '對數組進行初始化
  Erase Arr_CustType
  ReDim Arr_CustType(0)
  '設置SQL語句,使用DISTINCT關鍵字避免出現重復的客戶類別,結果集按CustType字段排序
  SqlStmt = "SELECT DISTINCT CustType FROM Customer ORDER BY CustType"
  '執行SQL語句，將返回結果集賦值到rs對象中
  Set rs = QueryExt(SqlStmt)
  '依次把讀取的數據賦值到數組中
  i = 0
  Do Until rs.EOF = True
    ReDim Preserve Arr_CustType(i + 1)
    Arr_CustType(i) = Trim(rs.Fields(0))
    '將指針移動到下一條記錄
    rs.MoveNext
    i = i + 1
  Loop
End Sub

Public Sub Update(ByVal TmpId As String)
  SqlStmt = "UPDATE Customer SET CustId='" + Trim(CustId) + "', Idtype='" + Trim(Idtype) _
          + "', CustName='" + Trim(CustName) + "', OrgName='" + Trim(OrgName) + "', CustType='" _
          + Trim(CustType) + "', CustFrom='" + Trim(CustFrom) + "', Sex='" + Trim(Sex) _
          + "', Job='" + Trim(Job) + "', Office='" + Trim(Office) + "', Mobile='" _
          + Trim(Mobile) + "', Home='" + Trim(Home) + "', CustLevel='" + Trim(CustLevel) _
          + "', Address='" + Trim(Address) + "', Postcode='" + Trim(Postcode) _
          + "' WHERE CustId='" + Trim(TmpId) + "'"
  SQLExt (SqlStmt)
End Sub