implementation
{$R *.dfm}
uses Funciones, U_Configdb, U_FormTablas, U_TUsuario, U_TBanco, U_TCXC, U_TCXP,
U_TOtrosActivos, U_FormClave, U_ParaEmpresa, U_FormRespaldarBD;
type MapAcceso = record
Modulo : String;
Permiso,
Nuevo,
Buscar,
Guardar,
Eliminar,
Modificar,
Primero,
Anterior,
Siguiente,
Ultimo : Boolean;
end;
var
TablaAcc: MapAcceso;
•
•
•
•
procedure TForm_Principal.ConfigurarInterface;
var
Blob: TBlobField;
ST: TStream;
begin
with dmPrincipal.FDQ_Mapas do
begin
Close;
SQL.Clear;
SQL.Add('Select AS_IDReng, AS_Usuario, AS_Modulo, AS_NombMod');
SQL.Add('From AS_MapAcceso');
SQL.Add('Where UCase(LTrim(RTrim(AS_Usuario))) = ' + QuotedStr(UpperCase(Usuario.Trim)));
Open;
First;
while not Eof do
begin
if Eof then
Exit;
Blob := FieldByName('AS_Modulo') as TBlobField;
ST := CreateBlobStream(Blob, bmRead);
ST.Seek(0,0);
ST.Read(TablaAcc, SizeOf(TablaAcc));
MessageDlg(TablaAcc.Modulo,mtInformation,[mbOK],0);
if UpperCase(TablaAcc.Modulo.Trim) = 'DOCUCAP' then
Action_TBanco.Enabled := TablaAcc.Permiso;
if UpperCase(TablaAcc.Modulo.Trim) = 'BANC' then
Action_TBanco.Enabled := TablaAcc.Permiso;
if UpperCase(TablaAcc.Modulo.Trim) = 'CXC' then
Action_TBanco.Enabled := TablaAcc.Permiso;
if UpperCase(TablaAcc.Modulo.Trim) = 'CXP' then
Action_TBanco.Enabled := TablaAcc.Permiso;
if UpperCase(TablaAcc.Modulo.Trim) = 'OACT' then
Action_TBanco.Enabled := TablaAcc.Permiso;
if UpperCase(TablaAcc.Modulo.Trim) = 'EMPR' then
Action_TBanco.Enabled := TablaAcc.Permiso;
if UpperCase(TablaAcc.Modulo.Trim) = 'USUA' then
Action_TBanco.Enabled := TablaAcc.Permiso;
if UpperCase(TablaAcc.Modulo.Trim) = 'PARABD' then
Action_TBanco.Enabled := TablaAcc.Permiso;
if UpperCase(TablaAcc.Modulo.Trim) = 'RESPBD' then
Action_TBanco.Enabled := TablaAcc.Permiso;
if UpperCase(TablaAcc.Modulo.Trim) = 'RESTBD' then
Action_TBanco.Enabled := TablaAcc.Permiso;
if UpperCase(TablaAcc.Modulo.Trim) = 'MANTBD' then
Action_TBanco.Enabled := TablaAcc.Permiso;
Next;
end;
Close;
end;
end;