[delphi-br] Re: Por favor Duvida com with..
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 no no poder ser
exluido...PERGUNTO..COMO FAO PARA FAZER ISSO EM DUAS OU MAIS
TABELAS AO MESMO TEMPO..???
if ( DM.dbPacientesCodPaciente.Value 1)
then
ShowMessage ('No 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 no
pode ser excludo, pois j tem exames
lanados!!');
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 no 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
Re: [delphi-br] Re: Por favor Duvida com with..
Uso paradox...
- Original Message -
From: tiago_econtabil
To: delphi-br@yahoogrupos.com.br
Sent: Friday, June 17, 2005 9:25 AM
Subject: [delphi-br] Re: Por favor Duvida com with..
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 no no poder ser
exluido...PERGUNTO..COMO FAO PARA FAZER ISSO EM DUAS OU MAIS
TABELAS AO MESMO TEMPO..???
if ( DM.dbPacientesCodPaciente.Value 1)
then
ShowMessage ('No 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 no
pode ser excludo, pois j tem exames
lanados!!');
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 no 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
a.. Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
b.. Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
c.. O uso que voc faz do Yahoo! Grupos est sujeito aos Termos do Servio
do Yahoo!.
avast! Antivirus: Inbound message clean.
Virus Database (VPS): 0524-4, 16/06/2005
Tested on: 17/6/2005 09:46:51
avast! - copyright (c) 1988-2005 ALWIL Software.
---
avast! Antivirus: Outbound message clean.
Virus Database (VPS): 0524-4, 16/06/2005
Tested on: 17/6/2005 09:56:04
avast! - copyright (c) 1988-2005 ALWIL Software.
http://www.avast.com
[As partes desta mensagem que no 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
Re: [delphi-br] Re: Por favor Duvida com with..
Imaginei.
Qual o windows q vc utiliza para desenvolver ???
Acho q foi vc q me disse q uma das estaes clientes mudou para win2000 ???
As demais estaes so 98
Eduardo
- Original Message -
From: Paulo Cesar Rohleder
To: delphi-br@yahoogrupos.com.br
Sent: Friday, June 17, 2005 9:56 AM
Subject: Re: [delphi-br] Re: Por favor Duvida com with..
Uso paradox...
- Original Message -
From: tiago_econtabil
To: delphi-br@yahoogrupos.com.br
Sent: Friday, June 17, 2005 9:25 AM
Subject: [delphi-br] Re: Por favor Duvida com with..
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 no no poder ser
exluido...PERGUNTO..COMO FAO PARA FAZER ISSO EM DUAS OU MAIS
TABELAS AO MESMO TEMPO..???
if ( DM.dbPacientesCodPaciente.Value 1)
then
ShowMessage ('No 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 no
pode ser excludo, pois j tem exames
lanados!!');
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 no 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
a.. Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
b.. Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
c.. O uso que voc faz do Yahoo! Grupos est sujeito aos Termos do
Servio do Yahoo!.
avast! Antivirus: Inbound message clean.
Virus Database (VPS): 0524-4, 16/06/2005
Tested on: 17/6/2005 09:46:51
avast! - copyright (c) 1988-2005 ALWIL Software.
---
avast! Antivirus: Outbound message clean.
Virus Database (VPS): 0524-4, 16/06/2005
Tested on: 17/6/2005 09:56:04
avast! - copyright (c) 1988-2005 ALWIL Software.
http://www.avast.com
[As partes desta mensagem que no 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
a.. Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
b.. Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
c.. O uso que voc faz do Yahoo! Grupos est sujeito aos Termos do Servio
do Yahoo!.
[As partes desta mensagem que no 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
Re: [delphi-br] Re: Por favor Duvida com with..
desconsidere nao era para vc
Eduardo
- Original Message -
From: Eduardo
To: delphi-br@yahoogrupos.com.br
Sent: Friday, June 17, 2005 10:12 AM
Subject: Re: [delphi-br] Re: Por favor Duvida com with..
Imaginei.
Qual o windows q vc utiliza para desenvolver ???
Acho q foi vc q me disse q uma das estaes clientes mudou para win2000 ???
As demais estaes so 98
Eduardo
- Original Message -
From: Paulo Cesar Rohleder
To: delphi-br@yahoogrupos.com.br
Sent: Friday, June 17, 2005 9:56 AM
Subject: Re: [delphi-br] Re: Por favor Duvida com with..
Uso paradox...
- Original Message -
From: tiago_econtabil
To: delphi-br@yahoogrupos.com.br
Sent: Friday, June 17, 2005 9:25 AM
Subject: [delphi-br] Re: Por favor Duvida com with..
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 no no poder ser
exluido...PERGUNTO..COMO FAO PARA FAZER ISSO EM DUAS OU MAIS
TABELAS AO MESMO TEMPO..???
if ( DM.dbPacientesCodPaciente.Value 1)
then
ShowMessage ('No 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 no
pode ser excludo, pois j tem exames
lanados!!');
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 no 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
a.. Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
b.. Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
c.. O uso que voc faz do Yahoo! Grupos est sujeito aos Termos do
Servio do Yahoo!.
avast! Antivirus: Inbound message clean.
Virus Database (VPS): 0524-4, 16/06/2005
Tested on: 17/6/2005 09:46:51
avast! - copyright (c) 1988-2005 ALWIL Software.
---
avast! Antivirus: Outbound message clean.
Virus Database (VPS): 0524-4, 16/06/2005
Tested on: 17/6/2005 09:56:04
avast! - copyright (c) 1988-2005 ALWIL Software.
http://www.avast.com
[As partes desta mensagem que no 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
a.. Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
b.. Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
c.. O uso que voc faz do Yahoo! Grupos est sujeito aos Termos do
Servio do Yahoo!.
[As partes desta mensagem que no 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
