deletar registro do access atraves do delphi
Boa tarde.
tenho uma interface de cadastro de funcionários no delphi, que se comunica com um banco de dados no access. Gostaria de saber como posso excluir um funcionário previamente cadastrado, e todas as informações associadas a ele (com um botão excluir) com algum comando pelo delphi.
Obrigada
tenho uma interface de cadastro de funcionários no delphi, que se comunica com um banco de dados no access. Gostaria de saber como posso excluir um funcionário previamente cadastrado, e todas as informações associadas a ele (com um botão excluir) com algum comando pelo delphi.
Obrigada
Roberta
Curtidas 0
Respostas
Raimundo Pereira
13/02/2017
Uma vez selecionado o registro basta realizar o delete;
O que você tem pronto?
O que você tem pronto?
GOSTEI 0
Roberta
13/02/2017
preciso de um botão que consiga editar os dados existente, e um que exclua determinado cadastro. A seleção do cadastro a ser ''alterado'' é por meio da lista box, a qual conterá o cpf e nome do funcionário.
Até agora consigo apenas trazer os dados do funcionário selecionado para o campo das edits, mas n consigo alterar o registro existente.
segue o código do botão editar
procedure TfrmCadastro.btneditarClick(Sender: TObject);
var
CPF: string;
begin
CPF := copy(lstbxempregados.Items.Strings[lstbxempregados.Itemindex], 1, 14);
with udm.DM.tblfuncionario do
begin
close;
open;
first;
if Locate(''CPF'', CPF,[]) = true then //compara o cpf da list box com o banco de dados
begin
edtempregado.text := (FieldByName(''Nome_do_Empregado'').AsString); { se a comparação for verdadeira, traz o dados atrelados a
este cpf para as edits }
mskedtCPF.text := (FieldByName(''CPF'').AsString);
edtsalario.text := (FieldByName(''Salario'').AsString);
cmbbxSexo.ItemIndex:= (FieldByName(''Sexo'').AsInteger);
cmbbxSupervisor.ItemIndex:=(FieldByName(''Nome_do_Supervisor'').AsInteger);
end;
Até agora consigo apenas trazer os dados do funcionário selecionado para o campo das edits, mas n consigo alterar o registro existente.
segue o código do botão editar
procedure TfrmCadastro.btneditarClick(Sender: TObject);
var
CPF: string;
begin
CPF := copy(lstbxempregados.Items.Strings[lstbxempregados.Itemindex], 1, 14);
with udm.DM.tblfuncionario do
begin
close;
open;
first;
if Locate(''CPF'', CPF,[]) = true then //compara o cpf da list box com o banco de dados
begin
edtempregado.text := (FieldByName(''Nome_do_Empregado'').AsString); { se a comparação for verdadeira, traz o dados atrelados a
este cpf para as edits }
mskedtCPF.text := (FieldByName(''CPF'').AsString);
edtsalario.text := (FieldByName(''Salario'').AsString);
cmbbxSexo.ItemIndex:= (FieldByName(''Sexo'').AsInteger);
cmbbxSupervisor.ItemIndex:=(FieldByName(''Nome_do_Supervisor'').AsInteger);
end;
GOSTEI 0
Roberta
13/02/2017
pensei em criar um botão salvar edição, mas n sei como faria o código
GOSTEI 0
Ricardo Araujo
13/02/2017
Não consegui entender, poderia adicionar algumas tela do sistema e explicar o que esta querendo ?
GOSTEI 0