Buenas tengo estos procedimientos para guardar, editar y eliminar, lo que necesito es una orientación de como cionvertir esas en una sola clase, un ejemplo cortito que me sirva de orientación para yo convertirla
Código Delphi
[-]
procedure guardar (equipcod,equipmodelo,equipdesc,equipmarca,equipimportado,equipafijo:string; equipcost,equipvalor,equipfactorouble);
begin
with datos.tequipos do
begin
Close;
Active:=False;
Active:=True;
Open;
Append;
FieldByname('eq_codigo').AsString := equipcod;
FieldByname('eq_descripcion').AsString := equipdesc;
FieldByname('eq_marca').AsString := equipmarca;
FieldByname('eq_modelo').AsString := equipmodelo;
FieldByname('eq_fechaing').AsDateTime:= now;
FieldByName('eq_costodiario').AsCurrency:=equipcost;
FieldByName('eq_valor').AsCurrency:=equipcost;
FieldByName('eq_activofijo').AsString:=equipafijo;
FieldByName('eq_importado').AsString:=equipimportado;
FieldByName('eq_factor').AsCurrency:=equipfactor;
Post;
Close;
Active:=False;
end;
end;
procedure editar (equipcod,equipmodelo,equipdesc,equipmarca,equipimportado,equipafijo:string; equipcost,equipvalor,equipfactorouble);
begin
with datos.sqactualizar do
begin
Close;
SQL.Clear;
SQL.Add('Update csequipos');
SQL.Add('set eq_factor=:factor, eq_valor=:valora, eq_activofijo=ropio, eq_importado=:importado,eq_descripcion=:descripcion, eq_marca=:marca,eq_costodiario=:costodiario,eq_modelo=:modelo');
SQL.Add('WHERE eq_codigo=:codigo');
ParamByName('descripcion').AsString:=equipdesc;
ParamByName('marca').AsString:=equipmarca;
ParamByName('costodiario').AsCurrency:=equipcost;
ParamByName('modelo').AsString:=equipmodelo;
ParamByName('codigo').AsString:=equipcod;
ParamByName('factor').AsCurrency:=equipfactor;
ParamByName('valora').AsCurrency:=equipvalor;
ParamByName('importado').AsString:=equipimportado;
ParamByName('propio').AsString:=equipafijo;
Execute;
end;
MessageDlg('El Material Fue Actualizado Exitosamente', mtCustom, [mbOK], 0);
end;
procedure eliminar(eqcodigo,partcodigo:string);
begin
with datos.sqeliminarcequipo do
begin
Close;
ParamByName( 'eqcodigo' ).AsString :=eqcodigo;
ParamByName( 'partcodigo' ).AsString :=partcodigo;
ExecSQL;
MessageDlg('Registro Eliminado Exitosamente', mtCustom, [mbOK], 0);
end;
end;