Login

[Reloaded`]

como eu faço pra quando o usuario clicar no botão logar, o programa verificar se o usuario e a senha são validos? isso já cadastrado num banco de dados.

Obs: Banco de dados em Paradox 7

Ass. Marcelo A. Augusto :blink:

[dca2001]

:o

Deixa eu ver se entendi... você tem um BD com os usuários e sua senha... mas quer checar a entrada deles..

Primeiro coloque um

LOCATE , para pesquisar o nome... depois um if (se a senha = senha cadatrada) prossiga... se não "aquela pergunta" Quer cadastrar?

[dca2001]

:o

Deixa eu ver se entendi... você tem um BD com os usuários e sua senha... mas quer checar a entrada deles..

Primeiro coloque um

LOCATE , para pesquisar o nome... depois um if (se a senha = senha cadastrada) prossiga... se não "aquela pergunta" Quer cadastrar?

[Guest CorN_Sk8]

esse aqui é um codigo parecido, de logar, modifica ele para ficar parecido com o do seu programa.. ele é bem simples, eu uso ele

procedure TForm1.Button2Click(Sender: TObject);

var

Login, Senha : String;

ValorSenha : TstringField;

begin

if not Table1.FindKey([E_Login.Text]) then

begin

ShowMessage('Login recusado ou senha inválida...');

E_Login.SetFocus;

Exit;

end;

ValorSenha := Table1.findfield('Senha') as TStringField;

if ValorSenha.value <> E_Senha.Text then

begin

ShowMessage('Login recusado ou senha inválida...');

E_Login.SetFocus;

Exit;

end;

//Acao Apos Login

form1.E_Login.Clear;

form1.E_Senha.Clear;

if Table1.FieldByName('Tempo').Asstring = '0' then

Showmessage('Você não tem tempo na sua conta !') else

begin form3.show end;

end;

[Guest - DELPHI-Man32 -]

UNIT COMPLETA cara!

PEGA AI.

unit U_acesso;

interface

uses

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,

StdCtrls, Db, Mask, DBCtrls, DBTables;

type

TFm_acesso = class(TForm)

Label1: TLabel;

Button1: TButton;

Button2: TButton;

Table1: TTable;

DataSource1: TDataSource;

Label2: TLabel;

Table1Tipo: TStringField;

Table1Codigo: TStringField;

edTipo: TEdit;

edCodigo: TEdit;

procedure Button1Click(Sender: TObject);

procedure edCodigoClick(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Fm_acesso: TFm_acesso;

iOK: integer;

implementation

{$R *.DFM}

procedure TFm_acesso.Button1Click(Sender: TObject);

begin

ShowMessage('Ação cancelada...Clique em OK para finalizar.');

Application.terminate;

end;

procedure TFm_acesso.edCodigoClick(Sender: TObject);

begin

Button2.Enabled := True;

Button2.Caption :='Entrar';

end;

procedure TFm_acesso.Button2Click(Sender: TObject);

begin

if Table1.Locate('Tipo;Codigo',

VarArrayOf([edTipo.Text,edCodigo.Text]),[]) Then

begin

iOK := 625;

Close;

end

else

begin

Beep;

ShowMessage('Código de Acesso Inválido!');

edTipo.Setfocus;

end;

end;

procedure TFm_acesso.FormCloseQuery(Sender: TObject;

var CanClose: Boolean);

begin

if iOK <> 625 then Canclose := False;

end;

end.

NO FORM PRINCIPAL você TEM QUE FAZER O SEGUINTE

procedure TFm_main.FormCreate(Sender: TObject);

begin

Fm_acesso := TFm_acesso.Create(self);

Fm_acesso.ShowModal;

end;

PODE TESTAR não FALHA!!!!

VALEU

DELPHI-Man32...

:ph34r:

[Guest - DELPHI-Man32 -]

DESCULPE NO LUGAR DE TIPO você COLOCA USUARIO E CODIGO COLOCA SENHA

NOS MEUS USO DESTE JEITO OS CAMPOS DA SUA TABELA.

MODIFIA O CODIGO DO SEU JEITO AI.