Class App Inherits Application

Const kEditClear = "&Löschen"

Const kFileQuit = "Beenden"

Const kFileQuitShortcut = ""

EventHandler Sub Open() // use internal CubeSQL library Call InternalCubeSQLLibraryMBS.Use dim con as new SQLConnectionMBS try // connect to database // or use external DLL? // con.Option("CUBESQL.LIBS") = "/Users/cs/Desktop/libcubesql.dylib" con.Option("APPNAME") = "Xojo Test" con.Option("ConnectionTimeout") = "5" // 5 seconds timeout? 'con.Option("ConnectionEncryption") = "AES128" // or "AES192" or "AES256" con.Connect("localhost@mydatabase.sqlite","admin","admin",SQLConnectionMBS.kCubeSQLClient) // create table dim cmd as new SQLCommandMBS cmd.Connection = con cmd.setCommandText("select sqlite_version()",cmd.kCommandTypeSQLStatement) cmd.Execute while cmd.FetchNext MsgBox "Version: "+cmd.Field(1).asStringValue wend // Disconnect is optional // autodisconnect will ocur in destructor if needed con.Disconnect catch r as RuntimeException MsgBox r.message // SAConnection::Rollback() // can also throw an exception // (if a network error for example), // we will be ready try // on error rollback changes con.Rollback catch rr as runtimeexception MsgBox rr.message end try end try End EventHandler

End Class

Class Window1 Inherits Window

End Class

MenuBar MenuBar1

MenuItem FileMenu = "&Ablage"

MenuItem FileQuit = "#App.kFileQuit"

MenuItem EditMenu = "&Bearbeiten"

MenuItem EditUndo = "&Rückgängig"

MenuItem UntitledMenu1 = "-"

MenuItem EditCut = "&Ausschneiden"

MenuItem EditCopy = "&Kopieren"

MenuItem EditPaste = "&Einfügen"

MenuItem EditClear = "#App.kEditClear"

MenuItem UntitledMenu0 = "-"

MenuItem EditSelectAll = "&Alles auswählen"

End MenuBar