<< Click to Display Table of Contents >> Navigation:  Funções da DLL > P_CadastraGruposusuarios

Public Declare Function P_CadastraGruposusuarios Lib "TaskReport.dll" (ByVal GruposUsuarios As String, ByVal ArquivoINI As String) As Boolean

 

função auxiliar

 

Public Sub TR_CadastraGruposUsuarios(Optional ByVal ArquivoINI As String = "")

 

essá função irá cadastrar os grupos de usuários existentes na sua aplicação, na base de dados do taskreport

dessa forma você poderá definir o acesso aos relatórios, utilizado o nome dos mesmo grupos utilizados na sua aplicação

 

ex de uso

 

TR_CadastraGruposUsuarios ""

 

obs: essa função utiliza uma sub função existente nos fontes do gas ou do father

 

TR_RetornaGrupoUsuarios

 

existe 2 versões dessa função para ser utilizada de acordo com a versão do gas ou do father

 

voce deverá abrir o arquivo taskreport.bas, e descomentar a função de acordo com a versão do gerador que você possui.

 

 

 

'******************************************

'*   FAHTER E GAS2007

'******************************************

'DESCOMENTAR A FUNCAO ABAIXO CONFORME SUA VERSAO

'

'Public Function TR_RetornaGrupoUsuarios() As String   'GAS2007 é mesma coisa do FATHER

'  On Error Resume Next

'

'  Dim i As String

'  Dim rsGrupos As New GRecordSet

 

'  Set rsGrupos = vgDb.OpenRecordSet("SELECT * FROM [PW~Grupos]")

'  i = "|"

'  With rsGrupos                                  'com o recordset

'     .MoveFirst                                  'vai para o primeiro

'     Do While Not .EOF                           'enquanto não for fim do arquivo,

'        i = i + Decripta(![PW~Nome]) + "|"       'adiciona este item ao controle

'        .MoveNext                                'move para o próximo registro

'     Loop                                        'e volta...

'  End With

'  TR_RetornaGrupoUsuarios = i

 

'End Function

 

 

'******************************************

'*   GAS2003

'******************************************

 

'Public Function TR_RetornaGrupoUsuarios() As String

'  On Error Resume Next

'

'  Dim i As String

'  Dim vgRsPwGrupos As New ADODB.RecordSet

'  RsOpen vgRsPwGrupos, "SELECT * FROM [PW~Grupos]", vgNomeDb$(0)

'  i = "|"

'  With vgRsPwGrupos                              'com o recordset

'     .MoveFirst                                  'vai para o primeiro

'     Do While Not .EOF                           'enquanto não for fim do arquivo,

'        i = i + EncriptaPW(!Nome) + "|"          'adiciona este item ao controle

'        .MoveNext                                'move para o próximo registro

'     Loop                                        'e volta...

'  End With

'  TR_RetornaGrupoUsuarios = i

'

'End Function