K!ko

Ele quis dizer que vai uma condição para que se repita o código um pouco acima... não pra você colocar a linha "until <condição>;" em seu código. abraço. :D

Olá Gafanhoto! Dexa ver se eu entendi... você ta afim de mostrar num campo o registro selecionado num grid certo? Com certeza este grid está linkado em algum componente que se refira a uma tabela, ou seja, uma ADOQuery, por exemplo. O que você pode fazer o seguinte: Usar um DBEdit (TDBEdit) linkado no mesmo componente que esta sendo usado no grid para trazer os registros. A partir daí basta atribuir o campo, do qual você quer mostrar os registros, ao DBEdit. Com isto, ao "andar" no grid, consequentemente serão mostrados os registros no DBEdit. por exexmplo... você possui um componente que se refere a tabela Clientes, uma ADOQuery, por exexmplo, o grid esta linkado a este componente e exibe os campos Nome, Codigo e Fone. Para mostrar o Campo Nome, por exemplo, no DBEdit, basta linka-lo ao mesmo componente que o grid está linkado e atribuir o campo nome a ele. Ao "Andar" no grid, os registros referentes ao campo nome aparecerão no DBEdit. Espero ter ajudado. Abraço :D

Era disso que eu tava falando... é a maneira mais facil e prática de se fazer... e muito mais gerenciável se houver um servidor para controlar acessos e permissões de grupos e usuários via active directori + GPO's Mas seria interessante, também, se houvesse a possibilidade de trabalhar uma maneira para fazer isso através de uma aplicação desenvovida no delphi. abrass :D

Se surgir mais alguma dúvida é só postar, a galera aqui do fórum é responsa. abraço :D

Irei postar um exemplo simples simples: Neste exemplo usarei uma query e o rdprint. Suponha que você queira imprimir os campos de uma tabela que esta ligada a query e possui os campos Código, Nome e Telefone; você iria fazer da seguinte forma. rdprint1.Abrir; //para abrir o componente rdprint1.TamanhoQteLinhas := 2; //define a quantidade de linhas rdprint1.TamanhoQteColunas := 60; //define a quantidade de colunas rdprint1.TamanhoQteLPP := oito; //define o tamanho da fonte DsetRC.first; //Jogar no primeiro registro da query usada. while not(DsetRC.eof) do begin with rdprint1 do begin imp(04,01, DsetRC.fieldbyname('Codigo').asstring); imp(04,10, DsetRC.fieldbyname('Nome').asstring); imp(04,30, DsetRC.fieldbyname('Telefone').asstring); novapagina; end; DsetRc.Next; end; rdprint1.setup; //abre o setup do componente para você escolher a impressora e outros parametros. rdprint1.Fechar; //Inicia a impressão. neste exemplo será impresso todos os registros da query DsetRc, linha a linha. se você quiser, junto ao componente existe um form que contem exexmplos de como você pode utilizar o RDprint. Vale a pena dar uma olhada pra aprender melhor. Este exemplo é uma coisa muuuuuiiito simples do que você pode fazer com este componente. abraço :D

Bom... você deve estar usando algum componente para trazer as imformações do seu banco para este form, certo? Como uma Query da aba interbase, por exemplo, e você quer imprimir estas informções, certo? Existe várias formas de se fazer isso. Eu , por exemplo, uso um componente chamado RDPrint para realizar esse tipo de impressão, porém ele é pago. Outra forma de se fazer isso é escrevendo linha a linha diretemente no código e enviando para a impressora. Utilizando para isso um arquivo .txt com o caminho da impressora que será atribuido e utilizado em váriaveis do tipo textfile e string, posteriormente esse conteúdo será escrito com o comando Writeln. Desse jeito dá um certo trabalho. Agora vai de você estabelecer a forma que quer fazer essa rotina. abraço :D

Ola stharley Você poderia especificar melhor que objeto é este? poderia tb especificar que componentes você irá usar além desse para efetuar essa rotina? abraço :D

