Buscar por:

Exibindo caixa de diálogo de solicitação de senha do bd

Código

Coloque no uses: DbPwDlg 

{Coloque um botão no form e escreve seu evento OnClick como abaixo} 

procedure TForm1.Button1Click(Sender: TObject); 

var 

pw: TPasswordDialog; 

begin 

pw := TPasswordDialog.Create(Self); 

try 

pw.Caption := 'Banco de Dados'; 

pw.GroupBox1.Caption := 'Senha'; 

pw.AddButton.Caption := '&Adicionar'; 

pw.RemoveButton.Caption := '&Remover'; 

pw.RemoveAllButton.Caption := 'Remover &Tudo'; 

pw.OKButton.Caption := '&OK'; 

pw.CancelButton.Caption := '&Cancelar'; 

pw.ShowModal; 

finally 

pw.Free; 

end; 

end;

{As senhas adicionadas nesta caixa de diálogo são adicionadas na sessão (TSession) atual. Isto é útil quando colocamos senha em tabelas Paradox, ou mesmo quando trabalhamos com banco de dados Client Servidor, e queremos que o usuário digite a senha de acesso }