??????????????????????

?????????????????ɡ?
????1Properties??????

    STRINGTABLE DISCARDABLE
    BEGIN
        IDS_DIALOGS_TITLE_MessageDlg      "Message"
        IDS_DIALOGS_TITLE_WarningDlg      "Warning"
        IDS_DIALOGS_TITLE_ErrorDlg        "Error"
        IDS_DIALOGS_TITLE_DirPickerDlg    "Select a Folder:"
        IDS_DIALOGS_TITLE_SelectDocuments "Select Documents"
    END

????2 Task ??????

    ' Tasks:

    ' [All]
    Declare Sub APSrch_SelectView                  basiclib "A_PowerSearch" (ViewName as String)
    Declare Sub APSrch_ClickClearALL               basiclib "A_PowerSearch" ()
    Declare Sub APSrch_ClickSave                   basiclib "A_PowerSearch" ()
    Declare Sub APSrch_ClickLoad                   basiclib "A_PowerSearch" ()
    Declare Sub APSrch_ClickSearch                 basiclib "A_PowerSearch" ()
    Declare Sub APSrch_ClickDone                   basiclib "A_PowerSearch" ()

    '############################################################################
    '#  Sub APSrch_SelectView((ViewName as String)
    '# DESCRIPTION:
    '#      [Task] Select view in power search.
    '# EXAMPLES:
    '#      Call APSrch_SelectView("General")
    '# Orig Author: XX
    '# Orig   Date: April 6?? 2006  
    '# History:
    '#      April 5?? 2006    Original Release     
    '############################################################################
    Sub APSrch_SelectView(ViewName as String)
        Dim cmbName As String
        cmbName=A_GetKeyRC("IDS_DESKTOP_LABEL_SelectView")
        Call A_CmbSelect(cmbName?? ViewName)
    End Sub

????3 Wizard??????

    ' Wizards:

    Declare Sub APSrch_SearchByProperty            basiclib "A_PowerSearch" (Property as String?? Filter as String?? Value as String)
    Declare Sub APSrch_SerachByDocContent          basiclib "A_PowerSearch" (words() as String?? condition() as String)
    Declare Sub APSrch_SearchByDate                basiclib "A_PowerSearch" (Property as String?? Filter as String?? DYear as String?? Aonth as String?? DDay as String)

    '############################################################################
    '#  Sub APSrch_SearchByProperty(Property as String??Filter as String??Value as String)
    '# DESCRIPTION:
    '#      Search by  a property  in general tab
    '# PARAMETERS:
    '#      [In]    Property e.g.?? "DocumentName"
    '#      [In]    Filter   e.g.?? "Contain"
    '#      [In]    Value    e.g.?? "Test"
    '# ERRORS:
    '#      (none)
    '# EXAMPLES:
    '#      Call APSrch_SearchByProperty("DocumentName"??"Contain"??"Test")
    '#      APSrch_SearchByProperty"DocumentName"??"Contain"??"Test"
    '# Orig Author: XX
    '# Orig   Date: May 25?? 2005
    '# History:
    '#      May 25?? 2005    Original Release
    '#      April 11?? 2006 XX Modified "APSrch_General_ClickAdd" instead of "APSrch_ClickAdd" and
    '#                            "APSrch_General_InputValue" instead of "APSrch_InputValue"
    '############################################################################
    Sub APSrch_SearchByProperty(Property as String??Filter as String??Value as String)
        A_Focus A_GetKeyRC("CPN_DESKTOP")
        Call ADesk_ClickTopPowerSearch()
      
        A_Focus A_GetKeyRC("IDD_POWERSEARCH_TEMPLATE.CAPTION")
        APSrch_SelectProperty Property
        APSrch_SelectFilter Filter
        APSrch_General_InputValue Value
      
        Call APSrch_General_ClickAdd()
        APSrch_ClickSearch
      
        Call A_Delay(10000)
    End Sub