Mario Lopes

Viva Necessito de extrair de uma base de dados todos os alunos que fazem anos num determinado mês. O meu problema está na ordenação por dia dessa lista. Alguém ajuda? Eis o meu código: queryaniversarioexterno.SQL.Clear; Queryaniversarioexterno.SQL.Add('SELECT *'); Queryaniversarioexterno.SQL.Add('FROM festaaniversario'); Queryaniversarioexterno.SQL.Add('WHERE extract(month from DATA_aniversario) = :mes'); queryaniversarioexterno.SQL.Add('order by data_aniversario'); Queryaniversarioexterno.ParamByName('mes').AsInteger := m1; Queryaniversarioexterno.Open; Só que o order by data_aniversario não funciona. Como fazer? Obrigado

Olá Ao instalar o Delphi 7 no win 7 , não me aparece a tab do BDE. Como resolver? Cumprimentos Mário Lopes

Olá Nas minhas demos de Delphi costumo utilizar BDE e utilizo o programa para criar instalaçõe installshield (versão 2.0 para Delphi 4). Agora tenho um problema com os utilizadores de 64 bits que é os programas criados com este instalador não se instalam em 64 bits. Alguém confirma? Existe um outro programa para instalações que me instale o BDE? Abraço Mário Lopes http://www.mariolopes.com (tem uma versão demo de gestão de um ATL, conseguem instalar em 64 bits?)

Olá Amigos Como posso executar sem travar (pedurar) o bdeadmin? Isto é muito mais complicado porque ao fazer um programa de demonstração espero que o cliente o consiga instalar. Ora com este sistema de permissões do Vista e do WIN7 parece-me complicado. Será viável instalar o bde na pasta onde irei instalar o programa de demonstração (evitando, julgo os erros de permissão)? Ideias para dar a volta a isto? Mário Lopes

Boa noite Quando utilizo o installshield e pretendo configurar o BDE aparece-me a opçao Create a new bde configuration file ou open Existing configuration file. Ora o que pretendo é que o programa de intalação me instale o bde no destino e configure um alias. Não estou a ver como posso conseguir isto com estas opções. Alguém me ajuda? Obrigado Mário Lopes P.S A propósito quando executo o BDEAdministrator no win7 bloqueia sempre. Alguém tem solução para isto? Utilizo o delphi 7 Estou a pensar utilizar o inno setup, que acham?

Boa noite Estou a tentar perceber o installaware e gostaria saber se há resolução para o meu seguinte problema: Necessito de instalar BDE Necessito de configurar um alias É possivel fazer isto com o installaware? Se não qual a melhor solução para criar programas de instalação? Cumprimentos Mário Lopes

Obrigado Jhonas Resolveu, mais uma vez, o meu problema.

Olá Amigos Após a instalaçao do Delphi 7 SE, num sistema win7 não consigo executar o programa porque obtenho sistemátiamente o erro que vos apresento. Alguém ajuda? Cumprimentos Mário Lopes

Olá Amigos Quando o meu programa em Delphi é instalado no Delphi necessito de executá-lo como Administrador (fazer botão da direita, bla bla). Como posso mudar isto? Não ter que estar sempre a escolher com o botão da direita executar como administrador Cumprimentos Mário Lopes

Obrigado Jhonas

Bom dia Necessito de fazer para uma escola um género de agenda em que os alunos ao se inscreverem escolhem as actividades que pretendem frequentar mediante certos horários. É necessário, para um dado aluno, imprimir a sua agenda ou horário semanal. Utilizo Delphi 7 e estou a pensar utilizar uma stringgrid para isto. É a melhor opção? É fácil imprimir o conteúdo de uma stringgrid, sem enviar os dados para o Excel, por exemplo? Gostaria da Vossa opinião, por favor Mário Lopes

Pediram-me que construísse um género de bloco de notas onde pudessem anotar coisas importantes num programa em Delphi. Como proceder? Pensei utilizar um Richedit para poder escrever com cores e guardar numa base de dados. O que acham? Mário

Viva Tenho uma base de dados com um campo BMP e necessito de passar para JPG. Que alterações necessito de fazer? Obrigado Mario Lopes

Olá Suponham que tenho o seguinte select select * from cidades e a tabela cidades não existe. Como posso avisar o utilizador que a tabela cidades não existe? Obrigado mario fiz assim e funcionou try queryapagar.close; queryapagar.sql.Clear; queryapagar.sql.Add('select * from '+quotedstr('ano'+edit1.text)+' order by n_recibo'); queryapagar.Open; except on e: exception do MessageBox(Application.Handle,'O Ano pedido ainda não foi Fechado!' ,'Gestão ATL' , MB_ICONINFORMATION + MB_OK); end;

obrigado Era mesmo isso. Um abraço Mário

Olá amigo, boa tarde. Lida como? Reformule sua pergunta por favor. Abraço. Ok queria fazer um select assim: select * form edit1.text order by nome Agora no edit1 tenho ano2009 As minhas desculpas se não fui claro abraço Mário

