VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "ClsClient"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Public Id As String
Public ClientGroup As Integer
Public Name As String
Public Caller As String
Public Company As String
Public Duty As String
Public Mobile As String
Public Phone As String
Public Detail As String
Public Sub Init()
  Id = 0
  ClientGroup = ""
  Name = ""
  Caller = ""
  Company = ""
  Duty = ""
  Mobile = ""
  Phone = ""
  Detail = ""
End Sub

'刪除Employees數據
Public Sub Delete(ByVal TmpClientId As String)
   '連接數據庫
  MyDB.openDB
  
  SqlStmt = "Delete FROM Client WHERE Id=" + Trim(TmpClientId) + ""
  
  '執行SQL語句
  Dim Isexe As Boolean
  Dim rsClient As ADODB.Recordset
  Isexe = MyDB.exeSql(SqlStmt, rsClient, True)
  
  
  '斷開與數據庫的連接
  MyDB.closeDB
End Sub

Public Function GetName(ByVal TmpClientId As Long) As String
  If TmpClientId <= 0 Then
    GetName = ""
    Exit Function
  End If
  
  '連接數據庫
  MyDB.openDB
  
  SqlStmt = "SELECT Name FROM Client WHERE Id=" + Trim(Str(TmpClientId))
    
    '執行SQL語句
  Dim Isexe As Boolean
  Dim rsClient As ADODB.Recordset
  Isexe = MyDB.exeSql(SqlStmt, rsClient, True)

  If rsClient.RecordCount = 0 Then
    GetName = ""
    Exit Function
  Else
    GetName = rsClient.Fields("Name")
  End If
    
 '斷開與數據庫的連接
  MyDB.closeDB
End Function

Public Function GetInfo(ByVal TmpClientId As Long) As Boolean
  If TmpClientId <= 0 Then
    Init
    GetInfo = False
    Exit Function
  End If
  
  Id = TmpClientId
  
  '連接數據庫
  MyDB.openDB
  
  SqlStmt = "SELECT * FROM Client WHERE Id=" + Trim(Str(TmpClientId))
      
      '執行SQL語句
  Dim Isexe As Boolean
  Dim rsClient As ADODB.Recordset
  Isexe = MyDB.exeSql(SqlStmt, rsClient, True)
  
  If rsClient.RecordCount = 0 Then
    GetInfo = False
      '斷開與數據庫的連接
  MyDB.closeDB
    Exit Function
  Else
  ClientGroup = rsClient.Fields("ClientGroup")
  Name = rsClient.Fields("Name")
  Caller = rsClient.Fields("Caller")
  Company = rsClient.Fields("Company")
  Duty = rsClient.Fields("Duty")
  Mobile = rsClient.Fields("Mobile")
  Phone = rsClient.Fields("Phone")
  Detail = rsClient.Fields("Detail")
  End If
    
  
  GetInfo = True
   '斷開與數據庫的連接
  MyDB.closeDB
End Function

Public Function GetNewId() As Long
  Dim TmpId As Long
  
   '連接數據庫
  MyDB.openDB
    
  SqlStmt = "SELECT Id FROM Client ORDER BY Id"
       '執行SQL語句
  Dim Isexe As Boolean
  Dim rsClient As ADODB.Recordset
  Isexe = MyDB.exeSql(SqlStmt, rsClient, True)
  
  i = 1
  Do While rsClient.EOF = False
  
    TmpId = rsClient.Fields("Id")
    If TmpId = i Then
      i = i + 1
    Else
      GetNewId = i
      '斷開與數據庫的連接
  MyDB.closeDB
      Exit Function
    End If
  rsClient.MoveNext
  Loop
      '斷開與數據庫的連接
  MyDB.closeDB
  
  GetNewId = i
End Function

Public Sub Insert()
  Id = GetNewId
  
   '連接數據庫
  MyDB.openDB

  SqlStmt = "INSERT INTO Client (Id, ClientGroup, Name, Caller," _
     + "Company,Duty,Mobile, Phone, Detail)" _
     + " Values(" + Trim(Str(Id)) + ",'" + Trim(ClientGroup) _
     + "','" + Trim(Name) + "','" + Trim(Caller) + "','" _
     + Trim(Company) + "','" + Trim(Duty) + "','" + Trim(Mobile) + "','" _
     + Trim(Phone) + "','" + Trim(Detail) + "')"
   '執行SQL語句
  Dim Isexe As Boolean
  Dim rsClient As ADODB.Recordset
  Isexe = MyDB.exeSql(SqlStmt, rsClient, True)
    
      '斷開與數據庫的連接
  MyDB.closeDB
End Sub

Public Sub Load_by_Dep(ByVal TmpDepId As Integer)
  Dim i As Integer
  '初始化部門數組
  Erase Arr_EmpId
  ReDim Arr_EmpId(0)
  
   '連接數據庫
  MyDB.openDB
  SqlStmt = "SELECT Id FROM Client WHERE ClientGroup=" _
          + Trim(Str(TmpDepId)) + " ORDER BY Id"
  
     '執行SQL語句
  Dim Isexe As Boolean
  Dim rsClient As ADODB.Recordset
  Isexe = MyDB.exeSql(SqlStmt, rsClient, True)
  
  i = 0
  Do Until rsClient.EOF
    '讀取部門編號
   
    ReDim Preserve Arr_EmpId(i + 1)
    Arr_EmpId(i) = rsClient.Fields("Id")
    
    i = i + 1
  rsClient.MoveNext
  Loop
      
      '斷開與數據庫的連接
  MyDB.closeDB
End Sub

Public Sub Update(ByVal OriClientId As Integer)
    '連接數據庫
  MyDB.openDB
    
   
'Public Id As String
'Public ClientGroup As String
'Public Name As String
'Public Caller As String
'Public Company As String
'Public Mobile As String
'Public Phone As String
'Public Detail As String
   
  SqlStmt = "Update Client Set ClientGroup='" + Trim(ClientGroup) _
          + "',Name='" + Trim(Name) + "',Caller='" + Trim(Caller) _
          + "',Company='" + Trim(Company) + "',Mobile='" + Trim(Mobile) _
          + "',Duty='" + Trim(Duty) _
          + "',Phone='" + Trim(Phone) _
          + "',Detail='" + Trim(Detail) _
          + "' WHERE Id=" + Trim(Str(OriClientId))
     '執行SQL語句
  Dim Isexe As Boolean
  Dim rsClient As ADODB.Recordset
  Isexe = MyDB.exeSql(SqlStmt, rsClient, True)
        '斷開與數據庫的連接
  MyDB.closeDB
End Sub