Fórum DataSet not in edit or insert #528463

begin
dm.qlogin.close;
dm.qlogin.sql.Clear;
dm.qlogin.sql.add('Select * from login where id = ' + QuotedStr(edit1.text));
dm.qlogin.sql.add(' and senha =' + QuotedStr(edit2.text)+' and nivel='+QuotedStr(edit3.text));
dm.qlogin.Open;
if dm.qlogin.RecordCount = 0 then // Não há cadastro
begin
// Salvar no Banco de Dados

dm.qlogin.close;
dm.qlogin.sql.clear;
dm.qlogin.sql.add('insert INTO login (id,senha,nivel) VALUES ');
dm.qlogin.sql.add('id,senha,nivel');
dm.qlogin.FieldByName('id').value := edit1.text;
dm.qlogin.FieldByName('senha').value := edit2.text;
dm.qlogin.FieldByName('nivel').value := edit3.text;

dm.qlogin.execsql;

dm.qlogin.close;
dm.qlogin.sql.clear;
dm.qlogin.sql.add('Select * from login');
dm.qlogin.open;
dm.qlogin.Last;
edit1.text := (dm.qlogin.FieldByName('id').value + 1);
edit2.Clear;
edit3.Clear;
end;