[carlosw1978]

Código Delphi [-]
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;