[delphi-br] Mais de uma condição com FormatDatetime!!!

2009-01-30 Por tôpico rafaelpinto19


 BOa noite pessoal,

Estou desenvolvendo um Registro de Pontos de Funcionários por
senha mesmo, até eu implementar um ponto por código de Barras, Mas
estou tento o Seguinte PROBLEMA:

  No Programa, o Funcionário chega, Coloca sua senha e registra
sua entrada...Mas tem até uma CERTA hora pra ele resgistrar sua
entrada, pois SE passar... Vem umja mensagem dizenzo q só o SUPERVISOR
poderá fazer o registro do Mesmo. Para fazer essa condição Eu usei o 
FormatDateTime desse Jeito:

  IF FormatDateTime('hh:nn:ss',NOW)  '09:15:00' then
   Begin
ShowMessage('Horário Excedido! Favor Pedir para o
Administrador Registrar sua Entrada!');
   End;

  Até aí Funciona Legal

  Agora quero que todo dia Após 18:00 da tarde, o Programa esteja
LIBERADO para resgistrar o Final de expediente de Cada um...

  Eu tento colocar desse jeito:

   IF FormatDateTime('hh:nn:ss',NOW)  '09:15:00' and
FormatDateTime('hh:nn:ss',Now)  '17:59:59' then

   ...Mas sempre lá embaixo me volta essa mensagemn:  Operator
not aplicable to this tipo ou outra mensagem...

  Resumindo... Não sei o que fazr para LIBERAR meu programa para
os Funcionários resgistrarem sua saída...Se alguém Puder me dar uma
AJUDA...ME dar uma Idéia...

  Aguardo Respostas

  



Re: [delphi-br] desenhar formas geométricas

2009-01-30 Por tôpico Sandro
Valeu Rubem

  - Original Message - 
  From: Rubem Nascimento da Rocha 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Thursday, January 29, 2009 2:39 PM
  Subject: RE: [delphi-br] desenhar formas geométricas




  Procure na internet (Google, AltaVista, etc.) por DrawObjects.
  Sds.

  
   To: delphi-br@yahoogrupos.com.br
   From: sandrona...@yahoo.com.br
   Date: Thu, 29 Jan 2009 10:26:10 -0300
   Subject: [delphi-br] desenhar formas geométricas
  
   Bom dia,
  
  
  
   Preciso desenhar formas geométricas com canvas em um scrollbox e poder 
declarar essas formas como objetos para atribuir evento ondblclick em runtime.
  
  
  
   Alguém pode me ajudar
  
  
  
   Obrigado.
  
  
  __
  Windows Live Messenger. O melhor em multitarefa.
  http://www.microsoft.com/windows/windowslive/messenger.aspx


   

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



Re: [delphi-br] Consultas em BD Access

2009-01-30 Por tôpico Coutinho - Yahoo
Rafig

O Kiril Antonov mantém um site onde ele tem os produtos free e os pagos. 
olha o link aí

http://www.kadao.dir.bg/

Sds

__
Emanuel Coutinho
Salvador-Ba-Brasil




Res: Res: [delphi-br] Listar procedures e functions de uma dll

2009-01-30 Por tôpico Silvio Clécio
Olá pessoal,

Lembrei, segue o link:

[http://wiki.lazarus.freepascal.org/Libview].

Deixei temporariamente uma cópia compilada aqui:
[http://geocities.yahoo.com.br/silvioprog/libview-0.2.zip]

Demo criado pelas Feras:
Felipe Monteiro de Carvalho
Roberto Padovani 

[]'s, Silvio Clécio
---
Linux User: #481900
Skype: silvioprog
ICQ: 432519902
E-mail, Y! Messenger: silviop...@yahoo.com.br
Gmail, GTalk: silviop...@gmail.com
Hotmail, MSN: silviop...@hotmail.com
BlogSpot: http://silvioclecio.blogspot.com/
BlogSite: http://silvioprog.blogspot.com/
°oO| Seja livre, use Linux! |Oo°




De: Silvio Clécio silviop...@yahoo.com.br
Para: delphi-br@yahoogrupos.com.br
Enviadas: Sexta-feira, 30 de Janeiro de 2009 0:10:19
Assunto: Res: [delphi-br] Listar procedures e functions de uma dll


Olá pessoal,

Brother, esse [http://www.dependen cywalker. com/] mostra algumas dependências 
da DLL e tb algumas funções, eu vi um projeto feito com Lazarus, cheguei até a 
testar e funcionava legal, não lembro o nome, vou procurar na wiki e mostro o 
link (se alguém já souber pode mandar ver :) ).
 _ _ __
[]'s, Silvio Clécio
---
Linux User: #481900
Skype: silvioprog
ICQ: 432519902
E-mail, Y! Messenger: silviop...@yahoo. com.br
Gmail, GTalk: silviop...@gmail. com
Hotmail, MSN: silviop...@hotmail. com
BlogSpot: http://silvioclecio .blogspot. com/
BlogSite: http://silvioprog. blogspot. com/
°oO| Seja livre, use Linux! |Oo°

 _ _ __
De: Alisson alss...@yahoo. com.br
Para: delphi...@yahoogrup os.com.br
Enviadas: Quarta-feira, 28 de Janeiro de 2009 18:01:03
Assunto: [delphi-br] Listar procedures e functions de uma dll

Existe alguma maneira de listar as procedures e functions de uma dll? 
Gostaria de listar também as variáveis de entrada e saída.


  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]



Re: [delphi-br] Mais de uma condição com FormatDatetime!!!

2009-01-30 Por tôpico Coutinho - Yahoo
Rafael

Eu entendi que vc permite que o funcionário saia do trabalho após as 18 
horas...
Não seria mais interessante vc permitir que ele registre sua saída a 
qualquer momento?
Para isso, ao registrar o ponto, o sistema deveria ler o último 
lançamento de registro daquela matrícula e automaticamente definir qual 
o tipo de lançamento que estaria sendo feito naquele momento.
O problema é que o funcionário pode ter esquecido de registrar no dia 
anterior a saída e ter a entrada bloqueada no dia seguinte, ou esquecer 
de bater a entrada, e querer registrar a saída.
Isso é trabalhoso para o usuário (funcionário) mas facilita no final na 
composição dos cálculos de horas.
Veja,
Situação 1.
Funcionário entrou, bateu ponto e saíu sem registrar saída
No dia seguinte, o sistema alerta que ele não pode dar entrada, pois não 
registrou saída do dia anterior e manda ele procurar o supervisor... Aí 
entra a rotina de acerto feita com senha especial. Problema resolvido e 
cálculo de horas trabalhadas perfeito no fim das contas sem pendências.

Situação 2
Funcionário esqueceu de bater ponto na entrada, ao sair o sistema 
verifica que ele não pode registrar saída sem entrada. Manda o dito cujo 
procurar o supervisor. Aí entra a rotina de acerto feita com senha 
especial. Problema resolvido e cálculo de horas trabalhadas perfeito no 
fim das contas sem pendências.

Situação 3
Funcionário bateu ponto na entrada hoje, saiu sem bater o ponto, 
pensadamente, não bateu ponto  de entrada no dia seguinte, e tentou 
bater o ponto na saída, O sistema verifica a quantidade de horas entre 
entrada e saída, ealerta para que chame o supervisor, sem permitir que 
registre o ponto... Aí entra a rotina de acerto feita com senha 
especial. Problema resolvido e cálculo de horas trabalhadas perfeito no 
fim das contas sem pendências.

Agora...
A comparação de horas, no meu ver, deve sempre ser feita no formato 
numérico, ou TDateTime... Não transforme em texto. Compare hora maior 
com hora menor para extrair diferença de tempo entre elas... 
transformando tudo em minutos... é mais negócio... Ou compare as duas 
para saber se uma é maior que a outra.
As datas são na realidade números que a parte inteira representam os 
dias, e a decimal a fração dos dias... assim, comparar números de mesmo 
formato, fica bem mais simples...

Espero ter ajudado!

Sds

__
Emanuel Coutinho
Salvador-Ba-Brasil




Re: [delphi-br] Mais de uma condição com FormatDa tetime!!!

2009-01-30 Por tôpico Guionardo Furlan
 IF FormatDateTime('hh:nn:ss',NOW)  '09:15:00' and
 FormatDateTime('hh:nn:ss',Now)  '17:59:59' then

Estão faltando os parênteses aí, pra isolar as comparações entre o AND.

Faça assim:

 IF (FormatDateTime('hh:nn:ss',NOW)  '09:15:00') and
  (FormatDateTime('hh:nn:ss',Now)  '17:59:59') then

2009/1/29 rafaelpinto19 rafaelpi...@cdsol.com.br:


 BOa noite pessoal,

 Estou desenvolvendo um Registro de Pontos de Funcionários por
 senha mesmo, até eu implementar um ponto por código de Barras, Mas
 estou tento o Seguinte PROBLEMA:

 No Programa, o Funcionário chega, Coloca sua senha e registra
 sua entrada...Mas tem até uma CERTA hora pra ele resgistrar sua
 entrada, pois SE passar... Vem umja mensagem dizenzo q só o SUPERVISOR
 poderá fazer o registro do Mesmo. Para fazer essa condição Eu usei o 
 FormatDateTime desse Jeito:

 IF FormatDateTime('hh:nn:ss',NOW)  '09:15:00' then
 Begin
 ShowMessage('Horário Excedido! Favor Pedir para o
 Administrador Registrar sua Entrada!');
 End;

 Até aí Funciona Legal

 Agora quero que todo dia Após 18:00 da tarde, o Programa esteja
 LIBERADO para resgistrar o Final de expediente de Cada um...

 Eu tento colocar desse jeito:

 IF FormatDateTime('hh:nn:ss',NOW)  '09:15:00' and
 FormatDateTime('hh:nn:ss',Now)  '17:59:59' then


-- 
Timeo hominem unius libri
Cogito ergo sum - Carpe diem

[]s
Guionardo Furlan
http://guionardo.blogspot.com


[delphi-br] Ref. Formato data

2009-01-30 Por tôpico Omar Marques
Save amigos, bom dia

Gostaria de saber se alguém dispoe de uma função que modifique o formato de 
data do windows. Sei que posso tratar a data com shortdateformat, mas gostaria 
de ter esta função e alterar mesmo.

Abraço a todos.

 
 
Omar M. Haddad
Analista de Sistemas


  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]



[delphi-br] Dica de Site de Componentes

2009-01-30 Por tôpico Ricardo César Cardoso
Bom dia pessoal!

Seguindo a dica do Rubem numa outra mensagem a outro colega para procurar por 
um componente nos oráculos do saber (a.k.a. Google, Altavista, etc.) me 
deparei com o site do Angus Johnson que possui vários componentes e utilitários 
free.

Gostaria de compartilhar o link com vocês. Para quem já conhece, fica o 
registro. Façam bom proveito!!!

[ http://angusj.com/delphi/ ]

Atenciosamente,
Ricardo Cardoso.
_
Vamos ajudar o Grupo e o Yahoo! Apague o conteúdo irrelevante!


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


Re: [delphi-br] Dica de Site de Componentes

2009-01-30 Por tôpico JB
Boa dica! vlw!

-- 


José Benedito
Software Developer
s...@jbsolucoes.net
www.jbsolucoes.net
+55 19 8116-7826


2009/1/30 Ricardo César Cardoso ricardo_engs...@yahoo.com.br:
 Bom dia pessoal!

 Seguindo a dica do Rubem numa outra mensagem a outro colega para procurar
 por um componente nos oráculos do saber (a.k.a. Google, Altavista, etc.)
 me deparei com o site do Angus Johnson que possui vários componentes e
 utilitários free.

 Gostaria de compartilhar o link com vocês. Para quem já conhece, fica o
 registro. Façam bom proveito!!!

 [ http://angusj.com/delphi/ ]

 Atenciosamente,
 Ricardo Cardoso.


Re: [delphi-br] Ref. Formato data

2009-01-30 Por tôpico Ricardo César Cardoso
Omar, não entendi direito, mas normalmente quando você atribui um novo valor 
para ShortDateFormat, você já está alterando o tratamento das datas. Basta 
fazer essa atribuição no evento de criação do formulário principal da sua 
aplicação.
 
Ex:
{ ... no evento OnCreate ... }
shortDateFormat := 'dd/mm/'; 
{ ... outras declarações ... }
 
Seria isso? Se não for, detalhe um pouco mais...
 
[]'s
Ricardo.
_
Vamos ajudar o Grupo e o Yahoo! Apague o conteúdo irrelevante!

--- Em sex, 30/1/09, Omar Marques webomarmat...@yahoo.com.br escreveu:

De: Omar Marques webomarmat...@yahoo.com.br
Assunto: [delphi-br] Ref. Formato data
Para: delphi-br@yahoogrupos.com.br
Data: Sexta-feira, 30 de Janeiro de 2009, 9:36






Save amigos, bom dia

Gostaria de saber se alguém dispoe de uma função que modifique o formato de 
data do windows. Sei que posso tratar a data com shortdateformat, mas gostaria 
de ter esta função e alterar mesmo.

Abraço a todos.

Omar M. Haddad
Analista de Sistemas

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

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

 














  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]



Re: [delphi-br] Ref. Formato data

2009-01-30 Por tôpico Ricardo César Cardoso
Complementando e corrigindo minha mensagem anterior, aquela dica só interfere 
no seu sistema. Caso queira expandir a alteração, adapte o exemplo listado na 
mensagem do link abaixo às suas necessidades:
 
[ http://www.mail-archive.com/delphi-br@yahoogrupos.com.br/msg52236.html ]
 
Atte,
Ricardo.

_
Vamos ajudar o Grupo e o Yahoo! Apague o conteúdo irrelevante!

--- Em sex, 30/1/09, Omar Marques webomarmat...@yahoo.com.br escreveu:

De: Omar Marques webomarmat...@yahoo.com.br
Assunto: [delphi-br] Ref. Formato data
Para: delphi-br@yahoogrupos.com.br
Data: Sexta-feira, 30 de Janeiro de 2009, 9:36

Save amigos, bom dia

Gostaria de saber se alguém dispoe de uma função que modifique o formato de 
data do windows. Sei que posso tratar a data com shortdateformat, mas gostaria 
de ter esta função e alterar mesmo.

Abraço a todos.

Omar M. Haddad
Analista de Sistemas


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


[delphi-br] Ajuda como recuperar TObject adicionado com AddObject do TStringList

2009-01-30 Por tôpico Thiago Filiano
Senhores,

Estou tentando recuperar a Porta das impressoras instaladas em minha máquina, e 
dando uma olhada na unit Printers, precisamente a função GetPrinters da classe 
TPrinter, e verifiquei que em um determinado momento no FPrinters (TStringList) 
essa função atribui alguns valores da seguinte forma:
FPrinters.AddObject(Format(SDeviceOnPort, [pPrinterName, Port]), 
TPrinterDevice.Create(nil, pPrinterName, Port));

Estou tentando recuperar esses valores, mas não estou obtendo sucesso.
A base para recuperar os valores que tenho é:

Printer.Printers.Objects[1], mas não sei como fazer o tratamento.

Agradeço toda e qualquer ajuda.


[]'s
Thiago Filiano


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



RE: [delphi-br] Ajuda como recuperar TObject adicionado com AddObject do TStringList

2009-01-30 Por tôpico Rubem Nascimento da Rocha

Ora, é simples! Se vc olhar _com atenção_ a linha de código que adiciona as 
impressoras no campo FPrinters, vai ver que ele insere instâncias do objeto 
TPrinterDevice. Sendo assim, é só fazer um typecast (conversão de tipo) para 
tratar o dado, assim:
 
TPrinterDevice(Printer.Printers.Objects[0])
 
Agora, precisa verificar se essa classe está definida na seção interface ou 
implementation da unit Printers. Se estiver definida na seção implementation, 
você vai ter que definir essa classe no seu código para poder fazer o typecast.
 
A dica pra pescar o peixe foi passada. Agora, pesque-o!
 
Boa sorte.
Sds.


 To: delphi-br@yahoogrupos.com.br
 From: thi...@americasoft.com.br
 Date: Fri, 30 Jan 2009 11:19:44 -0200
 Subject: [delphi-br] Ajuda como recuperar TObject adicionado com AddObject do 
 TStringList


 Senhores,



 Estou tentando recuperar a Porta das impressoras instaladas em minha máquina, 
 e dando uma olhada na unit Printers, precisamente a função GetPrinters da 
 classe TPrinter, e verifiquei que em um determinado momento no FPrinters 
 (TStringList) essa função atribui alguns valores da seguinte forma:

 FPrinters.AddObject(Format(SDeviceOnPort, [pPrinterName, Port]), 
 TPrinterDevice.Create(nil, pPrinterName, Port));



 Estou tentando recuperar esses valores, mas não estou obtendo sucesso.

 A base para recuperar os valores que tenho é:



 Printer.Printers.Objects[1], mas não sei como fazer o tratamento.



 Agradeço toda e qualquer ajuda.



 []'s

 Thiago Filiano
_
Windows Live Messenger. O melhor em multitarefa.
http://www.microsoft.com/windows/windowslive/messenger.aspx

[delphi-br] cores no delphi ajuda

2009-01-30 Por tôpico alessandra porto
   preciso de uma dica de como criar cores difrentes
para  meus forms
   gosto do tom de azul claro tipo clGradientActiveCaption
mas ela  muda conforme algumas configuraçoes


azul claro 

como obtenho essa cor ??

obs: sei que é por hexa   mais  qual corresponde a ela?


  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]



[delphi-br] Driver DbExpress para PostgreSQL

2009-01-30 Por tôpico Vinicius
Pessoal, a Devart, lançou recentemente(22/01) um driver DBExpress para o 
PostgreSQL. A versão ainda tem alguns problemas, mas o pessoal já pode 
ir testando... :-)

http://www.devart.com/dbx/


[delphi-br] Problemas com focus em aplicação delphi.

2009-01-30 Por tôpico Visão On-Line - Jones Kleber
Boa tarde a todos,

Estou criando um formulario dentro de uma unit, só que esse formulário 
não está ficando ativado, ou seja, ele aparece mas não com o focu nele, 
o usuário está sendo obrigado a clicar com o mouse para acessar os botões.

Alguém teria alguma dica para me ajudar nessa.

Obrigado.

Jones Kleber
(24) 2252-3017


[delphi-br] Dúvida com propriedade

2009-01-30 Por tôpico Vinicius
Alguém sabe se existe um método virtual, que é executado quando eu mudo 
qualquer propriedade ?
Eu quero preencher o caption do meu edit, quando eu setar o FieldName,e 
eu não posso usar o SetFieldName, pois não tenho o código do 
componente...estou fazendo herança e mudando algumas coisas...

Obrigado.


Res: [delphi-br] Mais de uma condição com For matDatetime!!!

2009-01-30 Por tôpico Rosberg Soares
Caro coleta, tive muitos problema na empresa onde estou trabalhando por causa 
de códigos assim.

IF FormatDateTime( 'hh:nn:ss' ,NOW)  '09:15:00' then
Begin
ShowMessage( 'Horário Excedido! Favor Pedir para o
Administrador Registrar sua Entrada!');
End;
 
Você está comparando horas como string isso é um erro.
Mude para:
 
IF Time  StrToTime('09:15:00') then
Begin
 ShowMessage( 'Horário Excedido! Favor Pedir para o Administrador Registrar sua 
Entrada!');
End;




De: rafaelpinto19 rafaelpi...@cdsol.com.br
Para: delphi-br@yahoogrupos.com.br
Enviadas: Quinta-feira, 29 de Janeiro de 2009 20:36:02
Assunto: [delphi-br] Mais de uma condição com FormatDatetime!!!




BOa noite pessoal,

Estou desenvolvendo um Registro de Pontos de Funcionários por
senha mesmo, até eu implementar um ponto por código de Barras, Mas
estou tento o Seguinte PROBLEMA:

No Programa, o Funcionário chega, Coloca sua senha e registra
sua entrada...Mas tem até uma CERTA hora pra ele resgistrar sua
entrada, pois SE passar... Vem umja mensagem dizenzo q só o SUPERVISOR
poderá fazer o registro do Mesmo. Para fazer essa condição Eu usei o 
FormatDateTime desse Jeito:

IF FormatDateTime( 'hh:nn:ss' ,NOW)  '09:15:00' then
Begin
ShowMessage( 'Horário Excedido! Favor Pedir para o
Administrador Registrar sua Entrada!');
End;

Até aí Funciona Legal

Agora quero que todo dia Após 18:00 da tarde, o Programa esteja
LIBERADO para resgistrar o Final de expediente de Cada um...

Eu tento colocar desse jeito:

IF FormatDateTime( 'hh:nn:ss' ,NOW)  '09:15:00' and
FormatDateTime( 'hh:nn:ss' ,Now)  '17:59:59' then

...Mas sempre lá embaixo me volta essa mensagemn:  Operator
not aplicable to this tipo ou outra mensagem...

Resumindo... Não sei o que fazr para LIBERAR meu programa para
os Funcionários resgistrarem sua saída...Se alguém Puder me dar uma
AJUDA...ME dar uma Idéia...

Aguardo Respostas!!! !

 


  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]



Res: [delphi-br] Mais de uma condição com For matDatetime!!!

2009-01-30 Por tôpico Rosberg Soares
Tente o seginte.

IF Time  strtotime('09:15:00') and
 Time  strtotime('17:59:59') then





De: rafaelpinto19 rafaelpi...@cdsol.com.br
Para: delphi-br@yahoogrupos.com.br
Enviadas: Quinta-feira, 29 de Janeiro de 2009 20:36:02
Assunto: [delphi-br] Mais de uma condição com FormatDatetime!!!




BOa noite pessoal,

Estou desenvolvendo um Registro de Pontos de Funcionários por
senha mesmo, até eu implementar um ponto por código de Barras, Mas
estou tento o Seguinte PROBLEMA:

No Programa, o Funcionário chega, Coloca sua senha e registra
sua entrada...Mas tem até uma CERTA hora pra ele resgistrar sua
entrada, pois SE passar... Vem umja mensagem dizenzo q só o SUPERVISOR
poderá fazer o registro do Mesmo. Para fazer essa condição Eu usei o 
FormatDateTime desse Jeito:

IF FormatDateTime( 'hh:nn:ss' ,NOW)  '09:15:00' then
Begin
ShowMessage( 'Horário Excedido! Favor Pedir para o
Administrador Registrar sua Entrada!');
End;

Até aí Funciona Legal

Agora quero que todo dia Após 18:00 da tarde, o Programa esteja
LIBERADO para resgistrar o Final de expediente de Cada um...

Eu tento colocar desse jeito:

IF FormatDateTime( 'hh:nn:ss' ,NOW)  '09:15:00' and
FormatDateTime( 'hh:nn:ss' ,Now)  '17:59:59' then

...Mas sempre lá embaixo me volta essa mensagemn:  Operator
not aplicable to this tipo ou outra mensagem...

Resumindo... Não sei o que fazr para LIBERAR meu programa para
os Funcionários resgistrarem sua saída...Se alguém Puder me dar uma
AJUDA...ME dar uma Idéia...

Aguardo Respostas!!! !

 


  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]



Res: Res: Re: Res: [delphi-br] Impressão rav e direto na impressora

2009-01-30 Por tôpico Rosberg Soares
Na sua unit, faça a chamada abaixo:
While not PrinterOnline() do
begin
  MsgBox('Verifique a Impressora!','ATENÇÃO');
end;
 
Function PrinterOnLine : Boolean;
Const
  PrnStInt : Byte = $17;
  StRq : Byte = $02;
  PrnNum : Word = 0; { 0 para LPT1, 1 para LPT2, etc. }
Var
  nResult : byte;
Begin (* PrinterOnLine*)
  Asm
  mov ah,StRq;
  mov dx,PrnNum;
  Int $17;
  mov nResult,ah;
end;
  PrinterOnLine := (nResult and $80) = $80;
End; 
  

 




De: Bruno Lepesqueur brunolbra...@yahoo.com.br
Para: delphi-br@yahoogrupos.com.br
Enviadas: Sexta-feira, 30 de Janeiro de 2009 9:42:28
Assunto: Res: Re: Res: [delphi-br] Impressão rave direto na impressora


Pessoal... obrigado, mas ainda gostaria de saber se tem como ele checar se a
impressora está em modo de uso ou não, por exemplo: 

Esse código que vcs me passaram informa quais as impressoras que estão
instaladas no micro, mas não se elas estão ligadas ou conectadas (pronta
para uso). Tem algum código q me informa o status dela? 

Obrigado! 

---Mensagem original --- 

De: Moacir - GMail 
Data: 30/01/2009 09:09:42 
Para: delphi...@yahoogrup os.com.br 
Assunto: Re: Res: [delphi-br] Impressão rave direto na impressora 

Bruno, 

Inclua na clausula USES (lá no inicio do teu fonte) a unit Printers; 

Após isto vc poderá fazer como abaixo descrito: 

Label1.Caption: =Printer. Printers. Text; 

ou algo do tipo 

If Printer.Printers. Text='' then 
ShowMessage( 'Nenhuma impressora configurada !!') 
else 
ShowMessage( 'Impressoras configuradas: '+#13+Printer. Printers. Text); 

Sucesso !! 

Moacir 

Bruno Lepesqueur escreveu: 
 Amigo... esses comandos eu uso no próprio Delphi ou são comandos do
windows? 
 
 Eu digitei esses comandos no delphi em um bitbtn, mas o delphi não aceita! 
 
 
 
 Obrigado pela força! 
 
 
 
 ---Mensagem original --- 
 
 
 
 De: Rosberg Soares 
 
 Data: 29/01/2009 18:41:25 
 
 Para: delphi...@yahoogrup os.com.br 
 
 Assunto: Res: [delphi-br] Impressão rave direto na impressora 
 
 
 
 Com esse comando vc consegue o nome de todas as empressoas no windows. 
 
 
 
 USES Printers 
 
 
 
 IMPRESSORA_NO_ SISTEMA := printer.Printers. Text; 
 
 
 
  _ _ __ 
 
 De: Bruno Lepesqueur brunolbrasil@ yahoo.com. br 
 
 Para: delphi...@yahoogrup os.com.br 
 
 Enviadas: Quinta-feira, 29 de Janeiro de 2009 15:04:18 
 
 Assunto: [delphi-br] Impressão rave direto na impressora 
 
 
 
 Boa tarde pessoal! 
 
 
 
 Seguinte... criei o seguinte código para imprimir no rave direto na 
 
 impressora: 
 
 
 
 dmoRelatorios. rvsPedidosPre. DefaultDest := rdPrinter; 
 
 dmoRelatorios. rvsPedidosPre. SystemSetups := dmoRelatorios. rvsPedidosPre 
 
 SystemSetups - [ssAllowSetup] ; 
 
 dmoRelatorios. rvPedidosPre. ProjectFile := 'C:\RelPedidoNF. rav'; 
 
 dmoRelatorios. rvPedidosPre. ExecuteReport( 'Report1' ); 
 
 
 
 Dessa forma ele imprime direto na impressora que eu tenho configurada como 
 
 padrão, mas acontece uns erros qdo eu não tenho nehuma impressora 
 
 configurada em meu micro e o sistema trava. 
 
 Teria como antes de executar esses código eu pedir para o delphi verificar
a 
 
 comunicação com a impressora pra ver se ela está presente e pronta pra 
 
 imprimir? 
 
 
 
 Obrigado! 
 
 
 




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

 


  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]



[delphi-br] Como salvar o desktop no Delphi 2007.

2009-01-30 Por tôpico laureanonunes
Colegas,

Tenho 03 tipos de formatação da IDE Delphi 2007.

Uma para codificar, outra para desenhar os forms e outra para trocar
propriedades.

Como faço para exportar estas configurações de um pc para outro, ou
simplesmente gravar estas informações em arquivo e após formatar o meu
pc restaura-las?

Qualquer comentário é bem-vindo, obrigado.

[]´s Nunes
Delphi 2007 (testando)



Res: [delphi-br] duvida

2009-01-30 Por tôpico Rosberg Soares
Não de uma olhada nesse linke.
http://terrabrasil.softonic.com/ie/31463/TL-PDB





De: rodrigoojapa rodrigooj...@hotmail.com
Para: delphi-br@yahoogrupos.com.br
Enviadas: Quarta-feira, 28 de Janeiro de 2009 15:10:50
Assunto: [delphi-br] duvida


Boa tarde pessoal

Espero que vcs me ajudem, estou querendo conveter um arquivo .PDB 
para .TXT ou jogar direto para o excel, ja tenho o PDBDataManager trial,
se alguem tiver um fonte ou possa me ajudar a fazer isso, por favor.

 


  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]



Res: [delphi-br] duvida

2009-01-30 Por tôpico Rosberg Soares
de uma olhada nesse linke
http://terrabrasil.softonic.com/ie/31463/TL-PDB





De: rodrigoojapa rodrigooj...@hotmail.com
Para: delphi-br@yahoogrupos.com.br
Enviadas: Quarta-feira, 28 de Janeiro de 2009 15:10:50
Assunto: [delphi-br] duvida


Boa tarde pessoal

Espero que vcs me ajudem, estou querendo conveter um arquivo .PDB 
para .TXT ou jogar direto para o excel, ja tenho o PDBDataManager trial,
se alguem tiver um fonte ou possa me ajudar a fazer isso, por favor.

 


  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]



[delphi-br] Re: Mais de uma condição com FormatDatetime!!!

2009-01-30 Por tôpico rafaelpinto19


   Obrigadu Guionardosua idéia funcionou direitinho...era um
negócinho simples...Valeu mesmo!!!



--- Em delphi-br@yahoogrupos.com.br, Guionardo Furlan guiona...@...
escreveu

  IF FormatDateTime('hh:nn:ss',NOW)  '09:15:00' and
  FormatDateTime('hh:nn:ss',Now)  '17:59:59' then
 
 Estão faltando os parênteses aí, pra isolar as comparações entre o AND.
 
 Faça assim:
 
  IF (FormatDateTime('hh:nn:ss',NOW)  '09:15:00') and
   (FormatDateTime('hh:nn:ss',Now)  '17:59:59') then
 
 2009/1/29 rafaelpinto19 rafaelpi...@...:
 
 
  BOa noite pessoal,
 
  Estou desenvolvendo um Registro de Pontos de Funcionários por
  senha mesmo, até eu implementar um ponto por código de Barras, Mas
  estou tento o Seguinte PROBLEMA:
 
  No Programa, o Funcionário chega, Coloca sua senha e registra
  sua entrada...Mas tem até uma CERTA hora pra ele resgistrar sua
  entrada, pois SE passar... Vem umja mensagem dizenzo q só o SUPERVISOR
  poderá fazer o registro do Mesmo. Para fazer essa condição Eu usei o 
  FormatDateTime desse Jeito:
 
  IF FormatDateTime('hh:nn:ss',NOW)  '09:15:00' then
  Begin
  ShowMessage('Horário Excedido! Favor Pedir para o
  Administrador Registrar sua Entrada!');
  End;
 
  Até aí Funciona Legal
 
  Agora quero que todo dia Após 18:00 da tarde, o Programa esteja
  LIBERADO para resgistrar o Final de expediente de Cada um...
 
  Eu tento colocar desse jeito:
 
  IF FormatDateTime('hh:nn:ss',NOW)  '09:15:00' and
  FormatDateTime('hh:nn:ss',Now)  '17:59:59' then
 
 
 -- 
 Timeo hominem unius libri
 Cogito ergo sum - Carpe diem
 
 []s
 Guionardo Furlan
 http://guionardo.blogspot.com





[delphi-br] Re: Mais de uma condição com FormatDatetime!!!

2009-01-30 Por tôpico rafaelpinto19


  Obrigadu Emanuel pelas sugestões...mas o CLiente quer que seja
feita desta forma: NO cadastro de Funcionários, implementamos uma
senha pra ele e com essa senha, toda vez que ele for começar o
expediente, ele coloca a senha dele e o sistema registra o PONTO. E o
Cliente tbm pediu para que Determinávamos no Sistema, até uma certa
hora para que todos possasm registrar sua entrada.Caso contrário, só
ele(Com a Senha dele de Supervisor) conseguiria fazer o Registro e
quando desse a hora do Final do Expediente, o Sistema ficasse Liberado
para fazer o Registro da saída de cada FUncionário. E Quanto a Questão
dos funcionários Esquecerem de  resgitrarem suas entradas 
e suas saídas, o CAMPO na base de Dados, não receberá nenhum
valor...Assim será mais fácil controlar Os Horários de cada
Funcionário...Pelo menos é assim que ele pensa...Agora fazercálculo
referente a horas trabalhadas...Ainda não foi pensado nisso, e mesmo
assim, ainda não estou preparado a trabalhar com cálculos das Horas e
dias trabalhados...Não sei se vou conseguir...Mas tentarei se o
cliente Necessitar...Mas agradeço muito pelas sugestões...

OBS.: Os registros no início serão por senha até os crachás com
Códigos de Barras Chegarem, quando chegar, passará a funcionar não por
senmha e sim por código de barra dos cartões...Aí sim que o Bicho vai
pegar pra min...Mas valeu...GOstei da sua ajuda...


--- Em delphi-br@yahoogrupos.com.br, Coutinho - Yahoo
emanuelcouti...@... escreveu

 Rafael
 
 Eu entendi que vc permite que o funcionário saia do trabalho após as 18 
 horas...
 Não seria mais interessante vc permitir que ele registre sua saída a 
 qualquer momento?
 Para isso, ao registrar o ponto, o sistema deveria ler o último 
 lançamento de registro daquela matrícula e automaticamente definir qual 
 o tipo de lançamento que estaria sendo feito naquele momento.
 O problema é que o funcionário pode ter esquecido de registrar no dia 
 anterior a saída e ter a entrada bloqueada no dia seguinte, ou esquecer 
 de bater a entrada, e querer registrar a saída.
 Isso é trabalhoso para o usuário (funcionário) mas facilita no final na 
 composição dos cálculos de horas.
 Veja,
 Situação 1.
 Funcionário entrou, bateu ponto e saíu sem registrar saída
 No dia seguinte, o sistema alerta que ele não pode dar entrada, pois
não 
 registrou saída do dia anterior e manda ele procurar o supervisor... Aí 
 entra a rotina de acerto feita com senha especial. Problema resolvido e 
 cálculo de horas trabalhadas perfeito no fim das contas sem pendências.
 
 Situação 2
 Funcionário esqueceu de bater ponto na entrada, ao sair o sistema 
 verifica que ele não pode registrar saída sem entrada. Manda o dito
cujo 
 procurar o supervisor. Aí entra a rotina de acerto feita com senha 
 especial. Problema resolvido e cálculo de horas trabalhadas perfeito no 
 fim das contas sem pendências.
 
 Situação 3
 Funcionário bateu ponto na entrada hoje, saiu sem bater o ponto, 
 pensadamente, não bateu ponto  de entrada no dia seguinte, e tentou 
 bater o ponto na saída, O sistema verifica a quantidade de horas entre 
 entrada e saída, ealerta para que chame o supervisor, sem permitir que 
 registre o ponto... Aí entra a rotina de acerto feita com senha 
 especial. Problema resolvido e cálculo de horas trabalhadas perfeito no 
 fim das contas sem pendências.
 
 Agora...
 A comparação de horas, no meu ver, deve sempre ser feita no formato 
 numérico, ou TDateTime... Não transforme em texto. Compare hora maior 
 com hora menor para extrair diferença de tempo entre elas... 
 transformando tudo em minutos... é mais negócio... Ou compare as duas 
 para saber se uma é maior que a outra.
 As datas são na realidade números que a parte inteira representam os 
 dias, e a decimal a fração dos dias... assim, comparar números de mesmo 
 formato, fica bem mais simples...
 
 Espero ter ajudado!
 
 Sds
 
 __
 Emanuel Coutinho
 Salvador-Ba-Brasil





Re: [delphi-br] Como salvar o desktop no Delphi 2007.

2009-01-30 Por tôpico Andrei Luís
Nunes,

Quando preciso formatar meu micro, eu exporto e importo toda a chave Borland
que está no registro do windows em HKEY_CURRENT_USER\Software\Borland. Uso
BDS 2006.

Isso traz todos os componentes sem a necessida de reinstalar, teste para ver
se atende ao que você precisa.

[]
Andrei

2009/1/30 laureanonunes laureanonu...@yahoo.com.br

 Colegas,

 Tenho 03 tipos de formatação da IDE Delphi 2007.

 Uma para codificar, outra para desenhar os forms e outra para trocar
 propriedades.

 Como faço para exportar estas configurações de um pc para outro, ou
 simplesmente gravar estas informações em arquivo e após formatar o meu
 pc restaura-las?

 Qualquer comentário é bem-vindo, obrigado.

 []´s Nunes
 Delphi 2007 (testando)





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



[delphi-br] ImageList com ActionList e Button

2009-01-30 Por tôpico Luciano Calenzani Simões
Quando ligo um ActionList a um ImageList (que possui uma ou mais imagens), crio 
uma ação no ActionList definindo o imageindex e depois crio um Button e ligo 
ele a action criada, a imagem no Button não é exibida?
Testei isso no D7, D2006 e D2009 e todos apresentaram o mesmo comportamento.

Só funciona usando ActionManager, mas usando este em um Form básico, dá erro na 
criação de descendentes informando que o ActionManager não suporta inherited.

 Luciano Calenzani Simões


  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]



Re: Res: Res: Re: Res: [delphi-br] Impressão rave direto na impressora

2009-01-30 Por tôpico Moacir - GMail

O sistema Operacional (XP ou Vista) não esta permitindo o acesso direto 
ao hardware !!

[ ]´s

Moacir


Bruno Lepesqueur escreveu:
 Não sei se fiz certo, mas eu coloquei a Function:



 Function PrinterOnLine : Boolean;

 Const

   PrnStInt : Byte = $17;

   StRq : Byte = $02;

   PrnNum : Word = 0; { 0 para LPT1, 1 para LPT2, etc. }

 Var

   nResult : byte;

 Begin (* PrinterOnLine*)

   Asm

   mov ah,StRq;

   mov dx,PrnNum;

   Int $17;

   mov nResult,ah;

 end;

   PrinterOnLine := (nResult and $80) = $80;

 End;



  logo abaixo das units (no início dos códigos) e criei um botão somente com
 o código:



 While not PrinterOnline() do

 begin

   MsgBox('Verifique a Impressora!','ATENÇÃO');

 end;



 mas qdo eu clico no botão o sistema trava!



 Obrigado pela força!

 Aguardo outra dica!

  

 ---Mensagem original---

  

 De: Rosberg Soares

 Data: 30/01/2009 16:09:33

 Para: delphi-br@yahoogrupos.com.br

 Assunto: Res: Res: Re: Res: [delphi-br] Impressão rave direto na impressora

  

 Na sua unit, faça a chamada abaixo:

 While not PrinterOnline() do

 begin

   MsgBox('Verifique a Impressora!','ATENÇÃO');

 end;

  

 Function PrinterOnLine : Boolean;

 Const

   PrnStInt : Byte = $17;

   StRq : Byte = $02;

   PrnNum : Word = 0; { 0 para LPT1, 1 para LPT2, etc. }

 Var

   nResult : byte;

 Begin (* PrinterOnLine*)

   Asm

   mov ah,StRq;

   mov dx,PrnNum;

   Int $17;

   mov nResult,ah;

 end;

   PrinterOnLine := (nResult and $80) = $80;

 End; 

   



  



 

 De: Bruno Lepesqueur brunolbra...@yahoo.com.br

 Para: delphi-br@yahoogrupos.com.br

 Enviadas: Sexta-feira, 30 de Janeiro de 2009 9:42:28

 Assunto: Res: Re: Res: [delphi-br] Impressão rave direto na impressora



 Pessoal... obrigado, mas ainda gostaria de saber se tem como ele checar se a

 impressora está em modo de uso ou não, por exemplo: 



 Esse código que vcs me passaram informa quais as impressoras que estão

 instaladas no micro, mas não se elas estão ligadas ou conectadas (pronta

 para uso). Tem algum código q me informa o status dela? 



 Obrigado! 



 ---Mensagem original --- 



 De: Moacir - GMail 

 Data: 30/01/2009 09:09:42 

 Para: delphi...@yahoogrup os.com.br 

 Assunto: Re: Res: [delphi-br] Impressão rave direto na impressora 



 Bruno, 



 Inclua na clausula USES (lá no inicio do teu fonte) a unit Printers; 



 Após isto vc poderá fazer como abaixo descrito: 



 Label1.Caption: =Printer. Printers. Text; 



 ou algo do tipo 



 If Printer.Printers. Text='' then 

 ShowMessage( 'Nenhuma impressora configurada !!') 

 else 

 ShowMessage( 'Impressoras configuradas: '+#13+Printer. Printers. Text); 



 Sucesso !! 



 Moacir 



 Bruno Lepesqueur escreveu: 

   
 Amigo... esses comandos eu uso no próprio Delphi ou são comandos do
 

 windows? 

   

   
 Eu digitei esses comandos no delphi em um bitbtn, mas o delphi não aceita!
 


   

   

   

   
 Obrigado pela força! 
 

   

   

   

   
 ---Mensagem original --- 
 

   

   

   

   
 De: Rosberg Soares 
 

   

   
 Data: 29/01/2009 18:41:25 
 

   

   
 Para: delphi...@yahoogrup os.com.br 
 

   

   
 Assunto: Res: [delphi-br] Impressão rave direto na impressora 
 

   

   

   

   
 Com esse comando vc consegue o nome de todas as empressoas no windows. 
 

   

   

   

   
 USES Printers 
 

   

   

   

   
 IMPRESSORA_NO_ SISTEMA := printer.Printers. Text; 
 

   

   

   

   
  _ _ __ 
 

   

   
 De: Bruno Lepesqueur brunolbrasil@ yahoo.com. br 
 

   

   
 Para: delphi...@yahoogrup os.com.br 
 

   

   
 Enviadas: Quinta-feira, 29 de Janeiro de 2009 15:04:18 
 

   

   
 Assunto: [delphi-br] Impressão rave direto na impressora 
 

   

   

   

   
 Boa tarde pessoal! 
 

   

   

   

   
 Seguinte... criei o seguinte código para imprimir no rave direto na 
 

   

   
 impressora: 
 

   

   

   

   
 dmoRelatorios. rvsPedidosPre. DefaultDest := rdPrinter; 
 

   

   
 dmoRelatorios. rvsPedidosPre. SystemSetups := dmoRelatorios. rvsPedidosPre
 


   

   
 SystemSetups - [ssAllowSetup] ; 
 

   

   
 dmoRelatorios. rvPedidosPre. ProjectFile := 'C:\RelPedidoNF. rav'; 
 

   

   
 dmoRelatorios. rvPedidosPre. ExecuteReport( 'Report1' ); 
 

   

   

   

   
 Dessa forma ele imprime direto na impressora que eu tenho configurada como
 


   

   
 padrão, mas acontece uns erros qdo eu não tenho nehuma impressora 
 

   

   
 configurada em meu micro e o sistema trava. 
 

   

   
 Teria como antes de executar esses código eu pedir para o delphi verificar
 

 a 

   

   
 comunicação com a impressora pra ver se ela está presente e pronta pra 
 

   

   
 imprimir? 
 

   

   

   

   
 Obrigado! 
 

   

   

   



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



 Veja quais 

Res: [delphi-br] ImageList com ActionList e Button

2009-01-30 Por tôpico Luciano Calenzani Simões
Era vacilo meu. Deve-se usar BitBtn e não Button para que a imagem da action 
seja exibida.

Mas por que uma ActionManager não suporta inherited?
 Luciano Calenzani Simões







De: Luciano Calenzani Simões simoesluci...@yahoo.com.br
Para: delphi-br@yahoogrupos.com.br
Enviadas: Sexta-feira, 30 de Janeiro de 2009 16:20:23
Assunto: [delphi-br] ImageList com ActionList e Button


Quando ligo um ActionList a um ImageList (que possui uma ou mais imagens), crio 
uma ação no ActionList definindo o imageindex e depois crio um Button e ligo 
ele a action criada, a imagem no Button não é exibida?
Testei isso no D7, D2006 e D2009 e todos apresentaram o mesmo comportamento.

Só funciona usando ActionManager, mas usando este em um Form básico, dá erro na 
criação de descendentes informando que o ActionManager não suporta inherited.


  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]



Re: [delphi-br] Problemas com focus em aplicação d elphi.

2009-01-30 Por tôpico Alisson
O foco vai para o componente que estiver com propriedade TabOrder = 0. Você 
poder alterar a propriedade TabOrder dos componentes ou então enviar o foco 
para o componente desejado no evento OnCreate do form. 

__
Faça ligações para outros computadores com o novo Yahoo! Messenger 
http://br.beta.messenger.yahoo.com/ 


Re: [delphi-br] Consulta genérica

2009-01-30 Por tôpico Daniel Bastos
Pq não usa uma estrutura configuração para as pesquisas?
Tipo:
  Vc cria uma estrutura de definição onde contenha os campos do grid, os
campos pesquisáveis e etc. Dai vc leria desta estrutura e criaria tudo
dinâmicamente.
  Estes dados poderiam estar persistidos em um arquivo junto da sua
aplicação ou mesmo no banco.
  Para novas pesquisas seria necessário adicionar apenas mais parâmetros a
este arquivo.

2009/1/29 berdam berdamzi...@yahoo.com.br

 tbm tinha pensado nisso, mas em relação, ao tamanho dos campos para
 aparecer no dbgrid. modifica no braço mesmo

 Ricardo César Cardoso escreveu:
 
  Geralmente eu uso Aliases para esses campos veja:
 
  [code]
  Select cd_cliente as Codigo, nm_cliente as Nome
  From clientes
  Where nm_cliente = :nome
  [/code]
 
  Quando vc aponta um grid pra esse datasource, as colunas já aparecem
  com esses apelidos.
 
  No Firebird você pode colocar o alias entre aspas duplas ou não,
  dependendo do que você quer disponibilizar na visualização. Se colocar
  entre aspas duplas, pode usar caracteres acentuados e espaços em
  branco. Se não usar as aspas não é possível usar caracteres acentuados
  nem espaços em branco, pois nesse caso você só está dando um apelido
  (alias) para um campo. No caso das aspas você está atribuindo um
  título para a coluna.
 
  Espero ter sido claro.
 
  Atte,
  Ricardo.
 
  __
 
  Vamos ajudar o Grupo e o Yahoo! Apague o conteúdo irrelevante!
 
  --- Em qua, 28/1/09, berdam berdamzi...@yahoo.com.br
  mailto:berdamzinho%40yahoo.com.br berdamzinho%2540yahoo.com.br
 escreveu:
  De: berdam berdamzi...@yahoo.com.br 
  mailto:berdamzinho%40yahoo.com.brberdamzinho%2540yahoo.com.br
 
  Assunto: Re: [delphi-br] Consulta genérica
  Para: delphi-br@yahoogrupos.com.br mailto:
 delphi-br%40yahoogrupos.com.br delphi-br%2540yahoogrupos.com.br
  Data: Quarta-feira, 28 de Janeiro de 2009, 23:43
 
  obrigado ricardo, mas acho que n expliquei direito, na verdade meu
 
  problema n é em montar a consulta, é fazer com que os datafields que
 
  aparecem na tela que mostra a consulta sejam mostrados de uma maneira
 
  mais genérica, pois oq acontece, quando eu monto a consulta com o sql,
 
  se eu colocar esses campos direto no grid, os nomes e tamanhos do campo
 
  do grid ficam iguais aquele que existem no banco de dados, oq a gente
 
  faz atualmente é uma método que modifica esses campos e adiciona um
 
  nome, por exemplo, na consulta de clientes aparace cd_cliente, nome_cli,
 
  para o usuário do sistema isso n fica legal, oq a gente faz, alteramos
 
  esses campos para cd_cliente = Código do cliente, nome_cli = Nome do
 
  cliente, gostaria de saber quais as técnicas que o pessoal usa para
 
  fazer a consulta. Aqui onde trabalho tenho uma te;a genérica de
 
  consulta, assim n precisamos em toda parte do sistema ficar criando
 
  consultar, criamos apenas uma vez nessa unit, e usamos em todo o sistema.
 
  Ricardo César Cardoso escreveu:
 
  
 
   Olha, se estiver trabalhando com um banco Interbase ou Firebird, use o
 
   IBExpert. Na versão personal ele tem o chamado Intellisense (ou abrir
 
   um combo enquanto digita) e tb auto completar.
 
  
 
   Quando vc tem a versão completa (acho que chamada de Professional)
 
   você monta queries clicando e arrastando campos da tua tabela. E ele
 
   gera o código necessário
 
  
 
   E o melhor de tudo é que ele salva todas as instruções de consulta num
 
   arquivo com a instrução .SQL
 
  
 
   Não sei se é exatamente o que vc queria saber... se não for, me
 
   desculpe e desconsidere essa mensagem.
 
  
 
   Atte,
 
   Ricardo.
 
  
 
    _ _ _ _ _ _
 
  
 
   Vamos ajudar o Grupo e o Yahoo! Apague o conteúdo irrelevante! 
 
  
 
   --- Em qua, 28/1/09, berdam berdamzinho@ yahoo.com. br
 
   mailto:berdamzinho %40yahoo. com.br escreveu:
 
  
 
   Galera, queria sabe do pessoal quais as técnicas que vcs usam para
 
  
 
   realizar as consutlas no banco de dados. Onde trabalho criamos as
 
  
 
   definições dos campos usados no sql de consulta.
 
  
 
   Mas em todas as consultas que criamos, temos que ir em um arquivo
 
  
 
   determinado e criar todas as definições dos campos usados na consulta,
 a
 
  
 
   manutenção é meio ruim.
 
  
 
   Alguém tem alguma idéia melhor???
 
  
 
 
 
 
 
 
 
 
 
 
  Veja quais são os assuntos do momento no Yahoo! +Buscados
  http://br.maisbuscados.yahoo.com http://br.maisbuscados.yahoo.com
 
  [As partes desta mensagem que não continham texto foram removidas]
 
 

 --
 -
 Uberdam Cavaletti
 Formado em Tecnologia da informação - Unoesc - Xxe
 Pós graduado em Desenvolvimento Java - Unoesc - Xxe

 Acesse  http://www.curricular.com.br/berdam
 Acesse  http://passandoveneno.blogspot.com

 -


 

 --
  FAVOR REMOVER ESTA PARTE AO 

Re: [delphi-br] Problemas com focus em aplicação d elphi.

2009-01-30 Por tôpico Daniel Bastos
Se possível, amostre o screenshot de como ele está e o código onde vc cria e
exibe seu form.

2009/1/30 Alisson alss...@yahoo.com.br

 O foco vai para o componente que estiver com propriedade TabOrder = 0. Você
 poder alterar a propriedade TabOrder dos componentes ou então enviar o foco
 para o componente desejado no evento OnCreate do form.

 __
 Faça ligações para outros computadores com o novo Yahoo! Messenger
 http://br.beta.messenger.yahoo.com/

 

 --
  FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 






-- 
Abs
Daniel A. Bastos


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



[delphi-br] Comercializar sistema

2009-01-30 Por tôpico brunolbrasil
Boa noite pessoal!

Talvez eu esteja fazendo uma pergunta já discutida no grupo, mas eu 
andei fazendo algumas buscas no conteúdo e não consegui achar nada 
específico!

Seguinte... eu tenho um sistema desenvolvido em delphi 7 e my-sql 5 
que controla o estoque de peças de tratores através de entrada de 
notas fiscais e saída de notas fiscais, ou seja, as notas de 
fornecedores são lançadas no sistema (incluindo os produtos no 
estoque) e as notas de vendas para cliente são emitidas e impressas 
através do sistema (tirando os produtos do estoque), além de outras 
funcionalidades...

Gostaria de saber do que eu preciso para poder comercializar esse 
sistema? Pelo que sei eu devo comprar a licença do delphi e do my-
sql, mas eu não sei se depois disso eu já posso colocar o meu sistema 
para emitir notas fiscais e cupons fiscais!

Pra trabalhar com notas fiscais eu preciso de algum tipo de 
autorização do governo ou de seguir algumas regras?

Obrigado e me desculpe se eu estiver fazendo perguntas bobas! rs

Um abraço a todos!



Re: [delphi-br] Comercializar sistema

2009-01-30 Por tôpico Julio Cesar
procura um contador ou vai na secretaria da fazenda da sua cidade q eles te 
informam, nao sei como andam as leis, mas ha alguns anos atras somente alguns 
estados exigiam um cadastro do sistema...


julio cesar

  - Original Message - 
  From: brunolbrasil 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Friday, January 30, 2009 9:28 PM
  Subject: [delphi-br] Comercializar sistema


  Boa noite pessoal!

  Talvez eu esteja fazendo uma pergunta já discutida no grupo, mas eu 
  andei fazendo algumas buscas no conteúdo e não consegui achar nada 
  específico!

  Seguinte... eu tenho um sistema desenvolvido em delphi 7 e my-sql 5 
  que controla o estoque de peças de tratores através de entrada de 
  notas fiscais e saída de notas fiscais, ou seja, as notas de 
  fornecedores são lançadas no sistema (incluindo os produtos no 
  estoque) e as notas de vendas para cliente são emitidas e impressas 
  através do sistema (tirando os produtos do estoque), além de outras 
  funcionalidades...

  Gostaria de saber do que eu preciso para poder comercializar esse 
  sistema? Pelo que sei eu devo comprar a licença do delphi e do my-
  sql, mas eu não sei se depois disso eu já posso colocar o meu sistema 
  para emitir notas fiscais e cupons fiscais!

  Pra trabalhar com notas fiscais eu preciso de algum tipo de 
  autorização do governo ou de seguir algumas regras?

  Obrigado e me desculpe se eu estiver fazendo perguntas bobas! rs

  Um abraço a todos!



   

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



Res: [delphi-br] Dica de Site de Componentes

2009-01-30 Por tôpico Silvio Clécio
Olá pessoal,

Porr@ Ricardo, valeu! :)

Eu estava atrás de um componente/demo, tipo o TSizeCtr. 

[]'s, Silvio Clécio
---
Linux User: #481900
Skype: silvioprog
ICQ: 432519902
E-mail, Y! Messenger: silviop...@yahoo.com.br
Gmail, GTalk: silviop...@gmail.com
Hotmail, MSN: silviop...@hotmail.com
BlogSpot: http://silvioclecio.blogspot.com/
BlogSite: http://silvioprog.blogspot.com/
°oO| Seja livre, use Linux! |Oo°




De: Ricardo César Cardoso ricardo_engs...@yahoo.com.br
Cc: delphi-br@yahoogrupos.com.br
Enviadas: Sexta-feira, 30 de Janeiro de 2009 8:43:22
Assunto: [delphi-br] Dica de Site de Componentes


Bom dia pessoal!

Seguindo a dica do Rubem numa outra mensagem a outro colega para procurar por 
um componente nos oráculos do saber (a.k.a. Google, Altavista, etc.) me 
deparei com o site do Angus Johnson que possui vários componentes e utilitários 
free.

Gostaria de compartilhar o link com vocês. Para quem já conhece, fica o 
registro. Façam bom proveito!!!

[ http://angusj. com/delphi/ ]

Atenciosamente,
Ricardo Cardoso.


  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]



Re: [delphi-br] Capturar imagens Camera IP

2009-01-30 Por tôpico Ricardo César Cardoso
Olha Henrique, não gosto muito de responder solicitações em private, pois assim 
a comunidade não ganha nada... Mas pesquisando um pouco, tudo converge para o 
DSPack.

Baixe o projeto no site [ http://sourceforge.net/projects/dspack ] e abuse do 
fórum do componente (em inglês), mas este tópico [ 
http://www.progdigy.com/forums/viewtopic.php?t=4368sid=5f6f402655a335c0da975cbb41a05da3
 ] pode ser bastante interessante para você.

[]'s
Ricardo

_

Vamos ajudar o Grupo e o Yahoo! Apague o conteúdo irrelevante!

--- Em sex, 30/1/09, Hrq48 iG hr...@ig.com.br escreveu:
De: Hrq48 iG hr...@ig.com.br
Assunto: Re: [delphi-br] Dica de Site de Componentes
Para: Ricardo César Cardoso ricardo_engs...@yahoo.com.br
Data: Sexta-feira, 30 de Janeiro de 2009, 22:58



 
Caro Ricardo:
 
Necessito de um totorial, dica, componente ou 
fonte-exemplo
de captura de webcam em outro PC, tipo messenger, 
skype, etc.
 
Grato
 
Henrique
 
www.guardalivro.cnt.br



  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]



Re: [delphi-br] Capturar imagens Camera IP

2009-01-30 Por tôpico Ricardo César Cardoso
Apenas complementando, um link em português:

[ 
http://dprogrammer.wordpress.com/2007/01/27/capturando-imagens-da-webcam-no-delphi/
 ]

Se não me engano até vi alguma coisa numa ClubeDelphi, tempos atrás. Só não 
tenho certeza se abordava câmeras IP.

[]'s
Ricardo.

_

Vamos ajudar o Grupo e o Yahoo! Apague o conteúdo irrelevante!

--- Em sex, 30/1/09, Hrq48 iG hr...@ig.com.br escreveu:
De: Hrq48 iG hr...@ig.com.br
Assunto: Re: [delphi-br] Dica de Site de Componentes
Para: Ricardo César Cardoso ricardo_engs...@yahoo.com.br
Data: Sexta-feira, 30 de Janeiro de 2009, 22:58



 
Caro Ricardo:
 
Necessito de um totorial, dica, componente ou 
fonte-exemplo
de captura de webcam em outro PC, tipo messenger, 
skype, etc.
 
Grato
 
Henrique
 
www.guardalivro.cnt.br
 
  #yiv714910114 #ygrp-mkp {
BORDER-RIGHT:#d8d8d8 1px solid;PADDING-RIGHT:14px;BORDER-TOP:#d8d8d8 1px 
solid;PADDING-LEFT:14px;PADDING-BOTTOM:0px;MARGIN:14px 0px;BORDER-LEFT:#d8d8d8 
1px solid;PADDING-TOP:0px;BORDER-BOTTOM:#d8d8d8 1px solid;FONT-FAMILY:Arial;}
#yiv714910114 #ygrp-mkp HR {
BORDER-RIGHT:#d8d8d8 1px solid;BORDER-TOP:#d8d8d8 1px solid;BORDER-LEFT:#d8d8d8 
1px solid;BORDER-BOTTOM:#d8d8d8 1px solid;}
#yiv714910114 #ygrp-mkp #hd {
FONT-WEIGHT:bold;FONT-SIZE:85%;MARGIN:10px 0px;COLOR:#628c2a;LINE-HEIGHT:122%;}
#yiv714910114 #ygrp-mkp #ads {
MARGIN-BOTTOM:10px;}
#yiv714910114 #ygrp-mkp .ad {
PADDING-RIGHT:0px;PADDING-LEFT:0px;PADDING-BOTTOM:0px;PADDING-TOP:0px;}
#yiv714910114 #ygrp-mkp .ad A {
COLOR:#ff;TEXT-DECORATION:none;}


  



  





  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]



