Editando campos no banco de Dados atraves do meu formulário!

Delphi

Firebird

09/06/2015

Opa Galera, Sou iniciante e gostaria de esclarecer uma duvida com voces...
de o porque carregar as informacoes do banco de dados porem nao editar nem adicionar..

begin
Try
With Qry Do
Begin
Close;
Sql.Clear;
Sql.Add('UPDATE EMPREGADO SET');
Sql.Add('ID='+QuotedStr(eId.Text));
Sql.Add(',DESCRICAO='+QuotedStr(eDescricao.Text));
Sql.Add(',TIPO_OPERADOR='+QuotedStr(eTipo_Operador.Text));
Sql.Add(',ENDERECO='+QuotedStr(eEndereco.Text));
Sql.Add(',CEP='+QuotedStr(eCep.Text));
Sql.Add(',ID_CIDADE='+QuotedStr(eCidade.Text));
Sql.Add(',BAIRRO='+QuotedStr(eBairro.Text));
Sql.Add(',VLR_SALARIO='+StringReplace(eSalario.Text,',','.',[rfReplaceAll]));
Sql.Add(',ID_DEPARTAMENTO='+QuotedStr(eDepartamento.Text));
Sql.Add(',CPF='+QuotedStr(eCpf.Text));
Sql.Add(',RG='+QuotedStr(eRg.Text));
Sql.Add(',PIS='+QuotedStr(ePis.Text));
Sql.Add(',CTPS='+QuotedStr(eCtps.Text));
Sql.Add(',ID_CARGO='+QuotedStr(eCargo.Text));
Sql.Add(',BANCO='+QuotedStr(eBanco.Text));
Sql.Add(',AGENCIA='+QuotedStr(eAgencia.Text));
Sql.Add(',CONTA='+QuotedStr(eConta.Text));
Sql.Add(',APELIDO='+QuotedStr(eLogin.Text));
Sql.Add(',SENHA='+QuotedStr(eSenha_de_Acesso.Text));
Sql.Add(',DATA_ADMISSAO='+QuotedStr(eAdm.Text));
Sql.Add(',COMISSAO='+StringReplace(eComissao.Text,',','.',[rfReplaceAll]));
Sql.Add(',EMAIL='+QuotedStr(eEmail.Text));
Sql.Add(',TELEFONE,='+QuotedStr(eTelefone.Text));
Sql.Add(',CELULAR='+QuotedStr(eCelular.Text));
Sql.Add(',SENHA_NIVEL='+QuotedStr(eNivel_Senha_Acesso.Text));
if eUsuario_Sistema.Checked=True then Sql.Add(',USUARIO_SISTEMA=''S''') else Sql.Add(',USUARIO_SISTEMA=''N''');
if eUsuario_Aparecer_Touch.Checked=True then Sql.Add(',USUARIO_APARECER_TOUCH=''S''') else Sql.Add(',USUARIO_APARECER_TOUCH=''N''');
//Sql.Add('WHERE ID='+eID.Text);
ExecSQL;
End;
Except
Showmessage('ERRO AO ATUALIZAR O FUNCIONARIO');
Abort;
End;

end;
Odair Duarte

Odair Duarte

Curtidas 0
POSTAR