FlowFact - Entwicklungstools

zurück

Sub - Form_Load
Initialisierung

  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