Case 1 - Visual Basic - Code
Option Explicit
Public Session As LANSA_ACTIVEX_LIB.Session
Private Sub AXFORMA_uEmployeeFound(ByVal uResult As String)
On Error GoTo ErrorHandler
If uResult = "OK" Then
cmdUpdate.Enabled = True
cmdClose.Enabled = True
UemployeeGiveName = AXFORMA.UemployeeGiveName
UemployeeSurname = AXFORMA.UemployeeSurname
UemployeeSalary = AXFORMA.UemployeeSalary
Call AXFORMA.ShowForm
Else
UemployeeGiveName = "Not Found"
UemployeeSurname = "Not Found"
UemployeeSalary = 0
End If
Exit Sub ' Exit to avoid handler.
ErrorHandler: ' Error-handling routine.
MsgBox ("Error :" + Err.Description)
End Sub
Private Sub cmdClose_Click()
Call AXFORMA.uClose
' Unload AXFORMA
End Sub
Private Sub cmdShowEmployee_Click()
On Error GoTo ErrorHandler
' pass the employee number to the vl component method.
Call AXFORMA.uShowEmployee(uEmployeeNumber)
Exit Sub ' Exit to avoid handler.
ErrorHandler: ' Error-handling routine.
MsgBox ("Error :" + Err.Description)
End Sub
Private Sub cmdUpdate_Click()
AXFORMA.UemployeeGiveName = UemployeeGiveName
' notice surname has been set as readonly in the Visual LANSA component
' AXFORMA.UemployeeSurname = UemployeeSurname
If UemployeeSalary = "" Then UemployeeSalary = 0
AXFORMA.UemployeeSalary = UemployeeSalary
End Sub
Private Sub Form_Load()
On Error GoTo ErrorHandler
' login to LANSA using default user, password and session location
If Session Is Nothing Then
Call ConnectToLansa("<user name>", "<password>", "<session.cfg path>")
End If
' now add your component to the current session
Call Session.AddComponent(AXFORMA.object)
Exit Sub ' Exit to avoid handler.
ErrorHandler: ' Error-handling routine.
MsgBox ("Error :" + Err.Description)
End Sub
Private Sub ConnectToLansa(ByVal username As String, ByVal password As String, ByVal txtlocation As String)
On Error GoTo ErrorHandler
Set Session = New LANSA_ACTIVEX_LIB.Session
' Set the session configuration file
Session.ConfigFile = txtlocation
Call Session.SetConnectParam("USER", username)
Call Session.SetConnectParam("PSPW", password)
Call Session.Connect
Exit Sub ' Exit to avoid handler.
ErrorHandler: ' Error-handling routine.
MsgBox ("Error :" + Err.Description)
End Sub
Private Sub Form_Unload(Cancel As Integer)
Set Session = Nothing
End Sub