Estou aprendendo e fazendo alguns testes...
Preciso passar o nome do usuário que está na variável USR_NOME para o
meu outro form
A variável USR_NOME já está na sessão public e o outro form já
acrescentei na unit e inclusive ele vê minha variável
Mas ele não imprime nda....na tela... no
----------------------primeiro form
public
{ Public declarations }
USR_NOME: String;
begin
dm.qr_login.Close;
dm.qr_login.SQL.Clear;
dm.qr_login.SQL.Add('SELECT log_nome, count(1) as resultado FROM
tb_login');
dm.qr_login.SQL.Add('WHERE log_login ='''+edit1.Text+''' AND log_senha
='''+edit2.Text+''' GROUP BY log_nome');
dm.qr_login.Open;
if (dm.dsn_login.DataSet['resultado'] = 1 )then
begin
USR_NOME := dm.dsn_login.DataSet['log_nome'];
showmessage(USR_NOME); >> este é o primeiro form e aparece a msg
na tela....
---------------------segundo form
implementation
uses tela_login;
no meu segundo form teria que imprimir algo como Rodrigo Mota
statusbar1.Panels[0].Text := frmlogin.USR_NOME; >> este código está no
meu sengundo form e não aparece...
statusbar1.Panels[0].Text := USR_NOME; >> e fiz assim tb....e nda....
Rodrigo Mota
[As partes desta mensagem que não continham texto foram removidas]
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
