Public Function Create(objApp As Object, Optional objParam As Object) As Collection
    On Error Resume Next
    '------------------------------------------------
    Dim objFrm As Object
    Set MyApp = objApp
    Set objFrm = New frmMain
    
    If Not objParam Is Nothing Then
      ''支持直接传入XML格式字符串
      If InStr(1, objParam.Item(1), "<?xml ") > 0 Then
          objFrm.strRptTemplate = objParam.Item(1)
      Else
          
         
          
          Dim TemplateID As String
          ''=====================================================================================
          ''传入参数TemplateID : 支持三种格式:
          ''1.数字，即表tpl 中的ＩＤ字段的值
          ''2.打开数据库中的模板(最新版本的)属性,格式：accounting|ledger|gl| ''模块|类型|报表标识
          ''3.要载入的模板文件的全路径
          ''=====================================================================================
          
          If objParam.Count = 1 Then
            '当只有一个参数的时候，我们也支持参数名称随便取
            TemplateID = objParam.Item(1)
          Else
            TemplateID = objParam.Item("TemplateID")
          End If
          
           
          Call objFrm.GetTemplateFromDBorFile(TemplateID)
          
      End If
      
      ''传入参数：SaveAs
      ''有些模板需要另存为另外一种标识，例如进销存的单据模板
      objFrm.SaveAs = objParam.Item("SaveAs")
      ''todo... 如果用户打开了其他模板，SaveAs应该变为空串

    End If
    Load objFrm
    MyApp.ShowForm objFrm
    '------------------------------------------------
    
End Function