Buenos días amigo, ayer estaba intentado poner el código tal cual me dijiste y me bota estos error del DataModule.
Código:
[Error] DataModule02.pas(52): Undeclared identifier: 'TDataModule2'
[Error] DataModule02.pas(52): 'END' expected but 'CONST' found
[Error] DataModule02.pas(52): Undeclared identifier: 'pwd'
[Error] DataModule02.pas(52): '=' expected but ';' found
[Error] DataModule02.pas(53): Expression expected but 'VAR' found
[Error] DataModule02.pas(55): Statements not allowed in interface part
[Error] DataModule02.pas(58): Undeclared identifier: 'IBDataBase1'
[Error] DataModule02.pas(59): Undeclared identifier: 'IBTransaction1'
[Error] DataModule02.pas(66): Undeclared identifier: 'Result'
[Error] DataModule02.pas(66): Operator not applicable to this operand type
[Error] DataModule02.pas(73): Declaration expected but end of file found
[Fatal Error] Sistema.dpr(7): Could not compile used unit 'DataModule02.pas'
EL código lo puse así:
Código Delphi
[-]unit DataModule02;
interface
uses
SysUtils, Classes, DB, IBCustomDataSet, IBDatabase, IBQuery, IBTable,
IBStoredProc;
type
TDataModule2 = class(TDataModule)
IBTransaction1: TIBTransaction;
Procedimientos: TIBStoredProc;
IBTEmpresas: TIBTable;
IBQEmpresas1: TIBQuery;
DSEmpresas: TDataSource;
DSEmpresas1: TDataSource;
IBTAgencia: TIBTable;
IBQAgencia1: TIBQuery;
DSAgencia: TDataSource;
DSAgencia1: TDataSource;
IBTUsuarios: TIBTable;
DSUsuarios: TDataSource;
IBQUsuarios1: TIBQuery;
DSUsuarios1: TDataSource;
IBDatabase1: TIBDatabase;
IBTDNI: TIBTable;
IBTDNIDES_DOC_IDE: TIBStringField;
IBTDNICOD_DOC_IDE: TIBStringField;
DSDNI: TDataSource;
IBQDNI: TIBQuery;
DTDNI1: TDataSource;
IBTTipodePersona: TIBTable;
IBQTipodePersona: TIBQuery;
DSTipodePersona: TDataSource;
DSTipodePersona1: TDataSource;
IBTEstadoCivil: TIBTable;
IBQEstadoCivil: TIBQuery;
DSEstadoCivil: TDataSource;
DSEstadoCivil1: TDataSource;
IBTZona: TIBTable;
IBQZona: TIBQuery;
DSZona: TDataSource;
DSZona1: TDataSource;
IBTPassword: TIBTable;
DSPassword: TDataSource;
IBQPassword: TIBQuery;
DSPassword1: TDataSource;
private
public
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;