cclient.cls

对客户管理的系统 运行相应EXE文件前

VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "cClient"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = True
Option Explicit

Private mvarID As Long
Private mvarName As String
Private mvarAge As Integer
Private mvarSex As gxcSex
Private mvarTypeId As Long
Private mvarTypeName As String
Private mvarMobile As String
Private mvarEmail As String
Private mvarOfficePhone As String
Private mvarHomePhone As String
Private mvarFax As String
Private mvarHomeAdr As String
Private mvarMailAdr As String
Private mvarZipCode As String
Private mvarBirthday As Date
Private mvarBirthdayWarn As Boolean
Private mvarWork As String
Private mvarPosition As String
Private mvarCompany As String
Private mvarCompanySite As String
Private mvarSelfSite As String
Private mvarLikes As String
Private mvarHate As String
Private mvarRemark As String
Private mvarImportance As Integer
Private mvarFriendly As Integer
Private mvarSatisfaction As Integer


Public Property Let ID(ByVal vData As Long)
  mvarID = vData
End Property
Public Property Get ID() As Long
  ID = mvarID
End Property


Public Property Let Name(ByVal vData As String)
  vData = Trim(vData)
  
  If Len(vData) > 10 Then vData = Left(vData, 10)
  mvarName = vData
End Property
Public Property Get Name() As String
  Name = mvarName
End Property


Public Property Let TypeName(ByVal vData As String)
  mvarTypeName = vData
End Property
Public Property Get TypeName() As String
  TypeName = mvarTypeName
End Property


Public Property Let TypeID(ByVal vData As Long)
  mvarTypeId = vData
End Property
Public Property Get TypeID() As Long
  TypeID = mvarTypeId
End Property


Public Property Let Sex(ByVal vData As gxcSex)
  mvarSex = vData
End Property
Public Property Get Sex() As gxcSex
  Sex = mvarSex
End Property


Public Property Let Mobile(ByVal vData As String)
  mvarMobile = vData
End Property
Public Property Get Mobile() As String
  Mobile = mvarMobile
End Property


Public Property Let Email(ByVal vData As String)
  mvarEmail = vData
End Property
Public Property Get Email() As String
  Email = mvarEmail
End Property


Public Property Let OfficePhone(ByVal vData As String)
  mvarOfficePhone = vData
End Property
Public Property Get OfficePhone() As String
  OfficePhone = mvarOfficePhone
End Property


Public Property Let HomePhone(ByVal vData As String)
  mvarHomePhone = vData
End Property
Public Property Get HomePhone() As String
  HomePhone = mvarHomePhone
End Property


Public Property Let Fax(ByVal vData As String)
  mvarFax = vData
End Property
Public Property Get Fax() As String
  Fax = mvarFax
End Property


Public Property Let HomeAdr(ByVal vData As String)
  mvarHomeAdr = vData
End Property
Public Property Get HomeAdr() As String
  HomeAdr = mvarHomeAdr
End Property


Public Property Let MailAdr(ByVal vData As String)
  mvarMailAdr = vData
End Property
Public Property Get MailAdr() As String
  MailAdr = mvarMailAdr
End Property


Public Property Let ZipCode(ByVal vData As String)
  mvarZipCode = vData
End Property
Public Property Get ZipCode() As String
  ZipCode = mvarZipCode
End Property


Public Property Let Birthday(ByVal vData As Date)
  mvarBirthday = vData
End Property
Public Property Get Birthday() As Date
  Birthday = mvarBirthday
End Property


Public Property Let Age(ByVal vData As Integer)
  mvarAge = vData
End Property
Public Property Get Age() As Integer
  Age = mvarAge
End Property


Public Property Let BirthdayWarn(ByVal vData As Boolean)
  mvarBirthdayWarn = vData
End Property
Public Property Get BirthdayWarn() As Boolean
  BirthdayWarn = mvarBirthdayWarn
End Property


Public Property Let Work(ByVal vData As String)
  mvarWork = vData
End Property
Public Property Get Work() As String
  Work = mvarWork
End Property


Public Property Let Position(ByVal vData As String)
  mvarPosition = vData
End Property
Public Property Get Position() As String
  Position = mvarPosition
End Property