RES: [delphi-br] ImageList com ActionList e Button

2009-01-30 Por tôpico Luciano Topolniak
O Tbutton não aceita imagens, tenta o bitbtn ou speedbutton...

[]’s

Topolniak

 

De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em
nome de Luciano Calenzani Simões
Enviada em: sexta-feira, 30 de janeiro de 2009 16:20
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] ImageList com ActionList e Button

 

Quando ligo um ActionList a um ImageList (que possui uma ou mais imagens),
crio uma ação no ActionList definindo o imageindex e depois crio um Button e
ligo ele a action criada, a imagem no Button não é exibida?
Testei isso no D7, D2006 e D2009 e todos apresentaram o mesmo comportamento.

Só funciona usando ActionManager, mas usando este em um Form básico, dá erro
na criação de descendentes informando que o ActionManager não suporta
inherited.

Luciano Calenzani Simões 

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]



Res: [delphi-br] Problemas com focus em aplicaçã o delphi.

2009-01-30 Por tôpico Silvio Clécio
Olá pessoal,

Bom, tem o BringToFront, só que seria interessante você nos mostrar como está 
chamando os Forms, pq isso está um tanto estranho.

[]'s, Silvio Clécio
---
Linux User: #481900
Skype: silvioprog
ICQ: 432519902
E-mail, Y! Messenger: silviop...@yahoo.com.br
Gmail, GTalk: silviop...@gmail.com
Hotmail, MSN: silviop...@hotmail.com
BlogSpot: http://silvioclecio.blogspot.com/
BlogSite: http://silvioprog.blogspot.com/
°oO| Seja livre, use Linux! |Oo°




