TDataViewSourceContainers - Exemples
| TDataViewSourceContainers = class (TQubesDataViewSource) | Interface de TDataViewSourceContainers | Exemples de TDataViewSourceContainers |
Exemple d'utilisation dans un suivi en continu
uses SysUtils, QubesDataViews, QubesDataViewsSources.Containers;
//Creation de l'objet de source
var dataSource := TDataViewSourceContainers.Create(['MyParam String=MYPARAM']);
//Creation de la vue maintenue
var dataView := DeclareView('Containers', dataSource, ['ID', 'SITE', 'MyParam ', 'CONTAINER_ID', 'UM_ID', 'TYPE', 'GPAO_ID']);
//Récupération de l'ancienne valeur du checkpoint pour la mise à jour de la vue
var CP := ObjectStore.Value['Containers.CheckPoint'];
//Initialisation ou mise à jour de la vue
CP := dataSource.Update(dataView,CP);
//Sauvegarde de la valeur du checkpoint pour la future mise à jour de la vue
ObjectStore.Value['Containers.CheckPoint'] := CP;
//Creation de l'objet de source
var dataSource := TDataViewSourceContainers.Create(['MyParam String=MYPARAM']);
//Creation de la vue maintenue
var dataView := DeclareView('Containers', dataSource, ['ID', 'SITE', 'MyParam ', 'CONTAINER_ID', 'UM_ID', 'TYPE', 'GPAO_ID']);
//Récupération de l'ancienne valeur du checkpoint pour la mise à jour de la vue
var CP := ObjectStore.Value['Containers.CheckPoint'];
//Initialisation ou mise à jour de la vue
CP := dataSource.Update(dataView,CP);
//Sauvegarde de la valeur du checkpoint pour la future mise à jour de la vue
ObjectStore.Value['Containers.CheckPoint'] := CP;