Guardar y Filtrar en una Tabla

[Sr.Scorpion]

Funciono a las mil maravillas...... Gracias

[Jemp]

Empezado por Sr.Scorpion

Funciono a las mil maravillas...... Gracias

Hey excuseme pero soy un novato y estoy haciendo algo para la universidad
sucede que tengo un formulario de mantenimiento donde creo algunos registros uso dos dbedit uno para el codigo del registro y otro para el nombre y quiero que si el codigo esta vacio o es cero me tome del ultimo registro el siguiente y me da error
estoy usando estas instrucciones :

insertar : string;
xpaquete : integer;
nombre : string;
begin
dbenombre.SetFocus;
dbetipo.Text := '';
if dbetipo.Text = '' then
dbetipo.Text := '0';
xpaquete := Strtoint(dbetipo.Text);
if dbetipo.Text = null or 0 then
begin
showmessage('nulo');
insertar := 'select max(paquete) + 1 from tipopaquetes';
qtipos.SQL.Add(insertar);
qtipos.Active := True;
qtipos.Open;
xpaquete := qtipos.Recordset.Fields[0].value;
end;
nombre := dbenombre.Text;
insertar := 'insert into tipopaquetes (paquete, nombre) values (';
insertar := insertar + intToStr(xpaquete) + ',';
insertar := insertar + chr(39)+ nombre + chr(39) + ')';
showmessage(insertar);
qtipos.SQL.Add(insertar);
qtipos.ExecSQL;

ayudenme please

[[Lepe]]

Código Delphi [-]
 
insertar : string;
 xpaquete : integer;
 nombre : string;
begin
   dbenombre.SetFocus;
   dbetipo.Text := '';
   if dbetipo.Text = '' then
   dbetipo.Text := '0';
   xpaquete := Strtoint(dbetipo.Text);
    if dbetipo.Text = null or 0 then
       begin
       showmessage('nulo');
       insertar := 'select max(paquete) + 1 from tipopaquetes';
       qtipos.SQL.Add(insertar);
       qtipos.Active := True;
       qtipos.Open;
       xpaquete := qtipos.Recordset.Fields[0].value;
    end;

    qtipos.Close;  // *******************
    qtipos.sql.Clear;// *******************

    nombre := dbenombre.Text;
    insertar := 'insert into tipopaquetes (paquete, nombre) values (';
    insertar := insertar + intToStr(xpaquete) + ',';
    insertar := insertar + chr(39)+ nombre + chr(39) + ')';
    showmessage(insertar);
    qtipos.SQL.Add(insertar);
    qtipos.ExecSQL;

Saludos

[Jemp]

Gracias lepe, pero me da un error de duplicate entry porque se me guarda en el registro cero. Pueden ayudarme este es mi correo [email protected] y [email protected] please. Gracias