class Session example

This example assigns a new Session object to a database object and, when login is true, makes the database active.

d = new database()

d.databaseName := "MyAlias"

s = new session()

d.session := s

if s.login()

   d.active := true 

   ? s.user() 

   ? s.access() 

else

   ? "Login failed" 

endif