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;
|