Olá Suponham que eu tenho um sql do género select * from ano2009 queria que o nome da tabela (ano2009) fosse lida de um campo do formulário (edit1.text). Como proceder? Obrigado Mário

Caros amigos Posso ter uma aplicação em delphi (Paradox), num portátil e a mesma ser acedida por outro portátil, tipo rede (mas sem cabos)? Se sim, como? Cumprimentos Mário Lopes

Caros Amigos Qual o melhor programa de instalação quando pretendo: -Instalar a minha aplicação com o BDE e configuração automática do BDE (criação do alias) para sistema Vista (utilizo po Delphi 7 e acreditem ou não o instaldor que ainda utilizo é o do Delphi 4 installshiedl 2.0) Agradeço ajuda Mario

Olá Como posso utilizar este componente? Será que dá para colocar texto em várias cores etc? Estou a utilizar delphi 7 Obrigado mario

http://www.example-code.com/delphi/upload_simpleExample.asp uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, CHILKATUPLOADLib_TLB, OleCtrls; ... procedure TForm1.Button1Click(Sender: TObject); var upload: TChilkatUpload; success: Integer; begin upload := TChilkatUpload.Create(Self); // Specify the page (ASP, ASP.NET, Perl, Python, Ruby, CGI, etc) // that will process the HTTP Upload. upload.Hostname := 'www.chilkatsoft.com'; upload.Path := '/receiveUpload.aspx'; // Add one or more files to be uploaded. upload.AddFileReference('file1','dude.gif'); upload.AddFileReference('file2','pigs.xml'); upload.AddFileReference('file3','sample.doc'); // Do the upload. The method returns when the upload // is completed. // This component also includes asynchronous upload capability, // which is demonstrated in another example. success := upload.BlockingUpload(); if (success <> 1) then begin ShowMessage(upload.LastErrorText); end else begin ShowMessage('Files uploaded!'); end; end; Baixe o componente http://www.chilkatsoft.com/download/UploadActiveX.msi Mais informações http://www.devmedia.com.br/articles/viewcomp.asp?comp=409 http://www.ramosdainformatica.com.br/art_r...es01.php?CDA=37 abraço Grande ajuda Jhonas Mil obrigados Mário

Bom dia Como enviar um ficheiro para um website com delphi 7? Alguém ajuda? Obrigado mario

Bom dia Gostaria de fazer um select que devolvesse todos os registos com a data em branco. qualquer coisa do género query1.close; query1.sql.clear; query1.sql.add('select * from tabela where data=:data'); query1.parambyname('data').asdate:=????? query1.open; E nos pontos de interrogação o que devo colocar? Abraços Mário

então tente if queryapagar.FieldByName('n_recibo').AsInteger > 0 then begin MessageBox(Application.Handle, 'Já Existe um Recibo para este Valor. Não o pode Alterar!'+#13+'Para sair faça Esc', 'Gestão ATL', MB_ICONINFORMATION + MB_OK); queryapagar.Cancel; exit; end else . . . ou ainda voce pode deixar o DBEdit somente como leitura nesta condição abraço queryapagar.cancel resolveu o meu problema. Mil obrigados!

Se voce não adicionar um novo registro na query, sempre ficará mostrando o valor de um registro da sua tabela if queryapagar.FieldByName('n_recibo').AsInteger > 0 then begin MessageBox(Application.Handle, 'Já Existe um Recibo para este Valor. Não o pode Alterar!'+#13+'Para sair faça Esc', 'Gestão ATL', MB_ICONINFORMATION + MB_OK); sysutils.Abort; exit; end else begin queryapagar.Last; queryapagar.Append; queryapagar.Edit; queryapagar.FieldByName('valor_almocos').ascurrency := queryapagar.FieldByName('n_almocos').asinteger * queryapagar.FieldByName('preco_almoco').ascurrency; queryapagar.FieldByName('total_recibo').ascurrency := queryapagar.FieldByName('valor_almocos').asinteger + queryapagar.FieldByName('mensalidade').ascurrency + queryapagar.FieldByName('extra_valor').ascurrency; queryapagar.Post; end; abraço Olá Jhonas Não sei se expliquei bem o meu problema: O meu problema é que adbgrid ( e protanto a queryapagar que está requestlive=true fica actualizada com o valor neste caso: MessageBox(Application.Handle, 'Já Existe um Recibo para este Valor. Não o pode Alterar!'+#13+'Para sair faça Esc', 'Gestão ATL', MB_ICONINFORMATION + MB_OK); sysutils.Abort; exit; Ora eu não queria isso. Neste caso eu pretendo que a queryapagar não seja alterada em relação ao valor que ela tem no campo. pensei que sysutils.abort resolveria a situação mas não me parece estar a resultar. Outra possibilidade seria fazer o registo não editável no caso de já ter sido emitido um recibo.será melhor ir por esse caminho? Orbigado