Que eu saiba, só utilizando o BDE.
Rubem Nascimento da Rocha [EMAIL PROTECTED] escreveu:
No FB 1.5 isso não é possível. O BDE possui um recurso chamado de consulta
heterogênea, que permite, por exemplo, que se consulte dados que estão em um
alias (ARGH!) Paradox com um em SQL Server. Mas,
if (dmSce.tbUsuarios.LOCATE('CAMPO',ebUsuario.Text,[]))
e cuidado para o conteudo do ebUsuario.text não ser maior que o tamanho do
campo.
abs.
Júlio Abdala
dÿffe9bora Silva [EMAIL PROTECTED] escreveu:
como uso o locate em uma tabela .tenho um campo edit e preciso
Quando vc desenvolve algo dentro das dependências de uma faculdade, num
trabalho de TCC, o produto deste desenvolvimento será propriedade da faculdade
que poderá utilizá-lo para desenvolver outros produtos em outros trabalhos de
tcc e até coloca-los no mercado.
Mas se você desenvolve uma
mude a declaração
QryAux1 := TADOQuery.Create(Self);
para
QryAux1 := TADOQuery.Create(Nil);
abs.
Júlio Abdala
André Luis de Oliveira [EMAIL PROTECTED] escreveu:
Eduardo deu certo, obrigado.
Vc poderia me dizer pq acontece isso? e pq isso resolve o problema?
- Original
Veja só, se vc estiver usando TEdits e passando parâmetros String pra uma
função.
sDataInicial = String com a data inicial
dDataInicial = data inicial (TDate)
sDataFinal = String com a data final
dDdataFinal = data final (TDate)
iDias = número de dias
iDias:= Trunc(
Usa estes comando no form principal da tua aplicação para evitar que modifique
os padrões de ponto decimal e separadores de máquina a máquina
DecimalSeparator:= ',';
ThousandSeparator:= '.';
abs.
Júlio Abdala
Eduardo Alves [EMAIL PROTECTED] escreveu:
Este é o X da questão.
Formata a saída do campo no evento onGetText do campo que você deseja formatar.
olha um exemplo:
procedure TdmEmprs.tblPromotorPERC1GetText(Sender: TField;
var Text: String; DisplayText: Boolean);
begin
Text:= Valores( Sender.asFloat, 4 );
end;
Function Valores( Valor :Real; Casas
eu faço o sequinte:
query.sql.add('select...');
query.sql.add('from...');
query.sql.add('where...');
query.sql.add('etc...');
automaticamente já insere as quebras e roda sem problema, independente do
tamanho, funciona da mesma forma com o componente ADOComand e similares.
Vc está fechando o Begin no local errado, repare que tem um If que vc inicia o
begin , mas antes tem um while que já abriu um begin
Julio Abdala
Hudson [EMAIL PROTECTED] escreveu:
Ola!
gente estou com um erro em uma tabela do paradox selecao.criei esta pra
selecionar os
Vc está colando algum evento onBeforeInsert, ou onAfterPost?
que tipo de conexão tu tá utilizando? ADODB?
Júlio Abdala
Carlos Delfino Carvalho Pinheiro [EMAIL PROTECTED] escreveu:
Olá pessoal!
Perdi todo meu fim de semana bricando com o Delphi, como disse estou
aprendendo, e
procedure tira_espaco( sFrase :String ) :String;
Var
X :String;
Begin
Result:= '';
For X:= 0 To Length( sFrase) - 1 do
If sFrase[x] ' ' then
Result:= Result +sFrase[x];
end;
Tenta ai...
Arthur Souza [EMAIL PROTECTED] escreveu:
Ola galera,
Tenho
PROTECTED]
José Roberto
-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
nome de Julio Abdala
Enviada em: sábado, 4 de fevereiro de 2006 23:14
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: RES: [delphi-br] Delphi + Quick Report + SQL
olhando o teu sql e
-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
nome de Julio Abdala
Enviada em: domingo, 5 de fevereiro de 2006 19:54
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: RES: RES: [delphi-br] Delphi + Quick Report + SQL
Roberto, acho que também não tá certa essa linha do
Roberto é o seguinte:
coloque sempre o nome da table antes do nome das colunas, não esquece que
está trabalhando com duas tabelas iguais nos subselect, uma no escopo do
subselect e outro no escopo acima, porém ambas tem o mesmo nome.
Se você não informar o nome da tabela, o select
olhando o teu sql e imaginando a tua tabela, me veio uma pergunta...
ele realmente está agrupando por tipo de visita, mas.. não é por pagou ou não
pago que ele quer o resultado?
tipo de visita = avulta ou contrato,
pagto_ok = sim ou não
logo,
se você deseja dividir
Expulsa esse mala.
carlos luis mendes santana [EMAIL PROTECTED] escreveu:
Descobrir senhas da yahoo se tornou muito facil pois o provedor tem
um servidor automático de cadastros e recadastros que pode ser
enganado facilmente da seguinte forma:
O servidor é automático e responde seu
Seu moderado, expulsa o cara que mandou essa mensagem de pegar senha de
namorada.
Anderson [EMAIL PROTECTED] escreveu:
interessante deu certo mesmo!!!
Vai tomar no c.
- Original Message -
From: carlos luis mendes santana
To: delphi-br@yahoogrupos.com.br
Sent: Friday,
Por que é um banquinho muito ruim...hehehe,
na verdade pelo que conheço de paradox, parte do header do arquivo vai para a
memória ram da máquina e caso de queda, ou instabilidade (o que é bem
frequente) explode e vc fica sem seus dados.
Perdi muitos dados antes de mudar de banco.
Eu também nunca encontrei problema, pelo contrário, consegui fazer muita coisa
legal com ele.
Júlio Abdala
Walter Alves Chagas Junior [EMAIL PROTECTED] escreveu:
Outro dia eu postei aqui na, Delphi-br mesmo, fazendo uma convocação geral
para o pessoal expor os problemas, bugs e tudo mais
Já aconteceu isso comigo e era problema no roteador.
Júlio Abdala
Mauro Junior [EMAIL PROTECTED] escreveu:
E aí gurizada,
O meu programa envia e-mail de tempo em tempo. Para isso utilizo os
componentes IdSMTP E IdMessage.
O engraçado é que muitas vezes o programa está enviando
Manda mais detalhes...
onde vai estar gravado o arquivo?
que tipo de acesso você precisa ter?
etc...
etc...
quanto mais informações melhor.
Júlio Abdala
Claudia Santos [EMAIL PROTECTED] escreveu:
Oi pessoal!!!
Estou com um problema e se alguém puder me ajudar, ficarei
Usa o botão speedbutton, configura todos os eventos onclick de cada botão, tudo
certinho.
Depois seta a propriedade visible para true ou false, conforme o usuário
desejar, grava a informação do botão habilitado ou não em uma tabela, recupere
esta informação quando usuário entrar no sitema ou
Cara, não consegui entender o que tu escreveu.. de onde vem aqueles valores?
manda detalhes
Júlio Abdala
José Roberto [EMAIL PROTECTED] escreveu:
Caros amigos desenvolvedores,
Tenho uma duvida no delphi
Tenho uma tabela de visitas a cliente.
Nela existe a seguinte estrutura (parte
StoredProcedure Selecionavel.
Atenc.
Elazar
***
-Mensagem original-De: delphi-br@yahoogrupos.com.br
[mailto:[EMAIL PROTECTED] Em nome de Julio Abdala
Enviada em: quinta-feira, 2 de fevereiro de 2006 12:47
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi
(vou falar disto em outro
e-mail) e permitir que um segundo método Interaja sobre esta collection
executando cada um!
[]s
Em 02/02/06, Julio Abdala [EMAIL PROTECTED] escreveu:
Os eventos AfterPost e BeforePost já estão disponíveis no próprio
componente, basta apenas implementar o método a ser
A sintaxe passada não tá correta, o left join deve ser posto na clausula from
(principalmente se for postgresql).
Select pedido.*, cliente.nome, representante.nome
From (pedido left outher join cliente on pedido.idcliente =
cliente.idcliente) left outher join
representante on
Edita o pas do componentes e coloca a propriedade, compila e instala o
componente de novo
Fiz isto com a propriedade requery e deu beleza (eram mais de 500 tables).
Alias, editei uma porção de coisas do zeos para funcionar legal com minha
aplicação, hoje não tenho galho nenhum.
Abs.
nome de Julio Abdala
Enviada em: quinta-feira, 2 de fevereiro de 2006 20:47
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] QuickReport + Delphi + SQL
Cara, não consegui entender o que tu escreveu.. de onde vem aqueles valores?
manda detalhes
Júlio Abdala
José Roberto [EMAIL
edFile.Text = nome do arquivo a ser exportado
dsFonte = um DataSource que recebe a table a ser exportada.
AssignFile(ArqImp, edFile.Text);
Try
Rewrite( ArqImp );
dsFonte.DataSet.First;
While not dsFonte.DataSet.Eof do
Begin
sLinha:= '';
Verifique o tamnho do tem combo para sexo, ele tem que ter o mesmo número de
caracteres que o campo da tabela.
abs.
Júlio Abdala
Cleiton [EMAIL PROTECTED] escreveu:
Olá pessoal ...
Está me acontecendo algo um tanto quanto curioso, do qual fiz diversas
tentativas de resolver o
TrimRight()
TrimLeft()
Trim()
abs
Júlio Abdala
Cleiton [EMAIL PROTECTED] escreveu:
Olá pessoal ...
Tem alguma função em que eu possa retirar de um campo os carecteres em branco
antes e depois dos carecteres válidos?
Por exemplo...
No campo nome coloco: cleiton.
Supondo que
Ai eu vou dizer que este cara é um forte candidato a lascar com a empresa
dele...
Júlio Abdala
Walter Alves Chagas Junior [EMAIL PROTECTED] escreveu:
E se o camarada pegar o numero de serie deste HD, levar pra outro computador
e, chegando lá, modificá-lo com o Debug do DOS ou com o
ele´é chato de instalar mesmo, mas segue os passos que acaba dando certo.l
só cuidado que vc vai ter que gerar os pacotes e depois instalar.
abs.
Júlio Abdala
analistarmr [EMAIL PROTECTED] escreveu:
Bom dia !
Baixei o componente Zeos, segui todos os passos e mesmo assim não
Tenho dois free
o AFQuickMail e o TMailer, mas são uma versão antiga
procura na net, se não achar atualizado eu te mando os que tenho.
Abs.
Júlio Abdala
auristonlopes [EMAIL PROTECTED] escreveu:
Estou precisando de um componente para enviar email, tanto na internet
esta impressora é usb?
Júlio Abdala
Augustus Otávio Pinto [EMAIL PROTECTED] escreveu:
Bom dia !!!
Tenho um programa que roda em uma rede de 03 estacoes W98, e utilizo
impressao matricial
usando as funcoes AssignFile() e WriteLn() para gravar direto para a porta
LPT.
Funcionava
Pessoal, preciso de uma ajuda de vocês.
Estou acessando uma base da dados postgresql 8.0, delphi 7, ADO e ODBC.
Mes acessando de forma bem simples uma tabela, tipo
SELECT *
FROM tabela
quando tento postar alguma alteração recebo uma mensagem de erro que diz:
O Delphi respeita as restrições, mas recebendo as mensagens de erros
originárias do banco de dados.
Voc pode tratá-las devidamente se você utilizar um bloco
Try
Except
end
no evento onPost do componente table ou query que você estiver utilizando.
Implemente isto e não terá
tenho uma função que uso para validar numeros
Procedure ValidaKey (Const Sender :TObject; var Key :Char; Tipo :Integer);
// Valida Key em Edits
Begin
if not (Key in ['0'..'9', '.', ',', '+', '-', #8, #13]) then Key := #0;
if Key in [',','.'] then
If (Tipo = 1) OR (Tipo = 3)
Qual teu ambiente de desenvolvimento?
Sistema operacional?
Versão do Delphi?
Como tá mandando o comando?
Júlio Abdala
Augustus Otávio Pinto [EMAIL PROTECTED] escreveu:
Esta instalada na porta paralela mesmo (LPT1), o mais estranho eh que ateh o
velho
comando do DOS dir prn
Eduardo, tu está equivocado, os comandos não são iguais, repare no sinal de
percent na consulta, eles estão posicionados de maneira diferente e isto, com
certeza, traz resultados diferentes.
Entenda que % = qualquer coisa.
No primeiro comando tu está pedindo
VITORIA + QUALQUER
Já aconteceu isto comigo uma vez e era o arquivo .DFM do formulário que estava
corrompido.
Tive que recriar o form, pra voltar ao normal.
Abs.
Júlio Abdala
Emerson Moreno [EMAIL PROTECTED] escreveu:
Caros amigos.
Estou com um problema que não estou conseguindo entender.
original-
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
nome de Julio Abdala
Enviada em: terça-feira, 31 de janeiro de 2006 11:53
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] Problema Impressão Matricial em EPSON FX-2190
esta impressora é usb?
Júlio Abdala
Sistema fonético soundex, não sei se existe no firebird.
Abs.
Júlio Abdala
Leonardo Vinicius Freitag [EMAIL PROTECTED] escreveu:
Pessoal!
To usando Delphi com Firebird.
Como faço para que o sistema identifique que:
Walter Lima e Valter Lima podem ser a mesma pessoa?
Não entendi o que tu deseja fazer. Se não e zero é 1, se não é 1 é zero,
Probabilidade de 50%. Quer prever ou quer randomizar?
Manda detalhes
Júlio Abdala
alxeng2002 [EMAIL PROTECTED] escreveu:
Caros Colegas
Gostaria de dicas (e/ ou alguma teoria matematica/estatistica) de
no postgresql
select *
from cliente
limit 8500
Emerson Moreno [EMAIL PROTECTED] escreveu:
Obrigado a todos que responderam!
Em 30/01/06, Elazar [EMAIL PROTECTED] escreveu:
Emersom
No FB
select first 1 skip 8500 * from cliente
--
No
Bah, desculpa mandei o comando errado para postgresql, no post tem o oid
busca por ele
select * from cliente where oid = 8500
abs
julio abdala
Elazar [EMAIL PROTECTED] escreveu:
Emersom
No FB
select first 1 skip 8500 * from cliente
Geralmente um erro deste ocorre quando o objeto ainda não foi criado na memória
e se tenta acessá-lo.
Verifique se o dataset já foi criado.
Abs.
Júlio Abdala
Thiago Oliveira [EMAIL PROTECTED] escreveu:
Mas ainda não deu certo,
Acho que não expliquei direito, o erro não
olha a propriedade AuthenticanType do componente.
Júlio Abdala
Hudson [EMAIL PROTECTED] escreveu:
Galera no idSMTP estou error authentication failedalguem sabe o que é?
a duvida é...tenho uma conta paga no Oi internet aonde funciona
perfeitamente
e outra free tbm no oi internet
Eu tenho uma função que rodo no inicio do sistema e evito esse tipo de problema
em todas as funções de datas que utilizo.
Procedure FazPadraoSistema;
Begin
DateSeparator := '/';
ShortDateFormat := 'dd/MM/';
DecimalSeparator:= ',';
ThousandSeparator:= '.';
end;
Jônatas
Pra desenhar linhas inteiras, segue uma rotina que verifica se existe o campo e
muda a cor da linha conforme o contéúdo dele.
Procedure DesenhaGrade( grdDados: TDBGrid; const Rect: TRect; DataCol:
Integer; Column: TColumn; State: TGridDrawState); // Desenha uma grade
desenhada
Begin
Eu também tenho este problema, mas no delphi 7,
dá erro, trava em alguma bpl e vez por outras não fecha o delphi.
´se souberem de algo me deêm retorno.
Abs.
Júlio Abdla
Leandro [EMAIL PROTECTED] escreveu:
Pessoal,
Uso Delphi 6 e em alguns programas maiores, quando vou
Usa o comando delete do sql.
Delete from tabela tal
Rubem Nascimento da Rocha [EMAIL PROTECTED] escreveu:
Ei, companheiro! Não existe método EmptyTable() em Query!
Sds.
From: plucaslazaro [EMAIL PROTECTED]
Reply-To: delphi-br@yahoogrupos.com.br
To: delphi-br@yahoogrupos.com.br
Subject:
);
SetForegroundWindow(Handle1);
end
else
Application.Run;
Application.Terminate;
Julio Abdala
Walter Alves Chagas Junior [EMAIL PROTECTED] escreveu:
Bruno, aquela função que vive zanzando nas listas faz isto não? Aquela de
não deixar voce abrir uma nova instância do mesmo aplicativo
IdMessage1.contentType = 'Html/Text';
Júlio Abdala
Hudson [EMAIL PROTECTED] escreveu:
Ola!
gente estou tentando enviar email usando IdMessage e o IdSMTP com o formato
HTML assim
IdMessage1.Body.Add('htmlhead/headbodyh1teste/h1/body/html');
mas quando a recebo ela chega assim:
Direito de comprar códigos fontes ele não possui, observem o seguinte:
Vc desenvolveu o sistema no computador dele?
A licença do Delphi para o desenvolvimento é dele?
Vc cumpriu horário na empresa dele para desenvolvimento?
Vc utilizou algum recurso da empresa dele para
eis uma função dos comandos.
Function ComandoImpressora( sComando :String ) :String; // envia comandos
para a impressora
Begin
If sComando = 'RESETA' then
Result:= chr(27)+chr(64) // Inicializa a impressora
else If sComando = '1/8' then
Result:= chr(27)+chr(48) //
Cara, verifica o item contentType do componente, ele tem que estar setado para
'html/text'. e cuidado com os anexos, geralmente atrapalham a interpretação do
conteúdo.
Abs.
Júlio Abdala
Oséias Ferreira [EMAIL PROTECTED] escreveu:
-BEGIN PGP SIGNED MESSAGE-
Hash: SHA1
Usa a função locate
query1.Locate('campo',valor,[])
Júlio Abdala
Alfredo Brandes [EMAIL PROTECTED] escreveu:
ola
O componente ZTable nao possui a função FindNearest, como o TTable tem...
Alguem conhece alguma maneira de se obter uma função que faça mais ou menos
a mesma coisa? e
100% de chance que seja roteamento.
Alencar - Philler Informatica [EMAIL PROTECTED] escreveu:
Em 23/01/06, Hudson[EMAIL PROTECTED] escreveu:
este funcionava corretamente, mas com instalações de mais maquinas na empresa
tive q rotiar o modem
a messagem de erro e esta:
raised
Concordo,
neste caso, gerardados deveria ser privado.
Júlio Abdala
Francisco Trindade [EMAIL PROTECTED] escreveu:
Se eles sao publicos, entao o ideal eh que eles possam ser chamados a
qualquer momento, ja que nao seu caso, a chamada dos mesmos na hora errada
pode causar erros no
Eu cobro 2,5 o valor da licença vezes o número de máquinas instaladas
Júlio Abdala
Walter Alves Chagas Junior [EMAIL PROTECTED] escreveu:
Nao pode é assinar um contrato de exclusividade
[]s
Walter Alves Chagas Junior
Projeto e desenvolvimento
Telemont Engenharia de telecomunicações
Belo
Use comando SQL
Delete from tabletal
ou
Truncate tabletal,
mas cuidado com estes comandos
Júlio Abdala
plucaslazaro [EMAIL PROTECTED] escreveu:
ola meu amigo,
se a sua intenção é zerar todos os dados da tabela que vc esta utilizando
use:
Query.EmptyTable;
Seta propriedade keypreview do formulário para true
e coloca esta função no evento onkeypress do formulário
EnterIsTab( Sender, Key );
a função faz o seguinte:
Procedure EnterIsTab(Sender :TObject; Var Key :Char);
// Muda Enter Por Tab
begin
If key = #13 then
63 matches
Mail list logo