LotusScript面向对象程序设计

Class DOMobj_Person
gdoc_Person As NotesDocument

' **
屬性
Property Get Document
  Set Document = gdoc_Person
End
Property
Property Set Document
  Set gdoc_Person = Document
End
Property

Property Get NotesID
  NotesID =
gdoc_Person.GetItemValue("NotesID")(0)
End Property

Property Get
No
  No = gdoc_Person.GetItemValue("EmpNo")(0)
End
Property

Property Get CName
  CName =
gdoc_Person.GetItemValue("EmpCName")(0)
End Property

Property Get
EName
  EName = gdoc_Person.GetItemValue("EmpName")(0)
End
Property

Property Get DeptNo
  DeptNo =
gdoc_Person.GetItemValue("DeptNo")(0)
End Property

Property Get
DeptName
  DeptName = gdoc_Person.GetItemValue("DeptCName")(0)
End
Property

Property Get DeptLayer
  DeptLayer =
gdoc_Person.GetItemValue("DeptLayer")(0)
End Property

' **
代理資訊
Property Get AgentStatus
  AgentStatus =
gdoc_Person.GetItemValue("AgentStart")(0)
End Property
' ** 建構子
Sub
New(pstr_SearchType As String , pstr_SearchKey As String)
  Set gdoc_Person =
domf_docGetPersonal(pstr_SearchType , pstr_SearchKey)
End Sub

' **
方法
Function getPerson(pstr_SearchType As String , pstr_SearchKey As
String)
  Set gdoc_Person =
domf_docGetPersonal(pstr_SearchType,pstr_SearchKey)
End Function
'---get
First Item Value
Function getFirstItemValue(pstr_item As String) As
Variant
  getFirstItemValue =
Me.gdoc_Person.getFirstItemValue(pstr_item)
End Function
'---get Default
Deputy
Function getDefaultDeputy() As DOMobj_Person
  Set
getDefaultDeputy = Nothing
  If (Me.AgentStatus) Then
   If
gdoc_Person.GetItemValue("DeputyEmpNo")(0) <> "" Then
    Set
getDefaultDeputy = New DOMobj_Person("NO" ,
gdoc_Person.GetItemValue("DeputyEmpNo")(0))
   End If
  End If
End
Function
'---get Class Deputy
Function getDeputyByClass(pstr_Class As
String)
 
End Function
End Class