Seite 1 von 1
Ampelsystem
Verfasst: Di Nov 03, 2009 11:37 am
von cgr
Hallo,
ich würde gerne einen Report erstellen, der mir z.B. bei der freien Festplattenkapazität oder Arbeitsspeicher etc. ein rot bzw grün (Symbol)
anzeigt, wenn der Wert über oder unter einem bestimmten wert liegt.
Vielen Dank
CGR
Re: Ampelsystem
Verfasst: Mi Nov 04, 2009 10:41 am
von tkontorzik
Hallo,
das können Sie mit Delphiscript innerhalb des Reportdesigners erledigen. Sie legen hierzu ein Memofeld an und fügen diesem Code hinzu
z.B.
begin
if BEDINGUNG then
begin
Memo.FillColor ='$FF0000';
end
end
Als Beispiel könnten Sie z.B. den Vista oder Windows 7 Check Report verwenden. Dort wird so ähnlich gearbeitet.
Re: Ampelsystem
Verfasst: Mi Nov 04, 2009 6:03 pm
von cgr
Danke für die schnelle Antwort, jedoch habe ich ein Problem mit der Bedingung,
wie müsste die aussehen?
z.B.
if [vLogical drives->Drive Free Space] >10000
funktioniert nicht.
tkontorzik hat geschrieben:Hallo,
das können Sie mit Delphiscript innerhalb des Reportdesigners erledigen. Sie legen hierzu ein Memofeld an und fügen diesem Code hinzu
z.B.
begin
if BEDINGUNG then
begin
Memo.FillColor ='$FF0000';
end
end
Als Beispiel könnten Sie z.B. den Vista oder Windows 7 Check Report verwenden. Dort wird so ähnlich gearbeitet.
Re: Ampelsystem
Verfasst: Do Nov 05, 2009 2:53 pm
von tkontorzik
Hallo,
wichtig ist auch, dass Sie beim Report bei der Feldauswahl für das Feld "Drive Free Space" den RAW Modus selektiert haben. Anschliessend sollte folgender Code zum Erfolg führen:
Code: Alles auswählen
begin
if [vLogical drives->Drive Free Space] > 1000000 then
begin
Memo.FillColor := '$00ff00';
end else
begin
Memo.FillColor := '$0000ff';
end
end
Re: Ampelsystem
Verfasst: Do Nov 05, 2009 3:13 pm
von cgr
Hallo,
raw habe ich selektiert, jedoch werden entweder alle Werte grün oder keiner (egal ob 1 KB frei oder 100 GB).
Wo muss das memo feld eingefügt werden?
tkontorzik hat geschrieben:Hallo,
wichtig ist auch, dass Sie beim Report bei der Feldauswahl für das Feld "Drive Free Space" den RAW Modus selektiert haben. Anschliessend sollte folgender Code zum Erfolg führen:
Code: Alles auswählen
begin
if [vLogical drives->Drive Free Space] > 1000000 then
begin
Memo.FillColor := '$00ff00';
end else
begin
Memo.FillColor := '$0000ff';
end
end
Re: Ampelsystem
Verfasst: Do Nov 05, 2009 4:05 pm
von tkontorzik
Hallo,
exportieren Sie am besten Ihren Report und senden ihn an unseren Support (
support@aagon.com). Dann sehen wir uns Ihren Report einmal an und geben Ihnen weitere Hilfestellung.