| Exibir mensagem anterior :: Exibir próxima mensagem |
| Autor |
Mensagem |
lokasso
Aprendiz
Registrado: Terça-Feira, 11 de Abril de 2017
Mensagens: 174
|
 Enviada: Sex Abr 14, 2017 3:30 pm Assunto: [Resolvido] Problema em deixar o Botao inserir ativo |
 |
|
Galera, boa tarde.
É o seguinte preciso que o botão inserir fique ativo no formulário de cadastro, porém não posso deixar o form já recebendo os dados da tabela de cadastro.
Por exemplo no OnShow do Form eu coloco a seguinte linha sql:
DM.nometabela.SQL.Clear;
Os dados da tabela não vem ativos no form, mas o botao de inserir fica desabilitado.
O que estou fazendo errado? Poderiam me ajudar?
Editado pela última vez por lokasso em Sáb Abr 15, 2017 2:47 pm, num total de 1 vez |
|
| Voltar ao Topo |
|
 |
anderbelluno
Colaborador
Registrado: Quarta-Feira, 23 de Novembro de 2011
Mensagens: 1030
Localização: Cianorte-PR
|
| Enviada: Sex Abr 14, 2017 3:36 pm Assunto: |
|
|
Normalmente eu uso um Panel para essa validação:
Panel1 contém os botões de navegação, etc...
Panel2 contém os grids dbedits, etc...
no onshow vc coloca panel2.enablade:=false; e habilita o mesmo com o clique do botão.
Se entendi bem seu problema, acho que pode revolver pra vc tbm.
att.
Anderson. |
|
| Voltar ao Topo |
|
|
lokasso
Aprendiz
Registrado: Terça-Feira, 11 de Abril de 2017
Mensagens: 174
|
| Enviada: Sex Abr 14, 2017 4:37 pm Assunto: |
|
|
| anderbelluno escreveu: | Normalmente eu uso um Panel para essa validação:
Panel1 contém os botões de navegação, etc...
Panel2 contém os grids dbedits, etc...
no onshow vc coloca panel2.enablade:=false; e habilita o mesmo com o clique do botão.
Se entendi bem seu problema, acho que pode revolver pra vc tbm.
att.
Anderson. |
Anderson, no meu caso não queria deixar a consulta no mesmo form de cadastro. A consulta seria em outro form o qual tem um botao no form de cadastro para fazer a chamada.
Eu to quase deixando o form de cadastro vir com as informações.
E uma coisa que pensei também foi dar clear nos dbedit assim que o form de cadastro é aberto, ai eu tambem deixaria os dbedit desativados.
O que você acha dessa possibilidade?
Grato |
|
| Voltar ao Topo |
|
|
anderbelluno
Colaborador
Registrado: Quarta-Feira, 23 de Novembro de 2011
Mensagens: 1030
Localização: Cianorte-PR
|
| Enviada: Sex Abr 14, 2017 5:07 pm Assunto: |
|
|
Mas então nesse caso é só vc deixa o seu CDS fechado e abrir quando fazer a consulta.
no onshow:
dm.CDS.close;
e na consulta
dm.CDS.open;
Seria isso? |
|
| Voltar ao Topo |
|
|
lokasso
Aprendiz
Registrado: Terça-Feira, 11 de Abril de 2017
Mensagens: 174
|
| Enviada: Sex Abr 14, 2017 5:55 pm Assunto: |
|
|
| anderbelluno escreveu: | Mas então nesse caso é só vc deixa o seu CDS fechado e abrir quando fazer a consulta.
no onshow:
dm.CDS.close;
e na consulta
dm.CDS.open;
Seria isso? |
Porém o botão inserir iria apenas habilitar depois da consulta, eu precisaria deixar o botão inserir habilitado assim que o formulário de cadastro fosse criado |
|
| Voltar ao Topo |
|
|
lokasso
Aprendiz
Registrado: Terça-Feira, 11 de Abril de 2017
Mensagens: 174
|
| Enviada: Sáb Abr 15, 2017 2:45 pm Assunto: |
|
|
Vou dar o post como resolvido pois eu fiz a seguinte gambiarra para que o botao inserir ficasse ativo e os dbedits não aparecessem as informações da tabela:
| Código: | procedure TFrm_PadraoCad.FormShow(Sender: TObject);
var I: integer;
begin
for I := 0 to ComponentCount-1 do
begin
if Components[I].ClassName = 'TDBEdit' then
TDBEdit(Components[I]).Clear;
end;
end; |
Porém se deixar os dbedits ativos e você der tab eles não aparecer entao fiz essa outra:
| Código: | procedure TFrm_PadraoCad.FormCreate(Sender: TObject);
var I: integer;
begin
for I := 0 to ComponentCount-1 do
begin
if Components[I].ClassName = 'TDBEdit' then
TDBEdit(Components[I]).Enabled:= False;
end;
end; |
ai é só habilitar os dbedits no botao inserir e alterar, as vezes isso poderá ajudar alguém que esteja ou terá o mesmo problema que o meu.
Grato Anderson por ter me ajudado
Bom agora partir pra outro erro kkkkkkkkk |
|
| Voltar ao Topo |
|
|
|
FAQ
Pesquisar
Membros
Grupos
Registrar
Perfil
Entrar e ver Mensagens Particulares
Entrar
