Delphi está decrementando o campo auto_increment
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
Post 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
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.
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???
27/11/2019
Deuzenildo Nascimento
Opa, sim , está ativo, tanto que está decrementamdo. Eu conferi umas dez vezes.
Clique aqui para fazer login e interagir na Comunidade :)