[delphi-br] Ajuda abrir formulario com duplo click no DbGrib.

2009-12-19 Por tôpico dssmoura
  Bom dia senhores.


  Tenho um formulario(localizar pacientes) de busca onde e chamado dentro de um 
outro formulario (pacientes)(estou usando bd access, adodataset para conexão no 
banco), no formulario de busca coloquei um edit, um sppedbutton e um dbgrid, 
coloquei no código do botão :

procedure TFrmLocPaciente.Button1Click(Sender: TObject);
begin
   Qlocpaciente.Close;
   QlocPaciente.Parameters.ParamValues['pac']:=edtconsulta.Text + '%';
   QlocPaciente.Open;  
end;

no evento onDbClick do dbgrid:

procedure TFrmLocPaciente.DBGrid1DblClick(Sender: TObject);
begin
dados.AdPacientes.Locate('Codigo','AdLocPaciente.fildbyname(codigo).asstring',[lopartialkey]);
end;
 
quando da o duplo click esta dando o seguinte erro:

Project Sistema.exe raised exception class EoleException with message 'Os 
argumentos são incorretos, estão fora do intervalo aceitável ou estão em 
conflitos'.Process stopped. Use Step or run to continue.

Ai eu pergunto o que estou fazendo de errado, ou e outro codigo que tenho que 
usar?

Desde já Agredeço a atenção de voces, obrigado e até mais



Re: [delphi-br] Hint em StatusBar

2009-12-19 Por tôpico Dirlei Dionísio
*O que eu preciso é fazer com que os hints de cada formulário apareça
somente no próprio formulário*

Você pode usar o evento OnActivate de cada formulário para configurar o
evento OnHint do objeto Application.

Dirlei.

2009/12/18 Marcelo Luiz Onhate marc...@systempro.com.br



 Application.ShowHint*:= False;*

 Isso?

  



