ActiveDelphi

[p.s.goncalves@hotmail.com]

Bom dia

tenho um sisteminha de cadastro com ADOCONECTION, ADOQUERY E BD ACCESS.

Eu gostaria que quando eu fizesse login com meu usuario(admin) o botão excluir ficasse enable true e quando fizer login com outro usuario o botão excluir ficasse enable false.


O meu login é:

procedure TfrmLogin.btnOkClick(Sender: TObject);

begin
if (EdtSenha.text=Dm.QUsu.FieldByName('senha').AsString) and (EdtApelido.text=Dm.QUsu.FieldByName('user').AsString) then
begin
FrmPrincipal.ShowModal; // Fechar a tela de login (então é executado o OnClose do Form);
frmLogin.Close;


end
else

messageBox(handle,'Usuário e/ou Senha devem ser preenchidos!','Senhor Usuário!',MB_ICONERROR+mb_OK);


Alguem pode me dar uma força.

[natanbh1]

Em qual form fica o botão excluir?
Ou seria para todos os botões de exclusão do seu programa?

[p.s.goncalves@hotmail.com]

[viox]

Uma forma mais elegante e que daria para aproveitar em outros lugares seria criar um método para tal usando o que o Natan falou.

Exemplo:

[p.s.goncalves@hotmail.com]

[p.s.goncalves@hotmail.com]

[natanbh1]

Você pode colocar essa condição no evento OnShow do form frmAuditoria onde fica o botão de exclusão.
Postei a maneira mais simples, de fácil implementação.

Mas como disse o Viox, existem maneiras mais elegantes de se fazer.
Uma delas é criar uma função como ele mostrou. Essa função você poderia ser colocada em uma Unit separada para apenas funções e procedures.

Sugiro você tentar implementar a maneira mais simples primeiramente e se funcionar, quando puder, tente implementar a maneira mais elegante.
_________________
''A persistência é o caminho para o êxito.''
Charlie Chaplin

[p.s.goncalves@hotmail.com]

[natanbh1]

Coloque dentro de blocos Begin..End.