Wenn ein Formular aufgerufen wird (durch das Bearbeiten eines Objektes im GS-Manager), wird das Event OnSetFormData aufgerufen (wenn es implementiert ist).

In unserem Beispiel soll die Eigenschaft "Status" des Objektes "Meldung" initialisiert werden. Der Code wird mit Hilfe des Skript-Editors erstellt:

sub OnSetFormData

 ' Das Objekt des Formulares wird über GSVars ermittelt:

 set Meldung = GSVars("Meldung").AsODBObject

 if Meldung.ObjectID = 0 then

   Meldung.Properties("Status").AsString = "Neu"

 end if

 if Meldung.Properties("Status").AsString <> "Umgesetzt" then

   set btFreigegeben = GSForm.GSControls("btFreigegeben")

   btFreigegeben.Enabled = false

 end if

 set Meldung = nothing

end sub

Anschließend muss der Code mit dem Formular verbunden werden:

Abb.: Elementeigenschaften einer Variablen