[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:
delphi-br-ow...@yahoogrupos.com.br
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:
delphi-br-unsubscr...@yahoogrupos.com.br

* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html




Re: [delphi-br] Paradox em rede ajuda s.o.s

2009-12-19 Por tôpico EmbarcaDelphi
Muita gente esqueceu como trabalhar com o Paradox. Eu não entendo muito 
bem mas tenho muitas dicas na minha estufa sobre o assunto e vou passar 
agora:

Melhorias no Desempenho:
Entre no BDE Administrator, clique na aba Configuration, expanda a 
árvore para SystemINIT e mude os valores dos seguintes campos 
(principalmente se estiver usando em rede):

MAXBUFSIZE = 16384 (valor em Kb)
MAXFILEHANDLES = 100
SHAREDMEMSIZE = 4096 (valor em mb)

-Configure o antivirus nas máquinas para não ficar varrendo os arquivos 
paradox (*.db;*.px; etc...);
-Não usar o protetor de tela no servidor para economizar a CPU...;
-Não usar ferramentas de velocidade de downloads de arquivo no servidor;
-Não usar caminhos como \\maquina\drive\. em paradox na rede o melhor é 
usar caminhos compartilhados;
- Na sua aplicação, aponte a variável Session.PrivateDir para um 
diretório local (não use diretórios de rede). Certifique-se de que todas 
as máquinas estão apontando o NetDir para o mesmo local. Alguns 
configuram esta propriedade no BDE, outros o fazem por dentro da 
aplicação (usando Session.NetDir). Pela aplicação é a forma mais correta;

Uma grande solução:
[url]http://forum.devmedia.com.br/viewtopic.php?p=108843sid=719192c1a793991207a609066d25096c[/url]

Espero ter te ajudado


 - Original Message -
 From: alessandra porto
 To: lista-del...@yahoogrupos.com.br 
 mailto:lista-delphi%40yahoogrupos.com.br ; 
 delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br
 Sent: Friday, December 18, 2009 9:19 AM
 Subject: [delphi-br] Paradox em rede ajuda s.o.s

 Em um cliente meu tem uma aplicação que usa
 paradox e não posso mudar ela ainda para
 firebird

 então precisei criar uma aplicação
 que grava no firebird e no paradox
 desta antiga

 o local tem 3 maquinas

 o servidor:
 contem o banco paradox

 alias = Estoque
 PATH = C:\BOMBA\DADOS
 NET DIR = C:\BOMBA\DADOS
 LOACAL SHARE = FALSE

 estação A
 acessa o paradox pelo mapeamento disco Z:

 PATH = Z:\DADOS
 NET DIR = Z:\DADOS
 LOACAL SHARE = TRUE

 Estação B
 acessa o paradox pelo mapeamento disco Z:
 contem o firebird eminha aplicação
 que tambem usa o mapeamento disco Z: para
 gravar no paradox

 PATH = Z:\DADOS
 NET DIR = Z:\DADOS
 LOACAL SHARE = TRUE

 Olhei em varios artigos na web sobre compartilhamento
 do BDE e continuo com os erros que creio seja por causa
 do tal LOCAL SHARE que no servidor só funciona no caso
 se for LOCAL SHARE = False

 nas estações aceita LOCAL SHARE = True

 Mas o servidor nada , só false

 Como Posso configurar essa coisa para parar de corromper
 os tais indices

 agradeço sua ajuda amigo

 já não aguento mais essa bomba




[As partes desta mensagem que não continham texto foram removidas]



Re: [delphi-br] Paradox em rede ajuda s.o.s

2009-12-19 Por tôpico EMGF Doc
Alessandra e Samuca

Sinto discordar do Samuca.  Utilizei durante anos em um cliente, um sistema 
utilizando Paradox, em rede, com 6 máquinas acessando e ainda mais, 
contrariando tambem o que um outro colega disse, utilizando o servidor 
tambem como máquina de digitação.

Sem problemas!  Mas o que notei que dava problemas e eu NÂO fazia NUNCA:

criar e/ou destruir qualquer forma de indices no runtime;

NÃO PERMITIR exclusões de registros.  Marcava como inativos e só eram 
excluídos por ocasião da manutenção;

ou seja. cada tabela tinha seu índice primário e o número mínimo de índices 
secundários necessários criados em tempo de desenvolvimento e sempre 
mantidos e mais, tinha uma rotina de manutenção que rodava uma vez por 
semana, copiando as tabelas co grande movimento de inclusão  e de inativação 
em um loop while not tab..eof do  ... next de tabelas provisósias para 
tabelas vazias de forma a ter uma tabela sequencialmente arrumada pelo 
indice principal e da qual eram eliminados os registros inativos..

Era uma cadeia de lojas com 8 lojas e 25,000 produtos.

Sem problemas

Edison

- Original Message - 
From: Samuca ( Yahoo ) samuca_1...@yahoo.com.br
To: delphi-br@yahoogrupos.com.br; lista-del...@yahoogrupos.com.br
Sent: Friday, December 18, 2009 4:53 PM
Subject: Re: [delphi-br] Paradox em rede ajuda s.o.s


Alessandra,

Boa Tarde,

Não quero te desanimar, mas o Paradox rodando em rede com duas ou mais 
máquinas acessando é muito ruim... os índices são facilmente corrompidos,

Na minha modesta opinião o Paradox é bom pra uso em uma única máquina 
com um único sistema.

Abraços

Samuca

  - Original Message - 
  From: alessandra porto
  To: lista-del...@yahoogrupos.com.br ; delphi-br@yahoogrupos.com.br
  Sent: Friday, December 18, 2009 9:19 AM
  Subject: [delphi-br] Paradox em rede ajuda s.o.s



  Em um cliente meu tem uma aplicação que usa
  paradox e não posso mudar ela ainda para
  firebird

  então precisei criar uma aplicação
  que grava no firebird  e no paradox
  desta antiga

  o local tem 3 maquinas

  o servidor:
  contem o banco paradox

  alias = Estoque
  PATH = C:\BOMBA\DADOS
  NET DIR = C:\BOMBA\DADOS
  LOACAL SHARE = FALSE

  estação A
  acessa o paradox pelo mapeamento disco Z:

  PATH = Z:\DADOS
  NET DIR = Z:\DADOS
  LOACAL SHARE = TRUE

  Estação B
  acessa o paradox pelo mapeamento disco Z:
  contem o firebird eminha aplicação
  que tambem usa o  mapeamento disco Z: para
  gravar no paradox

  PATH = Z:\DADOS
  NET DIR = Z:\DADOS
  LOACAL SHARE = TRUE

  Olhei em varios artigos na web sobre compartilhamento
  do BDE e continuo com os erros que creio seja por causa
  do tal LOCAL SHARE que no servidor só funciona no caso
  se for LOCAL SHARE = False

  nas estações aceita LOCAL SHARE = True

  Mas o servidor nada , só false

  Como Posso configurar essa coisa para parar de corromper
  os tais indices

  agradeço sua ajuda  amigo

  já não aguento  mais  essa  bomba

  __
  Veja quais são os assuntos do momento no Yahoo! +Buscados
  http://br.maisbuscados.yahoo.com

  [As partes desta mensagem que não continham texto foram removidas]





[As partes desta mensagem que não continham texto foram removidas]





-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM