QueryBroker (rtl) - Historique des versions

Syfre le 27 juin 2019 à 08:33

2019-06-27T08:33:37Z

← Version précédente		Version du 27 juin 2019 à 08:33
Ligne 1 :		Ligne 1 :
	<source lang='delphi'>Function QueryBroker(const iDatabaseURL:String; const iTraceIdentifier:String; const iClassName:String):TQuery;</source>		<source lang='delphi'>Function QueryBroker(const iDatabaseURL:String; const iTraceIdentifier:String; const iClassName:String):TQuery;</source>

	{{Warning\|Il est déconseillé d'utiliser des QueryBroker. La majorité des opérations réalisables par un QueryBroker peuvent être réalisées en mode objet en utilisant ~~les~~ [[Selecteur_(tech)\|sélecteurs]].}}		{{Warning\|Il est déconseillé d'utiliser des QueryBroker. La majorité des opérations réalisables par un QueryBroker peuvent être réalisées en mode objet en utilisant [[Selecteur_(tech)\|les sélecteurs]] et [[Vue_locale_(langage)\|les vues locales]].}}

	{{Warning\|L'utilisation de QueryBroker peut entrainer des problèmes dans le cadre des bases de données [[OIDs_numériques_(framework)\|gérées en OID numérique]].}}		{{Warning\|L'utilisation de QueryBroker peut entrainer des problèmes dans le cadre des bases de données [[OIDs_numériques_(framework)\|gérées en OID numérique]].}}

Syfre le 27 juin 2019 à 08:31

2019-06-27T08:31:58Z

