DB-File etc -> "Übersicht auf einen Blick"

[Matze-muc]

Hallo zusammen,

ich möchte für die Benutzer eine kleine Info-Fenster schaffen, wo das wichtigest auf einen Blick (per Link im Menü "Werkzeuge") erzeugt wird.
Beispiel : eine Balkenanzeige, wieviel platz gerade genutzt wird und wie hoch das limit ist etc....
Gibts vielleicht irgendwelche ansätze hier im Forum ?

Vielen Dank schon im voraus.
MFg Matze

[Driri]

Das hab ich in meiner Sammlung gefunden, habs aber nicht getestet :

Users exceeding their mail quota is something that occurs all the time. Going through the database properties box can be difficult and doesn't tell a user what their quota actually is. I created an action button that calls an agent in our corporate mail template on the $Inbox folder call Database Info. Users can click it and their database information is displayed to them including a warning window if they are over their quota. See code below.

Code


Action Button:
@Command([ToolsRunMacro] ; "(database properties)" )

Agent:

Agent Title: (database properties)
Agent Type: Shared, Hidden

Sub Initialize
   Dim session As New NotesSession
   Dim db As NotesDatabase
   Dim server As String
   Dim Size As Long
   Dim Quota As Double
   
   Set db = session.CurrentDatabase
   server=db.Server
   If server="" Then
      server="Local"
   End If
   size=db.Size/1056000
   quota=db.SizeQuota/1024
   Messagebox "Database Information:" &Chr(10)_
   &Chr(10)_
   & "Database Title: " & db.Title & Chr(10) _
   & "Resides on Server: " & server & Chr(10) _
   & "Full File Path name: " & db.FilePath & Chr(10) _
   &Chr(10)_
   & "Database Size Information:" & Chr(10) _
   &Chr(10)_
   & "Size (Mb): " & size & Chr(10) _
   & "Quota: (Mb): " & quota & Chr(10) _
   & "Percent used: " & db.PercentUsed & Chr(10) _
   &Chr(10)_
   & "Database Design Information:" & Chr(10) _
   &Chr(10)_
   & "Inherits from Template: " & db.DesignTemplateName & Chr(10)_
   & "Database is the Template: " & db.TemplateName & Chr(10)_
   & "Replica ID: " & db.ReplicaID,MB_OK+MB_ICONINFORMATION,"Database Property Synopsis"
   
   If quota <> 0 Then
      If size > quota Then
         Messagebox "You are Currently Over your quota" ,MB_OK+MB_ICONINFORMATION,"What this Agent Does"
      End If
   End If
End Sub

[Matze-muc]

Danke erstmal für die schnelle und unkomplizierte Hilfe.
Hab das schon soweit bei mir angepasst.

Kennst du dich programmiertechnisch auch mit einer grafischen Anzeige aus ? Ich fass es mal kurz zusammen, wie ich das mir vorstelle :
Es soll eine balkenanzeige geben, wo man eine unterteilung hat, wo anziegt wieviel Speicherplatz der User bzw. Maildatenbank auf dem Server belegt in abhängigkeit vom Limit.
Sprich Limit/Mailquota ist 100%. Grüner Bereich ist alle ok. Gelber Bereich ist die Warnung. Roter Bereich ist dann ab 90% der Mailquota.
Die Unterteilung ist dann so in kästchenform.

Vielleicht weist du ja wie man sowas macht...

[Driri]

Muß ich passen. Als Idee höchsten ein berechnetes Feld nehmen und dann entsprechend mit "|" füllen. Oder in einer Form oder Page entsprechend farbige Symbole benutzen und diese per Hide/When ein- oder ausblenden.