{$MODE DELPHI}
unit udatabase;
interface
type

unit DatabaseLogonUnit;
interface
uses

unit mylDatabaseGenerators;
interface
uses

{                                                       }
{*******************************************************}
// Executes a script, keeping information about database connection
// or creation
// Clear Disconnect from database if connecte

//
////////////////////////////////////////////////////////////////////////////////
unit uDatabase;
interface
{$I tsmc.inc}

var
    sidelist: string;
    database : array[1..6] of string;
    usedatabase :array[1..MaxDBN] of boolean;
Procedure LoadDB(dbm: TLiteDB);

{$MODE objfpc}
{$H+}
unit PwfDatabase;
{
NAME

var
    sidelist: string;
    database : array[1..6] of string;
    usedatabase :array[1..MaxDBN] of boolean;
Procedure LoadDB(dbm: TLiteDB);

        Program Name : DB_B3
        Package Name : LB
        Purpose      : Database implemented as a B3 tree
        Institution  : Conroy & Conroy Co.
        Date Written : 11-April-2002

  SRpError='Error';
  SRpFileNameRequired='File name required to adquire config file';
  SRpAliasExists='The database alias already exists: ';
  SRpInvalidComponentAssigment='Error assigning the type must be a valid database';
  SRpNewDatabaseconf='New database alias configuration';

    Memo1: TMemo;
    OpenDialogBackup: TOpenDialog;
    OpenDialogDatabase: TOpenDialog;
    procedure BExitClick(Sender: TObject);
    procedure BBackupClick(Sender: TObject);

    Memo1: TMemo;
    OpenDialogBackup: TOpenDialog;
    OpenDialogDatabase: TOpenDialog;
    procedure BExitClick(Sender: TObject);
    procedure BBackupClick(Sender: TObject);

  mylUtils, mylLangClasses;
type
  TSqlDatabase = class
  public
    Name: string;

  classes,
  dpoPersistanceObject,
  dpoDatabaseMechanism,
  dpoAdoMechanism;
procedure Register;

{$MODE objfpc}
{$H+}
unit PwfDatabasePostgres;
{
NAME

const
    ZLOADER_CREATED     = 'ZLoader element created';
    ZLOADER_DB_SCAN     = 'Begin scan of databases to be consistency checked';
    ZLOADER_DB_SCAN_END = 'End scan of databases : ';
    ZLOADER_DB_FOUND    = ' found';

   SIBNoResult='Without result';
   SIBBusy='Server busy';
   SIBCopyError='Error in database copy';
   SIBRepairing='Repair database';
   SIBEnable='Enabling cache';

   SIBNoResult='Without result';
   SIBBusy='Server busy';
   SIBCopyError='Error in database copy';
   SIBRepairing='Repair database';
   SIBEnable='Enabling cache';

  private
    FDirectory: string;
    FRemoteDatabase: string;
    FRemotePort: Integer;
    FRemoteHost: string;

    FDialog: TJvLoginForm;
    FMode: TDialogMode;
    FSelectDatabase: Boolean;
    FIniAliasName: string;
    FCheckUserEvent: TCheckUserNameEvent;

    FDialog: TRxLoginForm;
    FMode: TDialogMode;
    FSelectDatabase: Boolean;
    FIniAliasName: string;
    FCheckUserEvent: TCheckUserNameEvent;

    FDialog: TRxLoginForm;
    FMode: TDialogMode;
    FSelectDatabase: Boolean;
    FIniAliasName: string;
    FCheckUserEvent: TCheckUserNameEvent;

{********************************************************}
{                                                        }
{                 Zeos Database Explorer                 }
{                       Login Form                       }
{                                                        }

 ;
 function NS_makeTmpAlias( hostName
                         , databasePath
                         , userName
                         , password

  TInstantFlashFilerConnector = class(TInstantRelationalConnector)
  private
    FDatabase: TffDatabase;
  protected
    function CreateBroker: TInstantBroker; override;