F�rum atualizar form Principal #381097

10/07/2010

boa tarde! amigos estou com o seguinte problema..Ap�s eu entrar no sistma com senha e usuario, caso eu deseja trocar o usu�rio logado...n�o consigo atualizar os componentes(Menus e buttons) do formPrincipal com o nvel de senha do no novo usuario ex... tenho 2 tbuTton e preciso que apos trocar o usuario que � de nivel 1 para nivel 2 esses Tbuttons fiquem em estado ENABLE=false o frmPrincial n�o � destruido ap�s criado. agrade�o a ajuda.

Jorge Dias

Curtir t�pico

+ 0

Responder

Posts

10/07/2010

Walder

[cod]nomedobutton1.Enabled := False;nomedobutton2.Enabled := False;[/code]
Tente isso.

Responder

Gostei + 0

10/07/2010

Jorge Dias

j� tente assim. nome_do_Form.nome_do_but�o.enabled:=true; -> pos qdo envio esse codigo n�o estou no formPrincipal,estou no form de login � esse o problema q n�o consigo resolver. obrigoado

Responder

Gostei + 0

10/07/2010

Marco Salles

Tem muitas maneiras de fazer isto.. ( Alguns utilizam ate banco de dados ) Depende de como vc esta fazendo Temos que entender Quem chama este Form de Logs ??? Qnd vc retorna desse form de Log Vc na� retorna com o Nivel ???

Responder

Gostei + 0

10/07/2010

Marco Salles

Olha Jorge ... Ent�o veja um pequeno exemplo decomo vc pode retornar de maneira Orientada a Objetos ( sem utilizar Variaveis Globais ) o Nivel A partir do Nivel vc pode optar por inibir este ou Aquele Button O Exemplo � simples , mas vc pode estende-lo

procedure TForm3.Button1Click(Sender: TObject);
var
formulario:TFrmLogin;
pNivel:Integer;
begin
//Note  o Parametro do Contructor...
Formulario:=TFrmLogin.Create(nil,pNivel);
try
  formulario.ShowModal;
  case pNivel of
   0:showmessage('Fa�a 0');
   1:showmessage('fa�a 1')
  end;
finally
  formulario.Release;
  formulario:=nil;
end;
end;

O Form de Login tem

  private
    { Private declarations }
   // Ponteiro .. N�o se assuste
    FNivel:PInteger;
  public
    { Public declarations }
    Constructor Create(Aowner:TComponent;out pNivel:integer);reintroduce;
  end;

Finalmente defina

constructor TFrmLogin.Create(Aowner: TComponent;out pNivel: integer);
begin
  inherited Create(Aowner);
  FNivel:=@pNivel;  // Endere�o 
end;

// No FrmLogin , qnd vc for Atribuir o Nivel ( ai depende de sua l�gica , vc Faz assim ) Exemplo :

procedure TFrmLogin.Button1Click(Sender: TObject);
begin
self.FNivel^:=strtoint(edit1.Text); // Peseudo Atribui��o .. Ai entra a sua L�gica
close;
end;

Ent�o amigo , esta � uma maneira limpa ( n�o a �nica e nen a melhor ) de vc passar variavels entre dois forms sem usar vari�vels Globais

Responder

Gostei + 0

12/07/2010

F�bio Cruz

Bom dia, nessas video-aulas tem uma fun��o (em OPP) que faz exatamente isso que vc est� querendo.

https://www.devmedia.com.br/cursos/delphi/117-Curso-online-Rad-Studio-2007-DBX4-e-Firebird-2-0-Aplicacao-comercial-de-vendas-basico-do-Inicio-ao-Fim.html, apesar de ser Rad Studio 2007, pode ser implementado em qualquer vers�o posterior do Delphi (testei com D2009)

Outro modo s�o pelos componentes da UserControl, que faz isso de forma simples e facil.

Responder

Gostei + 0

15/07/2010

Pedro Saraiva.

Programa com c�digos fontes Ola pessoal, voc� programador que quer um aplicativo exemplo para fins comerciais, tenho uma dica, compre o WinPhar que vem com todos os c�digos fontes e fa�a um programa baseado nele, sim ele tamb�m v�m com todos os componentes para instalar, voce al�m de ganhar um programa complidao, ganha tb os seus c�digos fontes e seus componentes. O programa foi desenvolvido em Delphi 7 com banco de dados paradox, e custa apenas 20,00 reais
deem uma olhadinha ai no produto
http://produto.mercadolivre.com.br/MLB-149256966-winphar-2008-sistema-para-farmacias-e-drogarias-_JM
e ente em contato pelo e-mail pedroluissaraiva@yahoo.com.br.!

Responder

Gostei + 0