Veja os eventos do ClientDataSet/SQLQuery.
OnPost
BeforePost
AfterPost
espero que seja isso.
===
Jean Barreiros
Programador/Web-Designer
Delphi|C++|PHP|JavaScript
FireBird|MySql|SQLServer
PostGree|Oracle
msn: delphij...@gmail.com
e-mail:
Oi Jean.
Obrigadão, mas não é não. São eventos disparados pelo firebird quando
utilizamos POST_EVENT numa trigger ou procedure.
Realmente só com IBX.
Grato
Sds.
Mariotti
--- Em delphi-br@yahoogrupos.com.br, Jean Barreiros delphij...@... escreveu
Veja os eventos do ClientDataSet/SQLQuery.
Isso é um bug do Delphi, fecha o Delphi, deleta o executável do programa que
esta tentando compilar, pressiona
Ctrl+Alt+Del e cancela a execução do processo Delphi32. Tenta que ficara
ok.
De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em
nome de alessandra porto
Estou fazendo exatamente isso:
Edit1.Value := Edit2.Value;
Coloquei o Panel1/Panel2 na frente apenas para exemplificar que cada Edit
está dentro de um Panel, só isso.
Mas mesmo fazendo Edit1.Value := Edit2.Value o Edit1 não assume o valor do
Edit2
Desde já agradeço a atenção
Alan,
Pelo que eu entendi é so somar as quantidade e dar um group by nos itens que
quer agrupar .. desta forma:
select codproduto,Descricao,origem, SUM(Quantidade)AS Quantidade from tmov
Group by codproduto,Descricao,origem
order by codproduto,origem
http://www.gecon.inf.br/
Fala Richardson... Blz?
Cara faço isso na minha aplicação é fácil, vc precisa de um ClientDataSet para
te servir como Repositório, pois a cada Boleto selecionado vc popula esse
ClientDataSet com os dados que o arquivo de remessa necessita, com isso no
final vc tem todos os boletos selecionados
Voce precisa conhecer regulamentação da ANS
Marcos Silva
Belem-PA
De: Juan J V Garcia usa...@usg.com.br
Para: delphi-br@yahoogrupos.com.br
Enviadas: Segunda-feira, 10 de Maio de 2010 23:49:12
Assunto: Re: [delphi-br] Ajuda p/ TCC
Olá,
Não sei se é
Bom dia,
Sou desenvolvedor, e tenho um projeto pronto, trabalhei como analista de
negócios de um sistema de e-commerce para atendimento de saúde ao servidor
púbico do estado da minha região.
Você ficar antenado para o conteúdo programático do seu curso para não citar
tecnologias as quais nao
Cara..
eu tambem trabalho com pacotes, e realmente é muito bom.
Para resolver esse problema, eu criei um pacote onde tenho varias funçoes, por
exemplo validar CPF e CNPJ entre outras, declarar variaveis publicas, enfim, na
minha aplicação principal e nos outros pacotes tenho só o basico
Outra solução provavel voce poderia ter 3 campos na tabela de cientes, onde
ira gravar o numero da ultima compra, data e valor (exemplos). Depois vc
apenas seleciona os clientes que deseja.
-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em
nome
Boa noite vitor , seguinte a primeira duvida foi resonvida , pela sua primeira
sugestão matou o problema, agora quanto ao segundo voce perguntou Não existe
nenhum tipo de enablecontrols/disablecontrols.. desculpe minha ignorancia mas
eu não sei do qeu se trata essas funções, voce disse tambem
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;
try
Conectar('sds', ConSDSII, '2A38FF24194EB3A044');
except on e: Exception do
if e.Message '[DBNETLIB][ConnectionOpen (Connect()).]SQL Server
inexistente ou acesso negado' then
begin
Exit;
end;
end;
Tenta assim:
---
try
Conectar('sds', ConSDSII, '2A38FF24194EB3A044');
except
end;
if
tenta testar fora do delphi o programa, pq existem diferenças entre o debug e a
execução real
Uberdam Cavaletti
Programador Delphi
Formado em Tecnologia da Informação
Pós-graduado em desenvolvimento Java.
Tenta assim
IF SaveDialog1.execute then
Begin
Image1.Picture.SaveToFile(SaveDialog1.FileName);
End;
Ve se roda
De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em
nome de Jose Newton Araujo
Enviada em: segunda-feira, 9 de novembro de 2009 19:42
Para:
Eh Gilvan esta é a opção que gostaria pois assim gravase a imagem na tabela
Paradox, porém no Delphi 7 não consigo configurar o campo TBlobField na
estrutura da minha tabela.
Sds
Jose Newton
De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em
nome de Gilvan Costa
João, seguinte voce pode fazer assim:
Na tabela ITENSORC
Select ITENSORC.cadprod, ITENSORC.forprod, CADPRODUTOS.DESCRICAO from
ITENSORC
Left join CADPRODUTOS on (CADPRODUTOS.codprod = ITENSORC.codprod)
Assim quando você modificar a descrição do produto na tabela CADPRODUTOS
Então João,
você não ta usando tabela MESTRE/DETALHE?
Esse comando é utilizado para o que você ta querendo.
Select ITENSORC.cadprod, ITENSORC.forprod, CADPRODUTOS.DESCRICAO from
ITENSORC
Left join CADPRODUTOS on (CADPRODUTOS.codprod = ITENSORC.codprod)
Mas se você não quer dessa
Tenta estas formatações de células..
Excel.WorkBooks[1].Sheets[1].cells[1,1].Font.Size := 10;
Excel.WorkBooks[1].Sheets[1].cells[1,1].Font.Bold := True;
Excel.WorkBooks[1].Sheets[1].cells[L,1].NumberFormat :=
'dd/mm/aa';
Valeu Ricardo, eu postei tbm no grupo Firebase, mais não obtive nenhuma
resposta.
Já pesquisei bastante, tenho muito material impresso e alguns livros sobre o
assunto.
É que em todo material que tenho, não faz referencia a incluir uma variavel
junto com um select na inclusão,
e todas as mexidas
Bom dia Vinícius!
Ainda estou pesquisando a respeito, mas tenta modificar essa tua SP para o
seguinte e me diz o que deu (acerto ou erro e mensagem):
{ INÍCIO COPY/PASTE }
CREATE PROCEDURE INCL_SERVICOS(
wcdEvento Integer)AS
DECLARE VARIAVLE numEvento INTEGER;
BEGIN
violação de
chave.
Alguem sabe porque
-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br]em
nome de Ricardo César Cardoso
Enviada em: quinta-feira, 28 de maio de 2009 09:04
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: RES: [delphi-br] Ajuda com
de sua mensagem. Uma mensagem bem escrita é melhor
compreendida.
3) Vamos ajudar o Grupo e o Yahoo! Apague o conteúdo irrelevante!
--- Em qui, 28/5/09, Vinicius da Silva Pinto vinic...@cnen.gov.br escreveu:
De: Vinicius da Silva Pinto vinic...@cnen.gov.br
Assunto: RES: RES: [delphi-br] Ajuda
:20
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: RES: RES: [delphi-br] Ajuda com stored procedure
Por algum motivo, a aplicação está tentando usar a mesma chave primária para
um novo registro. dos parâmetros da procedure, qual deles é o wPedido? Qual
é a chave primária da tabela relacionada
-
De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br]em
nome de Ricardo César Cardoso
Enviada em: segunda-feira, 18 de maio de 2009 15:34
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: RES: [delphi-br] Ajuda
Pode ser que o Yahoo acabou desconfigurando a mensagem, por isso
Dê uma olhada nessas linhas:
FrmDm.SimpleDataSet 1.Params[ 0].AsInteger := 1;
FrmDm.SimpleDataSet 1.Params[ 1].AsDate := MCevento.Date;
Não seria correto assim?
FrmDm.SimpleDataSet 1.DataSet.Params[ 0].AsInteger := 1;
FrmDm.SimpleDataSet 1.DataSet.Params[ 1].AsDate := MCevento.Date;
Não entendi, pq os espaços em branco?
-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br]em
nome de Claudiney Cogo
Enviada em: segunda-feira, 18 de maio de 2009 15:15
Para: delphi-br@yahoogrupos.com.br
Assunto: RES: [delphi-br] Ajuda
...@cnen.gov.br
Assunto: RES: [delphi-br] Ajuda
Para: delphi-br@yahoogrupos.com.br
Data: Segunda-feira, 18 de Maio de 2009, 15:23
Não entendi, pq os espaços em branco?
-Mensagem original -
De: delphi...@yahoogrup
--- Em delphi-br@yahoogrupos.com.br, Rubem Rocha rubem.ro...@...
escreveu
boa tarde, Rubem não rasga sua carteira não, talvez voce não tenha entendido o
que eu queria com o select. Eu quero que me retorne todos os processo onde os
autores fossem 'maria' e 'jose' pode haver um processo com
select DISTINCT PROCESSO from TABELA where (UPPER(AUTOR) LIKE %MARIA% OR
UPPER(AUTOR) LIKE '%JOSE%')
Se nem isso resolver, rasgo minha carteira de trabalho! Sinceramente!
Sds.
De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em
nome de Gildenor Teixeira
Enviada
Olá, preciso de sua ajuda de novo, pois consegui carregar a imagem mas quando
mando imprimir o relatório duas vezes seguidas, sendo que a imagem tem que ser
diferente nos dois não dá certo, fica a imagem que foi carregada primeiro, como
faço para limpar a imagem e carregar outra?
--- Em
se vc conseguiur a versão 7.6.1 acho que conseguirá resoover o problema
Uberdam Cavaletti
Formado em Tecnologia da Informação - Unoesc - Xxe
Pós-graduado em desenvolvimento Java - Unoesc - Xxe
Paulo, Muito obrigado funcionou certinho
Att.
Rodrigo
--- Em delphi-br@yahoogrupos.com.br, Paulo Coutinho pa...@... escreveu
DM.frxReport.Script.Clear;
DM.frxReport.Script.AddVariable('valor_extenso', 'valor_extenso', 'xxx');
2009/4/26 Paulo Coutinho pa...@...
Opa foi mal, o
Opa foi mal, o correto é:
frxFastReport.Variables.clear;
frxFastReport.Script.AddVariable('caminho_imagem', 'String',
'c:\teste.bmp');
2009/4/26 Paulo Coutinho pa...@prsolucoes.com
Sim,
E ontem mesmo estava com quase o mesmo problema, precisava passar o caminho
da imagem via delphi pro
DM.frxReport.Script.Clear;
DM.frxReport.Script.AddVariable('valor_extenso', 'valor_extenso', 'xxx');
2009/4/26 Paulo Coutinho pa...@prsolucoes.com
Opa foi mal, o correto é:
frxFastReport.Variables.clear;
frxFastReport.Script.AddVariable('caminho_imagem', 'String',
'c:\teste.bmp');
Obrigado, funcionou certinho, gostaria de mais uma ajuda.
No meu relatório eu tenho uma imagem de plano de fundo, gostaria de saber como
faço para mudar ela via linha de comando, isto é conforme a razão social da
empresa que for emitido o relatório eu envio para o componente a localização da
Se for tipo uma seta ou um circulo por que não abre no paint do Windows faz
o que vc e quer e depois salva?
De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em
nome de alessandra porto
Enviada em: sábado, 25 de abril de 2009 15:37
Para: lista-del...@yahoogrupos.com.br;
Sim,
E ontem mesmo estava com quase o mesmo problema, precisava passar o caminho
da imagem via delphi pro fast e depois de horas pesqusiando consegui
resolver assim:
Pelo Delphi vc faz:
frxFastReport.Variables.clear;
frxFastReport.Script.Variables.add('caminho_imagem', 'String',
No evento onbeforeprint do objeto vc faz assim
If frxDbDados.CONSFRETEPAGO = S then
Objeto.text := X;
Else
Objeto.text := ;
_
De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em
nome de galvao_em
Enviada em: sexta-feira, 24
Alessandro,
Post os erros... talvez ajude.
[]s
De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em
nome de TI - Metalurgica Jano
Enviada em: terça-feira, 24 de março de 2009 08:22
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] Ajuda sobre delphi 2009 e
Ambiente e nos
custos de sua empresa
_
De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em
nome de Leandro A. Nunes
Enviada em: terça-feira, 24 de março de 2009 09:00
Para: delphi-br@yahoogrupos.com.br
Assunto: RES: [delphi-br] Ajuda sobre delphi 2009 e sql server 2000
Olá galera,
Eu acho que a JVCL tem um componente para isso, no caso, seria usar uma
propriedade Zoom, veja, eu não tenho certeza, mas, parece que já fiz isso
antes, estou sem a JVCL instalada para procurar o componente e fazer uma teste.
[]'s, Silvio Clécio
---
Ola Ricardo, olha, eu estou fazendo da maneira mais simples possivel, mesmo
pq o banco só tem 8 tabelas, mais tem bastantes registros.
Estou copiando registro a registro, eu criei um outro banco com caracter set
= none e migrei sem problemas, mais quando crio o banco corretamente com o
caracter
Beleza Vinícius, por pior que parece, o problema não é tão crítico (eu acho...)
Para a explanação, estou usando o IBExpert Personal 2005.06.07 (pode usar uma
versão mais atual que esse recurso é padrão da ferramenta)
Para extrair os dados de uma tabela para um script, faça o seguinte:
* Conecte
if (num in [23..56]) and (num in [30..45]) then
ShowMessage('Numero dentro dos dois intervalos');
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]
Andressa...
Estou te enviando um segundo código para vc sobrepor ao que te enviei
antes... acho que resolve seu problema...
Em tempo...
Neste segundo código, enviei hoje, mais cedo um com um pequeno bub que
consertei...
Veja a segunda mensagem com anexo!!
Silvio Clécio... Te enviei também
Aí Andressa.
Recebeu o exemplo do Treeview, ajudou para o que vc queria?
Sds
Emanuel Coutinho
2009 11:28:38
Assunto: Re: Res: Res: [delphi-br] Ajuda com treeview
Aí Andressa.
Recebeu o exemplo do Treeview, ajudou para o que vc queria?
Sds
Emanuel Coutinho
Veja quais são os assuntos do momento no Yahoo! +Buscados
http://br.maisbuscados.yahoo.com
[As partes desta mensagem que
Andressa,
O absolute index funciona, do jeito que eu coloquei, tanto para quando
clica, quanto para quando navega com as teclas...
Quando vc clica no + está abrindo os children do parent node...
assim, o foco ainda está no parent node...
Vou verificar um teste aqui, se tem como fazer selecionar
Testei depois com o autoexpand true e ficou legal... desculpe...
Sds
Emanuel Coutinho
Oi Lucas
Então meu código está assim:
For i := 0 to tvMenu.Items.Count - 1 do
begin
if tvMenu.Items[i].Selected then
begin
if not tvMenu.Items[i].HasChildren then
begin
{$IFDEF IF_MILLENIUM}
Exec_Form_IF(pMenu(tvMenu.Items[i].Data)^.sNm_Form);
Colega,
Você tentou usar
Selected.absoluteindex para associar com a sua janela?
Sds
Emanuel Couitnho
Andresa Ferreira escreveu:
Oi Lucas
Então meu código está assim:
For i := 0 to tvMenu.Items.Count - 1 do
begin
if tvMenu.Items[i].Selected then
begin
if not
Use tmMenu.Items.Selected.Absoluteindex...
Ok?
Andresa Ferreira escreveu:
Oi Lucas
Então meu código está assim:
For i := 0 to tvMenu.Items.Count - 1 do
begin
if tvMenu.Items[i].Selected then
begin
if not tvMenu.Items[i].HasChildren then
begin
@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br
Enviadas: Terça-feira, 20 de Janeiro de 2009 11:57:51
Assunto: Re: Res: [delphi-br] Ajuda com treeview
Use tmMenu.Items. Selected. Absoluteindex. ..
Ok?
Andresa Ferreira escreveu:
Oi Lucas
Então meu código está assim:
For i
-feira, 20 de Janeiro de 2009 11:57:51
Assunto: Re: Res: [delphi-br] Ajuda com treeview
Use tmMenu.Items. Selected. Absoluteindex. ..
Ok?
Andresa Ferreira escreveu:
Oi Lucas
Então meu código está assim:
For i := 0 to tvMenu.Items. Count - 1 do
begin
if tvMenu..Items[ i].Selected
Olá Moacir,
Na verdade vou comprar farinha e depois produzir o pão. Comprando farinha,
adiciono seu estoque e depois que eu produzir o pão, dou baixa no estoque de
farinha e aumento o estoque de pão. Quando eu vender o pão, baixo o estoque do
pão.
Por isso, tenho os produtos e insumos
Fabinho,
As operações de movimentação de estoque se darão nesta ordem:
1) Entrada de INSUMOS por compra
- Registra NF de entrada
2) Baixa de INSUMOS para utilização na produção de PRODUTOS (nesta caso
pães)
- Registra a Requisição Interna de Materiais
3) Baixa de PRODUTOS por venda
Colega... deixa eu pegar o bonde andando...
Você tem duas instâncias diferentes...
uma é fabricar o pão... na minha opinião, aí vc deveria dar baixa na
farinha...
e a outra é a venda do pão... nela então você daria baixa do pão...
fazer as duas coisas deixa um gap, de não baixar a farinha caso
Olá Coutinho,
Sim, é isso que eu quis dizer, conforme você falou e o Moacir também. Só
que quero controlar a baixa dos insumos por trigger. O problema é que
não sei fazer tal trigger.
abraço,
Fabio.
Coutinho - Yahoo escreveu:
Colega... deixa eu pegar o bonde andando...
Você tem duas
Você terá que salvar em um arquivo INI ou no registro do Windows. Na internet
bem bastante material de como trabalhar com arquivo INI e registro de Windows.
Luciano Calenzani Simões
Abaixo o código que estou utilizando:
No evento onclick do Form1:
begin
if (FmAviso.CheckBox1.
net use LPT1 \\computador_onde_esta_impressora\compartilhamento_da_impressora
Luciano Calenzani Simões
De: Leonardo Baldino [EMAIL PROTECTED]
Para: Grupo_Delphi delphi-br@yahoogrupos.com.br
Enviadas: Segunda-feira, 27 de Outubro de 2008 13:49:33
Assunto:
Só complementando, o comando net use vai funcionar bem se a
impressora estiver em outro micro da rede, se for no próprio micro,
primeiro, vc. deve compartilhá-la senão o net use não funciona.
Sds
--- Em delphi-br@yahoogrupos.com.br, Luciano Calenzani Simões
[EMAIL PROTECTED] escreveu
net
como eu faço para usar este comando e eu tenho que utilizar alguma
biblioteca especifica?
2008/10/27 Wellington Genar [EMAIL PROTECTED]:
Só complementando, o comando net use vai funcionar bem se a
impressora estiver em outro micro da rede, se for no próprio micro,
primeiro, vc. deve
de Outubro de 2008 16:04:10
Assunto: Re: Res: [delphi-br] ajuda com relação a impressão de textos - help
como eu faço para usar este comando e eu tenho que utilizar alguma
biblioteca especifica?
Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua
cara @ymail.com ou
Kr obrigado, resolvi, fui na banda master botão direito numero de vezes
igual a 1.
_
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
nome de Eduardo Silva dos Santos
Enviada em: sexta-feira, 17 de outubro de 2008 14:30
Para: delphi-br@yahoogrupos.com.br
Assunto: Re:
Versão 4.3.
Ele esta associado a um frxdbdataset, mas mesmo assim gerou mais linhas.
_
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
nome de Eduardo Silva dos Santos
Enviada em: sexta-feira, 17 de outubro de 2008 14:47
Para: delphi-br@yahoogrupos.com.br
Assunto:
Coloca no FormShow;
for vIndex := 0 to pgcInstalacao.PageCount - 1 do
pgcInstalacao.Pages[vIndex].TabVisible := False;
Luciano Calenzani Simões
- Mensagem original
De: BandaLemuel [EMAIL PROTECTED]
Para: delphi-br@yahoogrupos.com.br
Enviadas: Quarta-feira, 24 de Setembro
No Sybase dá para fazer assim:
select nome, count(nome),
(select count(telefone) from ligacao as lig where nome = ligacao.nome and
tipo_ligacao = 'P' ) as Pessoal,
(select count(telefone) from ligacao as lig where nome = ligacao.nome and
tipo_ligacao = 'S' ) as Servico
from ligacao
group by
Ricardo...
SQL padronizada ANSI-92:
select nome,
count(tipo_ligacao) as contagem,
case when tipo_ligacao = 'P' then 'Particular'
when tipo_ligacao = 'S' then 'Serviço'
end as tipo_ligacao,
from ligacoes
group by nome,
tipo_ligacao
[]'s
@yahoogrupos.com.br
Enviadas: Quarta-feira, 24 de Setembro de 2008 14:57:19
Assunto: Res: [delphi-br] Ajuda com select
Ricardo...
SQL padronizada ANSI-92:
select nome,
count(tipo_ligacao) as contagem,
case when tipo_ligacao = 'P' then 'Particular'
when tipo_ligacao = 'S' then 'Serviço'
end
Funiona com Mysql ? Vou tentar
_
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
nome de Willian Jhonnes Lara dos Santos
Enviada em: quarta-feira, 24 de setembro de 2008 14:57
Para: delphi-br@yahoogrupos.com.br
Assunto: Res: [delphi-br] Ajuda com select
Ricardo
eu uso mysql funciona ?
_
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
nome de Luciano Calenzani Simões
Enviada em: quarta-feira, 24 de setembro de 2008 14:21
Para: delphi-br@yahoogrupos.com.br
Assunto: Res: [delphi-br] Ajuda com select
No Sybase dá para fazer assim
Não tenho MySQL. Testa aí.
Luciano Calenzani Simões
- Mensagem original
De: Ricardo [EMAIL PROTECTED]
Para: delphi-br@yahoogrupos.com.br
Enviadas: Quarta-feira, 24 de Setembro de 2008 15:03:59
Assunto: RES: [delphi-br] Ajuda com select
eu uso mysql funciona ?
Novos
Olá pessoal,
Wesley, o pacote JEDI tem um componente próprio p isso (JvWizard) tipo o do
InnoSetup, e tem um exemplo demonstrativo.
Eu uso a versão JVCL333CompleteJCL1101-Build2725, acho mais estável, pelo
menos para o meu BDS2006.
Link para baixar o pacote:
Olá, Odail...
Por acaso o FormStyle deste formulário está em fsStayOnTop? Se sim, mude para
fsNormal.
---
Att.:
Willian Jhonnes L. dos Santos
Analista/Desenvolvedor Object/Free Pascal
[EMAIL PROTECTED]
Tente usar MessageBox ao invés de Application.Message.box
- Mensagem original
De: Odail Della Niesi Junior [EMAIL PROTECTED]
Para: delphi-br@yahoogrupos.com.br
Enviadas: Quinta-feira, 18 de Setembro de 2008 13:24:55
Assunto: [delphi-br] Ajuda com Forms Modais
Pessoal,
Estou com o
Willian Jhonnes Lara dos Santos escreveu:
Olá, Odail...
Por acaso o FormStyle deste formulário está em fsStayOnTop? Se sim,
mude para fsNormal.
---
Att.:
Willian Jhonnes L. dos Santos
Analista/Desenvolvedor Object/Free Pascal
[EMAIL
Eu utilizaria o OnColExit, mas cada caso é um caso..
Juliano
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
nome de Odail Della Niesi Junior
Enviada em: terça-feira, 16 de setembro de 2008 08:31
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] Ajuda DBGrid
SELECT ' ' as nova_coluna, nm_pessoa FROM pessoa
Luciano Calenzani Simões
- Mensagem original
De: Adilson Nunes Fernandes [EMAIL PROTECTED]
Para: delphi-br@yahoogrupos.com.br
Enviadas: Terça-feira, 16 de Setembro de 2008 7:28:48
Assunto: [delphi-br] Ajuda com SQL
Você está fazendo inner join. Dá uma estudada em LEFT OUTER JOIN, dessa forma
mesmo se não existir registro em uma sub-tabela a master-tabela será listada.
Por exemplo clientes com compras. Se você fizer inner join entre as duas só
listará cliente que possuem compras, se você fizer LEFT OUTER
Recomendo esse artigo: http://www.codinghorror.com/blog/archives/000976.html
Evandro
Luciano Calenzani Simões wrote:
Você está fazendo inner join. Dá uma estudada em LEFT OUTER JOIN, dessa forma
mesmo se não existir registro em uma sub-tabela a master-tabela será listada.
Por exemplo
Faça uso do CAST convertendo os dois campos para um número inteiro. Assim
poderá comparar na própria setença SQL.
Ex.: cast(cpf1 as integer) = cast(cpf2 as integer);
Luciano Calenzani Simões
- Mensagem original
De: crist_ita [EMAIL PROTECTED]
Para: delphi-br@yahoogrupos.com.br
Sugiro que mude de componente para trabalhar com data, exemplo de nativo da
VCL: TDateTimePicker...
Mas usando um Tedit, exatamente da forma que você quer:
No evento onEnter:
if edit1.text = 'dd/mm/' then
edit1.clear;
no evento onExit
if trim(edit1.text) = '' then
edit1.text :=
Cara, só o fato do foco entrar no Edit, já seleciona o conteúdo que estiver
nele, então no evento OnExit, caso o Edit esteja vazio, volte dd/mm/,
não acho muito legal esta utilização, talvez se você falar qual é a
funcionalidade total podemos pensar em algo melhor, tem também o componente
Se você estiver querendo totalizar por produto será algo semelhante a isto:
select cd_produto, sum(custo)
from prod
group by cd_produto
Daí você pode fazer variações de acordo com sua necessidade.
Luciano Calenzani Simões
- Mensagem original
De: alessandra porto [EMAIL
Wanderlei...
No seu caso, o que você deve fazer é o seguinte:
No modelo 1, vc deve ter colocado o formulário de login como form principal em
seu programa. Vá nas propriedades do projeto (Ctrl+Alt+F11 ou
Project-Options), na aba Forms, selecione o seu formulário principal no combo
Main Form, e
na dev expres tem um pacote de componentes free, um deles e´um botao que o
formato e definido por uma imagem, a que vc escolher.
- Mensagem original
De: Juliano Silva - Yahoo [EMAIL PROTECTED]
Para: delphi-br@yahoogrupos.com.br
Enviadas: Quarta-feira, 25 de Junho de 2008 10:49:05
Essa parte vai ficar assim:
DM.cdsImportacao.Post;
DM.cdsImportacao.Close;
Inc(i);
ProgressBar1. Position := ProgressBar1. Position + 1;
Next;
end;
DM.cdsImportacao. ApplyUpdates( 0); //Aplica as atualizações em memória no
ShowMessage('Processo Concluído Com êxito!!!');
Close;
end;
Emerson
ERRO :
Project SysSam.exe raised exception class EDatabaseError with
message EMAIL RUA BAIRROC'
IS NOT A VALID INTEGER VALUE FOR FIELD 'COD_AGENTE .
Bom Amigo nesse caso seu erro é muito claro, em algum
momento estar sendo passado a string EMAIL RUA BAIRROC para
um campo do tipo inteiro, eu
Boa Tarde Jean
Após verificar o código, encontrei os campos que gerava erro, mais pude
verificar que os campos inseridos na base está com as informações pela metade.
Ex:
Código no txt = 1343489
No Banco = 1343489
Nome no txt = KATIA LUCIATO DE OLIVEIRA
No Banco = IA LUCIATO
@yahoogrupos.com.br
Enviadas: Sexta-feira, 20 de Junho de 2008 14:21:04
Assunto: Re: Res: [delphi-br] Ajuda com Importação de dados em TXT
Boa Tarde Jean
Após verificar o código, encontrei os campos que gerava erro, mais pude
verificar que os campos inseridos na base está com as informações pela metade.
Ex
ai meu caro, vc tem que saber o tamanho de cada campo e fazer
com que o Copy(Str,Index,Count) copie exatament o que vc quer.
tipo:
TXT(
0001 JOAO PAULINO DE OLIVEIRA RUA DE GLORIA ANDAR DE CIMA
0002 MARIA MADALENA DE OLIVEIRA RUA DA GETULIO VARGAS
)
no txt temos os seguintes
Para testar data use StrToDateDef(Maskedir.text, 0). Se retornar zero a data é
inválida.
Ou coloque um componente de data, exemplo TDateTimePicker.
Luciano Calenzani Simões
- Mensagem original
De: Daniel Bastos [EMAIL PROTECTED]
Para: delphi-br@yahoogrupos.com.br
Enviadas:
E para verificar o tamanho do arquivo, use o TFileRec, um record que te retorna
todas as informações sobre o arquivo...
[]'s
Willian
--- Em qua, 11/6/08, Luciano Calenzani Simões lt;[EMAIL PROTECTED]gt;
escreveu:
De: Luciano Calenzani Simões lt;[EMAIL PROTECTED]gt;
Assunto: Res: [delphi-br
Ai ai ai ai, ta faltando teoria Felipe! Só botar a mão na massa sem entender o
que está fazendo é perigoso.
Você vai ter que retirar aquele CQ.FREE de dentro de sua função.
Na outra ponta você faz assim:
Var
MeuDataSet: TDataSet;
Begin
MeuDataSet := RetDados('SELECT BLA FROM BLA');
Você pode fazer isso mas de qualquer forma vc vai ter que liberar essa memória.
with RetDados('select * from cliente') do
begin
ShowMessage(FieldByName('RAZAO').AsString);
Free; ß AKI
end;
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Fellipe
Henrique
Assim não funga? Tirando o Free que libera o ponteiro.
with RetDados('select * from cliente') do
begin
ShowMessage(FieldByName('RAZAO').AsString);
Free( )
end;
_
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
nome de Fellipe Henrique
Faço isso a um bom tempo, o seu problema é que você está dando FREE sempre,
isso faz com que retorne NIL afinal você liberou, bem faz o seguinte então:
Caso 1: Você provavelmente deva ter um DATAMODULE que fica com a conexão do
banco, coloque neste Datamodule um componente TIBCQuery, e faça
Como falei, Fellipe, vc tem que estudar mais o mecanismo de acesso a dados,
para entender o porque dessas coisas.
Perdão pela franqueza, mas fica difícil dar aula de Delphi em um grupo de
discussão.
Você realmente tem que aprender certas coisas estudando, testando e tentando.
Todas as
Tente um desses dois comandos:
ShellExecute(Handle, 'OPEN',PChar('programa.exe'), nil, nil, sw_shownormal);
ExecuteFile('programa.exe','','',SW_SHOWNORMAL);
Dá uma olha no help para ver qual se adequa mais a sua necessidade.
Luciano Calenzani Simões
- Mensagem original
De:
1 - 100 de 209 matches
Mail list logo