CREATE TABLE Produto
(
id int PRIMARY KEY,
Descricao VARCHAR(50) UNIQUE,
Estoque int NOT NULL DEFAULT 0
);

INSERT INTO Produto VALUES (1, 'parafuso', 100);
INSERT INTO Produto VALUES (2, 'bucha', 50);
INSERT INTO Produto VALUES (3, 'prego', 150);

CREATE TABLE ItensVenda
(
idVenda INT,
idProduto int,
Quantidade INT
);

DELIMITER $
CREATE TRIGGER Tgr_ItensVenda_Insert AFTER INSERT
ON ItensVenda
FOR EACH ROW
BEGIN
UPDATE Produto SET Estoque = Estoque - NEW.Quantidade
WHERE id = NEW.idProduto;
END$

CREATE TRIGGER Tgr_ItensVenda_Delete AFTER DELETE
ON ItensVenda
FOR EACH ROW
BEGIN
UPDATE Produtos SET Estoque = Estoque + OLD.Quantidade
WHERE id = OLD.idProduto;
END$
DELIMITER ;

INSERT INTO ItensVenda VALUES (1, 1,30);
INSERT INTO ItensVenda VALUES (1, 2,10);
INSERT INTO ItensVenda VALUES (1, 3,50);

DELETE FROM ItensVenda WHERE idVenda = 1 AND idProduto = 1;

i. SELECT distinct idsessaopratica, titulo, dtfinalizacao
FROM spusuario, sessaopratica
WHERE spusuario.idsessaopratica=sessaopratica.id
and (dtfinalizacao, idsessaopratica) IN
(SELECT MAX(dtfinalizacao), idsessaopratica
FROM spusuario GROUP BY idsessaopratica)
ORDER BY dtfinalizacao

ii. SELECT distinct idsessaopratica, titulo, dtfinalizacao
FROM spusuario
LEFT JOIN sessaopratica
ON spusuario.idsessaopratica=sessaopratica.id
WHERE (dtfinalizacao, idsessaopratica) IN
(SELECT MAX(dtfinalizacao), idsessaopratica
FROM spusuario GROUP BY idsessaopratica)
ORDER BY dtfinalizacao

iii. SELECT distinct idsessaopratica, titulo, dtfinalizacao
FROM spusuario, sessaopratica
WHERE spusuario.idsessaopratica=sessaopratica.id
and (dtfinalizacao, idsessaopratica) IN
(SELECT MAX(dtfinalizacao), idsessaopratica
FROM spusuario)
GROUP BY idsessaopratica
ORDER BY dtfinalizacao

iv. SELECT distinct idsessaopratica, titulo, dtfinalizacao
FROM spusuario, sessaopratica
WHERE spusuario.idsessaopratica=sessaopratica.id
and (dtfinalizacao) IN
(SELECT MAX(dtfinalizacao)
FROM spusuario GROUP BY idsessaopratica)
ORDER BY dtfinalizacao

v. SELECT distinct idsessaopratica, titulo, dtfinalizacao
FROM spusuario spu
LEFT JOIN sessaopratica
ON spu.idsessaopratica=sessaopratica.id
WHERE (dtfinalizacao, idsessaopratica) IN
(SELECT MAX(dtfinalizacao), spu.idsessaopratica
FROM spusuario GROUP BY spu.idsessaopratica)
ORDER BY dtfinalizacao

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;