Exibir Cadastros de Acordo com um Grupo e SubGrupo
22/08/2004
0
Tenho um cadastro de gibis.. TbRevistasNacionais.. elas precisam necessariamente estar dentro de um Grupo e de um SubGrupo (TbGrupos e TbSubGrupos).. ela terá chaves estrangeiras pra essas duas tabelas..
Tem 2 Forms, um pra visualização das revistas e outro pra inserção e edição..
A ideia é... eu entro no primeiro form e terão dois LkUps (Grupos e SubGrupos).. quando eu selecionar um Grupo e um SubGrupo, no DbGrid é listado todas revistas pertencentes àquele Grupo e SubGrupos..
Bom, isso funciona perfeitamente.. só q, quando eu entro no form, ele ja me lista todas revistas cadastradas, independente do Grupo e SubGrupo..
O q eu keria é q, quando eu abrisse o form, ele nao me listasse todas revistas e só listasse quando eu selecionasse o grupo e o subgrupo..
Outra coisa tb, sao os botões Editar e Apagar.. queria e eles só ficassem com o Enable True, quando tivesse algum registro na Grid.. se nao tiver nada eles ficam desabilitados... pra evitar o erro de clicar num deles...
Grato a todos pela atenção e ajuda...
Allan Elias Ramos :wink:
Aersoftware
Posts
27/08/2004
Xtreme
de um close na tabela, ou coloque o DataSource.enabled:=false;
assim nao sera exibido nenhum registro na grid
ja no LkUps em algum evento vc ativa novamente o DataSource.enabled:=true;
ja para os botoes faça a mesma coisa.
por exemplo no caso dos botoes eu tenho uma funcao para pesquisa caso encontre algum resultado os botes ficam enabled:=true; caso o resultado seja empty enabled:=false;
27/08/2004
Aersoftware
Allan Elias Ramos :wink:
27/08/2004
Rômulo Barros
http://delphiforum.icft.com.br/forum/viewtopic.php?t=44022&highlight=grupo
Ainda é esse projeto? ;) ;) ;)
28/08/2004
Aersoftware
Allan Elias Ramos :roll:
29/08/2004
Slack
declara ela assim
procedure Botoes(Botoes: Boolean);
dp embaixo do implemation coloque assim
procedure TForm1.Botoes(Botoes: Boolean);
begin
btnovo.enabled:=Botoes;
btnsalvar.enabled:=not Botoes;
end;
dae pra vc chamar eles tipo no evento on click do novo coloca asim Botoes(true); mostra todos os enabled entendeu?
29/08/2004
Slack
declara ela assim
procedure Botoes(Botoes: Boolean);
dp embaixo do implemation coloque assim
procedure TForm1.Botoes(Botoes: Boolean);
begin
btnovo.enabled:=Botoes;
btnsalvar.enabled:=not Botoes;
end;
dae pra vc chamar eles tipo no evento on click do novo coloca asim Botoes(true); mostra todos os enabled entendeu?
Clique aqui para fazer login e interagir na Comunidade :)