TDataView.MakeBackup
| TDataView = class (TObject) | Interface de TDataView | Exemples de TDataView |
Qubes 9.0 Sauvegarde de vue maintenue
Syntaxe
procedure MakeBackup()
Remarques
Cette méthode est destinée à usage interne.
Elle permet de faire une copie à chaud de la vue maintenue dans une base de donnée externe (-save)
Elle peut être insérer en phase de débugage avant un update pour garder une copie de la vue maintenue avant la mise à jour.
Exemples
uses QubesDataViews, QubesDataViewsSources.Operations;
var dataSource := TDataViewSourceOperations.Create('', '', '', '',['value string=value']);
dataSource.MarginUpdate := 0;
var dataView := DeclareView('DVName', dataSource, ['ID','STATUS','WO_GPAO_ID', 'OPENUM', 'RESPONSIBLE','DATE_BEGIN','DATE_END','value']);
function UpdateDataView(restart : Boolean = False) : String;
begin
dataView.MakeBackup;
var cp := dataView.MetaData['CheckPoint'];
if (cp='') or restart then
cp := dataSource.Restart(dataView)
else
cp := dataSource.Update(dataView,cp);
dataView.MetaData['CheckPoint'] := cp;
Result := cp;
end;
var dataSource := TDataViewSourceOperations.Create('', '', '', '',['value string=value']);
dataSource.MarginUpdate := 0;
var dataView := DeclareView('DVName', dataSource, ['ID','STATUS','WO_GPAO_ID', 'OPENUM', 'RESPONSIBLE','DATE_BEGIN','DATE_END','value']);
function UpdateDataView(restart : Boolean = False) : String;
begin
dataView.MakeBackup;
var cp := dataView.MetaData['CheckPoint'];
if (cp='') or restart then
cp := dataSource.Restart(dataView)
else
cp := dataSource.Update(dataView,cp);
dataView.MetaData['CheckPoint'] := cp;
Result := cp;
end;