<http://www.moked.com.br/> Tamara Clemente - Suporte Técnico
Moked do Brasil - Consultoria de Segurança Empresarial
Divisão MokInf de Informática
PABX: (55-11) 5071-2748
[EMAIL PROTECTED]
www.moked.com.br <http://www.moked.com.br/>
Grau de Sigilo: Confidencial Reservado Interno Amplo
Nível de Prioridade: Alto Médio Baixo
Destinatário/s: Lista de divulgação
-------------------------------------------------------------------------
Paulo,
Não sei se é bem isso que vc quer, mas em minhas aplicações quando a pesquisa
pode ser muito extensa, antes de começar o select eu exibo um form na tela com
a mensagem de agurde e um botão atraves de um codigo +/- assim:
if not Assigned(form) then
begin
Application.CreateForm(Tform, form);
with form do
begin
try
Application.CreateForm(Tform, fform);
label.Caption := 'Gerando Relatório...';
Show;
Application.ProcessMessages;
with sds do
begin
Close;
DataSource := dm.dsMestre;
CommandText := 'Select... ';
Open;
end;
except
end;
end;
end;
E no botão cancelar neste form q eu exibo:
try
if Assigned(formRelatorio) then
begin
formrelatorio.qrpRel.Cancel;
formrelatorio.Free;
formrelatorio := nil;
end;
Espero ter ajudado...
Tamara
"O emitente da mensagem é o responsável por seu conteúdo e divulgação, proibindo
sua reprodução sem a prévia autorização do mesmo".
Antes de imprimir pense em nosso compromisso com o Meio Ambiente e o
comprometimento com os Custo envolvidos!
________________________________
De: [email protected] [mailto:[EMAIL PROTECTED] Em nome de Paulo
Enviada em: quarta-feira, 11 de janeiro de 2006 16:01
Para: [email protected]
Assunto: [delphi-br] Como interromper consulta SELECT que esta' sendo executada
no SQL-Server
Solitico a paciencia de voces em ler a situacao que surgiu para
eu resolver:
a) Em meus sistemas, tenho diversas telas de consulta ou relatorios
onde o usuario informa alguns parametros (data inicial e final,
codigo inicial e final, etc.) e ao clicar em um botao eu
chamo uma Query que faz um comando
SELECT [campos]
FROM [tabela]
where [condicoes escolhidas pelo usuario]
b) Dependendo do que o usuario escolheu nos parametros,
os dados podem ser exibidos em poucos segundos,
ou demorar varios minutos
c) Problema/Pergunta:
Alguns usuarios solicitaram que eu coloque uma opcao
nessas consultas para que, ao perceberem que
se passou mais tempo do que eles desejam
aguardar, eles possam clicar em um botao
e "interromper" a consulta no meio. Por exemplo,
se o usuario selecionou um intervalo de datas
muito grande, e ja' faz mais de um minuto que
a consulta comecou e ainda nao terminou,
ele quer clicar em um botao 'cancelar consulta',
e entao meu programa teria de "avisar" o SQL-Server
que ele deve abortar o SELECT.
Isso e' possivel ?
Observacao: Nao uso stored procedures. Em todas
essas consultas, eu monto o SELECT e executo
com um Query.Open
Grato pela atencao de todos
Paulo
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Yahoo! Grupos, um serviço oferecido por:
PUBLICIDADE
<http://br.rd.yahoo.com/SIG=12f9f8gh1/M=387526.7663462.8676324.1588051/D=brclubs/S=2137111264:HM/Y=BR/EXP=1137009616/A=3221952/R=2/id=noscript/SIG=16ehti2go/*http://landingstrip.dell.com/landingstrip/ls.asp?CID=10076&LID=289961&DGC=BA&DGStor=DHS&DGSite=Yahoo&Conum=BR&DURL=http://www1.la.dell.com/content/products/category.aspx/desktops?c%3Dbr%26l%3Dpt%26s%3Ddhs>
________________________________
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] <mailto:[EMAIL PROTECTED]>
* O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço
do Yahoo! <http://br.yahoo.com/info/utos.html> .
[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]
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
