Fórum Delphi está decrementando o campo auto_increment #606720
24/11/2019
0
procedure Tfrm_matriz.btnsalvarClick(Sender: TObject);
begin
if (edtnome.Text <> ' ') and (edtebdereco.Text <> '') then
begin
associarcampos;
dm.tb_matriz.Post;
MessageDlg('Salvo com Sucesso!', mtInformation, mbOKCancel, 0);
buscartudo;
desabilitarcampos;
btnsalvar.Enabled := false;
btnnovo.Enabled := true;
end
else
begin
MessageDlg('Preencha os Campos', mtInformation, mbOKCancel, 0);
end;
end;
obrigado e se tiverem alguma sugestão de como deve ficar o componente firedac (pq nao vi nada alem de coloca-lo e depois apontar o banco). aceito as ideias, abraços..
Deuzenildo Nascimento
Curtir tópico
+ 0Post mais votado
04/12/2019
Primeiro eu perguntei ao professor, mas sem respostas, busquei na internet, também não achei nada que fosse especifico, coloquei aqui, houve algumas interações, também, não era o que precisava.
Fiz o seguinte: removi a tabela, criei outra, mesmo resultado de decremento,
analisei os componentes, não vi nada de diferente (faltou olhar melhor);
comecei a investigar minunciosamente cada componente comparando um com o outro, pois se um incrementava e outro não, o problema só podia estar no componente, logo descobri que o componente em questão, tinha as propriedades diferentes dos demais, tentei mudar, mas sem sucesso;
removi esses componentes problemáticos e inseri outros, fiz os ajustes padrões da aplicação, e tudo normalizou.
Dica:
investigue, analise profundamente, não espere receitas de bolo que nunca iremos aprender nada.
Abraços..
Deuzenildo Nascimento
Gostei + 2
Mais Posts
25/11/2019
Deuzenildo Nascimento
procedure Tfrm_matriz.btnsalvarClick(Sender: TObject);
begin
if (edtnome.Text <> ' ') and (edtebdereco.Text <> '') then
begin
associarcampos;
dm.tb_matriz.Post;
MessageDlg('Salvo com Sucesso!', mtInformation, mbOKCancel, 0);
buscartudo;
desabilitarcampos;
btnsalvar.Enabled := false;
btnnovo.Enabled := true;
end
else
begin
MessageDlg('Preencha os Campos', mtInformation, mbOKCancel, 0);
end;
end;
obrigado e se tiverem alguma sugestão de como deve ficar o componente firedac (pq nao vi nada alem de coloca-lo e depois apontar o banco). aceito as ideias, abraços..
Olá, alguma dica? Alguém teria uma ideia?
Obrigado.
Gostei + 0
25/11/2019
Deuzenildo Nascimento
procedure Tfrm_matriz.btnsalvarClick(Sender: TObject);
begin
if (edtnome.Text <> ' ') and (edtebdereco.Text <> '') then
begin
associarcampos;
dm.tb_matriz.Post;
MessageDlg('Salvo com Sucesso!', mtInformation, mbOKCancel, 0);
buscartudo;
desabilitarcampos;
btnsalvar.Enabled := false;
btnnovo.Enabled := true;
end
else
begin
MessageDlg('Preencha os Campos', mtInformation, mbOKCancel, 0);
end;
end;
obrigado e se tiverem alguma sugestão de como deve ficar o componente firedac (pq nao vi nada alem de coloca-lo e depois apontar o banco). aceito as ideias, abraços..
Olá, alguma dica? Alguém teria uma ideia?
Obrigado.
Ninguem???
Gostei + 0
27/11/2019
Manoel Junior
Gostei + 0
27/11/2019
Deuzenildo Nascimento
Opa, sim , está ativo, tanto que está decrementamdo. Eu conferi umas dez vezes.
Gostei + 0
03/12/2019
Manoel Junior
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)