2007-10-03 16:03:28 +00:00
|
|
|
unit uIDataModuleUsuarios;
|
|
|
|
|
|
|
|
|
|
interface
|
|
|
|
|
|
|
|
|
|
uses
|
2008-01-13 21:37:20 +00:00
|
|
|
UCBase, UCSettings, uBizUsuarios;
|
2007-10-03 16:03:28 +00:00
|
|
|
|
|
|
|
|
type
|
|
|
|
|
IDataModuleUsuarios = interface
|
2008-01-13 21:37:20 +00:00
|
|
|
['{C0A8481F-4920-414D-A906-EE1EB18DE946}']
|
|
|
|
|
procedure InicializarUserControl (AUserControl : TUserControl);
|
|
|
|
|
|
|
|
|
|
function GetUsuario(const ID : Integer) : IBizUsuario;
|
|
|
|
|
function NuevoUsuario : IBizUsuario;
|
|
|
|
|
function GetUsuarios : IBizUsuario;
|
|
|
|
|
|
|
|
|
|
function NuevoPerfil : IBizPerfilUsuario;
|
|
|
|
|
function GetPerfiles : IBizPerfilUsuario;
|
|
|
|
|
function GetPerfil(const ID : Integer) : IBizPerfilUsuario;
|
2007-10-03 16:03:28 +00:00
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
implementation
|
|
|
|
|
|
|
|
|
|
end.
|
2008-01-13 21:37:20 +00:00
|
|
|
|