TDataViewSourceProcessus - Exemples
| TDataViewSourceProcessus = class (TQubesDataViewSource) | Interface de TDataViewSourceProcessus | Exemples de TDataViewSourceProcessus |
Exemple d'utilisation dans un suivi en continu
uses SysUtils, QubesDataViews, QubesDataViewsSources.Processus;
//Creation de l'objet de source sur le processus PRM-096
var dataSource := TDataViewSourceProcessus.Create('PRM-096', ['LP String=LancePar', 'DateL Float=DateLancement', 'Responsable Float=Responsable', 'OF string=Paramètres.NumOF']);
//Creation de la vue maintenue
var dataView := DeclareView('Processus', dataSource, ['Clef=ExecutionNo', 'LP', 'STATUS', 'OF', 'DateL', 'Responsable']);
//Récupération de l'ancienne valeur du checkpoint pour la mise à jour de la vue
var CP := dataview.MetaData['CheckPoint'];
//Initialisation ou mise à jour de la vue
if CP = '' then
CP := dataSource.Restart(dataView)
else CP := dataSource.Update(dataView,CP);
//Sauvegarde de la valeur du checkpoint pour la future mise à jour de la vue
dataview.MetaData['CheckPoint'] := CP;
//Creation de l'objet de source sur le processus PRM-096
var dataSource := TDataViewSourceProcessus.Create('PRM-096', ['LP String=LancePar', 'DateL Float=DateLancement', 'Responsable Float=Responsable', 'OF string=Paramètres.NumOF']);
//Creation de la vue maintenue
var dataView := DeclareView('Processus', dataSource, ['Clef=ExecutionNo', 'LP', 'STATUS', 'OF', 'DateL', 'Responsable']);
//Récupération de l'ancienne valeur du checkpoint pour la mise à jour de la vue
var CP := dataview.MetaData['CheckPoint'];
//Initialisation ou mise à jour de la vue
if CP = '' then
CP := dataSource.Restart(dataView)
else CP := dataSource.Update(dataView,CP);
//Sauvegarde de la valeur du checkpoint pour la future mise à jour de la vue
dataview.MetaData['CheckPoint'] := CP;