Class App Inherits Application

Const kEditClear = "&Löschen"

Const kFileQuit = "Beenden"

Const kFileQuitShortcut = ""

EventHandler Sub Open() dim db as new SQLDatabaseMBS // where is the library? // you can place the database client library files where you want. // example code just has some convenient location for testing. #if TargetWin32 then db.SetFileOption SQLConnectionMBS.kOptionLibraryMySQL, SpecialFolder.UserHome.Child("libmysql.dll") #elseif TargetLinux then db.SetFileOption SQLConnectionMBS.kOptionLibraryMySQL, SpecialFolder.UserHome.Child("libmysqlclient.so.21.0.11") #elseif TargetMacOS then db.SetFileOption SQLConnectionMBS.kOptionLibraryMySQL, SpecialFolder.UserHome.Child("libmysqlclient.dylib") #else ? #endif // connect to database // in this example it is Oracle, // but can also be Sybase, Informix, DB2 // SQLServer, InterBase, SQLBase and ODBC db.DatabaseName="mysql:192.168.1.80,3306@test" db.UserName="root" db.Password="" if db.Connect then MsgBox "We are connected!" dim con as SQLConnectionMBS = db.Connection MsgBox "Server Version: "+con.ServerVersionString // Disconnect is optional // autodisconnect will ocur in destructor if needed else MsgBox db.ErrorMessage end if 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