Relação de tabelas na exclusao de itens
02/08/2010
0
if not DataModule_dados.TblProdutos.isEmpty
then
begin
if messageDlg ('Confirma exclusão do registro?', mtConfirmation, mbOkCancel,0) = mrOk
then
DataModule_dados.TblProdutos.Delete;
EditPesquisa.Clear;
EditPesquisa.SetFocus;
end
else
showmessage('não ha registros');
end;
Daniel
Posts
02/08/2010
Eriley Barbosa
if not DataModule_dados.TblProdutos.Active then
DataModule_dados.TblProdutos.Open;
if DataModule_dados.TblProdutos.Locate('CampoCodFornecedor', DataModule_dados.TblFornecedores.FieldByName('CampoCodFornecedor'). Value, []) then
begin
MessageDlg ('Este fornecedor não pode ser excluído, poi, possuí produtos associados a ele', mtInformation, mbOk,0) ;
Abort;
end;02/08/2010
Eriley Barbosa
begin
MessageDlg ('Este fornecedor não pode ser excluído, poi, possuí produtos associados a ele', mtInformation, mbOk,0) ;
Abort;
end; Atenciosamente Eriley
02/08/2010
Daniel
begin
MessageDlg ('Este fornecedor não pode ser excluído, poi, possuí produtos associados a ele', mtInformation, mbOk,0) ;
Abort;
end; Atenciosamente Eriley
02/08/2010
Eriley Barbosa
02/08/2010
Daniel
02/08/2010
Eriley Barbosa
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs; Atenciosamente Eriley
02/08/2010
Eriley Barbosa
begin
MessageDlg ('Este fornecedor não pode ser excluído, poi, possuí produtos associados a ele', mtInformation, [mbOK], 0); Abort;
end; Atenciosamente Eriley
02/08/2010
Daniel
begin
MessageDlg ('Este fornecedor não pode ser excluído, poi, possuí produtos associados a ele', mtInformation, [mbOK], 0); Abort;
end; Atenciosamente Eriley
02/08/2010
Daniel
begin
MessageDlg ('Este fornecedor não pode ser excluído, poi, possuí produtos associados a ele', mtInformation, [mbOK], 0); Abort;
end; Atenciosamente Eriley
03/08/2010
Eriley Barbosa
begin
MessageDlg ('Este fornecedor não pode ser excluído, poi, possuí produtos associados a ele', mtInformation, [mbOK], 0); Abort;
end; Se não funcionar, poste o seu código do evento onclik do botão excluir fornecedor e a estrutura da tabela fornecedores e produtos. Atenciosamente Eriley
03/08/2010
Daniel
begin
MessageDlg ('Este fornecedor não pode ser excluído, poi, possuí produtos associados a ele', mtInformation, [mbOK], 0); Abort;
end; Se não funcionar, poste o seu código do evento onclik do botão excluir fornecedor e a estrutura da tabela fornecedores e produtos. Atenciosamente Eriley
procedure TForm_Exclusao_Fornecedor.BotaoExcluirClick(Sender: TObject);
begin
if not DataModule_dados.Tblfornecedor.isEmpty
then
begin
if messageDlg ('Confirma exclusão do registro?', mtConfirmation, mbOkCancel,0) = mrOk
then DataModule_dados.TblFornecedor.Delete;//Confirmação da exclusão do registro
EditPesquisa.Clear;//Apagar dados da edit de pesquisa
EditPesquisa.SetFocus;//Selecionar edit de pesquisa
end
else
ShowMessage('Não existem mais dados a serem excluídos!');
end;CODIGOPRODUTO - LONG - NOT NULL FORNECEDOR - VARCHAR - NOT NULL PRODUTO - VARCHAR - NOT NULL UNIDADE - CHAR VALORUNITARIO - FLOAT OBSERVACAO - VARCHAR
03/08/2010
Eriley Barbosa
begin
MessageDlg ('Este fornecedor não pode ser excluído, poi, possuí produtos associados a ele', mtInformation, [mbOK], 0); Abort;
end; procedure TForm_Exclusao_Fornecedor.BotaoExcluirClick(Sender: TObject);
begin
if not DataModule_dados.Tblfornecedor.isEmpty then
begin
if messageDlg ('Confirma exclusão do registro?', mtConfirmation, mbOkCancel,0) = mrOk then begin if not DataModule_dados.TblProdutos.Active then DataModule_dados.TblProdutos.Open; if DataModule_dados.TblProdutos.Locate('FORNECEDOR', DataModule_dados.TblFornecedores.FieldByName('CODIGOFORNECEDOR'). AsString, []) then
begin
MessageDlg ('Este fornecedor não pode ser excluído, pois, possuí produtos associados a ele', mtInformation, [mbOK], 0); Abort; end else begin DataModule_dados.TblFornecedor.Delete;//Confirmação da exclusão do registro
EditPesquisa.Clear;//Apagar dados da edit de pesquisa
EditPesquisa.SetFocus;//Selecionar edit de pesquisa
end;
end else
ShowMessage('Não existem mais dados a serem excluídos!');
end; Para fazer a verificação com query, preciso saber se está utilizando dbexpress, IBX,Bde ou outro tipo de componente. Mas tente com este código. Atenciosamente Eriley
03/08/2010
Eriley Barbosa
begin
if not DataModule_dados.Tblfornecedor.isEmpty then
begin
if messageDlg ('Confirma exclusão do registro?', mtConfirmation, mbOkCancel,0) = mrOk then
begin
if not DataModule_dados.TblProdutos.Active then
DataModule_dados.TblProdutos.Open;
if DataModule_dados.TblProdutos.Locate('FORNECEDOR', DataModule_dados.TblFornecedores.FieldByName('CODIGOFORNECEDOR'). AsString, []) then
begin
MessageDlg ('Este fornecedor não pode ser excluído, pois, possuí produtos associados a ele', mtInformation, [mbOK], 0);
Abort;
end
else
begin
DataModule_dados.TblFornecedor.Delete;//Confirmação da exclusão do registro
EditPesquisa.Clear;//Apagar dados da edit de pesquisa
EditPesquisa.SetFocus;//Selecionar edit de pesquisa
end;
end;
end
else
ShowMessage('Não existem mais dados a serem excluídos!');
end;
Clique aqui para fazer login e interagir na Comunidade :)
