Update of /cvsroot/instantobjects/Source/Brokers/UIB
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv19834/Source/Brokers/UIB
Modified Files:
InstantUIBConnection.pas
Log Message:
published OnLogin event of UIBConnector
Index: InstantUIBConnection.pas
===================================================================
RCS file: /cvsroot/instantobjects/Source/Brokers/UIB/InstantUIBConnection.pas,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** InstantUIBConnection.pas 3 Dec 2004 16:04:29 -0000 1.2
--- InstantUIBConnection.pas 6 Dec 2004 08:51:23 -0000 1.3
***************
*** 50,53 ****
--- 50,54 ----
published
property Database: TJvUIBDataBase read FDatabase;
+ property OnLogin;
end;
***************
*** 91,95 ****
function TInstantUIBConnection.Login: Boolean;
var
! Username, Password, OldPassword: String;
begin
Username := FDatabase.UserName;
--- 92,96 ----
function TInstantUIBConnection.Login: Boolean;
var
! Username, Password: String;
begin
Username := FDatabase.UserName;
|
