Fórum Usar Variavel #154794

Junior,

Coloca o código da unit que pega o login aqui.

Olá;

Faço isso sem nenhum problema.

Declare na seção public do form de Acesso a variável;

private
Usuario: String;

Atribuí a essa varável o valor que deve ser passado a outro form;

Variavel := Edit1.Text; // faça isso antes de chamar o form

Agora no form que desejado faça o seguinte:

ShowMessage(form1.Variavel);

Sim. Quando compilar responda YES para que o form seja declarado na USES.

Qualquer dúvida disponha.
T+

O fonte vai logo abaixo, bem eu pego ela direto ta tabela tem algum problema....??




unit Principal;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
ExtCtrls, ComCtrls, StdCtrls, Buttons, Db, DBTables,XP_Button,
XP_Edit, XP_Panel, XPMenu, XP_IconBox, UserDefine, BDEUserControl, Menus,
ActnList, jpeg;

type
TdfmInicio = class(TForm)
Edit1: TEdit;
Edit2: TEdit;
BitBtn1: TBitBtn;
StatusBar1: TStatusBar;
QrySenha: TQuery;
QrySenhaLogin: TStringField;
QrySenhaSenha: TStringField;
QrySenhaNome: TStringField;
QrySenhaCadastrodeProfessores: TBooleanField;
QrySenhaProfessores: TBooleanField;
QrySenhaConsultaProfessores: TBooleanField;
QrySenhaConsultaGeral: TBooleanField;
QrySenhaRelatorioGeral: TBooleanField;
procedure BitBtn1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure Edit1Exit(Sender: TObject);

private
{ Private declarations }
public
{ Public declarations }
end;

var
dfmInicio: TdfmInicio;
Usuario: String; // está aqui.........


implementation

uses UPrincipal;



{$R *.DFM}
procedure TdfmInicio.BitBtn1Click(Sender: TObject);
begin
Qrysenha.Close;
QrySenha.SQL.Clear;
QrySenha.SQL.Add(´Select * From Senha Where Login = ´ + QuotedStr(edit1.text));
QrySenha.Open;
If QrySenhaLogin.Value <> ´´ then
Begin
If edit2.text = QrySenhaSenha.Value
then Form1.Showmodal



else showmessage(´Nome do usuário ou senha errado´);

Edit1.Clear;
Edit2.Clear;
Edit1.SetFocus;
end
else showmessage(´Usuario não encontrado´);
Edit1.Clear;
Edit2.Clear;
Edit1.SetFocus;
QrySenha.Close
end;

procedure TdfmInicio.FormCreate(Sender: TObject);
begin


end;

procedure TdfmInicio.Edit1Exit(Sender: TObject);
begin
QrySenha.Close;
QrySenha.SQL.Clear;
QrySenha.SQL.Add(´Select * From Senha Where Login = ´ + QuotedStr(edit1.text));
QrySenha.Open;
If QrySenha.locate(´login´,Edit1.Text,[])
then
Begin
StatusBar1.Panels[0].Text := QrySenhanome.asstring;
usuario:=Qrysenhalogin.value // está aqui....

end;
end;

end.