Fórum Sumiram os registros #230307

Pessoal, tenho uma tabela ITENSPEDIDO onde não defini uma chave primária, só somo 1 no campo CODITEM via código mesmo, fiz isso para ficar desse jeito (Pedido 50, Itens 1,2,3...Pedido 51, Itens 1,2,3,4,5) e assim por diante, pois bem, fiz uma procedure para exclusão de pedidos junto com seus itens e na hora que rodei a aplicação e testei minha procedure o pedido e os itens foram deletados só que após um tempinho entrei de novo para verificar novamente a procedure, e não constava mais nenhum registro na minha tabela ITENSPEDIDO!!!, ainda bem que estáva só nos testes!!...agora eu pergunto... será que foi a minha procedure de exclusão de registros que fez sumir todos os outros?..

segue abaixo a procedure:

dm.qryEditPed.Open;
dm.qryItensPed.Open;
if MessageBox( Handle,
´Confirma a opção?´,
´Confirmação ´, MB_YESNO +
MB_ICONQUESTION + MB_DEFBUTTON2 )=IDYES then
begin
dm.qryItensPed.DataSource := dm.dsPesqItens;
dm.qryItensPed.Delete;
dm.qryEditPed.DataSource := dm.dsPesqPed;
dm.qryEditPed.Delete;
ShowMessage (´Pedido nº ´ +
IntToStr (dm.qryPesqPedCODPED.Value) +
´ excluído com êxito!´);
dm.qryItensPed.DataSource := dm.dsAltItPed;
dm.qryEditPed.DataSource := dm.dsAltCadPed;
dm.qryPesqPed.Requery();
dm.qryPesqItens.Requery();
end
else
Exit;