RES: [delphi-br] [CLIENTDATASET 3 TABELAS]
É bem provável que não. Atitudes como essas só mostram que você tem a inteligência de uma pedra manca. Entre no seu perfil, no yahoo. É só digitar o usuário e a senha, use o teclado (aquela coisa cheia de números e caracteres que provavelmente está a sua frente), você pode conferir o resultado das teclas que aperta no monitor. (aquela coisa brilhante que também está a sua frente) Entrou no perfil/ Deve aparecer um Oi otário na sua tela. Nessa mesma tela, tem um menu (aquela coisa cheia de botões) do lado esquerdo. Clique em Grupos (se não souber ler, procure uma escola). Na página de Grupos, aparecerá outro menu (explicação acima) entitulado Meus Grupos. Clique em gerenciar, o link ao lado do título Meus Grupos. Na tela que segue, clique em editar meus grupos. Os grupos nos quais você está inscrito aparecerão magicamente na sua tela. No final de cada linha existe uma caixa de checagem (um quadrado que quando clicado muda para um quadrado com um V). Marque as opções desejadas (não tente se matar por essa tela, não tem essa opção ainda) e depois, clique em Salvar (o botão azul). Esse é o caminho mais longo, mas se você não conseguir, exclua sua conta, procure o hospício mais próximo ou a universidade mais próxima e entregue-se para um estudo mais detalhado. Para complementar, ninguém aqui fez o yahoo (como já foi dito) e ninguém aprova a saída de membros do grupo, a entrada e saída dos membros é de total responsabilidade do... ... ... ... membro, claro. Se você realmente é desprovido de massa cefálica e está digitando através de uma criança de 5 anos, não se preocupe, ela é perfeitamente capaz de executar os procedimentos acima descritos. Tenha uma semana horrenda. Obrigado. _ De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de Leandro Nunes Enviada em: quarta-feira, 4 de agosto de 2010 12:31 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] [CLIENTDATASET 3 TABELAS] c acha que eu jah nau tentei isso o seu retardado! From: Claudiney Cogo Sent: Tuesday, August 03, 2010 9:39 AM To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Subject: RES: [delphi-br] [CLIENTDATASET 3 TABELAS] Moderador eu acredito que tenha sim, mas até agora tivemos apenas pessoas educadas no grupo e não foi necessário a intervenção dele. E também, para qualquer pessoa com um mínimo de conhecimento em informática, sair do grupo é muito fácil. Apenas entrar no seu perfil e clicar para sair. Tão fácil quando clicar em um botão. Mas isso pode ser uma tarefa muito árdua para pessoas que tenham limitações nessa área. Nós entendemos. Devo dizer que não sou moderador do grupo, apenas um simples usuário. Mas que em vários anos de grupo nunca vi nada parecido com isso. E não posso aceitar quieto. Se você está tentando sair do grupo, é porque entrou de alguma forma. Se soube entrar, como não sabe sair? É só pensar um pouco. E se achar mais fácil, leia a última linha deste e-mail.. tem um link escrito: SAIR DESTE GRUPO. Desculpe aos outros colegas de grupo por esta mensagem, mas sei que todos os que realmente estão aqui como eu por gostar do conteúdo que passa por aqui não consegue engolir uma situação dessas. Abraços a todos. _ Claudiney Cogo N2 Sistemas e Soluções em Informática Av. São Paulo, 172 - 15º Andar - Sala 1505 Fone/Fax: (44) 3029-6053 - Maringá - Paraná http://www.n2solutions.com.br/ www.n2solutions.com.br http://www.nfe.n2solutions.com.br/ www.nfe.n2solutions.com.br http://www.studion2.com.br/ www.studion2.com.br De: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br [mailto:delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br ] Em nome de Leandro Nunes Enviada em: quarta-feira, 4 de agosto de 2010 07:18 Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Assunto: Re: [delphi-br] [CLIENTDATASET 3 TABELAS] bando de filha da puta... arrombados... deixa eu sair desta merda de grupo To tentando sair desse inferno de grupo ja mandei e-mail pra todos os mails e nada. num tem moderador nessa merda. vo comeca a manda foto porno hein! kct -- From: Fabricio Colombo fabricio.colombo@gmail.com mailto:fabricio.colombo.mva%40gmail.com mailto:fabricio.colombo.mva%40gmail.com Sent: Friday, July 30, 2010 8:41 AM To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Subject: Re: [delphi-br] [CLIENTDATASET 3 TABELAS] Vc pode passar o where que retorna apenas 50 registros direto para a query. É o que faço aqui pra retornar apenas 1 registro, não uso o PacketRecord, pois o sql também é executado rapidamente por usar indices e retornar poucos dados. Em 27 de julho de 2010 09:36, Eny Urias enyur...@yahoo.com.br mailto:enyurias%40yahoo.com.br mailto:enyurias%40yahoo.com.br escreveu: Não quero mesmo trazer todos os registros do
Re: [delphi-br] Porblemas com acentuação
Pode ser idiota, mas a unica coisa que me veio a mente sao as configuracoes de teclado e linguagem. -- mens. original -- Assunto: Re: [delphi-br] Porblemas com acentuação De: Developer Marketing Rapido develo...@marketingrapido.com.br Data: 31/07/2010 22:17 Walter, a questao que nao é o meu executavel e sim o editor de codigo do proprio delphi Pablo Farias Analista de Sistemas pfar...@marketsistemas.com.br www.marketsistemas.com.br Em 31 de julho de 2010 20:14, Walter Chagas (Bol) wchag...@bol.com.brescreveu: Isto pode ser um problema com o código de pagina definido no seu sistema operacional. Pega seu executavel e roea ele em outra maquina pra ver se o erro se manifesta. []s Walter Alves Chagas Junior Belo Horizonte - MG - Brazil wchag...@bol.com.br wchagasj%40bol.com.br http://delphitocorporerm.blogspot.com/ MSN: whitesock...@hotmail.com whitesockets%40hotmail.com SKYPE: WalterChagasJr - Original Message - From: Desnvolvimento - Marketing Rápido develo...@marketingrapido.com.br developer%40marketingrapido.com.br To: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br; lista-del...@yahoogrupos.com.br lista-delphi%40yahoogrupos.com.br Sent: Saturday, July 31, 2010 11:24 AM Subject: [delphi-br] Porblemas com acentuação Ola Pessoal, estou com um problema no delphi 2010, aonde tudo que eu digito no código com acento ele faz isto por exemplo não = n~ao é = ´e O que será que esta causando isto? Abraços -- Pablo Farias Fone(81)9169.3339 develo...@marketingrapido.com.br developer%40marketingrapido.com.br [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
RES: [delphi-br] MySQL server has gone away
Lembrando que estruturas que trabalham online o tempo inteiro, devem
controlar as transações e conexões com o banco de dados de forma BEM
diferente de estruturas locais.
Talvez vocês estejam querendo resolver um problema que não existe.
Conforme um colega já disse, conecte no banco, faça a operação desejada,
desconecte. Se a operação envolver select, traga os registros em um
TClientDataSet e desconecte. É muito mais fácil do que procurar chifre em
cabeça de cavalo e gastar dinheiro com componente.
-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em
nome de Eduardo Silva dos Santos
Enviada em: segunda-feira, 5 de julho de 2010 21:41
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] MySQL server has gone away
Olá Levy, para que não seja exibida a mensagem da desconexão tem que
conficar no Evento OnConnectionLost do TMyConnection:
RetryMode := rmReconnectExecute;
Quando a Dll, não ha necessidade de nenhuma, o mydac conecta diretamente ao
servidor.
quanto a demora para gravação dos dados, não deveria acontecer, tem que ver
mais detalhes.. como a mesta sendo feita.. para determinar a causa.
Att,
...
Eduardo Silva dos Santos
DRD SISTEMAS
(27) 3218-4201
(27) 9961-7095
MSN: eduardo@gmail.com
Site: http://www.drdsistemas.com.br/
...
Em 5 de julho de 2010 20:52, Levy Pereira levypere...@yahoo.com escreveu:
Eduardo,
baixei o MyDAC e parece-me que vou ter que investir neste componente. A
conexão continua sendo perdida mas diferente do Zeos ela é restabelecida,
vou ver ainda com o tratar a mensagem de erro.
Ele carrega alguma .dll para não ter a obrigatoriedade de instalar o MySQL
Client?
Há demora na gravação dos dados, como não estou acostumado (ainda) com
MySQL não sei se estou com problema de código ou se é mesmo caracteristica
da conexão.
Grato,
Levy
From: Eduardo Silva dos Santos
eduardo@gmail.comeduardo.drd%40gmail.com
To: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br
Sent: Mon, July 5, 2010 5:57:59 PM
Subject: Re: [delphi-br] MySQL server has gone away
Levy, o mysql é exigente com a conexão, qualquer anormalidade e ele
derruba
a mesma.
Quanto eu usava zeos eu implementei uma rotina que reconectava
automaticamente caso a mesma fosse perdida.
eu não sei se isso foi implementado na versão atual do zeos. Vou tentar
achar a versão que fiz essa mudança e te passo, assim vc aplica ai..
Bom, mudando de zeos para MyDAC, não sei se você conhece, nele existe uma
teconologia que faz o mesmo processo, se a conexão cair, ele reconecta de
forma transparente.. caso não conheça, veja: www.devart.com/mydac
Att,
...
Eduardo Silva dos Santos
DRD SISTEMAS
(27) 3218-4201
(27) 9961-7095
MSN: eduardo@gmail.com eduardo.drd%40gmail.com
Site: http://www.drdsistemas.com.br/
...
Em 5 de julho de 2010 14:01, Levy Pereira
levypere...@yahoo.comlevypereira%40yahoo.com
escreveu:
Prezados amigos,
como um (por enquanto) iniciante com o MySQL estou apanhando, estou
usando
o ZEOS para conexão.
A conexão é instável. Muitas vezes procede normalmente as consultas,
atualizações ou inserções, em outras o fatal erro acontece e somente
volta a
conectar depois de sair e entrar no aplicativo.
Este erro acontece algumas vezes quando o aplicativo fica ativo sem
atividade.
Antes de começar qualquer procedimento checo se há conexão:
if BD.Conexao.Connected = false then BD.Conexao.Reconnect;
Depois o processo:
BD.Query01.Close;
BD.Query01.SQL.Clear;
BD.Query01.SQL.Add('start transaction');
BD.Query01.ExecSQL;
BD.Query01.Close;
BD.Query01.SQL.Clear;
BD.Query01.SQL.Add(
'insert into fornecedores ( cnpj, razaosocial, telefone,
contato,'+
'email ) values ( '+A01+','+A02+','+A03+','+A04+','+A05+')');
BD.Query01.ExecSQL;
BD.Query01.SQL.Clear;
MessageBox( Handle, 'Fornecedor adicionado com sucesso', 'Informação',
64
);
passou := True;
BD.Query01.SQL.Add('commit');
BD.Query01.ExecSQL;
BD.Query01.SQL.Clear;
BD.01.Refresh;
Grato pela ajuda!
Levy
[As partes desta mensagem que não continham texto foram removidas]
[As partes desta mensagem que não continham texto foram removidas]
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
[As partes desta mensagem que não continham texto foram removidas]
[As partes desta mensagem que não continham texto foram removidas]
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
RES: [delphi-br] [OFF Topic] Parâmetros no siste ma.
Eu utilizo uma string mesmo, bem grande. Na entrada de dados você faz a consistência. Aqui criamos um código mais fácil para cada parâmetro e uma função que retorna o valor de acordo com os parâmetros passados. Tipo: Preferência FIN_MOEDA Valor: R$ A função seria um esquema mais ou menos assim: Function GetPreferencia( Prefere : String; E outros parâmetros, como código da filial etc ) : String; Begin Faz o select de acordo com o Prefere. Result := Valor da preferência End; _ De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de Fábio Thomaz Enviada em: quinta-feira, 1 de julho de 2010 12:43 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] [OFF Topic] Parâmetros no sistema. Olá amigos do grupo, gostaria de uma sugestão para incluir parâmetros em meu sistema, atualmente tenho uma tabela onde tenho um campo para cada parâmetro, gostaria de saber dos amigos do grupo como fazem a parametrização, da forma que passei ou criam um cadastro de parâmetros, ou outra forma mais interessante. Estou querendo criar uma tabela de parâmetros do usuário, onde o usuário possa personalizar algumas coisas, a princípio pensei em criar um cadastro de parâmetros, mas não sei que tipo utilizar no campo parâmetro. Exemplo da idéia: CREATE TABLE PARAM_USUARIOS( ID_USER INTEGER NOT NULL, PARAM_NAME VARCHAR(40) NOT NULL, PARAM_VALUE ? (Não sei que tipo utilizar), CONSTRAINT PK_PARAM_USUARIOS PRIMARY KEY(ID_USER,PARAM_NAME) ); Desde já agradeço por sugestões, Fábio Thomaz [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
RES: Res: [delphi-br] Definindo Padrão - Herança d e Formulários
Outra possibilidade é criar funções e procedimentos genéricos, que recebam como parâmetros, nomes dos controles de data dos formulários. Mas em termos de produtividade, acho que o ideal mesmo é colocar os componentes na tela (como já disseram) e criar as funções de acordo com a telapai. Nos formulários herdados, é só fazer o select e adicionar os fields conforme você desejar. Aliás, o select poderia ser uma variável do formpai, por exemplo: Digamos que você tenha o componente CDS no formpai e a variável Select declarada. No evento de sua escolha do form herdado, você preencheria a variável Select e quando necessário, as funções e procedimentos do form pai utilizariam o valor da variável Select para trabalhar. Para melhorar mais ainda, a variável Select poderia ser uma propriedade do formpai, assim você poderia controlar quando os valores são inseridos na variável. E para melhorar mais ainda (e para finalizar também) a variável Select poderia estar inclusa em um record, assim você poderia criar mais variáveis, por exemplo: TCommandText = record FSelect, FWhere, FEtc : String; End; Uma função fictícia que trabalharia com o CDS: Procedure OpenIt; Begin If CDS.Active then CDS.Close( ); CDS.CommandText := Select + Where; Try CDS.Open( ) Except //Tratamento de Erros. End; End; _ De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de Jean Barreiros Enviada em: quinta-feira, 1 de julho de 2010 16:27 Para: delphi-br@yahoogrupos.com.br Assunto: Res: Res: [delphi-br] Definindo Padrão - Herança de Formulários POde continuar clicando duas vezes a arrastanto, não há problema. Jean Barreiros Programador/Web-Designer Delphi, C++, PHP, JavaScript FireBird/InterBase, MySql, SQLServer, PostGree, Oracle msn: delphij...@gmail.com mailto:delphijean%40gmail.com e-mail: delphij...@yahoo.com.br mailto:delphijean%40yahoo.com.br De: Rodrigo Rossi rdrg.ro...@gmail.com mailto:rdrg.rossi%40gmail.com Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Enviadas: Quinta-feira, 1 de Julho de 2010 15:39:58 Assunto: Re: Res: [delphi-br] Definindo Padrão - Herança de Formulários Kra... se de certo isso fecho... Mas eu to com uma dúvida, eu aprendi adicionar meu Edits no form da seguinte maneira: Clico duas vezes no meu dataSource que está na tela e pego os fields e arrasto para o form, ou seja, TDBEdits. Se eu colocar os DataWare no form modelo como vou fazer isso? Att. Rodrigo Rossi rdrg_ro...@hotmail.com mailto:rdrg_rossi%40hotmail.com (45) 9963-1897 Cascavel - PR On 07/01/2010 02:55 PM, Jean Barreiros wrote: Sim claro que tem como você não ficar reescrevendo todo código, basta você colocar todos os componentes Dataware no form modelo e tratar todos os comandos de inserção edicao e etc... Na propriedade DataSet do dataSource por exemplo. e não nomear os seus componentes tipo: CDSCliente, CDSFornecedor deixe-os como nomes padrões tipo: Cds(ClientDataSet), Qry(SQLQuery), Provider(DataSetProvider) e Ds(DataSource). espero ter ajudado. Jean Barreiros Programador/Web-Designer Delphi, C++, PHP, JavaScript FireBird/InterBase, MySql, SQLServer, PostGree, Oracle msn: delphij...@gmail.com mailto:delphijean%40gmail.com mailto:delphijean%40gmail.com e-mail: delphij...@yahoo.com.br mailto:delphijean%40yahoo.com.br mailto:delphijean%40yahoo.com.br De: Rodrigo Rossi rdrg.ro...@gmail.com mailto:rdrg.rossi%40gmail.com mailto:rdrg.rossi%40gmail.com Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Enviadas: Quinta-feira, 1 de Julho de 2010 14:32:58 Assunto: [delphi-br] Definindo Padrão - Herança de Formulários Boa tarde. Estou desenvolvendo uma aplicação Win32 com Delphi 2010 e preciso de algumas orientações referente a reaproveitamento de código. Tenho um form modelo, onde lá tenho alguns métodos juntamente com a parte visual bem definida. Quando vou criar um outro form Cadastro de Clientes eu gero uma herança deste form modelo (inherited form) e neste form de cadastro de Clientes coloco meu componentes de banco de dados, SqlQuery, DataSetProvider, ClientDataSet, DataSource e implemento os métodos dos botões inserir, alterar, proximo, anterior etc O problema é que quando faço outra tela Cadastro de Fornecedores herdando do form modelo (inherited form) tenho que adicionar os componentes do BD novamente e copiar e colar os métodos de todos os botões do cadastro de cliente para o cadastro de fornecedores pois vai ser a mesma coisa. Exeiste a possibilidade de nao ter que ficar copiando e colando o código e todos os forms? Não queria fazer desta mandeira pois se um dia eu quiser alterar o comportamento do método Incluir tenho que passar nos meu 999 forms para
RES: [delphi-br] Sistema de atividades
Como ser acessível de qualquer lugar do Brasil sem estar conectado a rede mundial (Internet)? temos duas formas Que software nada, imagina a negada baixando arquivo, instalando, atualizando, blablablablablabla, ta loco. _ De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de Jean Barreiros Enviada em: terça-feira, 29 de junho de 2010 20:01 Para: delphi-br@yahoogrupos.com.br Assunto: Res: [delphi-br] Sistema de atividades Jean Barreiros Programador/Web-Designer Delphi, C++, PHP, JavaScript FireBird/InterBase, MySql, SQLServer, PostGree, Oracle msn: delphij...@gmail.com mailto:delphijean%40gmail.com e-mail: delphij...@yahoo.com.br mailto:delphijean%40yahoo.com.br - Mensagem encaminhada De: Jean Barreiros delphij...@yahoo.com.br mailto:delphijean%40yahoo.com.br Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Enviadas: Terça-feira, 29 de Junho de 2010 19:50:35 Assunto: Res: [delphi-br] Sistema de atividades Pessoal leva a mal não mas, vamos analisar o caso dele e vejamos que loucura. Ele diz: - Mas este sistema tem que ser acessivel de qualquer lugar do Brasil. Como ser acessível de qualquer lugar do Brasil sem estar conectado a rede mundial (Internet)? temos duas formas - Sistemas Win32 Usando DataSanp; Se optarmos pela primeira opção como acessar a base? Ele também diz: - Nosso servidor nao pode ser acessado de fora - regra de IP - Sistemas Web em linguagem como PHP, C#.net, asp e ect; Se optarmos pela segunda opção como alimentar as bases de dados Eu diria que se ele estiver usando uma solução n-tier como DataSnap que dar acesso usando umas linguagem quase que milagrosa chamda: JSON veja se não resolve. Jean Barreiros Programador/Web-Designer Delphi, C++, PHP, JavaScript FireBird/InterBase, MySql, SQLServer, PostGree, Oracle msn: delphij...@gmail.com mailto:delphijean%40gmail.com e-mail: delphij...@yahoo.com.br mailto:delphijean%40yahoo.com.br De: Murilo Cunha mcscu...@yahoo.com.br mailto:mcscunha%40yahoo.com.br Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Enviadas: Terça-feira, 29 de Junho de 2010 16:59:42 Assunto: [delphi-br] Sistema de atividades Pessoal, Estou com uma duvida. Eu quero fazer um mural de atividades. Neste mural eu colocaria todas as atividades que o pessoal da empresa deveria executar. Por exemplo: Func. A - Fazer o fechamento do cliente A Func. B - Encerrar participacao na ativ. Y Func. B - Gerar relat. de fazendas e enviar para Fulano ... Entre outros itens (status de conclusao, data termino, inicio, comentarios...) Mas este sistema tem que ser acessivel de qualquer lugar do Brasil. Nosso servidor nao pode ser acessado de fora - regra de IP De que forma os senhores me indicam fazer esta aplicacao? Em Delphi ou Site na Web? OBS.: Se houver algum soft q tem esta funcionalidade, por favor, podem indicar Obrigado MuriloCunha [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] Como esconder algumas msgs de erro?
O AppEvents está na paleta additional, não é necessário utilizar o da Jedi, ao menos para interceptar exceções. _ De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de Dirlei Enviada em: sexta-feira, 18 de junho de 2010 16:23 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Como esconder algumas msgs de erro? Paulo, Em Debugger Options/Language Exceptions há uma lista Exception types to ignore. Você pode adicionar a essa lista os tipos de exceção que deseja que o debugger ignore. Agora, esconder exceções durante a execução (sem try..except), dá um pouco mais de trabalho. Você pode criar um interceptador para o evendo OnException do objeto Application e tratar o erro pelo tipo dele ou pelo conteúdo (menos aconselável). O Jedi tem um componente que facilita interceptar o evento OnException, o TAppEvents. Sobre essa questão dos MaskEdits, particularmente, prefiro não obrigar o o usuário a preencher corretamente o campo antes de sair dele. Valido, mas permito que ele mude o foco. Só não permito a confirmação da operação até que o conteúdo esteja correto. []'s -- Dirlei Dionísio Novo artigo: O estágio House do bom programador http://MaisQueBomCodigo.blogspot.com Em Sex, 2010-06-18 às 14:14 -0300, Paulo Coutinho escreveu: Olá, Gostaria de saber como fazer para esconder as caixas de mensagens que aparecem enquanto você está debugando ou rodando a aplicação direto pelo delphi, tais como: *1- Cannot focus* a disabled or invisible window 2- Outras que estão dentro do TRY e que mesmo assim exibem caixa de alerta com o erro ao invés de ir para o console. 3 - No maskedit ao sair do componente(perder foco) ele lança uma mensagem em inglês pedindo para apertar o ESC para retornar para o valor anterior, como mudar a mensagem ou desabilita-la voltando automaticamente para o valor anterior? -- Atenciosamente, Paulo Coutinho. Blog: www.prsolucoes.com/blog Site: www.prsolucoes.com Msn: pa...@prsolucoes.com mailto:paulo%40prsolucoes.com Skype: paulo.prsolucoes Consultor Certificado Bindows [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
RES: Res: Res: [delphi-br] Arrastando arquivos do windows para dentro de um listbox
Entrando de gaiato na história aí...
Não seria mais simples utilizar aqueles componentes da Win 31? Coloca os
componentes na tela, inclusive o fileslistbox (ou o nome que seja) e
trabalha com os arquivos pelo index desse componente. Se o caso é só
renomear...
-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em
nome de Adriano Santos
Enviada em: quinta-feira, 17 de junho de 2010 15:44
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: Res: Res: [delphi-br] Arrastando arquivos do windows para
dentro de um listbox
Beleza,
Meu, vou publicar no blog hoje a noite do meu drag-and-drop, não sei se
vai ajudar.
Se não tô enganado tenho um exemplo também de como arrastar e soltar de fora
de uma aplicação Delphi para dentro dela, tipo qdo fazemos no Word ou
Outlook por exemplo. Acho que tenho isso. Se tiver tento adaptar ao que
precisa blz?
--
Adriano Santos
http://twitter.com/asrsantos
www.delphitodelphi.blogspot.com
2010/6/16 Roni Rodrigo ronirodr...@yahoo.com.br
aahh..
qto ao icone circular do listbox... verifica a propriedade DragMode..
não lembro qual tem que ser, acho q é dmAutomatic.. mas enfim, da uma
testada ai... hehe
o/
Em 16/06/2010 13:05, Roni Rodrigo escreveu:
mas então cara... aquele exemplo ta bem mastigado...
(
http://www.planetadelphi.com.br/dica/6768/arrastar-e-soltar-arquivos-sobre-s
ua-aplica%C3%A7%C3%A3o
)
O listbox vc ja tem no form né?
a seção private está na declaração do teu form, lá onde tem: Form1 =
class(TForm) etc após as declarações dos seus componentes tem a
palara reservada PRIVATE. Logo abaixo dela vc coloca essa linha:
procedure WMDropFiles(var Msg: TMessage); message wm_DropFiles;
isso vai interceptar as mensagens de arrasto (Drag end drop) do
windows..
aí vc vai nos eventos OnCreate e OnDestroy do form
No Create:
DragAcceptFiles(Handle, true);
isso diz que seu aplicativo vai aceitar que algo seja arrastado sobre
ele
no Destroy:
DragAcceptFiles(Handle, false);
isso desativa o arrasto
ai vc só precisa dizer o que fazer quando arrastar os arquivos no seu
form, no seu caso, adicioná-los ao listbox...
o código está bem comentado, acho que da pra entender fácil...
se não der certo procura outra rotina no google.. tem várias... mas não
acredito que tenha maneira mais simples que essa
procedure TForm1.WMDropFiles(var Msg: TMessage);
var
I, FileCount, BufferSize: word;
Drop: HDROP;
FileName: string;
Pt: TPoint;
RctListBox, RctMemo: TRect;
begin
{ Pega o manipulador (handle) da operação
arrastar e soltar (drag-and-drop) }
Drop := Msg.wParam;
{ Pega a quantidade de arquivos soltos (dropped) }
FileCount := DragQueryFile(Drop, $, nil, 0);
{ Se nenhum arquivo... }
if FileCount = 0 then begin
ShowMessage('Nenhum arquivo.');
Exit;
end;
{ Pega o retângulo do ListBox }
RctListBox := ListBox1.BoundsRect;
{ Pega o retângulo do Memo }
RctMemo := Memo1.BoundsRect;
{ Se soltou fora da área cliente do form... }
if not DragQueryPoint(Drop, Pt) then
ShowMessage('Arquivos soltos fora da área cliente do form')
{ Se soltou na área do ListBox... }
else if PtInRect(RctListBox, Pt) then begin
{ Pega todos os nomes de arquivos e coloca no ListBox }
for I := 0 to FileCount -1 do begin
{ Obtém o comprimento necessário para o nome do arquivo,
sem contar o caractere nulo do fim da string. }
BufferSize := DragQueryFile(Drop, I, nil, 0);
SetLength(FileName, BufferSize +1); { O +1 é p/ nulo do fim da string }
if DragQueryFile(Drop, I, PChar(FileName), BufferSize+1) = BufferSize
then
ListBox1.Items.Add(string(PChar(FileName)))
else
ShowMessage('Erro ao obter nome do arquivo.');
end;
{ Se soltou na área do Memo... }
end else if PtInRect(RctMemo, Pt) then begin
if FileCount 1 then
ShowMessage('Será mostrado apenas o conteúdo do primeiro arquivo.');
{ Obtém o comprimento necessário para o nome do arquivo,
sem contar o caractere nulo do fim da string.
O segundo parâmetro (zero) indica o primeiro arquivo da lista }
BufferSize := DragQueryFile(Drop, 0, nil, 0);
SetLength(FileName, BufferSize +1); { O +1 é p/ nulo do fim da string }
if DragQueryFile(Drop, 0, PChar(FileName), BufferSize+1) = BufferSize
then
Memo1.Lines.LoadFromFile(string(PChar(FileName)))
else
ShowMessage('Erro ao obter nome do arquivo.');
end;
Msg.Result := 0;
end;
Em 14/06/2010 20:01, Andre Luiz Stivanatto escreveu:
então meu listbox ja esta com essa opção abilitada :
AllowMultiSelect pra
permitir selecionar múltiplos arquivos
é que para abrir 4.783 arquivos que tenho no pc demora muito tempo,
porisso preciso de arrrastar os arquivos para dentro do listbox é
muito mais facil fazer isso, pois eu abro a pasta que tem os 4.783
arquivos, vou em editar e mando selecionar tudo de uma vez depois, é
so aeu arrastar tudo para dentro do listbox.
não preciso de ter o memo, so
RES: [delphi-br] Re: Qual melhor tipo de arquivo de dados para pequenos sistemas
Por que usaria o paradox Rubem? _ De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de Rubem Rocha Enviada em: segunda-feira, 7 de junho de 2010 13:12 Para: delphi-br@yahoogrupos.com.br Assunto: RES: [delphi-br] Re: Qual melhor tipo de arquivo de dados para pequenos sistemas Prioridade: Alta Se uma aplicação que terá um registro pequeno de dados, usaria XML ou Palhadox (digo, Paradox!). Se for uma aplicação que pode necessitar de algum tipo de replicação ou contenção massificada de dados, optaria pelo SQL Server Express 200x ou FireBird. Sds. -Mensagem original- De: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br [mailto:delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br ] Em nome de Jhosef Marks Enviada em: segunda-feira, 7 de junho de 2010 12:01 Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Assunto: Re: [delphi-br] Re: Qual melhor tipo de arquivo de dados para pequenos sistemas No caso de usar o Firebird embacado, para matar o esquema de uma unica conexao é soh fazer uma aplicação multicamada, os usuários se conectam no servidor que por sua vez se conecta no banco (uma unica conexao no banco). Quanto ao SQLite, já ouvi falar muito bem, só fica o esquema de ter que usar componentes de terceiro ou desenvolver seu proprio drive de conexão. Att, Jhosef Marks de Carvalho Blog: http://www.jhosefmarks.com.br Jesus está voltando E se o meu povo, que se chama pelo meu nome, se humilhar, e orar, e buscar a minha face e se converter dos seus maus caminhos, então eu ouvirei dos céus, e perdoarei os seus pecados, e sararei a sua terra. (2 Cr 7:14) Em 5 de junho de 2010 11:01, arossi75 anderson.ro...@gmail.com mailto:anderson.rossi%40gmail.com escreveu: Use o Firebird embedded. Vc não instala nada apenas copia agumas dlls e arquivos para o raiz de seu exec. O arquivo do BD é o mesmo usado pela versão servidor. Caso um dia seu sistema comece a ser acessado por mais pessoas , basta apenas instalar a versão servidor e alterar a forma de acesso em seu sistema. Porém a versão embedded do Firebird é MONOUSUÁRIO!!, ou seja, somente dá acesso local ao banco de dados, não adianta fazer aquela velha gambiarra de compartilhar uma pasta. [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] Re: Qual melhor tipo de arquivo de dados para pequenos sistemas
Se uma aplicação que terá um registro pequeno de dados, usaria XML ou Palhadox (digo, Paradox!). Sei lá, isso não me parece um motivo. Perguntei para entender o motivo de não utilizar o firebird mesmo em uma aplicação pequena. Não foi uma pergunta com tom ofensivo e acho que a resposta merecia ser um pouco melhor do que essa. Ou melhor, ou silêncio, tanto faz. _ De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de Rubem Rocha Enviada em: segunda-feira, 7 de junho de 2010 14:25 Para: delphi-br@yahoogrupos.com.br Assunto: RES: [delphi-br] Re: Qual melhor tipo de arquivo de dados para pequenos sistemas Prioridade: Alta Pelos motivos que expus. Sds. De: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br [mailto:delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br ] Em nome de Vitor Yahoo Enviada em: segunda-feira, 7 de junho de 2010 13:26 Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Assunto: RES: [delphi-br] Re: Qual melhor tipo de arquivo de dados para pequenos sistemas Por que usaria o paradox Rubem? _ De: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br [mailto:delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br ] Em nome de Rubem Rocha Enviada em: segunda-feira, 7 de junho de 2010 13:12 Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Assunto: RES: [delphi-br] Re: Qual melhor tipo de arquivo de dados para pequenos sistemas Prioridade: Alta Se uma aplicação que terá um registro pequeno de dados, usaria XML ou Palhadox (digo, Paradox!). Se for uma aplicação que pode necessitar de algum tipo de replicação ou contenção massificada de dados, optaria pelo SQL Server Express 200x ou FireBird. Sds. -Mensagem original- De: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br [mailto:delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br ] Em nome de Jhosef Marks Enviada em: segunda-feira, 7 de junho de 2010 12:01 Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Assunto: Re: [delphi-br] Re: Qual melhor tipo de arquivo de dados para pequenos sistemas No caso de usar o Firebird embacado, para matar o esquema de uma unica conexao é soh fazer uma aplicação multicamada, os usuários se conectam no servidor que por sua vez se conecta no banco (uma unica conexao no banco). Quanto ao SQLite, já ouvi falar muito bem, só fica o esquema de ter que usar componentes de terceiro ou desenvolver seu proprio drive de conexão. Att, Jhosef Marks de Carvalho Blog: http://www.jhosefmarks.com.br Jesus está voltando E se o meu povo, que se chama pelo meu nome, se humilhar, e orar, e buscar a minha face e se converter dos seus maus caminhos, então eu ouvirei dos céus, e perdoarei os seus pecados, e sararei a sua terra. (2 Cr 7:14) Em 5 de junho de 2010 11:01, arossi75 anderson.ro...@gmail.com mailto:anderson.rossi%40gmail.com mailto:anderson.rossi%40gmail.com mailto:anderson.rossi%40gmail.com escreveu: Use o Firebird embedded. Vc não instala nada apenas copia agumas dlls e arquivos para o raiz de seu exec. O arquivo do BD é o mesmo usado pela versão servidor. Caso um dia seu sistema comece a ser acessado por mais pessoas , basta apenas instalar a versão servidor e alterar a forma de acesso em seu sistema. Porém a versão embedded do Firebird é MONOUSUÁRIO!!, ou seja, somente dá acesso local ao banco de dados, não adianta fazer aquela velha gambiarra de compartilhar uma pasta. [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] TcxGrid
Cara, é muito mais fácil você trabalhar com um TClientDataSet virtual. Tem um exemplo na pasta demo (não tenho certeza) que ensina a trabalhar com o TcxGrid sem DataSource, mas ainda acho que o DataSet virtual resolveria mais facilmente a questão, apesar de não saber qual é a questão, hehe. _ De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de Murilo Cunha Enviada em: quinta-feira, 22 de abril de 2010 15:27 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] TcxGrid Pessoal, Quem manja de mexer com o componente TcxGrid, do pacote da DevExpress?? Nao estou conseguindo inserir dados nele. Nao quero liga-lo a um DataSource, quero inserir dados como se fosse um TStringGrid. Ha como fazer isso via programacao? Se souberem me passe o e-mail para enviar um sisteminha de testes para me ajudar a trabalhar com este componente. Obrigado. MuriloCunha [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] Problema no ADOTable com Delphi 2010
if Operacao='incluir' then
begin
frmFornecedor.ADOTable1.Append;
frmFornecedor.ADOTable1Codigo.Value := Codigo;
frmFornecedor.PageControl1.ActivePageIndex :=
end
coloque o post no botão gravar.
_
De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em
nome de Eduardo
Enviada em: quarta-feira, 21 de abril de 2010 16:48
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] Problema no ADOTable com Delphi 2010
Boa tarde, Pessoal
Montei um formulário com um PageControl e 3 TabSheets, na primeira coloquei
um DBGrid, DBNavigator(invisivel) e criei um botão incluir, quando clicado
ele seta a TabSheet2, onde eu tenho vários DBEdit's, nessa hora eu crio um
código (tenho uma função SOMA1) e preencho o DBEdit do código, seto o foco
para o próximo campo e continuo preenchendo os demais, quando clico no botão
gravar, dá um erro no banco pq não é permitido gravar nulo. Como eu devo
atribuir esse valor?
Olha o código aqui...
Tem um monte de linhas que eram testes para tentar fazer funcionar...
unit uFornecedor;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Buttons, Grids, DBGrids, ExtCtrls, ComCtrls, DBCtrls,
Mask,
DB, ADODB;
type
TfrmFornecedor = class(TForm)
PageControl1: TPageControl;
TabSheet1: TTabSheet;
TabSheet2: TTabSheet;
TabSheet3: TTabSheet;
Panel1: TPanel;
Panel2: TPanel;
DBGrid1: TDBGrid;
Panel3: TPanel;
Excluir: TBitBtn;
Alterar: TBitBtn;
Incluir: TBitBtn;
ComboBox1: TComboBox;
Edit1: TEdit;
BitBtn4: TBitBtn;
Label1: TLabel;
Label2: TLabel;
Panel4: TPanel;
Memo1: TMemo;
DataSource1: TDataSource;
ADOConnection1: TADOConnection;
ADOTable1: TADOTable;
DBNavigator1: TDBNavigator;
ADOTable1Filial: TStringField;
ADOTable1Codigo: TStringField;
ADOTable1Razao: TStringField;
ADOTable1CNPJ: TStringField;
ADOTable1IE: TStringField;
ADOTable1Endereco: TStringField;
ADOTable1Complemento: TStringField;
ADOTable1Bairro: TStringField;
ADOTable1Municipio: TStringField;
ADOTable1Estado: TStringField;
ADOTable1CEP: TStringField;
ADOTable1Email: TStringField;
ADOTable1Obs: TMemoField;
Label3: TLabel;
DBEdit1: TDBEdit;
Label4: TLabel;
DBEdit2: TDBEdit;
Label5: TLabel;
DBEdit3: TDBEdit;
Label6: TLabel;
DBEdit4: TDBEdit;
Label7: TLabel;
DBEdit5: TDBEdit;
Label8: TLabel;
DBEdit6: TDBEdit;
Label9: TLabel;
DBEdit7: TDBEdit;
Label10: TLabel;
DBEdit8: TDBEdit;
Label11: TLabel;
DBEdit9: TDBEdit;
Label12: TLabel;
DBEdit10: TDBEdit;
Label13: TLabel;
DBEdit11: TDBEdit;
Label14: TLabel;
DBMemo1: TDBMemo;
BitBtn1: TBitBtn;
procedure IncluirClick(Sender: TObject);
procedure FormKeyPress(Sender: TObject; var Key: Char);
procedure DBMemo1Exit(Sender: TObject);
procedure BitBtn1Click(Sender: TObject);
// O erro é aqui !!!
//Function TfrmFornecedor.Soma1(Num:Integer):String;
// O erro é aqui !!!
private
{ Private declarations }
public
{ Public declarations }
end;
var
frmFornecedor: TfrmFornecedor;
Operacao,Codigo: String;
implementation
{$R *.dfm}
Function Soma1(Num:integer):String;
//Var Result : String;
Begin
// O Tamanho do numero de saida sempre será 9 digitos
Num := Num + 1;
if Length(IntToStr(Num))=1 then Result := ''+IntToStr(Num);
if Length(IntToStr(Num))=2 then Result := '000'+IntToStr(Num);
if Length(IntToStr(Num))=3 then Result := '00'+IntToStr(Num);
if Length(IntToStr(Num))=4 then Result := '0'+IntToStr(Num);
if Length(IntToStr(Num))=5 then Result := ''+IntToStr(Num);
if Length(IntToStr(Num))=6 then Result := '000'+IntToStr(Num);
if Length(IntToStr(Num))=7 then Result := '00'+IntToStr(Num);
if Length(IntToStr(Num))=8 then Result := '0'+IntToStr(Num);
if Length(IntToStr(Num))=9 then Result := IntToStr(Num);
if Length(IntToStr(Num))9 then
Begin
ShowMessage('Erro função SOMA1');
Result := '*'
End;
End;
procedure TfrmFornecedor.BitBtn1Click(Sender: TObject);
begin
if Operacao='incluir' then
begin
frmFornecedor.ADOTable1Codigo.Value := Codigo;
frmFornecedor.ADOTable1.Append;
frmFornecedor.ADOTable1.Post;
frmFornecedor.PageControl1.ActivePageIndex := 0;
end;
end;
procedure TfrmFornecedor.DBMemo1Exit(Sender: TObject);
begin
frmFornecedor.BitBtn1.Enabled := True;
end;
procedure TfrmFornecedor.FormKeyPress(Sender: TObject; var Key: Char);
begin
//verifica se a tecla pressionada é a tecla ENTER, conhecida pelo Delphi
como #13
If key = #13 then
Begin
//se for, passa o foco para o próximo campo, zerando o valor da variável Key
Key:= #0;
Perform(Wm_NextDlgCtl,0,0);
end;
end;
procedure TfrmFornecedor.IncluirClick(Sender: TObject);
Var CodFor: integer;
begin
Operacao := 'incluir';
// Inclusão de Fornecedor
//**
// dar foco a página do registro
frmFornecedor.PageControl1.ActivePageIndex := 1;
frmFornecedor.BitBtn1.Enabled := false;
// Calcular o código do novo registro
if frmFornecedor.ADOTable1.IsEmpty then
Begin
CodFor := 0;
frmFornecedor.DBEdit1.Text :=
RES: [delphi-br] [ OFF ? ] Multiplos campos OR n a clásula Where
Select Referencia, Apelido, Descricao From Descritivos Where UPPER( Referencia ) = UPPER( :ENTRADA ) or UPPER( Apelido ) = UPPER( :ENTRADA ) or UPPER( Descricao ) = UPPER( :Entrada ) _ De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de Ricardo César Cardoso Enviada em: terça-feira, 6 de abril de 2010 16:54 Cc: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] [ OFF ? ] Multiplos campos OR na clásula Where Boa tarde senhores. Não estou conseguindo implementar uma query SQL com o Firebird 1.5 e gostaria da sua ajuda. Tenho uma situação onde preciso procurar informação mas ela pode estar em qualquer qualquer um entre três campos e o texto sempre será exato o que acho que descarta o uso de LIKE ou CONTAINS. Exemplo: Tabela Descritivos Campos: Referencia | Apelido | Descricao Tentei: Select Referencia, Apelido, Descricao From Descritivos Where Referencia = :ENTRADA or Apelido = :ENTRADA or Descricao = :Entrada Grato, Ricardo 1) Evite escrever suas mensagens usando somente LETRAS MAIÚSCULAS. 2) Revise o texto de sua mensagem. Uma mensagem bem escrita é melhor compreendida. 3) 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.maisbusca http://br.maisbuscados.yahoo.com dos.yahoo.com [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] Duplicar registro no firebird
Esses campos DB estão ligados ao cds_TCM? Se sim, tente
cds_TCM.DisableControls( )
antes do insert, mas é mais recomendado que você trabalhe com outros
controles, TEdit por exemplo, para esse tipo de operação.
Ah, coloque cds_TCM.EnableControls( ) depois do for.
_
De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em
nome de Ralp Alves Bezerra
Enviada em: terça-feira, 16 de março de 2010 07:32
Para: delphi-br@yahoogrupos.com.br
Assunto: RES: [delphi-br] Duplicar registro no firebird
Pois é, já havia feito desta maneira mas continua não gravando em banco.
Estou fazendo desta forma:
procedure TfrmDigitalizaTCM.AdvGlassButton1Click(Sender: TObject);
begin
btnSalvarTCM.Click;
DM.cds_TCM_A.Open;
Try
For Docs := 1 to StrToInt(QtdPag.Text) do
begin
DM.cds_TCM_A.Insert;
DM.cds_TCM_ACODIGO_ENTIDADE.Text:=CodMunicipio.Text;
DM.cds_TCM_ACOD_UNID_ADMINISTRATIVA.Text:=DBText1.Caption;
DM.cds_TCM_ASIGLA_DOCUMENTO.Text:=TipoDoc.Text;
DM.cds_TCM_AEXERCICIO.Text:=DBEdit1.Text;
DM.cds_TCM_AUNIDADE_GESTORA.Text:=DBText2.Caption;
DM.cds_TCM_A.Post;
end;
finally
DM.cds_TCM_A.ApplyUpdates(0);
ShowMessage('Inicie a digitalização de '+QtdPag.Text+' página(s) do
documento:'+#13+''+RxDBLookupCombo1.Text+'');
end;
end;
Abraços.
Ralp Alves
De: delphi...@yahoogrup mailto:delphi-br%40yahoogrupos.com.br os.com.br
[mailto:delphi...@yahoogrup mailto:delphi-br%40yahoogrupos.com.br
os.com.br] Em
nome de Rubem Nascimento da Rocha
Enviada em: sexta-feira, 12 de março de 2010 16:01
Para: delphi-br
Assunto: RE: [delphi-br] Duplicar registro no firebird
Prioridade: Alta
Faça o posto para cada registro criado, e ao final use ApplyUdpates(0). Com
ApplyUpdates(-1), se houverem erros, os mesmos não serão notificados à
aplicação.
Sds.
To: delphi...@yahoogrup mailto:delphi-br%40yahoogrupos.com.br os.com.br
mailto:delphi-br%40yahoogrupos.com.br
From: ral...@gmail. mailto:ralprd%40gmail.com com
mailto:ralprd%40gmail.com
Date: Fri, 12 Mar 2010 07:20:01 -0300
Subject: [delphi-br] Duplicar registro no firebird
Bom dia.
Venho mais uma vez, pedir a ajuda dos nobres colegas.
Tenho um sistema em Delphi 7 e Firebird 2.1 para digitalização de documentos
com duas tabelas devidamente ligadas (master detail).
Existe um campo chamado QtdPag (Edit) onde o usuário vai informar a
quantidade de documentos a digitalizar.
Com base nesta quantidade digitada, queria que fosse gravado em banco a
quantidade de registros informado no campo QtdPag.
Na verdade, os registros seriam duplicados e salvos em banco de acordo com a
quantidade informada.
Estou tentando desta maneira abaixo:
procedure TfrmDigitalizaTCM.AdvGlassButton1Click(Sender: TObject);
begin
btnSalvarTCM.Click;
DM.cds_TCM_A.Open;
Try
For Docs := 1 to StrToInt(QtdPag.Text) do
begin
DM.cds_TCM_A.Insert;
DM.cds_TCM_ACODIGO_ENTIDADE.Text:=CodMunicipio.Text;
DM.cds_TCM_ACOD_UNID_ADMINISTRATIVA.Text:=DBText1.Caption;
DM.cds_TCM_ASIGLA_DOCUMENTO.Text:=TipoDoc.Text;
DM.cds_TCM_AEXERCICIO.Text:=DBEdit1.Text;
DM.cds_TCM_AUNIDADE_GESTORA.Text:=DBText2.Caption;
DM.cds_TCM_A.Post;
DM.cds_TCM_A.ApplyUpdates(-1);
end;
finally
ShowMessage('Inicie a digitalização de '+QtdPag.Text+' página(s) do
documento:'+#13+''+RxDBLookupCombo1.Text+'');
end;
end;
Porém, se informar 5 no campo QtdPag é mostrado no dbgrid os 5 registros,
mas no banco é gravado somente 1 registro.
Como poderia resolver este problema?
Abraços.
Ralp Alves Bezerra
__
Não deixe rastros ao navegar na Internet. Instale Grátis o Internet Explorer
8 agora.
http://go.microsoft http://go.microsoft.com/?linkid=9707132
.com/?linkid=9707132
[As partes desta mensagem que não continham texto foram removidas]
[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] Re: [lista-delphi] Apagar c onteúdo de Arquivo TXT
Tem um jeito que eu considero mais tranqüilo ainda:
Var
VStr : TStrings;
Begin
VStr := TStringList.Create( );
VStr.LoadFromFile( arquivo.txt );
VStr.Text := ;
VStr.SaveToFile( arquivo.txt );
VStr.Free( )
End;
_
De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em
nome de Marcos Abreu Ferreira
Enviada em: quarta-feira, 3 de março de 2010 11:21
Para: lista-del...@yahoogrupos.com.br
Cc: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] Re: [lista-delphi] Apagar conteúdo de Arquivo TXT
Augusto,
tenta assim...
*var*
* arq: TextFile;*
* txtArq: String;*
*begin*
* txtArq := 'C:\windows\ERP\log_sistema.text';*
* if FileExists(txtArq) then*
* begin
*
* AssignFile(arq, txtArq);*
* Rewrite(arq);*
* WriteLn(arq, '');*
* CloseFile(arq);*
* end;*
*end;*
Att,
Marcos A. Ferreira
São Paulo - Brasil
(+55) 11 9309-3936
MSN: maferre...@hotmail. mailto:maferreira%40hotmail.it it
Google Talk: maf.decisiva
Skype: m_abreuferreira
LinkedIn: http://www.linkedin http://www.linkedin.com/in/maferreira/
.com/in/maferreira/
Esta mensagem pode conter informação confidencial e/ou privilegiada. Se você
não for o destinatário ou a pessoa autorizada a receber esta mensagem, não
pode usar, copiar, ou divulgar as informações nela contidas ou tomar
qualquer ação baseada nestas informações. Se você recebeu esta mensagem por
engano, por favor, avise imediatamente o remetente, respondendo o email e em
seguida, apague-o.
Agradecemos sua cooperação.
This message may contain confidential and/or privileged information. If you
are not the addressee or authorized to receive this for the addressee, you
must not use, copy, disclose or take any action based on this message or any
information herein. If you have received this message in error, please,
advise the sender immediately by reply e-mail and delete this message.
Thank you for your cooperation.
Antes de imprimir pense em sua responsabilidade e compromisso com o MEIO
AMBIENTE.
ENVIRONMENT commitment and responsibility, think about Before Printing.
Em 3 de março de 2010 10:33, Augusto Bondan Nascimento
augustobondan@ mailto:augustobondan%40gmail.com gmail.com escreveu:
Estou tendo dificuldades em apagar o conteúdo de um arquivo texto.
por exemplo:
AssignFile(f,'c:\windows\ERP\log_sistema.text');
if fileExists('C:\windows\ERP\log_sistema.text') then
begin
Append(f)
rewrite(F);
erase(f);
closefile(F);
end;
O código não está com todos esses comandos, mas gostaria de saber qual
deles
consegue apagar o que está escrito no arquivo.
Não quero deletar o arquivo, apenas o conteúdo. Achei que o comando
erase(f) conseguiria, mas não funciona.
Atenciosamente;
[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] Qual o melhor maneira de Cancelar a Nota Fiscal?
cStat pra cancelamento tem que ser igual a 101.
_
De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em
nome de ademir.mossane
Enviada em: quarta-feira, 24 de fevereiro de 2010 17:02
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] Qual o melhor maneira de Cancelar a Nota Fiscal?
Cancelamento de Notas tem 2 maneiras
Exemplo usando a Chave e Protocolo da NFe:
ACBrNFe1.WebServices.Cancelamento.NFeChave := chNFe;
ACBrNFe1.WebServices.Cancelamento.Protocolo := Protocolo;
ACBrNFe1.WebServices.Cancelamento.Justificativa := AJustificativa;
Dessa forma, tem que fechar a nota carregada antes de cancelar.
Após o envio do cancelamento, o componente salva o xml do cancelamento
automáticamente ou tenho que salvar enviando algum comando:
if ACBrNFe.WebServices.Cancelamento.cStat = 101 then begin
{ Autorizado o cancelamento. .. }
end;
--
Exemplo carregando um XML
ACBrNFe1.NotasFiscais.Clear;
ACBrNFe1.NotasFiscais.Add.XML.LoadFromFile(cPathArquivo);
if not(InputQuery('WebServices Cancelamento', 'Justificativa', vAux)) then
exit;
ACBrNFe1.Cancelamento(vAux);
O ACBrNFe1.NotasFiscais.Items[0].NFe.procNFe.cStat
é alterado, ou permanece como 100?
--
Minha Dúvida é a seguinte:
Qual o melhor maneira de Cancelar a Nota Fiscal?
Quais os comandos pra salvar se existir, pois quando gerar
o Speed esse cancelamento será obrigatório informar...
Desde já Agradeço a quem puder me ajudar
Abraços
Ademir Mossane
[As partes desta mensagem que não continham texto foram removidas]
Re: RES: [delphi-br] gravar autoincremento no firebird 2.0
Atribua zero para o campo em questao no beforepost. -- mens. original -- Assunto: Re: RES: [delphi-br] gravar autoincremento no firebird 2.0 De: Rubens Antunes rubensantu...@yahoo.com.br Data: 21/02/2010 11:07 Realmente não há, mas você pode criar uma trigger aliada a um generator para conseguir o auto incremento, mas pelo que entendi seu problema está no delphi, com o seu dataset selecioando abra o field editor e selecione o campo desejado e desmarque a propriedade Required, assim o Delphi irá gravar sem o campo desejado, mas sugiro a você uma outra maneira, buscar o valor do campo generator através do evento OnNewRecord, não sei se no ADO existe este evento, dar uma olhada ai. qualquer dúvida manda aí, Abraço Rubens Antunes Autor do Livro - Delphi Faça Uma Aplicação Comercial Blog http://rubensantunes.zip.net/ --- Em dom, 21/2/10, Claudiney - Listas claudiney-lis...@n2solutions.com.br escreveu: De: Claudiney - Listas claudiney-lis...@n2solutions.com.br Assunto: RES: [delphi-br] gravar autoincremento no firebird 2.0 Para: delphi-br@yahoogrupos.com.br Data: Domingo, 21 de Fevereiro de 2010, 12:08 Bom dia Alex No Firebird/Interbase não existe um campo autoincremento da maneira como os outros bancos tem. Aqui é necessário utilizar um generator para gerar os números automáticos. Talves o seu problema esteja por aí. Abaixo segue um link com um exemplo bem prático sobre isso: http://www.planetad elphi.com. br/download/ 4229/Autoincreme nto%20no% 20firebird Abraço _ Claudiney Cogo N2 Sistemas e Soluções em Informática Av. São Paulo, 172 - 15º Andar - Sala 1505 Fone/Fax: (44) 3029-6053 - Maringá - Paraná http://www.n2soluti ons.com.br/ www.n2solutions. com.br http://www.nfe. n2solutions. com.br/ www.nfe.n2solutions .com.br http://www.studion2 .com.br/ www.studion2. com.br De: delphi...@yahoogrup os.com.br [mailto:delphi...@yahoogrup os.com.br] Em nome de asandro1501 Enviada em: sábado, 20 de fevereiro de 2010 15:04 Para: delphi...@yahoogrup os.com.br Assunto: [delphi-br] gravar autoincremento no firebird 2.0 Olá pessoal Instalei o firebird 2.0 para testar, mas não consigo gravar os dados na tabela, estou utilizando o odbc para conexao. O erro é por causa da chave primaria que é um auntoincremento, como ele não gera a chave antes de salvar me dá o erro. Pra salvar tentei utilizar o método tradicional da paleta ADO dataset.post mas não deu. Procurei em tudo quanto for lugar mas não achei como fazer isso. Alguém pode me socorrer? Alex Silva [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]
RES: [delphi-br] Delete no Detail
Você só não respondeu a pergunta dele... Dar applyupdates no detail não funga? _ De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de Marcelo Luiz Onhate Enviada em: terça-feira, 2 de fevereiro de 2010 16:47 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Delete no Detail Não precisa dar o .Post para dar o .ApplyUpdates... quando der o .ApplyUpdate ele já dá o .Post em tudo que for necessário... e outra, se vc der um .ApplyUpdate e não alterou nada ele simplesmente não vai fazer nada... Sabes a diferença do Post e ApplyUpdate? Post confirma somente no Client, ou seja, na memória local... e o ApplyUpdate gera sql e envia as alterações para o Banco... Em 02/02/2010 15:16, magnunoliveira escreveu: Fala galera ... Seguinte, to com um master/detail com DBX e CDS. Quando excluo um item no detail, uso cds_Detail.Delete; porem pra gravar qualquer alteracao uso: if (cds_Master.State in [dsInsert, dsEdit]) then begin cds_Master.Post; cds_Master.ApplyUpdates(0); end; o que ocorre é que ao excluir um item do detail, o state do Master nao entra em dsEdit, nem dsInsert; se eu chamar diretamente o applyupdates, da a mensagem que o cds_Master nao está em modo de edicao. entao a duvida é: como fazer para comitar as exclusoes no detail ? vlw [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] FormatDateTime
QuotedStr( FormatDateTime( mm/dd/, DATA ) ); _ De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de Elazar Dornelles Ceza Enviada em: quarta-feira, 27 de janeiro de 2010 08:28 Para: delphi-br@yahoogrupos.com.br Assunto: Res: [delphi-br] FormatDateTime Sempre que vou montar um sql na unha, uso 'dd.mm.' e nunca tive problemas, na verdade usso este formato para inclusive fazer selects/insert/updates no IBExperto ou IBConsole... Atenc; Elazar Dornelles Ceza De: Evaldo evaldoavelar@ mailto:evaldoavelar%40yahoo.com.br yahoo.com.br Para: delphi...@yahoogrup mailto:delphi-br%40yahoogrupos.com.br os.com.br Enviadas: Terça-feira, 19 de Janeiro de 2010 8:36:22 Assunto: Re: [delphi-br] FormatDateTime Tentei assim também mas o da o mesmo problema. _ _ __ From: CRM Desenvolvimentos crmdesenvolvimentos @gmail.com To: delphi...@yahoogrup os.com.br Sent: Mon, January 18, 2010 3:51:42 PM Subject: Re: [delphi-br] FormatDateTime Porque não usa assim: *FormatDateTime( 'mm/dd/' ,date);* é mais simples. __ Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbusca http://br.maisbuscados.yahoo.com dos.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] OFF... NAT
http://www.guiadohardware.net/comunidade/500g-dlink/177897/ Não uso DLink, mas nunca tive problemas com o singleclick. Quando estiver em outra máquina, é só ajustar o nat e pronto. -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de Fernando Bueno Enviada em: sexta-feira, 22 de janeiro de 2010 08:19 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] OFF... NAT Bom dia ! Cara quando não preciso transferir arquivos uso o CrossLoop e quando preciso mando via ftp é assim que tenho feito porque tem varios modelos de modem e tem alguns que se ressetam ai tem que configurar tudo denovo. Um abraço. 2010/1/21 Régis Bender regis...@terra.com.br Boa tarde, estou com um problema pra acertar minha conexão remota. Estou usando o ultra vnc(single click), ai eu configurei pro endereço regissk8.no-ip.org:15000, mas tenho que configurar a NAT do meu roteador e não estou conseguindo. Utilizo o Dlink 500g II. Alguém utiliza este mesmo programa e poderia me ajudar a criar essas regras? sds Bender Desenvolvimento de Sistemas e Serviços Contábeis (Régis) (51) 98470699 Novo Hamburgo/RS MSN: regis...@terra.com.br regissk8%40terra.com.br ''A vida é um milhão de novos começos movidos pelo desafio sempre novo de viver e fazer todo sonho brilhar! [As partes desta mensagem que não continham texto foram removidas] -- Fernando P. Bueno.'. 54 8145 6625 Caxias do Sul - RS - Brasil Oh! Quão bom e quão suave é que os irmãos vivam em união ..! (Salmos 133:1). [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
RES: [delphi-br] [APLICACAO OFF-LINE]
100% os binários do clientdataset também. Muito simples de utilizar, sem crise. Vitor. _ De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de Bruno Lichot Enviada em: terça-feira, 19 de janeiro de 2010 15:06 Para: delphi-br@yahoogrupos.com.br Assunto: RE: [delphi-br] [APLICACAO OFF-LINE] Ola pessoal , preciso desenvolver uma aplicacao para vendas off-line, ou seja o representante comercial vai até o cliente, digita o pedido e mais tarde transmite o pedido a fabrica. vou preciar criar uma base de dados no cliente. o que fica melhor ?? --binarios do clientdataset dados em txt ? xml ? banco(qual). qual componete devo utilizar para fazer a comunicacao/sincronizacao dos dados ?? --DataSnap sem nenhuma duvida se alguem algum material para estudar , algumas dicas .. o que nao fazer .. --http://cc.embarcade http://cc.embarcadero.com/author/795118 ro.com/author/795118 --http://www.yahoogru http://www.yahoogrupos.com.br/group/nddv pos.com.br/group/nddv att. Marcio Click here https://www. https://www.mailcontroller.altohiway.com/sr/7VabMuUReGrTndxI mailcontroller.altohiway.com/sr/7VabMuUReGrTndxI!oX7Up4RmTWEAj2hIPAGCwfUkYrM ziPwCZeGZFOzQIlXLpimr8xudnTOzjv1lqOECv!Swg== to report this email as spam. This message has been scanned for viruses by MailController http://www.MailCont http://www.MailController.altohiway.com/ roller.altohiway.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] ACBr NF-e - Nota fiscal modelo 1
Procure pelo grupo projeto cooperar nfe ou projeto_cooperar_nfe no yahoo groups. É o grupo do ACBR. Só pra constar, você rodou o demo pelo bds06? Funcionou tranqüilo? Se sim, provavelmente você está esquecendo de preencher alguma propriedade do componente. Vitor. _ De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de Thiago Menon Enviada em: terça-feira, 19 de janeiro de 2010 15:11 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] ACBr NF-e - Nota fiscal modelo 1 Olá, Estou com problemas para utilizar o componente ACbrNf-e. Estou utilizando o BDS 2006. Ao tentar enviar uma nota pelo componente recebo a mensagem dizendo Rejeição: Falha no Schema XML da NF-e. Alguém sabe como eu posso ter um erro menos genérico? por onde eu posso procurar para saber sobre esse erro? Muito Obrigado pela atenção e ajuda de todos Thiago Menon msn: thime...@hotmail. mailto:thimenon%40hotmail.com com __ Faça ligações para outros computadores com o novo Yahoo! Messenger http://br.beta. http://br.beta.messenger.yahoo.com/ messenger.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] FormatDateTime
Var VData, VFormato : String; Begin VFormato := dd/mm/; VData := FormatDateTime( FORMATO, NOW ); ShowMessage( VData ) End; _ De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de EmbarcaDelphi Enviada em: terça-feira, 19 de janeiro de 2010 11:58 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] FormatDateTime Tenta assim: FormatDateTime( 'mm/dd/',now); Em 19/01/2010 07:36, Evaldo escreveu: Tentei assim também mas o da o mesmo problema. From: CRM Desenvolvimentos crmdesenvolvimentos mailto:crmdesenvolvimentos%40gmail.com @gmail.com mailto:crmdesenvolvimentos%40gmail.com To: delphi...@yahoogrup mailto:delphi-br%40yahoogrupos.com.br os.com.br mailto:delphi-br%40yahoogrupos.com.br Sent: Mon, January 18, 2010 3:51:42 PM Subject: Re: [delphi-br] FormatDateTime Porque não usa assim: *FormatDateTime( 'mm/dd/' ,date);* é mais simples. [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] Ajuda com Filtro para abrir formulario..
Opa, tudo certo?
Seguinte, você está chamando o formulário 2 com ShowModal, isso quer dizer
que sistema irá esperar os processos serem executados no formulário 2, para
depois passar pelo código que existe abaixo dele.
Faça assim e deve funcionar ok.
Var
EdtMedico :Integer;
EdtData:String;
begin
FrmConsultaMEdico.ADOQuery1.Close;
frmConsultaMedico.ADOQuery1.Parameters.ParamValues['EdtMedico']
:=Edmedico.Text;
frmConsultaMedico.ADOQuery1.Parameters.ParamValues['EdtData'] :=
EdData.Text;
frmConsultaMedico.ADOQuery1.Open;
FrmConsultaMedico.ShowModal;
Aconselho você a criar parâmetros no formulário 2, para evitar código
manipulando o formulário de outro formulário, por exemplo:
No formulário 2:
Public
VMedido : Integer;
VData : TDateTime;
No FormShow (ou em qualquer outro evento do segundo formulário):
FrmConsultaMEdico.ADOQuery1.Close;
frmConsultaMedico.ADOQuery1.Parameters.ParamValues['EdtMedico'] :=VMedico;
frmConsultaMedico.ADOQuery1.Parameters.ParamValues['EdtData'] := VData;
frmConsultaMedico.ADOQuery1.Open;
No primeiro formulário, o código ficaria reduzido a:
Var
EdtMedico :Integer;
EdtData:String;
begin
FrmConsultaMedico.VMedido := EdtMedido;
FrmConsultaMedico.VData := EdtData; (aqui o edtdata deve seguir um typecast
ou ser do tipo date)
FrmConsultaMedico.ShowModal;
Quanto a segunda duvida:
Não existe nenhum tipo de enablecontrols/disablecontrols no
FrmModMedicoConsulta né? Tente fechar e abrir novamente o dataset, caso o
resultado seja positivo poste aqui para que possamos melhorar isso.
Até mais.
Vitor.
_
De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em
nome de dssmoura
Enviada em: quinta-feira, 14 de janeiro de 2010 21:36
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] Ajuda com Filtro para abrir formulario..
Boa noite senhores, me desculpe fazer duas perguntas mas eu estou precisando
de uma grande ajuda,
1- Tenho uma aplicação de filtro de agenda medica onde tem um form inicial
onde e informdo o nome do medico
através de um dbedit onde e informado o nome do medico e um Edit que e
informado a data, e um botão que chama
um formulário com um grid com as consultas do dia, após chamar a primeira
vez o grid vem em branco apos fechar
e chamar a segunda vez pelo botão ele abre com a consulta, o codigo do botão
e o seguinte:
procedure TFrmCons.SpeedButton1Click(Sender: TObject);
Var
EdtMedico :Integer;
EdtData:String;
begin
FrmConsultaMedico.ShowModal;
FrmConsultaMEdico.ADOQuery1.Close;
frmConsultaMedico.ADOQuery1.Parameters.ParamValues['EdtMedico']
:=Edmedico.Text;
frmConsultaMedico.ADOQuery1.Parameters.ParamValues['EdtData'] :=
EdData.Text;
frmConsultaMedico.ADOQuery1.Open;
end;
2 - Neste mesmo Grid inseri um função no evento OnDbClick, para chamar o
formulário de Prontuário medico, após
click duplo ele abre o form com o registro selecionado no grid, mas se fecho
o formulario e seleciono o
registro ele abre com o mesmo selecionado anteriormente o código e o
seguinte:
procedure TFrmConsultamedico.DBGrid1DblClick(Sender: TObject);
begin
DadosMedico.AdConsulta1.Locate('Medico',AdoQuery1.fieldbyname('codigo').asIn
teger,[]);
FrmModMedicoConsulta.Showmodal;
end;
Como devo fazer nestes casos ?
Desde já agradeço a atenção de todos.
Danilo Moura
[As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] Fluxo de Formulário - Intraweb
Form1.BringToFront( ); _ De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de Marcelo Moacir Florindo Enviada em: quinta-feira, 7 de janeiro de 2010 11:12 Para: delphi-br@yahoogrupos.com.br; i...@yahoogrupos.com.br Assunto: [delphi-br] Fluxo de Formulário - Intraweb Colegas, Tenho o formulário 1 que chama o formulário 2 e este chama o formulário 3 Estou querendo voltar do formulário 3 para o formulário 1, fazendo assim: formulario1.show; porém, na compilação ele não aceita, só se eu cria-lo novamente. Como proceder? Att, -- Marcelo Moacir Florindo Analista/Desenvolvedor http://www.gestaote http://www.gestaotec.com.br c.com.br [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] Fluxo de Formulário - Intraweb
Ou falei besteira, esqueci que é intraweb, só trabalhei com isso uma vez e odiei na verdade. Desculpem-me. _ De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de Vitor Yahoo Enviada em: quinta-feira, 7 de janeiro de 2010 11:17 Para: delphi-br@yahoogrupos.com.br Assunto: RES: [delphi-br] Fluxo de Formulário - Intraweb Form1.BringToFront( ); _ De: delphi...@yahoogrup mailto:delphi-br%40yahoogrupos.com.br os.com.br [mailto:delphi...@yahoogrup mailto:delphi-br%40yahoogrupos.com.br os.com.br] Em nome de Marcelo Moacir Florindo Enviada em: quinta-feira, 7 de janeiro de 2010 11:12 Para: delphi...@yahoogrup mailto:delphi-br%40yahoogrupos.com.br os.com.br; i...@yahoogrupos. mailto:iwbr%40yahoogrupos.com.br com.br Assunto: [delphi-br] Fluxo de Formulário - Intraweb Colegas, Tenho o formulário 1 que chama o formulário 2 e este chama o formulário 3 Estou querendo voltar do formulário 3 para o formulário 1, fazendo assim: formulario1.show; porém, na compilação ele não aceita, só se eu cria-lo novamente. Como proceder? Att, -- Marcelo Moacir Florindo Analista/Desenvolvedor http://www.gestaote http://www.gestaote http://www.gestaotec.com.br c.com.br c.com.br [As partes desta mensagem que não continham texto foram removidas] [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] DELPHI 2005 + CRYSTAL REPORTS XI (WIN32)
Tem um link para o formulário de download na página que você passou mesmo: HYPERLINK http://www.businessobjects.com/products/reporting/crystalreports/vcl/downlo ad.aspApply to download the VCL now - To download either version of the VCL, fill in this form and provide your Crystal Reports registration number. To obtain a registration number, HYPERLINK http://www.businessobjects.com/register/content.aspregister Crystal Reports. Tem que ver a versão que você tem aí do crystal antes né... _ De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Paulo Pontes Enviada em: quarta-feira, 2 de abril de 2008 17:24 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] DELPHI 2005 + CRYSTAL REPORTS XI (WIN32) Vitor, encontrei no site link ( HYPERLINK http://www.businessobjects.com/products/reporting/crystalreports/vcl/defaul t.asphttp://www.business-objects.com/-products/-reporting/-crystalreports/- vcl/default.-asp) apenas para delphi 7... você tem algum link com os arquivos da VCL? Obrigado! 2008/4/2 Vitor Yahoo HYPERLINK mailto:vredesredsystem%40yahoo.com.br[EMAIL PROTECTED]: O Crystal possui uma vcl para acesso, procure por VCL Crystal Reports, para delphi 2005, veja no site da Business Objects que você vai achar, é bem mais fácil do que mexer com esse activeX. Vitor. _ De: HYPERLINK mailto:delphi-br%40yahoogrupos.com.br[EMAIL PROTECTED] delphi-br%40yahoog-rupos.com.-br [mailto: HYPERLINK mailto:delphi-br%40yahoogrupos.com.br[EMAIL PROTECTED] delphi-br%40yahoog-rupos.com.-br] Em nome de Paulo Pontes Enviada em: quarta-feira, 2 de abril de 2008 13:20 Para: HYPERLINK mailto:delphi-br%40yahoogrupos.com.br[EMAIL PROTECTED] delphi-br%40yahoog-rupos.com.-br Assunto: Re: [delphi-br] DELPHI 2005 + CRYSTAL REPORTS XI (WIN32) João Paulo, consegui instalar o componente 'CrystalActiveXRepo--rtViewer'--, não sei se estou no caminho certo... através dele consegui abrir um arquivo '.rpt' utilizando o seguinte código... var oApp, oRpt: Variant; begin oApp := CreateOleObject(--'CrystalRuntime-.-Application'--); oRpt := oApp.OpenReport(--'C:\Report1.--rpt', 1); CrystalActiveXRepor--tViewer1.--ReportSource := oRpt; CrystalActiveXRepor--tViewer1.--ViewReport; end; mas acho que assim eu obrigo o usuário a ter o Crystal Reports instalado na máquina, o que não posso fazer... sabe outro forma de utilizar esse componente, ou devo utilizar outro componente? valeu! 2008/4/2 Açaí HYPERLINK mailto:joaopaulo.-jpo%40gmail.-com joaopaulo.jpo%-2540gmail.-com [EMAIL PROTECTED]-: Olá. Verifique se vc não está usando a versão do crystal report para web. Caso esteja com a versão win32 então vc precisa importar um activex do crystal report para o seu Delphi. Em 01/04/08, Paulo Pontes HYPERLINK mailto:pontespaulo-%40gmail.-com pontespaulo%-2540gmail.-com[EMAIL PROTECTED] gmail.com pontespaulo%--40gmail.-com- escreveu: fala galera, como faço para rodar um relatório do Crystal no Delphi 2005 Win32... ou só é possível mesmo com WinForms... valeu! [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] No virus found in this incoming message. Checked by AVG. Version: 7.5.519 / Virus Database: 269.22.4/1355 - Release Date: 1/4/2008 17:37 No virus found in this outgoing message. Checked by AVG. Version: 7.5.519 / Virus Database: 269.22.4/1355 - Release Date: 1/4/2008 17:37 [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] No virus found in this incoming message. Checked by AVG. Version: 7.5.519 / Virus Database: 269.22.4/1355 - Release Date: 1/4/2008 17:37 No virus found in this outgoing message. Checked by AVG. Version: 7.5.519 / Virus Database: 269.22.4/1355 - Release Date: 1/4/2008 17:37 [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] DELPHI 2005 + CRYSTAL REPORTS XI (WIN32)
O Crystal possui uma vcl para acesso, procure por VCL Crystal Reports, para delphi 2005, veja no site da Business Objects que você vai achar, é bem mais fácil do que mexer com esse activeX. Vitor. _ De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Paulo Pontes Enviada em: quarta-feira, 2 de abril de 2008 13:20 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] DELPHI 2005 + CRYSTAL REPORTS XI (WIN32) João Paulo, consegui instalar o componente 'CrystalActiveXRepo-rtViewer'-, não sei se estou no caminho certo... através dele consegui abrir um arquivo '.rpt' utilizando o seguinte código... var oApp, oRpt: Variant; begin oApp := CreateOleObject(-'CrystalRuntime.-Application'-); oRpt := oApp.OpenReport(-'C:\Report1.-rpt', 1); CrystalActiveXRepor-tViewer1.-ReportSource := oRpt; CrystalActiveXRepor-tViewer1.-ViewReport; end; mas acho que assim eu obrigo o usuário a ter o Crystal Reports instalado na máquina, o que não posso fazer... sabe outro forma de utilizar esse componente, ou devo utilizar outro componente? valeu! 2008/4/2 Açaí HYPERLINK mailto:joaopaulo.jpo%40gmail.com[EMAIL PROTECTED]: Olá. Verifique se vc não está usando a versão do crystal report para web. Caso esteja com a versão win32 então vc precisa importar um activex do crystal report para o seu Delphi. Em 01/04/08, Paulo Pontes HYPERLINK mailto:pontespaulo%40gmail.com[EMAIL PROTECTED] pontespaulo%-40gmail.com- escreveu: fala galera, como faço para rodar um relatório do Crystal no Delphi 2005 Win32... ou só é possível mesmo com WinForms... valeu! [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] No virus found in this incoming message. Checked by AVG. Version: 7.5.519 / Virus Database: 269.22.4/1355 - Release Date: 1/4/2008 17:37 No virus found in this outgoing message. Checked by AVG. Version: 7.5.519 / Virus Database: 269.22.4/1355 - Release Date: 1/4/2008 17:37 [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] Datamodules
Não é problema de legalidade não, o TDataModule apresenta esses problemas mesmo, eu já tive quase todos eles... _ De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Sérgio T. Uetanabaro Enviada em: sexta-feira, 28 de março de 2008 16:53 Para: delphi-br@yahoogrupos.com.br Assunto: RES: [delphi-br] Datamodules O delphi está atualizado e é legalizado. []´s Sérgio _ De: HYPERLINK mailto:delphi-br%40yahoogrupos.com.br[EMAIL PROTECTED] [mailto:HYPERLINK mailto:delphi-br%40yahoogrupos.com.br[EMAIL PROTECTED] Em nome de Jhosef Marks Enviada em: sexta-feira, 28 de março de 2008 15:57 Para: HYPERLINK mailto:delphi-br%40yahoogrupos.com.br[EMAIL PROTECTED] Assunto: Re: [delphi-br] Datamodules Nunca tive problemas com isso, seu Delphi eh original??? Já viu se tem alguma atualização q corrige issu??? Só pra saber, pq o uso dos datamodules é uma prática muito comum e incentivada para desenvolvimento de aplicações. Vlw... Em 28/03/08, Sérgio T. Uetanabaro HYPERLINK mailto:suka%-40allbras.-com.br[EMAIL PROTECTED] escreveu: To começando a fazer isso tbem. No começo era tudo lindo ... visual e integrado com a IDE mas agora a casa ta caindo. []´s Sergio Uetanabaro _ De: HYPERLINK mailto:delphi--br%40yahoogrupos-.com.brHYPERLINK mailto:delphi-br%40yahoogrup-os.com.br[EMAIL PROTECTED] delphi-br%40yahoog--rupos.com.--br [mailto: HYPERLINK mailto:delphi--br%40yahoogrupos-.com.brHYPERLINK mailto:delphi-br%40yahoogrup-os.com.br[EMAIL PROTECTED] delphi-br%40yahoog--rupos.com.--br] Em nome de Joao Morais Enviada em: sexta-feira, 28 de março de 2008 15:24 Para: HYPERLINK mailto:delphi--br%40yahoogrupos-.com.brHYPERLINK mailto:delphi-br%40yahoogrup-os.com.br[EMAIL PROTECTED] delphi-br%40yahoog--rupos.com.--br Assunto: Re: [delphi-br] Datamodules Sérgio T. Uetanabaro wrote: Agora no delphi 2007 existe um bug ainda mais chato e que decidi banir o uso de datamodules de minhas aplicações Por essas e outras que dou preferência a instanciar no braço do que confiar no datamodule. -- Joao Morais No virus found in this incoming message. Checked by AVG. Version: 7.5.519 / Virus Database: 269.22.1/1347 - Release Date: 27/03/2008 19:15 No virus found in this outgoing message. Checked by AVG. Version: 7.5.519 / Virus Database: 269.22.1/1347 - Release Date: 27/03/2008 19:15 [As partes desta mensagem que não continham texto foram removidas] -- Jhosef Marks de Carvalho Delphi Developer HYPERLINK HYPERLINK http://groups.google.com/group/soumaisdelphihttp://groups.-google.com/-gro up/soumaisdel-phiHYPERLINK http://groups.-google.com/-grohttp://groups.--google.com/--gro up/soumaisdel--phi [As partes desta mensagem que não continham texto foram removidas] No virus found in this incoming message. Checked by AVG. Version: 7.5.519 / Virus Database: 269.22.1/1347 - Release Date: 27/03/2008 19:15 No virus found in this outgoing message. Checked by AVG. Version: 7.5.519 / Virus Database: 269.22.1/1347 - Release Date: 27/03/2008 19:15 [As partes desta mensagem que não continham texto foram removidas] No virus found in this incoming message. Checked by AVG. Version: 7.5.519 / Virus Database: 269.22.1/1348 - Release Date: 28/3/2008 10:58 No virus found in this outgoing message. Checked by AVG. Version: 7.5.519 / Virus Database: 269.22.1/1348 - Release Date: 28/3/2008 10:58 [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] Uso do TSampleDataSet em relatórios.
A única limitação so TSimpleDataSet que eu já me deparei é quanto a herança de formulários... dá access violation pra tudo quanto é lado. Vitor. _ De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Ricardo Lima Enviada em: quarta-feira, 26 de março de 2008 11:35 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Uso do TSampleDataSet em relatórios. Pessoal sei que não é recomnendado utilizar o TSampleDataSet para gravação de dados, estou pensando em usar com relatórios onde são apénas consultas e diminui consideravelmente a quantidade de componentes, teria algum problema em utilziar? Outra coisa será que é possivel que a CodeGear tire esse componente em uma versão futura do Delphi? Obrigado a todos. At. Ricardo [As partes desta mensagem que não continham texto foram removidas]
