Sub main()
 
    On Error Goto ErrInfo
 
    TagesDatum = Date
    sevTextBox.CurrencyText = " "
 
    sUserID = "root"
    sPassword = "mytravel"
    sServer = "localhost"
    sDatabase = "travel"
    Set oConn = GetRemoteConnection(sUserID, sPassword, sServer, sDatabase)
    Call oConn.Open
    PgmAktion = "NOK"
    PgmUserName = " "
    Anmeldung.Show vbModal
    If PgmAktion = "OK" Then
       MenuForm1.Show vbModal
    End If
    UnloadForms
 
    Exit Sub
 
ErrInfo:
 
    MsgBox Err.Number & ", " & Err.Description
    Resume Next
 
End Sub

CardManager (SmartCard Tools a la CARD)

Beitrag wurde zuletzt am 26.01.09 um 16:09:26 editiert.