M
myriverman
Unregistered / Unconfirmed
GUEST, unregistred user!
VB代码如下:
Option Explicit
Private K3Login As Object '当前连接对象
Sub main()
On Error GoTo HERROR
Set K3Login = CreateObject("K3Login.ClsLogin")
If Not K3Login.CheckLogin Then Err.Raise 1000, , "登录不成功"
Dim frm As frmLookUp
Set frm = New frmLookUp
frm.Show vbModal
Unload frm
Set frm = Nothing
Set K3Login = Nothing
End
Exit Sub
HERROR:
MsgBox Err.Description
End
End Sub
我想在delphi中调用次K3Login.dll中的ClsLogin方法,来作为软件的登陆窗体,不知道代码如何写?请大侠们赐教
Option Explicit
Private K3Login As Object '当前连接对象
Sub main()
On Error GoTo HERROR
Set K3Login = CreateObject("K3Login.ClsLogin")
If Not K3Login.CheckLogin Then Err.Raise 1000, , "登录不成功"
Dim frm As frmLookUp
Set frm = New frmLookUp
frm.Show vbModal
Unload frm
Set frm = Nothing
Set K3Login = Nothing
End
Exit Sub
HERROR:
MsgBox Err.Description
End
End Sub
我想在delphi中调用次K3Login.dll中的ClsLogin方法,来作为软件的登陆窗体,不知道代码如何写?请大侠们赐教