como eu disse é uma forma bem simples de fazer a pesquisa. Na verdade da forma que uso é um tanto que diferente, pois utilizo mais recursos e mais opções de filtro. Como não sei que componentes nosso amigo ranilson está usando para fazer a pesquisa, dei este exemplo simplificado. Da forma que uso o código ficaria muito mais estenço. Mas se existe essa possibilidade de deteriorização, é bom revermos isto. Obrigado pela dica Denys. Retiro oque disse acima. Após ler os artigos que Jhonas postou... Digo que não, o interbase não possui full text. abraço :D

Ixi cara... :( eu ia testar... mas já que não funfou... O jeito é esperar alguma alma caridosa nos dar a solução.

Ola ranilson! Isso não é dificil de fazer não... é uma pesquisa até que simples. Vai depender da estrutura do form que você vai usar pra fazer a pesquisa. se for usar apenas um campo (Tedit) para colocar a palavra chave ficaria assim: um exemplo bem simples: eu uso os componentes da aba inerbase. você precisa adequar o código ao componente que você usa. procedure TFrmpccl.Edit1KeyPress(Sender: TObject; var Key: Char); begin if Key = Chr(13) then begin qrReceita.DisableControls; qrReceita.close; qrReceita.sql.clear; qrReceita.sql.add('Select * from receita where titulo like '+''''+'%'+Edit1.text+'%'+''' '); qrReceita.open; qrReceita.EnableControls; end; esse código eu uso no onKeyPress do edit1, por exemplo, quando se aperta o ENTER; neste caso trará tudo que tenha 'abacaxi', por exemplo, no meio do titulo, caso você queira que traga os que comecem com oque você irá digitar no edit, troque a linha que tem qrReceita.sql.add por isso: qrReceita.sql.add('Select * from receita where titulo like '+''''+Edit1.text+'%'+''' '); titulo = o nome do campo referente ao titulo da receita na tabela de receitas. qrReceita = o componente que você deve estar usando para trazer os dados do grid. espero ter ajudado. abraço :D

Esta rotina possui uma funcionalidade bastante interessante... eu irei atribuí-la a um projeto teste para, quem sabe, usar futuramente. Eu é que agradeço. Conhecimento lvl up! :D abraço :D

Ola. pelo jeito você esta querendo utilizar seu banco junto ao delphi fazendo a conexão por meio de algum componente... bom, como nosso amigo Micheus já me disse uma vez, um bom componente para este tipo de coisa é o Zeos, ele é bastante versátil e tem suporte para vários bancos... Seria interesante dar uma estudada neste componente... talves ele possua oque você precisa. zeoslib http://sourceforge.net/search/?type_of_sea...p;words=zeoslib Abraço :D

Isso pode estar ocorrendo por causa do jeito que você colocou a mascara... eu não sei bem ao certo qual a diferença, mais tenta colocar assim 9999-999;1;0. aqui eu testei e deu certo. abraço :D

Bom, ai a coisa é mais em baixo... mas se você consegue sumir com todas de uma vez, possivelmente existe um modo de especificar qual pasta você quer fechar... no entanto isso vai além do meu conhecimento... mas concerteza Micheus, Jhonas ou qualquer outro no forum podem te ajudar. abraço. :D

Depende do sistema operacional que você usa. Se existe um servidor... de preferencia windows2000 server ou posterior... você pode atribuir politicas de acesso através do active directory para determinado usuário ou grupo de usuário. Se for um desktop ou terminal, como o XP por exemplo, você pode atribuir as permissões dos usuários direto na pasta de arquivos de programas. abraço :D

Nós é que ficamos gratos em ajudar... :D

Geralmente este erro ocorre quando você declara algo que não existe, aí ele esta dizendo que essa classe TVideo não existe ou está declarada de forma errada. Em qual linha exatamente o erro ocorre? Certifique-se se esta Classe realmente existe no delphi. abraço

Jhonas, eu saquei agora oque você quis dizer... esse lance de Break e Continue eu tinha pensado em usar... oque eu não consegui é fazer isso utilizando uma tecla para executar a rotina dentro do while. Micheuse Rento... do jeito que vocês disseram deu certo.... coloquei application.ProcessMessages no while e uma mensagem em um actionlist que é executada ao apertar a tecla "P", aconteceu exatamente o que eu queria... a mensagem é mostrada e o while é pausado... após dar o "OK" da mensagem o while continua... Vlws aew a todos... :D abraço Tópico resolvido

Por favor... Você poderia explicar melhor o que vecê quis dizer?

Olá pessoal! Bom... já faz um tempinho que não posto... mas vamos lá Seguinte... estou com uma duvidazinha com o uso de "While"... Eu gostaria de saber se enquanto o while é executado, existe a possibilidade de usar uma tecla no action list, por exemplo, para causar uma pausa na execução e, após a pausa, fazer com que o while continue com a mesma tecla ou outra qualquer... É possível realizar essa operação? Se for possível, como posso fazer? Agradecido desde já, =D

Tópico resolvido!

TÓPICO RESOLVIDO! encontrei um local onde um código simples funcionou... no OnBerforInsert do dataset relacionado a gravação dos produtos na venda... que se encontrava no datamodule... o código ficou assim... if dm.QrMs.RecordCount = 20 then begin MessageDlg('Quantidade de produtos por venda chegou ao limite'+#13+ 'É necessário efetuar nova venda para incluir novos produtos',mtwarning,[mbok],0); abort; end; Obrigado pela atenção :D abraço

Bom dia... No formulário de vendas os produtos são inseridos em um grid... eu queria saber como e onde eu poderia fazer um bloqueio pra que fosse permitido apenas 20 produtos por venda. eu já tentei varias coisas em varios lugares, no entanto não obtive sucesso. se alguém puder me ajudar... agradecido desde já, xD

Tópico resolvido!!!!!!! não consegui resolver o problema com o RLBoleto, no entanto atingi meu objetivo, que era gerar o boleto bancário, pra isto eu procurei e encontrei um outro componente... GBBoleto ou Delphi Boleto. ele funciona bem e possui propriedades pra vários bancos... no meu delphi 5 ele acusou alguns erros referentes a "{$IFEND}", bastou trocar por "{$ENDIF}" nos locais onde ocorria o erro. depois ele acusou um erro relacionado a uma variavel denominada "Mail" que recebia um valor referente a "TNMSMTP". Esta variável estava sendo usada numa "função" para mandar o boleto por e-mail, como não era pertinente pra mim, eu comentei as linhas relacionadas a esta variável... Com estes ajustes ele funciona normalmente. caso alguém se interesse ai vai o link para download: http://sourceforge.net/project/showfiles.p...lease_id=163006 abraço

Ola pessoal... Eu estava precisando de um componente para gerar boleto bancário... então procurei aqui no fórum algo a respeito... achei algo no seguinte tópico: http://scriptbrasil.com.br/forum/index.php...boleto+bancario porém... eu não consigo fazer a intalação do RLBoleto no delphi 5... alguém sabe como fazer? ele da erro no seguinte lugar quando vou compilar: if Formatar(Copy(Retorno.Strings[NumeroRegistro],147,8),8,false,'0') <> '0000000000' then begin if TryStrToDate(Copy(Retorno.Strings[NumeroRegistro],147,2) + '/' + Copy(Retorno.Strings[NumeroRegistro],149,2) + '/' + Copy(Retorno.Strings[NumeroRegistro],151,2), d) then DataVencimento := d else DataVencimento := 0; end ele alega que "TryStrToDate" não é reconhecido ou não existe. se alguém puder me ajudar ou souberem de algum outro componente, por favor me notifiquem. agradecido desde já.