![]() |
FlowFact - Entwicklungstools |
![]() |
Sub | Form_Load() |
Public Sub Form_Load() '** FFDeveloper erzeugen und initialisieren 'Set m_oFFDeveloper = New FFDeveloper.Application Set m_oFFDeveloper = CreateObject("FFDeveloper.Application") '** Loggin einschalten => siehe Datei im Temp-Verzeichnis "ffDeveloper.log" m_oFFDeveloper.FlagSqlLog = True m_oFFDeveloper.LogPath = "C:\FlowFact\Dat\" m_oFFDeveloper.FlowFact_InitApplication 'oder 'm_oFFDeveloper.FlowFact_InitConnector "C:\FlowFact", "ffAdmin", "geheim" 'MsgBox "IsAdmin = " & m_oFFDeveloper.FlowFact_IsAdmin 'MsgBox "faxart_dsn = " & m_oFFDeveloper.FlowFact_CurentUserRS("faxart_dsn") '** Prüfen ob Initialisierung ok; sonst stop (INITTYPE_NONE=0) If m_oFFDeveloper.FlowFact_InitType = 0 Then MsgBox "Initialisierung von FFDeveloper ist fehlgeschlagen. Das Beispielprogramm wird beendet." End End If '** Info ausgeben txtInfo.Text = "DbVersion: " & m_oFFDeveloper.FlowFact_DbVersion & vbCrLf & _ "Login: " & m_oFFDeveloper.oBase.FF_CurrentUserRS.Fields("Login_Name").Value & vbCrLf & _ "User: " & m_oFFDeveloper.oBase.FF_CurrentUserRS.Fields("Name").Value & vbCrLf End Sub |