A solução não é a melhor, porém funciona. É possível efetuar o select
utilizando-se de joins de várias maneiras.
/* Clientes que não possuem pedidos */
select CLI.*
from CLIENTE CLI
where not exists (select 1 from PEDIDO PED where PED.CD_CLIENTE =
CLI.CD_CLIENTE)
/* Clientes que possuem pedidos
Troque:
GROUP BY 1
Por:
GROUP BY PAC.CD_PACIENTE
Veja se resolve.
Em 19 de março de 2010 15:51, alessandra porto
alessandraport...@yahoo.com.br escreveu:
essa pesquisa fiz na versão 2.1 e deu certinho mas quando faço no mesmo
banco rodando em um servidor com a versão 1.5 dá erro por
Cristiano,
essa dica não te ajuda em nada?
http://www.activedelphi.com.br/modules.php?op=modloadname=Newsfile=articlesid=1086
Abraços.
Em 15 de fevereiro de 2010 10:29, Cristiano
cristianorodrigogo...@hotmail.com escreveu:
Olá pessoal na minha rotina de contas a receber meu sistema
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
faça assim
tscap321.SaveAsBMP := 'C:\'+
datamodule1.table1.fieldbyname('nome').asstring + '.bmp'
;
Em 12/02/2010 14:42, nillgolv escreveu:
Usando o exemplo do componente tscap32, no evento onclick do botão
capturar foto da webcam
está assim:
tscap321.SaveAsBMP := 'C:\test.bmp';
nao sei se entedi muito bem, mas dessa forma vc joga o form2 para dentro
do seu panel:
with form2 do
begin
align := alclient;
parent := panel8;
borderstyle := bssingle;
visible := true;
SHOW;
end;
Boa tarde;
Voce pode implementar no OnCreate/DoShow do seu form TFormBasico um
procedimento
Em 09/01/2010 23:55, klanp...@hotmail.com escreveu:
Como é seu sistema humberto ?
desculpa a demora... o sistema trabalha +/- assim
Todos os eventos estao ligados ao ONClientRead.
exemplo:
procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
Socket: TCustomWinSocket);
VAR
MSG
DATAMODULE1.SQLDataSet1.Close;
DATAMODULE1.SQLDataSet1.CommandText := 'SELECT * FROM MINHATABELA';
DATAMODULE1.SQLDataSet1.Open;
IF DATAMODULE1.SQLDataSet1.ISEMPTY THEN
SHOWMESSAGE('NAO A NADA')
[As partes desta mensagem que não continham texto foram removidas]
Em 19/01/2010 18:48, dionatanhenrique escreveu:
select GRUPO, ATIVIDADE, ESTADO, SUM(VALOR) from TESTE GROUP BY GRUPO,
ATIVIDADE, ESTADO
select GRUPO, ATIVIDADE, ESTADO, SUM(VALOR) from TESTE WHERE ATIVIDADE = 'I'
AND ESTADO = 'V' GROUP BY GRUPO, ATIVIDADE, ESTADO
uses db
TfloatField(cds1.FieldByName('VALOR')).DisplayFormat := '#,##0.00';
somente a você o problema é se o Cliente 1, Socket 1 quiser
falar com o Cliente 2, Socket 2 ? Saberia como faze-lo usando Thread?
--
From: humberto sales de oliveira humberto_...@yahoo.com.br
Sent: Friday, January 08, 2010 8:55 PM
To: delphi
faça da seguinte forma
select
case when a.fantasia is null then {se o nome de fantasia for nulo ele
pegara o nome do cliente senao pega o Fantasia}
a.NOME
else
a.fantasia
end
as NomeJuntos,
a.NOME,a.FANTASIA from clientes a
vc quer um chat e isso?
Francisco escreveu:
ola pessoal como poderia fazer pra colocar a escolha de uma opção de um
radiogroup ea coloca-lo num edit?
Onclick do Radiogroup:
edit1.text := radiogroup1.items.strings[radiogroup1.itemindex]
coloque um edite com sua operacao, em um button insira o seguinte codigo:
var
operacao : array[0..10] of double;
operador : array[0..10] of char;
x,z,z1 : integer;
vr,s : string;
begin
for x := 0 to 10 do
begin
operacao[x] := 0;
operador[x] := #0;
end;
vr := '';
s := edit1.text;
if
Alisson te aconselho criar um banco de dados com a estrutura correta
(como vc quer) e em seguida transferir os dados usando um programa para
a transferencia, ou vc cria uma ta tabela paralela com os dados
corretos... transfere os dados para a nova tabela apaga antiga
Alisson Yahoo escreveu:
declare dessa forma
ALTER TABLE ESTOQUE ADD DESCRICAO Varchar(60) COLLATE WIN_PTBR;
Pesquisei na internet sobre a possibilidade de fazer consulta no Firebird
sem fazer a distinção entre palavras acentuadas e não acentuadas, entre
maiúsculas e minúsculas. Ex. Se eu pesquisar por JOAO, a
procure imagens nesse grupo q vc vai encontrar um link com varias
imagens. Caso nao consiga me passe um email ou um ftp q disponibilizo
para vc
t+
Alguem sabe como faço um Dataview dinamico no rave...
Gostaria de atualizar a lista de campos do DataView na medida que minha
pesquisa fosse atualizada, ja procurei bastante e nao encontrei.
humberto sales de oliveira escreveu:
Alguem sabe como faço um Dataview dinamico no rave...
Gostaria de atualizar a lista de campos do DataView na medida que minha
pesquisa fosse atualizada, ja procurei bastante e nao encontrei.
isso nao vai funcionar...pois no evento show do form vc ja quer fecha-lo...
o ideal e vc fazer dessa forma.
no botao ou menu q vai abrir o form faça assim:
try
meuform := TMeuform.create(nil);
meuform.show;
meuform.procedure1;
meuform.procedure2;
except
meuform.close;
meuform.free;
Firebird faça assim:
select
SUBSTR('000',1, 7 - STRLEN(SEUCAMPO) ) || SEUCAMPO
from TABELA
preciso dar um select SQL em um campo formatando-o com zeros a esquerda
ex
meu campo é :12134
preciso no select: 0012134
mas não estou encontrando como usar o %d no select. Alguma
te vendo um ...
captura o teclado, tira foto webcam (se tiver), captura imagem desktop
envia email
Estou tendo o mesmo problema, acho q vou fazer atravez do Gbak (prompt)
mesmo!
Dias atras um cliente formatou o computador e eu pedi para restaurar os
arquivos de backup, para minha surpresa todos estavam vazios... (eu
estava confiante que todos estavam perfeitos). Restaurei uma copia q
estava
Vinicius faça assim a forma q eu consegui lembrar, existe outra forma
mais facil mas o q eu lembrei foi essa:
SELECT a.RDB$CONSTRAINT_NAME, a.RDB$CONSTRAINT_TYPE,
a.RDB$RELATION_NAME, a.RDB$DEFERRABLE, a.RDB$INITIALLY_DEFERRED,
a.RDB$INDEX_NAME, a.RDB$DB_KEY
FROM RDB$RELATION_CONSTRAINTS a
select gen_id(N_CLIENTE, 0) from RDB$GENERATORS where rdb$generator_name =
'N_CLIENTE'
substitua N_CLIENTE pela sua generator nesse exemplo vai retornar o valor atual
da generator
create table test (id integer);
commit;
insert into test values (1);
commit;
insert into test values (2);
savepoint y;
delete from test;
select * from test; -- não devolve nenhuma linha
rollback to y;
select * from test; -- devolve duas linhas
rollback;
select * from test; -- devolve uma linha
Vê se ajuda...
Informe o valor #,0.00 (sem aspas) na propriedade DisplayFormat e
EditFormat do campo no ClientDataSet e veja se resolve seu problema.
2009/9/1 Dirceu Vasson Jr vasso...@yahoo.com.br
Bom dia
Estou listando em uma grid os resultados de uma consulta ao banco oracle 9i
e
Cleiton,
desenvolvi uma função em PL/SQL que faz o que deseja. Através de uma
sequência dada, ele vai retornando o número do furo de sequência.
Me fale de onde é a fonte de dados dos números para que eu possa adaptar ela
para o Pascal e enviar para a lista.
Abraços.
2009/8/26 Ricardo César
No meus sistemas crio apenas o form principal e os outros form em tempo
de execucao, + cada caso e um caso, na verdade eu forço o usuario a
fechar a tela antes de passar para outra, so abre se essa tela tiver
relacao com a primeira.
Pessoal, como faço para abrir telas e minimizar quando eu
Felipe eu geralmente uso arquivo Resources, depois abro em meu sistema,
Tente no lugar do GETCURRENTDIR() - EXTRACTFILEPATH(APPLICATION.EXENAME)
Felipe Milagres escreveu:
galera seguinte ..
tenho uma aplicação que dependendo da escolha do usuario a imagem que está no
form muda..
por
Te ajuda?
http://www.greatis.com/delphicb/tips/lib/databases-adsdfield.html
Humberto Oliveira
2009/7/29 Leonardo Baldino portaldoinfe...@gmail.com
alguem sabe como eu faço para criar campos num clientdataset em tempo de
execução
--
Leonardo Carlos Baldino - The Highlander
[As partes
campos em tempo de execução tb.
2009/7/29 Humberto Oliveira
holiveira.wordpr...@gmail.comholiveira.wordpress%40gmail.com
Te ajuda?
http://www.greatis.com/delphicb/tips/lib/databases-adsdfield.html
Humberto Oliveira
2009/7/29 Leonardo Baldino
portaldoinfe
Funcionou normal comigo, tirou a foto bacaninha.
2009/7/7 Paulo Coutinho pa...@prsolucoes.com
Claro que não é nada tão 'Ohhh que perfeito! que irado! que show', mas
é uma aplicação usando alguns recursos do gwt com os recursos da
appengine, apis do google e tudo mais.
Tem muito mais coisa
use um DBLookupCombo, vai resolver seu probleminha, apesar de achar q
nao seja a melhor forma de pesquisar
Anderson escreveu:
Boa noite gente...
Primeiro vou me apresentar, fui programador de delphi durante muito tempo e
era bom na coisa. Infelizmente larguei a programação a 12 anos
se entendi bem ‘RESUMOTOTAL’ e ‘MINUTOSTOTAL’ sao do tipo time vc
quer fazer uma conversão seja + especifico por favor... Converter
em q?
Bom dia pessoal, tenho um banco de dados em FIrebird com um campo
‘RESUMOTOTAL’ que é do tipo “Time”, criei outro chamado ‘MINUTOSTOTAL’
também do
se entendi bem ‘RESUMOTOTAL’ e ‘MINUTOSTOTAL’ sao do tipo time vc
quer fazer uma conversão seja + especifico por favor?
Bom dia pessoal, tenho um banco de dados em FIrebird com um campo
‘RESUMOTOTAL’ que é do tipo “Time”, criei outro chamado ‘MINUTOSTOTAL’
também do tipo “time”,
para firebird:
IBQuery1.close;
IBQuery1.Sql.Text := 'SELECT RDB$PROCEDURE_NAME FROM RDB$PROCEDURES';
IBQuery1.OPEN;
L.Clear;
WHILE NOT IBQUERY1.Eof DO
BEGIN
Listbox1.items.Add(IBQUERY1.Fields[0].ASSTRING);
IBQUERY1.Next;
END;
select case seucampo when 'true' then 'nao ticado' else 'ticado' end
from suatabela
stainle2003 escreveu:
Gostaria de trocar o valor True de um campo no DBGrid por um visto ou seja
aquela imagem que significa OK ou ticado, coisa assim.
uso o Delphi 7.
conto com a ajuda de vocês.
grato.
Gostaria de mostrar uma tela com um gif animado qdo gera a pesquisa e
cria o relatorio, so q essa tela fica congelada e o gif nao ativa,
alguem tem alguma ideia de como apresentar essa tela sem congelar o form
e iniciar o gif animado?
desculpe pelo dbgrid ae!
Gostaria de mostrar uma tela com um gif animado qdo gera a pesquisa e
cria o relatorio, so q essa tela fica congelada e o gif nao ativa,
alguem tem alguma ideia de como apresentar essa tela sem congelar o form
e iniciar o gif animado?
se entedi direitinho tente dessa forma:
update bal_patri set VR_DEBI = ( select a005_debi, sum( a005_valo ) as DEBITO
from a029005_tbl where a005_data = '31.01.2008' group by a005_debi ) ,
VR_CRED = ( select a005_cred, sum( a005_valo ) as CREDITO from a029005_tbl
where a005_data = '31.01.2008'
No form principal:
private
procedure WndProc(var Msg : TMessage); override;
public
IConData : TNotifyIconData;
procedure TForm1.WndProc(var Msg : TMessage);
var
p : TPoint;
begin
case Msg.Msg of
WM_USER + 1:
case Msg.lParam of
WM_RBUTTONDOWN:
begin
Você disse que dá erro, qual é o erro?
2009/5/28 rafaelpinto19 rafaelpint...@gmail.com
Valeu Humberto, mas Da erro!! Meu Problema é o Seguinte... Preciso
Preparar um relatório em que Apareça em um QRDBText o Total de Dias
Trabalhados de Determinado Funcionário no Mês de Maio. E que
Vandeir, sua idéia é bem bacana.
A minha idéia é o seguinte:
Tabelas:
- Contratos
id_contrato pk
- Adendos
id_adendo pk
id_contrato fk
data_incial
data_final
- Financeiro
id_financeiro pk
id_adendo fk
valor
recdesp (1 receita e -1 despesa)
Conseguiu entender a idéia?
2009/5/28 vandeirr
Verificando se os campos de hora estão nulos não resolve?
select Count(DATA_ENTRADA) As Dias
from PONTO
where (HORA_ENTRADA is not null
or HORA_SAIDA is not null)
se alguma das horas estiver nula, não aparecerá no seu resultado.
Testa aí.
2009/5/28 rafaelpinto19 rafaelpint...@gmail.com
Vixi... Cego em tiroteio?
2009/5/28 arca765 arca...@yahoo.com.br
Criei um Form tamanho padrão.
Acrescentei 2 cxs de texto lableadas\identificadas Usr\Psw
(Usuário\Senha).
Acresci 1 botão Ok.
Assim que, o usuário preencher os 2 campos (Usr\Psw), e, clicar
no botão Ok o que, é que,
Só debugando para ver o objeto, parâmetro, variável que está utilizando e
que não existe no seu projeto.
2009/5/27 Felipe Milagres felipe_a_milag...@yahoo.com.br
boa tarde galera ..
estou com o seguinte erro no meu programa ..
quando eu vou ver os outros registros cadastrados ..
dá a
Você utiliza a tabela de contratos para administrar as parcelas que ele
gerou?
Você não tem uma tabela de contratos (com os dados contratuais) e faz a
geração do financeiro (em uma tabela de financeiro) separadamente ?
Acho que o seu controle deveria ser um contrato com adendos de renovações,
O debug é o melhor amigo do programador.
2009/5/27 Felipe Milagres felipe_a_milag...@yahoo.com.br
humberto ..
tive q fazer isso mesmo , olhar trem por trem ..
valeu
__
Att,
Felipe Milagres
--- Em qua, 27/5/09, Humberto Oliveira
A solução q eu encontrei foi desenvolver um Cliente e um Servidor usando
os components TclientSocket e TServeSocket (delphi6) , coloco no server
os textos chaves para qdo for recebido ser executado determinados comandos.
lucaoliveira7 escreveu:
Pessoal,
Alguém sabe como executar um programa
Realmente acontece o mesmo problema, estou utilizando Delphi 7.
Mas olhando o Help, não sei se entendi bem. Em alguns style´s, o Delphi
executa eventos de criação da lista na abertura e na recolha da mesma, e
isso pode estar ocasionando a duplicidade no KeyPress.
Posso estar enganado. Mas foi
Existe validação de proxy?
2009/5/15 Alexandre alexandresoare...@yahoo.com.br
Pessoal estou usando a função InternetGetConnectedState para verificar se a
máquina esta conectada à internet, em um cliente a função retorna que não
esta conectado, mas ele esta conectado sim, alguem já passou
Isso foi discutido aqui esses dias, se não me engano semana passada.
Dá uma pesquisadinha no grupo.
Se mesmo assim não encontrar, qual é o banco de dados?
2009/5/13 Mario Rodrigues marioirodrig...@gmail.com
Srs,
Tenho duas tbl's...venda e itens...com a seguinte estrutura:
venda
Você trabalha com os fontes todos no Desktop?
E o restante da pergunta eu me perdi, porque você tem que abrir o dpr, para
depois ir abrindo os formulários agregados, você provavelmente está abrindo
os formulários agregados para depois querer ver o dpr.
Coisa maluca!
2009/5/13 nillgolv
Qual o banco de dados?
2009/5/13 Paulo Coutinho pa...@prsolucoes.com
Boa pergunta.
Eu perguntei sobre isso usando o trio, cds, sds e dsp, mas acho que não
houve resposta.
Como pegar o ultimo ID via dbExpress?
2009/5/13 Humberto Oliveira
holiveira.wordpr
Se for diretão, é só pegar o valor de ComboBox1.Text e jogar na sua query de
inserção no banco de dados.
2009/5/13 Sergio - Jundiaí / SP sergioinf...@yahoo.com.br
Tem como pegar o valor lançado em uma combox e lançar no banco de dados.
minha ideia e fazer um navegado com o historico do
..mas pergunto isso pode me trazer
algum problema mais tarde?..
2009/5/13 Mario Rodrigues
marioirodrig...@gmail.commarioirodrigues%40gmail.com
marioirodrigues%40gmail.com
To usando o FireBird 2.1
e uso o trio sds, dsp, cds...
D2007
2009/5/13 Humberto Oliveira
Acho que através de relatório e com uma consulta simples na sua tabela, você
consegue ter esse resultado trabalhando corretamente as bandas dos
facilitadores na criação de relatórios.
Abraços.
2009/5/12 Arrobba Sistemas del...@arrobbasistemas.com.br
Bom dia,
Tenho a seguinte situação:
Utilize unidade alternativa.
No cadastro do produto, adicione uma funcionalidade alocando a unidade
principal de venda e a unidade alternativa. Desta forma, você no momento da
venda, faz a devida conversão.
Exemplo:
Produto: Anador
Unidade Principal: Caixa (1 caixa)
Unidade Alternativa: Blister
CLICODIGO, CODPAGTO, DTPAGTO,
VALOR, CLINOME E DEBITO.
Verifique isso.
2009/5/5 Mario Rodrigues marioirodrig...@gmail.com
Humberto e Daniel,
O meu cdsCadPagto o select dele é esse:
select P.CLICODIGO, P.CODPAGTO, P.DTPAGTO, P.VALOR, CLI.CLINOME, CLI.DEBITO
from PAGTO P INNER JOIN CLIENTE CLI
Uses
Dialogs;
Será que agora vai?
2009/5/6 wa...@oi.com.br
Pessoal, vcs já me ajudaram antes, mas não estou me lembrando e estou
longe do meu computador principal.
Para que ShowMessage funcione em threads, for e whiles, tenho que
colocar antes uma chamada de um método que não me
where (AUTOR = 'maria' OR AUTOR = 'jose')
--
Gildenor Teixeira
2009/5/5 Humberto Oliveira
holiveira.wordpr...@gmail.comholiveira.wordpress%40gmail.com
leite romano,
se o segundo select é o que mais aproxima da sua solução e ainda não está
dando certo, é porque existe algo
Já fez o teste colocando o ApplyUpdates após o Delete, ao invés de colocar
no envento do seu ClientDataSet?
Faz um teste e avisa aí.
2009/5/5 Mario Rodrigues marioirodrig...@gmail.com
Alisson,
Pois é...e é isso q esta sendo feito...alias o ApplyUpDates esta sendo
feito
no
select PROCESSO from TABELA where AUTOR in ('maria', 'jose')
ou
select PROCESSO from TABELA where (AUTOR = 'maria' and AUTOR = 'jose')
Resolve seu problema?
2009/5/5 leite romano leite_rom...@yahoo.com.br
criterio autor = 'maria' e 'jose'
segue a tabela
processo cliente autor
leite romano,
se o segundo select é o que mais aproxima da sua solução e ainda não está
dando certo, é porque existe algo no valor do campo AUTOR que não está
satisfazendo a condição.
Passe mais detalhes.
2009/5/5 leite romano leite_rom...@yahoo.com.br
oi Humberto, o segundo select que se
no qual você
faz a sua aritmética.
Verifique e nos posicione.
2009/5/5 Mario Rodrigues marioirodrig...@gmail.com
Humberto,
Coloquei oApplyUpdate apos o delete e deu o segunte erro:
First chance exception at $7C812AEB. Exception class TDBXError with message
'Column unknown
DEBITO At line 6
Desculpe o erro, mas InfoPower não é free.
Abraços.
2009/4/29 Ricardo César Cardoso ricardo_engs...@yahoo.com.br
Paulo, olhei bem superficialmente, mas acho que dá pra implementar o que vc
quer extendendo o TComboBox nativo da VCL.
Veja nesse link:
InfoPower tem o que deseja.
2009/4/29 Paulo Coutinho pa...@prsolucoes.com
Olá,
Alguém sabe onde tem uma combobox freeware em que eu possa adicionar
colunas
que fiquem escondidas?
Vou explicar: Eu quero preencher minha combo com N itens e cada item tem
seu
ID e esse ID tem que ficar
Isso está com cara de commit realizado no fechamento do aplicativo.
Verifique como está o isolamento da transação que você executa nos seus
aplicativos.
2009/4/29 Antonio Perruci aperr...@yahoo.com.br
Quando inicializava o form não aparecia o registro. É que eu não tinha
aplicado o filtro
try Screen.Cursor := crHourGlass;
{ gera o relatório }
finally
Screen.Cursor := crDefault;
end;
Isso não ajuda?
2009/4/28 Bruno Lepesqueur brunolbra...@yahoo.com.br
Boa noite pessoal!
Eu criei um botão que executa o relatório de clientes, mas até que o
relatório carregue demora uns
Qual erro?
2009/4/27 Eduardo Savoine eduardosavo...@yahoo.com.br
Pessoal seguinte...
Gostaria de saber se tem alguma maneira de tratar maskedit por exemplo
Estou trabalhando com grupo/subgrupo no cadastro de Centro de Custo:
Ex: NumeroCCusto = x.xx.xx.xxx
Até ai tudo bem eu monto o
Já é um caminho...
http://www.clubedainformatica.com.br/site/2004/01/18/diretivas-de-compilacao/
Qualquer dúvida posta aí.
2009/4/23 dangra2008 dangra2...@yahoo.com.br
Como colocar uma diretiva de compilação na Uses de uma unit, exemplo:
Uses
--se for Delphi 7--
ToolEdit, CurrEdit
--se
Que maravilha! Eu gostei...
Apenas o pessoal do Java que não vai gostar muito. A depêndencia de SO para
o pessoal que programa em Java pode vir a terminar.
Mas pensando bem, uma coisa não tem nada a ver né? Cada segmento no seu
quadrado.
Abraços.
2009/4/20 Rubem Nascimento da Rocha
Juliano,
você está criando o DataSet e o ClientDataSet na unha?
Abraços.
2009/4/17 Juliano Silva - Yahoo smjjuli...@yahoo.com.br
Pessoal
Sempre que eu preciso copiar todos os dados de um TTable ou TQuery para um
ClientDataSet, eu faço da seguinte maneira
1. Crio os Fields da origem
, tenho a Origem dos dados na tela, quero transportar estes
dados para um ClientDataSet que também está na tela.
De: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br [mailto:
delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br] Em
nome de Humberto Oliveira
Enviada em: sexta
Então, por isso estou fazendo essas perguntas, porque fazendo estas ligações
que você falou Jackson, ele consegue sem problemas.
Infelizmente não consegui visualizar o que ele está fazendo.
2009/4/17 Jackson Gomes - ToolsComps jack...@toolsandcomps.com
Tanto faz, mas nos meus casos, sempre
uses a função abaixo e menos doloroso.
label1.caption := formatdatetime('ddd, dd de de ' , date);
francisleisouza escreveu:
ola meu nome é Francislei eu tou criando um programa comercial em Delphi
atraves de um livro Delphi5 e meu pc ta com o programa instalado Delphi6 e eu
tou na
Moderadores, de novo esta mensagem?
2009/4/16 francisleisouza francisleiso...@yahoo.com.br
Ola tudo bem tou com um problema eu tou criando um programa comercial no
Delphi e chega numa certa parte que pede para colocar data e hora por
extenso so que depois que eu coloco da um erro. Este erro
Ué, você já se respondeu, aliás, talvez não.
Esses cursos não possuem tempo de duração? Não possuem pacotes de valores
para se matricular no curso?
Através disso é possível gerar as parcelas que o cliente tem que pagar ao
dono, e cada parcela possui uma data de vencimento, que posteriormente
Vê se te ajuda:
procedure TForm1.Button1Click(Sender: TObject);
var
vTexto: String;
begin
vTexto := 'Tromba d''água';
if (Pos(Chr(39),vTexto) 0) then
ShowMessage('O texto [' + vTexto + '] possui apóstrofo')
else
ShowMessage('O texto [' + vTexto + '] NÃO possui apóstrofo');
end;
De novo?
Já respondemos a solução disso aí
2009/4/15 francisleisouza francisleiso...@yahoo.com.br
ola meu nome é Francislei eu tou criando um programa comercial em Delphi
atraves de um livro Delphi5 e meu pc ta com o programa instalado Delphi6 e
eu tou na parte que pede para colocar
Receberam sua encomenda com número #265861406 e estão solicitando o número
da sua inscrição MyDAC para renovação ou o e-mail utilizado na compra
inicial da licença.
Sacou?
2009/4/15 Bruno Lepesqueur brunolbra...@yahoo.com.br
Bom pessoal, ta complicado pra mim porque já tem umas 2 semanas que
É, todo inicio é complicado!
Está faltando um end. na última linha do seu código.
Verifica aí.
2009/4/14 francisleisouza francisleiso...@yahoo.com.br
Ola tudo bem sou novo aq e tou criando um programa comercial atravez de um
mlivro Delphi5 e o meu programa e Delphi6 e na hora de colocar
lop
criando um loop colocando os os cálculos que deseja fazer dentro e ir
agregando aos edit´s.
2009/4/3 Luiz de Lima Lopes lui...@uol.com.br
Pessoal Bom Dia
Preciso fazer um tabela com varios edit's, e estou precisando fazer um loop
para preenchimento dele mais não estou
Vê se te esclarece algo com esse codigo abaixo:
ponha 4 label no seu form e tenta esse codigo.. acho q vai resolver seu
problema
var
x : integer;
begin
table1.First;
x := 1;
while not table1.Eof do
begin
(Form1.FindComponent('label' + inttostr(x)) as TLabel).CAPTION :=
Imagina Alexsandro, estamos aí para isso.
Mas como eu te falei em todos os post´s, alguma coisa estava errada no
formato de data do seu servidor de produção. Aí tinha que ver no banco e
tratar na aplicação.
Mas tá valendo.
2009/3/26 Alexsandro a...@ig.com.br
Bom dia Humberto,
O problema
Faz o controle em alguma tabela diferente do cadastro de usuários, e através
disso, você pode até solicitar alteração de senhas pelos usuários de tempo
em tempo.
O meu controle de login possui várias validações, vou citar poucos exemplos:
- Senha expira? Booleano
- Alterar senha no primeiro
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls;
type
TForm1 = class(TForm)
Shape1: TShape;
procedure FormCreate(Sender: TObject);
private
procedure shapeClick(Sender: TObject);
public
{ Public
no banco de teste ele roda normal sem erros, com as datas correta. já
no banco de produção ele me retorna o erro, porem com a data do comando
show... correta tambem.
--- Em delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br,
Humberto Oliveira holiveira.wordpr...@... escreveu
Correto
Realmente muito interessante, lí ele pela manhã e tirei várias conclusões do
meu trabalho diário.
2009/3/23 Walter Chagas (Bol) wchag...@bol.com.br
Muito interessante este texto. Repassei ele pra outras listas que tratam
deste tipo de assunto
[]s
Walter Alves Chagas Junior
Belo
Mas o arquivo que baixou é referente a que?
Cuidado com o que anda baixando na internet, pode lhe trazer sérios
transtornos...
2009/3/24 Rogerio Nazar rogeri...@petrobras.com.br
Caros,
Baixei um arquivo em site na internet, e ele veio comuns caracteres
estranhos, alguem podia me ajudar
Alexsandro, conseguiu debugar e verificar o que está passando para a
variável sdata ?
Coloca um ShowMessage(AdoqFeriados.SQL.Text); antes do AdoqFeriados.Open e
capture a query que ele está tentando executar, provavelmente a variável
está gravando um valor incorreto.
Faça o teste e nos apresente
É verdade, existe um espaço na palavra Components... Mas na minha opinião,
seria melhor o CharCase como o Rodnei explicou acima.
2009/3/24 Emanuel Coutinho emanuelcouti...@yahoo.com.br
frmFinasa.Componen ts[j] -- Tem um espaço em branco no components[j]
Retire-o
for j := 0 to
resultado do SQL.Text e rode no Query Analyzer do
banco de produção, veja se ocorre erro.
2009/3/24 Alexsandro a...@ig.com.br
Opa Humberto,
Ele me traz o valor correto 31/03/2009
O interessante de tudo é que, aqui na minha máquina ele funciona blz. Ou
seja quando eu uso o banco de dados de
,
_
Emanuel Coutinho
Salvador-Ba-Brasil
De: Humberto Oliveira
holiveira.wordpr...@gmail.comholiveira.wordpress%40gmail.com
Para: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br
Enviadas: Terça-feira, 24 de Março de 2009 12:55
Como faço para abrir em um component bitmap do rave um arquivo .BMP do
disco?
Como faço para abrir em um component bitmap do rave um arquivo .BMP do
disco em tempo de execução?
Dei uma pesquisada na net e nao encontrei... gostaria de buscar uma
imagem .bmp e inseri ela no meu relatorio... essa imagem e uma arquivo
que esta em uma pasta no disco... tem como? Obrigado!
Rodrigo, tudo beleza?
Estou terminando a homologação desse tal SPED, o que você precisa?
Abraços.
2009/2/20 Rodrigo Ribeiro dbconsulto...@gmail.com
Algum desenvolvedor implementou o SPED Contábil?
Se alguém realizou este desenvolvimento com sucesso, por favor entre em
contato comigo.
1 - 100 de 260 matches
Mail list logo