Fórum PARADOX ! COMO FAZER ISTO... ? #136568

Basta você criar uma tabela de Usuários(Nome e Senha) e fazer a verificação na entrada do Sistema.... :wink:

Simples e Flexível....

Se você quizer pode usar a unit abaixo que criei para um projeto meu. Ela serve também para cadastrar novas senhas. Não coloquei avisos em demasia para ficar mais leve. Por exemplo, se alguém tenta abrir com senha inválida, o programa simplesmente apaga a senha e volta em modo de edição. Você tem que criar uma tabelinha com código, nome e senha. Dei o nome de Senha para minha tabela e criei índice, como você pode ver abaixo. Você tem que criar um apelido e senha padrão, pois se não você não abrirá o sistema. No meu caso usei para que só pessoas que tivessem a senha acessassem um cadastro. Por isso a cláusula uses Cadastro. Abraços.

unit Senha;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, Buttons, Db, DBTables;

type
TFrmSenha = class(TForm)
Label1: TLabel;
Edit1: TEdit;
btnEntra: TBitBtn;
Label2: TLabel;
Edit2: TEdit;
Senhas: TTable;
SSenha: TDataSource;
SenhasCodigo: TAutoIncField;
SenhasNome: TStringField;
SenhasSenha: TStringField;
btnAlterar: TBitBtn;
Label3: TLabel;
Label4: TLabel;
Edit3: TEdit;
Edit4: TEdit;
btnConfirmar: TBitBtn;
procedure btnEntraClick(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure btnAlterarClick(Sender: TObject);
procedure btnConfirmarClick(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
private
{ Private declarations }
public
{ Public declarations }
end;

var
FrmSenha: TFrmSenha;

implementation

uses Cadastro;

{$R *.DFM}

procedure TFrmSenha.btnEntraClick(Sender: TObject);
Var
Apelido : String;
begin
Apelido:=Edit2.text;
Senhas.IndexFieldNames:=´Nome´;
if Senhas.FindKey([Edit2.text])=true then
begin
if SenhasSenha.value=Edit1.text then
begin
FrmSenha.close;
FrmCadastro.show;
end
else
begin
Edit1.text:=´´;
Edit1.setfocus;
end;
end
else
begin
Edit2.text:=´´;
Edit2.setfocus;
end;
end;

procedure TFrmSenha.FormShow(Sender: TObject);
begin
Edit2.SetFocus;
end;

procedure TFrmSenha.btnAlterarClick(Sender: TObject);
begin
Senhas.IndexFieldNames:=´Nome´;
if Senhas.FindKey([Edit2.text])=true then
begin
if SenhasSenha.value=Edit1.text then
begin
Edit3.color:=clwhite;
Edit4.color:=clwhite;
Edit3.setfocus;
btnConfirmar.Enabled:=true;
end
else
begin
Edit1.text:=´´;
Edit1.setfocus;
end;
end
else
begin
Edit2.text:=´´;
Edit2.setfocus;
end;
end;

procedure TFrmSenha.btnConfirmarClick(Sender: TObject);
begin
Senhas.Append;
SenhasNome.value:=Edit3.text;
SenhasSenha.value:=Edit4.text;
Senhas.Post;
Edit1.text:=´´;
Edit2.text:=´´;
Edit3.text:=´´;
Edit4.text:=´´;
Edit3.color:=clinactiveCaptionText;
Edit4.color:=clinactiveCaptionText;
btnConfirmar.Enabled:=false;
end;

procedure TFrmSenha.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Edit1.text:=´´;
Edit2.text:=´´;
Edit3.text:=´´;
Edit4.text:=´´;
Edit3.color:=clinactiveCaptionText;
Edit4.color:=clinactiveCaptionText;
btnConfirmar.Enabled:=false;
end;

end.

Qualquer dúvida escreva-me.