De: Visão On-Line - Jones Kleber vi...@visao-ol.com.br
Para: delphi-br@yahoogrupos.com.br
Enviadas: Sexta-feira, 30 de Janeiro de 2009 13:00:58
Assunto: [delphi-br] Problemas com focus em aplicação delphi.


Boa tarde a todos,

Estou criando um formulario dentro de uma unit, só que esse formulário 
não está ficando ativado, ou seja, ele aparece mas não com o focu nele, 
o usuário está sendo obrigado a clicar com o mouse para acessar os botões.

Alguém teria alguma dica para me ajudar nessa.

Obrigado.

Jones Kleber
(24) 2252-3017


  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]



Res: [delphi-br] ImageList com ActionList e Button

2009-01-30 Por tôpico Silvio Clécio
Olá pessoal,

Tente com o TBitBtn.

[]'s, Silvio Clécio
---
Linux User: #481900
Skype: silvioprog
ICQ: 432519902
E-mail, Y! Messenger: silviop...@yahoo.com.br
Gmail, GTalk: silviop...@gmail.com
Hotmail, MSN: silviop...@hotmail.com
BlogSpot: http://silvioclecio.blogspot.com/
BlogSite: http://silvioprog.blogspot.com/
°oO| Seja livre, use Linux! |Oo°




De: Luciano Calenzani Simões simoesluci...@yahoo.com.br
Para: delphi-br@yahoogrupos.com.br
Enviadas: Sexta-feira, 30 de Janeiro de 2009 15:20:23
Assunto: [delphi-br] ImageList com ActionList e Button


Quando ligo um ActionList a um ImageList (que possui uma ou mais imagens), crio 
uma ação no ActionList definindo o imageindex e depois crio um Button e ligo 
ele a action criada, a imagem no Button não é exibida?
Testei isso no D7, D2006 e D2009 e todos apresentaram o mesmo comportamento.

Só funciona usando ActionManager, mas usando este em um Form básico, dá erro na 
criação de descendentes informando que o ActionManager não suporta inherited.

Luciano Calenzani Simões


  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]