Ir para conteúdo
Fórum Script Brasil
  • 0

Como Fazer?


Halan Lopes

Pergunta

4 respostass a esta questão

Posts Recomendados

  • 0

criei dois edits com a hora que o programa é aberto e coloquei na procedure OnChange do MainMenu ex:

procedure TfrmPrincipal.MainMenu1Change(Sender: TObject; Source: TMenuItem;

  Rebuild: Boolean);

begin

Edit1.Text:=FormatDateTime(' ', Now);

Edit2.Text:=FormatDateTime(' ', Now);

end;

No evento Deactivate do Form Principal coloca-se

procedure TfrmPrincipal.FormDeactivate(Sender: TObject);

begin

Edit2.Text:=FormatDateTime('', Now);

end;

E no evento Activate do Form Princiapl Coloca-se

procedure TfrmPrincipal.FormActivate(Sender: TObject);

begin

if Edit1.Text=Edit2.Text then

Button1.Click;

end;

ou seja quando a hora do Edit1 for igual ao do Edit2 o Button é clicado quando o Form Principal perde o foco o Edit2 é atualizado não executando assim a função do Button quando retornado ao Form Principal!

Link para o comentário
Compartilhar em outros sites

  • 0

beleza mas já resolvi, agora to com uma duvida pra fazer dois filtros em uma tabela mais ou menos assim!

if ComboBox1.Text='Administrador' then begin

ADOTable1.Filter:= 'Tipo=True'+'Flag=True';

end;

if ComboBox1.Text='Usuario' then begin

ADOTable1.Filter:= 'Tipo=False'+'Flag=True';

end;

alguém tem alguma ideia de como fazer sem usar SQL?

Link para o comentário
Compartilhar em outros sites

  • 0

teve jeito não tive que usar SQL coloquei essa expressão e deu certo

SELECT Menu.Tipo, Menu.Campo, Menu.Flag

FROM Menu

WHERE Menu.Tipo=:TipodeUsuario AND Menu.Flag=True

GROUP BY Menu.Tipo, Menu.Campo, Menu.Flag;

e no OnSelect do ComboBox coloquei

if ComboBox1.Text='Administrador' then

ADOQuery1.Close;

ADOQuery1.Parameters[0].Value:='Administrador';

ADOQuery1.Open;

if ComboBox1.Text='Usuario' then

ADOQuery1.Close;

ADOQuery1.Parameters[0].Value:='Usuario';

ADOQuery1.Open;

Link para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152k
    • Posts
      651,8k
×
×
  • Criar Novo...