No evento OnclickCheck vc verfica se o item1 está selecionado.
if CheckListBox1.Checked[1] then
CheckListBox1.Checked[2] := False;
Não esqueça que a array começa do Zero.
[]'s
Em 06-08-2010 19:53, rodrigo escreveu:
>
> Olá, tenho um checklistbox onde tenho dois vários itens, mas tem
Alessandra,
Abra o DPR, no comeco do arquivo tem o diretorio de cada PAS associado
ao projeto.
Obrigado
MuriloCunha
On 11/06/2010 09:33, alessandra porto wrote:
> preciso de uma dica
>
> em um sistema que estou mexendo
> não consigo encontrar onde estão
> determinado forms do projeto
>
> pe
Você pode abrir o .DPR do projeto e lá tem todas as units com suas respectivas
pastas.
att.
Alexandre
- Original Message -
From: alessandra porto
To: lista-del...@yahoogrupos.com.br ; delphi-br@yahoogrupos.com.br
Sent: Friday, June 11, 2010 9:33 AM
Subject: [delphi-br] aju
Albuquerque,
Tente o seguinte:
Edit1.Value := Edit2.Value;
Obrigado.
MuriloCunha
On 26/05/2010 15:25, Albuquerque wrote:
> Tenho vários CurrencyEdits em 2 Panels distintos. Quando estou num Panel os
> CurrencyEdits do outro Panel não são atualizados. Exemplo:
>
> No Panel1 digito 10 no Edit
SELECT CAMPO1, CAMPO2, CAMPO3, SUM(CAMPO4) AS SOMA FROM TMOV
GROUP BY CAMPO1, CAMPO2, CAMPO3
ORDER BY CODPRODUTO, ORIGEM
O SUM irá somar os valores do seu campo.
o GROUP BY irá agrupar pelos demais campos...
o/
Em 25/05/2010 05:02, Allan GabrielAM escreveu:
> Prezados, tenho uma tabela que tem a
Olá José, deu certo, obrigado mesmo.
Atenciosamente,
Rafael
- Original Message -
From: José Henrique (Zote)
To: delphi-br@yahoogrupos.com.br
Sent: Tuesday, May 25, 2010 8:44 PM
Subject: Re: [delphi-br] Ajuda com sql
select codproduto,origem, count(*) from tmov group
select codproduto,origem, count(*) from tmov group
by codproduto,origem order by codproduto,origem
--
José Henrique (Zote)
Analista de TI
Bludata Software
2010/5/25 Allan GabrielAM
>
>
> Prezados, tenho uma tabela que tem armazenado os seguintes dados:
> cod descricao origem qtde
> 1 111 A
Olá,
vc pode fazer a análise de data de vencimento, se ela for anterior a
atual, então nela correrá juros. Vc pode dividir o valor de juros por
quantidade de lançamentos a ser baixados em atraso e ratear por igual
para cada lançamento ou dividir o valor do juro pela quantidade total de
dias em
Isso é, provavelmente, a parte mais crítica do projeto. Estimar o preço
baseado no tempo de desenvolvimento x custo por hora é o que quase todo
mundo faz (inclusive a empresa onde trabalho), mas pressupõe que o
cliente sabe exatamente o que ele precisa antes de o projeto começar e
que a análise e o
Verifique as configurações em Build Configuration, pela imagem esta em Base.
É o que eu imagino que possa estar lhe atrapalhando.
[As partes desta mensagem que não continham texto foram removidas]
Prezado Eduardo.
O que costumamos fazer é:
1 - Analisar cuidadosamente o projeto em um todo, isso inclui, telas,
relatórios, regras de negócio, recursos externos (interfaces,
importações/exportações), enfim. Todo o ciclo de vida do sistema.
2 - ESTIMAR, de acordo com a expertise do time de desenv
noDbgrid use a propriedade rowselectall
ou algo precido
--- Em ter, 11/5/10, Richardson Freddo escreveu:
De: Richardson Freddo
Assunto: [delphi-br] ajuda com DBGRID
Para: "Grupo"
Data: Terça-feira, 11 de Maio de 2010, 11:29
Pessoal.
Tenho um DB
Exemplo de como faer uma varredura nos registros selecionados:
procedure TForm1.btnDoSumClick(Sender: TObject);
var
i: Integer;
sum : Single;
begin
if DBGrid1.SelectedRows.Count > 0 then
begin
sum := 0;
with DBGrid1.DataSource.DataSet do
begin
Tenta esse codigo para pegar os registros selecionados
Joao
DBGrid1.SelectedRows.CurrentRowSelected := true;
qdettit.DisableControls;
for i := 0 to DBGrid1.SelectedRows.Count-1 do begin
qdettit.BookMark := DBGrid1.SelectedRows.Items[i];
end;
- Original Message
da uma olhada ai...
http://scriptbrasil.com.br/forum/index.php?showtopic=103586&pid=433423&st=0&#entry433423
é uma função pra copiar os dados do grid... mas vc pode ver como
funciona a rotina pra percorrer teu dataset...
o/
Em 11/05/2010 11:29, Richardson Freddo escreveu:
> Pessoal.
>
> Tenho um
Olá,
Não sei se é inovador ou se já existe, mas algo tipo auto "atendimento pela
internet". Não estou falando de se consultar ou fazer uma cirurgia pela
internet. Algo do tipo a pessoa se cadastra no site, vê relação de médicos por
especialidade, quais os dias/horários que eles atendem, solicit
Ja pensou em uma ferramenta OLAP? talvez focando não apenas o hospital
em si, mas ferramenta para prover informação processado e de valor real
para campanhas preventivas
Em 09/05/2010 23:30, ersudoski escreveu:
>
> Boa noite, estou no ultimo ano de Sistemas de INformação, e estou
> pensando em
Pensa na seguinte maneira, um software de cadastro e muito simples,
procure visualizar e tentar pensar de que forma isso poderá ajudar? Que
resultados irão refeletir de positivo? o que o hospital tem a ganhar com
isso? tente pensar em segurança, acesso a dados a qualquer lugar do
mundo. Imagino
Olá Ersudoski,
Essa questão de inovação realmente conta muito. Mais de 10 anos atrás,
quando fiz o meu TCC do curso técnico, fui convidado para expor o meu
projeto numa feira das melhores escolas técnicas aqui do RJ. O meu
projeto era, tecnicamente, o melhor da feira, mas foi reconhecido como
tal
vc poderia implementar a parte de RH, fazer levantamentos sobre as doenças
que os pacientes estao mais pegando por periodo, levantamento dos
medicamentos mais usados.
Em 9 de maio de 2010 23:30, ersudoski escreveu:
>
>
> Boa noite, estou no ultimo ano de Sistemas de INformação, e estou pensando
Uma sugestão:
Como o Delphi 2010 é unicode, Caso esteja utilizando a versão 6.X.X do
Zeos, Sugiro substituir pela mais recente, a 7.0 que já provê o suporte
ao padrão unicode. A versão 7.0 pode ser baixada no svn do zeos em
svn://zeos.firmos.at/zeos/trunk
Espero ter ajudado.
--
[]’s.
Evandr
Voce atualizou o Zeos para a ultima versão dele?
[]s
Walter Alves Chagas Junior
Belo Horizonte - MG - Brazil
wchag...@bol.com.br
http://delphitocorporerm.blogspot.com/
http://twitter.com/wchagas
MSN: whitesock...@hotmail.com
SKYPE: WalterChagasJr
- Original Message -
From: felip
ops... corrigindo... é fsStayOnTop... hehehe
Em 26/04/2010 18:16, Roni Rodrigo escreveu:
>
> Tentou alterar a propriedade FormStyle para fsAlTop e exibir só com o
> Show?
>
> Em 26/04/2010 10:04, anckerdj escreveu:
> >
> > Leandro Augusto Soares wrote:
> > > Olá.
> > >
> > > uma idéia é você col
Tentou alterar a propriedade FormStyle para fsAlTop e exibir só com o Show?
Em 26/04/2010 10:04, anckerdj escreveu:
>
> Leandro Augusto Soares wrote:
> > Olá.
> >
> > uma idéia é você colocar o que o usuário digita numa variável de
> form que
> > fica acima e ler essa variável a partir de um mét
Leandro Augusto Soares wrote:
> Olá.
>
> uma idéia é você colocar o que o usuário digita numa variável de form que
> fica acima e ler essa variável a partir de um método.
>
> No form que tem o TEdit vc atualiza o TEdit através desse método, após o
> retorno do ShowModal.
>
> Acho que deve funcionar
Desse jeito não funciona... todos os registros serão devolvidos (a menos da
questão dos valores nulos, como já disseram aqui).
Reparei que assim vc devolverá todos os registros que com SEXO diferente de
F ou diferente de M.
Assim, um registro que seja igual a F é diferente de M, atende à restrição
Olá.
uma idéia é você colocar o que o usuário digita numa variável de form que
fica acima e ler essa variável a partir de um método.
No form que tem o TEdit vc atualiza o TEdit através desse método, após o
retorno do ShowModal.
Acho que deve funcionar.
[]s
Leandro
Em 23 de abril de 2010 15:44
SELECT NOME,SEXO FROM CLIENTE WHERE SEXO <> 'F' or SEXO<> 'M'
tem que colocar o campo para <> 'M'
Em 22/4/2010 22:23, alessandra porto escreveu:
>
> Peguei um banco velho de cadastros de clientes
> que possui uma serie de erros e preciso
> pesquisar todos os clientes que estão cadastr
Acho que você pode utilizar o not in da sequinte forma.
SELECT NOME,SEXO FROM CLIENTE WHERE SEXO not in ('F', 'M');
[]'s
To: firebird...@yahoogrupos.com.br; delphi-br@yahoogrupos.com.br;
lista-del...@yahoogrupos.com.br
From: alessandraport...@yahoo.com.br
Date: Thu, 22 Apr 2010 18:
Alessandra,
Tente assim:
SELECT NOME,SEXO FROM CLIENTE WHERE SEXO not in ('F','M')
Sucesso,
Moacir
Em 22/04/2010 22:23, alessandra porto escreveu:
> Peguei um banco velho de cadastros de clientes
> que possui uma serie de erros e preciso
> pesquisar todos os clientes que estão cadastrad
WHERE (SEXO <> 'F') and (SEXO <> 'M')
-Original Message-
From: delphi-br@yahoogrupos.com.br
[mailto:delphi...@yahoogrupos.com.br]on Behalf Of alessandra porto
Sent: 23 April 2010 02:24
To: firebird...@yahoogrupos.com.br; delphi-br@yahoogrupos.com.br;
lista-del...@yahoogrupos.com.br
Subject
Alessandra tente assim
SELECT NOME,SEXO FROM CLIENTE WHERE SEXO NOT IN ('F','M')
essa opção tbm funciona
SELECT NOME,SEXO FROM CLIENTE WHERE SEXO <> 'F' or SEXO <> 'M'
Em 22 de abril de 2010 22:23, alessandra porto <
alessandraport...@yahoo.com.br> escreveu:
>
>
> Peguei um banco velho
select sum(peso) from TBPRODUTO p, TBGRUPO g where p.id_grupo = g.id_grupo
/* and id_produto = 999 */
Acho que isso resolve. Se é que entendi direito, pois voce nao descreveu o
peso de quais produtos quer somar, nem o relacionamento de produtos com
pedidos.
Abraco
--
José Henrique (Zote)
Analista
Pode ser feito o select dessa maneira:
select
a.id_cliente,
a.cliente ,
( select max(b.dta_compra)
from compras b
where b.id_cliente = a.id_cliente ) as dta_compra
from
cliente a
/
Dessa forma lista todos clientes e suas respectiva data de ultima compra,
caso o cliente nunca ten
Em 10/02/2010 15:36, Walter Chagas (Bol) escreveu:
>
> > Como vocês lidam com o caso de a instalação estar mais de uma versão
> > defasada? Exemplo: o cliente está na versão 1.0 e não fez a atualização
> > para 1.1. Quando ele resolve atualizar, a versão mais recente já é 1.2.
> >
>
Desenvolvi 3 pr
...@hotmail.com
SKYPE: WalterChagasJr
- Original Message -
From: Dirlei Dionísio
To: delphi-br@yahoogrupos.com.br
Sent: Thursday, February 11, 2010 7:56 PM
Subject: Re: [delphi-br] Ajuda...Atualização de Software
Obrigado pelo retorno Walter, mais comentários abaixo
Obrigado pelo retorno Walter, mais comentários abaixo.
Em 10 de fevereiro de 2010 15:36, Walter Chagas (Bol)
>
>
> > Como vocês lidam com o caso de a instalação estar mais de uma versão
> > defasada? Exemplo: o cliente está na versão 1.0 e não fez a atualização
> > para 1.1. Quando ele resolve at
rm.blogspot.com/
http://twitter.com/wchagas
MSN: whitesock...@hotmail.com
SKYPE: WalterChagasJr
- Original Message -
From: Dirlei
To: delphi-br@yahoogrupos.com.br
Sent: Wednesday, February 10, 2010 8:32 AM
Subject: Re: [delphi-br] Ajuda...Atualização de Software
É in
É interessante saber como funcionam outras soluções Walter! Fiz alguns
comentários/perguntas abaixo.
Walter Chagas (Bol) escreveu:
>
>
> Aqui na telemont temos um sistema de atualização automatica também.
> Porém com algumas diferenças:
>
> 1) Feito em VB
>
> 2) Ele nao guarda o update no banc
: whitesock...@hotmail.com
SKYPE: WalterChagasJr
- Original Message -
From: Dirlei
To: delphi-br@yahoogrupos.com.br
Sent: Tuesday, February 09, 2010 8:25 AM
Subject: Re: [delphi-br] Ajuda...Atualização de Software
Vou explicar como funciona o sistema de atualização
Vou explicar como funciona o sistema de atualização automática que
projetei e desenvolvi aqui onde trabalho. Não pretendo que criar um
manual de como fazer, mas creio que dê pra explicar resumidamente como
funciona e inspirar aqueles que pretendem fazer algo parecido.
Há uma base MySQL na inter
Eu uso ftp para baixar o executavel do sistema e para o banco eu utilizo
arquivo texto mesmo com os scripts e executo na base de cada um que baixar
os novos arquivos.
2010/2/8 Domingos
> Estou com a mesma dúvida, para o executável eu uso FTP, mas e para o banco?
>
> Você usa o Database Comparer
Você deu uma pesquisada em:
www.delphibr.com.br
www.linhadecodigo.com.br
www.delphi.eti.br
www.devmedia.com.br
?
--- Em seg, 8/2/10, Domingos escreveu:
De: Domingos
Assunto: Re: [delphi-br] Ajuda...Atualização de Software
Para: delphi-br@yahoogrupos.com.br
Data: Segunda-feira, 8 de Fevereiro
Samuel, boa noite
Cara gostei muito da sua idéia, poderia explicar melhor?
O usuário executa esse sistema para ver se existe atualização?
Esse seu executável acessa um serviço de FTP pra baixar o arquivo? Como você
faz atualização do executável? Ou ele baixa outro arquivo? e a parte de
atual
Estou com a mesma dúvida, para o executável eu uso FTP, mas e para o banco?
Você usa o Database Comparer do IBExpert?
Em 8 de fevereiro de 2010 16:13, snakesjb escreveu:
>
>
> Tenho um sistema feito em Delphi 2007 e banco de dados firebird...Como o
> sistema ja fooi instalado em alguns clientes
Eu fiz um executavel a parte que quando executado ele verifica no site onde
hospedo as atualizacoes se existe atualizacao mais recente e
consequentemente ele baixa a atualização. Junto com a atualizacao eu tenho
os scripts que ele executa para atualizar a base de dados, porem tenho um
problema que
Douglas,
No site do silvio clécio, na seção de downloads tem um componente para
trabalhar com png no delphi. Eu testei no delphi 2007 e funcionou
corretamente. Dá uma olhada lá que acho que vai ser útil pra vc. O link é:
http://sites.google.com/site/silvioprogbs/Home
Espero ter ajudado.
--
Muito obrigado pela sugestão! Vai ser de grande valia.
From: Rubem Nascimento da Rocha
To: delphi-br
Sent: Wed, January 13, 2010 1:56:15 PM
Subject: RE: [delphi-br] Ajuda array dinamico DLL
Se pensa em migrar pra C#, a melhor coisa a fazer é fazer
Se pensa em migrar pra C#, a melhor coisa a fazer é fazer essa DLL do tipo COM.
Vai faciliar mais ainda.
Sds.
To: delphi-br@yahoogrupos.com.br
From: evaldoave...@yahoo.com.br
Date: Wed, 13 Jan 2010 07:49:28 -0800
Subject: Re: [delphi-br] Ajuda array dinamico DLL
Obrigado, mas
Deu certinho com WideStrings!
Muito obrigado!
From: Evaldo
To: delphi-br@yahoogrupos.com.br
Sent: Wed, January 13, 2010 1:50:17 PM
Subject: Re: [delphi-br] Ajuda array dinamico DLL
Obrigado! vou tentar isso.
_ _ __
From
Obrigado! vou tentar isso.
From: Willian Jhonnes L. dos Santos
To: delphi-br@yahoogrupos.com.br
Sent: Wed, January 13, 2010 1:09:41 PM
Subject: Re: [delphi-br] Ajuda array dinamico DLL
Olá, Evaldo...
>
> TMenuDLL = record
> AssinaturaFunca
Obrigado, mas preciso usar dll por causa de uma futura migração para C#.
From: Rubem Nascimento da Rocha
To: delphi-br
Sent: Wed, January 13, 2010 12:05:20 PM
Subject: RE: [delphi-br] Ajuda array dinamico DLL
Quando utilizamos arrays dinâmicos do Delphi
Olá, Evaldo...
>
> TMenuDLL = record
> AssinaturaFuncao: string;
> NomeDLL: string;
> Caption: string;
> end;
>
>
>
Bem, pra começar, que tal você trocar essas Strings por WideStrings???
Variáveis do tipo String realmente dão problemas em DLLs...
--
---
Quando utilizamos arrays dinâmicos do Delphi como parâmetros em funções de uma
DLL, estes são tratados como ponteiros. Seu eu fosse vc, empacotaria essa sua
rotina utilitária em um package. Com o package, você poderá declarar funções e
rotinas que possam lidar tranquilamente tanto com arrays di
faça assim:
dados.AdPacientes.Locate('Codigo',
AdLocPaciente.fildbyname('codigo').asstring,[]);
Ps: Caso esse campo seja inteiro, use asinteger;
Eu tambem fiz um erro de digitacao. Eu queria dizer fieldbyname!
-Original Message-
From: delphi-br@yahoogrupos.com.br
[mailto:delphi...@yahoogrupos.com.br]on Behalf Of Wilson, Stephen
Sent: 21 December 2009 08:27
To: delphi-br@yahoogrupos.com.br
Subject: RE: [delphi-br] Ajuda abrir
Ola senhor
Voce perdeu um 'e' in fieldbynamwe
dados.AdPacientes.Locate('Codigo','AdLocPaciente.fildbyname("codigo").asstring',[lopartialkey]);
Steve
-Original Message-
From: delphi-br@yahoogrupos.com.br
[mailto:delphi...@yahoogrupos.com.br]on Behalf Of dssmoura
Sent: 19 December 2009
buscatextual/visualizacv.jsp?id=K4251629Y0
> --
>
>
>
> De: Leonardo Baldino
> >
> Para: delphi-br@yahoogrupos.com.br
> Enviadas: Sexta-feira, 4 de Dezembro de 2009 17:47:35
>
> Assunto: R
só que o que eu to tentando fazer é naum deixar aparecer a mensagem e naum
fechar o programa
2009/12/4 Diego Garcia
> Quando ele cair no Exception, da uma msg e fecha o programa usando
> "Application.Terminate"
>
> *Diego Garcia*
> Twitter: http://www.twitter.com/drgarcia1986
> Blog:http://w
m bem escrita é melhor
> compreendida.
> 3) Vamos ajudar o Grupo e o Yahoo! Apague o conteúdo irrelevante!
>
> --- Em sex, 4/12/09, Leonardo Baldino
> >
> escreveu:
>
> > De: Leonardo Baldino
> >
> > Assunto: Re: [delphi-br] ajuda sobre mensagens de erro
>
aberia me informar o que devo fazer??
Atenciosamente
Juliomar Marchetti
-Original Message-
From: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] On
Behalf Of Walter Chagas (Bol)
Sent: sexta-feira, 4 de dezembro de 2009 16:02
To: delphi-br@yahoogrupos.com.br
Subject: R
Quando ele cair no Exception, da uma msg e fecha o programa usando
"Application.Terminate"
*Diego Garcia*
Twitter: http://www.twitter.com/drgarcia1986
Blog:http://www.atocadopanda.com
2009/12/4 Leonardo Baldino
>
>
> eu estou fazendo um programa que faz uma conexao com um banco de dados do
-
From: "Leonardo Baldino"
To:
Sent: Friday, December 04, 2009 1:59 PM
Subject: Re: [delphi-br] ajuda sobre mensagens de erro
sei porque o erro acontece, o que eu quero é fazer com que a mensagem naum
fique aparecendo quando da o erro
2009/12/4 Walter Chagas (Bol)
>
>
> Este
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!
--- Em sex, 4/12/09, Leonardo Baldino escreveu:
> De: Leonardo Baldino
> Assunto: Re: [delphi-br] ajuda sobre
sei porque o erro acontece, o que eu quero é fazer com que a mensagem naum
fique aparecendo quando da o erro
2009/12/4 Walter Chagas (Bol)
>
>
> Este erro ocorre porque seu sistema não está conseguindo se conectar ao
> banco. Se ele roda em rede, tente pingar o IP do servidor de BD pra ver se
>
Este erro ocorre porque seu sistema não está conseguindo se conectar ao banco.
Se ele roda em rede, tente pingar o IP do servidor de BD pra ver se responde.
Verifique se a maquina aonde o banco está instalado está com Firewall ativado
ou se ela é enxergada na rede.
[]s
Walter Alves Chagas J
o problema com o banco, se vc usar firebird/interbase, vc pode usar o
componente DataBase Comparer da Clever Components, é free para uso nao
comercial.
com ele vc pode comparar 2 base de dados e ele ira gerar o script de
atualização.
Muito bom mesmo esse programinha, uso ele aqui na empresa ond tr
Uma alternativa é uniformizar os bancos de dados dos seus clientes e passar
a "versioná-los". À cada alteração, você gera um script de atualização que
faz as alterações necessárias e incrementa a versão do banco. Seu programa
pode ler esse script e executá-lo na inicialização.
[ ]'s
Dirlei.
20
O amigo Washington Tavares muito obrigado realmente deu certo e que burrisse
minha tinha me dado branco, já conhecia essa sql ja tinha feito uma parecida
e nao me lembrava.
Valeuw mesmo.
2009/11/20 Washington Tavares
>
> tenta dessa forma:
> select extract(year from vencimento) as Ano, extract
tenta dessa forma:
select extract(year from vencimento) as Ano, extract(month from vencimento) as
Mes, sum(valor) as valorfrom pagargroup by 1,2
Dessa forma listará agrupado por ano, mes a soma dos valores
Caso queira filtra um ano ou mes especifico ae sim voce utilizaria o where
conforme for co
Marcos,
Primeiramente, este tipo de post aqui é proibido por se tratar de pirataria que
é proibida pelas regras da lista.
Depois, sobre a questão do SQL Server, não vejo tamanha necessidade de voce ter
que usar o 6.5. Ainda que seja um sistema antigo, ele rodaria tranquilamente em
uma versão m
Junio,
Pode ser que o local onde esteja instalado o MySQL não permita acesso
externo. Ai você teria que verificar junto ao administrador do banco de
dados/servidor.
Att,
Marcos A. Ferreira
São Paulo - Brasil
MSN: maferre...@hotmail.it
Google Talk: maf.decisiva
Skype: m_abreufe
Você pode usar a função abaixo:
RenameFile(pathInicial, pathFinal);
---Original Message---
From: Júlio César Santiago Guiótti
Date: 10/11/2009 18:04:07
To: delphi-br@yahoogrupos.com.br
Subject: Re: [delphi-br] Ajuda Gravar Imagens
José,
assim como você carrego a
José,
assim como você carrego a imagem em um TImage.
Em seguida eu faço o seguinte:
BS := TBlobStream.Create((TABELA.fieldByName('imagem') as
TBlobField), BMWRITE);
IMG := TBitMap.Create;
IMG.LoadFromFile('caminhoDaImagem');
IMG.SaveToStream(BS);
Sendo BS um TBlobStream
Caro Jose
Nao posso explicar muito bem em Portugues, mas criei um exemplo que pode
ajuda-lo:
procedure TForm1.Button1Click(Sender: TObject);
var s, st1,st2: string; oint: integer; f: textfile;
begin
AssignFile(f, 'CaminhoENomeDoTextoArquivo');
Reset(F);
while not Eof(f) do
ReadLn(f,s);
s:=
Oi Felipe,
pelo que vi você está precisando atualizar os seus datasets, há outras
maneiras de você fazer isso.
Mas no caso de fechar o data module não funciona porque você não está
atribuindo a instância criada a nenhuma variável.
Você tem que fazer:
exemplo := Tdmexemplo.Create(Self);
E para d
Eu tenho na minha casa um projeto que te da a linha do erro no sua unit.pas se
voce tiver paciencia e esperar até segunda eu te passo.
Joao Roberto
Programador Delphi
- Original Message -
From: felipearaujolopes
To: delphi-br@yahoogrupos.com.br
Sent: Friday, October 02, 2009
felipearaujolopes escreveu:
>
>
> Galera boa tarde
>
> Coloquei no meu projeto a seguinte estrutura para que possa guardar o
> erro ocorrido em um banco de dados.
> with qrygravaerro do
> begin
> ParamByName('iderrosistema').AsInteger := codigo;
> ParamByName('idlocalerrosistema').AsInteger :=
> Aparentemente ele foi desenvolvido para o delphi 2.0 mais eu estou com os
> fontes de um projeto para manutenção que usa esse componente e não lembro
> como faz para instala-lo, pois sempre pede o caminnho dos arquivos .PAS e só
> tem os .DCU no projeto.
Se vc quer instalar/usar em outro De
se vc usa a dll da tks, reveja seu algoritmo pois, vc tem q gerar um
registro 50 para cada cfop ou al[iquota de icms diferente,
Se a nota tiver 2 produtos com icms ou cfop diferente, vc tem q gerar
para cada produto um registro do tipo 50.
Leia bem o manual, eu tbm pensei que era problema na dl
morim - Informática:
Andreza Enxovais - Ibitinga/SP
((16) 3341-9000
- Original Message -
From: Fabiano Moura
To: delphi-br@yahoogrupos.com.br
Sent: Tuesday, September 08, 2009 7:31 PM
Subject: Re: [delphi-br] Ajuda com SQL
Expressão errada: Não é normatiza
qDados.Next;
>> End;
>>
>>
>> Vou rodar 1 vez por semana, demora uns 10 minutos, tudo depende da qtde
>> de registros na tabela ITENSORC.
>>
>> Valew pela força!!!
>>
>>João M. de Amorim - Informática:
>>Andreza E
u rodar 1 vez por semana, demora uns 10 minutos, tudo depende da qtde de
> registros na tabela ITENSORC.
>
> Valew pela força!!!
>
>João M. de Amorim - Informática:
>Andreza Enxovais - Ibitinga/SP
> ((16) 3341-9000
>
>
> - Original Message --
-br@yahoogrupos.com.br
Sent: Tuesday, September 08, 2009 9:30 AM
Subject: Re: [delphi-br] Ajuda com SQL
isso não deu certo... alguem pode me ajudar?
João M. de Amorim - Informática:
Andreza Enxovais - Ibitinga/SP
((16) 3341-9000
È(16) 9239-0959
- Original Message -
, 2009 3:42 PM
Subject: Re: [delphi-br] Ajuda com SQL
Tenta isso aqui amigo, tenho quase certeza que funciona ;)
UPDATE ItensSorc Is
SET Is.DescProd=Cp.Descricao
FROM CadProdutos Cp
WHERE Is.CodProd=Cp.CodProd
- Original Message -
From: joao_jma
To: Undisclosed
- Original Message -
> From: Guilherme Ventura de Souza
> To: delphi-br@yahoogrupos.com.br
> Sent: Friday, August 21, 2009 3:42 PM
> Subject: Re: [delphi-br] Ajuda com SQL
>
> Tenta isso aqui amigo, tenho quase certeza que funciona ;)
>
> UPDATE ItensSorc Is
, 2009 3:42 PM
Subject: Re: [delphi-br] Ajuda com SQL
Tenta isso aqui amigo, tenho quase certeza que funciona ;)
UPDATE ItensSorc Is
SET Is.DescProd=Cp.Descricao
FROM CadProdutos Cp
WHERE Is.CodProd=Cp.CodProd
- Original Message -
From: joao_jma
To: Undisclosed
Bom dia!
Da uma olhada nesse site.
http://www.mvps.org/dmcritchie/excel/colors.htm
Boa sorte.
Ulisses
- Original Message -
From: rodrigoojapa
To: delphi-br@yahoogrupos.com.br
Sent: Thursday, August 27, 2009 4:49 PM
Subject: [delphi-br] Ajuda.excel delphi
Boa tar
..
Abaixo e o que eu estava procurando. Mais uma vez ele esta em ingles, mas eu
acho que possa ser muito util:
http://www.djpate.freeserve.co.uk/AutoExcl.htm#FormatRange
Steve
-Original Message-
From: delphi-br@yahoogrupos.com.br
[mailto:delphi...@yahoogrupos.com.br]on Behalf Of r
Ola Rodrigo
Quais sao as condicoes, e que voce quer que aconteca quando a condicao for
satisfeita?
Abaixo ha um exemplo em que as celulas se tornam verde se o valor numa delas
fique entre 2 e 5
procedure TForm1.Button1Click(Sender: TObject);
var op,f1,f2:oleVariant;
begin
op:= xlBetween;
f1:=
amigo aquele codigo q postei vc usa na hora q for atualizar a tabela
cadprodutos
assim qndo a atualizar ja ira atualizar a itensorc junto em um sql soh..
entendeu..
2009/8/21 Daniel Hiromy
>
>
> Ops! Fiz confusão e achei q estava respondendo pra lista de Firebird.
> Qual BD vc está usando?
>
>
Faça uma trigger.
set term ^ ;
create or alter trigger AU_CADPRODUTOS for CADPRODUTOS
active after update position 0
as
begin
update ITENSORC set descprod = new.descricao, fornprod = new.fornecedor
where codprod = new.codprod;
end ^
set term ; ^
2009/8/21 joao_jma
>
>
> Tenho 2 tabelas
>
Ops! Fiz confusão e achei q estava respondendo pra lista de Firebird.
Qual BD vc está usando?
2009/8/21 Daniel Hiromy
> Faça uma trigger.
>
> set term ^ ;
>
> create or alter trigger AU_CADPRODUTOS for CADPRODUTOS
> active after update position 0
> as
> begin
> update ITENSORC set descprod = n
Tenta isso aqui amigo, tenho quase certeza que funciona ;)
UPDATE ItensSorc Is
SET Is.DescProd=Cp.Descricao
FROM CadProdutos Cp
WHERE Is.CodProd=Cp.CodProd
- Original Message -
From: joao_jma
To: Undisclosed-Recipient:;
Sent: Friday, August 21, 2009 2:45 PM
Subject: [delphi-b
To: delphi-br@yahoogrupos.com.br
Sent: Friday, August 21, 2009 3:49 PM
Subject: Re: [delphi-br] Ajuda com SQL
update cadprodutos c, itensorc i set c.fornecedor = 'dfdk', i.forprod =
'dfdk' where c.codprod = '1' and i.codprod = '1'
2009/8/2
update cadprodutos c, itensorc i set c.fornecedor = 'dfdk', i.forprod =
'dfdk' where c.codprod = '1' and i.codprod = '1'
2009/8/21 joao_jma
>
>
> Tenho 2 tabelas
>
> CADPRODUTOS
> codprod
> descricao
> fornecedor
>
> ITENSORC (Gravo a descrição e o fornecedor do produto nessa tabela tb)
> codpro
Que tem, tem! Já vi na internet como remover um componente ou mudar a
propriedade dele usando o TWebBrowser, só não me lembro onde foi (só sei
que não era em sites do idioma português). Uma vez precisei fazer um
controle para o Jogo Travian e para isso tinha de acessar o Login da
conta, eu remo
meu sistema trabalha com o saldo na tabela lançamentos onde a cada
lançamento gera um saldo assim tenho o saldo a qualquer dia e a cada
lançamento..
eh uma ideia..
2009/8/7 valdirdill
>
>
> Tenho duas tabelas para controle da movimentação bancária.
>
> Tabela 1: CAD_CONTAS
> Campos: CONTA e SAL
Obrigado.
Valdir
- Original Message -
From: Moacir - GMail
To: delphi-br@yahoogrupos.com.br
Sent: Thursday, August 06, 2009 8:09 AM
Subject: Re: [delphi-br] Ajuda com Select Utilizando Union All e Cast
valdirdill,
Acrescente uma coluna com o tipo:
SELECT
Obrigado.
Valdir
- Original Message -
From: Rodinei
To: delphi-br@yahoogrupos.com.br
Sent: Thursday, August 06, 2009 8:08 AM
Subject: Re: [delphi-br] Ajuda com Select Utilizando Union All e Cast
Simples, logo após o SELECT de cada parte da instrução, insira CAST
1 - 100 de 474 matches
Mail list logo
