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