rotina de logon

Question

para fazer logon em um sistema usei um rotina no formcreate do frmPrincipal, a rotina de logon chama o frmLogon que tem um botao OK e Cancelar. Se digitar tudo certinho blz, mas se clicar em cancelar ...

Tnaires · Answer

Ao inv�s de chamar frmPrincipal.Close, chame Application.Terminate....

Evecar · Answer

[i:53d0dc50ef]Ao inv�s de chamar frmPrincipal.Close, chame Application.Terminate[/i:53d0dc50ef]

Tentei tb mas o erro persiste! Inclusive no formClose fechava a coneccao e dava um application.terminate; mas continua dizendo que o Transaction nao esta definido. Porem eu executo:

procedure TfrmPrincipal.FormCreate(Sender: TObject);
begin
frmPrincipal.TimerPrincipal.Enabled:=false;
frmPrincipal.Caption:=�SpeedToys 0.4�;
nProximaAgenda:=Now;
AbreMySql();               // Aqui abre zMySqlDatabase e zMySqlTransaction
Logoff1Click(Sender);  // Login/Senha (BtnCancelar=>frmPrincipal.Close)
UppdateTitulos(); // <= Ocorre o erro numa instrusao sql aqui dentro
end;

procedure TfrmPrincipal.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
ShowMessage(�desconectando...�);
if zMySpeed.Connected then begin
   zQyTitulos.Active:=False;
   zQyOpcoes.Active:=False;
   dsQyTitulos.Destroy;
   dsOpcoes.Destroy;
   zTrSpeed.Destroy;
   zMySpeed.Destroy;  // A rigor soh precisaria dessa linha !
end;   
ShowMessage(�terminando...�);
Application.Terminate;
end;

Tnaires · Answer

N�o no OnClose do frmPrincipal, simplesmente no OnClick do bot�o Cancelar da tela de Logon. Sem nenhuma outra instru��o, simplesmente:

procedure frmLoginButton1.Click(Sender: TObject)
begin
  Application.Terminate;
end;

A id�ia �: se o usu�rio n�o quiser entrar no sistema, n�o h� necessidade d fazer nenhuma conex�o.

F�rum rotina de logon #231458