Ver Mensaje Individual
  #4  
Antiguo 16-06-2013
nefore nefore is offline
Miembro
NULL
 
Registrado: jun 2013
Posts: 25
Reputación: 0
nefore Va por buen camino
Hola he intentando el codigo que me has puesto, y funciona de maravilla (lo he intentado con el campo (ULTMO_PROPIETARIO) el problema es que al guardar ese valor en el campo parametro, me salta un error pidiendome que le agregue un valor a los demas campos (ULTIMO_INSPECTOR, ULTIMO_VETERINARIO, etc.), me he fijado en la BD de Access y existe una propiedad que dice 'Requerido' (Hacer obligatoria la entrada de este campo') le he puesto que no, pero aun asi, me pide que le ingrese valor a los demas campos.

Código Delphi [-]
procedure TForm5.FormCreate(Sender: TObject);
begin
parametro.conectaBD;
parametro.conectatabla;
if (ADOTable4.FieldByName('ULTIMO_TITULAR').Value <> null) then
  codigo.Text := (IntToStr((ADOTable4.FieldByName('ULTIMO_TITULAR').Value)+1))
else
 codigo.Text:= IntToStr(1);

fecha.Text := DateToStr(Now);
end;

//el siguiente codigo se encuentra cuando en el evento click de un boton para grabar los datos

if bandera then
  begin
    propietario.conectaBD;
    propietario.ConectaTabla(1);
    if (propietario.busqueda(dni.Text,0,2)=True)then
    begin
     ShowMessage('Esta persona ya se encuentra cargada en el sistema');
     dni.SetFocus;
     dni.SelectAll;
     end
    else
    begin
      ADOTable4.Last;
      ADOTable4.Edit;
      ADOTable4.FieldByName('ULTIMO_TITULAR').AsInteger := StrToInt(codigo.Text);
      ADOTable4.Post;
      propietario.Desconectar;
      propietario.grabardatos;
      propietario.Free;
      validacion.Free;
      if MessageDlg('Continuar ingresando datos?', mtConfirmation, [mbYes, mbNo], 0) = mrYes
      then
      begin
        if (ADOTable4.FieldByName('ULTIMO_TITULAR').Value <> null) then
        codigo.Text := (IntToStr((ADOTable4.FieldByName('ULTIMO_TITULAR').Value)+1))
        else
        codigo.Text:= IntToStr(1);
        Limpiar;
      end
      else
      begin
       Close;
       parametro.desconectar;
      end;

    end;
  end;


en donde bandera es una que utilizo para manejar las validaciones (si esta es verdadera significa que las validaciones son correctas), propietario es una clase y el ADOTABLE4 pertenece al AdoTable asociado con la tabla parametros.
Responder Con Cita