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