← Version précédente		Version du 27 juin 2019 à 08:31
Ligne 3 :		Ligne 3 :
	{{Warning\|Il est déconseillé d'utiliser des QueryBroker. La majorité des opérations réalisables par un QueryBroker peuvent être réalisées en mode objet en utilisant les [[Selecteur_(tech)\|sélecteurs]].}}		{{Warning\|Il est déconseillé d'utiliser des QueryBroker. La majorité des opérations réalisables par un QueryBroker peuvent être réalisées en mode objet en utilisant les [[Selecteur_(tech)\|sélecteurs]].}}

	{{Warning\|N'utilisez pas des QueryBroker pour faire des mises à jour dans des classes protégées.}}		{{Warning\|L'utilisation de QueryBroker peut entrainer des problèmes dans le cadre des bases de données [[OIDs_numériques_(framework)\|gérées en OID numérique]].}}

			{{Warning\|N'utilisez pas des QueryBroker pour faire des mises à jour dans des [[Classe_protégée_(stereotype)\|classes protégées]].}}

	Cette fonction alloue un curseur SQL.		Cette fonction alloue un curseur SQL.

Syfre le 7 mars 2018 à 14:18

2018-03-07T14:18:26Z

← Version précédente		Version du 7 mars 2018 à 14:18
Ligne 1 :		Ligne 1 :
	<source lang='delphi'>Function QueryBroker(const iDatabaseURL:String; const iTraceIdentifier:String; const iClassName:String):TQuery;</source>		<source lang='delphi'>Function QueryBroker(const iDatabaseURL:String; const iTraceIdentifier:String; const iClassName:String):TQuery;</source>

			{{Warning\|Il est déconseillé d'utiliser des QueryBroker. La majorité des opérations réalisables par un QueryBroker peuvent être réalisées en mode objet en utilisant les [[Selecteur_(tech)\|sélecteurs]].}}

			{{Warning\|N'utilisez pas des QueryBroker pour faire des mises à jour dans des classes protégées.}}

	Cette fonction alloue un curseur SQL.		Cette fonction alloue un curseur SQL.
Ligne 146 :		Ligne 150 :

	Voir aussi:		Voir aussi:

			* [[Selecteur_(tech)\|Les sélecteurs permettent de remplacer les QuryBroker dans la majorité des cas]]

	{{Footer\|Développement DSM}}		{{Footer\|Développement DSM}}
	[[category:RTL Framework]]		[[category:RTL Framework]]

Syfre le 11 août 2009 à 12:10

2009-08-11T12:10:47Z

Nouvelle page

<source lang='delphi'>Function QueryBroker(const iDatabaseURL:String; const iTraceIdentifier:String; const iClassName:String):TQuery;</source>

Cette fonction alloue un curseur SQL.

{|class="wikitable"
|-
|Result
|Un curseur SQL sur la base de données spécifiée ou sur la base de données par défaut.
|-
|iDatabaseURL
|URL de la base de données dans laquelle allouer le curseur.
|-
|iTraceIdentifier
|Identifiant du curseur dans la trace.
|-
|iClassName
|Nom de classe sur laquelle mapper le résultat.
|}

Le paramètre iClassName permet d'utiliser une vue objet de l'ensemble résultat ; si iClassName est défini le curseur allouera un objet de cette classe pour chaque ligne de l'ensemble résultat. La propriété "Instance" est alors utilisable pour accéder de manière objet aux données retournées par le curseur.

Vous devez utiliser le translateur de code SQL pour construire le code SQL de la requête.

{{tip|Ces curseurs ne sont pas objets et ne doivent être utilisés que dans des cas exceptionnels; ils peuvent poser des problèmes de portabilités d'une base de données à une autre si vous ne respectez pas les règles de construction du code SQL.}}

Exemple

<source lang='delphi'>
Procedure _CalculerSoldeInitial;
var
SoldeCompte : Currency;
CumulDebit : Currency;
CumulCredit : Currency;
CumulDebitAutre : Currency;
CumulCreditAutre : Currency;
Ecriture : Tecriture;
i : Integer;
ListeEcriture : TObjectList;
PC : TParametreComptable;
Query : String;
vEcritureEstAutre : Boolean;
vCursor : TSQLQuery;
vNomTable : String;
vlWhereJoin : String;
begin
vlWhereJoin := '';

_RazCumuls;

if (oidCompteGeneral='') And (oidGroupePointage='') then Exit;

if oidCompteGeneral <> '' then
SoldeCompte := compteGeneral.totalDebitTenue.value - compteGeneral.totalCreditTenue.value;
if oidGroupePointage<>'' then
SoldeCompte := groupePointage.compteGeneral.totalDebitTenue.value - groupePointage.compteGeneral.totalCreditTenue.value ;
soldeComptable.Value := SoldeCompte;

CumulDebit := 0.0;
CumulCredit := 0.0;
CumulDebitAutre := 0.0;
CumulCreditAutre := 0.0;
PC:=ClassManager.FindSingleton('TParametreComptable');
if not Assigned(PC) then
raise ERule.Create('Les paramètres comptables ne sont pas initialisés');

vCursor := QueryBroker('','Ecriture resultat','');
vCursor.SQL.Add('SELECT SUM(TECRITURE.credit_TCValue), SUM(TECRITURE.debit_TCValue) ');
vCursor.SQL.Add(' FROM ');
vNomTable := ClassManager.FindClassTableName('TECRITURE');
vCursor.SQL.Add(vCursor.Translator.dbOutTableName(vNomTable,'TECRITURE',dbtoNO));
vCursor.SQL.Add(vCursor.Translator.dbOutJoin('TPIECE','Piece',dbtoNoLock,'oid','TECRITURE','oidpiece',vlWhereJoin));
vCursor.SQL.Add(vCursor.Translator.dbOutJoin('TLOT','Lot',dbtoNoLock,'oid','Piece','oidLot',vlWhereJoin));
vCursor.SQL.Add(vCursor.Translator.dbOutLeftOuterJoin('TGROUPEPOINTAGE','GroupePointage',dbtoNoLock,'oid','TECRITURE','oidGroupePointage',vlWhereJoin));
vCursor.SQL.Add(' WHERE ');
vCursor.SQL.Add(' (TECRITURE.eDate <= ' + vCursor.Translator.dbOutVariant(PC.ExerciceEnCours.Datefin) + ') ');
vCursor.SQL.Add(' AND (Lot.origineLot <> 0) ');
if oidGroupePointage<>''
then vCursor.SQL.Add(' AND (TECRITURE.oidcompteGeneral = ''' + GroupePointage.OidCompteGeneral + ''') ')
else vCursor.SQL.Add(' AND (TECRITURE.oidcompteGeneral = ''' + oidCompteGeneral + ''') ');
vCursor.SQL.Add(' AND (TECRITURE.typeEcriture <> 0) ');
vCursor.SQL.Add(' AND ( ');
vCursor.SQL.Add(' (GroupePointage.datePointage >= ' + vCursor.Translator.dbOutVariant(datePointage)+ ')');
vCursor.SQL.Add(' OR (GroupePointage.datePointage IS NULL)');
vCursor.SQL.Add(' ) ');
vCursor.Open;
vCursor.First;
while not(vCursor.EOF) do
begin
CumulCredit := vCursor.Fields[0].AsVariant;
CumulDebit := vCursor.Fields[1].AsVariant;
vCursor.next;
end;
vCursor.Close;

if Assigned(GroupePointage) then
begin
if uniquementEcrituresGroupe then
begin
CumulCreditAutre := CumulCredit;
CumulDebitAutre := CumulDebit;
end;
end
else
begin
// cursor pour autres écritures
vCursor := QueryBroker('','Ecriture resultat','');
vCursor.SQL.Add('SELECT SUM(TECRITURE.credit_TCValue), SUM(TECRITURE.debit_TCValue) ');
vCursor.SQL.Add(' FROM ');
vNomTable := ClassManager.FindClassTableName('TECRITURE');
vCursor.SQL.Add(vCursor.Translator.dbOutTableName(vNomTable,'TECRITURE',dbtoNO));
vCursor.SQL.Add(vCursor.Translator.dbOutJoin('TPIECE','Piece',dbtoNoLock,'oid','TECRITURE','oidpiece',vlWhereJoin));
vCursor.SQL.Add(vCursor.Translator.dbOutJoin('TLOT','Lot',dbtoNoLock,'oid','Piece','oidLot',vlWhereJoin));
vCursor.SQL.Add(vCursor.Translator.dbOutLeftOuterJoin('TGROUPEPOINTAGE','GroupePointage',dbtoNoLock,'oid','TECRITURE','oidGroupePointage',vlWhereJoin));
vCursor.SQL.Add(' WHERE ');
vCursor.SQL.Add(' (TECRITURE.eDate <= ' + vCursor.Translator.dbOutVariant(PC.ExerciceEnCours.Datefin) + ') ');
vCursor.SQL.Add(' AND (TECRITURE.eDate < ' + vCursor.Translator.dbOutVariant(DateDebut) + ') ');
vCursor.SQL.Add(' AND (TECRITURE.eDate <= ' + vCursor.Translator.dbOutVariant(Datefin) + ') ');
vCursor.SQL.Add(' AND (Lot.origineLot <> 0) ');
if oidGroupePointage<>'' then
vCursor.SQL.Add(' AND (TECRITURE.oidcompteGeneral = ''' + GroupePointage.OidCompteGeneral + ''') ')
else
vCursor.SQL.Add(' AND (TECRITURE.oidcompteGeneral = ''' + oidCompteGeneral + ''') ');
vCursor.SQL.Add(' AND (TECRITURE.typeEcriture <> 0) ');
vCursor.SQL.Add(' AND ( ');
vCursor.SQL.Add(' (GroupePointage.datePointage > ' + vCursor.Translator.dbOutVariant(datePointage)+ ')');
vCursor.SQL.Add(' ) ');
vCursor.Open;
vCursor.First;
while not(vCursor.EOF) do
begin
CumulCreditAutre := vCursor.Fields[0].AsVariant;
CumulDebitAutre := vCursor.Fields[1].AsVariant;
vCursor.next;
end;
vCursor.Close;
end;

debitPointeAutre.Value := CumulDebitAutre;
creditPointeAutre.Value := CumulCreditAutre;
debitNonPointe.Value := CumulDebit;
creditNonPointe.Value := CumulCredit;
soldeTheorique.Value := SoldeCompte - CumulDebit + CumulCredit;
soldeInitial.value := SoldeCompte - CumulDebit + CumulCredit;
end;
</source>

Voir aussi:

{{Footer|Développement DSM}}
[[category:RTL Framework]]