Public Property Let Company(ByVal vData As String)
  mvarCompany = vData
End Property
Public Property Get Company() As String
  Company = mvarCompany
End Property


Public Property Let CompanySite(ByVal vData As String)
  mvarCompanySite = vData
End Property
Public Property Get CompanySite() As String
  CompanySite = mvarCompanySite
End Property


Public Property Let SelfSite(ByVal vData As String)
  mvarSelfSite = vData
End Property
Public Property Get SelfSite() As String
  SelfSite = mvarSelfSite
End Property


Public Property Let Likes(ByVal vData As String)
  mvarLikes = vData
End Property
Public Property Get Likes() As String
  Likes = mvarLikes
End Property


Public Property Let Hate(ByVal vData As String)
  mvarHate = vData
End Property
Public Property Get Hate() As String
  Hate = mvarHate
End Property


Public Property Let Remark(ByVal vData As String)
  mvarRemark = vData
End Property
Public Property Get Remark() As String
  Remark = mvarRemark
End Property


Public Property Let Importance(ByVal vData As Integer)
  mvarImportance = vData
End Property
Public Property Get Importance() As Integer
  Importance = mvarImportance
End Property


Public Property Let Friendly(ByVal vData As Integer)
  mvarFriendly = vData
End Property
Public Property Get Friendly() As Integer
  Friendly = mvarFriendly
End Property


Public Property Let Satisfaction(ByVal vData As Integer)
  mvarSatisfaction = vData
End Property
Public Property Get Satisfaction() As Integer
  Satisfaction = mvarSatisfaction
End Property


Public Function AddNew(Optional ByVal strName As String = "", _
                       Optional ByVal intAge As Integer = 0, _
                       Optional varSex As gxcSex = -1, _
                       Optional lngTypeId As Long = 0) As Boolean
  On Error Resume Next
  
  
  If strName <> "" Then Me.Name = strName
  If intAge <> 0 Then Me.Age = intAge
  If varSex <> -1 Then Me.Sex = varSex
  If lngTypeId <> 0 Then Me.TypeID = lngTypeId
  
  Dim strSQL As String
  
  g_Conn.BeginTrans
  
  
  Me.ID = NextID("ClientInfo", "ClientId")
  Me.TypeName = GetValueByID("ClientType", "TypeId", Me.TypeID, "TypeName")
  
  
  strSQL = "Insert into ClientInfo([Name], Age, Sex, TypeId, Mobile, Email, OfficePhone, "
  strSQL = strSQL & " HomePhone, Fax, HomeAddress, MailAddress, ZipCode, Birthday, "
  strSQL = strSQL & " BirthdayWarn, [Work], [Position], Company, CompanySite, SelfSite, "
  strSQL = strSQL & " Likes, Hate, Remark, Importance, Friendly, Satisfaction) "
  strSQL = strSQL & " VALUES("
  strSQL = strSQL & "'" & RealString(mvarName) & "',"
  strSQL = strSQL & mvarAge & ","
  strSQL = strSQL & mvarSex & ","
  strSQL = strSQL & mvarTypeId & ","
  strSQL = strSQL & "'" & RealString(mvarMobile) & "',"
  strSQL = strSQL & "'" & RealString(mvarEmail) & "',"
  strSQL = strSQL & "'" & RealString(mvarOfficePhone) & "',"
  strSQL = strSQL & "'" & RealString(mvarHomePhone) & "',"
  strSQL = strSQL & "'" & RealString(mvarFax) & "',"
  strSQL = strSQL & "'" & RealString(mvarHomeAdr) & "',"
  strSQL = strSQL & "'" & RealString(mvarMailAdr) & "',"
  strSQL = strSQL & "'" & RealString(mvarZipCode) & "',"
  strSQL = strSQL & "'" & mvarBirthday & "',"
  strSQL = strSQL & mvarBirthdayWarn & ","
  strSQL = strSQL & "'" & RealString(mvarWork) & "',"
  strSQL = strSQL & "'" & RealString(mvarPosition) & "',"
  strSQL = strSQL & "'" & RealString(mvarCompany) & "',"
  strSQL = strSQL & "'" & RealString(mvarCompanySite) & "',"
  strSQL = strSQL & "'" & RealString(mvarSelfSite) & "',"
  strSQL = strSQL & "'" & RealString(mvarLikes) & "',"
  strSQL = strSQL & "'" & RealString(mvarHate) & "',"
  strSQL = strSQL & "'" & RealString(mvarRemark) & "',"
  strSQL = strSQL & mvarImportance & ","
  strSQL = strSQL & mvarFriendly & ","
  strSQL = strSQL & mvarSatisfaction
  strSQL = strSQL & ")"
  
  
  g_Conn.Execute strSQL
  g_Conn.CommitTrans
  
  
  AddNew = (Err.Number = 0)
