[delphi-br] Perda de Conexão com Servidor
Bom dia amigos, Possuo um sistema em uma rede com 9 clientes e 1 servidor. Utilizo Delphi 7, Firebird 1.5 e MDO para conectar ao banco. O caso é que acho que os computadores estão perdendo a conexão com o Servidor, o que causa um erro no meu Sistema, aparecendo a famosa tela: Este aplicativo executou uma operação ilegal e será fechado aí aparece o fechar e você pode clicar pro resto da sua vida que não fecha. Conclusão: tem que reiniciar o computador. Verifiquei que é perda de conexão pq se eu abro o Sistema em Cliente, vou e desconecto o Servidor da rede, no Cliente dá este erro. Sei que o ideal seria a rede funcionar perfeita, mas eu só dou assistencia no Sistema e não na rede. Então vai a questão: Como eu detecto essa desconexão com o Servidor e trato este erro que é gerado no sistema, para que o Usuário não precise reiniciar a máquina toda vez? Desde já agradeço, Marcos Antonio Campos Jordão'' ___ Yahoo! Acesso Grátis - Internet rápida e grátis. Instale o discador agora! http://br.acesso.yahoo.com/ -- 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
[delphi-br] ReportBuilder para Excel
Olá amigos, Alguém pode me dizer se tem como exportar um Relatório do Report Builder para uma planilha do Microsoft Excel? Desde já agradeço, Marcos Antonio Campos Jordão'' Yahoo! Acesso Grátis - Internet rápida e grátis. Instale o discador agora! http://br.acesso.yahoo.com/ -- 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: RES: [delphi-br] ReportBuilder para Excel
Que naba heim... US$ 50,00 Será que não tem outro jeito? --- Rubem Rocha [EMAIL PROTECTED] wrote: - Só usando uma biblioteca de devices extra chamada TExtraDevices, mas ela é paga! (US$)! Site do fabricante: www.waler.com []s -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Marcos Jordao Enviada em: segunda-feira, 25 de abril de 2005 13:17 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] ReportBuilder para Excel Olá amigos, Alguém pode me dizer se tem como exportar um Relatório do Report Builder para uma planilha do Microsoft Excel? Desde já agradeço, Marcos Antonio Campos Jordão'' Yahoo! Acesso Grátis - Internet rápida e grátis. Instale o discador agora! http://br.acesso.yahoo.com/ -- 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 -- No virus found in this incoming message. Checked by AVG Anti-Virus. Version: 7.0.308 / Virus Database: 266.10.2 - Release Date: 21/04/2005 -- No virus found in this outgoing message. Checked by AVG Anti-Virus. Version: 7.0.308 / Virus Database: 266.10.2 - Release Date: 21/04/2005 * Esta mensagem, incluindo os seus anexos, contém informações confidenciais destinadas a indivíduo e propósito específicos, e é protegida por lei. Caso você não seja o citado indivíduo, deve apagá-la imediatamente. É terminantemente proibida a utilização, acesso, cópia ou divulgação não autorizada das informações presentes neste email. As informações contidas nesta mensagem e em seus anexos são de responsabilidade de seu autor, não representando idéias, opiniões, pensamentos ou qualquer forma de posicionamento por parte da Fundação Desembargador Paulo Feitoza. The information contained in this communication is confidential, is law protected, and is intended only for the business use of the addressee. If you have received this communication in error, please immediately delete it. It's forbidden the unauthorized use, access, copy or disclose of the information contained in this communication. The content of this message is responsibility of the author, and does not represent ideas, opinions, thoughts or any kind of statement of Fundação Desembargador Paulo Feitoza. -- 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: Satilde;o Paulo Rio de Janeiro CuritibaPorto AlegreBelo Horizonte Brasiacute;lia - 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!. Yahoo! Acesso Grátis - Internet rápida e grátis. Instale o discador agora! http://br.acesso.yahoo.com/ -- 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] Controlar Licença
Você tem que definir se seus usuários vão ser
usuários ou hackers.
Esse sistema de licença funciona para usuarios normais
que não se interessarão em fraudar. Para casos mais
complexas recomendo o uso de algum componente
comercial com essa função.
Marcos A. C. Jordão ''
--- [EMAIL PROTECTED] escreveu:
-
Aí é que está o problema. Neste Sistema em nenhum caso
a Data Atual é importante.
- Original Message -
From: Gabriel Ferrarini
To: delphi-br@yahoogrupos.com.br
Sent: Tuesday, March 15, 2005 4:59 PM
Subject: Re: [delphi-br] Controlar Licença
Creio que se isso acontecer o sistema será, em
partes, inútil para o cliente pois grande parte dos
processamentos e geração de relatórios se baseia em
datas, principalmente Contas a Pagar e Contas a
Receber.
Gabriel.
- Original Message -
From: [EMAIL PROTECTED]
To: delphi-br@yahoogrupos.com.br
Sent: Tuesday, March 15, 2005 4:35 PM
Subject: Re: [delphi-br] Controlar Licença
Mas existe um problema.
Supondo que o vencimento da licença seja em
31/03/2005 e se o usuário sempre mantiver a data do
sistema em 30/03/2005 não vai bloquear...
- Original Message -
From: Marcos Jordao
To: delphi-br@yahoogrupos.com.br
Sent: Tuesday, March 15, 2005 1:35 PM
Subject: Re: [delphi-br] Controlar Licença
Amigo, eu controlo da seguinte maneira:
Tenho uma tabela no banco onde armazeno: Ultimo
Uso,
Codigo de Uso e Serial do HD.
Esse Código de Uso é gerado por um algoritmo que
eu
criei que gera um número serial onde está
contido uma
data. Tipo assim... eu informo uma data aí ele
vai
realizando operações matemáticas e concatenação
com
strings nos números da data. Com o processo
inverso eu
obtenho uma data de tal serial.
Antes do primeiro uso eu crio um serial e com um
sisteminha de Registro coloco na tabela, junto
com o
serial do HD e a primeira data de uso.
Na abertura do sistema, antes de tudo eu
verifico o
serial do HD (função que você obtém fácil em
sites),
se for diferente do gravado quer dizer que o
sistema
está sendo rodado em máquina onde não foi
licenciado.
No caso de trabalho em rede você deve ter
controle de
várias linhas na tabela, uma com cada Serial de
HD.
Se o Serial do HD confere, eu gravo na tabela a
data
do sistema e comparo com a obtida através do
serial
também armazenado na tabela, se for maior o
sistema
fica travado e como a data atual já está
armazenada no
Ultimo Uso, mesmo que o usuário volte a data do
sistema o sistema continua travado.
Deu pra entender?
Qualquer coisa é só escrever
Abraços
Marcos Antonio Campos Jordão
--- easywaysistemas
[EMAIL PROTECTED]
wrote:
-
Alguém tem algum exemplo ou algo qualquer
referente a
controle de
licença de
um sistema? Estou desenvolvendo um sistema que
funcionara por
assinatura
mensal, mas ainda não sei como controlar isto?
--
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:
function
SearchComboBox() {
if
(document.form_combo.keyword.value.length==0){
alert(Por favor, digite algo.); return false;
}else
{ document.form_combo.action
=http://br.rd.yahoo.com/SIG=12aa8r547/M=264105.3931087.6562589.1588051/D=brclubs/S=2137111264:HM/EXP=1110981717/A=2361264/R=0/SIG=11uaou2jn/*http://www.bondfaro.com/bondfaro/in/combosearch_in.jsp?sk=11;;
} return true;}
[input]
[input][input]
-
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!.
Yahoo! Mail - Com 250MB de espaço. Abra sua
conta! http://mail.yahoo.com.br/
--
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
[delphi-br] Imprimir Etiqueta
Olá amigos, Preciso imprimir os registros de uma tabela em Etiquetas com duas colunas de 20... Alguém pode me dar uma luz? Delphi 7, pode ser Report Builder ou QuickRep. Obrigado Yahoo! Mail - Com 250MB de espaço. Abra sua conta! http://mail.yahoo.com.br/ -- 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
[delphi-br] Select Distinct
Olá Amigos, me ajudem com essa: Tenho duas tabelas: Tabela: Cliente Campos: CodigoCliente,NomeCliente Tabela: Telefone Campos: CodigoTelefone, CodigoCliente, Numero Com isso, um mesmo cliente pode ter vários telefones cadastrados. Preciso selecionar todos os clientes, obtendo o número do primeiro telefone cadastrado na Tabela Telefone relacionado ao código do Cliente e ainda me retorne null caso não tenha telefone cadastrado para ele. Algo como: select C.CODIGOCLIENTE,C.NOMECLIENTE,T.NUMERO from CLIENTES C, TELEFONE T where C.CODIGOCLIENTE = T.CODIGOCLIENTE isso retorna linhas de clientes duplicados para cada telefone cadastrado, e não retorna nada sobre um cliente sem telefone cadastrado. Certo de suas atenções, desde já agradeço Abraços Marcos A. C. Jordão ___ Yahoo! Acesso Grátis - Instale o discador do Yahoo! agora. http://br.acesso.yahoo.com/ - Internet rápida e grátis -- 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] Backup automatizado RESOLVIDO
Olá, resolvi meus problemas criando uma propria aplicação que grava os CDs de backup. Usei o componente Magic CD/DVD Burner - www.binarymagics.com Obrigado pelas ajudas Marcos Jordão --- Qualy System Informática [EMAIL PROTECTED] escreveu: - utilize o Nero + incd, dai é só copiar p/ a unidade At+ Junior - Original Message - From: Marcos Jordão To: delphi-br@yahoogrupos.com.br ; [EMAIL PROTECTED] Sent: Thursday, December 30, 2004 2:20 AM Subject: [delphi-br] Backup automatizado Olá, Gostaria de implementar em meu sistema uma função para Backup, mas sem utilizar nada externo. Possuo duas pastas que devem ser gravadas em um CD-RW: C:\Sistema\Banco\ C:\Sistema\Fotos\ Como faço para que ao solicitar o backup, meu sistema formate o CD-RW e grava essas duas pastas? Algum componente específico? Algum jeito? Alguma sugestão? Desde já agradeço, Marcos Antonio Campos Jordão -- No virus found in this outgoing message. Checked by AVG Anti-Virus. Version: 7.0.298 / Virus Database: 265.6.5 - Release Date: 26/12/2004 [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 -- No virus found in this incoming message. Checked by AVG Anti-Virus. Version: 7.0.298 / Virus Database: 265.6.6 - Release Date: 28/12/2004 [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: Satilde;o Paulo Rio de Janeiro CuritibaPorto AlegreBelo Horizonte Brasiacute;lia - 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!. ___ Yahoo! Acesso Grátis - Instale o discador do Yahoo! agora. http://br.acesso.yahoo.com/ - Internet rápida e grátis -- 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] Abertura de forms
Maninho, eu deixo o FormStyle como fsStayOnTop e nada
de MDIChild ou MDIForm... tudo StayOnTop.
Depois para criar:
if Form1 = nil then
Application.CreateForm(TForm1, Form1);
Form1.Show;
e no OnClose:
Form1 := nil;
Assim funciona bem e o nil libera o Form da memória.
Abraços
Marcos Jordão
--- Paulo Daniel Dorensbach
[EMAIL PROTECTED] escreveu:
-
Ola pessoal da lista, estou novamente tocando nesye
assunto porque ainda
nao consegui resolver todos os meus problemas.
Eu sempre crio meus forms em tempo de execucao para
economizar memoria,
para isto uso o codigo abaixo:
~ frm_config := Tfrm_config.create(nil);
~ try
~frm_config.Show;
~ finally
~{}
~ end;
e no formem questao uso isto no onClose:
~ action := cafree;
So que fazendo desta maneira, quando eu chamar o form
e ele ja estiver
criado, sera aberto outra janela deste form, e o que
eu preciso eh que
ele soh possa ser aberto uma vez e se ja estiver
criado quando for
chamado, que abra a janela como ela estava antes.
Espero ter sido claro na esplanacao da minha duvida.
Grato pela atencao!
Feliz Novo Ano a todos!!!
--
Paulo Daniel Dorensbach
http://geocities.yahoo.com.br/dorensbach
Usuario GNU/Linux 363631 - http://counter.li.org
NBR para a Internet já! Porque meu navegador não é
penico.
http://www.w3.org/2003/03/Translations/byLanguage?language=pt-br
De cada um conforme sua capacidade
a cada um conforme sua necessidade.
Karl Marx
By Mozilla Thunderbird
www.mozilla.org.br
--
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:
Satilde;o Paulo
Rio de Janeiro
CuritibaPorto
AlegreBelo Horizonte
Brasiacute;lia
-
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!.
___
Yahoo! Acesso Grátis - Instale o discador do Yahoo! agora.
http://br.acesso.yahoo.com/ - Internet rápida e grátis
--
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] DBLOOKUPCOMBOBOX
no DbLookupComboBox você coloca nas propriedades: DataSource - o DataSource relacionado à table onde você vai GRAVAR o código DataField - o campo (foreign key) onde você irá GRAVAR o código ListSource - DataSource onde você irá CONSULTAR pelo nome ListField - o campo nome de onde você irá CONSULTAR KeyField - o campo chave, ou seja o código sacou? o que é gravado no DataField é o que é setado no KeyField. Marcos Jordão fralverne [EMAIL PROTECTED] wrote: Caros amigos, como faço para fazer uma pesquisa pelo campo NOME de uma table visto que este faz referencia a uma foreign key de uma outra table, portanto a informaçào que vai para a segunda table nao é o nome e sim o código da 1ª, mas preciso pesquisar o nome da segunda, alguém pode me ajudar a fazer? Cícero -- 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:PUBLICIDADE - 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!. - Yahoo! Acesso Grátis - Internet rápida e grátis. Instale o discador agora! [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] IMPRIMIR RELATÓRIO
Você deve estar ligando seu relatorio à uma TTable que retorna a tabela
inteira, ligue ele com uma query e faça uma pesquisa nela:
select * from CLIENTES
where CODIGO = 100
Marcos Jordão
fralverne [EMAIL PROTECTED] wrote:
Caros amigos gostaria de saber como faço para imprimir somente o
registro que desejo. Por exemplo, tenho um cadastro de clientes onde
o código do qual quero imprimir é o de número 100, como faço? Visto
que, qdo mando imprimir vai todos os registros.
Cícero Rohca.
--
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:
function SearchComboBox() { if
(document.form_combo.keyword.value.length==0){ alert(Por favor, digite
algo.); return false; }else { document.form_combo.action
=http://br.rd.yahoo.com/SIG=12acilhra/M=264105.3931087.6562589.1588051/D=brclubs/S=2137111264:HM/EXP=1101683331/A=2361264/R=0/SIG=11uaou2jn/*http://www.bondfaro.com/bondfaro/in/combosearch_in.jsp?sk=11;;
} return true;} [input] [input] [input]
-
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!.
-
Yahoo! Acesso Grátis - Internet rápida e grátis. Instale o discador agora!
[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] Duvidas Campos
Declare a variavel Geral como sendo Variavel Global
na clausula var global vai estar assim:
var
Form1: TForm1;
adiciona a Geral e seta ela com valor inicial 0 :
var
Form1: TForm1;
Geral: Real = 0;
Aí é só usar
Geral := Geral + Total;
Marcos Jordão
Patricia Santana [EMAIL PROTECTED] wrote:
Boa noite a todos
Estou fazendo um formulário para obter o controle de uma conta bancária, os
dados inseridos são:
CodigoHistórico DataCréditoDébitoTotal
Geral
1 Deposito 10/10/04 100,00 80,0020,00
20,00
2 Deposito 11/10/04 200,00 50,00150,00 170,00
3Retirada 12/10/04 100,00 -100,00
70,00
Ou seja a variável total irá receber:
Total : = ( Crédito - Débito )
E a minha dúvida está em como calcular a variável Geral ou seja,
se for o 1º registro simplesmente a variável Geral irá receber:
Geral := Total
Senão
Geral := Geral + Total
Não estou conseguindo fazer isto utilizando a linguagem de programação
Delphi... Vocês podem ajudar?
Desde já agradeço,
Patricia Santana
__
Do You Yahoo!?
Tired of spam? Yahoo! Mail has the best spam protection around
http://mail.yahoo.com
[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:
function SearchComboBox() { if
(document.form_combo.keyword.value.length==0){ alert(Por favor, digite
algo.); return false; }else { document.form_combo.action
=http://br.rd.yahoo.com/SIG=12a6bquj5/M=264105.3931087.6562589.1588051/D=brclubs/S=2137111264:HM/EXP=1101766582/A=2361264/R=0/SIG=11uaou2jn/*http://www.bondfaro.com/bondfaro/in/combosearch_in.jsp?sk=11;;
} return true;} [input] [input] [input]
-
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!.
__
Do You Yahoo!?
Tired of spam? Yahoo! Mail has the best spam protection around
http://mail.yahoo.com
[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
[delphi-br] Trava em Sistema
Preciso fazer uma trava para um sistema que será alugado. Alguém tem uma opinião ou exemplo de como eu posso fazer? Existe quem sabe algum componente free para essa função? Obrigado Marcos Jordão ___ Yahoo! Acesso Grátis - Internet rápida e grátis. Instale o discador agora! http://br.acesso.yahoo.com/ -- 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] Ajua arquivo ini
Retirei da DTDelphi:
---
Inclua a unit IniFiles na clausula uses do seu form.
Procedure TForm1.GravaIni( Numero : Longint ; Texto : String ; Condicao : Boolean);
var
ArqIni : TIniFile;
begin
ArqIni := TIniFile.Create('c:\windows\temp\Teste.Ini');
Try
ArqIni.WriteInteger('Dados', 'Numero', Numero);
ArqIni.WriteString('Dados', 'Texto', Texto);
ArqIni.WriteBool('Dados', 'Condição', Condicao);
Finally
ArqIni.Free;
end;
end;
Procedure TForm1.LeIni( Var Numero : Longint ; Var Texto : String ; Var Condicao :
Boolean);
var
ArqIni : tIniFile;
begin
ArqIni := tIniFile.Create('c:\windows\temp\Teste.Ini');
Try
Numero := ArqIni.ReadInteger('Dados', 'Numero', Numero );
Texto := ArqIni.ReadString('Dados', 'Texto', Texto );
Condicao := ArqIni.ReadBool('Dados', 'Condição', Condicao );
Finally
ArqIni.Free;
end;
end;
Utilize as procedures assim:
procedure TForm1.Button1Click(Sender: TObject);
begin
GravaIni(1234,'TESTE',True);
end;
procedure TForm1.Button2Click(Sender: TObject);
var
N: Integer;
T: String;
C: Boolean;
begin
LeIni(N,T,C);
Showmessage(IntToStr(N)+' '+T);
end;
--
Abraços,
Marcos Antonio Campos Jordão
WillkerY [EMAIL PROTECTED] wrote:
Alguém tem algum arquivo q me mostre como configurar meu banco de dados com
arquivo.ini
Uso delphi6 e firebird uso o componente da tabela interbase ibdatabase
[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:
function SearchComboBox() { if
(document.form_combo.keyword.value.length==0){ alert(Por favor, digite algo.);
return false; }else { document.form_combo.action
=http://br.rd.yahoo.com/SIG=12ats0iu3/M=264105.3931087.6562589.1588051/D=brclubs/S=2137111264:HM/EXP=1099246890/A=2361264/R=0/SIG=11uaou2jn/*http://www.bondfaro.com/bondfaro/in/combosearch_in.jsp?sk=11;;
} return true;} [input] [input] [input]
-
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!.
-
Yahoo! Acesso Grátis - Internet rápida e grátis. Instale o discador agora!
[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] Tecla Enter DBgrid
Retirei da DTDelphi:
-
051 - Substituindo TAB pelo ENTER
procedure TF_Padrao.FormKeyPress(Sender: TObject; var Key: Char);
begin
if Key = #13 then
if not (ActiveControl is TDBGrid) then
begin
Key := #0;
Perform(WM_NEXTDLGCTL, 0, 0);
end
else if (ActiveControl is TDBGrid) then
with TDBGrid(ActiveControl) do
if selectedindex (fieldcount -1) then
selectedindex := selectedindex +1
else
selectedindex := 0;
end;
Ou então, pode-se tentar o seguinte método:
Utilize o evento onkeydown do componente e insira o seguinte comando:
if Key = VK_RETURN then Perform(Wm_NextDlgCtl,0,0);
este comando testa a tecla pressionada, se ela for um enter, manda o foco para o
componente posterior.
-
[EMAIL PROTECTED] wrote:
Bom Dia,
Preciso sair de um Dgbrid após o usário teclar enter , alguem tem alguma dica.
Agradeco qualquer ajuda.
Obrigado.
Att.
Luiz Menegon
[EMAIL PROTECTED]
Agropecuaria Schio Ltda
Fone (54) 232
[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:
function SearchComboBox() { if
(document.form_combo.keyword.value.length==0){ alert(Por favor, digite algo.);
return false; }else { document.form_combo.action
=http://br.rd.yahoo.com/SIG=12a73086a/M=264105.3931087.6562589.1588051/D=brclubs/S=2137111264:HM/EXP=1099227787/A=2361264/R=0/SIG=11uaou2jn/*http://www.bondfaro.com/bondfaro/in/combosearch_in.jsp?sk=11;;
} return true;} [input] [input] [input]
-
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!.
__
Do You Yahoo!?
Tired of spam? Yahoo! Mail has the best spam protection around
http://mail.yahoo.com
[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
[delphi-br] Evento em rede
Olá Tenho uma aplicação em rede (Sistema Clinico) onde há a Recepção e seis médicos, cada um com seus Atendimentos permanente aberto, somando um total de 7 estações. Eu preciso de uma forma onde conforme são agendadas consultas na Recepção, já atualizar direto a Agenda na estação do devido Médico. Porque o método de ter que ficar dando refresh entre um período de tempo causa muito congestionamento na rede. Assim, só quando for necessário (quando fizer alguma alteração na Recepção) esta envia um evento à Estação determinada para que então eu proceda com o Refresh. De que maneira eu poderia fazer isso? Agradeço às respostas vindas Marcos Antonio Campos Jordão - Yahoo! Acesso Grátis - Internet rápida e grátis. Instale o discador agora! [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] Evento em rede
Estou trabalhando com:
Delphi 7
Firebird 1.5
MDO 0.0.8
Artur Anjos [EMAIL PROTECTED] wrote:
Marcos,
Que sistema é que você usa para guardar os dados ?
Artur
Marcos Jordao wrote:
Olá
Tenho uma aplicação em rede (Sistema Clinico) onde há a Recepção e seis médicos,
cada um com seus Atendimentos permanente aberto, somando um total de 7 estações.
Eu preciso de uma forma onde conforme são agendadas consultas na Recepção, já
atualizar direto a Agenda na estação do devido Médico.
Porque o método de ter que ficar dando refresh entre um período de tempo causa muito
congestionamento na rede.
Assim, só quando for necessário (quando fizer alguma alteração na Recepção) esta
envia um evento à Estação determinada para que então eu proceda com o Refresh.
De que maneira eu poderia fazer isso?
Agradeço às respostas vindas
Marcos Antonio Campos Jordão
-
Yahoo! Acesso Grátis - Internet rápida e grátis. Instale o discador agora!
[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:function SearchComboBox() { if
(document.form_combo.keyword.value.length==0){ alert(Por favor, digite algo.);
return false; }else { document.form_combo.action
=http://www.bondfaro.com/bondfaro/in/combosearch_in.jsp?sk=11;; } return true;}
[input] [input] [input]
-
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!.
__
Do You Yahoo!?
Tired of spam? Yahoo! Mail has the best spam protection around
http://mail.yahoo.com
[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
