Login, Senha E Controle De Usuarios

[Guest - Fernando -]

Olá,

Estou desenvolvendo um programinha FREEWARE para cadastro (aquelas coisas básicas de nome, end, etc) e controle para minha comunidade.

Gostaria de colocar algum controle sobre usuários, nada complicado, mas algo que dê um mínimo de segurança.

Tenho a idéia de como fazer mas não estou sabendo como implementar.

MINHA IDÉIA:

Criei num BD access uma tabela USARIOS (para os usuários) contendo os campos

NOME, SENHA, TIPO (que seria 2 tipos => USUÁRIO e ADMINISTRADOR)

Janela SPLASH com duas DBTEXT para NOME e SENHA e um botão para LOGIN.

Assim o usuário inicia o programa, abre o SPLASH insere o NOME e SENHA e se os dados "baterem" e o usuário estiver cadastrado como ADMINISTRADOR ele dá ENABLED num TTIMER no form principal que tem um procedimento pra habilitar os menus (cadastro e manutenção de usuários, entre outros...), senão ele retorna uma msg "USUÁRIO OU SENHA NÃO CONFEREM...".

Bem é isso, mas não sei como proceder a busca SQL pra fazre isto.

Estou usando ADO mesmo, porque achei mais fácil, tenho prontos os forms de cadastro e de manutenção dos usuarios, mas não sei como fazer o LOGIN.

Agradeço qualquer ajuda que possam dar.

Fernando

[Corposemalma]

eu faria o seguinte:

Botaria:

UM DBCombobox ligado a tabela no campo Usúario (assim apareceria o nome do usuário, e quando movesse o usuário, o ponteiro da tabela tambem se moveria.)

Um Edit para digitar a senha.

Um botão

então no on ButtonClick:

IF tabelausuarios.fieldbyname('senha').text := edit.text THEN    //se a senha for correta

// Aqui executa o resto

ELSE

Showmessage('Senha Incorreta!')

Isso tb usando dbisam (não sei se tem a propriedade fieldbyname com o Bd Express, mas deve ter algo parecido), a ideia é checar o valor do campo senha com o do edit....

[DELPHI-Man32]

CONTATE-ME POR E-MAIL PARA PODER TE MANDAR UM EXEMPLO BEM BACANA!

FALOWSS,

ABRAÇOS, VAGNER.

[Fred]

Eu te mandei uma msg mas não sei bem como funciona esse treco assim aqui vai meu mail

vou botar com espaço pra evitar esses bots que insistem em enviar spam.

fred_df @ ig.com .br

UP

[DELPHI-Man32]

program Project1;

uses

Forms, Controls,

Unit1 in 'Unit1.pas' {Form1},

Unit2 in 'Unit2.pas' {Form2};

{$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.

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