End Function


Public Function Update() As Boolean
  On Error Resume Next
  Dim strSQL As String
  
  
  strSQL = "Update ClientInfo set "
  
  strSQL = strSQL & "[Name]= '" & RealString(mvarName) & "',"
  strSQL = strSQL & "Age = " & mvarAge & ","
  strSQL = strSQL & "Sex = " & mvarSex & ","
  strSQL = strSQL & "TypeId = " & mvarTypeId & ","
  strSQL = strSQL & "Mobile = '" & RealString(mvarMobile) & "',"
  strSQL = strSQL & "Email = '" & RealString(mvarEmail) & "',"
  strSQL = strSQL & "OfficePhone = '" & RealString(mvarOfficePhone) & "',"
  strSQL = strSQL & "HomePhone = '" & RealString(mvarHomePhone) & "',"
  strSQL = strSQL & "Fax = '" & RealString(mvarFax) & "',"
  strSQL = strSQL & "HomeAddress = '" & RealString(mvarHomeAdr) & "',"
  strSQL = strSQL & "MailAddress = '" & RealString(mvarMailAdr) & "',"
  strSQL = strSQL & "ZipCode = '" & RealString(mvarZipCode) & "',"
  strSQL = strSQL & "Birthday = '" & mvarBirthday & "',"
  strSQL = strSQL & "BirthdayWarn = " & mvarBirthdayWarn & ","
  strSQL = strSQL & "[Work] = '" & RealString(mvarWork) & "',"
  strSQL = strSQL & "[Position] = '" & RealString(mvarPosition) & "',"
  strSQL = strSQL & "Company = '" & RealString(mvarCompany) & "',"
  strSQL = strSQL & "CompanySite = '" & RealString(mvarCompanySite) & "',"
  strSQL = strSQL & "SelfSite = '" & RealString(mvarSelfSite) & "',"
  strSQL = strSQL & "Likes = '" & RealString(mvarLikes) & "',"
  strSQL = strSQL & "Hate = '" & RealString(mvarHate) & "',"
  strSQL = strSQL & "Remark = '" & RealString(mvarRemark) & "',"
  strSQL = strSQL & "Importance = " & mvarImportance & ","
  strSQL = strSQL & "Friendly = " & mvarFriendly & ","
  strSQL = strSQL & "Satisfaction = " & mvarSatisfaction
  
  strSQL = strSQL & " Where ClientId=" & Me.ID
  
  g_Conn.Execute strSQL
  
  
  Update = (Err.Number = 0)
End Function


Public Function Delete(Optional ByVal lngID As Long = 0) As Boolean
  Dim strSQL As String
  On Error Resume Next
  
  
  If lngID <> 0 Then Me.ID = lngID
  
  
  g_Conn.BeginTrans

 
  strSQL = "DELETE FROM Warning WHERE ClientId =" & Me.ID
  g_Conn.Execute strSQL
  
  
  strSQL = "DELETE FROM Cooperate WHERE ClientId =" & Me.ID
  g_Conn.Execute strSQL
  
  
  strSQL = "DELETE FROM ClientInfo WHERE ClientId=" & Me.ID
  g_Conn.Execute strSQL
  
  g_Conn.CommitTrans
  
  
  Delete = (Err.Number = 0)
End Function



Public Function AssignToDepartment(ByVal TypeID As Long) As Boolean
 
  Me.TypeID = TypeID
  AssignToDepartment = Me.Update
End Function


Public Function GetType() As CType
  Dim objTypes As New CTypes
  
  objTypes.Find Me.TypeID
  If objTypes.Count > 0 Then Set GetType = objTypes.Item(1)
End Function