Re: [delphi-br] QRAngledLabel
Já tentei Colocar o caracter #13, #10 sLineBreak, e nada rolou ... [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] QRAngledLabel
Olá a todos, alguem aqui usa ou já usou este componente ? preciso colocar um texto com varias linhas, mas o texto sai em uma linha só e com aqueles caracteres especiais, indicando a quebra. com o QRDBText ou QRLabel, fica normal, utilizando o WordWrap, porem este QRAngledLabel nao possui esta propriedade. Alguem já fez isso ? ps: Tem de ser esse componente, pois preciso do texto em vários ângulos. Obrigado. [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Conexao Mysql 5.1
Bom dia, estou fazendo uns testes pra rodar um programa com mysql 5.1 O programa foi desenvolvido inicialmente pra FB 2.1 DBX - CDS - Delphi7 Ao analisar a troca pra mySql 5.1 - Testei o Zeos e vi que vou ter que adaptar um pouco o codigo. MyDac a empresa nao tem. Sobrou a DBX msm. Baixei a dbxopenmysql50.dll, mas o sqlConnection funciona normal, prem ao tentar conectar o Tquery, da acess violation, o mesmo com TsqlDataSet. Vi que a dbx do Delphi 2010 suportava mySql 5.1, fui fazer uns testes e, a conexao rola normal, o componente de ligacao tmb, seja TQuery, TSqlDataSet ou TTable, porem ao ligar tentar ligar o CDS, o resolver coloca o nome da tabela em minusculo, e como no meu BD esta em maiusculo, o CDS nao encontra a tabela e mostra o erro ''tabela nao encontrada' 1 - existe alguma opcao para o clientdataset resolver os nomes em maiusculo ? 2 - se eu alterar a base e deixar tudo minusculo, nao corro o risco de ter problemas depois ... ? vai q o cds resolve por tudo em uppercase ... ae fud*eu rsrsrs [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Lazarus
Walter ... falha grave sua em esquecer um dos flames mais importantes ... Fim do Delphi / Delphi Morreu ... -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: delphi-br-ow...@yahoogrupos.com.br Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: delphi-br-unsubscr...@yahoogrupos.com.br * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] barra de ferramentas...
Exatamente ... falha no engano ... a suite é a tms ... -- From: Luciano Bruno lsbdevelopm...@yahoo.com.br Sent: Thursday, July 29, 2010 10:24 PM To: delphi-br@yahoogrupos.com.br Subject: Re: [delphi-br] barra de ferramentas... pois é nao é dev express é da tms. tmssoftware.com Em 29 de julho de 2010 08:14, Eloi Filho e...@ig.com.br escreveu: bom dia Magnun, eu tenho a dex express e procurei em todas as paletas e nao encontrei o componente que vc mencionou... abraços... Eloi Filho Programador de Sistemas e...@ig.com.br efgf%40ig.com.br Contatos: (92) 3654-4965 / 9130-5174 - Original Message - From: Magnun Oliveira To: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br Sent: Wednesday, July 28, 2010 3:43 PM Subject: Re: [delphi-br] barra de ferramentas... Eloi ... a dev express tem um componente que faz isso, o TAdvSmoothDock. Ele tem uns recursos bem legais, mas nos testes que fiz, pesou um pouco a aplicação ... obs ... nao é free ... MAGNUN OLIVEIRA mag...@evolutiva.com.br magnun%40evolutiva.com.br Fone: (14) 3324-4010 www.evolutiva.com.br From: Eloi Filho Sent: Wednesday, July 28, 2010 8:28 AM To: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br Subject: Re: [delphi-br] barra de ferramentas... bom dia José Ricardo, obrigado pela sua resposta, valeu a intenção, mas esse componente eu já uso e como nosso amigo Walter Chagas disse eu preciso de um componente ou rotina que tenha os recursos do Macintoch mesmo. abraços... Eloi Filho Programador de Sistemas e...@ig.com.br efgf%40ig.com.br Contatos: (92) 3654-4965 / 9130-5174 - Original Message - From: thevorte...@yahoo.com.br thevortex78%40yahoo.com.br To: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br Sent: Wednesday, July 28, 2010 7:34 AM Subject: RES: [delphi-br] barra de ferramentas... Bom dia com o VCLSkin, vc consegue mudar o aspecto dos componentes, http://www.link-rank.com/ Atenciosamente. José Ricardo Aviles. assinatura1 ( Tel.: 19 3868-7185 ( Cel.: 19 8173 0077 * E-mail: mailto:jravi...@stiware.com.br jraviles%40stiware.com.br jravi...@stiware.com.br jraviles%40stiware.com.br Skype: stiware 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 Eloi Filho Enviada em: terça-feira, 27 de julho de 2010 18:53 Para: Grupo uninfe MG; Grupo lista-delphi; Grupo ib aberto; Grupo delphi-total aberto; Grupo delphi-br; Grupo Cooperar NFE SEFAZ-PR; Grupo automaçãototal Assunto: [delphi-br] barra de ferramentas... boa noite amigos, gostaria de saber se alguem tem ou ja fez alguma barra de ferramentas igual a do mac, aquela que quando vc coloca o cursor em cima dos icones eles ficam grandes e ela fica no desktop, se alguem tem um componente ou ja fez isso, gostaria de saber se pode compartilhar... abraços... Eloi Filho Programador de Sistemas e...@ig.com.br efgf%40ig.com.br mailto:efgf%40ig.com.brefgf%2540ig.com.br Contatos: (92) 3654-4965 / 9130-5174 [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] -- Luciano S. Bruno Consultor em TI [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
Re: [delphi-br] barra de ferramentas...
Eloi ... a dev express tem um componente que faz isso, o TAdvSmoothDock. Ele tem uns recursos bem legais, mas nos testes que fiz, pesou um pouco a aplicação ... obs ... nao é free ... MAGNUN OLIVEIRA mag...@evolutiva.com.br Fone: (14) 3324-4010 www.evolutiva.com.br From: Eloi Filho Sent: Wednesday, July 28, 2010 8:28 AM To: delphi-br@yahoogrupos.com.br Subject: Re: [delphi-br] barra de ferramentas... bom dia José Ricardo, obrigado pela sua resposta, valeu a intenção, mas esse componente eu já uso e como nosso amigo Walter Chagas disse eu preciso de um componente ou rotina que tenha os recursos do Macintoch mesmo. abraços... Eloi Filho Programador de Sistemas e...@ig.com.br Contatos: (92) 3654-4965 / 9130-5174 - Original Message - From: thevorte...@yahoo.com.br To: delphi-br@yahoogrupos.com.br Sent: Wednesday, July 28, 2010 7:34 AM Subject: RES: [delphi-br] barra de ferramentas... Bom dia com o VCLSkin, vc consegue mudar o aspecto dos componentes, http://www.link-rank.com/ Atenciosamente. José Ricardo Aviles. assinatura1 ( Tel.: 19 3868-7185 ( Cel.: 19 8173 0077 * E-mail: mailto:jravi...@stiware.com.br jravi...@stiware.com.br Skype: stiware De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de Eloi Filho Enviada em: terça-feira, 27 de julho de 2010 18:53 Para: Grupo uninfe MG; Grupo lista-delphi; Grupo ib aberto; Grupo delphi-total aberto; Grupo delphi-br; Grupo Cooperar NFE SEFAZ-PR; Grupo automaçãototal Assunto: [delphi-br] barra de ferramentas... boa noite amigos, gostaria de saber se alguem tem ou ja fez alguma barra de ferramentas igual a do mac, aquela que quando vc coloca o cursor em cima dos icones eles ficam grandes e ela fica no desktop, se alguem tem um componente ou ja fez isso, gostaria de saber se pode compartilhar... abraços... Eloi Filho Programador de Sistemas e...@ig.com.br mailto:efgf%40ig.com.br Contatos: (92) 3654-4965 / 9130-5174 [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] [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] [CLIENTDATASET 3 TABELAS]
fiquei com a mesma duvida ... estaria no caso, trazendo todos os registros master e todos os details do relacinamento de uma vez só ? tipo fetchall nas duas tabelas ? Em 22 de julho de 2010 23:32, Fabricio Colombo fabricio.colombo@gmail.com escreveu: Não entendi, a idéia não é essa mesma, para cada registro do pai carregar os filhos automaticamente. Exemplifica o que vc constatou. O que ele tava executando desnecessariamente. [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Ref. Timer Milissegundos
var inicio, fim: String; begin inicio := FormatDateTime('hhmmssmm', now); // procedimento // procedimento // procedimento fim := FormatDateTime('hhmmssmm', now); Label1.caption := IntToStr(StrToInt(fim) - StrtoInt(inicio)) + ' milissegundos para a execução da tarefa'; end; //obs: Altere os tipos das variaveis conforme sua necessidade; // obs2: manere no uso do timer; Em 22 de julho de 2010 10:38, Desenvolvimento Sisponto - Anderson desenvolvime...@sisponto.com.br escreveu: não use timer. crie uma variável do tipo cardinal, e jogue nela o valor da função GetTickCount. No fim, faça uma releitura do gettickcount e subtraia a ultima pela primeira. vc vai ter o tempo em milisegundos assim: var inicio : Cardinal; Fim : Cardinal; begin inicio := gettickcount; (...) fim := gettickcount; label1.caption := inttostr(fim-inicio)+'ms'; end; o gettickcount retorna o tempo em milisegundos em que o systema foi startado, até o limite de 49,7 dias... - Original Message - From: Omar Marques To: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br Sent: Thursday, July 22, 2010 10:18 AM Subject: [delphi-br] Ref. Timer Milissegundos Salve amigos(as) Delphianos, Estou com uma questão por resolver. Estou precisando colocar um timer que controlará o tempo decorrido do início de uma tarefa em milissegundos. Fiz isto usando um timer com interval = 1, mas está dando refresh direto no componente e além disso, parece que ele corta os outros eventos, por exemplo, tento pressionar um Alt+F que fecha a tela abrindo um menu, mas não funfa quando este timer está enabled. Qual seria a saída ? Thread ? Tem algum exemplo ai ? Alguém já passou por situação semelhante ? Uso Delphi 5 Enterprise Abraço e obrigado a todos. Ats. Omar M. Haddad Analista de Sistemas [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: delphi-br-ow...@yahoogrupos.com.br Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: delphi-br-unsubscr...@yahoogrupos.com.br * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] pixels de um TBitmap
Bom dia pessoal, preciso carregar uma imagem em um TBItmap e depois trabalhar com GetRValue, GetGValue e GetBValue. procedure Thread_Cobertura.JpgToBmp; var JPEG : TJPEGImage; begin PEG := TJPEGImage.Create; try JPEG.LoadFromFile(Arquivo); BMP := TBitmap.Create; BMP.Width := JPEG.Width; BMP.Height := JPEG.Height; BMP.Canvas.Draw(0, 0,JPEG); finally JPEG.Free; end; end; //obs: BMP um TBItmap; ... // Percorre os píxels ... for i := 0 to BMP.Height - 1 do begin for j := 0 to BMP.Width - 1 do begin R := GetRValue(BMP.Canvas.Pixels[j,i]); G := GetGValue(BMP.Canvas.Pixels[j,i]); B := GetBValue(BMP.Canvas.Pixels[j,i]); ... O codigo compila e roda normal, porém os valores para RGB são sempre 255, 255, 255 (ausencia de cor), porem se eu jogar o BMP em um TImage, ou no cavas do Form, a imagem é exibida normalmente ... alguem tem alguma dica? devo fazer outro procedimento p/ jogar a imagem pro BMP ? [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Re: Delphi Prism
Certa vez, eu, em uma aula de programação na faculdade, estava prestando sobre a palestra que o professor dava a respeito do Java ... O foco principal era a independencia de plataforma. Apos a seguinte frase: Uma das muitas vantagens, é a independencia de plataforma. Se vc escrever uma aplicação, em um sistema, basta coloca-la no outro e ela funciona, nenhuma liguagem permite isso!, PCs, notes, celulares, palms, canetas, relogios, aneis, tudo pode rodar java !!!. Pensei ... caracas o negocio é bom msm. Peguei o notebook, escrevi um Hello Word.java, criei o jar, passei por bluetooth pro celular e na hora do vamo ver ... : arquivo .jar nao reconhecido !!! ps: Pegando gancho na informacao que o Bruno colocou ... que o Skype é feito em Delphi, existe algum material falando a respeito de prorgamas feitos em Delphi, etc ... só por curiosidade mesmo. [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Re: Delphi Prism
mas isso que eu quiz clolocar Walter ... sempre tem um porém, e ninguem faz milagre, seja Delphi, Java, .Net, C++ e sempre a melhor saida é o estudo da viabilidade do projeto. Essa historia de O meu é melhor que o seu já foi faz tempo ... [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Re: Delphi Prism
o proprio titulo da mensagem, Delphi Prism ... [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Web Service - Servidor Linux
Bom dia pessoal, tenho um sistema em que necessitava de um envio de uma solicitacao e recebimento de uma resposta pela Web. Fazia isso por email, com Indy, depois criei um client de email, filtrava as mensagens e processava as respostas. Para melhorar o POG criei um WebService simples, com SOAP, ISAPI, etc ... porem, o servidor que vou utilizar é Linux. Como fazer isso no D7/D2010 ? Obrigado. [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Programa consumindo 100%
Seguinte galera ... ta rolando um problema em um programa meu q nunca aconteceu. O usuario abre o programa, nao mexe em nada, quando ele clica em um Edit pra digitar algum valor, o programa fica com 100% processamento de CPU. Notas: * O programa efetua uns calculos no KeyPress, apenas quando pressionado o Enter. E reiteirando basta entrar o foco no Edit e o bug comeca. * Nao tem nenhum evento no onEnter. * O sistema operacional é o Vista. * A maquina é boa, cd2 3.0, 4 gb ram, 512 video, etc ... * Anti virus Avast. * Tem varios outros clientes utilizando o programa em XP, Vista e Seven, e esse foi o primeiro relato deste tipo. To meio perdidao será que pode ser algum virus ? conflito de algo ? ... alguem sabe por onde devo começar ? vlw [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Draw - Page Control
Bom dia a todos. Estou fazendo uns ajustes em um page control, e preciso usar o OnDrawTab. Porem o resultado é diferente entre delphi 2010 e 7. Ex: Coloquei um PageControl, duas abas, setei o OwnerDraw para True. No EventoOnDrawTab coloquei: Caption := formatdatetime('HH:MM:SS:MM', now); No delphi 7 nada acontece, no 2010 o Caption da janela é alterado normalmente. isso é algum bug ou o q ? vlw. [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] [off] - Configurar IIS
Bom dia e desculpem pelo off. Fiz um webservice e preciso testá-lo em um emulador de smartphone. Porem nao sei configurar o iis para acesso pela rede interna. Aqui no escritorio tem um funcionario que faz sites, ele usa o pc dele como servidor apache com php. Em qualquer pc da rede conseguimos acessar os sites que estao no pc dele para testes. Preciso fazer a mesma configuracao, porem com o iis pois atualmente o meu acessa somente pelo localhost e na propria maquina ... alguem sabe como fazer ? vlw ... [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Delete no Detail
Resolvido. Era justamente este o conflito. Retirei o Post do Master e utilizei apenas o Appy. Todas as alterações foram salvas. wlw. Em 2 de fevereiro de 2010 18:08, Walter Chagas (Bol) wchag...@bol.com.brescreveu: O Post existe só por questões de compatibilidades. Pode dar o Apply direto. Não precisa dar no detail tambem não. Dando no Master, ele já replica pros details. []s Walter Alves Chagas Junior Belo Horizonte - MG - Brazil wchag...@bol.com.br wchagasj%40bol.com.br http://delphitocorporerm.blogspot.com/ http://twitter.com/wchagas MSN: whitesock...@hotmail.com whitesockets%40hotmail.com SKYPE: WalterChagasJr - Original Message - From: Marcelo Luiz Onhate To: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br Sent: Tuesday, February 02, 2010 3:47 PM Subject: Re: [delphi-br] Delete no Detail Não precisa dar o .Post para dar o .ApplyUpdates... quando der o .ApplyUpdate ele já dá o .Post em tudo que for necessário... e outra, se vc der um .ApplyUpdate e não alterou nada ele simplesmente não vai fazer nada... Sabes a diferença do Post e ApplyUpdate? Post confirma somente no Client, ou seja, na memória local... e o ApplyUpdate gera sql e envia as alterações para o Banco... Em 02/02/2010 15:16, magnunoliveira escreveu: Fala galera ... Seguinte, to com um master/detail com DBX e CDS. Quando excluo um item no detail, uso cds_Detail.Delete; porem pra gravar qualquer alteracao uso: if (cds_Master.State in [dsInsert, dsEdit]) then begin cds_Master.Post; cds_Master.ApplyUpdates(0); end; o que ocorre é que ao excluir um item do detail, o state do Master nao entra em dsEdit, nem dsInsert; se eu chamar diretamente o applyupdates, da a mensagem que o cds_Master nao está em modo de edicao. entao a duvida é: como fazer para comitar as exclusoes no detail ? vlw [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: delphi-br-ow...@yahoogrupos.com.br Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: delphi-br-unsubscr...@yahoogrupos.com.br * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Tabela 1 left join (Tabela 2 inner join Tabela 3)
Bom dia galera ... estou precisando fazer o seguinte ... Trazer os dados de uma tabela, e fazer um left join com a juncao de duas tabelas ... ex: SELECT T1.* FROM TABELA_1 T1 left join (TABELA_2 T2 on T2.ID_T1 = T1.IDT1 inner join TABELA_3 T3 on T3.ID_T2 = T2.ID_T2) qual a forma correta de fazer isso ? [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Re: Problema ao Exibir o Preview no QuickReport
Me parece uma premissa de MDI forms, auto exibir os forms, logo apos vc rodar um TMDIForm.Create(etc...). e logo tambem nao permitir um Visible:=False; Sugiro que quando for usar QuickReport, crie os relatorios em formularios com o FormStyle em fsNormal. Assim basta criar o Form e chamar o metodo Preview do QuickRep; 2009/12/1 Leandro mutu...@yahoo.com.br umas das propriedades do QR eh setar o form para visible = false, para que o mesmo n seja mostrado quando criado.. tente setar isso para seu seu form.. 2009/12/1 leandro_sanzi leandro_sa...@yahoo.com.br Dae, obrigado por me ajudar... Tipo, eu consigo executar o .Preview blz, o relatorio sai como eu quero, mas o problema eh que, quando eu crio o Form (FrmRelatorio := TFrmRelatorio.Create(Self);), ele mostra o Relatorio para o usuário antes do Preview, e eu nao quero que ele mostre deste jeito, quero que apareca para o usuario somente a Janela com o Preview do Relatorio... Se puder me ajudar novamente, agradeço... --- Em delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br, Leandro mutu...@... escreveu Amigo.. tem algo errado ai.. pois só dando o .preview ja deveria funcionar.. tente dar um .prepare para teste 2009/12/1 leandro_sanzi leandro_sa...@... Olá pessoal Estou com o seguinte problema: Tenho um Form MDIChild que contém um Relatório QuickReport. Eu uso a procedure Create pra criar este Form, e a procedure Preview pra exibir a prévia do Relatório, até aí blz... Só que na hora de exibir o Form, ele exibe o componente TQuickRep antes do Preview (o Form fica igual quando eu estou montando o relatorio no Delphi), e eu quero que seja exibido o Relatório apenas no modo Preview (ou seja, com os botoes Next Page, Print, Save Report, etc) Se alguem tiver uma solucao, agradeço... -- Leandro, MuTukA [As partes desta mensagem que não continham texto foram removidas] -- Leandro, MuTukA [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Re: [NDDV] Travar Atualização do Form
entao galera resolvi o problema com uma singela solução de adaptação tecnica. como nao consegui resolver de maneira ortodoxa, fiz o seguinte: no momento de chamar as atualizações do form que causavam o efeito indesejado eu fiz: * copiei o canvas do handle em questao; * salvei ele em um bitmap; * deixei a area desejada invisivel; * Criei uma imagem e carreguei o bitmap nela; * fiz as atualizações na tela; * Deixei a area visivel novamente; * Destruí a imagem com o bitmap carregado; Com isso, tenho apenas uma piscada na tela, contra trocentas e tantas outras que ocorriam anteriormente. ps: Mas é um put* de um POG. rsrs 2009/11/20 Magnun Oliveira magnunolive...@gmail.com Olha nao funcionou mesmo, acredito que um dos componentes utilzados burlem o lockwindowUpdate. estive fazendo uns testes e por ex. se apos vc aplicar um lockwindowupdate em algum form, vc redimensiona-lo, ele volta a receber as atualizacoes, por isso acredito q algum componente do meu form em questao burla ou no caso destrava a atualizacao do form. quanto a fazer em background, nao serve nesse caso, pois o usuario está trabalhando no form em questao. vlw. [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] ClientDataSet, Master Detail, atualizacao de valor no campo master
Bom dia galera tenho a seguinte situacao: CDS_MASTER --CDS_DETAIL1 ( ITEM DE CDS_MASTER) --CDS_DETAIL2 (ITEM DE CDS_MASTER) CDS_SUB_DETAIL3 (ITEM DE CDS_DETAIL2) todos os fields dos ClientDataSets estao configurados ([pfInUpdate,pfInWhere,pfInKey] p/ os PK, e [pfInUpdate] para os demais), do SqlDataSet tambem, e o DataSetProvider está com o UpdadeMod em WhereKeyOnly, e o PropagateChanges em True; no Evento AfterInsert de todos os CDSs, eu passo um valor temporario para o Field ID da tabela em questao, e no Evento BeforeUpdateRecord do provider eu chamo uma funcao que pega o ultimo id do banco e passo para o field atraves da funcao Get_LastID;. if UpdateKind = ukInsert then if SourceDS = sql_MASTER then DeltaDS.FieldByName('ID_MASTER).NewValue := Get_LastID else if SourceDS = sql_DETAIL1 then DeltaDS.FieldByName('ID_DETAIL1').NewValue := Get_LastID else if SourceDS = sql_DETAIL2 then DeltaDS.FieldByName('ID_DETAIL2').NewValue := Get_LastID else if SourceDS = sql_SUB_DETAIL3 then DeltaDS.FieldByName('ID_SUB_DETAIL3').NewValue := Get_LastID; um exemplo para facilitar o entendimento: Insiro um novo registro, atribuo o valor aleatorio para o ID_MASTER ex: 1552; Insiro um DETAIL1, atribuo o valor aleatorio para o ID_DETAIL1 ex: 3256; Insiro um DETAIL2, atribuo o valor aleatorio para o ID_DETAIL2 ex: 4458; Insiro um SUB_DETAIL3, atribuo o valor aleatorio para o ID_SUB_DETAIL3 ex: 9875; mando salvar, o metodo BeforeUpdateRecord é chamado; A funcao Get_LastID, pega o valor do ultimo ID_MASTER cadastrado, e já insere + 1 e retorna o valor 95; atribuo esse valor ao Field ID_MASTER. OK; quando passa para o sql_DETAIL1, faço a mesma coisa, é retornado o valor 852; porem dá um erro de violacao de chave estrangeira pois o Field ID_MASTER do DeltaDS do CDS_DETAIL1 ainda está com o valor antigo ( 1552 ); teoricamente o provider, apos eu alterar o valor do ID do CDS_MASTER, nao deveria passar essa altualização para todos os IDs vinculados a ele ? vlw. [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Re: [NDDV] Travar Atualização do Form
Olha nao funcionou mesmo, acredito que um dos componentes utilzados burlem o lockwindowUpdate. estive fazendo uns testes e por ex. se apos vc aplicar um lockwindowupdate em algum form, vc redimensiona-lo, ele volta a receber as atualizacoes, por isso acredito q algum componente do meu form em questao burla ou no caso destrava a atualizacao do form. quanto a fazer em background, nao serve nesse caso, pois o usuario está trabalhando no form em questao. vlw. [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Travar Atualização do Form
Boa tarde galera. Estou fazendo um formulario onde tenho algumas traquinagens, movimentacao, redimensionamento de compontes, etc ... Acontece que são feitas varias atualizações nas telas e ocorre aquela tremida causando um efeito nao muito agradavel ao usuario. Tentei colocar um antes das atualizações LockWindowUpdate(ClientHandle); e um LockWindowUpdate(0); depois, porem nao funcionou. Gostaria de fazer meu form ficar travado, ae entao eu atualizo tudo que tem q ser movimentado, redimensionado, depois eu destravaria o form, exibindo apenas uma mudanca na tela para o usuario. Alguem sabe como fazer isso ? vlw ! [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] DBGrid, LookUp vs Join
Bom dia pessoal. Estava fazendo uns testes em um cadastro simples, pra facilitar vou usar o exemplo PRODUTOS - TIPO Estava utilizando LookUp, porem o meu tipo pode vir a crescer muito, entao retirei este campo lookup e coloquei um JOIN ... tudo blz. Porem o cliente quer o cadastro direto no grid. Com o lookup era normal, eu passava o valor da chave estrangeira, e já era exibido na mesma hora o NOME do tipo no campo lookup. Com o join nao acontece assim, eu passo o valor para o foreign, e o campo com o NOME do tipo só será exibido apos um refresh. Como vcs tratam isso na hora do cadastro ? pois é natural o cara escolher um tipo e ver ele automaticamente na grade ... vlw. [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Procedure de FB pra MySQL
galera tenho a procedure abaixo em FB ... alguem pode mr dar uma força pra traduzir-la pra mysql ? sei que: set term = delimiter; declare variable = declare; for select = ? returns = ? etc ... vlw !! SET TERM ^ ; RECREATE PROCEDURE AGENDA RETURNS ( ID_PESSOA INTEGER, NOME VARCHAR(75), TELEFONE_1 VARCHAR(12), TELEFONE_2 VARCHAR(12), CELULAR VARCHAR(12), EMAIL VARCHAR(50), SITE VARCHAR(50), PESSOA CHAR(1), ID_CIDADE INTEGER) AS DECLARE VARIABLE ENCONTRA INTEGER; begin for select PESSOAS.ID_PESSOA, PESSOAS.NOME, PESSOAS.TELEFONE1, PESSOAS.TELEFONE2, PESSOAS.EMAIL, PESSOAS.SITE, PESSOAS.ID_CIDADE from PESSOAS into :ID_PESSOA, :NOME, :TELEFONE_1, :TELEFONE_2, :EMAIL, :SITE, :ID_CIDADE do begin ENCONTRA = null; CELULAR = null; select PESSOA_FISICA.ID_PESSOA_FISICA, PESSOA_FISICA.CELULAR from PESSOA_FISICA where PESSOA_FISICA.ID_PESSOA = :ID_PESSOA into :ENCONTRA, :CELULAR; if (ENCONTRA is not null) then PESSOA = 'F'; else begin select PESSOA_JURIDICA.ID_PESSOA_JURIDICA from PESSOA_JURIDICA where PESSOA_JURIDICA.ID_PESSOA = :ID_PESSOA into :ENCONTRA; if (ENCONTRA is not null) then PESSOA = 'J'; end suspend; end end^ SET TERM ; ^ [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Procedure FB pra Mysql
galera tenho a procedure abaixo em FB ... alguem pode dar uma força em traduzir-la pra mysql ? vlw ... sei que set term = delimiter; declare variable = declare; for select = ? returns = ? etc ... vlw !! *SET TERM ^ ; RECREATE PROCEDURE AGENDA RETURNS ( ID_PESSOA INTEGER, NOME VARCHAR(75), TELEFONE_1 VARCHAR(12), TELEFONE_2 VARCHAR(12), CELULAR VARCHAR(12), EMAIL VARCHAR(50), SITE VARCHAR(50), PESSOA CHAR(1), ID_CIDADE INTEGER) AS DECLARE VARIABLE ENCONTRA INTEGER; begin for select PESSOAS.ID_PESSOA, PESSOAS.NOME, PESSOAS.TELEFONE1, PESSOAS.TELEFONE2, PESSOAS.EMAIL, PESSOAS.SITE, PESSOAS.ID_CIDADE from PESSOAS into :ID_PESSOA, :NOME, :TELEFONE_1, :TELEFONE_2, :EMAIL, :SITE, :ID_CIDADE do begin ENCONTRA = null; CELULAR = null; select PESSOA_FISICA.ID_PESSOA_FISICA, PESSOA_FISICA.CELULAR from PESSOA_FISICA where PESSOA_FISICA.ID_PESSOA = :ID_PESSOA into :ENCONTRA, :CELULAR; if (ENCONTRA is not null) then PESSOA = 'F'; else begin select PESSOA_JURIDICA.ID_PESSOA_JURIDICA from PESSOA_JURIDICA where PESSOA_JURIDICA.ID_PESSOA = :ID_PESSOA into :ENCONTRA; if (ENCONTRA is not null) then PESSOA = 'J'; end suspend; end end^ SET TERM ; ^* [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Re: Atualizar apenas um registro de um CDS
Entao galera, até agora nada rsrsrs. fiz até um projetinho no bds2006 pra testar e nada ... Fiz uma tela pra exemplificar o meu problema. ( Delphi 2006 e fb 2.1. ) Um cadastro simples de Cidades e Estados, nao fiz usando master-detail, para ficar mais proximo o possivel do que preciso aqui no projeto. Quando abro o projeto carrego os ESTADOS em um grid e passo o parametro ID_ESTADO para o cds_Cidades carrego o outro grid, e tudo ok. Quando altero o nome de algum ESTADO, e faço o applyupdates, ocorre tudo ok. O que eu preciso é apos isso, dar um refreshRecord na cidade selecionada, e a alteração anterior feita no Estado, apareca no field ESTADO que esta no cds cidades como campo join. Isso que nao estou conseguindo. Para testar, coloquei um botao e maindei alterar o valor do NOME DA CIDADE ativa e depois usei o refresRecord. Neste caso ele funciona, ou seja, apenas os campos da tabela principal do cds sao atualizados, os campos do JOIN, só são atualizados aplicando o Refresh. qualquer dica to agradecendo galera ... abs. ps: link do exemplo que fiz http://rapidshare.com/files/299515379/teste_refresh.rar.html [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Re: Atualizar apenas um registro de um CDS
entao continuando a saga ... coloquei um sqlMonitor e resolvi ver como estava saindo o traceflags do refreshRecord. E olha o que eu achei: // esse aqui é quando abro o cds de Estados INTERBASE - isc_dsql_allocate_statement INTERBASE - isc_start_transaction select ID_ESTADO, ESTADO, UF from ESTADOS INTERBASE - isc_dsql_prepare INTERBASE - isc_dsql_describe_bind INTERBASE - SQLDialect = 3 INTERBASE - isc_dsql_execute INTERBASE - isc_dsql_fetch // ae vem esses dois aqui que devem ser internos do MIDAS INTERBASE - isc_dsql_allocate_statement INTERBASE - isc_start_transaction SELECT NULL, NULL, I.RDB$RELATION_NAME, CASE WHEN C.RDB$CONSTRAINT_NAME IS NULL THEN I.RDB$INDEX_NAME ELSE C.RDB$CONSTRAINT_NAME END, C.RDB$CONSTRAINT_NAME, CASE WHEN C.RDB$CONSTRAINT_TYPE='PRIMARY KEY' THEN 1 ELSE 0 END, COALESCE(I.RDB$UNIQUE_FLAG,0), COALESCE(1-I.RDB$INDEX_TYPE,1) FROM RDB$INDICES I LEFT OUTER JOIN RDB$RELATION_CONSTRAINTS C ON I.RDB$INDEX_NAME = C.RDB$INDEX_NAME WHERE (12 OR (1=2)) AND (12 OR (1=2)) AND (I.RDB$RELATION_NAME = ? OR (1=2)) ORDER BY 3, 4 INTERBASE - isc_dsql_prepare INTERBASE - isc_dsql_describe_bind INTERBASE - SQLDialect = 3 INTERBASE - isc_dsql_execute INTERBASE - isc_dsql_fetch e INTERBASE - isc_dsql_allocate_statement INTERBASE - isc_start_transaction SELECT NULL, NULL, I.RDB$RELATION_NAME, CASE WHEN C.RDB$CONSTRAINT_NAME IS NULL THEN I.RDB$INDEX_NAME ELSE C.RDB$CONSTRAINT_NAME END, S.RDB$FIELD_NAME, S.RDB$FIELD_POSITION+1, 1 FROM RDB$INDICES I LEFT OUTER JOIN RDB$RELATION_CONSTRAINTS C ON I.RDB$INDEX_NAME = C.RDB$INDEX_NAME, RDB$INDEX_SEGMENTS S WHERE I.RDB$INDEX_NAME = S.RDB$INDEX_NAME AND (12 OR (1=2)) AND (12 OR (1=2)) AND (I.RDB$RELATION_NAME = ? OR (1=2)) AND (CASE WHEN C.RDB$CONSTRAINT_NAME IS NULL THEN I.RDB$INDEX_NAME ELSE C.RDB$CONSTRAINT_NAME END = ? OR (1=1)) ORDER BY 3, 4, 6 INTERBASE - isc_dsql_prepare INTERBASE - isc_dsql_describe_bind INTERBASE - SQLDialect = 3 INTERBASE - isc_dsql_execute INTERBASE - isc_dsql_fetch INTERBASE - isc_dsql_fetch INTERBASE - isc_commit_transaction INTERBASE - isc_dsql_free_statement INTERBASE - isc_dsql_free_statement INTERBASE - isc_dsql_free_statement INTERBASE - isc_dsql_fetch INTERBASE - isc_commit_transaction INTERBASE - isc_dsql_free_statement INTERBASE - isc_dsql_free_statement INTERBASE - isc_dsql_free_statement INTERBASE - isc_dsql_fetch INTERBASE - isc_dsql_fetch INTERBASE - isc_dsql_fetch INTERBASE - isc_dsql_fetch INTERBASE - isc_commit_transaction INTERBASE - isc_dsql_free_statement INTERBASE - isc_dsql_free_statement INTERBASE - isc_dsql_free_statement // Agora vem esse aqui que é quando eu abro o cds das cidades, passando como parametro o ID do estado que eu quero as cidades: INTERBASE - isc_dsql_allocate_statement INTERBASE - isc_start_transaction select CIDADES.ID_CIDADE, CIDADES.ID_ESTADO, CIDADES.CIDADE, ESTADOS.ESTADO, ESTADOS.UF from CIDADES inner join ESTADOS on ESTADOS.ID_ESTADO = CIDADES.ID_ESTADO where CIDADES.ID_ESTADO = ? INTERBASE - isc_dsql_prepare INTERBASE - isc_dsql_describe_bind INTERBASE - SQLDialect = 3 INTERBASE - isc_dsql_execute INTERBASE - isc_dsql_fetch INTERBASE - isc_dsql_fetch INTERBASE - isc_dsql_fetch INTERBASE - isc_commit_transaction INTERBASE - isc_dsql_free_statement INTERBASE - isc_dsql_free_statement INTERBASE - isc_dsql_free_statement // aqui é quando eu altero o nome de determinado estado. INTERBASE - isc_start_transaction INTERBASE - isc_dsql_allocate_statement update ESTADOS set ESTADO = ? where ID_ESTADO = ? INTERBASE - isc_dsql_prepare INTERBASE - isc_dsql_sql_info INTERBASE - isc_portable_integer INTERBASE - isc_dsql_describe_bind INTERBASE - SQLDialect = 3 INTERBASE - isc_dsql_execute INTERBASE - isc_dsql_free_statement INTERBASE - isc_dsql_free_statement INTERBASE - isc_commit_transaction // aqui é quando eu dou o refreshRecords, se voces repararem, ele executa 2 sqls // no primeiro eh o completo, da mesma forma que está no sql_cidades, porem // ele executa um segundo sql, que provavelmente é gerado pelo sqlResolver ... // notem que esse segundo sql traz apenas os campos da tabela principal, e nao os do join ... INTERBASE - isc_dsql_allocate_statement INTERBASE - isc_start_transaction select CIDADES.ID_CIDADE, CIDADES.ID_ESTADO, CIDADES.CIDADE, ESTADOS.ESTADO, ESTADOS.UF from CIDADES inner join ESTADOS on ESTADOS.ID_ESTADO = CIDADES.ID_ESTADO where CIDADES.ID_ESTADO = ? INTERBASE - isc_dsql_prepare INTERBASE - isc_dsql_describe_bind INTERBASE - SQLDialect = 3 INTERBASE - isc_dsql_execute INTERBASE - isc_dsql_fetch INTERBASE - isc_dsql_allocate_statement INTERBASE - isc_start_transaction select ID_CIDADE, ID_ESTADO, CIDADE from CIDADES where ID_CIDADE = ? INTERBASE - isc_dsql_prepare INTERBASE - isc_dsql_describe_bind INTERBASE - SQLDialect = 3 INTERBASE - isc_dsql_execute INTERBASE - isc_dsql_fetch INTERBASE - isc_commit_transaction INTERBASE - isc_dsql_free_statement INTERBASE - isc_dsql_free_statement INTERBASE - isc_dsql_free_statement INTERBASE - isc_commit_transaction
Re: [delphi-br] Conexao Delphi Mysql 5 + Linux
Obrigado a todos, já entrei em contato com os caras e o acesso externo foi liberado, fiz alguns testes e ok. Porem, em algumas vezes ele perde a conexao ... alguem já trabalho em algo parecido ? e tem alguma experiencia ? penso que antes de cada ação terei que testar a conexao certo ? [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Atualizar apenas um registro de um CDS
cara tentei com o refresh record e nao rolou. um bom exemplo pra ilustra a situação seria. tabela de cidades: id_cidade, cidade, id_estado tabela de estados id_estado, estado, uf exibicao da listagem de cidades (cidade, estado, uf) São Paulo - São Paulo - SP Nova Iguaçu - Rio de Janeiro - RJ Belo Horizonte - Minas Gerais - MG etc .. essa listagem obtenho fazendo um select nas cidades e um inner join nos estados. E marcando os campos da tabela estados como Hidden, para nao entrarem no sql de inserção, alteração e exclusao do CDS. No caso esse eh o cds CIDADES. criei um form de edição com um cds para selecionar um estado, com um parametro de entrada id_estado. No momento que dou um edit no cds_Cidades, passo o ID_Estado como parametro e abro o CDS dos estados. tudo funciona OK. Porem se por acaso eu selecionar a terceira linha, alterar o nome do estado de Minas Gerais, para MINAS, e gravar, ele faz a alteração corretamente no banco, porem como o campo ESTADO no cds CIDADES é um resultado de Join, ele soh exibirá o valor MINAS quando eu der um refresh nesse cds de CIDADES. pra fazer um teste, coloquei um botao com o comando cds_Cidades.RefreshRecord; fiz esse processo de alteração e executei esse comando, nao aconteceu nada. no processo de inserção, apos o apply, rodei o comando e dah a mensagem: record not found or changed by anothe user, conferi os dados direto no banco e estavam inseridos corretamente, alguem sabe como fazer esse refresh em apenas uma linha do cds ? vlw [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Conexao Delphi Mysql 5 + Linux
entao rapaziada, eu jah tinha feito uns testes de conexao local a algum tempo, essa parte tah ok, tava com duvida mesmo nessa parada de liberar o acesso externo. Vou entrar em contato com eles pra verificar. ps: Baixei a ultima versao do zeos 6.6.5 . Porem ele nao veio com as dll de acesso Mysql, Postgree, FB etc ... ? onde que eu pego elas ? vlw [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Conexao Delphi Mysql 5 + Linux
Bom dia galera, to com um programa aqui que a principio ia usar FB. Porem o cliente gostaria de colocar o banco em um servidor web do UOL que usa Mysql 5 com Linux. O programa usa dbx ClientDataSet + Provider nas conexoes atuais com FB ... o que teria que mudar ? zeos ? como fazer a conexao ? eu vi alguns comentarios a respeito de acesso interno ou externo a dase e talvez nao seja possivel isso ... procede ? aceito todas as dicas pois estou meio perdidao nesse sentido. Obrigado. [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Atualizar apenas um registro de um CDS
Bom dia, tenho uma aplicação onde uso clientdataset com campos no inner join. Um bom exemplo seria uma tabela de produtos com o ID_TIPO do produto sendo exibido. select PRODUTOS.NOME, PRODUTOS.DESCRICAO, TIPO_PRODUTOS.TIPO from PRODUTOS inner join TIPO_PRODUTOS on PRODUTOS.ID_TIPO = TIPO_PRODUTOS.ID_TIPO etc .. etc... fiz as ligações, defini como Hidden o Campo TIPO, fiz inserções, alterações e exclusões, tudo funcionando OK. A ideia é nao usar lookup, pois tem varios campos alem desse TIPO entao decidi fazer assim, com inner. O problema é que os valores dos campos do Inner, somente são preenchidos apos o refresh. Se eu inserir um novo produto o campo tipo ficará em branco, enquanto eu nao der um refresh no CDS. A principio penso que um refresh sempre apos uma inclusao ou alteracao nesses campos, seria ruim, pois cairia drasticamente o tempo de resposta em um ambiente de rede. Alguem jah passou por isso e tem uma solucao ? vlw. [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Atualizar apenas um registro de um CDS
vlw velho, mas acho q vc nao entendeu ... o SQL tah certo, tah funcionando tudo OK. Quando abro o ClientDataSet os registros sao mostrados normalmente. Quando excluo o registro tudo OK. Quando altero o registro ou insiro um novo tudo OK tmb. Os dados sao manipulados normalmente. O que ocorre é que o ClientDataSet somente pega os o valor dos campos que fazem parte do JOIN no momento do refresh. Como no ClientDataSet usa-se ApplyUpdates, acredito que ele apenas envie o conteudo do datapacket para o servidor, nao retornando os dados, pois seria desnecessario jah que eles estao em memoria. Com isso, apos o apply, os campos do Inner ficam em branco. Se vc adicionar campo com o ID da FK, percebe-se que ele é preenchido com o valor, normalmente, porem os campos exibidos pelo JOIN soh serão atualizados no proximo refresh. 2009/10/21 Sil-jo Evsan siljoev...@gmail.com Boa Tarde! Utilize LEFT JOIN exemplo select PRODUTOS.NOME, PRODUTOS.DESCRICAO, TIPO_PRODUTOS.TIPO from PRODUTOS left join TIPO_PRODUTOS on PRODUTOS.ID_TIPO = TIPO_PRODUTOS.ID_TIPO Abraços, 2009/10/21 Magnun Oliveira magnunolive...@gmail.commagnunoliveira%40gmail.com [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Problema com parametro em procedure Firebird
Fala galera, estou com a seguinte situacao, e jah quebrei a cuca e nada rsrsrs ... será que alguem pode me ajudar? Tenho uma tabela de SERVICOS e uma de ITENS_SERVICOS, preciso exibir apenas o ultimo item de cada servico. isso eu faço atravez do SQL: select C.ID_SERVICO, C.SERVICO, I.ID_ITEM_SERVICO, I.DESCRICAO_ITEM_SERVICO, I.DATA_LANCAMENTO from SERVICOS C, ITENS_SERVICOS I where C.ID_SERVICO = I.ID_SERVICO and I.DATA_LANCAMENTO = (select max(DATA_LANCAMENTO) from ITENS_SERVICOS B where B.ID_SERVICO = C.ID_SERVICO) funciona corretamente. porem eu tenho uma tabela de PESSOAS - FUNCIONARIOS - RESPONSAVEIS - SERVICOS e preciso saber os responsaveis por cada SERVICO. isso eu faço atravez do seguinte SQL: select NOME from PESSOAS inner join FUNCIONARIOS on FUNCIONARIOS.ID_FUNCIONARIO = PESSOAS.ID_PESSOA inner join RESPONSAVEIS_SERVICOS on RESPONSAVEIS_SERVICOS.ID_FUNCIONARIO = FUNCIONARIOS.ID_FUNCIONARIO where RESPONSAVEIS_SERVICOS.ID_SERVICO = :ID_SERVICO fuinciona corretamente. Porem surgiu a necessidade de fazer a exibicao servico, do ultimo_item e adicionar nessa listagem, um campo com os responsaveis pelo servico CONCATENADOS em um unico campo. Resolvi utilizar uma procedure para tal. set term ^ ; create or alter procedure servicos_itens_responsaveis returns ( ID_SERVICO integer, SERVICO varchar(100), ID_ITEM_SERVICO integer, DESCRICAO_ITEM_SERVICO varchar(100), DATA_LANCAMENTO date, RESPONSAVEIS varchar(100) ) as declare variable NOME varchar(100); begin for select C.ID_SERVICO, C.SERVICO, I.ID_ITEM_SERVICO, I.DESCRICAO_ITEM_SERVICO, I.DATA_LANCAMENTO from SERVICOS C, ITENS_SERVICOS I where C.ID_SERVICO = I.ID_SERVICO and I.DATA_LANCAMENTO = (select max(DATA_LANCAMENTO) from ITENS_SERVICOS B where B.ID_SERVICO = C.ID_SERVICO) into :ID_SERVICO, :SERVICO, :ID_ITEM_SERVICO, :DESCRICAO_ITEM_SERVICO, :DATA_LANCAMENTO do begin RESPONSAVEIS = ''; for select NOME from PESSOAS inner join FUNCIONARIOS on FUNCIONARIOS.ID_FUNCIONARIO = PESSOAS.ID_PESSOA inner join RESPONSAVEIS_SERVICOS on RESPONSAVEIS_SERVICOS.ID_FUNCIONARIO = FUNCIONARIOS.ID_FUNCIONARIO where RESPONSAVEIS_SERVICOS.ID_SERVICO = :ID_SERVICO into :NOME do begin RESPONSAVEIS = RESPONSAVEIS || ' - ' || NOME; end RESPONSAVEIS = RESPONSAVEIS || ' - ' || :ID_SERVICO; suspend; end end^ set term ; ^ O problema ocorre no parametro :ID_SERVICO, ele tem seu valor exibido corretamente no retorno do primeiro for select, porem o segundo for select nao retorna valor nenhum, como se o parametro nao possuisse valor ou se o valor nao existisse na tabela de responsaveis. O que nao ocorre se eu substituí-lo por algum valor existente na tabela de SERVICOS. Digamos que os SERVICO 1, 2 e 3 tenham RESPONSAVEIS associados a eles, mesmo o primeiro for select retornando os valores 1, 2 e 3 para o :ID_SERVICO, nao é gerado nenhum registro no segundo for select, porem se eu escrever o valor 1 no lugar de :ID_SERVICO, é retornado corretamente os RESPONSAVEIS pelo SERVICO 1. Alguem tem alguma ideia de onde estou fazendo *agada? Obrigado. [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Chamar Form a partir de uma thread
Ola a todos. Tenho um programa q executa umas 15 threads p/ efetuar um processamento. Coloquei o processamento no metodo Execute da thread. Funciona ok. Em determinado momento, preciso chamar um form, de dentro dessa thread. No execute: if contador = valor then ChamarForm; procedure TThread.ChamarForm; begin form1.caption := IntToStr(ThreadID); // Chama o Formulario Form3 := TForm3.Create(nil); try Form3.ShowModal; finally Form3.Free; Form3 := nil; end; end; Ele mostra a id da thread no caption do form, porem nao chama o Form3 ... o que estou fazendo de errado? outras duvidas ... como encerrar a thread de dentro do onExecute? como recuperar o estado de uma thread? [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Router
Eu estava tetando via HTML com Indy ... , porem eu nao consegui achar os parametros p/ a conexao nem p/ as açoes ... creio que é pelo fato de ser uma aplicação cgi-bin executando jscript ... no link que segue tem os relatorios do HTTP WATCH que tracei do momento que requisito o endereço 192.168.0.1 até o clique no botao de reiniciar ... http://www.4shared.com/file/110018995/5999c1db/log.html a senha usada foi admin e user admin ... mas nao consegui achar nenhum traço de login neles ... agradeço qualquer ajuda ... ps: até já consegui uma solução alternativa, mas é um POG, micragem total: 1 - Navego um TWebBrowser até esse endereço, faço o login usando Keybd_Event. 2 - Vou apertando o tab com o keybd_envent até colocar o foco no botao reiniciar, e aperto ele com keybd_event dnovo. Pronto, Troca-se o IP. Mas como citei, tah mt POG isso. vlw From: Magnun Oliveira Sent: Thursday, June 04, 2009 11:02 AM To: lista-del...@yahoogrupos.com.br ; delphi-br@yahoogrupos.com.br Subject: [delphi-br] Router Em uma rede domestica, onde a conexao com a internet se da atraves de um roter (desses comuns, dlink, encore, etc ...), alguem sabe alguma funcao que possa vir a reiniciar esse router? obrigado. [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Router
Em uma rede domestica, onde a conexao com a internet se da atraves de um roter (desses comuns, dlink, encore, etc ...), alguem sabe alguma funcao que possa vir a reiniciar esse router? obrigado. [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] [OFF] - Duvida sobre propriedade de dados
Bom dia a todos ... primeiramente ... não é sobre a base de CEPs ... Seguinte, digamos que o site www.meudicionario.com tenha um serviço gratuito de busca de palavras ... tipo um google. Você digita a palavra e ele lhe mostra o significado. OK. Digamos que nao tenho conexao no meu cliente. É considerado pirataria, se eu criar uma rotina que vá testando todas as palavras que eu quizer e salvando os resultados em meu bd e depois disponibilizar isso pro meu cliente? [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Thread + IDHTTP + IBQuery
Olá galera ... estou com uma duvida com threads. Tenho uma tabela com cerca de 5000 produtos. Preciso cruza-los uma a um. E fazer um teste no site da empresa, e receber uma mensagem de confirmado ou nao. Para isso fiz 2 querys, ambas selecionando todos os produtos da tabela produtos. ibq_Origem e ibq_destino. Depois fiz dois whiles pra cruzar tudo isso, Entao, a cada passagem pelo laço, envio a origem e destino pro site e recebo o retorno. E insiro na tabela atravez de uma outra query (ibq_importar). Porem esse retorno do site da um lag de uns 0,6 segundos. Resultando em aproximadamente 174 dias pra efetuar esse processamento. Obiviamente nao rola. Pensei ... separo isso em threads, para processar isso umas 20 vezes separadamente e agilizar o processo, e iniciei os testes. Coloquei dois querys p/ origem e separei 2500 pra cada. Coloquei dois p/ destino e importar (efetua a insercao), coloquei dois labels p/ origem e destino p/ vizualizar na tela a operacao da thread. Porem se eu chamo a primeira thread, executa normal. Se eu chamo a segunda, o programa congela a tela, como se estivesse fazendo um loop sem as threads e tmb nao aparece o processamento da segunda thread, nos labels. To fazendo alguma c*a*gada ? *** Form1 *** procedure TForm1.btn_Thread1Click(Sender: TObject); var T1: Thread_; begin T1 := Thread_.Criar(ibq_Origem1, ibq_Destino1, ibq_Importar1, IDH1, lbl_Origem1, lbl_Destino1); end; procedure TForm1.btn_Thread2Click(Sender: TObject); var T2: Thread_; begin T2 := Thread_.Criar(ibq_Origem2, ibq_Destino2, ibq_Importar2, IDH2, lbl_Origem2, lbl_Destino2); end; ** Thread_ ** type Thread_ = class(TThread) private { Private declarations } ibq_Origem, ibq_Destino, ibq_Importar: TIBQuery; IDHTTP: TIDHTTP; lbl_Origem, lbl_Destino: TLabel; protected procedure Execute; override; procedure Importar; function Pesquisar(Origem, Destino: String): String; public constructor Criar(Origem, Destino, Importar: TIBQuery; IDH: TIDHTTP; Label_Origem, Label_Destino: TLabel); end; implementation uses Unit1; { Important: Methods and properties of objects in visual components can only be used in a method called using Synchronize, for example, Synchronize(UpdateCaption); and UpdateCaption could look like, procedure Thread_.UpdateCaption; begin Form1.Caption := 'Updated in a thread'; end; } { Thread_ } constructor Thread_.Criar(Origem, Destino, Importar: TIBQuery; IDH: TIDHTTP; Label_Origem, Label_Destino: TLabel); var Select: String; begin Create(False); ibq_Origem := Origem; ibq_Destino := Destino; ibq_Importar := Importar; IDHTTP := IDH; lbl_Origem := Label_Origem; lbl_Destino := Label_Destino; FreeOnTerminate := True; end; function Thread_.Pesquisar(Origem, Destino: String): String; var HTML: String; begin // rotina do como chegar Result := ''; Origem := AnsiReplaceStr(Origem, ' ', '+'); Destino := AnsiReplaceStr(Destino, ' ', '+'); HTML := 'urldosite1' + Origem + '2' + Destino; try Html := IDHTTP.Get(Html); if Pos('Confirmado', Html) 0 then Result := HTML else if Pos(HTML, 'Não Confirmado') 0 then Result := ''; except on E: Exception do Result := E.Message; end; end; procedure Thread_.Execute; begin { Place thread code here } ibq_Origem.Open; ibq_Destino.Open; while not (ibq_Origem.Eof) do begin ibq_Destino.First; while not (ibq_Destino.Eof)do begin Synchronize(Importar); // Coloquei essa linha p/ testar se estava atualizando a tela a cada processamento de cada thread Form1.Caption := ibq_Origem.Name + ' - ' + FormatDateTime('HH:MM:SS:MM', Now); // form1.ibtransaction1.CommitRetaining; // da erro se deixar essa linha ibq_Destino.Next; end; ibq_Origem.Next; end; end; procedure Thread_.Importar; var Origem, Destino: String; Retorno: String; begin Origem := ibq_Origem.FieldByName('PRODUTO').AsString; Destino := ibq_Destino.FieldByName('PRODUTO').AsString ; Retorno := Pesquisar(Origem, Destino); ibq_Importar.ParamByName('ID').AsInteger := 0; ibq_Importar.ParamByName('ID_PRODUTO_ORIGEM').AsInteger := ibq_Origem.FieldByName('ID_PRODUTO').AsInteger; ibq_Importar.ParamByName('ID_PRODUTO_DESTINO').AsInteger := ibq_Destino.FieldByName('ID_PRODUTO').AsInteger; if Retorno = '' then begin ibq_Importar.ParamByName('RESULT').IsNull; ibq_Importar.ParamByName('STATUS').AsString := 'N'; end else if Pos('Confirmado', Retorno) 0 then begin ibq_Importar.ParamByName('RESULT').AsString := Retorno; ibq_Importar.ParamByName('STATUS').AsString := 'S'; end else begin ibq_Importar.ParamByName('RESULT').AsString := Retorno;
Re: [delphi-br] Thread + IDHTTP + IBQuery
Realmente percebi isso, centralizei toda a conexao em um DataModule e instanciei um p/ cada thread. Retirei tmb a rotina do metodo syncronize e funcionou corretamente. Testei com 2 threads neste novo modelo, e o ganho em performance já foi de 10%. Farei mais testes e acho q trabalharei com um limite de 50 threads. Obrigado. From: José Mário Silva Guedes Sent: Monday, May 04, 2009 5:04 PM To: delphi-br@yahoogrupos.com.br Subject: Re: [delphi-br] Thread + IDHTTP + IBQuery É problemático trabalhar com Threads usando apenas uma conexão com banco de dados. Pelo que já sofri, o ideal que a Thread tenha sua própria conexão. Alerto também para um problema que talvez você venha a ter, é que um exe não pode ter mais que 2000 threads dependendo do cenário. [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] Class TQRLabel not found ???
Adicione a pasta do QuickReport no seu Library Path. Magnun Oliveira From: nillgolv Sent: Sunday, April 26, 2009 10:31 PM To: delphi-br@yahoogrupos.com.br Subject: [delphi-br] Class TQRLabel not found ??? Pessoal, ao tentar abrir o form de um fonte da o seguinte: ERROR Reading Form -- Class TQRLabel not found. Faltando estes componentes tambem: TQRSysData TQRImage TQRDBText Uso delphi 7, onde encontro estes componentes? [As partes desta mensagem que não continham texto foram removidas]
RE: [delphi-br] Tamanho da tela
Tente trabalhar com anchors, ou, crie algumas preferencias p/ layouts. Estou utilizando mais a segunda forma,visto que tenho clientes com diversos formatos de tela e nao gosto muito do redimensionamento de alguns componentes. To: delphi-br@yahoogrupos.com.br From: cic...@fiosecabos.ind.br Date: Mon, 20 Apr 2009 10:00:20 -0300 Subject: [delphi-br] Tamanho da tela Tenho meu sistema funcionando corretamente no meu notebook ... qdo instalo em outras máquinas da rede, as telas (forms) não cabem no monitores, mesmo fazendo alguns ajustes nas configurações. São micros mais antigos Como posso fazer para ajustar automaticamente os forms do meu sistema as telas dos micros. Obrigado FIOS E CABOS ENGENHARIA LTDA CÍCERO FERNANDES ENGENHEIRO ELETRICISTA E DE SEGURANÇA DO TRABALHO CREA-SC 27.958-0 3521-2988 - 9191.6226 http://fiosecabos.ind.br/ http://fiosecabos.ind.br - mailto:cic...@fiosecabos.ind.br cic...@fiosecabos.ind.br P Antes de imprimir, pense em sua responsabilidade e compromisso com o MEIO AMBIENTE! [As partes desta mensagem que não continham texto foram removidas] _ Descubra seu lado desconhecido com o novo Windows Live! http://www.windowslive.com.br [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] hello
Hi: New shopping new life! How are u doing these days?Yesterday I found a web of a large trading company from china,which is an agent of all the well-known digital product factories,and facing to both wholesalers,retailsalers,and personal customer all over the world. They export all kinds of digital products and offer most competitive and reasonable price and high quality goods for our clients,so i think we you make a big profit if we do business with them.And they promise they will provide the best after-sales-service.In my opinion we can make a trial order to test that. Look forward to your early reply!The Web address: www.eleDHL.com E-mail : [EMAIL PROTECTED] MSN: [EMAIL PROTECTED] _ 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] Gerenciador de Download
Bom dia, estou um projeto antigo aqui e estou com uma duvida. Estou fazendo um gerenciador de downloads, como eu faço p/ assim que for clicado em um link, ao inves abrir aquela tela de download e baixar o arquivo pelo navegador, abrir o meu programa com o link associado? vlw _ 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] Login em site
Olá, estou precisando fazer um login em um site. Por ex: quando eu preciso de uma cotação do dolar, eu uso o IdHttp e acesso um site que tenha essa informacao, pego o conteudo do Http e verifico o $. mas agora eu preciso fazer a mesma coisa, porem em um site que necessita de login. eles tem 3 informações, um tipo, a escolher em um combobox, um nome de usuario e senha. Há a possibilidade de eu utilizar a mesma tecnica da cotação do dolar? à outra forma de fazer isso? enviando um post talvez? Obrigado _ 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] Login em site
procedure TForm1.Button1Click(Sender: TObject); var s:string; begin cotacao:= idhttp1.Get('http://br.invertia.com'); label1.Caption:=copy(cotacao,pos('Compra',s)+115,7); end; acho q tah entendivel neh? flws. To: [EMAIL PROTECTED]: [EMAIL PROTECTED]: Tue, 9 Sep 2008 11:42:45 -0300Subject: Re: [delphi-br] Login em site Magnum, bom dia. Infelizmente não posso ajuda-la quanto a sua dúvida. Mas, gostaria de sua ajuda sobre pegar a contação do dólar se puder me ajudar ficaria muito agradecio.AbraçosRodinei AmorimProgramador [EMAIL PROTECTED](11) 8208-9503 - (11) 2024-2723From: Magnun Oliveira Sent: Tuesday, September 09, 2008 11:39 AMTo: [EMAIL PROTECTED] ; delphi-br@yahoogrupos.com.br Subject: [delphi-br] Login em siteOlá, estou precisando fazer um login em um site.Por ex: quando eu preciso de uma cotação do dolar, eu uso o IdHttp e acesso um site que tenha essa informacao, pego o conteudo do Http e verifico o $.mas agora eu preciso fazer a mesma coisa, porem em um site que necessita de login. eles tem 3 informações, um tipo, a escolher em um combobox, um nome de usuario e senha.Há a possibilidade de eu utilizar a mesma tecnica da cotação do dolar? à outra forma de fazer isso? enviando um post talvez?Obrigado__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] _ 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] Contas a Pagar / Receber
Sempre em meus projetos, montei o modulo financeiro com base no estudo de caso feito com o cliente, com base em suas necessidades.Porem, estou em um projeto mais abrangente e, será utilizado em varios. Alguem tem alguma indicação de livro, site, link etc ... principalmente sobre contas pagar/receber pra criar um modelo generico ? Pode ser do basico ao avançado, pois ae o ajustarei com base nas experiencias que tive. Obrigado _ 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] [OFF] Oportunidade - Analista Programador [RJ - Centro]
por que as empresas colocam os conhecimentos e formações necessarias para se candidatar a vaga? para filtrar quem nao se encaixa no perfil delas. nao seria a msm coisa com o salario? na minha opiniao: SIM. procuro: profissional com idade entre x e y anos. experiencia de x anos com tal linguagem. formado em tal area ... salario: x reais. Quem nao se encaixa em alguma, nem se da ao trabalho de enviar o curriculum. Nao perde seu tempo, e nao desperdiça o da emrpesa. Mas ae entra um outro fator: E se o cara se encaixar em todas as exigencias e sua pretencao salarial for menor ? lucro pra eles ... enfim ... money talks ... From: Joao Morais Sent: Friday, January 25, 2008 3:28 PM To: delphi-br@yahoogrupos.com.br Subject: Re: RES: [delphi-br] [OFF] Oportunidade - Analista Programador [RJ - Centro] Anderson - Yahoo wrote: Tenho uma faixa salarial a obedecer Então publique a faixa salarial e tenha dois benefícios: - evita receber mensagem fora da faixa; - chama a atenção de mais gente se o valor for alto. -- Joao Morais [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Problemas com formulario MDIForm e MDIChild
Alexandre ... vc manja a utilização do Scaled By? pergunto isso pq eu tenho uma aplicação em q o usuario monta a tela com os componentes. surgiu agora a necessidade de aplicar um zoom in e zoom out nesta tela. porem eu percebi algumas zicas. * as fontes nao são alteradas. * se voce ultrapaça um tamanho minimo, o componente perde o seu tamanho e fica maluco. * as referencias Left e Top tmb nao manteem a proporcao. * alguns componentes nao mantem a proporcao de tamanho q estava antes ex: coloquei um panel, uma imagem da mesma largura do panel, e alguns botoes. os botoes aparentemente ficaram ok, o painel mudou em uma proporcao, e a imagem em outra, fod*endo com toda a minha tela. Saca alguma maneira melhor de fazer isso? sempre estou diminuindo 20% e aumentando 25% pra manter o tamanho original. Magnun Oliveira. From: Alexandre Rodrigues Sent: Sunday, January 13, 2008 7:39 PM To: delphi-br@yahoogrupos.com.br Subject: Re: [delphi-br] Problemas com formulario MDIForm e MDIChild Cara de uma pesquisa sobre ScaleBy, vai resolver teus problemas. ca_programador007 escreveu: Caros amigos da lista, Tenho um sistema com algumas telas (forms), que foram desenvolvidas em resolução 800 x 600, e eu estou com dificuldades em acertar o form quando são abertos em resolucões maior que 800 x 600. Ficando tudo desalinhados. Tentei alterar várias propriedades como: align, anchors, autoscroll, autosize, position, style, enfim. Para fazer funcionar legal, precisei fazer uma função na mão na maior pura matemática (coisa de louco) acertando componente a componente para ficar na direção, posição e tamanho que eu queria, isso para ficar bom na resolução 1024 x 768 (isso é coisa de preso hahahahaa) Ficou imensa cada função, que foi diferente para cada formulário. begin label100.caption := '' +inttostr(screen.width); if (label100.Caption='1024') then begin Form1.GroupBox1.Width:=990; Form1.Label1.Font.Size:=10; Form1.label1.Left:= 690; Form1.edit_id.Left:= 120; Form1.botao_novo.Left:=16; Form1.botao_novo.width:=65; Form1.botao_novo.Height:=57; Form1.botao_novo.font.size:=8; . end; end; Agora, acontece que eu preciso fazer a mesma coisa para resolucão maior que 1280 x 800 ou maior que isso.. enfim não quero passar por isso novamente, deve haver alguma coisa que facilite isso, que independente da resolução que o usuário esteja utilizando, o form se adequa aquela resolução, com todos os componentes alinhados e tal. OBS: Meu form principal é formstyle = MDIForm e os restantes são formstyle = MDIChild Alguém tem uma sugestão para ajudar um pobre iniciante? Valeu amigos, vou aguardar alguma resposta. Carlos - Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! [As partes desta mensagem que não continham texto foram removidas] ___ Yahoo! Mail - Sempre a melhor opção para você! Experimente já e veja as novidades. http://br.yahoo.com/mailbeta/tudonovo/ [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] TWebBrowser - Abrir link em uma nova janela
Bom dia a todos, Fiz uma pagina com uma imagem, uma especie de banner e quando clicada, ela abre outra pagina com uns dados dobre meu sistema. Nos navegadores tudo OK, funciona normalmente. Entao coloquei um TWebBrowser no meu form, carregando esta pagina, porem ao clicar nela, nao acontece nada. A segunda pagina nao é carregada e nem abre um novo IE com ela. Se eu tirar o camando de ... target ... do codigo do html, ao clicar nele, ele carrega a pagina no Webrowser do Form msm, e se eu segurar o Shift ele abre em outra janela. Como eu faço pra quando for clicado no WebBroser, abrir a pagina em uma nova instancia do Navegador? Obrigado. _ Veja mapas e encontre as melhores rotas para fugir do trânsito com o Live Search Maps! http://www.livemaps.com.br/index.aspx?tr=true
[delphi-br] Exportar p/ o Excel
Com o seguinte codigo, eu exporto determinado valor pra uma planilha do Excel, na celula B5: begin Arquivo := 'C:\Arquivo.xls'; planilha:= CreateoleObject('Excel.Application'); planilha.Workbooks.Add(Arquivo); planilha.visible := true; planilha.Cells[5, 2] := 'Magnun'; ... Porem eu preciso exportar alguns dados pra um arquivo do excel, que contem aqueles controles (VBA). Por ex: tem um controle q é uma caixa de texto nomeada: TextBox1. Como eu faço pra referenciar ele? Obrigado. _ Receba GRÁTIS as mensagens do Messenger no seu celular quando você estiver offline. Conheça o MSN Mobile! http://mobile.live.com/signup/signup2.aspx?lc=pt-br
[delphi-br] FW: [lista-delphi] Exportar p/ o Excel
From: [EMAIL PROTECTED] To: [EMAIL PROTECTED] Subject: RE: [lista-delphi] Exportar p/ o Excel Date: Mon, 22 Oct 2007 13:47:59 + Valeu Robson ... mas nao consegui usar ... segue o texto q retornou no VBA ActiveSheet.OLEObjects.Add(ClassType:=Forms.TextBox.1, Link:=False, _ DisplayAsIcon:=False, Left:=304.5, Top:=119.25, Width:=72, Height:=18 _ ).Select Como ficaria? vlw. Date: Mon, 22 Oct 2007 11:28:35 -0300 From: [EMAIL PROTECTED] To: [EMAIL PROTECTED] CC: [EMAIL PROTECTED] Subject: Re: [lista-delphi] Exportar p/ o Excel No Excel, vá no menu ferramentas, macro, gravar nova macro e pressione o botão ok da tela que aparece. Ai vc pega um campo de formulário, altera valor e formatação. Vá no menu ferramentas, macro, parar gravação. Então vc vai novamente no menu ferramentas, macro, macros e pressiona o botão editar da tela que aparece da macro que vc gravou. Pronto! Está lá o código que vc precisa passar para o Delphi. Isso funciona pra qualquer coisa que vc precisar fazer no excel pelo Delphi. Magnun Oliveira escreveu: Com o seguinte codigo, eu exporto determinado valor pra uma planilha do Excel, na celula B5: begin Arquivo := 'C:\Arquivo.xls'; planilha:= CreateoleObject('Excel.Application'); planilha.Workbooks.Add(Arquivo); planilha.visible := true; planilha.Cells[5, 2] := 'Magnun'; ... Porem eu preciso exportar alguns dados pra um arquivo do excel, que contem aqueles controles (VBA). Por ex: tem um controle q é uma caixa de texto nomeada: TextBox1. Como eu faço pra referenciar ele? Obrigado. _ Receba as últimas notícias do Brasil e do mundo direto no seu Messenger com Alertas MSN! É GRÁTIS! http://alertas.br.msn.com/ _ Conheça o Windows Live Spaces, a rede de relacionamentos conectada ao Messenger! http://spaces.live.com/signup.aspx
[delphi-br] RE: Exportar p/ o Excel
Valeu Robson ... mas nao consegui usar ... segue o texto q retornou no VBA ActiveSheet.OLEObjects.Add(ClassType:=Forms.TextBox.1, Link:=False, _ DisplayAsIcon:=False, Left:=304.5, Top:=119.25, Width:=72, Height:=18 _ ).Select Como ficaria a instrução ? ps: foi mal ae lista, pelas msg repetidas, é pq tah dando pau no opera aqui. _ Receba as últimas notícias do Brasil e do mundo direto no seu Messenger com Alertas MSN! É GRÁTIS! http://alertas.br.msn.com/
RE: [delphi-br] Problema com Master-Detail - CDS
To: [EMAIL PROTECTED]; [EMAIL PROTECTED]: [EMAIL PROTECTED]: Wed, 17 Oct 2007 11:39:56 +Subject: [delphi-br] Problema com Master-Detail - CDS Bom dia a todos, estou com um problema com master detail, e procurando soluções na net nao achei nada que resolvesse o meu problema.a situação é essa:TAB1 - masterTAB2 - detail da TAB1TAB3 - detail da TAB2TAB4 - datail da TAB1fiz o seguinte:* Coloquei um SQLDataset (sql_TAB1) com o CommandText:select * from TAB1 where ID_TAB1 = :ID_TAB1* Adicionei os Fields e mudei o ProviderFlag, pfInkey do ID_TAB1 pra True;* Coloquei um DataSetProvider (dsp_TAB1), e selecionei para o DataSet, o sql_TAB1;* Coloquei um DataSource (dsc_TAB1_TAB2), e selecionei para o DataSet, o sql_TAB1;* Coloquei um SQLDataSet (sql_TAB2), com o CommandText:Select * from TAB2 where ID_TAB1 = :ID_TAB1* Selecionei para a propriedade DataSource, o dsc_TAB1_TAB2;* Ativei o sql_TAB1 e adicionei os Fields no sql_TAB2;* Adicionei os Fields e mudei o ProviderFlag, pfInkey do ID_TAB2 pra True;* Coloquei um DataSource (dsc_TAB2_TAB3), e selecionei para o DataSet, o sql_TAB2;* Coloquei um SQLDataSet (sql_TAB3), com o CommandText:Select * from TAB3 where ID_TAB2 = :ID_TAB2* Selecionei para a propriedade DataSource, o dsc_TAB2_TAB3;* Ativei o sql_TAB2 e adicionei os Fields no sql_TAB3;* Adicionei os Fields e mudei o ProviderFlag, pfInkey do ID_TAB3 pra True;* Coloquei um DataSource (dsc_TAB1_TAB4), e selecionei para o DataSet, o sql_TAB1;* Coloquei um SQLDataSet (sql_TAB4), com o CommandText:Select * from TAB4 where ID_TAB1 = :ID_TAB1* Selecionei para a propriedade DataSource, o dsc_TAB1_TAB4;* Ativei o sql_TAB1 e adicionei os Fields no sql_TAB4;* Adicionei os Fields e mudei o ProviderFlag, pfInkey do ID_TAB4 pra True;* Coloquei um ClientDataSet (cds_TAB1) e liguei ao dsp_TAB1;* Adicionei os Fields e mudei o ProviderFlag, pfInkey do ID_TAB1 pra True;* Coloquei um ClientDataSet (cds_TAB2) e selecionei em DataSetFields o campo cds_TAB1sql_TAB2;* Adicionei os Fields e mudei o ProviderFlag, pfInkey do ID_TAB2 pra True;* Coloquei um ClientDataSet (cds_TAB3) e selecionei em DataSetFields o campo cds_TAB2sql_TAB3;* Adicionei os Fields e mudei o ProviderFlag, pfInkey do ID_TAB3 pra True;* Coloquei um ClientDataSet (cds_TAB4) e selecionei em DataSetFields o campo cds_TAB1sql_TAB4;* Adicionei os Fields e mudei o ProviderFlag, pfInkey do ID_TAB4 pra True;Depois coloquei 4 DataSources, Liguei aos CDS's e coloquei os DataControls para edição.Eu adiciono os registros normalmente, altero e excluo, confirmo o Apply e tudo OK.Porem se eu fechar o form e abrir novamente, na hora de alterar ou excluir os details, da o erro:record not found or changed for another user - Na net dizem q a solução é alterar os providersfflags dos campos chave primaria, pra pfInkey = True, mas no meu caso jah estao assim.Se eu altero o UpdateMode do Provider pra whereKeyOnly o erro passa a ser:unabled to find record. No Key Specifiedps: Fiz os testes adicionando apenas os fields nos CDS, ocorrem os mesmos erros.ps2: Desculpem o texto grande, mas tentei passar todos os passos q fiz, para facilitar o entendimento.agradeço a todos q possam ajudar com este problema ...vlw.__Veja mapas e encontre as melhores rotas para fugir do trânsito com o Live Search Maps!http://www.livemaps.com.br/index.aspx?tr=true _ Receba as últimas notícias do Brasil e do mundo direto no seu Messenger com Alertas MSN! É GRÁTIS! http://alertas.br.msn.com/ [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Problema com Master-Detail - CDS
Bom dia a todos, estou com um problema com master detail, e procurando soluções na net nao achei nada que resolvesse o meu problema. a situação é essa: TAB1 - master TAB2 - detail da TAB1 TAB3 - detail da TAB2 TAB4 - datail da TAB1 fiz o seguinte: * Coloquei um SQLDataset (sql_TAB1) com o CommandText: select * from TAB1 where ID_TAB1 = :ID_TAB1 * Adicionei os Fields e mudei o ProviderFlag, pfInkey do ID_TAB1 pra True; * Coloquei um DataSetProvider (dsp_TAB1), e selecionei para o DataSet, o sql_TAB1; * Coloquei um DataSource (dsc_TAB1_TAB2), e selecionei para o DataSet, o sql_TAB1; * Coloquei um SQLDataSet (sql_TAB2), com o CommandText: Select * from TAB2 where ID_TAB1 = :ID_TAB1 * Selecionei para a propriedade DataSource, o dsc_TAB1_TAB2; * Ativei o sql_TAB1 e adicionei os Fields no sql_TAB2; * Adicionei os Fields e mudei o ProviderFlag, pfInkey do ID_TAB2 pra True; * Coloquei um DataSource (dsc_TAB2_TAB3), e selecionei para o DataSet, o sql_TAB2; * Coloquei um SQLDataSet (sql_TAB3), com o CommandText: Select * from TAB3 where ID_TAB2 = :ID_TAB2 * Selecionei para a propriedade DataSource, o dsc_TAB2_TAB3; * Ativei o sql_TAB2 e adicionei os Fields no sql_TAB3; * Adicionei os Fields e mudei o ProviderFlag, pfInkey do ID_TAB3 pra True; * Coloquei um DataSource (dsc_TAB1_TAB4), e selecionei para o DataSet, o sql_TAB1; * Coloquei um SQLDataSet (sql_TAB4), com o CommandText: Select * from TAB4 where ID_TAB1 = :ID_TAB1 * Selecionei para a propriedade DataSource, o dsc_TAB1_TAB4; * Ativei o sql_TAB1 e adicionei os Fields no sql_TAB4; * Adicionei os Fields e mudei o ProviderFlag, pfInkey do ID_TAB4 pra True; * Coloquei um ClientDataSet (cds_TAB1) e liguei ao dsp_TAB1; * Adicionei os Fields e mudei o ProviderFlag, pfInkey do ID_TAB1 pra True; * Coloquei um ClientDataSet (cds_TAB2) e selecionei em DataSetFields o campo cds_TAB1sql_TAB2; * Adicionei os Fields e mudei o ProviderFlag, pfInkey do ID_TAB2 pra True; * Coloquei um ClientDataSet (cds_TAB3) e selecionei em DataSetFields o campo cds_TAB2sql_TAB3; * Adicionei os Fields e mudei o ProviderFlag, pfInkey do ID_TAB3 pra True; * Coloquei um ClientDataSet (cds_TAB4) e selecionei em DataSetFields o campo cds_TAB1sql_TAB4; * Adicionei os Fields e mudei o ProviderFlag, pfInkey do ID_TAB4 pra True; Depois coloquei 4 DataSources, Liguei aos CDS's e coloquei os DataControls para edição. Eu adiciono os registros normalmente, altero e excluo, confirmo o Apply e tudo OK. Porem se eu fechar o form e abrir novamente, na hora de alterar ou excluir os details, da o erro: record not found or changed for another user - Na net dizem q a solução é alterar os providersfflags dos campos chave primaria, pra pfInkey = True, mas no meu caso jah estao assim. Se eu altero o UpdateMode do Provider pra whereKeyOnly o erro passa a ser: unabled to find record. No Key Specified ps: Fiz os testes adicionando apenas os fields nos CDS, ocorrem os mesmos erros. ps2: Desculpem o texto grande, mas tentei passar todos os passos q fiz, para facilitar o entendimento. agradeço a todos q possam ajudar com este problema ... vlw. _ Veja mapas e encontre as melhores rotas para fugir do trânsito com o Live Search Maps! http://www.livemaps.com.br/index.aspx?tr=true
Re: [delphi-br] Capiturar numereos da mega sena
esses resultados estao em um site? se estiverem da pra pegar o texto do http e filtrar os numeros - Original Message - From: Rubem Nascimento da Rocha To: delphi-br@yahoogrupos.com.br Sent: Monday, September 17, 2007 10:45 AM Subject: RE: [delphi-br] Capiturar numereos da mega sena O máximo que eu sei é que vc não consegue baixar do site da Caixa resultados específicos, e sim baixar um .ZIP que tem todos os resultados, inclusive o último sorteio. Pra vc fazer o download desses resultados vc pode usar duas alternativas: 1) Usar a função UrlDownloadToFile() da unit urlmon (Dica de uso: http://www.swissdelphicenter.ch/en/showcode.php?id=412); 2) Usar a action TDownloadURL da unit ExtActns. Se quiser incrementar o uso da opção de download (1), vc pode codificar um callback usando a interface IBindStatusCallback pra, por exemplo, codificar um download com barra de progresso. Pesquise sobre isso na Internet que vc com certeza vai achar algo. Agora, se quiser usar a opção 2, a action TDownloadURL possui evento OnDownloadProgress, onde vc pode implementar essa característica de barra de progresso. Seu outros dois problemas que vc terá que resolver, depois de implementar o download usando uma das sugestões que passei, será (a)abrir o .zip que vc efetuou o download e (b)analisar o arquivo HTML que possui todos os resultados. Pra essas coisas, tenho certeza que uma arregaçada de mangas e algumas pesquisas na Internet e vc conseguirá resolver. Boa sorte. Sds. To: [EMAIL PROTECTED]: [EMAIL PROTECTED]: Mon, 17 Sep 2007 12:39:13 +Subject: [delphi-br] Capiturar numereos da mega sena Estou desenvolvendo eu sistema de verifica jogo da mega sena, o sisema esta pronto mais gostaria de mordenizar e colocar em modulo de capitura de jogos da mega sena assim q eu abrir o meu programa ele verifica se tem alguma atualização e ele atualize automaticamente, sem q eu precise digitar um jogo de cada vez.Aguem poderia me ajudar em __ Conheça o Windows Live Spaces, a rede de relacionamentos conectada ao Messenger! http://spaces.live.com/signup.aspx [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Quick Report Printer setup
Olá, estou usando o quick report e devido a alguns bugs, preciso fazer um Print Setup personalizado durante o preview. Alguem jah fez algo assim? A versao do quick é o 4 e vem com os fontes, entao adicionei um Print Dialog ao qrPrev e, depois do execute passei os valores: QRPrinter.FirstPage := PrintDialog1.MinPage; QRPrinter.LastPage := PrintDialog1.ManPage; ... porem o relatorio nao fica com os valores do PrintDialog. Alguem sabe como fazer isso? ps: Como pegar a impressora selecionada no printdialog? vlw _ Receba as últimas notícias do Brasil e do mundo direto no seu Messenger com Alertas MSN! É GRÁTIS! http://alertas.br.msn.com/
RE: [delphi-br] QuickReport - Retirar botões
O ideal é vc criar um preview personalizado. To: delphi-br@yahoogrupos.com.br From: [EMAIL PROTECTED] Date: Tue, 11 Sep 2007 20:10:17 -0300 Subject: [delphi-br] QuickReport - Retirar botões Como faço pra retirar os botões de minimizar, maximizar e fechar de um relatorio no quickreport [As partes desta mensagem que não continham texto foram removidas] _ Encontre o que procura com mais eficiência! Instale já a Barra de Ferramentas com Windows Desktop Search GRÁTIS! http://desktop.msn.com.br/
[delphi-br] ValueListEditor
Alguem ai usa o ValueListEditor? Tenho um projeto onde simulo um Design Time, e preciso, constantemente, alterar algumas propriedades dos objetos, como se fosse um Object Inspector. Como nao são todas as propriedades, optei por usar o TValueListEditor ao inves do JVInspector. Surgiram algumas duvidas: * Existe a possibilidade de manipular o Visible de determinada linha? * Como eu faço pra fazer aquele sinal de '+' aparecer na celula e ao clicar ali expandir outras colunas, como quando vamos escolher a Fonte no Object Inspector? Existe alguma função ou propriedade pra isso, ou terei que pintar imagem ali e manipular o DrawCell? * No Object Inspector, quando voce clica no Nome da Propriedade ou no Valor dela, a linha é selecionada. Parece com o efeito de um Mouse Down em um Button. Alguem sabe como fazer isso. Obrigado a todos. _ Encontre o que procura com mais eficiência! Instale já a Barra de Ferramentas com Windows Desktop Search GRÁTIS! http://desktop.msn.com.br/
[delphi-br] Zoom
Boa tarde ... Olhando, por ex, no word, existe um combo no topo da pagina onde vc escolhe o zoom. Para o valor q vc coloca ali, sua pagina se adapta. Suas fontes, formatações, etc ... se mantem, o q muda eh a proporção no tamanho da pagina. Enfim, tenho um form com um scroolbox e alguns controles nele, há a possibilidade de eu fazer um efeito parecido com esse do Word nesse scroll? Obrigado. _ MSN Busca: fácil, rápido, direto ao ponto. http://search.msn.com.br
Re: [delphi-br] RTTI
ajuda ... e funciona mt bem ... jah uso essa rotina a uns 2 anos. o problema eh q agora surgiu a necessidade de alem de mover, redimensionar o componente tmb ... igual ao design time msm... vlw ... + alguem? Original Message Follows From: Ricardo César Cardoso [EMAIL PROTECTED] Reply-To: delphi-br@yahoogrupos.com.br To: delphi-br@yahoogrupos.com.br Subject: Re: [delphi-br] RTTI Date: Tue, 5 Jun 2007 08:05:10 -0300 (ART) Por acaso a dica nesse link já ajuda em alguma coisa? http://www.devmedia.com.br/articles/viewcomp.asp?comp=800 Sds, Ricardo. Magnun Oliveira [EMAIL PROTECTED] escreveu: Alguem sabe se existe a possibilidade de selecionar um componente em runtime? ex: O usuario clicar em determinado label, e aparecer aqueles pontos em volta do componente como se estivesse em design time? e abusando um pouco mais da boa vontade da galera, tem como, ao, clicar com o mouse ali, aumentar esse label? * todas as dicas de RTTI sao bem vindas. Obrigado. __ MSN Messenger: converse com os seus amigos online. http://messenger.msn.com.br - Novo Yahoo! Cadê? - Experimente uma nova busca. [As partes desta mensagem que não continham texto foram removidas] _ MSN Hotmail, o maior webmail do Brasil. http://www.hotmail.com
Re: [delphi-br] RTTI
Vlw ricardo ja estou olhando o exemplo. Original Message Follows From: Ricardo César Cardoso [EMAIL PROTECTED] Reply-To: delphi-br@yahoogrupos.com.br To: delphi-br@yahoogrupos.com.br Subject: Re: [delphi-br] RTTI Date: Tue, 5 Jun 2007 10:57:57 -0300 (ART) Atualizando: Peguei o exemplo do JediVCL sobre o RunTime Design e estou quase certo que é isso mesmo que vc precisa. Tanto que fiz o upload do programa demo dele para meu site. O endereço para download do arquivo é http://www.esnips.com/doc/e8470f15-83c6-4c21-a9f9-e79933ba9a89/JvDesignerDemo Sds, Ricardo. Ricardo César Cardoso [EMAIL PROTECTED] escreveu: Olha Magnun... acho que até é possivel fazer com os componentes da JediVCL , mas eu não tenho a menor idéia de como fazer. Sei que ná Jedi VCL tem uma paleta chamada JvRunTime Design. E pelo nome dos componentes que tem nela, pode ser o que vc precisa. Vou fazer uns testes com os componentes pra ver se é o que vc precisa mesmo. Sds, Ricardo. Magnun Oliveira [EMAIL PROTECTED] escreveu: ajuda ... e funciona mt bem ... jah uso essa rotina a uns 2 anos. o problema eh q agora surgiu a necessidade de alem de mover, redimensionar o componente tmb ... igual ao design time msm... vlw ... + alguem? Original Message Follows From: Ricardo César Cardoso [EMAIL PROTECTED] Reply-To: delphi-br@yahoogrupos.com.br To: delphi-br@yahoogrupos.com.br Subject: Re: [delphi-br] RTTI Date: Tue, 5 Jun 2007 08:05:10 -0300 (ART) Por acaso a dica nesse link já ajuda em alguma coisa? http://www.devmedia.com.br/articles/viewcomp.asp?comp=800 Sds, Ricardo. Magnun Oliveira [EMAIL PROTECTED] escreveu: Alguem sabe se existe a possibilidade de selecionar um componente em runtime? ex: O usuario clicar em determinado label, e aparecer aqueles pontos em volta do componente como se estivesse em design time? e abusando um pouco mais da boa vontade da galera, tem como, ao, clicar com o mouse ali, aumentar esse label? * todas as dicas de RTTI sao bem vindas. Obrigado. __ MSN Messenger: converse com os seus amigos online. http://messenger.msn.com.br - Novo Yahoo! Cadê? - Experimente uma nova busca. [As partes desta mensagem que não continham texto foram removidas] __ MSN Hotmail, o maior webmail do Brasil. http://www.hotmail.com _ - Novo Yahoo! Cadê? - Experimente uma nova busca. [As partes desta mensagem que não continham texto foram removidas] _ - Novo Yahoo! Cadê? - Experimente uma nova busca. [As partes desta mensagem que não continham texto foram removidas] _ MSN Hotmail, o maior webmail do Brasil. http://www.hotmail.com
Re: [delphi-br] RTTI
Deu certo. Para quem vier a precisar disso, basta usar o componente JvDesignPanel1 e trabalhar com a propriedade Active para True (Simula o Design) e False (Libera o Componente). abs. Original Message Follows From: Magnun Oliveira [EMAIL PROTECTED] Reply-To: delphi-br@yahoogrupos.com.br To: delphi-br@yahoogrupos.com.br Subject: Re: [delphi-br] RTTI Date: Tue, 05 Jun 2007 14:14:35 + Vlw ricardo ja estou olhando o exemplo. Original Message Follows From: Ricardo César Cardoso [EMAIL PROTECTED] Reply-To: delphi-br@yahoogrupos.com.br To: delphi-br@yahoogrupos.com.br Subject: Re: [delphi-br] RTTI Date: Tue, 5 Jun 2007 10:57:57 -0300 (ART) Atualizando: Peguei o exemplo do JediVCL sobre o RunTime Design e estou quase certo que é isso mesmo que vc precisa. Tanto que fiz o upload do programa demo dele para meu site. O endereço para download do arquivo é http://www.esnips.com/doc/e8470f15-83c6-4c21-a9f9-e79933ba9a89/JvDesignerDemo Sds, Ricardo. Ricardo César Cardoso [EMAIL PROTECTED] escreveu: Olha Magnun... acho que até é possivel fazer com os componentes da JediVCL , mas eu não tenho a menor idéia de como fazer. Sei que ná Jedi VCL tem uma paleta chamada JvRunTime Design. E pelo nome dos componentes que tem nela, pode ser o que vc precisa. Vou fazer uns testes com os componentes pra ver se é o que vc precisa mesmo. Sds, Ricardo. Magnun Oliveira [EMAIL PROTECTED] escreveu: ajuda ... e funciona mt bem ... jah uso essa rotina a uns 2 anos. o problema eh q agora surgiu a necessidade de alem de mover, redimensionar o componente tmb ... igual ao design time msm... vlw ... + alguem? Original Message Follows From: Ricardo César Cardoso [EMAIL PROTECTED] Reply-To: delphi-br@yahoogrupos.com.br To: delphi-br@yahoogrupos.com.br Subject: Re: [delphi-br] RTTI Date: Tue, 5 Jun 2007 08:05:10 -0300 (ART) Por acaso a dica nesse link já ajuda em alguma coisa? http://www.devmedia.com.br/articles/viewcomp.asp?comp=800 Sds, Ricardo. Magnun Oliveira [EMAIL PROTECTED] escreveu: Alguem sabe se existe a possibilidade de selecionar um componente em runtime? ex: O usuario clicar em determinado label, e aparecer aqueles pontos em volta do componente como se estivesse em design time? e abusando um pouco mais da boa vontade da galera, tem como, ao, clicar com o mouse ali, aumentar esse label? * todas as dicas de RTTI sao bem vindas. Obrigado. __ MSN Messenger: converse com os seus amigos online. http://messenger.msn.com.br - Novo Yahoo! Cadê? - Experimente uma nova busca. [As partes desta mensagem que não continham texto foram removidas] __ MSN Hotmail, o maior webmail do Brasil. http://www.hotmail.com _ - Novo Yahoo! Cadê? - Experimente uma nova busca. [As partes desta mensagem que não continham texto foram removidas] _ - Novo Yahoo! Cadê? - Experimente uma nova busca. [As partes desta mensagem que não continham texto foram removidas] _ MSN Hotmail, o maior webmail do Brasil. http://www.hotmail.com _ MSN Messenger: converse com os seus amigos online. http://messenger.msn.com.br
[delphi-br] RTTI
Alguem sabe se existe a possibilidade de selecionar um componente em runtime? ex: O usuario clicar em determinado label, e aparecer aqueles pontos em volta do componente como se estivesse em design time? e abusando um pouco mais da boa vontade da galera, tem como, ao, clicar com o mouse ali, aumentar esse label? * todas as dicas de RTTI sao bem vindas. Obrigado. _ MSN Messenger: converse com os seus amigos online. http://messenger.msn.com.br
[delphi-br] Aggredate com Campos Calculados
Tenho um cds exibindo alguns campos num grid e o usuario pode alterar esses valores e adicionar outros registro direto no grid. Agora preciso fazer um aggregate com um campo calculado, nao posso fazer com sql. o campo calculado jah está tudo ok, mas nao cosigo colocar um aggregate com a funcao sum(campo_calculado). Alguem sabe se dah pra fazer isso? Alguma outra solucao? Obrigado. _ MSN Messenger: converse com os seus amigos online. http://messenger.msn.com.br
Re: [delphi-br] Visualização de tela em Delphi
Vcs esão trocando a resolução pelo delphi? Estou fazendo isso, mas agora preciso pegar a resolução atual, alguem sabe? e outra, sempre q eu altero a resolução, a frequencia de atualização da tela volta pra 60 hertz, aih a fica aquela impressao q a tela está tremendo. Isso acontece com + alguem? Tem como alterar isso tmb? vlw. - Original Message - From: Edison DRP To: delphi-br@yahoogrupos.com.br Sent: Friday, May 25, 2007 11:35 AM Subject: Re: [delphi-br] Visualização de tela em Delphi Já verifiquei isto e verifiquei também que, no XP se uma tela estiver ficandopequena e aparecendo barras de rolagem, se voce cliclar no desktop e mandar apresentar como padrão windows convencional o problema desaparece e as telas ficam normais. Me parece problema do windiws XP com aqueles pequenos bordos que ele coloca das janelas. Edison Garcia - Original Message - From: Ricardo César Cardoso [EMAIL PROTECTED] To: delphi-br@yahoogrupos.com.br Sent: Friday, May 25, 2007 9:58 AM Subject: Re: [delphi-br] Visualização de tela em Delphi Tb não sei o que pode ser Maria, mas tb já percebi o que vc falou. Em casa tenho um monitor de tubo (CRT) e no trabalho tenho um LCD ambos de 17. Quando rodo um sistema aqui em 800x600 ele fica comendo um pouco da borda mesmo. Achei que era apenas o ajuste de posição horizontal e tentei reajustar e nada. O problema só foi resolvido quando mudei para uma resolução maior e voltei para a resolução anterior, isso com um boot entre as trocas. Vai entender... Sds, Ricardo. maniacapordelphi [EMAIL PROTECTED] escreveu: Porque em alguns monitores a tela feita em Delphi para resolução 800x600 fica diferente (maior) em alguns monitores, ocultando botões ou parte da tela do aplicativo? Parece não ser problema do winXP porque máquinas com winXP apresentam a tela corretamente. Seria alguma configuração do XP? Seria o driver de vídeo? Configuração (obs: a configuração já está 800x600)? Obs isso tem acontecido muito em monitores de tela plana. Se tô falando asnice, me corrijam, mas já comparei tudo com máquinas que apresentam a tela corretamente e não achei nada. Mani _ __ Fale com seus amigos de graça com o novo Yahoo! Messenger http://br.messenger.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Links do Yahoo! Grupos [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Qual a melhor maneira descobrir determinados erros?
Ultimamente venho me deparando com alguns erros de dificl solução. Ex: em um DM eu tenho uma varialvel integer e uma string (Retorno_Mensagem e Mensagem). Essa integer recebe o result de uma Application.MessageBox, e essa string eu uso pra passar uma mensagem. Como uso isso em varios forms, centralizei elas no DM. Em determinado momento da aplicação, eu clico em um botao e faço a rotina: DM.Mensagem := 'Mensagem a ser passada'; DM.Retorno_Mensagem := Application.MessageBox(PChar(DM.Mensagem),'Atenção', MB_YesNo+MB_DefButton1+MB_IconQuestion); Em algumas vezes, aleatoriamente ocorre um acces violation a linha do DM.Retorno_Mensagem. O DM sempre está criado antes de chamar isso. Até hj nao descobri o q é, só descobri q se eu tirar o skin (VCLSkin) do projeto, nao rola esse erro. Outro erro eu percebi hj. Tenho um toolbar e alguns toolbuttons de navegação, e ao clicar em qualquer um deles, eh chamado o evento onKeyDown do meu form. ?? nao existe nenhuma linha de simulacao de teclas na rotina desses botoes, apenas enables. O detalhe eh q se eu passar False para o Key Preview do form, o evento onKeyDown nao eh chamado. Outra coisa eh q eu tenho outro form com os msm codigos nos botoes e isso nao acontece lah. Alguem sabe como evitar esses problemas. Obrigado. _ MSN Hotmail, o maior webmail do Brasil. http://www.hotmail.com
[delphi-br] QRChart
Olá, estou usando QRChart pra exibir alguns graficos e estou com algumas dificuldades a respeito dos campos. Que tipo de campo o QRChart aceita? Pergunto isso pq fiz uma consulta extraindo os periodos entre duas datas: extract (month from DATA) || '/'|| extract (year from DATA) as PERIODO, o total de alguns registros, count(campo1) as TOTAL_Campo1, a soma de um Campo, sum(campo2) as soma_campo2, e a media de alguns campos avg(campo3) as media_campo3, avg(campo4) as media_campo4, etc ... meu sistrema está usando DBX entao depois de adicionados os fields, o PERIODO ficou como um TStringField, o Total como TIntegerField e a SOMA e as MEDIAS ficaram como TFMTBCDField. No QRChart, os campos TFMTBCDField simplesmente nao aparecem na hora de escolher o field do dataset. Fiz um teste com IBX e a unica diferença eh que ao inves de TFMTBCDField, foram criados como TIBBCDField e estes apareceram normalmente no QRChart. Alguem sabe como resolver isso ae? pq tenho q usar dbx msm. vlw _ MSN Messenger: converse com os seus amigos online. http://messenger.msn.com.br
Re: [delphi-br] QRChart
nao rolou ... da erro ao criar o formulario. vlw Original Message Follows From: Ricardo César Cardoso [EMAIL PROTECTED] Reply-To: delphi-br@yahoogrupos.com.br To: delphi-br@yahoogrupos.com.br Subject: Re: [delphi-br] QRChart Date: Tue, 22 May 2007 12:44:09 -0300 (ART) Eu tentaria trocar no braço de TFMTBCDField para TBCDField já que ambos estão na mesma unit, DB. Faça este teste aí e veja o que acontece. Sds, Ricardo. Magnun Oliveira [EMAIL PROTECTED] escreveu: Olá, estou usando QRChart pra exibir alguns graficos e estou com algumas dificuldades a respeito dos campos. Que tipo de campo o QRChart aceita? Pergunto isso pq fiz uma consulta extraindo os periodos entre duas datas: extract (month from DATA) || '/'|| extract (year from DATA) as PERIODO, o total de alguns registros, count(campo1) as TOTAL_Campo1, a soma de um Campo, sum(campo2) as soma_campo2, e a media de alguns campos avg(campo3) as media_campo3, avg(campo4) as media_campo4, etc ... meu sistrema está usando DBX entao depois de adicionados os fields, o PERIODO ficou como um TStringField, o Total como TIntegerField e a SOMA e as MEDIAS ficaram como TFMTBCDField. No QRChart, os campos TFMTBCDField simplesmente nao aparecem na hora de escolher o field do dataset. Fiz um teste com IBX e a unica diferença eh que ao inves de TFMTBCDField, foram criados como TIBBCDField e estes apareceram normalmente no QRChart. Alguem sabe como resolver isso ae? pq tenho q usar dbx msm. vlw __ MSN Messenger: converse com os seus amigos online. http://messenger.msn.com.br _ __ Fale com seus amigos de graça com o novo Yahoo! Messenger http://br.messenger.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas] _ MSN Busca: fácil, rápido, direto ao ponto. http://search.msn.com.br
Re: RES: RES: [delphi-br] Apagar master-detail
desculpe eu errei .. o correto é poCascadeDeletes ... uma propriedade no options do DSP, habilitei ela, pois msm usando o cascade no banco sem a msm como true, ocorria um erro na exclusao ... mas agora está tudo ok. - Original Message - From: Ricardo César Cardoso To: delphi-br@yahoogrupos.com.br Sent: Wednesday, May 09, 2007 8:56 AM Subject: Re: RES: RES: [delphi-br] Apagar master-detail Tudo bem, isso eu tb sei, o problema é onde achar este evento no TDataSetProvider ou em qualquer membro da classe TProvider, pq eu não achei. Obs: uso Delphi 2005, pode ser isso. BandaLemuel [EMAIL PROTECTED] escreveu: Se estiver usando o banco interbase voce pode criar uma trigger na Tabela Master... onBeforeDelete.. e deletar os detalhes antes de deletar o master... isso ficará transparente no aplicativo Wesley - Original Message - From: Ricardo César Cardoso To: delphi-br@yahoogrupos.com.br Sent: Wednesday, May 09, 2007 8:35 AM Subject: Re: RES: RES: [delphi-br] Apagar master-detail OK Magnum, entendido. Mas fiquei com a pulga atrás da orelha... Não achei o OnCascadeDelete no TDataSetProvider... mas deixa pra lá, era só curiosidade mesmo. Como prometido aqui vai o prometido para a exclusão de details em relações Mestre/Detalhes extraido da edição n°3 (Maio/2004) da revista ActiveDelphi - Artigo Trabalhando com ClientDataSet de Eduardo Rocha: [citação] 4 - Quando Excluo um registro no ClientDataSet Master, os registros no ClientDataSet Detail serão excluídos automaticamente? Não, isso deverá ser feito manualmente. Normalmente coloco o seguinte código no evento BeforeDelete do ClientDataSet Master: [codigo] with ClientDataSetDetail do while not IsEmpty do Delete; [/codigo] O Provider possui uma opção de exclusão em cascata, mas isso só resolve no caso do banco suportar e de ter sido definido na foreign key. [/citação] Pois é... até aqui o Eduardo Rocha diz que existe, mas não consegui achar, mesmo usando FB e usando uma base de teste oferecendo o On Delete Cascade no Script de geração do banco. Resumo: tb estou na dúvida. Sds, Ricardo. Magnun Oliveira [EMAIL PROTECTED] escreveu: opa antes de mais nada naum se trata de não querer, tipo preguiça hehe Como existe OnCascadeDelete no Provider quando se usa cascade no banco, simplesmente perguntei se existia uma configuração q fizesse o tal, sem o cascade, para nao ficar reinventando roda. Mas como informaram q nao existe fiz algumas alterações em umas telas aqui e coloquei o cascade no banco msm. Ricardo, fique a vontade se quizer mandar o exemplo, pq msm naum servindo pra mim, pode vir a servir pra alguem aqui. Vlw. Original Message Follows From: Ricardo César Cardoso [EMAIL PROTECTED] Reply-To: delphi-br@yahoogrupos.com.br To: delphi-br@yahoogrupos.com.br Subject: Re: RES: RES: [delphi-br] Apagar master-detail Date: Tue, 8 May 2007 16:51:13 -0300 (ART) Pois é Walter... milagre o Delphi ainda não faz... Walter Alves Chagas Junior [EMAIL PROTECTED] escreveu: Graaande Ricardão, o homem que mora nos armarios do quarto de mulher casada Mas o que ele nao quer, é implementar codigo. E, do jeito que voce propos, ele vai ter que implementar isto do mesmo jeito :) Ai não adianta rs []s Walter Alves Chagas Junior Projeto e desenvolvimento de sistemas Telemont Engenharia de telecomunicações S/A Belo Horizonte - MG - Brasil [EMAIL PROTECTED] Fone: (31) 3389-8217 Fax: (31) 3389-8215 -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] nome de Ricardo César Cardoso Enviada em: terça-feira, 8 de maio de 2007 08:39 Para: delphi-br@yahoogrupos.com.br Assunto: RE: RES: [delphi-br] Apagar master-detail Mas é claro que tem como apagar os registros Detail sem usar o OnDelete do banco... Se vc associou um CDS master a um CDS detail, no evento BeforeDelete do CDS master vc manda apagar os registros do Detail. Eu tenho um exemplo, mas está no meu material em casa... se ninguém te passar nada, amanhã posso te passar exatamente como fazer isso, o evento e o código necessário. Sds, Ricardo. Magnun Oliveira [EMAIL PROTECTED] escreveu: OK a duvida era realmente essa, se tem como apagar os detail's automaticamente quando excluir o registro master no cds SEM usar o On delete cascade no banco. Mas como nao rola, vou ter q fazer no braço msm .. vlw. Original Message Follows From: Walter Alves Chagas Junior [EMAIL PROTECTED] Reply-To: delphi-br@yahoogrupos.com.br To: delphi-br@yahoogrupos.com.br Subject: RES: [delphi-br] Apagar master-detail Date: Mon, 7 May 2007 15:41:17 -0300 Magnum, Você não pode apagar o registro master se ele tiver registros detail. Para fazer isto automaticamente, você tem que mudar a chave estrangeira nas tabelas detail adicionando a cláusula On Delete Cascade
[delphi-br] Relatorio + Tota por data
Olá, preciso fazer um relatorio da seguinte forma com QuickReport: DATA--DESCRICAO--VALOR 01/01/01---100,00 01/01/01-BBB---90,00 --TOTAL-190,00 02/01/01-ASHUSAHD55,00 02/01/01-HEHEHE22,00 02/01/01-12312312310,00 02/01/01-112121-155,00 --TOTAL-242,00 03/01/01-QWEQWEQWE--102,00 03/01/01-123123123123---56,00 --TOTAL-158,00 ou seja, adicionar uma linha com o total para cada data. Tem como fazer isso com alguma QRBand? Ou vou ter q fazer na unha usando o OnNeedData? Obrigado. _ MSN Messenger: converse com os seus amigos online. http://messenger.msn.com.br
Re: RES: RES: [delphi-br] Apagar master-detail
opa antes de mais nada naum se trata de não querer, tipo preguiça hehe Como existe OnCascadeDelete no Provider quando se usa cascade no banco, simplesmente perguntei se existia uma configuração q fizesse o tal, sem o cascade, para nao ficar reinventando roda. Mas como informaram q nao existe fiz algumas alterações em umas telas aqui e coloquei o cascade no banco msm. Ricardo, fique a vontade se quizer mandar o exemplo, pq msm naum servindo pra mim, pode vir a servir pra alguem aqui. Vlw. Original Message Follows From: Ricardo César Cardoso [EMAIL PROTECTED] Reply-To: delphi-br@yahoogrupos.com.br To: delphi-br@yahoogrupos.com.br Subject: Re: RES: RES: [delphi-br] Apagar master-detail Date: Tue, 8 May 2007 16:51:13 -0300 (ART) Pois é Walter... milagre o Delphi ainda não faz... Walter Alves Chagas Junior [EMAIL PROTECTED] escreveu: Graaande Ricardão, o homem que mora nos armarios do quarto de mulher casada Mas o que ele nao quer, é implementar codigo. E, do jeito que voce propos, ele vai ter que implementar isto do mesmo jeito :) Ai não adianta rs []s Walter Alves Chagas Junior Projeto e desenvolvimento de sistemas Telemont Engenharia de telecomunicações S/A Belo Horizonte - MG - Brasil [EMAIL PROTECTED] Fone: (31) 3389-8217 Fax: (31) 3389-8215 -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] nome de Ricardo César Cardoso Enviada em: terça-feira, 8 de maio de 2007 08:39 Para: delphi-br@yahoogrupos.com.br Assunto: RE: RES: [delphi-br] Apagar master-detail Mas é claro que tem como apagar os registros Detail sem usar o OnDelete do banco... Se vc associou um CDS master a um CDS detail, no evento BeforeDelete do CDS master vc manda apagar os registros do Detail. Eu tenho um exemplo, mas está no meu material em casa... se ninguém te passar nada, amanhã posso te passar exatamente como fazer isso, o evento e o código necessário. Sds, Ricardo. Magnun Oliveira [EMAIL PROTECTED] escreveu: OK a duvida era realmente essa, se tem como apagar os detail's automaticamente quando excluir o registro master no cds SEM usar o On delete cascade no banco. Mas como nao rola, vou ter q fazer no braço msm ... vlw. Original Message Follows From: Walter Alves Chagas Junior [EMAIL PROTECTED] Reply-To: delphi-br@yahoogrupos.com.br To: delphi-br@yahoogrupos.com.br Subject: RES: [delphi-br] Apagar master-detail Date: Mon, 7 May 2007 15:41:17 -0300 Magnum, Você não pode apagar o registro master se ele tiver registros detail. Para fazer isto automaticamente, você tem que mudar a chave estrangeira nas tabelas detail adicionando a cláusula On Delete Cascade nelas []s Walter Alves Chagas Junior Projeto e desenvolvimento de sistemas Telemont Engenharia de telecomunicações S/A Belo Horizonte - MG - Brasil [EMAIL PROTECTED] Fone: (31) 3389-8217 Fax: (31) 3389-8215 -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] nome de Magnun Oliveira Enviada em: segunda-feira, 7 de maio de 2007 11:53 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Apagar master-detail Fiz um master detail com CDS, inserção e alteração dah tudo certo, porem, se eu for apagar um registro master com no minimo 1 detail dah esse erro: 'cannot delete master records with details' se eu apagar um registro master sem nenhum detail funciona ... Alguma saca como resolver? vlw ... __ MSN Hotmail, o maior webmail do Brasil. http://www.hotmail.com -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Links do Yahoo! Grupos __ MSN Busca: fácil, rápido, direto ao ponto. http://search.msn.com.br __ Fale com seus amigos de graça com o novo Yahoo! Messenger http://br.messenger.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Links do Yahoo! Grupos __ Fale com seus amigos de graça com o novo Yahoo! Messenger http://br.messenger.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas] _ MSN Hotmail, o maior webmail do Brasil. http://www.hotmail.com
[delphi-br] Apagar master-detail
Fiz um master detail com CDS, inserção e alteração dah tudo certo, porem, se eu for apagar um registro master com no minimo 1 detail dah esse erro: 'cannot delete master records with details' se eu apagar um registro master sem nenhum detail funciona ... Alguma saca como resolver? vlw ... _ MSN Hotmail, o maior webmail do Brasil. http://www.hotmail.com
Re: [delphi-br] Apagar master-detail
opa valeu Marcio, mas naum tem um jeito de fazer o cascade automaticamente pelo cds? detalhe, eu nao posso usar o cascade no banco ... Original Message Follows From: Márcio Ricardo [EMAIL PROTECTED] Reply-To: delphi-br@yahoogrupos.com.br To: delphi-br@yahoogrupos.com.br Subject: Re: [delphi-br] Apagar master-detail Date: Mon, 7 May 2007 12:17:51 -0300 Seu programa está funcionando perfeitamente. Não pode apagar o pai e deixar os filhos orfão. Quando for apagar faça uma busca na tabela filho e apague os primeiros e depois vc apaga o pai, ok? Como se fosse um delete cascade apaga o pai e sai procurando onde o mesmo faz referencia com tabelas filhas se achar apaga os filhos e os pais Márcio Ricardo. - Original Message - From: Magnun Oliveira To: delphi-br@yahoogrupos.com.br Sent: Monday, May 07, 2007 11:52 AM Subject: [delphi-br] Apagar master-detail Fiz um master detail com CDS, inserção e alteração dah tudo certo, porem, se eu for apagar um registro master com no minimo 1 detail dah esse erro: 'cannot delete master records with details' se eu apagar um registro master sem nenhum detail funciona ... Alguma saca como resolver? vlw ... __ MSN Hotmail, o maior webmail do Brasil. http://www.hotmail.com [As partes desta mensagem que não continham texto foram removidas] _ MSN Messenger: converse com os seus amigos online. http://messenger.msn.com.br
Re: [delphi-br] Dúvida com DBLookupComboBox
isto está relacionado com o feth dos dados, fazer um fetchall no dataset, ou por exemplo linkar um DBGrid a ela. - Original Message - From: Fabricio Venancio To: delphi-br@yahoogrupos.com.br Sent: Saturday, May 05, 2007 4:45 PM Subject: [delphi-br] Dúvida com DBLookupComboBox Pessoal, no meu DBLookupComboBox, quando tento selecionar uma das opções, aparece apenas uma linha de cada vez, apesar da propriedade DropDownRows ser igual a 7. Gostaria que aparecesse todas as opções, sem ter que clicar na barra de rolagem. O que pode ser? [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] Apagar master-detail
OK a duvida era realmente essa, se tem como apagar os detail's automaticamente quando excluir o registro master no cds SEM usar o On delete cascade no banco. Mas como nao rola, vou ter q fazer no braço msm ... vlw. Original Message Follows From: Walter Alves Chagas Junior [EMAIL PROTECTED] Reply-To: delphi-br@yahoogrupos.com.br To: delphi-br@yahoogrupos.com.br Subject: RES: [delphi-br] Apagar master-detail Date: Mon, 7 May 2007 15:41:17 -0300 Magnum, Você não pode apagar o registro master se ele tiver registros detail. Para fazer isto automaticamente, você tem que mudar a chave estrangeira nas tabelas detail adicionando a cláusula On Delete Cascade nelas []s Walter Alves Chagas Junior Projeto e desenvolvimento de sistemas Telemont Engenharia de telecomunicações S/A Belo Horizonte - MG - Brasil [EMAIL PROTECTED] Fone: (31) 3389-8217 Fax: (31) 3389-8215 -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] nome de Magnun Oliveira Enviada em: segunda-feira, 7 de maio de 2007 11:53 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Apagar master-detail Fiz um master detail com CDS, inserção e alteração dah tudo certo, porem, se eu for apagar um registro master com no minimo 1 detail dah esse erro: 'cannot delete master records with details' se eu apagar um registro master sem nenhum detail funciona ... Alguma saca como resolver? vlw ... _ MSN Hotmail, o maior webmail do Brasil. http://www.hotmail.com -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Links do Yahoo! Grupos _ MSN Busca: fácil, rápido, direto ao ponto. http://search.msn.com.br
Re: RES: [delphi-br] Problemas com ClientDataSet e DBGrid
no provider seta a propriedade Options-poAllowCommandText pra True. Original Message Follows From: Ricardo César Cardoso [EMAIL PROTECTED] Reply-To: delphi-br@yahoogrupos.com.br To: delphi-br@yahoogrupos.com.br Subject: Re: RES: [delphi-br] Problemas com ClientDataSet e DBGrid Date: Fri, 27 Apr 2007 11:15:21 -0300 (ART) Caro Bruno. Obrigado pela sua resposta. Mas tenho que fazer o que, onde? A princípio eu faço a consulta/instrução SQL no TSQLQuery e como o TClientDataSet está ligado a um TDataSetProvider que está ligado ao TSQLQuery, supõe-se que tudo deva funcionar apenas fechando o TSQLQuery e TClientDataSet; atualizando o parâmetro da minha consulta/instrução SQL e abrindo novamente, não? Sds, Ricardo. Bruno Lichot [EMAIL PROTECTED] escreveu: Tem q fazer isso no clientdataset e naum no sqldataset. Pega a postila como te falei por que ele é passo a passo e mostra como fazer isso. Abs BL De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Ricardo César Cardoso Enviada em: sexta-feira, 27 de abril de 2007 09:35 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Problemas com ClientDataSet e DBGrid Primeiramente obrigado pela resposta, Rafael. Realmente esta foi uma das primeiras medidas que tomei. Fecho o TSQLQuery antes de pedir novos dados; atualizo o parametro de busca e reabro o TSQLQuery. Até aqui tudo funciona bem, o problema é que o TClientDataSet não reflete os dados do TSQLQuery. Se mais alguém puder contribuir, ficamos agradecidos. Sds, Ricardo Rafael Marques [EMAIL PROTECTED] mailto:rafael.matriz%40terra.com.br escreveu: eu ja passei por uma situacao assim (nao sei se é exatamente a mesma solucao q pra sua), mas o q fiz foi sempre fechar o SqlQuery antes de passar o parametro. Eu fecho e o ClientDataset, passo o parametro e depois abro o clientdataset eu fiz isso e funfo!! - Original Message - From: Ricardo César Cardoso To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Sent: Friday, April 27, 2007 8:44 AM Subject: [delphi-br] Problemas com ClientDataSet e DBGrid Bom dia amigos da lista, como vão? Gostaria de uma ajuda de qualquer um que já passou por esta situação. Tenho um DataModule onde entre outros componentes referentes a um determindado módulo da minha aplicação tenho um TSQLQuery, um TDataSetProvider, um TClientDataSet e um TDataSource ligados entre si e o TDataSource ligado a um TDBGrid. Dentro da aplicação existe uma rotina que faz uma busca parametrizada e traz apenas os registros correspondentes para o TDBGrid (pelo menos faz em outros módulos, somente neste que não faz). Para isto, montei a instrução SQL dentro do TSQLQuery, algo que sempre faço, inclusive coloquei o parâmetro dentro da própria SQL e configurei o parametro com seu tipo correto. Até aqui nenhum problema. Quando rodo a aplicação e chamo esta rotina, na primeira execução que faço, os dados vem para o TDBGrid da maneira esperada, mas quando chamo novamente esta rotina, os dados do TDBGrid continuam a ser referentes ao parâmetro anterior. Debugei a aplicação para ver se o parâmetro estava realmente sendo passado da maneira correta (atualizada) e notei que tudo estava OK. Fiz mais um teste para saber se o TSQLQuery estava fazendo a consulta que eu estava pedindo. Novamente tudo estava OK, ou seja, a instrução SQL era executada e os dados vinham para o TSQLQuery. Aí notei que o problema só poderia ser no TClientDataSet. Tentei várias abordagens como fechar e abrir novamente o TClientDataSet, fazer um refresh nele, mas nada resolveu. É como se o TClientDataSet estivesse mantendo os dados em memória referentes a primeira consulta executada, mesmo depois do TClientDataSet ser fechado e reaberto, e do conjunto de dados ao qual ele deveria refletir ter mudado. Alguém já passou por esta situação, e pode me dar alguma dica? Sds, Ricardo. __ Fale com seus amigos de graça com o novo Yahoo! Messenger http://br.messenger.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas] -- Esta mensagem foi verificada pelo E-mail Protegido Terra. Scan engine: McAfee VirusScan / Atualizado em 26/04/2007 / Versão: 5.1.00/5018 Proteja o seu e-mail Terra: http://mail.terra.com.br/ [As partes desta mensagem que não continham texto foram removidas] _ __ Fale com seus amigos de graça com o novo Yahoo! Messenger http://br.messenger.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas] __ Informação do NOD32 IMON 2223 (20070427) __ Esta mensagem foi verificada pelo NOD32 sistema antivírus http://www.eset.com.br [As partes desta mensagem que não
Re: [delphi-br] Rotacionar PDF utilizando ActiveX
Só um adendo ... os atalhos de teclado ainda funcionam neh? precisei disto uma vez e a solução foi tranformar os pdfs em jpg e exibi-los com TImage. - Original Message - From: eric To: [EMAIL PROTECTED] Sent: Thursday, April 12, 2007 1:36 PM Subject: [delphi-br] Rotacionar PDF utilizando ActiveX Boa tarde, colegas. Ao me deparar com a necessidade de abrir um PDF por dentro da minha aplicação, descobri que a Adobe disponibiliza um ActiveX para lidar com arquivos desta extensão. Tudo está funcionando muito bem, porém, meu sistema não pode permitir que o usuário salve o PDF, nem copie, nem imprima... etc.. enfim..., o usuário apenas poderá visualizar o arquivo, navegar por suas páginas, trabalhar com o zoom e com a rotação. Como não encontrei uma forma de sesabiliar as funcionalidades indesejadas na ToolBar, fui forçado a ocultá-la e fazer via código a utilização do Zoom. (a navegação deixei por conta do próprio componente, não ocultando a ScrollBars). A dificuldade que encontrei é utilizar via código a opção de rotacionar o arquivo. Será que alguém poderia me ajudar? Agradeço a atenção. [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] Ordenação no Grid
galera, resolvido. mas acho q nao entenderam mt bem a duvida, eu jah uso cds e IndexFieldNames porem nao rola ele com lookup. Como eu estava usando Master/Detail achei q nao dava pra fazer o Join na tab detail, devido ao cds gerar os SQLs de manipulacao automaticamente, mas eu estava errado, da pra fazer sim ... entao a solução foi trocar o CommandText Do sql_Detail de: Select CAMPOS from TAB_DETAIL where ID_MASTER = :ID_MASTER para: Select TAB_DETAIL.CAMPOS, TAB_TIPO.TIPOS from TAB_DETAIL inner join TAB_TIPOS on TAB_DETAIL.ID_TIPO = TAB_TIPO.ID_TIPO where ID_MASTER = :ID_MASTER order by TAB_TIPOS.TIPOS agora tah beleza ... o master/detail tah funcionando corretamente e a ordenação esta feita pelo campo tipos ... vlw abs - Original Message - From: Rubem Nascimento da Rocha To: [EMAIL PROTECTED] Sent: Friday, April 13, 2007 12:12 AM Subject: Re: [delphi-br] Ordenação no Grid Esta alternativa causa um grande impecilho no que tange tráfego de dados em uma rede. Toda vez que o usuário der um clique em um título de uma coluna que queira ordenar, ele irá trafegar uma SQL pra retornar dados, o que irá causar o primeiro transforno: tráfego de dados desnecessário na rede. O segundo transtorno seria o tempo de resposta para receber estes dados via rede. Imagine 50 usuários fazendo acesso concorrente ao seu banco de dados, e o SQL desse grid necessitar de dados que estão em concorrência no instante em que se submete a instrução SQL para receber os dados. Resultado: lerdeza no uso da aplicação e intenso tráfego de rede, que pode ocasionar outros problemas a nível de disponibilidade de banda da rede. O mais coerente é usar ClientDataSet. Associe o dataset que vc está querendo visualizar no grid a um TDataSetProvider, e este a um TClientDataSet. Com o ClientDataSet, vc pode ordenar os dados já carregados na própria estação cliente, sem a necessidade de se reenviar a consulta para refazer uma ordem que se deseje visualizar. Informe-se a respeito disto. Neste e em outras listas de discussão sobre Delphi, este tema está mais do que tarimbado, abordado e discutido, e a solução é essa: ClientDataSet. Sds. From: Hudson [EMAIL PROTECTED] Reply-To: [EMAIL PROTECTED] To: [EMAIL PROTECTED] Subject: Re: [delphi-br] Ordenação no Grid Date: Thu, 12 Apr 2007 23:51:02 -0300 Ola amigo, Pra fazer isso e simples Vai ate o evento OnTitleClick do DBGrid e faça o codigo: exemplo: banco.produto.Close; banco.produto.SQL.Clear; banco.produto.SQL.Add('select * from tabela order by ' + Column.FieldName); banco.produto.Open; aonde Column.FieldName representa o campo clicado... espero ter ajudado! - Original Message - From: magnun_oliveira To: [EMAIL PROTECTED] Sent: Thursday, April 12, 2007 4:44 PM Subject: [delphi-br] Ordenação no Grid Olá fiz um master detail e coloquei os campos da tabela master em DBEdit's e o detail em um grid. Porem nessa tabela de Detail's eu tenho um campo lookpu q uso pra exibir um tipo. Preciso ordenar o DBGrid por este campo, alguem sabe como fazer isso, sei q IndexFieldNames nao da pra usar com lookup ... Obrigado. [As partes desta mensagem que não continham texto foram removidas] __ MSN Hotmail, o maior webmail do Brasil. http://www.hotmail.com [As partes desta mensagem que não continham texto foram removidas]
RE: [delphi-br] Erro no master detail com CDS
Opa, vlw Rubem ... achei o erro... Ficou assim: * No sqlMaster adicionei todos os TFields e setei pfInKey pro campo chave primaria. * No sqlDetail nao adicionei nada. * No cdsMaster setei o pfInkey para o msm campo chave e setei pfInKey tmb para o TField de junção que foi criado automaticamente no meu caso cdsMastersqlDetail. Desse jeito funcionou legal, tah certo? vou testar a maneira como vc me falou tmb ... Original Message Follows From: Rubem Nascimento da Rocha [EMAIL PROTECTED] Reply-To: delphi-br@yahoogrupos.com.br To: delphi-br@yahoogrupos.com.br Subject: RE: [delphi-br] Erro no master detail com CDS Date: Sun, 08 Apr 2007 23:01:42 + A opção pfInKey está definida para os objetos TField correspondentes aos campos chave tanto do Master como do Detail? Sds. From: Magnun Oliveira [EMAIL PROTECTED] Reply-To: delphi-br@yahoogrupos.com.br To: delphi-br@yahoogrupos.com.br Subject: [delphi-br] Erro no master detail com CDS Date: Sun, 08 Apr 2007 22:55:25 + Fiz um Master Detail com exemplos que peguei na internet, usando CDS e DBX: * Coloquei um SQlDataSet, name sqlMaster, com o SQL: Select * from TABELA_MESTRE order by NOME. Adicionei todos os fields e em IDMESTRE selecionei em ProviderFlags, pfInKey como True. * Coloquei um SQlDataSet, name sqlDetail, com o SQL: Select * from TABELA_DETAIL where ID_MESTRE = : IDMESTRE order by NOME * Coloquei um DataSource, name dsLink, com o DataSource = sqlMaster. * Coloquei a propriedade DataSource do sql_Detail como ds_Link. * Coloquei um DataSetProvider, name dspMaster. Propriedade DataSet = sqlMaster, a propriedade Options = poCacadeDeletes, poPropagateChanges e po AllowCommandTex = True, o resto False, e a propriedade UpdateMode = upWhereKeyOnly. * Coloquei um ClientDataSet, name cdsMaster, com o ProviderName = dspMaster e adicionei os fields. Foi adicionado o Field sqlDetail. * Coloquei um ClientdataSet, name cdsDetail, com a propriedade DataSetField = cdsMastersqlDetail. E adicionei os Fields. * Selecionei os Fields do cdsMaster, menos o Field sqlDetail e adicionei ao form, gerando todos os DBEdits. Alterei o name do DataSource criado automaticamente pra dsMaster. * Coloquei um DataSource, name ds_Detail, DataSet = cdsDetail. * Coloquei um DBGrid com o DataSource = dsDetail. * Coloquei um DBNavigator com o DataSource = dsMaster. * No OnShow do Form coloquei: cdsMaster.Open; Pronto, testei a inserção e funcionou normalmente, mas quando faço um update em algum campo da tabela master e tento um cdsMater.ApplyUpdates(0); da o erro: 'Unable to find Record. No key specified' Ja tentei varias coisas aqui e nao funcionou, alguem sabe como vorrigir isso? Obrigado. _ MSN Busca: fácil, rápido, direto ao ponto. http://search.msn.com.br _ MSN Busca: fácil, rápido, direto ao ponto. http://search.msn.com.br _ MSN Hotmail, o maior webmail do Brasil. http://www.hotmail.com
[delphi-br] Erro no master detail com CDS
Fiz um Master Detail com exemplos que peguei na internet, usando CDS e DBX: * Coloquei um SQlDataSet, name sqlMaster, com o SQL: Select * from TABELA_MESTRE order by NOME. Adicionei todos os fields e em IDMESTRE selecionei em ProviderFlags, pfInKey como True. * Coloquei um SQlDataSet, name sqlDetail, com o SQL: Select * from TABELA_DETAIL where ID_MESTRE = : IDMESTRE order by NOME * Coloquei um DataSource, name dsLink, com o DataSource = sqlMaster. * Coloquei a propriedade DataSource do sql_Detail como ds_Link. * Coloquei um DataSetProvider, name dspMaster. Propriedade DataSet = sqlMaster, a propriedade Options = poCacadeDeletes, poPropagateChanges e po AllowCommandTex = True, o resto False, e a propriedade UpdateMode = upWhereKeyOnly. * Coloquei um ClientDataSet, name cdsMaster, com o ProviderName = dspMaster e adicionei os fields. Foi adicionado o Field sqlDetail. * Coloquei um ClientdataSet, name cdsDetail, com a propriedade DataSetField = cdsMastersqlDetail. E adicionei os Fields. * Selecionei os Fields do cdsMaster, menos o Field sqlDetail e adicionei ao form, gerando todos os DBEdits. Alterei o name do DataSource criado automaticamente pra dsMaster. * Coloquei um DataSource, name ds_Detail, DataSet = cdsDetail. * Coloquei um DBGrid com o DataSource = dsDetail. * Coloquei um DBNavigator com o DataSource = dsMaster. * No OnShow do Form coloquei: cdsMaster.Open; Pronto, testei a inserção e funcionou normalmente, mas quando faço um update em algum campo da tabela master e tento um cdsMater.ApplyUpdates(0); da o erro: 'Unable to find Record. No key specified' Ja tentei varias coisas aqui e nao funcionou, alguem sabe como vorrigir isso? Obrigado. _ MSN Busca: fácil, rápido, direto ao ponto. http://search.msn.com.br
Re: [delphi-br] controle de impressão
tem um download no site da devMedia sobre isso, é um projeto chamando JPrinterManager. Original Message Follows From: Ricardo César Cardoso [EMAIL PROTECTED] Reply-To: delphi-br@yahoogrupos.com.br To: delphi-br@yahoogrupos.com.br Subject: Re: [delphi-br] controle de impressão Date: Wed, 4 Apr 2007 11:02:06 -0300 (ART) Olha amigo, a última vez em que eu me interessei por esse assunto me deparei com API Hooking, mas como estava meio sem tempo pra fuçar e desmembrar este abacaxi, deixei meio de lado. Eu achei alguma coisa em inglês, e não muito esclarecedora no fórum do site madshi.net. Quem sabe dando uma fuçada vc não tenha mais sorte. Saudações, Ricardo. Gustavo André de Freitas [EMAIL PROTECTED] escreveu: Pessoal, estou interessado em aprender como controlar a impressão em delphi, tipo, tudo que for mandado pra impressora, seja de qual aplicação for, word, excel, eu possa registrar por senha, ou seja, pro usuario poder imprimir tem que digitar uma senha, independente se esta imprimindo na rede ou não. Andei vasculhando a internet e não achei nada que pudesse me ajudar. Se alguém tiver algum link, ou alguma matéria, ou até mesmo alguma dica do que procurar, agradeço muito a ajuda... Gustavo. __ Fale com seus amigos de graça com o novo Yahoo! Messenger http://br.messenger.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas] _ MSN Busca: fácil, rápido, direto ao ponto. http://search.msn.com.br
RE: [delphi-br] Locate + CDS
Original Message Follows From: Magnun Oliveira [EMAIL PROTECTED] Reply-To: delphi-br@yahoogrupos.com.br To: delphi-br@yahoogrupos.com.br Subject: [delphi-br] Locate + CDS Date: Mon, 26 Mar 2007 14:57:33 + Olá, tenho um sistema e q preciso exibir os dados de uma tabela em um grid. Uso o CDS configurado com 20 em packet records. Tudo OK. Ao entrar no formulario preciso posicionar o cursor do grid em um registro, mediante a um parametro. Usei o locate. Porem percebi q ao usar o locate, ele faz um Fetch nos dados, carregando todos os dados da tabela, mesmo q a condicao se satisfaça no 3 registro. Há alguma maneira de usar o locate sem q isso aconteça? outra duvida é referente ao Refresh. O refresh faz um FetchAll no CDS? Obrigado. _ MSN Messenger: converse com os seus amigos online. http://messenger.msn.com.br _ MSN Messenger: converse com os seus amigos online. http://messenger.msn.com.br
[delphi-br] Locate + CDS
Olá, tenho um sistema e q preciso exibir os dados de uma tabela em um grid. Uso o CDS configurado com 20 em packet records. Tudo OK. Ao entrar no formulario preciso posicionar o cursor do grid em um registro, mediante a um parametro. Usei o locate. Porem percebi q ao usar o locate, ele faz um Fetch nos dados, carregando todos os dados da tabela, mesmo q a condicao se satisfaça no 3 registro. Há alguma maneira de usar o locate sem q isso aconteça? outra duvida é referente ao Refresh. O refresh faz um FetchAll no CDS? Obrigado. _ MSN Messenger: converse com os seus amigos online. http://messenger.msn.com.br
RE: [delphi-br] Demora ...
... Original Message Follows From: Magnun Oliveira [EMAIL PROTECTED] Reply-To: delphi-br@yahoogrupos.com.br To: delphi-br@yahoogrupos.com.br Subject: [delphi-br] Demora ... Date: Wed, 14 Mar 2007 18:47:45 + Olá, tenho uma dakelas aplicações em q o cliente precisa ver varios dados na tela com um grid. Uso DBX + CDS + FB 1.5 Configurei o o package do CDS pra exibir 20 registros por vez ... blz. Porem o cliente precisa q ao entrar no formulario, o cursor do CDS se mova p/ o registro com a data mais proxima da atual, ferrando assim o tempo dessa consulta. Uma ordenação decrescente resolveria esse caso? Mas acho q nao vou poder usar assim, alguma outra solução? Outra duvida é, nessa mesma tela será exibido um saldo: DATA-VALOR---SALDO 01/01/07-50,00---50,00 02/01/07100,00--150,00 03/01/07-25,00--175,00 ... etc ... O cliente poderá editar o VALOR e automaticamente o sistema atualiza o saldo. criei uma rotina na aplicação p/ fazer esse saldo, ela posiciona o select no registro alterado e vai calculando até o ultimo. Gostaria de saber se com uma SP, esse update no saldo seria mais rapido? _ MSN Busca: fácil, rápido, direto ao ponto. http://search.msn.com.br _ MSN Hotmail, o maior webmail do Brasil. http://www.hotmail.com
RE: [delphi-br] Demora ...
Original Message Follows From: Magnun Oliveira [EMAIL PROTECTED] Reply-To: delphi-br@yahoogrupos.com.br To: delphi-br@yahoogrupos.com.br Subject: [delphi-br] Demora ... Date: Wed, 14 Mar 2007 18:47:45 + Olá, tenho uma dakelas aplicações em q o cliente precisa ver varios dados na tela com um grid. Uso DBX + CDS + FB 1.5 Configurei o o package do CDS pra exibir 20 registros por vez ... blz. Porem o cliente precisa q ao entrar no formulario, o cursor do CDS se mova p/ o registro com a data mais proxima da atual, ferrando assim o tempo dessa consulta. Uma ordenação decrescente resolveria esse caso? Mas acho q nao vou poder usar assim, alguma outra solução? Outra duvida é, nessa mesma tela será exibido um saldo: DATA-VALOR---SALDO 01/01/07-50,00---50,00 02/01/07100,00--150,00 03/01/07-25,00--175,00 ... etc ... O cliente poderá editar o VALOR e automaticamente o sistema atualiza o saldo. criei uma rotina na aplicação p/ fazer esse saldo, ela posiciona o select no registro alterado e vai calculando até o ultimo. Gostaria de saber se com uma SP, esse update no saldo seria mais rapido? _ MSN Busca: fácil, rápido, direto ao ponto. http://search.msn.com.br _ MSN Messenger: converse com os seus amigos online. http://messenger.msn.com.br
[delphi-br] Demora ...
Olá, tenho uma dakelas aplicações em q o cliente precisa ver varios dados na tela com um grid. Uso DBX + CDS + FB 1.5 Configurei o o package do CDS pra exibir 20 registros por vez ... blz. Porem o cliente precisa q ao entrar no formulario, o cursor do CDS se mova p/ o registro com a data mais proxima da atual, ferrando assim o tempo dessa consulta. Uma ordenação decrescente resolveria esse caso? Mas acho q nao vou poder usar assim, alguma outra solução? Outra duvida é, nessa mesma tela será exibido um saldo: DATA-VALOR---SALDO 01/01/07-50,00---50,00 02/01/07100,00--150,00 03/01/07-25,00--175,00 ... etc ... O cliente poderá editar o VALOR e automaticamente o sistema atualiza o saldo. criei uma rotina na aplicação p/ fazer esse saldo, ela posiciona o select no registro alterado e vai calculando até o ultimo. Gostaria de saber se com uma SP, esse update no saldo seria mais rapido? _ MSN Busca: fácil, rápido, direto ao ponto. http://search.msn.com.br
RE: [delphi-br] Componente para carregar PDF no Delphi
Component - Import Active X Control, e selecione o Active X referente a versao do Adobe instalada na sua maquina. Vai aparecer na guia Active X um componente p/ exibir PDFs flws Original Message Follows From: Marcio Cruz [EMAIL PROTECTED] Reply-To: delphi-br@yahoogrupos.com.br To: delphi-br@yahoogrupos.com.br Subject: [delphi-br] Componente para carregar PDF no Delphi Date: Thu, 08 Mar 2007 16:51:12 -0300 Alguém conhece? Obrigado _ MSN Busca: fácil, rápido, direto ao ponto. http://search.msn.com.br
RE: [delphi-br] Componente para carregar PDF no Delphi
Component - Import Active X Control, e selecione o Active X referente a versao do Adobe instalada na sua maquina. Vai aparecer na guia Active X um componente p/ exibir PDFs flws Original Message Follows From: Marcio Cruz [EMAIL PROTECTED] Reply-To: delphi-br@yahoogrupos.com.br To: delphi-br@yahoogrupos.com.br Subject: [delphi-br] Componente para carregar PDF no Delphi Date: Thu, 08 Mar 2007 16:51:12 -0300 Alguém conhece? Obrigado _ MSN Hotmail, o maior webmail do Brasil. http://www.hotmail.com
RE: Res: [delphi-br] Crystal 9.0 no Delphi 7
se puder me passar a forma como vc faz eu mudo esse esquema de active X ... até pq eu ainda nao consegui fazer funcionar isso. abs Original Message Follows From: Alexandre da Silva [EMAIL PROTECTED] Reply-To: delphi-br@yahoogrupos.com.br To: delphi-br@yahoogrupos.com.br Subject: Res: [delphi-br] Crystal 9.0 no Delphi 7 Date: Sat, 24 Feb 2007 03:09:10 -0800 (PST) Se vc usasse a VCL eu poderia lhe ajudar...Mais com contrle ActiveX nunca usei... Trabalho com delphi 7 + Crystal XI... Alexandre. - Mensagem original De: Magnun Oliveira [EMAIL PROTECTED] Para: delphi-br@yahoogrupos.com.br Enviadas: Quinta-feira, 22 de Fevereiro de 2007 20:14:36 Assunto: [delphi-br] Crystal 9.0 no Delphi 7 Como abrir o Relatorio do Crystal no Delphi ? ja instalei o Controle ActiveX e consegui colocar o CRViewer no form.. porém não estou conseguindo fazer a chamada! sei que deve ser algo do tipo CRViewer91.ReportSo urce := 'c:\relatorio. rpt'; CRViewer91.ViewRepo rt ; só que falta alguma coisa! Obrigado _ _ _ _ _ _ MSN Messenger: converse com os seus amigos online. http://messenger. msn.com.br !-- #ygrp-mlmsg {font-size:13px;font-family:arial,helvetica,clean,sans-serif;} #ygrp-mlmsg table {font-size:inherit;font:100%;} #ygrp-mlmsg select, input, textarea {font:99% arial,helvetica,clean,sans-serif;} #ygrp-mlmsg pre, code {font:115% monospace;} #ygrp-mlmsg * {line-height:1.22em;} #ygrp-text{ font-family:Georgia; } #ygrp-text p{ margin:0 0 1em 0; } #ygrp-tpmsgs{ font-family:Arial; clear:both; } #ygrp-vitnav{ padding-top:10px; font-family:Verdana; font-size:77%; margin:0; } #ygrp-vitnav a{ padding:0 1px; } #ygrp-actbar{ clear:both; margin:25px 0; white-space:nowrap; color:#666; text-align:right; } #ygrp-actbar .left{ float:left; white-space:nowrap; } .bld{font-weight:bold;} #ygrp-grft{ font-family:Verdana; font-size:77%; padding:15px 0; } #ygrp-ft{ font-family:verdana; font-size:77%; border-top:1px solid #666; padding:5px 0; } #ygrp-mlmsg #logo{ padding-bottom:10px; } #ygrp-vital{ background-color:#e0ecee; margin-bottom:20px; padding:2px 0 8px 8px; } #ygrp-vital #vithd{ font-size:77%; font-family:Verdana; font-weight:bold; color:#333; text-transform:uppercase; } #ygrp-vital ul{ padding:0; margin:2px 0; } #ygrp-vital ul li{ list-style-type:none; clear:both; border:1px solid #e0ecee; } #ygrp-vital ul li .ct{ font-weight:bold; color:#ff7900; float:right; width:2em; text-align:right; padding-right:.5em; } #ygrp-vital ul li .cat{ font-weight:bold; } #ygrp-vital a { text-decoration:none; } #ygrp-vital a:hover{ text-decoration:underline; } #ygrp-sponsor #hd{ color:#999; font-size:77%; } #ygrp-sponsor #ov{ padding:6px 13px; background-color:#e0ecee; margin-bottom:20px; } #ygrp-sponsor #ov ul{ padding:0 0 0 8px; margin:0; } #ygrp-sponsor #ov li{ list-style-type:square; padding:6px 0; font-size:77%; } #ygrp-sponsor #ov li a{ text-decoration:none; font-size:130%; } #ygrp-sponsor #nc { background-color:#eee; margin-bottom:20px; padding:0 8px; } #ygrp-sponsor .ad{ padding:8px 0; } #ygrp-sponsor .ad #hd1{ font-family:Arial; font-weight:bold; color:#628c2a; font-size:100%; line-height:122%; } #ygrp-sponsor .ad a{ text-decoration:none; } #ygrp-sponsor .ad a:hover{ text-decoration:underline; } #ygrp-sponsor .ad p{ margin:0; } o {font-size:0;} .MsoNormal { margin:0 0 0 0; } #ygrp-text tt{ font-size:120%; } blockquote{margin:0 0 0 4px;} .replbq {margin:4;} -- __ Fale com seus amigos de graça com o novo Yahoo! Messenger http://br.messenger.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas] _ MSN Busca: fácil, rápido, direto ao ponto. http://search.msn.com.br
Re: [delphi-br] Testar o Contedudo do DBGrid enquanto estiver digitando
deu certo, vlw. Original Message Follows From: Willian Leal [EMAIL PROTECTED] Reply-To: delphi-br@yahoogrupos.com.br To: delphi-br@yahoogrupos.com.br Subject: Re: [delphi-br] Testar o Contedudo do DBGrid enquanto estiver digitando Date: Thu, 22 Feb 2007 07:05:47 -0300 Você pode fazer assim: if DBGrid1.SelectedIndex = 'Indíce da coluna' then //Aqui você vai colocar o indíce da coluna do dbgrid. Se for a primeira coluna vai ser 0, se for a segunda vai ser 1 e assim por diante. if TRIM(DBGrid1.Columns[Indice da coluna].Field.AsString) = '' then // testa se está em branco BEGIN SHOWMESSAGE(DBGrid1.Columns[Indice da coluna].Field.AsString); MINHA_ROTINA; // dispara minha rotina END; Testa aí que acho que vai funcionar, um abraço. Em 21/02/07, Magnun Oliveira [EMAIL PROTECTED] escreveu: Eu preciso fazer uma ação somente se o conteudo de um campo for igual a ''. fiz assim: if DBGrid1.SelectedField.FieldName = 'MEU_CAMPO' then // testa se é o campo correto if TRIM(TEdit(DBGrid1.Controls[0]).Text) = '' then // testA se está em branco BEGIN SHOWMESSAGE(TEdit(DBGrid1.Controls[0]).Text); MINHA_ROTINA; // dispara minha rotina END; coloquei o showmessage ali, a titulo de verificaçao, pq nao estava dando certo, e percebi q o valor de TRIM(TEdit(DBGrid1.Controls[0]).Text) vai ser o valor do ultimo campo q teve seu CONTEUDO selecionado. (o q acontece quando vc aperta o enter dentro do grid). Qual a maneira correta de fazer o q eu to querendo? abs. __ MSN Messenger: converse com os seus amigos online. http://messenger.msn.com.br -- Willian Leal Desenvolvedor de Softwares MSN: [EMAIL PROTECTED] Celular:(32) 8409 - 3077 [As partes desta mensagem que não continham texto foram removidas] _ MSN Busca: fácil, rápido, direto ao ponto. http://search.msn.com.br
[delphi-br] Crystal 9.0 no Delphi 7
Como abrir o Relatorio do Crystal no Delphi ? ja instalei o Controle ActiveX e consegui colocar o CRViewer no form.. porém não estou conseguindo fazer a chamada! sei que deve ser algo do tipo CRViewer91.ReportSource := 'c:\relatorio.rpt'; CRViewer91.ViewReport ; só que falta alguma coisa! Obrigado _ MSN Messenger: converse com os seus amigos online. http://messenger.msn.com.br
Re: [delphi-br] O q é curva ABC de estoque ?
http://www.sebraesp.com.br/principal/melhorando%20seu%20neg%C3%B3cio/orienta%C3%A7%C3%B5es/marketing/planejamento/sistemaabcestoques.aspx comece por aih ... tem bastante coisa ... abs Original Message Follows From: Helton [EMAIL PROTECTED] Reply-To: delphi-br@yahoogrupos.com.br To: delphi-br@yahoogrupos.com.br Subject: Re: [delphi-br] O q é curva ABC de estoque? Date: Wed, 21 Feb 2007 11:37:45 -0300 Alguem pode me corrigir, mas pelo q sei eh o relatorio de estoque ordenado pela qtde de unidades vendidas. []´s Em 21/02/07, Desenvolvimento (Anderson) [EMAIL PROTECTED] escreveu: Me falaram sobre isso e acabei ficando na curiosidade... alguém conhece? obrigado. and. [As partes desta mensagem que não continham texto foram removidas] -- Hélton R. Nunes [EMAIL PROTECTED] [As partes desta mensagem que não continham texto foram removidas] _ MSN Hotmail, o maior webmail do Brasil. http://www.hotmail.com
[delphi-br] Testar o Contedudo do DBGrid enquanto estiver digitando
Eu preciso fazer uma ação somente se o conteudo de um campo for igual a ''. fiz assim: if DBGrid1.SelectedField.FieldName = 'MEU_CAMPO' then // testa se é o campo correto if TRIM(TEdit(DBGrid1.Controls[0]).Text) = '' then // testA se está em branco BEGIN SHOWMESSAGE(TEdit(DBGrid1.Controls[0]).Text); MINHA_ROTINA; // dispara minha rotina END; coloquei o showmessage ali, a titulo de verificaçao, pq nao estava dando certo, e percebi q o valor de TRIM(TEdit(DBGrid1.Controls[0]).Text) vai ser o valor do ultimo campo q teve seu CONTEUDO selecionado. (o q acontece quando vc aperta o enter dentro do grid). Qual a maneira correta de fazer o q eu to querendo? abs. _ MSN Messenger: converse com os seus amigos online. http://messenger.msn.com.br