[Instantobjects-cvscommit] Source/Brokers/UIB InstantUIB.pas,1.5,1.6 InstantUIBConnection.pas,1.3,1.4

[Femi F. <fad...@us...>]

Update of /cvsroot/instantobjects/Source/Brokers/UIB
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv28171/Brokers/UIB

Modified Files:
	InstantUIB.pas InstantUIBConnection.pas 
Log Message:
Package Restructure

Index: InstantUIBConnection.pas
===================================================================
RCS file: /cvsroot/instantobjects/Source/Brokers/UIB/InstantUIBConnection.pas,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
*** InstantUIBConnection.pas	6 Dec 2004 08:51:23 -0000	1.3
--- InstantUIBConnection.pas	21 Feb 2005 10:22:34 -0000	1.4
***************
*** 31,35 ****
  interface
  
! uses Classes, DB, jvuib;
  
  resourcestring
--- 31,38 ----
  interface
  
! uses Classes, DB, dbLogDlg, jvuib;
! 
! const
!   UIBLoginDialog : function (const ADatabaseName: string; var AUserName, APassword: string; NameReadOnly: Boolean): Boolean = nil;
  
  resourcestring
***************
*** 103,108 ****
    else
    begin
!     if Assigned(LoginDialogExProc) then
!       result := LoginDialogExProc(FDatabase.DatabaseName, Username, Password, False)
      else
      begin
--- 106,111 ----
    else
    begin
!     if Assigned(UIBLoginDialog) then
!       result := UIBLoginDialog(FDatabase.DatabaseName, Username, Password, False)
      else
      begin
***************
*** 117,119 ****
--- 120,125 ----
  end;
  
+ initialization
+   UIBLoginDialog := LoginDialogEx;
+ 
  end.

Index: InstantUIB.pas
===================================================================
RCS file: /cvsroot/instantobjects/Source/Brokers/UIB/InstantUIB.pas,v
retrieving revision 1.5
retrieving revision 1.6
diff -C2 -d -r1.5 -r1.6
*** InstantUIB.pas	3 Feb 2005 16:51:28 -0000	1.5
--- InstantUIB.pas	21 Feb 2005 10:22:33 -0000	1.6
***************
*** 42,46 ****
  uses
    Classes, Db, jvuib, jvuibdataset, jvuiblib, SysUtils, InstantUIBConnection,
!   InstantPersistence, InstantClasses, InstantCommand, TypInfo;
  
  type
--- 42,46 ----
  uses
    Classes, Db, jvuib, jvuibdataset, jvuiblib, SysUtils, InstantUIBConnection,
!   InstantPersistence, InstantClasses, InstantCommand;
  
  type
***************
*** 154,158 ****
  uses
    Controls, InstantConsts, InstantUIBConnectionDefEdit, InstantUtils,
!   IB, IBHeader, IBIntf;
  
  procedure Register;
--- 154,158 ----
  uses
    Controls, InstantConsts, InstantUIBConnectionDefEdit, InstantUtils,
!   TypInfo;
  
  procedure Register;
***************
*** 421,424 ****
--- 421,425 ----
        AssignDataSetParams(Query, AParams);
      Result := Query;
+ 
    except
      Query.Free;