Re: [delphi-br] Problema com Store Procedure
Vc está inserindo um conteúdo maior do que o suportado por alguma de suas
variáveis, exemplo:
..
declare variable varchar(5);
begin
= '123456';
...
Sendo assim, procure verificar todos os INTO de sua procedure, assim como nos
comandos de atribuição (variavel = conteudo)
Abraços e boa sorte...
Rodinei Amorim
Programador Delphi
[EMAIL PROTECTED]
(11) 8208-9503 - (11) 2024-2723
From: Jean Barreiros
Sent: Tuesday, October 21, 2008 11:00 PM
To: delphi-br@yahoogrupos.com.br
Subject: Res: [delphi-br] Problema com Store Procedure
vc sabe que as datas em SQL são no formato (/MM/dd)?
e que ficam entre aspas?
tipo: '2008/12/31'
veja se tem algo a ver com isso!
Jean Barreiros
Programador/Web-Designer
Delphi, C++, PHP, JavaScript
FireBird/InterBase, MySql, SQLServer, PostGree, Oracle
msn: [EMAIL PROTECTED]
e-mail: [EMAIL PROTECTED]
- Mensagem original
De: Darkzad [EMAIL PROTECTED]
Para: delphi-br@yahoogrupos.com.br; [EMAIL PROTECTED]
Enviadas: Terça-feira, 21 de Outubro de 2008 17:33:33
Assunto: [delphi-br] Problema com Store Procedure
Olá Pessoal,
A Procedure abaixo está dando o seguinte erro:
Overflow occurred during data type conversion.
conversion error from string 1968.
At procedure 'DEVOLUCAO_DIR' .
Acho que o problema é a :DTINI01 e a :DTINI02
Não sei o que mais fazer.
Desde já agradeço
CREATE OR ALTER PROCEDURE DEVOLUCAO_DIR (
dtini01 date,
dtfim01 date,
cod_ven integer,
cod_pro integer,
fabrica char(1),
tp char(1),
dtfim02 date,
ano smallint)
returns (
razao varchar(50),
jan float,
fev float,
mar float,
abr float,
mai float,
jun float,
jul float,
ago float,
seb float,
out float,
nov float,
dez float,
janm float,
fevm float,
marm float,
abrm float,
totcompr float,
totmedia float,
totdevol float,
percentu float)
as
declare variable vend integer;
declare variable qtde float;
declare variable mes smallint;
declare variable codc integer;
declare variable tipo varchar(15);
declare variable codsql1 varchar(1030) ;
declare variable codsql2 varchar(1030) ;
begin
CODSQL1 = 'Select TBCLIENTE.COD_ CLIENTE, Extract(Month From DTDOC) AS
MES,SUM(QTDE) AS QTDE From TBNFISCAL,
TBNFMOV,TBCLIENTE Where TBNFISCAL.NRLAN = TBNFMOV.NRLAN AND
TBNFISCAL.DTDOC Between CAST('||:DTINI01| |' as DATE) AND CAST('||:DTFIM01| |'
as DATE) AND TBNFISCAL.TDOC = ''ANL''';
if (COD_VEN 0) then
CODSQL1 = CODSQL1 ||' AND TBCLIENTE.COD_ VEND = CAST('|| :COD_VEN ||' as
integer) AND TBNFISCAL.COD_ CLIENTE = TBCLIENTE.COD_ CLIENTE';
else
CODSQL1 = CODSQL1 ||' AND TBNFISCAL..COD_ CLIENTE = TBCLIENTE.COD_ CLIENTE';
if (COD_PRO 0) then
CODSQL1 = CODSQL1 ||' TBNFMOV.COD_ PRO = CAST('|| :COD_PRO ||' as integer)';
CODSQL1 = CODSQL1 ||' Group By TBCLIENTE.COD_ CLIENTE,2
Order By TBCLIENTE.COD_ CLIENTE,2' ;
FOR EXECUTE STATEMENT
CODSQL1
Into :VEND, :MES, :QTDE
Do
begin
if (MES = 1) then
begin
JAN = QTDE;
Select Sum(QTDE) /12 From TBNFISCAL,TBNFMOV, TBPRODUTO Where TBNFISCAL.NRLAN =
TBNFMOV.NRLAN AND
TBPRODUTO.COD_ PRO = TBNFMOV.COD_ PRO AND
Extract(Month from DTDOC) = 1 AND DTDOC = :DTFIM02 AND Extract(YEAR from
DTDOC) = :ANO
AND TBNFISCAL.TDOC = 'VEN' AND TBPRODUTO.TPROD = 'BATERIA'
into :JANM;
end
else if (MES = 2) then
begin
FEV = QTDE;
Select Sum(QTDE) /12 From TBNFISCAL,TBNFMOV, TBPRODUTO Where TBNFISCAL.NRLAN =
TBNFMOV.NRLAN AND
TBPRODUTO.COD_ PRO = TBNFMOV.COD_ PRO AND
Extract(Month from DTDOC) = 2 AND DTDOC = :DTFIM02 AND Extract(YEAR from
DTDOC) = :ANO
and TBNFISCAL.TDOC = 'VEN' AND TBPRODUTO.TPROD = 'BATERIA'
into :FEVM;
end
else if (MES = 3) then
begin
MAR = QTDE;
Select Sum(QTDE) /12 From TBNFISCAL,TBNFMOV, TBPRODUTO Where TBNFISCAL.NRLAN =
TBNFMOV.NRLAN AND
TBPRODUTO.COD_ PRO = TBNFMOV..COD_ PRO AND
Extract(Month from DTDOC) = 3 AND DTDOC = :DTFIM02 AND Extract(YEAR from
DTDOC) = :ANO
and TBNFISCAL.TDOC = 'VEN' AND TBPRODUTO.TPROD = 'BATERIA'
into :MARM;
end
else if (MES = 4) then
begin
ABR = QTDE;
Select Sum(QTDE) /12 From TBNFISCAL,TBNFMOV, TBPRODUTO Where TBNFISCAL.NRLAN =
TBNFMOV.NRLAN AND
TBPRODUTO.COD_ PRO = TBNFMOV.COD_ PRO AND
Extract(Month from DTDOC) = 4 AND DTDOC = :DTFIM02 AND Extract(YEAR from
DTDOC) = :ANO
and TBNFISCAL.TDOC = 'VEN' AND TBPRODUTO.TPROD = 'BATERIA'
into :ABRM;
end
else if (MES = 5) then
begin
MAI = QTDE;
Select Sum(QTDE) /12 From TBNFISCAL,TBNFMOV, TBPRODUTO Where TBNFISCAL.NRLAN =
TBNFMOV.NRLAN AND
TBPRODUTO.COD_ PRO = TBNFMOV.COD_ PRO AND
Extract(Month from DTDOC) = 5 AND DTDOC = :DTFIM02 AND Extract(YEAR from
DTDOC) = :ANO
and TBNFISCAL.TDOC = 'VEN' AND TBPRODUTO.TPROD = 'BATERIA'
into :MAIM;
end
else if (MES = 6) then
JUN = QTDE;
else if (MES = 7) then
JUL = QTDE;
else if (MES = 8) then
AGO = QTDE;
else if (MES = 9) then
SEB = QTDE;
else if (MES = 10) then
OUT = QTDE;
else if (MES = 11) then
NOV = QTDE;
else if (MES = 12) then
DEZ = QTDE;
end
end^
SET TERM ; ^
[As partes desta mensagem que não continham texto foram removidas]
Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua cara
@ymail.com ou @rocketmail.com.
[delphi-br] Duvidas sobre consultas com ClientDataSet?
Bom dia!
Pesquisei em sites e encontrei dicas sobre consultas com ClientDataSet
Fiz assim
CLIENTdsENTRADA.Active := False; sql_DATASET_ENTRADA.Close;
sql_DATASET_ENTRADA.SQL.Clear; sql_DATASET_ENTRADA.sql.add('select * from
ENTRADA'); sql_DATASET_ENTRADA.sql.add('where ID_ENTRADA =:cod');
sql_DATASET_ENTRADA.Params.ParamByName('cod').AsString:=edit1.Text;
sql_DATASET_ENTRADA.open;CLIENTdsENTRADA.Active := True;
Essas consultas funcionam normalmento com as IBquery só que com esses
componentes dbexpress
da um erro identificador clandestino 'SQL'
Se álguem puder ajudar agradeço muito!
_
Instale a Barra de Ferramentas com Desktop Search e ganhe EMOTICONS para o
Messenger! É GRÁTIS!
http://www.msn.com.br/emoticonpack
[As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Controle de Permissão de usuário!
Pessoal, fiquei por horas pensando uma maneira pratica e rápida de se fazer um controle de permissão de úsuario em meu sistema Gostaria de fazer algo bem simples, pq é muito chato quando vc vai gerar permissões e que tem aqueles milhares de checkbox um para cada opção do menu, então pensei em algo que pude-se ser mais prático, tipo: O Administrador do sistema criar Perfis tipo Administrador, Balconista, Encarregado, e dentro destes perfis poderia sim criar as centenas de check box, porem depois que os perfis estivesem prontos, quando adicionar um novo usuario, simplesmente informariamos qual o perfil daquele usuario... em caso de necessidade alteraria o perfil e todos os usuarios daquele perfil iria adquirir aquela alteração... Vcs conhecem algum componente que ajuda a controlar essa questão de permissão, o action list seria um componente ideal pra isso?? Abraços pessoal _ Cansado de espaço para só 50 fotos? Conheça o Spaces, o site de relacionamentos com até 6,000 fotos! http://www.amigosdomessenger.com.br [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Status do cliente FTP
Vc pode utilizar o componente TIdAntiFreeze ou utilizar um Application.ProcessMessages no evento OnWork do TIdFTP, para que a aplicação não fique travada. Abraços Marcos Douglas 2008/10/21 Berdam [EMAIL PROTECTED]: Pessoal, impementei uma cliente ftp com delphi, funcionou legal, mas gostaria de saber como pegar o status da conexão, ou seja, quando arquivos grandes são transferidos, o sistema fica esperando o arquivo ser totalemtne enviado para que outras funções possam ser executadas. Isso pode ocasionar com que o cliente feche a aplicação pensando que o sistema está travado. Estou usando o componente IDftp da paleta Indy 10, alguém que tenha experiência com isso pode ajudar??? Uberdam Cavaletti Formado em Tecnologia da Informação - Unoesc - Xxe Pós-graduado em desenvolvimento Java - Unoesc - Xxe http://www.curricular.com.br/berdam Visite http://passandoveneno.blogspot.com Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua cara @ymail.com ou @rocketmail.com. http://br.new.mail.yahoo.com/addresses [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
RES: [delphi-br] Duvidas sobre consultas com ClientDataSet?
No dbexpress se voce usar o sqldataset vc faz assim,
Clientdataset1.close;
Sqldataset1.commandtext := select * from clientes;
Clientdataset1.open;
_
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
nome de Vicente Alves
Enviada em: quarta-feira, 22 de outubro de 2008 08:11
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] Duvidas sobre consultas com ClientDataSet?
Bom dia!
Pesquisei em sites e encontrei dicas sobre consultas com ClientDataSet
Fiz assim
CLIENTdsENTRADA.Active := False; sql_DATASET_ENTRADA.Close;
sql_DATASET_ENTRADA.SQL.Clear; sql_DATASET_ENTRADA.sql.add('select * from
ENTRADA'); sql_DATASET_ENTRADA.sql.add('where ID_ENTRADA =:cod');
sql_DATASET_ENTRADA.Params.ParamByName('cod').AsString:=edit1.Text;
sql_DATASET_ENTRADA.open;CLIENTdsENTRADA.Active := True;
Essas consultas funcionam normalmento com as IBquery só que com esses
componentes dbexpress
da um erro identificador clandestino 'SQL'
Se álguem puder ajudar agradeço muito!
__
Instale a Barra de Ferramentas com Desktop Search e ganhe EMOTICONS para o
Messenger! É GRÁTIS!
http://www.msn. http://www.msn.com.br/emoticonpack com.br/emoticonpack
[As partes desta mensagem que não continham texto foram removidas]
[As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Controle de Permissão de usuário!
USER CONTROL pode lhe ajudar. 2008/10/21 Pablo Henrique Vianini Souza [EMAIL PROTECTED] Pessoal, fiquei por horas pensando uma maneira pratica e rápida de se fazer um controle de permissão de úsuario em meu sistema Gostaria de fazer algo bem simples, pq é muito chato quando vc vai gerar permissões e que tem aqueles milhares de checkbox um para cada opção do menu, então pensei em algo que pude-se ser mais prático, tipo: O Administrador do sistema criar Perfis tipo Administrador, Balconista, Encarregado, e dentro destes perfis poderia sim criar as centenas de check box, porem depois que os perfis estivesem prontos, quando adicionar um novo usuario, simplesmente informariamos qual o perfil daquele usuario... em caso de necessidade alteraria o perfil e todos os usuarios daquele perfil iria adquirir aquela alteração... Vcs conhecem algum componente que ajuda a controlar essa questão de permissão, o action list seria um componente ideal pra isso?? Abraços pessoal __ Cansado de espaço para só 50 fotos? Conheça o Spaces, o site de relacionamentos com até 6,000 fotos! http://www.amigosdomessenger.com.br [As partes desta mensagem que não continham texto foram removidas] -- Leonardo Quinino [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Ponteiro de classe
Pessoal, eu tenho uma variável de uma classe apontando para um ponteiro de outra classe. Mais ou menos assim. TClasse := TOutraClasse Porém com o tempo eu apago a outra classe(TOutraClasse). A situação é que eu tenho a variável TClasse que NÃO É NIL, mas também não é um ponteiro válido na memória, se eu tentar acessá-lo, vai dar Access Violation... Alguém conhece alguma maneira de saber se um ponteiro é válido(se ele vai dar AV) ?? Obrigado. -- Vinicius dos Santos http://www.msisolucoes.com.br
Re: [delphi-br] Ponteiro de classe
2008/10/22 Vinicius Santos - MSI [EMAIL PROTECTED]: Pessoal, eu tenho uma variável de uma classe apontando para um ponteiro de outra classe. Mais ou menos assim. TClasse := TOutraClasse Porém com o tempo eu apago a outra classe(TOutraClasse). A situação é que eu tenho a variável TClasse que NÃO É NIL, mas também não é um ponteiro válido na memória, se eu tentar acessá-lo, vai dar Access Violation... Alguém conhece alguma maneira de saber se um ponteiro é válido(se ele vai dar AV) ?? Você pode colocar as declarações de tudo o que você está usando? Pois é impossível dar AV para um ponteiro de classe, classes não podem ser apagadas. Por outro lado, se você fala em ponteiro para objetos, não há uma forma decente de você saber se o objeto é ou não é válido. O que você tem que fazer é, ou evitar que o objeto seja destruido antes da hora (popularmente conhecido como corrupção de memória) ou preparar um evento que atualize o ponteiro para nil. Joao Morais
[delphi-br] Re: Duvidas sobre consultas com ClientDataSet?
Bom dia!
Com DBExpress vc pode jogar o comando SQL pelo ClientDataSet através
do Comando:
ClientDataSet.CommandText := SQL;
Mas lembre-se de habilitar a propriedade poAllowCommandText do DataSetProvider
para True.
Também pelo SQLDataSet através do Comando:
SQLDataSet.CommandText := SQL;
--- Em delphi-br@yahoogrupos.com.br, Vicente Alves
[EMAIL PROTECTED] escreveu
Bom dia!
Pesquisei em sites e encontrei dicas sobre consultas com
ClientDataSet
Fiz assim
CLIENTdsENTRADA.Active := False; sql_DATASET_ENTRADA.Close;
sql_DATASET_ENTRADA.SQL.Clear; sql_DATASET_ENTRADA.sql.add('select *
from ENTRADA'); sql_DATASET_ENTRADA.sql.add('where ID_ENTRADA
=:cod');
sql_DATASET_ENTRADA.Params.ParamByName('cod').AsString:=edit1.Text;
sql_DATASET_ENTRADA.open;CLIENTdsENTRADA.Active := True;
Essas consultas funcionam normalmento com as IBquery só que com
esses componentes dbexpress
da um erro identificador clandestino 'SQL'
Se álguem puder ajudar agradeço muito!
_
Instale a Barra de Ferramentas com Desktop Search e ganhe EMOTICONS
para o Messenger! É GRÁTIS!
http://www.msn.com.br/emoticonpack
[As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Ponteiro de classe
Desculpe, é um ponteiro para um objeto... É que eu estou trabalhando um componente que é herdado de outro componente no qual não tenho o código fonte :( Então o ponteiro ancestral apaga o tal objeto e eu fico a ver navios sem o código fonte... Eu precisava validar se um ponteiro realmente é valido...É claro que o try/except resolve meu problema, porém não achei a solução muito elegante, e existe o mesmo problema em outros lugares, então teria que encher meu sistema de try/except. Vocês nunca precisaram de algo assim ?? Obrigado. Joao Morais escreveu: 2008/10/22 Vinicius Santos - MSI [EMAIL PROTECTED] mailto:vinicius%40msisolucoes.com.br: Pessoal, eu tenho uma variável de uma classe apontando para um ponteiro de outra classe. Mais ou menos assim. TClasse := TOutraClasse Porém com o tempo eu apago a outra classe(TOutraClasse). A situação é que eu tenho a variável TClasse que NÃO É NIL, mas também não é um ponteiro válido na memória, se eu tentar acessá-lo, vai dar Access Violation... Alguém conhece alguma maneira de saber se um ponteiro é válido(se ele vai dar AV) ?? Você pode colocar as declarações de tudo o que você está usando? Pois é impossível dar AV para um ponteiro de classe, classes não podem ser apagadas. Por outro lado, se você fala em ponteiro para objetos, não há uma forma decente de você saber se o objeto é ou não é válido. O que você tem que fazer é, ou evitar que o objeto seja destruido antes da hora (popularmente conhecido como corrupção de memória) ou preparar um evento que atualize o ponteiro para nil. Joao Morais -- Vinicius dos Santos http://www.msisolucoes.com.br
[delphi-br] Benchmark com delphi
Bom dia pessoal, andei procurando sobre Benchmark com Delphi e não achei algo para implementar, que seja mais prático que usar timers nos formulários. Alguém já fez algo parecido mas sem usar timers? att. Rodrigo Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua cara @ymail.com ou @rocketmail.com. http://br.new.mail.yahoo.com/addresses [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Controle de Permissão de usuário!
Dê uma olhada neste componente: http://www.toolsandcomps.com/port/index.htm TOOLSANDCOMPS 2008/10/21 Pablo Henrique Vianini Souza [EMAIL PROTECTED] Pessoal, fiquei por horas pensando uma maneira pratica e rápida de se fazer um controle de permissão de úsuario em meu sistema Gostaria de fazer algo bem simples, pq é muito chato quando vc vai gerar permissões e que tem aqueles milhares de checkbox um para cada opção do menu, então pensei em algo que pude-se ser mais prático, tipo: O Administrador do sistema criar Perfis tipo Administrador, Balconista, Encarregado, e dentro destes perfis poderia sim criar as centenas de check box, porem depois que os perfis estivesem prontos, quando adicionar um novo usuario, simplesmente informariamos qual o perfil daquele usuario... em caso de necessidade alteraria o perfil e todos os usuarios daquele perfil iria adquirir aquela alteração... Vcs conhecem algum componente que ajuda a controlar essa questão de permissão, o action list seria um componente ideal pra isso?? Abraços pessoal __ Cansado de espaço para só 50 fotos? Conheça o Spaces, o site de relacionamentos com até 6,000 fotos! http://www.amigosdomessenger.com.br [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
Res: [delphi-br] Controle de Permissão de usuári o!
Realmente esta é uma Thread das grandes mas, eu axei interesante sua idéia dos perfis só que isso gereria desvantagens tambem como vc falou se alterar o perfil altera para todos os usuários e num sistema ném todos os usuários tem as mesmas permissões tipo uma pessoa do perfil usuário pode ter uma ou mais opções diferente de uma outra pessoa o que implicaria na criação de mais um perfil na pratica seria a mesma coisa de configurar as permissões individualmente por usuário é o que eu penso e conheço pelos anos de prática! Jean Barreiros Programador/Web-Designer Delphi, C++, PHP, JavaScript FireBird/InterBase, MySql, SQLServer, PostGree, Oracle msn: [EMAIL PROTECTED] e-mail: [EMAIL PROTECTED] - Mensagem original De: Pablo Henrique Vianini Souza [EMAIL PROTECTED] Para: delphi-br@yahoogrupos.com.br Enviadas: Terça-feira, 21 de Outubro de 2008 23:22:48 Assunto: [delphi-br] Controle de Permissão de usuário! Pessoal, fiquei por horas pensando uma maneira pratica e rápida de se fazer um controle de permissão de úsuario em meu sistema Gostaria de fazer algo bem simples, pq é muito chato quando vc vai gerar permissões e que tem aqueles milhares de checkbox um para cada opção do menu, então pensei em algo que pude-se ser mais prático, tipo: O Administrador do sistema criar Perfis tipo Administrador , Balconista , Encarregado , e dentro destes perfis poderia sim criar as centenas de check box, porem depois que os perfis estivesem prontos, quando adicionar um novo usuario, simplesmente informariamos qual o perfil daquele usuario... em caso de necessidade alteraria o perfil e todos os usuarios daquele perfil iria adquirir aquela alteração... Vcs conhecem algum componente que ajuda a controlar essa questão de permissão, o action list seria um componente ideal pra isso?? Abraços pessoal _ _ _ _ _ _ Cansado de espaço para só 50 fotos? Conheça o Spaces, o site de relacionamentos com até 6,000 fotos! http://www.amigosdo messenger. com.br [As partes desta mensagem que não continham texto foram removidas] Mensagens neste tópico (1) Responder (através da web) | Adicionar um novo tópico Mensagens | Arquivos | Fotos | Links | Banco de dados -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Alterar configurações via web (Requer Yahoo! ID) Alterar configurações via e-mail: Alterar recebimento para lista diária de mensagens | Alterar formato para o tradicional Visite seu Grupo | Termos de uso do Yahoo! Grupos | Sair do grupo Atividade nos últimos dias * 14 Novos usuários * 2 Novos linksVisite seu Grupo Yahoo! Mail Conecte-se ao mundo Proteção anti-spam Muito mais espaço Yahoo! Barra Instale grátis Buscar sites na web Checar seus e-mails . Yahoo! Grupos Crie seu próprio grupo A melhor forma de comunicação . __,_.._,___ Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua cara @ymail.com ou @rocketmail.com. http://br.new..mail.yahoo.com/addresses [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Duvidas sobre Consultas sql parametrizadas entre duas tabelas com ClientDataSet ou SqlDataSET!
Obrigado pela dica Emersom Bertoldo valeu mesmo!
Fiz as Consultas assim
cds_consul_saida.Active := False; cds_consul_saida.Close;
cds_consul_saida.CommandText := 'select * FROM SAIDA where ID_saida =:cod';
cds_consul_saida.Params.ParamByName('cod').AsString:=edit1.Text;
cds_consul_saida.Active := tRUE;
Deu certo tanto com pelo command Text do ClientDataSet ou pelo command Text do
SQLDataSet.
Só que essa consulta tem que ser entre duas tabelas SAIDA X DETALHES_SAIDA no
commadText do SQLDataset eu tinha essa SQL que dava certo também:
select DETALHES_SAIDA.EST_CODIGO, DETALHES_SAIDA.QUANTIDADE,
DETALHES_SAIDA.VALOR, DETALHES_SAIDA.VALOR_TOTAL, SAIDA.ID_SAIDA,
SAIDA.ID_SOLICITANTE, SAIDA.DATA_SAIDAfrom DETALHES_SAIDA,SAIDAwhere
SAIDA.ID_SAIDA = DETALHES_SAIDA.ID_SAIDA
A minha duvida é o seguinte como eu faço pra fazer essas consultas
parametrizadas com essas instruções SQL juntas é possivel ter duas condições
Where na mesma consulta SQL?? como estou colocando as consultas em botão eu não
posso deixar nada no commadText do SQLDataset como eu faço pra juntar tudo isso
em uma unica consulta?
Se álguem puder ajudar agradeço muito!!!
_
Cansado de espaço para só 50 fotos? Conheça o Spaces, o site de relacionamentos
com até 6,000 fotos!
http://www.amigosdomessenger.com.br
[As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Ponteiro de classe
2008/10/22 Vinicius Santos - MSI [EMAIL PROTECTED]: Desculpe, é um ponteiro para um objeto... É que eu estou trabalhando um componente que é herdado de outro componente no qual não tenho o código fonte :( Então o ponteiro ancestral apaga o tal objeto e eu fico a ver navios sem o código fonte... Eu precisava validar se um ponteiro realmente é valido...É claro que o try/except resolve meu problema, porém não achei a solução muito elegante, e existe o mesmo problema em outros lugares, então teria que encher meu sistema de try/except. Vocês nunca precisaram de algo assim ?? Try/except não é solução para esse caso. Recomendo procurar outra alternativa, nem que seja contatar o autor do componente ou desistir dele. Todo objeto quando é destruído por vias normais chama o Destroy. Se você herda desse componente você pode sobrescrever o Destroy que será invocado antes da destruição do objeto. Você ainda pode sobrecarregar o FreeInstance, que será invocado logo após a chamada ao destructor e imediatamente antes da instância ir para o além (aqui seu código deve vir antes do inherited). Então, dentro de algum destes métodos, você cria um evento que informa a destruição da instância. -- Joao Morais
[delphi-br] OFF-TOPPIC - Totalmente
Pessoal Preciso do contato de pessoas que trabalham com o banco de dados INFORMIX, caso conheçam ou seja esta pessoa por favor entrar em contato comigo MSN / E-MAIL [EMAIL PROTECTED] [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] OFF-TOPPIC - Totalmente
Espero que isto possa ajuda-lo www.grupos.com.br/group/informix/ Rodinei Amorim Programador Delphi [EMAIL PROTECTED] (11) 8208-9503 - (11) 2024-2723 From: Juliano Silva - Yahoo Sent: Wednesday, October 22, 2008 11:07 AM To: delphi-br@yahoogrupos.com.br Subject: [delphi-br] OFF-TOPPIC - Totalmente Pessoal Preciso do contato de pessoas que trabalham com o banco de dados INFORMIX, caso conheçam ou seja esta pessoa por favor entrar em contato comigo MSN / E-MAIL - [EMAIL PROTECTED] [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Controle de Permiss�o de usu�rio!
Vcs conhecem algum componente que ajuda a controlar essa questão de permissão, o action list seria um componente ideal pra isso?? Dê uma olhada no TUsers em nossa página. Jackson Gomes ToolsComps - Controle de Usuários para Desenvolvedores CodeGear Web Site: http://www.toolsandcomps.com Nosso Fórum: http://groups.yahoo.com/group/toolsandcomps e-mail: [EMAIL PROTECTED] Fone: 27 3389 1138 - 8811 0324 Devhost - Webhost para desenvolvedores Delphi http://www.devhost.com.br [EMAIL PROTECTED]
Re: [delphi-br] Status do cliente FTP
olá, obrigado pela resposta, próprio site da indy 10 tem um exemplo, utilizei o mesmo e deu certo. obrigado Uberdam Cavaletti Formado em Tecnologia da Informação - Unoesc - Xxe Pós-graduado em desenvolvimento Java - Unoesc - Xxe http://www.curricular.com.br/berdam Visite http://passandoveneno.blogspot.com --- Em qua, 22/10/08, Marcos Douglas [EMAIL PROTECTED] escreveu: De: Marcos Douglas [EMAIL PROTECTED] Assunto: Re: [delphi-br] Status do cliente FTP Para: delphi-br@yahoogrupos.com.br Data: Quarta-feira, 22 de Outubro de 2008, 8:22 Vc pode utilizar o componente TIdAntiFreeze ou utilizar um Application. ProcessMessages no evento OnWork do TIdFTP, para que a aplicação não fique travada. Abraços Marcos Douglas 2008/10/21 Berdam berdamzinho@ yahoo.com. br: Pessoal, impementei uma cliente ftp com delphi, funcionou legal, mas gostaria de saber como pegar o status da conexão, ou seja, quando arquivos grandes são transferidos, o sistema fica esperando o arquivo ser totalemtne enviado para que outras funções possam ser executadas. Isso pode ocasionar com que o cliente feche a aplicação pensando que o sistema está travado. Estou usando o componente IDftp da paleta Indy 10, alguém que tenha experiência com isso pode ajudar??? - - - - - - Uberdam Cavaletti Formado em Tecnologia da Informação - Unoesc - Xxe Pós-graduado em desenvolvimento Java - Unoesc - Xxe http://www.curricul ar.com.br/ berdam Visite http://passandovene no.blogspot. com - - - - - - Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua cara @ymail.com ou @rocketmail. com. http://br.new. mail.yahoo. com/addresses [As partes desta mensagem que não continham texto foram removidas] - - -- -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua cara @ymail.com ou @rocketmail.com. http://br.new.mail.yahoo.com/addresses [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Bug do D2009 win32 ou algo que eu fiz errado?
fiz a rotina abaixo no delphi 2009 win32 usando intraweb.. esse codigo le um
arquivo que acabou de ser upado pro servidor pelo visitante da pagina.
ele nao acha nada e quando acha fica tudo como se fosse
'#0''#0''#0''#0''#0''#0''#0''#0''#0''#0''#0''#0' e fica tudo null na rotina
abaixo.
pequei o mesmo codigo joquei no intraweb do delphi 2006 e funcionou. será um
bug ou alguma configuração que eu tenho que setar por causa do unicode ou o
que?
a rotina:
procedure TformEnviarFornecedor.IWButton1Click(Sender: TObject);
var
txt : textfile;
I: Integer;
linha: string;
migradas : Integer;
erros: integer;
lerro: string;
lerrof : string;
procedure insericampo(campo: string; posicaoini, posicaoFim: integer;
padrao: string);
var s: string;
begin
s := string(copy(linha,posicaoini, posicaoFim));
if trim(s) = '' then s := 'null';
if (s = 'null')
then self.ds.dataset.FieldByName(campo).AsString := padrao
else self.ds.dataset.FieldByName(campo).AsString :=
TrimLeft(TrimRight(s));
Delete(linha,1,posicaofim);
end;
begin
try
IWFile1.SaveToFile;
WebApplication.ShowMessage(Format('Arquivo %s enviado com sucesso!',
[IWFile1.Filename]));
//tratando o arquivo...
AssignFile(txt, extractfilepath(paramstr(0))+IWFile1.Filename);
Reset(Txt);
migradas:= 0;
erros := 0;
ds.DataSet.Active := false;
TADOQuery(ds.dataset).SQL.Text := 'select * from fornecedor where cnpj =
'+#39+'000'+#39;
ds.DataSet.Active := true;
lerrof := '';
while not eof(txt) do
begin
Readln(txt,linha);
try
lerro := linha;
self.ds.DataSet.insert;
insericampo('codigo',1,15,'null');
insericampo('razao',1,39,'null');
insericampo('cnpj',1,22,'null');
insericampo('ie',1,18,'null');
insericampo('endereco',1,30,'null');
insericampo('numero',1,14,'0');
insericampo('bairro',1,23,'null');
insericampo('uf',1,2,'null');
self.ds.DataSet.Post;
migradas := migradas +1;
except
if ds.dataset.state = dsinsert
then ds.dataset.cancel;
erros := erros +1;
lerrof := lerrof + #13+ lerro;
end;
end;
closefile(txt);
merros.lines.clear;
merros.lines.add('Ação terminada');
merros.lines.add('Total de dados migrados : '+inttostr(migradas));
merros.lines.add('Total de Erros : '+inttostr(erros));
merros.lines.text := merros.lines.text + lerrof;
except
WebApplication.ShowMessage(Format('Erro ao enviar o arquivo %s !',
[IWFile1.Filename]));
end;
end;
--
---
Rafael jorge alves (Analista/desenvolvedor)
www.sistemafocus.com.br
sistema focus de gestão comercial e serviços em informatica.
---
[As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Bug do D2009 win32 ou algo que eu fiz errado?
fiz a rotina abaixo no delphi 2009 win32 usando intraweb.. esse codigo le um Teste a versão 10.0.3. Acho que isso foi corrigido nessa versão. Jackson Gomes ToolsComps - Controle de Usuários para Desenvolvedores CodeGear Web Site: http://www.toolsandcomps.com Nosso Fórum: http://groups.yahoo.com/group/toolsandcomps e-mail: [EMAIL PROTECTED] Fone: 27 3389 1138 - 8811 0324 Devhost - Webhost para desenvolvedores Delphi http://www.devhost.com.br [EMAIL PROTECTED]
Re: [delphi-br] Bug do D2009 win32 ou algo que eu fiz errado?
onde eu pego? desculpa e que so to começando a mexer com intraweb agora... 2008/10/22 Jackson Gomes - ToolsComps [EMAIL PROTECTED] fiz a rotina abaixo no delphi 2009 win32 usando intraweb.. esse codigo le um Teste a versão 10.0.3. Acho que isso foi corrigido nessa versão. Jackson Gomes ToolsComps - Controle de Usuários para Desenvolvedores CodeGear Web Site: http://www.toolsandcomps.com Nosso Fórum: http://groups.yahoo.com/group/toolsandcomps e-mail: [EMAIL PROTECTED] jackson%40toolsandcomps.com Fone: 27 3389 1138 - 8811 0324 -- Devhost - Webhost para desenvolvedores Delphi http://www.devhost.com.br [EMAIL PROTECTED] devhost%40devhost.com.br -- --- Rafael jorge alves (Analista/desenvolvedor) www.sistemafocus.com.br sistema focus de gestão comercial e serviços em informatica. --- [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Bug do D2009 win32 ou algo que eu fiz errado?
vc tem o D2007? Use o IW 9 desta versão. A versão estavel do IW vai ser a 10.0.4, dentro de 1 ou 2 semanas ainda. - Original Message - From: Rafael Jorge [EMAIL PROTECTED] To: delphi-br@yahoogrupos.com.br Sent: Wednesday, October 22, 2008 10:49 AM Subject: Re: [delphi-br] Bug do D2009 win32 ou algo que eu fiz errado? onde eu pego? desculpa e que so to começando a mexer com intraweb agora... 2008/10/22 Jackson Gomes - ToolsComps [EMAIL PROTECTED] fiz a rotina abaixo no delphi 2009 win32 usando intraweb.. esse codigo le um Teste a versão 10.0.3. Acho que isso foi corrigido nessa versão. Jackson Gomes ToolsComps - Controle de Usuários para Desenvolvedores CodeGear Web Site: http://www.toolsandcomps.com Nosso Fórum: http://groups.yahoo.com/group/toolsandcomps e-mail: [EMAIL PROTECTED] jackson%40toolsandcomps.com Fone: 27 3389 1138 - 8811 0324 -- Devhost - Webhost para desenvolvedores Delphi http://www.devhost.com.br [EMAIL PROTECTED] devhost%40devhost.com.br -- --- Rafael jorge alves (Analista/desenvolvedor) www.sistemafocus.com.br sistema focus de gestão comercial e serviços em informatica. --- [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
Re: [delphi-br] Bug do D2009 win32 ou algo que eu fiz errado?
na verdade nao tenho nao. la na empresa é o 2006.. ai tava na empresa de um amigo testando o 2009. pra ver se valia a pena migrar. a $$ ta curtinha.. fiquei impressionado com o ajax e o iw, sem falar que final,mente tem heranca visual.. ai foi show. mas me deparei com alguns bugs quando tentei fazer umas coisas... por sinal acho que o erro é ate do propio delphi e nao do framework intraweb.. t+ 2008/10/22 Jackson Gomes - ToolsComps [EMAIL PROTECTED] vc tem o D2007? Use o IW 9 desta versão. A versão estavel do IW vai ser a 10.0.4, dentro de 1 ou 2 semanas ainda. - Original Message - From: Rafael Jorge [EMAIL PROTECTED] rafael.jorge%40gmail.com To: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br Sent: Wednesday, October 22, 2008 10:49 AM Subject: Re: [delphi-br] Bug do D2009 win32 ou algo que eu fiz errado? onde eu pego? desculpa e que so to começando a mexer com intraweb agora... 2008/10/22 Jackson Gomes - ToolsComps [EMAIL PROTECTED]jackson%40toolsandcomps.com fiz a rotina abaixo no delphi 2009 win32 usando intraweb.. esse codigo le um Teste a versão 10.0.3. Acho que isso foi corrigido nessa versão. Jackson Gomes ToolsComps - Controle de Usuários para Desenvolvedores CodeGear Web Site: http://www.toolsandcomps.com Nosso Fórum: http://groups.yahoo.com/group/toolsandcomps e-mail: [EMAIL PROTECTED] jackson%40toolsandcomps.comjackson% 40toolsandcomps.com Fone: 27 3389 1138 - 8811 0324 -- Devhost - Webhost para desenvolvedores Delphi http://www.devhost.com.br [EMAIL PROTECTED] devhost%40devhost.com.br devhost% 40devhost.com.br -- -- Rafael jorge alves (Analista/desenvolvedor) www.sistemafocus.com.br sistema focus de gestão comercial e serviços em informatica. -- [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM -- --- Rafael jorge alves (Analista/desenvolvedor) www.sistemafocus.com.br sistema focus de gestão comercial e serviços em informatica. --- [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Re: Ajuda para TCC sobre sistema para medir recursos
Alguém pode ajudar?? --- Em delphi-br@yahoogrupos.com.br, Ildebrando [EMAIL PROTECTED] escreveu Estamos fazendo o TCC (atrasado e sempre na última hora...rs) e gostaria da ajuda do pessoal, expressando sua opinião e matérias se souberem. O objetivo do TCC é comparar o desempenho/performance entre um sistema client-server e um banco de dados, ambos utilizando a mesma regra de negócios e cálculos. Queremos mensurar o quanto um método é melhor que outro. Se um sistema fazendo todos os cálculos e o banco apenas como repositório de dados, ou se os cálculos ficarem todos no banco e serem invocados por SP... pelo menos é uma dúvida interessante entre os desenvolvedores... Postem matérias sobre o assunto e expressem a opiniões de vcs... lembre-se que o resultado terá que ser medido e apresentado de forma científica e não apenas por dedução e opinião individual... Valew galera
Re: [delphi-br] Re: Ajuda para TCC sobre sistema para medir recursos
Te passei dois links sobre o SilkTest, chegou a olhar? Tô vendo com um camarada tb. []s Adriano Santos Ildebrando respondeu: Alguém pode ajudar?? --- Em delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br, Ildebrando [EMAIL PROTECTED] escreveu Estamos fazendo o TCC (atrasado e sempre na última hora...rs) e gostaria da ajuda do pessoal, expressando sua opinião e matérias se souberem. O objetivo do TCC é comparar o desempenho/performance entre um sistema client-server e um banco de dados, ambos utilizando a mesma regra de negócios e cálculos. Queremos mensurar o quanto um método é melhor que outro. Se um sistema fazendo todos os cálculos e o banco apenas como repositório de dados, ou se os cálculos ficarem todos no banco e serem invocados por SP... pelo menos é uma dúvida interessante entre os desenvolvedores... Postem matérias sobre o assunto e expressem a opiniões de vcs... lembre-se que o resultado terá que ser medido e apresentado de forma científica e não apenas por dedução e opinião individual... Valew galera No virus found in this incoming message. Checked by AVG - http://www.avg.com Version: 8.0.175 / Virus Database: 270.8.2/1739 - Release Date: 22/10/2008 07:23 -- Adriano Santos Director X-35 Consulting Development IT Manager SoftPark Chief Editor Magazines ClubeDelphi WebMobile www.delphitodelphi.blogspot.com www.adrianosantos.pro.br www.devmedia.com.br www.dug-sp.com
RES: [delphi-br] Duvidas sobre Consultas sql parametrizadas entre duas tabelas com ClientDataSet ou SqlDataSET!
Kr usa o join assim que fica melhor.
select DETALHES_SAIDA.EST_CODIGO, DETALHES_SAIDA.QUANTIDADE,
DETALHES_SAIDA.VALOR, DETALHES_SAIDA.VALOR_TOTAL, SAIDA.ID_SAIDA,
SAIDA.ID_SOLICITANTE, SAIDA.DATA_SAIDA from SAIDA
inner join DETALHES_SAIDA on (SAIDA.ID_SAIDA = DETALHES_SAIDA.ID_SAIDA)
fica mais organizado.
_
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
nome de Vicente Alves
Enviada em: quarta-feira, 22 de outubro de 2008 09:57
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] Duvidas sobre Consultas sql parametrizadas entre duas
tabelas com ClientDataSet ou SqlDataSET!
Obrigado pela dica Emersom Bertoldo valeu mesmo!
Fiz as Consultas assim
cds_consul_saida.Active := False; cds_consul_saida.Close;
cds_consul_saida.CommandText := 'select * FROM SAIDA where ID_saida =:cod';
cds_consul_saida.Params.ParamByName('cod').AsString:=edit1.Text;
cds_consul_saida.Active := tRUE;
Deu certo tanto com pelo command Text do ClientDataSet ou pelo command Text
do SQLDataSet.
Só que essa consulta tem que ser entre duas tabelas SAIDA X DETALHES_SAIDA
no commadText do SQLDataset eu tinha essa SQL que dava certo também:
select DETALHES_SAIDA.EST_CODIGO, DETALHES_SAIDA.QUANTIDADE,
DETALHES_SAIDA.VALOR, DETALHES_SAIDA.VALOR_TOTAL, SAIDA.ID_SAIDA,
SAIDA.ID_SOLICITANTE, SAIDA.DATA_SAIDAfrom DETALHES_SAIDA,SAIDAwhere
SAIDA.ID_SAIDA = DETALHES_SAIDA.ID_SAIDA
A minha duvida é o seguinte como eu faço pra fazer essas consultas
parametrizadas com essas instruções SQL juntas é possivel ter duas condições
Where na mesma consulta SQL?? como estou colocando as consultas em botão eu
não posso deixar nada no commadText do SQLDataset como eu faço pra juntar
tudo isso em uma unica consulta?
Se álguem puder ajudar agradeço muito!!!
__
Cansado de espaço para só 50 fotos? Conheça o Spaces, o site de
relacionamentos com até 6,000 fotos!
http://www.amigosdo http://www.amigosdomessenger.com.br messenger.com.br
[As partes desta mensagem que não continham texto foram removidas]
[As partes desta mensagem que não continham texto foram removidas]
RE: Res: [delphi-br] Controle de Permissão de usuário!
Realmente Jean, eu pensei mesmo que poderia acontecer de duas pessoas do mesmo perfil terem alguma diferença nas permissões, levando em consideração a sua experiencia vou tentar pensar em algo mais simples porem sem a ideia dos perfis para nao cair nesse erro... um outro amigo aqui indicou um componente o User Control vou ver como é esse componente talvez pode ajudar nessa tentativa de facilidades Abraços... To: [EMAIL PROTECTED]: [EMAIL PROTECTED]: Wed, 22 Oct 2008 04:51:17 -0700Subject: Res: [delphi-br] Controle de Permissão de usuário! Realmente esta é uma Thread das grandesmas, eu axei interesante sua idéia dos perfissó que isso gereria desvantagens tambemcomo vc falou se alterar o perfil alterapara todos os usuários e num sistemaném todos os usuários tem as mesmas permissõestipo uma pessoa do perfil usuário pode teruma ou mais opções diferente de uma outra pessoao que implicaria na criação de mais um perfilna pratica seria a mesma coisa de configuraras permissões individualmente por usuárioé o que eu penso e conheço pelos anos de prática! Jean BarreirosProgramador/Web-DesignerDelphi, C++, PHP, JavaScriptFireBird/InterBase, MySql, SQLServer, PostGree, Oraclemsn: [EMAIL PROTECTED]: [EMAIL PROTECTED] - Mensagem original De: Pablo Henrique Vianini Souza [EMAIL PROTECTED]Para: [EMAIL PROTECTED]: Terça-feira, 21 de Outubro de 2008 23:22:48Assunto: [delphi-br] Controle de Permissão de usuário!Pessoal, fiquei por horas pensando uma maneira pratica e rápida de se fazer um controle de permissão de úsuario em meu sistemaGostaria de fazer algo bem simples, pq é muito chato quando vc vai gerar permissões e que tem aqueles milhares de checkbox um para cada opção do menu, então pensei em algo que pude-se ser mais prático, tipo:O Administrador do sistema criar Perfis tipo Administrador , Balconista , Encarregado , e dentro destes perfis poderia sim criar as centenas de check box, porem depois que os perfis estivesem prontos, quando adicionar um novo usuario, simplesmente informariamos qual o perfil daquele usuario... em caso de necessidade alteraria o perfil e todos os usuarios daquele perfil iria adquirir aquela alteração...Vcs conhecem algum componente que ajuda a controlar essa questão de permissão, o action list seria um componente ideal pra isso??Abraços pessoal _ _ _ _ _ _Cansado de espaço para só 50 fotos? Conheça o Spaces, o site de relacionamentos com até 6,000 fotos!http://www.amigosdo messenger. com.br[As partes desta mensagem que não continham texto foram removidas]Mensagens neste tópico (1) Responder (através da web) | Adicionar um novo tópico Mensagens | Arquivos | Fotos | Links | Banco de dados -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Alterar configurações via web (Requer Yahoo! ID) Alterar configurações via e-mail: Alterar recebimento para lista diária de mensagens | Alterar formato para o tradicional Visite seu Grupo | Termos de uso do Yahoo! Grupos | Sair do grupo Atividade nos últimos dias* 14Novos usuários* 2Novos linksVisite seu Grupo Yahoo! MailConecte-se ao mundoProteção anti-spamMuito mais espaçoYahoo! BarraInstale grátisBuscar sites na webChecar seus e-mails .Yahoo! GruposCrie seu próprio grupoA melhor forma de comunicação. __,_.._,___ Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua cara @ymail.com ou @rocketmail.com.http://br.new..mail.yahoo.com/addresses[As partes desta mensagem que não continham texto foram removidas] _ Cansado de espaço para só 50 fotos? Conheça o Spaces, o site de relacionamentos com até 6,000 fotos! http://www.amigosdomessenger.com.br [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Re: Duvidas sobre Consultas sql parametrizadas entre duas tabelas com ClientData
vc deveria usar INNER JOIN por EX:
select * FROM SAIDA
INNER JOIN
select * FROM SAIDA
INNER JOIN DETALHES_SAIDA on (DETALHES_SAIDA.ID_SAIDA =
SAIDA.ID_SAIDA)
where das duas tabelas
--- Em delphi-br@yahoogrupos.com.br, Vicente Alves
[EMAIL PROTECTED] escreveu
Obrigado pela dica Emersom Bertoldo valeu mesmo!
Fiz as Consultas assim
cds_consul_saida.Active := False; cds_consul_saida.Close;
cds_consul_saida.CommandText := 'select * FROM SAIDA where ID_saida
=:cod';
cds_consul_saida.Params.ParamByName('cod').AsString:=edit1.Text;
cds_consul_saida.Active := tRUE;
Deu certo tanto com pelo command Text do ClientDataSet ou pelo
command Text do SQLDataSet.
Só que essa consulta tem que ser entre duas tabelas SAIDA X
DETALHES_SAIDA no commadText do SQLDataset eu tinha essa SQL que dava
certo também:
select DETALHES_SAIDA.EST_CODIGO, DETALHES_SAIDA.QUANTIDADE,
DETALHES_SAIDA.VALOR, DETALHES_SAIDA.VALOR_TOTAL, SAIDA.ID_SAIDA,
SAIDA.ID_SOLICITANTE, SAIDA.DATA_SAIDAfrom DETALHES_SAIDA,SAIDAwhere
SAIDA.ID_SAIDA = DETALHES_SAIDA.ID_SAIDA
A minha duvida é o seguinte como eu faço pra fazer essas consultas
parametrizadas com essas instruções SQL juntas é possivel ter duas
condições Where na mesma consulta SQL?? como estou colocando as
consultas em botão eu não posso deixar nada no commadText do
SQLDataset como eu faço pra juntar tudo isso em uma unica consulta?
Se álguem puder ajudar agradeço muito!!!
_
Cansado de espaço para só 50 fotos? Conheça o Spaces, o site de
relacionamentos com até 6,000 fotos!
http://www.amigosdomessenger.com.br
[As partes desta mensagem que não continham texto foram removidas]
Re: Res: [delphi-br] Controle de Permissão de usuário!
Sobre o controle de acesso dos operadores, usuários como queiram eu utilizo um nível no cadastro dos operadores de 0 a 9, uma tabela com o nome dos formulários, no qual determino níveis de 0 a 9, para acessar, cadastrar, consultar, alterar, excluir e em quais estações é permitido o acesso de cada formulário ou em TODAS. É um pouco trabalhoso, mas tem um bom controle sobre o acesso. Espero ter contribuir com a idéia. Zucchi --- Em delphi-br@yahoogrupos.com.br, Pablo Henrique Vianini Souza [EMAIL PROTECTED] escreveu Realmente Jean, eu pensei mesmo que poderia acontecer de duas pessoas do mesmo perfil terem alguma diferença nas permissões, levando em consideração a sua experiencia vou tentar pensar em algo mais simples porem sem a ideia dos perfis para nao cair nesse erro... um outro amigo aqui indicou um componente o User Control vou ver como é esse componente talvez pode ajudar nessa tentativa de facilidades Abraços... To: [EMAIL PROTECTED]: [EMAIL PROTECTED]: Wed, 22 Oct 2008 04:51:17 - 0700Subject: Res: [delphi-br] Controle de Permissão de usuário! Realmente esta é uma Thread das grandesmas, eu axei interesante sua idéia dos perfissó que isso gereria desvantagens tambemcomo vc falou se alterar o perfil alterapara todos os usuários e num sistemaném todos os usuários tem as mesmas permissõestipo uma pessoa do perfil usuário pode teruma ou mais opções diferente de uma outra pessoao que implicaria na criação de mais um perfilna pratica seria a mesma coisa de configuraras permissões individualmente por usuárioé o que eu penso e conheço pelos anos de prática! Jean BarreirosProgramador/Web- DesignerDelphi, C++, PHP, JavaScriptFireBird/InterBase, MySql, SQLServer, PostGree, Oraclemsn: [EMAIL PROTECTED]: [EMAIL PROTECTED] - Mensagem original De: Pablo Henrique Vianini Souza [EMAIL PROTECTED]Para: [EMAIL PROTECTED]: Terça-feira, 21 de Outubro de 2008 23:22:48Assunto: [delphi-br] Controle de Permissão de usuário! Pessoal, fiquei por horas pensando uma maneira pratica e rápida de se fazer um controle de permissão de úsuario em meu sistemaGostaria de fazer algo bem simples, pq é muito chato quando vc vai gerar permissões e que tem aqueles milhares de checkbox um para cada opção do menu, então pensei em algo que pude-se ser mais prático, tipo:O Administrador do sistema criar Perfis tipo Administrador , Balconista , Encarregado , e dentro destes perfis poderia sim criar as centenas de check box, porem depois que os perfis estivesem prontos, quando adicionar um novo usuario, simplesmente informariamos qual o perfil daquele usuario... em caso de necessidade alteraria o perfil e todos os usuarios daquele perfil iria adquirir aquela alteração...Vcs conhecem algum componente que ajuda a controlar essa questão de permissão, o action list seria um componente ideal pra isso??Abraços pessoal _ _ _ _ _ _Cansado de espaço para só 50 fotos? Conheça o Spaces, o site de relacionamentos com até 6,000 fotos!http://www.amigosdo messenger. com.br[As partes desta mensagem que não continham texto foram removidas]Mensagens neste tópico (1) Responder (através da web) | Adicionar um novo tópico Mensagens | Arquivos | Fotos | Links | Banco de dados -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Alterar configurações via web (Requer Yahoo! ID) Alterar configurações via e-mail: Alterar recebimento para lista diária de mensagens | Alterar formato para o tradicional Visite seu Grupo | Termos de uso do Yahoo! Grupos | Sair do grupo Atividade nos últimos dias* 14Novos usuários* 2Novos linksVisite seu Grupo Yahoo! MailConecte-se ao mundoProteção anti- spamMuito mais espaçoYahoo! BarraInstale grátisBuscar sites na webChecar seus e-mails .Yahoo! GruposCrie seu próprio grupoA melhor forma de comunicação. __,_.._,___ Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua cara @ymail.com ou @rocketmail.com.http://br.new..mail.yahoo.com/addresses[As partes desta mensagem que não continham texto foram removidas] _ Cansado de espaço para só 50 fotos? Conheça o Spaces, o site de relacionamentos com até 6,000 fotos! http://www.amigosdomessenger.com.br [As partes desta mensagem que não continham texto foram removidas]
Re: Res: [delphi-br] Controle de Permissão de usuá rio!
comunicação. __,_.._,___ Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua cara @ymail.com ou @rocketmail.com.http://br.new..mail.yahoo.com/addresses[As partes desta mensagem que não continham texto foram removidas] __ Cansado de espaço para só 50 fotos? Conheça o Spaces, o site de relacionamentos com até 6,000 fotos! http://www.amigosdomessenger.com.br [As partes desta mensagem que não continham texto foram removidas] __ Information from ESET NOD32 Antivirus, version of virus signature database 3546 (20081022) __ The message was checked by ESET NOD32 Antivirus. http://www.eset.com [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Problemas com a function Pos no Delphi 2009
Amigos, tenho uma função que usa o Pos do Delphi, mas ao rodar no Delphi
2009, dá:
E2251 Ambiguous overloaded call to 'Pos'
System.pas(16671): Related method: function Pos(const WideString; const
WideString): Integer;
System.pas(18129): Related method: function Pos(const string; const
string): Integer;
no exemplo assim: pos('versao', sTexto)
Como arrumo isso?
Obrigado.
--
_
T.·.F.·.A.·.
Fellipe Henrique
---
CAMPANHA POR UMA INTERNET SEGURA
Proteja o endereço de seus amigos como estou protegendo o seu. Ao enviar
mensagens use SEMPRE o Cco (cópia oculta).
Assim TODOS os endereços estarão preservados. E, claro, antes de encaminhar
um e-mail, delete todas as informações que apareçam no corpo do e-mail e que
possam ser usadas por hackers.
###
[As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Componente Ajuda...
Lista Estou querendo fazer um componente parecido com o DBLookUpCombobox quero que ele me mostre os dados = ao um DBGRID... e que não fique apenas do tamanho da propriedade Width do componente, pois as vezes os dados podem ser maiores... e que o dataset não precise ficar aberto... gostaria que fosse tipo um esquema de inserir item q nem o comboxo... e não sei por onde começar... no combobox... quando ele mostra os dados... ele lista em um ListBox... é possivel alterar do ListBox.. para outro componente.. ??? Wesley [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Problemas com a function Pos no Delphi 2009
Qual o tipo da variável sTexto ?
refiz um teste aqui com o Tipo String e deu certo..
procedure TForm1.Button1Click(Sender: TObject);
var
cStr:String;
begin
cStr := 'Eduardo';
if Pos( 'du', cStr ) 0 then
ShowMessage( 'YES' )
else
ShowMessage( 'NO' );
end;
2008/10/22 Fellipe Henrique [EMAIL PROTECTED]
Amigos, tenho uma função que usa o Pos do Delphi, mas ao rodar no Delphi
2009, dá:
E2251 Ambiguous overloaded call to 'Pos'
System.pas(16671): Related method: function Pos(const WideString; const
WideString): Integer;
System.pas(18129): Related method: function Pos(const string; const
string): Integer;
no exemplo assim: pos('versao', sTexto)
Como arrumo isso?
Obrigado.
--
_
T.·.F.·.A.·.
Fellipe Henrique
--
CAMPANHA POR UMA INTERNET SEGURA
Proteja o endereço de seus amigos como estou protegendo o seu. Ao enviar
mensagens use SEMPRE o Cco (cópia oculta).
Assim TODOS os endereços estarão preservados. E, claro, antes de encaminhar
um e-mail, delete todas as informações que apareçam no corpo do e-mail e
que
possam ser usadas por hackers.
###
[As partes desta mensagem que não continham texto foram removidas]
--
...
Eduardo Silva dos Santos
DRD SISTEMAS
(27) 3218-4201
(27) 8842-9489
MSN: [EMAIL PROTECTED]
Site: http://www.drdsistemas.com.br/
...
[As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Problemas com a function Pos no Delphi 2009
É WideString.. resolvi passando assim:
Pos(WideString(s), WideString(s2));
[]s
2008/10/22 Eduardo Silva dos Santos [EMAIL PROTECTED]
Qual o tipo da variável sTexto ?
refiz um teste aqui com o Tipo String e deu certo..
procedure TForm1.Button1Click(Sender: TObject);
var
cStr:String;
begin
cStr := 'Eduardo';
if Pos( 'du', cStr ) 0 then
ShowMessage( 'YES' )
else
ShowMessage( 'NO' );
end;
2008/10/22 Fellipe Henrique [EMAIL PROTECTED] fellipeh%40gmail.com
Amigos, tenho uma função que usa o Pos do Delphi, mas ao rodar no Delphi
2009, dá:
E2251 Ambiguous overloaded call to 'Pos'
System.pas(16671): Related method: function Pos(const WideString; const
WideString): Integer;
System.pas(18129): Related method: function Pos(const string; const
string): Integer;
no exemplo assim: pos('versao', sTexto)
Como arrumo isso?
Obrigado.
--
_
T.·.F.·.A.·.
Fellipe Henrique
--
CAMPANHA POR UMA INTERNET SEGURA
Proteja o endereço de seus amigos como estou protegendo o seu. Ao enviar
mensagens use SEMPRE o Cco (cópia oculta).
Assim TODOS os endereços estarão preservados. E, claro, antes de
encaminhar
um e-mail, delete todas as informações que apareçam no corpo do e-mail e
que
possam ser usadas por hackers.
###
[As partes desta mensagem que não continham texto foram removidas]
--
...
Eduardo Silva dos Santos
DRD SISTEMAS
(27) 3218-4201
(27) 8842-9489
MSN: [EMAIL PROTECTED] eduardo.drd%40gmail.com
Site: http://www.drdsistemas.com.br/
...
[As partes desta mensagem que não continham texto foram removidas]
--
_
T.·.F.·.A.·.
Fellipe Henrique
---
CAMPANHA POR UMA INTERNET SEGURA
Proteja o endereço de seus amigos como estou protegendo o seu. Ao enviar
mensagens use SEMPRE o Cco (cópia oculta).
Assim TODOS os endereços estarão preservados. E, claro, antes de encaminhar
um e-mail, delete todas as informações que apareçam no corpo do e-mail e que
possam ser usadas por hackers.
###
[As partes desta mensagem que não continham texto foram removidas]
[delphi-br] [urgente] iw do delphi 2009 nao funciona com o iis 6.0
desenvolvi uma aplicacao em iw agora fui publicar e simplesmente nao ta rodando.. ja setei permissao na pasta.. criei um diretorio virtual com as tres primeiras opcoes de executar, etc. e nada.. estou desenvolvendo usando ADO... obrigado.. t+ -- --- Rafael jorge alves (Analista/desenvolvedor) www.sistemafocus.com.br sistema focus de gestão comercial e serviços em informatica. --- [As partes desta mensagem que não continham texto foram removidas]
Res: [delphi-br] Componente Ajuda...
Crie um componente que seja hedeiro de TDBGrid, TSpeedButton e TEdit dai vc faz ele ficar mais ou menos assim: [Edit][v] -- SpeedButton ++ || || ---DBGrid---| || ++ . . Jean Barreiros Programador/Web-Designer Delphi, C++, PHP, JavaScript FireBird/InterBase, MySql, SQLServer, PostGree, Oracle msn: [EMAIL PROTECTED] e-mail: [EMAIL PROTECTED] - Mensagem original De: BandaLemuel [EMAIL PROTECTED] Para: delphi-br@yahoogrupos.com.br Enviadas: Quarta-feira, 22 de Outubro de 2008 16:11:03 Assunto: [delphi-br] Componente Ajuda... Lista Estou querendo fazer um componente parecido com o DBLookUpCombobox. ... quero que ele me mostre os dados = ao um DBGRID... e que não fique apenas do tamanho da propriedade Width do componente, pois as vezes os dados podem ser maiores... e que o dataset não precise ficar aberto... gostaria que fosse tipo um esquema de inserir item q nem o comboxo... e não sei por onde começar... no combobox... quando ele mostra os dados... ele lista em um ListBox... é possivel alterar do ListBox.. para outro componente.. ??? Wesley [As partes desta mensagem que não continham texto foram removidas] __.._,_.___ Mensagens neste tópico (1) Responder (através da web) | Adicionar um novo tópico Mensagens | Arquivos | Fotos | Links | Banco de dados -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Alterar configurações via web (Requer Yahoo! ID) Alterar configurações via e-mail: Alterar recebimento para lista diária de mensagens | Alterar formato para o tradicional Visite seu Grupo | Termos de uso do Yahoo! Grupos | Sair do grupo Atividade nos últimos dias * 17 Novos usuários * 2 Novos linksVisite seu Grupo Yahoo! Mail Conecte-se ao mundo Proteção anti-spam Muito mais espaço Yahoo! Barra Instale grátis Buscar sites na web Checar seus e-mails . Yahoo! Grupos Crie seu próprio grupo A melhor forma de comunicação . Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua cara @ymail.com ou @rocketmail.com. http://br.new.mail.yahoo.com/addresses [As partes desta mensagem que não continham texto foram removidas]
RE: [delphi-br] [urgente] iw do delphi 2009 nao funciona com o iis 6.0
Passa o coninitialization do server controller para cinormal... já fez isso? From: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] On Behalf Of Rafael Jorge Sent: quarta-feira, 22 de outubro de 2008 16:44 To: delphi-br Subject: [delphi-br] [urgente] iw do delphi 2009 nao funciona com o iis 6.0 desenvolvi uma aplicacao em iw agora fui publicar e simplesmente nao ta rodando.. ja setei permissao na pasta.. criei um diretorio virtual com as tres primeiras opcoes de executar, etc. e nada.. estou desenvolvendo usando ADO... obrigado.. t+ -- -- Rafael jorge alves (Analista/desenvolvedor) www.sistemafocus.com.br sistema focus de gestão comercial e serviços em informatica. -- [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Componentes para Delphi 2009
Olha eu de novo pessoal... Primeiramente gostaria de dizer que é um prazer estar no meio de pessoas dispostas mesmo a ajudar, nao tendo o conhecimento como um patrimonio mas sim como uma questão de solidariedade auehaeuhaeuaheeu, mas vamos onde quero chegar... Pessoal tenho visto que componentes de terceiros são ferramentas bem atraentes isso falando em delphi 7 que é o que tenho uma pouco mais de afinidades, por exemplo, componentes de conexão (Zeos), Componentes para tirar fotos em WebCam (achei um mas acho que Adriano é o nome do desenvolvedor) entre outros, até alguns que parecem muito legal mas caro, são os da DevExpress o CxGrid por exemplo, mediante a isso, gostaria de saber se vcs já conhecem alguns componentes de terceiros para o Delphi 2009? De preferencia Free... Caso conheçam teriam o link do site para eu dar uma olhada? Qual melhor componente nativo do delphi 2009 se usa para conexão com MySql? Abraços a todos. Pablo Vianini _ Conheça o Windows Live Spaces, a rede de relacionamentos do Messenger! http://www.amigosdomessenger.com.br/ [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] [urgente] iw do delphi 2009 nao funciona com o iis 6.0
coloquei mas nao faz nada. T+ 2008/10/22 Bruno Lichot [EMAIL PROTECTED] Passa o coninitialization do server controller para cinormal... já fez isso? From: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br[mailto: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br] On Behalf Of Rafael Jorge Sent: quarta-feira, 22 de outubro de 2008 16:44 To: delphi-br Subject: [delphi-br] [urgente] iw do delphi 2009 nao funciona com o iis 6.0 desenvolvi uma aplicacao em iw agora fui publicar e simplesmente nao ta rodando.. ja setei permissao na pasta.. criei um diretorio virtual com as tres primeiras opcoes de executar, etc. e nada.. estou desenvolvendo usando ADO... obrigado.. t+ -- -- Rafael jorge alves (Analista/desenvolvedor) www.sistemafocus.com.br sistema focus de gestão comercial e serviços em informatica. -- [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] -- --- Rafael jorge alves (Analista/desenvolvedor) www.sistemafocus.com.br sistema focus de gestão comercial e serviços em informatica. --- [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Livro Sobre MultiCamadas DataSnap
Galera um amigo me pediu uma indicação sobre um livro que aborda o Assunto Multicamadas com DataSnap e Thread-Safe e fiquei sem respostas pra ele mesmo procurando na internet não achei nada alguém conhece algum? se não existe porque os caras feras mesmo nesse assunto tipo o Bruno, Andreano ou Marcos (mrbar200) não escreve um bem completo, mas, objetivo, pratico, pra todos nós que estamos começando? Eu compraria, quem mais compraria? . . . Jean Barreiros Programador/Web-Designer Delphi, C++, PHP, JavaScript FireBird/InterBase, MySql, SQLServer, PostGree, Oracle msn: [EMAIL PROTECTED] e-mail: [EMAIL PROTECTED] Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua cara @ymail.com ou @rocketmail.com. http://br.new.mail.yahoo.com/addresses [As partes desta mensagem que não continham texto foram removidas]
Re: Res: [delphi-br] Controle de Permissão de us uário!
| Termos de uso do Yahoo! Grupos | Sair do grupo Atividade nos últimos dias* 14Novos usuários* 2Novos linksVisite seu Grupo Yahoo! MailConecte- se ao mundoProteção anti- spamMuito mais espaçoYahoo! BarraInstale grátisBuscar sites na webChecar seus e-mails .Yahoo! GruposCrie seu próprio grupoA melhor forma de comunicação. __,_.._,___ Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua cara @ymail.com ou @rocketmail.com. http://br. new..mail. yahoo.com/ addresses[As partes desta mensagem que não continham texto foram removidas] _ _ _ _ _ _ Cansado de espaço para só 50 fotos? Conheça o Spaces, o site de relacionamentos com até 6,000 fotos! http://www.amigosdo messenger. com.br [As partes desta mensagem que não continham texto foram removidas] __ Information from ESET NOD32 Antivirus, version of virus signature database 3546 (20081022) __ The message was checked by ESET NOD32 Antivirus. http://www.eset. com [As partes desta mensagem que não continham texto foram removidas] Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua cara @ymail.com ou @rocketmail.com. http://br.new.mail.yahoo.com/addresses [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] [DICA] Dia da Semana: DayOfWeek() ou DayOfTheWeek()?
Existem duas funções no Object Pascal, a partir do Delphi 6, criadas para identificar o primeiro dia da semana. Parece uma tarefa simples determinar qual o dia da semana de uma data, não necessitando ter duas funções para a mesma funcionalidade. Porém, devemos ter em mente que o Delphi é uma ferramenta desenvolvida para âmbito mundial, e convém verificar que por esse motivo, a ferramenta procurou ser desenvolvida para atender situações mais genéricas e também específicas para determinadas localizadades ao redor do mundo¹. Neste caso, por exemplo, é necessário ter toda a atenção sobre qual função faremos uso, principalmente ao se implementar rotinas de cálculo de parcelas em um sistema financeiro. A função DayOfTheWeek(), da unit DateUtils, obedece a normalização ISO 8601, que determina a Segunda-feira como sendo o primeiro dia da semana. Já a função DayOfWeek(), da unit SysUtils, não segue essa normalização e considera o domingo como sendo primeiro dia da semana. Resumo da ópera: para os que não querem ter problemas, façam uso da função DayOfWeek(), pois a mesma se adequa à realidade brasileira que considera o domingo como o primeiro dia da semana. Sds., Rubem Rocha Manaus, AM P.S.: (1) Não vamos comparar esta situação com o clássico problema dos desenvolvedores brasileiros em imprimir em impressoras matriciais. O motivo é claro, isto é uma necessidade que, até então, só nos brazucas temos. Se fosse necessidade de outros países no mundo, a Borland (na época detentora do Delphi) teria incorporado à VCL (leia-se, classe TPrinter) subsídios para impressão matricial. _ Cansado de espaço para só 50 fotos? Conheça o Spaces, o site de relacionamentos com até 6,000 fotos! http://www.amigosdomessenger.com.br
[delphi-br] Alguém sabe se esta Rodando 100% o Fortes Reports para o Delphi 2007
Ola pessoal Alguém tem algum histórico do fortes reports para o Delphi 2007 ? Abs [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Livro Sobre MultiCamadas DataSnap
Boa noite Apoiado e não deixa de ser uma excelente idéia. Eu compraria _com certeza_ já que pra mim é muito difícil se deslocar para treinamentos. Mas no mínimo os caras já tiveram alguma idéia nessa linha. O que com certeza falta, é o mesmo que falta pra todos nós: Tempo. Abraços, Ricardo. --- Em qua, 22/10/08, Jean Barreiros [EMAIL PROTECTED] escreveu: De: Jean Barreiros [EMAIL PROTECTED] Assunto: [delphi-br] Livro Sobre MultiCamadas DataSnap Para: [EMAIL PROTECTED] Cc: delphi-br@yahoogrupos.com.br Data: Quarta-feira, 22 de Outubro de 2008, 17:21 Galera um amigo me pediu uma indicação sobre um livro que aborda o Assunto Multicamadas com DataSnap e Thread-Safe e fiquei sem respostas pra ele mesmo procurando na internet não achei nada alguém conhece algum? se não existe porque os caras feras mesmo nesse assunto tipo o Bruno, Andreano ou Marcos (mrbar200) não escreve um bem completo, mas, objetivo, pratico, pra todos nós que estamos começando? Eu compraria, quem mais compraria? . . . Jean Barreiros Programador/ Web-Designer Delphi, C++, PHP, JavaScript FireBird/InterBase, MySql, SQLServer, PostGree, Oracle msn: [EMAIL PROTECTED] com.br e-mail: [EMAIL PROTECTED] com Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua cara @ymail.com ou @rocketmail. com. http://br.new. mail.yahoo. com/addresses [As partes desta mensagem que não continham texto foram removidas] Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua cara @ymail.com ou @rocketmail.com. http://br.new.mail.yahoo.com/addresses [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Fwd: [DU] - Inalization / Finalization
-- Forwarded message -- From: Mônica Olveira [EMAIL PROTECTED] Date: 2008/10/22 Subject: [DU] - Inalization / Finalization To: [EMAIL PROTECTED], [EMAIL PROTECTED] Qual a vantagem de se trabalhar com estes comandos no final de um form? procedure Form2.Button1.Click(Sender: TObject); begin close; end; initialization RegisterClass(TForm2); finalization UnRegisterClass(TForm2); end. [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Como DEBUGAR uma STORED PROCEDURE ?
Fabio http://www.orkut.com.br/Main#Profile.aspx?uid=14658194472417066894Como DEBUGAR uma STORED PROCEDURE ?Pessoal Estou começando agora a mexer com T-SQL e me deparei com uma SP enorme e gostaria de saber se há alguma maneira de debugar uma sp acompanhando o seus resultados passo a passo. Abs [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Delphi 2009 e Unicode..
Olá Andreano e pessoal da lista, estou fazendo alguns testes no Delphi 2009
e dando uma olha da unit sysUtils eu vi o seguinte...
{$IFDEF MSWINDOWS}
procedure InitDriveSpacePtr;
var
Kernel: THandle;
begin
Kernel := GetModuleHandle(Windows.Kernel32);
if Kernel 0 then
*{$IFDEF UNICODE}*
@GetDiskFreeSpaceEx := GetProcAddress(Kernel, 'GetDiskFreeSpaceExW');
{$ELSE}
@GetDiskFreeSpaceEx := GetProcAddress(Kernel, 'GetDiskFreeSpaceExA');
{$ENDIF}
if not Assigned(GetDiskFreeSpaceEx) then
GetDiskFreeSpaceEx := @BackfillGetDiskFreeSpaceEx;
end;
{$ENDIF}
é possível eu definir ou não a diretiva UNICODE, afim de manter a
compatibilidade e não precisar modificar o código do meu software?
--
...
Eduardo Silva dos Santos
DRD SISTEMAS
(27) 3218-4201
(27) 8842-9489
MSN: [EMAIL PROTECTED]
Site: http://www.drdsistemas.com.br/
...
[As partes desta mensagem que não continham texto foram removidas]
RE: [delphi-br] Delphi 2009 e Unicode..
Você pode usar diretiva, assim como está no código abaixo.
Esse é o exemplo de código que usa API direto, mas no caso da VCL/RTL isso já
está definido.
From: delphi-br@yahoogrupos.com.br [EMAIL PROTECTED] On Behalf Of Eduardo Silva
dos Santos [EMAIL PROTECTED]
Sent: Wednesday, October 22, 2008 5:07 PM
To: delphi-br@yahoogrupos.com.br; Andreano Lanusse
Subject: [delphi-br] Delphi 2009 e Unicode..
Olá Andreano e pessoal da lista, estou fazendo alguns testes no Delphi 2009
e dando uma olha da unit sysUtils eu vi o seguinte...
{$IFDEF MSWINDOWS}
procedure InitDriveSpacePtr;
var
Kernel: THandle;
begin
Kernel := GetModuleHandle(Windows.Kernel32);
if Kernel 0 then
*{$IFDEF UNICODE}*
@GetDiskFreeSpaceEx := GetProcAddress(Kernel, 'GetDiskFreeSpaceExW');
{$ELSE}
@GetDiskFreeSpaceEx := GetProcAddress(Kernel, 'GetDiskFreeSpaceExA');
{$ENDIF}
if not Assigned(GetDiskFreeSpaceEx) then
GetDiskFreeSpaceEx := @BackfillGetDiskFreeSpaceEx;
end;
{$ENDIF}
é possível eu definir ou não a diretiva UNICODE, afim de manter a
compatibilidade e não precisar modificar o código do meu software?
--
...
Eduardo Silva dos Santos
DRD SISTEMAS
(27) 3218-4201
(27) 8842-9489
MSN: [EMAIL PROTECTED]mailto:eduardo.drd%40gmail.com
Site: http://www.drdsistemas.com.br/
...
[As partes desta mensagem que não continham texto foram removidas]
CONFIDENTIALITY NOTICE: This email message is for the sole use of the intended
recipient(s)
and may contain confidential and privileged information. Any unauthorized
review, use,
disclosure or distribution is prohibited. If you are not the intended
recipient, please
contact the sender by reply email and destroy all copies of the original
message.
Re: Res: [delphi-br] Controle de Permissão de usuário!
/ InterBase, MySql, SQLServer, PostGree, Oraclemsn: [EMAIL PROTECTED]: [EMAIL PROTECTED] .. - Mensagem original De: Pablo Henrique Vianini Souza [EMAIL PROTECTED] ..Para: [EMAIL PROTECTED] .: Terça-feira, 21 de Outubro de 2008 23:22:48Assunto: [delphi-br] Controle de Permissão de usuário! Pessoal, fiquei por horas pensando uma maneira pratica e rápida de se fazer um controle de permissão de úsuario em meu sistemaGostaria de fazer algo bem simples, pq é muito chato quando vc vai gerar permissões e que tem aqueles milhares de checkbox um para cada opção do menu, então pensei em algo que pude-se ser mais prático, tipo:O Administrador do sistema criar Perfis tipo Administrador , Balconista , Encarregado , e dentro destes perfis poderia sim criar as centenas de check box, porem depois que os perfis estivesem prontos, quando adicionar um novo usuario, simplesmente informariamos qual o perfil daquele usuario... em caso de necessidade alteraria o perfil e todos os usuarios daquele perfil iria adquirir aquela alteração...Vcs conhecem algum componente que ajuda a controlar essa questão de permissão, o action list seria um componente ideal pra isso??Abraços pessoal_ _ __ _ _ _ _ _ _Cansado de espaço para só 50 fotos? Conheça o Spaces, o site de relacionamentos com até 6,000 fotos!http://www.amigosdo messenger. com.br[As partes desta mensagem que não continham texto foram removidas]Mensagens neste tópico (1) Responder (através da web) | Adicionar um novo tópico Mensagens | Arquivos | Fotos | Links | Banco de dados -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Alterar configurações via web (Requer Yahoo! ID) Alterar configurações via e-mail: Alterar recebimento para lista diária de mensagens | Alterar formato para o tradicional Visite seu Grupo | Termos de uso do Yahoo! Grupos | Sair do grupo Atividade nos últimos dias* 14Novos usuários* 2Novos linksVisite seu Grupo Yahoo! MailConecte- se ao mundoProteção anti- spamMuito mais espaçoYahoo! BarraInstale grátisBuscar sites na webChecar seus e-mails .Yahoo! GruposCrie seu próprio grupoA melhor forma de comunicação. __,_.._,___ Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua cara @ymail.com ou @rocketmail.com. http://br. new..mail. yahoo.com/ addresses[As partes desta mensagem que não continham texto foram removidas] _ _ _ _ _ _ Cansado de espaço para só 50 fotos? Conheça o Spaces, o site de relacionamentos com até 6,000 fotos! http://www.amigosdo messenger. com.br [As partes desta mensagem que não continham texto foram removidas] __ Information from ESET NOD32 Antivirus, version of virus signature database 3546 (20081022) __ The message was checked by ESET NOD32 Antivirus. http://www.eset. com [As partes desta mensagem que não continham texto foram removidas] Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua cara @ymail.com ou @rocketmail.com. http://br.new.mail.yahoo.com/addresses http://br.new.mail.yahoo.com/addresses [As partes desta mensagem que não continham texto foram removidas]
