RES: [delphi-br] criando formulários
Mais fácil que isso: você pode configurar as propriedades transparent e transparent color do form, tirar a borda e colocar uma figura do jeito que você quer que o form seja. Para criar figuras diferentes você pode usar um bitmap também. Atenciosamente, Felipe Guerço Oliveira Escola Nacional de Seguros Gerência de Informática (21) 3132-1083 http://www.funenseg.org.br http://www.funenseg.org.br/ -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Shimon Cesar de Souza Soares Enviada em: terça-feira, 7 de novembro de 2006 14:56 Para: delphi-br@yahoogrupos.com.br Assunto: RES: [delphi-br] criando formulários Virgilho, eu uso meu cria uma form de formato elíptico assim. no evento OnClick do form (de preferência troque a propriedade BorderStyle para bsNone, e deixe os componentes mais ao centro do form): procedure TForm1.FormCreate(Sender: TObject); var hR : THandle; begin hR := CreateEllipticRgn (0,0,Width,Height); SetWindowRgn (Handle,hR,True); end; De: delphi-br@yahoogrupos.com.br em nome de Virgilho Henrique Enviada: ter 07/11/06 02:27 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] criando formulários como criar formularios(form) diferentes?? eu gostaria de dar um visual diferente aos meus formularios, ou seja, as janelas do meu programa.. como fazer?? -- Fraternalmente, Sir Virgilho Henrique Silva [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] -- Esta mensagem foi verificada pelo sistema de antivírus e acredita-se estar livre de perigo. [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
{Disarmed} RES: [delphi-br] Mostrar número da linha no dbGrid
Uma outra solução é criar um campo do tipo calculated e no OnCalcFields atribuir a este campo a propriedade recno do dataset. Atenciosamente, Felipe Guerço Oliveira Escola Nacional de Seguros Gerência de Informática (21) 3132-1083 http://www.funenseg.org.br http://www.funenseg.org.br/ -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Henrique Netzka (Vetor Sistemas) Enviada em: terça-feira, 7 de novembro de 2006 10:01 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Mostrar número da linha no dbGrid Bem... você pode criar uma coluna dummy no grid e interceptar o OnDraw dela! rs Henrique - Original Message - From: Leodinei Bielak To: delphi-br Sent: Tuesday, November 07, 2006 7:46 AM Subject: [delphi-br] Mostrar número da linha no dbGrid Olá. Alguém sabe como eu faço pra mostrar o número da linha do dbGrid em uma coluna. Sem precisar depender do número da linha no dataset? Valeu. -- Leodinei Bielak Civilization had too many rules for me, so I did my best to rewrite them. _Bill Cosby_ [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] -- Esta mensagem foi verificada pelo sistema de antivírus e acredita-se estar livre de perigo. [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
RES: [delphi-br] Cadastro Padrão - Como Cr iar ??????
Coloque só o DataSource no Form e use através da propriedade DataSet dele Ex: if (DsPadrao.DataSet as TClientDataSet).ApplyUpdates(0) 0 then (DsPadrao.DataSet as TClientDataSet).CancelUpdates A mesma coisa para qualquer método/propriedade do TClientDataSet (Insert, Edit, Delete, Filter, Locate, etc etc etc..), que você usar. Atenciosamente, Felipe Guerço Oliveira Escola Nacional de Seguros Gerência de Informática (21) 3132-1083 http://www.funenseg.org.br -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Marcos P. M. de Souza Enviada em: terça-feira, 24 de outubro de 2006 15:37 Para: delphi-br@yahoogrupos.com.br Assunto: RES: [delphi-br] Cadastro Padrão - Como Criar ?? Já procurei a mesma coisa q vcainda não encontrei nada tao completoalgumas poucas coisas. Se achar ...por favor me avise. -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Programador Delphi Enviada em: segunda-feira, 23 de outubro de 2006 19:10 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Cadastro Padrão - Como Criar ?? Pessoal como faço para criar um cadastro padrão, com todas as funcionalidades de botões Gravar, Alterar, Incluir, Excluir e botões demovimentação usando apenas os componentes e um componente DataSource neste Formulário Padrão. os Demais Componentes tipo Query, ClientDataSet e Provider gostaria de colocar em um DataModulo isso é possível ? como instanciar este datamodulo ou até mesmo herdar o mesmo juntamente com o formulário e todas as suas funcionalidades já que as mesmas são programadas apontando-se para o ClientDataSet que se encontra no DataModulo Hoje esta assim o Formulário Herda o DataSource Padrão, o ClientDataSet Padrão e o Provider Padrão e o código do botão gravar fica assim dentro do formulário. // Botão Gravar cdsPadrao.Post; if cdsPadrao.ApplyUpdates(0) 0 then cdsPadrao.CancelUpdates; cdsPadrao é o meu ClientDataSet herdado juntamente com o Formulário Padrão, caso eu venha a colocar este ClientDataSet em um DataModulo como ficaria o Código ? como faço para que o Formulário indique quem é seu DataModulo Correspondente ? dmPadrao.cdsPadrão.Post; // Este código não funcionaria porque o dmPadrão já não existe mais na Herança agora o Dm chama-se DMVendas, não mais padrão. Teria como eu Criar um Cadastro Padrão onde o mesmo apontaria para o DM correto ? Obrigado -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Links do Yahoo! Grupos __ Informação do NOD32 IMON 1.1823 (20061022) __ Esta mensagem foi verificada pelo NOD32 sistema antivírus http://www.eset.com.br ___ Novidade no Yahoo! Mail: receba alertas de novas mensagens no seu celular. Registre seu aparelho agora! http://br.mobile.yahoo.com/mailalertas/ -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Links do Yahoo! Grupos -- Esta mensagem foi verificada pelo sistema de antivírus e acredita-se estar livre de perigo. -- 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
Re: [delphi-br] Relatório
Erika (também serve para várias pessoas da lista).
Sei que não tem muito a ver com o assunto do relatório, mas eu vejo que
muitas pessoas da lista costumam atribuir o comando SQL a ser executado
pela Query via programação, digitando na unit do Form; que na minha
opinião gera vários problemas:
1º Alto acoplamento, que vai dificultar a manutenção futura *;
2º Você só vai descobrir se o seu comando SQL tem algum erro de sintaxe
quanto executar a aplicação, o que torna o processo de desenvolvimento
muito mais demorado, aumentando também a dificuldade de encontrar o erro
na medida em que, provavelmente, você escreveu vários códigos SQL na
mesma Unit.
3º Suprime a função do DataSet (query) que é de isolar a interface da
camada de dados (não há necessidade de refazer o que o componente já faz)
Existem vários outros aspectos decorrentes deste uso. Ao invés disso
você pode criar Querys parametrizadas, fazendo com que seu código-fonte
diminua bastante e torne muito mais fácil a manutenção. Isso pode ser
feito passando todo o comando SQL de uma vez na propriedade SQL da Query
em tempo de projeto (dentro do DataModule)
Por favor, não me entenda(m) mal, porque também fui iniciante e eu
sempre dava máxima atenção (até hoje faço isso) a qualquer dica de quem
começou antes, por isso estou tentando contribuir um pouco para que
nossa comunidade cresça cada vez mais.
* explicando Acoplamento x Coesão: Para ter uma aplicação bem
desenvolvida, devemos seguir a regra de Alta Coesão x Baixo Acoplamento.
Coesão é quando o módulo é capaz de realizar sua tarefa dependendo o
mínimo possível de outros módulos. então: quanto menos depender de
outros módulos, mais coesão terá, o que é bom. Acoplamento é o quanto um
módulo usa outro módulo para realizar sua tarefa. Quanto menos um módulo
usar outro módulo para realizar sua tarefa, melhor.
Mais uma vez, se minha mensagem tiver um tom arrogante, perdoem-me,
pois não é minha intençao.
Atenciosamente,
Felipe Guerço Oliveira.
Erika Lemes escreveu:
Eu consegui listar as lojas fazendo um Group By na Query que ficou mais ou
menos
assim:
Sql.Clear;
Sql.Add('SELECT SUM (VALOR),LOJA');
//é no lançamento que entro com o valor
Sql.Add('FROM LANCAMENTO.DB Lcdebito');
//cadastro da loja
Sql.Add('INNER JOIN LOJA.DB);
Sql.Add('ON (LANCLOJA = NUMLOJA)');
Sql.Add('WHERE(NUMLOJA is not null)');
if ComboBox1.Text '' then Sql.Add('AND Extract(Month from DATA) = :PMes');
ParamByName ('PMes').AsInteger := ComboBox1.ItemIndex+1;
Sql.Add('GROUP BY LOJA');
QrRel.Prepare;
Open;
Agora, como eu faço para colocar no relatório o valor total (SUM (VALOR)) ??
Pessoal, obrigado pela atenção de vcs! Nem sei como agradecer!
Abração
Erika
--
Atenciosamente,
Felipe Guerço Oliveira.
--
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] DELPHI == Paradox x SQL Server (qualquer banco relacional)
Olá, Não use mais paradox, ou você vai ter estes problemas sempre que sua base de dados crescer um pouco como ela está agora. Use InterBase, ou até mesmo o Firebird, que é de graça e com código-fonte aberto e é um ótimo servidor de banco de dados. Este problema que você está passando em decorrência do uso do Paradox é só um dentre muitos que existem, inclusive performance. Atenciosamente, Felipe Guerço Oliveira Marco M. Tinoco escreveu: Amigos, Boa Tarde. Desculpe-me a duvida ser em alguns momentos de uma novato em Delphi com bancos ou tabelas ! Porem temos uma aplicação desenvolvida em Delphi 5 operando via BDE com tabelas Paradox. Esta aplicação tem em media tabelas com 35.000 a 50.000 lançamentos (media de 30mb cada), porem em momentos aleatórios o sistema danifica e somos obrigados e ARRUMAR a base com o TUtility para recompor os índices e corrigir a base de dados. Porem após esta execução alguns lançamentos ficam órfãos, perdendo o seu vinculo com as demais tabelas. O nosso suporte informa que não existe nenhuma limitação ou falha no Paradox para este volume de informações. Por sua vez, gostaria de obter informações dos amigos se neste caso existe uma forma de comprovar estas perdas de dados devido a alguma falha no Paradox ou mesmo se seria mesmo necessário a utilização de um servidor SQL, seja ele interbase, MySQL, SQL Server ou etc. Desde já muito obrigado aos amigos. []s Marco Mauricio Tinoco [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] 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] Padronizar minha Pesquisa
Você pode fazer o seguinte: usar a propriedade ActiveControl do Form. No
Evento onkeydown do Form:
if key = VK_F2 then
begin
if Self.ActiveControl = EditBanco then
{ procedimento para abrir a consulta de banco }
else
{ procedimento para abrir a consulta de clientes }
end;
Isso, é claro, configurando a propriedade do form KeyPreview para True
Atenciosamente,
Felipe Guerço Oliveira.
Erika escreveu:
Boa tarde!!!
Eu tenho um cadastro de clientes. Quando eu teclo F2 (Pesquisa) ele
abre a tela para pesquisar os clientes já cadastrados.
No meu cadastro eu tenho um campo chamado BANCO. Os bancos estão
cadastrados. Se o usuário quiser ele pode pesquisar o banco
desejado.
Eu gostaria de padronizar as pesquisas para F2, ou seja se ele
estivar no Edit do banco, ao clicar F2 ele é direcionado para a
tela
de Pesquisa de Bancos, caso contrário a tela de Pesquisa de
Clientes
é aberta.
Não consigo padronizar, sendo que o sistema está rodando assim:
F2: busca de Cliente
F3: busca de Banco
Tentei usar o SetFocus, seria por aí?
Bom, desculpem se está meio confuso minha explicação... :-)
Abraços - Erika
--
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] Duvida na migração paradox - Firebird
Olá. O Firebird realmente não necessita do BDE (só o paradox precisa), mas se você retirar o BDE ainda usando estes componentes que você está usando (Table, Query, Database) você vai ter problemas, porque, embora esteja usando ODBC você está fazendo uma ponte ODBC-BDE, então você vai estar quebrando metade da ponte. Atenciosamente, Felipe Guerço Oliveira Gustavo Führ - RDC escreveu: O Firebird não necessita do BDE Führ Eduardo Silva ® wrote: Galera, tinha um sistema em paradox que acessava via table, query, database. Fiz a migração para o Firebird usando os mesmos componentes de acesso, somente alterei o banco, isto é, as tabelas, que agora estão todas dentro do banco. O acesso as tabelas eu faço via ODBC. Minha dúvida é, eu posso desinstalar o BDE da máquina que eu continuarei acessando o sistema normalmente ? _ __ _ / )| |( \ / / | Eduardo de Almeida Silva | \ \ _( (_ | _ * [EMAIL PROTECTED] _ | _) )_ (((\ \)|_/ )__( \_|(/ /))) ( \_/ /\ \_/ ) \ / \ / \_/\_/ / /\ \ --- Outgoing mail is certified Virus Free. Checked by AVG anti-virus system (http://www.grisoft.com). Version: 6.0.789 / Virus Database: 534 - Release Date: 07/11/2004 [As partes desta mensagem que não continham texto foram removidas] -- Atenciosamente, Felipe Guerço Oliveira. -- 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
OFF Re: [delphi-br] Email com 1GB!!!
Meu amigo, você realmente mandou muito bem! Eu acabei de usar o serviço. Só teve um pequeno furo: o site é em ASP (hehe casa de ferreiro espeto de pau) Atenciosamente, Felipe Guerço Oliveira. thinog1313 escreveu: Graças a ajuda da comunidade estou inaugurando o site madeibem.com.br eh um site pra vcs mandarem arquivos de ateh 1Giga Pra qqer email, naum precisa pagar nada e nem fazer cadastro agora nossa comunidade pode enviar fontes executaveis e qqer programa sem se preocupar com espaço em disco do servidor de email. O site armazena o arquivo e envia um email com o link pra download, o servidor ta super rapido. Testem la e se puderem mandar sugestoes eu agradeço Thiago Nogueira [EMAIL PROTECTED] -- 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] Descrever em 2 linhas
Confira se a prooriedade AutoSize está como True. Ela deve estar em False para uar AutoStretch -- Atenciosamente, Felipe Guerço Oliveira. Charlles Ferdinand escreveu: Obrigado pela ajuda miguel, mas será que teria outra forma, pois a propriedade AutoStretch do componente esta em True, e continua descrevendo o material em uma só linha, e como a descrição é muito grande não cabe dentro das margens do formulario Charlles Ferdinand Analista Contábil Tel.: (22) 2622-9739 -Mensagem original- De: infomark_miguel [mailto:[EMAIL PROTECTED] Enviada em: quarta-feira, 27 de outubro de 2004 17:03 Para: [EMAIL PROTECTED] Assunto: Re: [delphi-br] Descrever em 2 linhas Charles Alterer a propriedade AutoStretch do componente TQRDBText que esta mostrando o campo da descrição para True. QRDBText1.AutoStretch:=True; ___ Miguel Franco Galego I n f o m a r k S o l u ç õ e s [EMAIL PROTECTED] icq 332006521 ___ - Original Message - From: Charlles Ferdinand To: Delphi-Br Sent: Wednesday, October 27, 2004 2:00 PM Subject: [delphi-br] Descrever em 2 linhas Pessoal tenho um relatorio no Qreport, mas acontece que um dos campos é para trazer a descrição de um bem patrimonial, só que esta descrição é muito grande e teria que continuar numa segunda linha, como acontece por exemplo no excel, tem aquele retorno automatico de texto, e o que não cabe na mesma linha joga para linha de baixo. Alguem sabe como se tem jeito de fazer isto? Abraços. Charlles Ferdinand Analista Contábil Tel.: (22) 2622-9739 [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] 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] Fomatar valor em relatório
Tente assim:
Valor.Caption := FormatFloat('#,##0.00', qry1FieldByName(
VL_LOCAL' ).Value);
ou pode também colocar na propriedade DisplayFormat do TField esta máscara
#,##0.00
e linkar direto em um TQRDBText
Atenciosamente,
Felipe Guerço Oliveira
- Original Message -
From: er83pet04
To: [EMAIL PROTECTED]
Sent: Monday, October 25, 2004 11:22 AM
Subject: [delphi-br] Fomatar valor em relatório
Tenho um qrlabel e quero formatar o mode de exibição dele como
moeda, mas não está dando certo.
Coloquei assim:
Valor.Caption := qry1FieldByName( VL_LOCAL' ).Value;
Valor.Caption := Format('R$ %8.2d', [qry1FieldByName(
VL_LOCAL' ).Value]);
O campo VL_LOCAL é do tipo number (8,2) e está dando o seguinte erro:
Format('%8.2d' invalid or incompatible with argument
Exemplo: Se o valor do campo é 35,5. Quero que seja exibido R$ 35,50.
Alguém tem idéia de como resolver isso?
Obrigada
--
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] Focu no TEdit
Olá. Use a propriedade selstart do TEdit. Exemplo: Edit1.Text := 'Teste'; Edit1.SetFocus; Edit.SelStart := Length(Edit1.Text); Edit1.SelLength := 1; Atenciosamente, Felipe Guerço Oliveira - Original Message - From: Adenes I. Freire Junior To: [EMAIL PROTECTED] Sent: Wednesday, October 13, 2004 10:31 AM Subject: [delphi-br] Focu no TEdit Caro amigos, Tenho um TEdit como EditHistorico1, no evento OnShow do Form acrescento o seguintes string ao TEdit: EditHistorico1.Text := 'Importância que se empenha para o pagamento de '; Quando focu o Tedit todo o conteúdo dele fica selecionado, a questão é que preciso que o curso var para o final da string, já tentei de tudo, alguém poderia me ajudar? Desde já agradeço, Adenes I. Freire Junior -- 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] [OFF] Windows 2000 Profissional
Tem um programinha muito bom chamado autoruns - ele mostra tudo que carrega junto com a maquina mesmo. Atenciosamente, Felipe Guerço Oliveira. - Original Message - From: Hudson To: [EMAIL PROTECTED] Sent: Saturday, September 25, 2004 1:33 AM Subject: [delphi-br] Windows 2000 Profissional Ola! tenho uma duvida com o windws 2000 para o 98..pois estou precissando de verificar um programa q esta sendo carregado junto do windws, bom no 98 faço assim.iniciar.execultar.msconfigok! mas no 2000 parece não ter o msconfigalguem sabe como posso olhar esta opção do w 2000 grato Hudson! [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] ou [EMAIL PROTECTED] Yahoo! Grupos, um serviço oferecido por: 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 Termos do Serviço do Yahoo!. -- 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] Consulta
Neste caso é melhor criar a query com parâmetro, porque se usar o método Add
vai dar erro na segunda execução do change.
exemplo:
no comando SQL da Query:
select nome, endereco, telefone
from clientes
where nome like :nome
no evento onchange do Edit:
Query.Close;
Query.Params[0].AsString := Edit.Text + '%';
Query.Open;
Só que vale a ressalva do e-mail anterior do nosso colega que disse que o
sistema vai ficar lento quando entrar em produção.
Atenciosamente,
Felipe Guerço Oliveira.
- Original Message -
From: Vitor Luiz Redes
To: [EMAIL PROTECTED]
Sent: Wednesday, September 22, 2004 11:07 AM
Subject: Re: [delphi-br] Consulta
Normal ...
No OnChange do seu TEdit, faça o seguinte:
DataSet.Close;
DataSet.SQL.Add('SELECT TABELA.CAMPO FROM TABELA WHERE TABELA.CAMPO LIKE
'+QuotedStr(Edit.Text+'%'));
DataSet.Open;
Três salvas aos bons livros.
São o deleite dos sábios,
a educação dos ignorantes
e os verdadeiros feitos de nossa
raça: Os Seres Humanos
Vitor Luiz Redes
Redsystem Informática
- Original Message -
From: Cícerot
To: [EMAIL PROTECTED]
Sent: Wednesday, September 22, 2004 8:50 AM
Subject: RES: [delphi-br] Consulta
Lembro do meu primeiro curso de delphi. Tem um comando para ser executado
com ttable que eh o findnearest (algo assim). Ele se posiciona no registro
que tem o caracteer digitado.
Agora o Eduardo está certissimo. Seu sistema vai ficar muito lento.
Abraços
-Mensagem original-
De: fpsp2000 [mailto:[EMAIL PROTECTED]
Enviada em: terça-feira, 21 de setembro de 2004 23:45
Para: [EMAIL PROTECTED]
Assunto: [delphi-br] Consulta
Ola!
Quero fazer uma consulta por nome numa edit q busque assim q comecar
a digitar o cliente (pelas iniciais q comecei a digitar) q esta
armazenado numa StringGrid. Tentei usar na consulta o like mas nao
deu certo, pois preciso comecar a pegar pelas as inicias e nao pelo
nome todo.
Se alguem puder me ajudar,
Agradeco desde ja.
Fernanda.
--
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] Listar Tabelas do Banco
Ainda poderia ficar menor, assim: begin ADOConnection1.GetTableNames(ComboBox1.Items, False); end; Assumindo que ComboBox1 é um componente que exista no Form Atenciosamente, Felipe Guerço Oliveira - Original Message - From: Clodoaldo To: [EMAIL PROTECTED] Sent: Monday, September 20, 2004 8:37 PM Subject: Re: [delphi-br] Listar Tabelas do Banco Tenta com AdoConnection, eu estava usando access funcionou bem, acredito que venha funcionar com outros bancos. procedure TForm1.FormCreate(Sender: TObject); var SL: TStrings; index: Integer; begin SL := TStringList.Create; try ADOConnection1.GetTableNames(SL, False); for index := 0 to (SL.Count - 1) do begin ListBox1.Items.Add(sl[index]); end; finally SL.Free; end; end; isto levando se em conta que o AdoConnection esta conectado ao banco. Clodoaldo - Original Message - From: Raphael Fonseca To: Delphi-BR ; [EMAIL PROTECTED] ; [EMAIL PROTECTED] Cc: [EMAIL PROTECTED] ; Firebase Grupos ; [EMAIL PROTECTED] ; Delphi-Grupos Sent: Monday, September 20, 2004 4:38 PM Subject: [delphi-br] Listar Tabelas do Banco Caros Amigos da Lista Como faço para listar em um combobox todas as tabelas de um determinado banco Firebird. No aguardo. Raphael Fonseca -- 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] Chave primária
Olá. Acho que esta técnica não funciona; inclusive vai das problema se usado em ambiente de rede. Uma técnica que eu uso é criar uma tabela no banco de dados que guarda qual o Identificador e o último número gerado. Então no programa crio uma função onde eu passo qual o identificador que eu quero e a função atualiza a tabela do banco e me devolve o novo valor. Aí eu não tenho problemas com dois usuários incluindo ao mesmo tempo na rede, porque o ID é gerado no início do processo. Atenciosamente, Felipe Guerço Oliveira. - Original Message - From: Neto To: [EMAIL PROTECTED] Sent: Friday, September 17, 2004 4:35 PM Subject: Re: [delphi-br] Chave primária Marcelo, utilize a seguinte gambiarra: procedure TForm1.BitBtn1Click(sender: TOBject); var autoincremento: integer; begin if DataModule1.ADOtable1.RecordCount = 0 then begin DataModule1.ADOTable1.Insert; DataModule1.ADOTable1CAMPO_AUTOINC.value := 1; end else if DataModule1.ADOTable1.RecordCount 0 then begin DataModule1.ADOTable1.Last; autoincremento := DataModule1.ADOTable1CAMPO_AUTOINC.value; DataModule1.ADOTable1.insert; DataModule1.ADOTable1CAMPO_AUTOINC.value := autoincremento + 1; end; Neto MasterServ Serviços Ltda Brasília/DF - Original Message - From: Marcelo [EMAIL PROTECTED] To: lista-delphi [EMAIL PROTECTED]; Delphi-br [EMAIL PROTECTED]; delphi Lista [EMAIL PROTECTED] Sent: Friday, September 17, 2004 10:58 AM Subject: [delphi-br] Chave primária Pessoal, já tentei de tudo. Como vcs fazem pra incrementar a chave primária de uma tabela access, mas de forma que possa manilar esse numero para inserções em outras tabelas? Uso Delphi5 + access + ADO []´s Marcelo -- 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
