Olá galera, nesta Quick Tips, irei mostra como podemos trabalhar com transações no Delphi usando a classe TTransactionDesc, localizada na unit SqlExpr. Já adianto que para este exemplo não vamos esquecer de dar uses em SqlExpr.
Vamos adicionar um SQLConnection configurado para o seu banco de dados: não importa qual seja. Logo em seguida vamos adicionar um Button(BtnIncluir), como mostra o exemplo:
Inicialmente vamos criar dois records para ilustrarmos o exemplo. Veja a declaração dos dois records:
type
RCliente = Record
IDCliente, Descricao: String;
End;
RTelefone = Record
IDTelefone, IDCliente, Descricao: String;
End;
A estrutura das duas tabelas que irei implementar é:
- Cliente
IDCliente
Descricao - Telefone
IDTelefone
IDCliente
Descricao
Na seção private, vamos incluir duas procedures IncluirCliente e IncluirTelefone:
private
{ Private declarations }
procedure IncluirCliente;
procedure IncluirTelefone;
Agora vamos implementar cada uma das procedures:
#IncluirCliente
procedure TFrmTransacao.IncluirCliente;
Var
C : RCliente;
xQry : TSQLQuery;
begin
C.IDCliente := '1';
C.Descricao := 'Wesley Yamazack';
xQry := TSQLQuery.Create(Self);
xQry.SQLConnection := SqlConnectionDevMedia;
xQry.SQL.Add(' INSERT INTO CLIENTE(IDCLIENTE, DESCRICAO )' );
xQry.SQL.Add(' VALUES ( '+ C.IDCliente + ' , ' + QuotedStr(C.Descricao) + ' ) ' );
xQry.ExecSQL;
ShowMessage('Cliente incluído com sucesso');
end;
#IncluirTelefone
procedure TFrmTransacao.IncluirTelefone;
Var
T : RTelefone;
xQry : TSQLQuery;
begin
T.IDTelefone := '1';
T.IDCliente := '1';
T.Descricao := '3333-3333';
xQry := TSQLQuery.Create(Self);
xQry.SQLConnection := SqlConnectionDevMedia;
xQry.SQL.Add(' INSERT INTO TELEFONE(IDTELEFONE, IDCLIENTE, DESCRICAO ) ' );
xQry.SQL.Add(' VALUES ( '+ T.IDTelefone + ' , ' + T.IDCliente + ' , ' +
QuotedStr(T.Descricao) + ' ) ' );
xQry.ExecSQL;
ShowMessage('Telefone incluído com sucesso');
end;
end.
E por último vamos a implementação do BtnIncluir:
procedure TFrmTransacao.BtnIncluirClick(Sender: TObject);
Var
Trans : TTransactionDesc;
ID : Integer;
begin
SqlConnectionDevMedia.StartTransaction(Trans);
Trans.TransactionID := Random(ID);
IncluirCliente;
IncluirTelefone;
SqlConnectionDevMedia.Commit(Trans);
end;
Por que usar transação?
Imagine que você só possa incluir um cliente, se ele tiver um telefone, e por um acaso, deu erro ao incluir um telefone, o seu cliente não poderá ficar sem um telefone. Com a transação o processo só é concluído, ou seja, os dois registros só são criados se ambos estiverem corretos, do contrário nenhum dos dois será incluído.
Fico por aqui ate à próxima Quick Tips. Baixe o exemplo completo neste post.
