Logon?

Delphi

06/03/2004

Gostaria de um exemplo de Form de Logon (Usuario e senha) utilizando tabelas paradox. Se possível me mandem um exemplo.


Rafael Santana

Rafael Santana

Curtidas 0

Respostas

Fabio.hc

Fabio.hc

06/03/2004

Tente assim:
Ex:
[b:4a9d598e17]Mostrar um Form de LogOn antes do Form principal[/b:4a9d598e17]
{
* Crie um novo Projeto. Este certamente terá o Form1.
* Adicione um novo Form (Form2).
* Coloque no Form2 dois botões TBitBtn.
* Mude a propriedade Kind do BitBtn1 para bkOK.
* Mude a propriedade Kind do BitBtn2 para bkCancel.
* Vá no menu ´Project/Options´ na aba ´Forms´ e passe o
Form2 de ´Auto-create Forms´ para ´Available Forms´.
* Abra o arquivo Project.dpr (menu Project/View Source).
* Altere o conteúdo deste arquivo conforme abaixo:
}

program Project1;
 
uses
  Forms, Controls,
  Unit1 in ´Unit1.pas´ ,
  Unit2 in ´Unit2.pas´ ;
 
{$R *.RES}
 
var
  F: TForm2;
 
begin
  F := TForm2.Create(Application);
  try
  if F.ShowModal = mrOK then begin
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Application.Run;
  end;
  finally
  F.Free;
  end;
end.

Observações
O Form2 do exemplo é o Form de LogOn. Este deverá ser preparado para que se possa escolher o usuário, digitar a senha, etc.


GOSTEI 0
Tnaires

Tnaires

06/03/2004

Caro rafael, tenho um exemplo q fiz para um outro usuário do fórum q tava com dúvida nisso aí. Vou mandar pro seu e-mail ok?
Abraços


GOSTEI 0
POSTAR