Hola.
Uff! hiciste todo un cóctel ahí
, en principio revisa si faltan o tienen otro nombre los siguientes componentes:
TDataModule,
TIBDataBase y
TIBTransaction.
Luego el esqueleto de tu DataModule debería ser aproximadamente así:
Código Delphi
[-]
unit Unit2;
interface
uses
SysUtils, Classes, DB, IBCustomDataSet, IBQuery, IBDatabase;
type
TDataModule2 = class(TDataModule)
IBDatabase1: TIBDatabase;
IBTransaction1: TIBTransaction;
...
private
public
function LoginAccepted(const nam, pwd: string): Boolean; end;
var
DataModule2: TDataModule2;
implementation {$R *.dfm}
function TDataModule2.LoginAccepted(const nam, pwd: string): Boolean;
var
qy: TIBQuery;
begin
qy := TIBQuery.Create(nil);
try
qy.Database := IBDataBase1;
qy.Transaction := IBTransaction1;
qy.Close;
qy.SQL.Clear;
qy.SQL.Add('SELECT * FROM USUARIO');
qy.SQL.Add('WHERE NOMBRE = :NOMBRE');
qy.ParamByName('NOMBRE').AsString := nam;
qy.Open;
Result := not qy.IsEmpty and (qy.FieldByName('CLAVE').AsString = pwd);
qy.Close;
finally
qy.Free;
end;
end;
end.
Si cotejas con tu código, enseguida notarás que pusiste la
implementación del método donde debería ir la
declaración.
Saludos