paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-21 01:09:31 +02:00
Code Issues Packages Projects Releases Wiki Activity

fcl-db: base: add into DB unit global callback function LoginDialogExProc for Login prompt dialog.

Browse Source 
git-svn-id: trunk@30400 -
This commit is contained in:
lacak 2015-04-01 07:06:06 +00:00
parent b968e4f679
commit ef5d01061a
1 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
packages/fcl-db/src/base/db.pas
View File

@ -1723,7 +1723,9 @@ type
function MoveNext: Boolean;
property Current: TFields read GetCurrent;
end;
{ TDataLink }
TDataLink = class(TPersistent)
private
FFirstRecord,
@ -1960,7 +1962,7 @@ type
procedure Loaded; override;
procedure SetConnected (Value : boolean); virtual;
property ForcedClose : Boolean read FForcedClose write FForcedClose;
property Streamedconnected: Boolean read FStreamedConnected write FStreamedConnected;
property StreamedConnected: Boolean read FStreamedConnected write FStreamedConnected;
public
procedure Close(ForceClose: Boolean=False);
destructor Destroy; override;
@ -2179,6 +2181,10 @@ const
ftBlobTypes = [ftBlob, ftMemo, ftGraphic, ftFmtMemo, ftParadoxOle,
ftDBaseOle, ftTypedBinary, ftOraBlob, ftOraClob, ftWideMemo];
var
LoginDialogExProc: function(const ADatabaseName: string; var AUserName, APassword: string; UserNameReadOnly: Boolean): Boolean = nil;
{ Auxiliary functions }
Procedure DatabaseError (Const Msg : String); overload;