Amigo. Se você estiver utilizando um SGDB, sugiro q crie chave
strangeira (foreign key) nas tabelas.
Tiago
--- Em delphi-br@yahoogrupos.com.br, "Paulo Cesar Rohleder"
<[EMAIL PROTECTED]> escreveu
> Por favor no exemplo abaixo verifico se o pacIente tem algum
registro numa tabela..se o paciente tiver realizado algum exame de
urina(tabala de urina) este não não poderá ser
exluido...PERGUNTO..COMO FAÇO PARA FAZER ISSO EM DUAS OU MAIS
TABELAS AO MESMO TEMPO..???
>
> if ( DM.dbPacientesCodPaciente.Value < 1)
> then
> ShowMessage ('Não há pacientes cadastrados !!!')
> else
> with DM.dbUrina do
> begin
> IF NOT LOCATE('PACIENTE',DBEpaciente.TEXT,[]) THEN
> BEGIN
> panel3.Visible:=false;
> panel2.Visible:=true;
> if Application.MessageBox('Deseja excluir este
Paciente ? ','Cadastro de Pacientes',MB_YESNO+MB_ICONQUESTION)
=ID_YES then
> DM.dbPacientes.Delete;
> panel3.Visible:=true;
> panel2.Visible:=false;
> DM.dbPacientes.IndexName:='INome';
> END
> ELSE
> SHOWMESSAGE('Este paciente não
pode ser excluído, pois já tem exames
lançados!!');
> END;
>
>
>
> ---
> avast! Antivirus: Outbound message clean.
> Virus Database (VPS): 0524-4, 16/06/2005
> Tested on: 17/6/2005 09:06:46
> avast! - copyright (c) 1988-2005 ALWIL Software.
> http://www.avast.com
>
>
>
>
> [As partes desta mensagem que não continham texto foram removidas]
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
