[sqlwin] Centura 1.5 x Sybase Anywhere 5.0

Ubirajara Mattos Thu, 25 Oct 2001 12:17:19 -0700

Title: P�gina normal sem t�tulo

Galera n�o sei se algu�m da lista, j� possuo por este problema:

Rodamos nosso sistema desenvolvido em SQLWindows com BD em Sybase SQL Anywhere 5.0. O interessante � que quando os usu�rios se conectam ao banco, o Sistema automaticamente substitui o nome do user padr�o(dba), pelo nome do pr�prio usu�rio, e esse � o nome que aparece para o gerenciador do pr�prio Sybase no servidor de Dados.

Agora estamos migrando nosso Sistema para uma vers�o 32bits (Centura Team Developer 1.5) e este simplesmente ignora nossa fun��o dentro do script do programa, que instrui a troca do nome default(DBA), pelo nome do usu�rio... ele at� exibe o nome do usu�rio, mas mant�m o DBA tamb�m... a� o meu banco fica com v�rias conex�es do DBA, limitando minha quantidade de conex�es � metade (52 users).

Como posso fazer, para resolver isso? Estou utilizando as rotinas abaixo:

Para Inicializar o Client do Banco de Dados

Dentro de On SAM_AppStartup

Call gFcInicializaAplicacao( )

Function: gFcInicializaAplicacao
      Description: Prepara as vari�veis de ambiente e inicializa a conex�o com a Base de Dados
      Returns
      Parameters
      Static Variables
      Local variables
       Sql Handle: lShConexaoPrimaria
     Actions
           Set SqlDatabase = 'SQL Anywhere 5.0 Sample Client'
           Set SqlUser = 'dba'
           Set SqlPassword = 'sql'
           Call SqlConnect( gShConexaoPrimaria )
           Call SqlConnect( gshErro )
           Call SqlConnect( gshLeitura )
           Call SqlConnect( gshUsuario )
           Call SqlConnect( gshAtualizacao )

Dentro do dialog de LOGIN (On SAM_Click)

Set Usuario = dfLogin
Set Senha = dfSenha
Set pStLogin = dfLogin
Set lNrLogin = lFcChecaLogin( dfLogin, dfSenha )
If lNrLogin = LOGIN_ErroAcesso
Call SalSetFocus( dfSenha )
   Return FALSE
Else If lNrLogin = LOGIN_ErroUsuario
Call SalMessageBox( "Usu�rio n�o cadastrado para acesso ao Sistema !", "LABTEC - Aten��o", MB_IconExclamation )
   Call SalSendMsgToChildren( hWndForm, SAM_Create, 0, 0 )
   Call SalSetFocus( dfLogin )
   Return FALSE
Else If lNrLogin = LOGIN_ErroSenha
   Call SalMessageBeep( 0 )
   Call SalMessageBox( "A senha do usu�rio n�o confere.
   Acesso Negado !", "LABTEC - Informa��o", MB_IconStop )
Else
   Set gStLogin = dfLogin
   Set Usuario = dfLogin
   Set Senha = dfSenha
   Set SqlUser = Usuario
   Set SqlPassword = Senha
   Set gDtHoraAcesso = SalDateCurrent( )
   Set gBlTestaLogin = TRUE
   Call SqlImmediate( "
          Select usua_cd_mail, usua_ch_nome
          Into :gStMail, :gStNomeUsuario
          From ceucel.T_Usuario
          Where usua_cd = :dlgPorta.dfLogin" )
Call lFcChecaLogin( dfLogin, dfSenha )
Call SalModalDialog( dlgLABTEC001, hWndForm )

Obs: Todas as rotinas listadas acima funcionam no SQLWindows, mas no Centura, as fun��es para substitui��o do Login, simplesmente s�o ignoradas, o que ele faz na verdade � criar uma nova conex�o com o nome do usu�rio...

Desde j� agrade�o a aten��o de todos!

Ubirajara Mattos

CEUCEL-RJ

BEGIN:VCARD
VERSION:2.1
N:Mattos;Ubirajara;;Sr.
FN:Ubirajara de S. Mattos Filho
NICKNAME:Bira
ORG:Instituto Superior de Ensino Celso Lisboa;DTI _ Depto. de Tec. da Informa��o
TITLE:Desenvolvedor
TEL;WORK;VOICE:(21)2501-4722 ramal: 247
TEL;WORK;FAX:(21)2501-4722 ramal: 249
ADR;WORK:;;R. Vinte e Quatro de Maio, 797 - Eng. Novo;Rio de Janeiro;RJ;20950-091;Brasil
LABEL;WORK;ENCODING=QUOTED-PRINTABLE:R. Vinte e Quatro de Maio, 797 - Eng. Novo=0D=0ARio de Janeiro, RJ 20950-091=
=0D=0ABrasil
EMAIL;PREF;INTERNET:[EMAIL PROTECTED]
REV:20011025T193231Z
END:VCARD

[sqlwin] Centura 1.5 x Sybase Anywhere 5.0

Responder a