Kaufmännische Software für Handel, Handwerk und Produktionsbetriebe
Client-Objekt (iScript)
Das Client (= Mandant) Objekt stellt die Schnittstelle zu allen mandantenspezifischen Funktionen in EULANDA® dar.
Methoden
- function CreateDataset - erzeugt eine neue Datenmenge
- procedure Print - Ausdruck von Berichten bzw. Speicherung als Datei (PDF)
- procedure SendKeys - Absenden von Tastaturmakros
- procedure ShowAppSettings - Anzeigen von Eigenschaftsseiten der EULANDA®-Einstellungen
- function ExecuteSql - Ausführung von SQL-Befehlen
- function CreateDialog - Erzeugung eines Dialogfensters
- procedure Navigate - Wechseln zu einem bestimmten Datensatz oder Programmmodul
- function CreateRegistry - erzeugt ein Registry-Objekt, um auf den internen Registry-Datenspeicher zugreifen zu können
Eigenschaften
- property Active: Boolean Lesen/Schreiben - zeigt an, ob der Mandant gestartet ist
- property Alias: String Lesen - Der angezeigte Name des Mandanten
- property DatabaseName: String Lesen - Der Name der Datenbank im SQL-Server
- property DBConnectionString: String Lesen - Der ADO/OLE/DB Verbindungsstring
- property Username: string Lesen - Der Windows Benutzername
- property PCName: string Lesen - Der Name des Computers
- property Servername: string Lesen - Der Name des SQL-Datenbankservers
- property LagerGruppe: ILagerGruppe
- property Properties[Index]: Variant- Zugriff auf diverse Grundeinstellungen und allgemeine Werte, wie Benutzersprache und Programmversion
- property Connection: ADODB.Connection - gibt das ADO-Objekt zum Zugriff auf die Datenbank zurück
Beispiel
A. Script zur Systeminformationsabfrage
Dieses Script ließt einige Eigenschaften aus der Eulanda aus und gibt sie an ein Ausgabebox weiter.
VBScript
option explicit
If Client.Active = "Wahr" then
MsgBox "Sie sind angemeldet als: " & Client.Alias & vbCrlf & _
"Die aktuelle Datenbank: " & Client.DatabaseName & vbCrlf & _
"Windows Benutzername: " & Client.Username & vbCrlf & _
"Der Name des PC's: " & Client.Pcname & vbCrlf & _
"Der Name des Servers: " & Client.Servername
Else MsgBox "Sie sind nicht angemeldet"
End If