[kot275]

Вроде все как Вы сказали. Но ошибка. Я указал где ругается.

Код:

unit DataMain;

interface

uses
  SysUtils, Classes, FIBDatabase, pFIBDatabase;

type
  TdmMain = class(TDataModule)
    dbDataBase: TpFIBDatabase;
  private
    { Private declarations }

  public
    { Public declarations }
    procedure Login(R: Boolean); <-- здесь ругается Unsatisfied forward or external declaration: 'TdmMain.Login'
  end;

var
  dmMain: TdmMain;

implementation

{$R *.dfm}

procedure Login(R: Boolean);
begin
  if dmMain.dbDataBase.Connected then
    dmMain.dbDataBase.Connected := False;
  with dmMain.dbDataBase.ConnectParams do
    begin
      UserName := 'SYSBDA';
      Password := 'masterkey';
      //RoleName := urole;
    end;
  dmMain.dbDataBase.DBName  := '';
  dmMain.dbDataBase.Connected := True;
  R := dmMain.dbDataBase.Connected;
end;


end.