zoukankan      html  css  js  c++  java
  • 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
  • 相关阅读:
    delphiXE7关于android 检测屏幕是否处于关闭状态
    delphiXE7关于android API的使用和检测WIFI状态的问题
    关于Android下Delphi XE7获取通讯录的问题
    多线程操里操作webbrowser的 Frames
    关于游戏引擎
    今天博客开通了
    集合类型-集合
    编程语言
    live Python4笔记
    live Python3笔记
  • 原文地址:https://www.cnblogs.com/hannover/p/2467164.html
Copyright © 2011-2022 走看看