1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31

procedure TFFunc_Acesso.EdMatriculaExit(Sender: TObject);
var
x: integer;
begin
with FDataModulo do
begin

qryGeral.Close;
qryGeral.SQL. ;
qryGeral.SQL.Add('select * from funcionario');
qryGeral.SQL.Add('where Matricula="'+EdMatricula.Text+'"');
qryGeral. ;

end;
if FDataModulo.qryGeral. then
begin

ShowMessage('Funcionário/Usuário não cadastrado.');
Close;

end;
with FDataModulo do
begin
if TabFunc_Acesso. ([EdMatricula.Text]) then
begin
for x:=1 to (length(TabFunc_acesso.fieldbyName('Acesso').AsString)) do
begin
if copy(TabFunc_Acesso. ('Acesso').AsString,x,1) = '1' then
Listbox2.items. ('1 - Relatório')
else if copy(TabFunc_Acesso. ('Acesso').AsString,x,1)='6' then
Listbox2.items. ('6 - Acesso Geral');
end;
end
end;
end;