Zusammenfassung

• Seiteneigenschaften (1 geändert, 0 hinzugefügt, 0 gelöscht)

Details

Seiteneigenschaften

Inhalt

...	...	@@ -246,3 +246,33 @@
246	246	|ExecuteOnACMPServer|Eine true/false-Angabe, ob die Abfrage auf der ACMP Datenbank ausgeführt werden soll. Bei der Angabe von true wird kein ConnectionString benötigt.
247	247
248	248	Nach dem Ausführen der Abfrage sind die Abfrageergebnisse in der Variablen LClients hinterlegt. Mit Hilfe einer for-Schleife werden nun die Ergebnisse durchlaufen und der ListBox hinzugefügt. Da die Ergebnisse in der Form Spaltenname=Wert sind, muss der Spaltenname (in diesem Fall Computername) inkl. des Gleichheit-Zeichens jedoch zuvor entfernt werden, was über die Funktion StringReplace erfolgt.
	249	+
	250	+{{code language="None"}}
	251	+procedure FormActivate(Sender: TObject);
	252	+
	253	+var
	254	+ LSQL: String;
	255	+ LClients: TStringList;
	256	+ i: integer;
	257	+begin
	258	+ LClients := TStringList.Create;
	259	+ try
	260	+ LSQL := 'Select COMPUTERNAME from CLT_CLIENTS_Table';
	261	+ sqlquery(LSQL, '', '', LClients, true);
	262	+ for i := 0 to LClients.count-1 do
	263	+ begin
	264	+ ListBox1.items.add(StringReplace(LClients.strings[i], 'COMPUTERNAME=', ''));
	265	+ end;
	266	+ finally
	267	+ LClients.Free;
	268	+ end;
	269	+end;
	270	+{{/code}}
	271	+
	272	+ Zuletzt werden die Ressourcen der Variable LClients über den Aufruf LClients.Free freigegeben. Ordnen Sie diese Funktion nun dem Event OnActive zu, sodass die Funktion automatisch ausgeführt wird.
	273	+
	274	+{{aagon.infobox}}
	275	+Beachten Sie, dass Sie keine Komponente markiert haben, wenn Sie die Funktion FormActive dem Event OnActive-Event zuordnen.
	276	+{{/aagon.infobox}}
	277	+
	278	+ Wenn Sie die Form nun starten, werden die Computernamen aller Clients in der ListBox aufgelistet. Je nach Anzahl der Clients kann dies einige wenige Sekunden dauern.