temployees.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 = "TEmployees"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Attribute VB_Ext_KEY = "SavedWithClassBuilder6" ,"Yes"
Attribute VB_Ext_KEY = "Top_Level" ,"Yes"
'保持属性值的局部变量
Private m_Id As Long '局部复制
Private m_Code As String '局部复制
Private m_Name As String '局部复制
Private m_IsChange As Boolean

Public Property Get IsNull() As Boolean
IsNull = m_Id > 0
End Property



Public Property Let Name(ByVal vData As String)
If vData = "" Then Exit Property
If Len(vData) <= 50 Then
   m_Name = vData
Else
   m_Name = Left$(vData, 50)
End If
m_IsChange = True
End Property


Public Property Get Name() As String
Name = m_Name
End Property



Public Property Let Code(ByVal vData As String)
If vData = "" Then Exit Property
If Len(vData) <= 10 Then
   m_Code = vData
Else
   m_Code = Left$(vData, 10)
End If
m_IsChange = True
End Property


Public Property Get Code() As String
Code = m_Code
End Property

'Public Property Let Id(ByVal vData As Long)
'm_Id = vData
'm_IsChange = True
'End Property
Public Property Get Id() As Long
Id = m_Id
End Property
Public Property Get IsChange() As Boolean
IsChange = m_IsChange
End Property


Private Sub Class_Initialize()
ClearData
End Sub
Public Function Find(ByRef pFindString As String, ByVal pFindType As FindType) As Boolean
Dim re As ADODB.Recordset
Select Case pFindType
   Case FindType.Find_From_AutoId
        Set re = SQLFind(pFindString, "Employees", "AutoId", FT_NUMBER)
   Case FindType.Find_From_Code
        Set re = SQLFind(pFindString, "Employees", "Code", FT_CHAR)
   Case FindType.Find_From_Name
        Set re = SQLFind(pFindString, "Employees", "Name", FT_CHAR)
End Select
If re.BOF And re.EOF Then
   Find = False
   Exit Function
End If
m_Id = re.Fields(0).Value
m_Code = re.Fields(1).Value
m_Name = re.Fields(2).Value
m_IsChange = True
Set re = Nothing
Find = True
End Function
Public Sub ClearData()
m_Id = -1
m_Code = vbNullString
m_Name = vbNullString
m_IsChange = False
End Sub