Problemas na Inclusão de registro
Olá amigos,
estou tendo problemas quando vou inserir um novo registro, da seguinte maneira rodo o programa, clico em incluir, digito os dados, botão gravar até aí funciona, mas quando clico em incluir de novo me parece que botão perde a função e não acontece nada, qual pode ser a causa e como posso resolvê-la :?:
T+
estou tendo problemas quando vou inserir um novo registro, da seguinte maneira rodo o programa, clico em incluir, digito os dados, botão gravar até aí funciona, mas quando clico em incluir de novo me parece que botão perde a função e não acontece nada, qual pode ser a causa e como posso resolvê-la :?:
T+
Ingawebfm
Curtidas 0
Respostas
Ingawebfm
23/01/2006
Olá amigos,
estou tendo problemas quando vou inserir um novo registro, da seguinte maneira rodo o programa, clico em incluir, digito os dados, botão gravar até aí funciona, mas quando clico em incluir de novo me parece que botão perde a função e não acontece nada, qual pode ser a causa e como posso resolvê-la :?:
T+
Desculpem acho que faltou uma informação, quando saio do form e entro de novo o botão funciona...........
GOSTEI 0
Edilcimar
23/01/2006
qual o bd e quais os componetes usados? já deu um refresh? a tabela não foi fechada depois do incluir?
GOSTEI 0
Aroldo Zanela
23/01/2006
Colega,
Se possível, coloque um fragmento do código para verificarmos melhor.
Se possível, coloque um fragmento do código para verificarmos melhor.
GOSTEI 0
Ingawebfm
23/01/2006
Colegas desculpem pelo falha, bom este é o procedimento de incluir:
procedure TFormPadrao1.btn_incluirClick(Sender: TObject);
begin
operacaoIncluir:= 1;
{Execução de sentença SQL}
if DM.IBDataSet1.RecordCount = 0 then
begin
strSql:= ´SELECT * FROM ´ + nomeTabela + ´ WHERE ID = 0 ´;
Executar:= sentencaSQL;
DM.IBDataSet1.Insert;
//{Habilitação e exibição de objetos}
valorCampo.Enabled:= False;
btnOk.Visible:= False;
checkHabilita.Enabled:= False;
checkMarca.Enabled:= False;
LabelStatus.Visible:= False;
PanelFicha.Enabled:= True;
//{Inclusão de registros}
DM.IBDataSet1.FieldByName(´status´).AsString:= ´N´;
DM.IBDataSet1.FieldByName(´marca´).AsString:= ´N´;
DM.IBDataSet1.FieldByName(´data_inc´).AsDateTime:= date;
{Botões e barra de status}
Executar:= desabilitaBotoes;
statusbar1.Panels[2].Text:= ´ Inclusão de novo registro´;
Executar:= exibePanels;
operacaoIncluir:= 0;
pageControl1.ActivePage:= TabSheetFicha;
end;
T+
procedure TFormPadrao1.btn_incluirClick(Sender: TObject);
begin
operacaoIncluir:= 1;
{Execução de sentença SQL}
if DM.IBDataSet1.RecordCount = 0 then
begin
strSql:= ´SELECT * FROM ´ + nomeTabela + ´ WHERE ID = 0 ´;
Executar:= sentencaSQL;
DM.IBDataSet1.Insert;
//{Habilitação e exibição de objetos}
valorCampo.Enabled:= False;
btnOk.Visible:= False;
checkHabilita.Enabled:= False;
checkMarca.Enabled:= False;
LabelStatus.Visible:= False;
PanelFicha.Enabled:= True;
//{Inclusão de registros}
DM.IBDataSet1.FieldByName(´status´).AsString:= ´N´;
DM.IBDataSet1.FieldByName(´marca´).AsString:= ´N´;
DM.IBDataSet1.FieldByName(´data_inc´).AsDateTime:= date;
{Botões e barra de status}
Executar:= desabilitaBotoes;
statusbar1.Panels[2].Text:= ´ Inclusão de novo registro´;
Executar:= exibePanels;
operacaoIncluir:= 0;
pageControl1.ActivePage:= TabSheetFicha;
end;
T+
GOSTEI 0
Ingawebfm
23/01/2006
Colegas,
ainda não consegui resolver, este seria formulário pai, farei que os outros herdem suas funcionalidades, portanto preciso verificar este processo, preciso de sugestões para a solução....
obrigado !
ainda não consegui resolver, este seria formulário pai, farei que os outros herdem suas funcionalidades, portanto preciso verificar este processo, preciso de sugestões para a solução....
obrigado !
GOSTEI 0
Aroldo Zanela
23/01/2006
Colega,
Em que momento está sendo aberto o IBDataSet1? Não consegui ler/entender seu código. Pode adicionar mais detalhes?
Em que momento está sendo aberto o IBDataSet1? Não consegui ler/entender seu código. Pode adicionar mais detalhes?
GOSTEI 0
Edilcimar
23/01/2006
if DM.IBDataSet1.RecordCount = 0 then
aqui diz que é para incluir se nenhum registro existir, e quando existir não inclui?
aqui diz que é para incluir se nenhum registro existir, e quando existir não inclui?
GOSTEI 0