Fórum Data + Firebird + DbExpress #528787

procedure TFrmCadClientes.BtnGravarClick(Sender: TObject);
begin
try
Transacao.TransactionID := 1;
Transacao.IsolationLevel := xilREPEATABLEREAD;
FrmPrincipal.ConexaoBd.StartTransaction(Transacao);
SqlDtSCadClientes.Close;
SqlDtSCadClientes.CommandType := ctQuery;
SqlDtSCadClientes.CommandText:='insert into CADCLIENTES(CODIGO, SITUACAO, DATACADASTRO, ULTIMAALTERACAO, ';
SqlDtSCadClientes.CommandText:=SqlDtSCadClientes.CommandText+'OPERADORCODIGO, OPERADORNOME, NOMERAZAO, FANTASIAAPELIDO, ';
SqlDtSCadClientes.CommandText:=SqlDtSCadClientes.CommandText+'CIDADECODIGO, CIDADENOME, ESTADO, CEP, ENDERECO, NUMERO, ';
SqlDtSCadClientes.CommandText:=SqlDtSCadClientes.CommandText+'BAIRROCODIGO, BAIRRONOME, COMPLEMENTO, RG, CNPJCPFCODIGO, CNPJCPF, ';
SqlDtSCadClientes.CommandText:=SqlDtSCadClientes.CommandText+'DATANASCIMENTO, INSCRICAOESTADUAL, INSCRICAOMUNICIPALPRODUTOR, ';
SqlDtSCadClientes.CommandText:=SqlDtSCadClientes.CommandText+'EMAIL, CONTATO, TELEFONE1, TELEFONE2, CELULAR)';
SqlDtSCadClientes.CommandText:=SqlDtSCadClientes.CommandText+'values(:CODIGO, :SITUACAO, ';
SqlDtSCadClientes.CommandText:=SqlDtSCadClientes.CommandText+':DATACADASTRO, :ULTIMAALTERACAO, :OPERADORCODIGO, :OPERADORNOME, ';
SqlDtSCadClientes.CommandText:=SqlDtSCadClientes.CommandText+':NOMERAZAO, :FANTASIAAPELIDO, :CIDADECODIGO, :CIDADENOME, :ESTADO, :CEP, ';
SqlDtSCadClientes.CommandText:=SqlDtSCadClientes.CommandText+':ENDERECO, :NUMERO, :BAIRROCODIGO, :BAIRRONOME, :COMPLEMENTO, :RG, :CNPJCPFCODIGO, ';
SqlDtSCadClientes.CommandText:=SqlDtSCadClientes.CommandText+':CNPJCPF, :DATANASCIMENTO, :INSCRICAOESTADUAL, :INSCRICAOMUNICIPALPRODUTOR, ';
SqlDtSCadClientes.CommandText:=SqlDtSCadClientes.CommandText+':EMAIL, :CONTATO, :TELEFONE1, :TELEFONE2, :CELULAR)';
       SqlDtSCadClientes.ParamByName('CODIGO').AsInteger := StrToInt(EdtCodigo.Text);
       SqlDtSCadClientes.ParamByName('SITUACAO').AsString := EdtSituacao.Text;
       SqlDtSCadClientes.ParamByName('DATACADASTRO').AsDate := StrToDate(MskDataCadastro.Text);
       SqlDtSCadClientes.ParamByName('ULTIMAALTERACAO').AsDate := StrToDate(MskUltimaAlteracao.Text);
       SqlDtSCadClientes.ParamByName('OPERADORCODIGO').AsInteger := StrToInt(EdtOperadorCodigo.Text);
       SqlDtSCadClientes.ParamByName('OPERADORNOME').AsString := EdtOperadorNome.Text;
       SqlDtSCadClientes.ParamByName('NOMERAZAO').AsString := EdtNomeRazao.Text;
       SqlDtSCadClientes.ParamByName('FANTASIAAPELIDO').AsString := EdtFantasiaApelido.Text;
       SqlDtSCadClientes.ParamByName('CIDADECODIGO').AsInteger := StrToInt(EdtCidadeCodigo.Text);
       SqlDtSCadClientes.ParamByName('CIDADENOME').AsString := EdtCidadeNome.Text;
       SqlDtSCadClientes.ParamByName('ESTADO').AsString := EdtEstado.Text;
       SqlDtSCadClientes.ParamByName('CEP').AsString := MskCep.Text;
       SqlDtSCadClientes.ParamByName('ENDERECO').AsString := EdtEndereco.Text;
       SqlDtSCadClientes.ParamByName('NUMERO').AsString := EdtNumero.Text;
       SqlDtSCadClientes.ParamByName('BAIRROCODIGO').AsInteger := StrToInt(EdtBairroCodigo.Text);
       SqlDtSCadClientes.ParamByName('BAIRRONOME').AsString := EdtBairroNome.Text;
       SqlDtSCadClientes.ParamByName('COMPLEMENTO').AsString := EdtComplemento.Text;
       SqlDtSCadClientes.ParamByName('RG').AsString := EdtRg.Text;
       SqlDtSCadClientes.ParamByName('CNPJCPFCODIGO').AsInteger := StrToInt(EdtCnpjCpfCodigo.Text);
       SqlDtSCadClientes.ParamByName('CNPJCPF').AsString := EdtCnpjCpf.Text;
       SqlDtSCadClientes.ParamByName('DATANASCIMENTO').AsDate := StrToDate(MskDataNascimento.Text);
       SqlDtSCadClientes.ParamByName('INSCRICAOESTADUAL').AsString := EdtInscricaoMunicipal.Text;
       SqlDtSCadClientes.ParamByName('INSCRICAOMUNICIPALPRODUTOR').AsString := EdtInscricaoMunicipalProdutor.Text;
       SqlDtSCadClientes.ParamByName('EMAIL').AsString := EdtEmail.Text;
       SqlDtSCadClientes.ParamByName('CONTATO').AsString := EdtContato.Text;
       SqlDtSCadClientes.ParamByName('TELEFONE1').AsString := MskTelefone1.Text;
       SqlDtSCadClientes.ParamByName('TELEFONE2').AsString := MskTelefone2.Text;
       SqlDtSCadClientes.ParamByName('CELULAR').AsString := MskCelular.Text;
SqlDtSCadClientes.ExecSQL;
FrmPrincipal.ConexaoBd.Commit(Transacao);
except
on Exc:Exception do
begin
ShowMessage('Ocorreu um erro na tentativa de inclusão do registro: ' + Exc.Message);
FrmPrincipal.ConexaoBd.Rollback(Transacao);
end;
end;
end;