Questão
ID 2124570Disciplina: Tecnologia da Informação
Assunto: DML
Ano: 2022 Banca: Colégio Pedro II Órgão: Colégio Pedro II
A classe FDataModulo tem o atributo identificado como TabFunc da classe TmySQLTable, como forma de acesso para buscar as informações de tipo de acesso de um funcionário em uma tabela do banco de dados, conforme o código a seguir:
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; |
Sabendo-se que:
II. para o funcionamento do código, além da existência dos componentes TabFunc_acesso e qryGeral no FDataModulo, deve ser considerada também a existência dos componentes EditMatricula e Listbox2;
III. as virgulas nas opções são utilizadas somente para separar comandos;
os comandos (métodos do componente TQuery, TTable e TListBox) que completam as linhas 8, 11, 13, 20, 24, 25, 26 e 27, correta e respectivamente, são