Re: [delphi-br] Manipulando strings para formar um comando SQL !!!!
Usa o comando format, no where coloca : where (1=1) Abs, Leandro Em 31/07/06, Flavio [EMAIL PROTECTED] escreveu: Olá pessoal, estou aqui desta vez para pedir um auxílio. Talvez muitos já se depararam com essa situação antes. Estou programando com Delphi 6, Quick Report 3 e Interbase 6. É a seguinte: Tenho um form que possibilita o usuário emitir um relatório no QUick Report. Porém, o usuário pode filtrar a busca ao acessar os dados no interbase para jogar no relatório, como por exemplo pesquisar os patrimônios entre um intervalo de datas ou de ID´s ou até mesmo mostrar patrimônios doados ou não ou ambos. a minha sql é a seguinte: strdata := ' data BETWEEN '#39 + meDataInicial.Text + #39' AND '#39 + meDataFinal.Text + #39''; strdoado := ' doado IS NULL '; strnumero := ' numero BETWEEN ' + eNumeroInicial.Text + ' AND ' + eNumeroFinal.Text; // SQL FINAL !!! strsql := 'select * from patrimonio where' + strdata + ' AND ' + strdoado + ' AND ' + strnumero + ' order by ' + cbOrdenar.Text + ''; Agora suponha que não queira filtrar nada da busca. Então perceba que a palavra where vai ocasionar um erro. Agora suponha que queira buscar por data, doado, mas não número. Então a palavra (o segundo AND da SQL FINAL) AND vai precisar de uma palavra (coluna) seguinte. O que estou querendo saber é se alguém possui uma idéia boa de como contornar esse problema, esquivando-se de inúmeros if´s else´s. Obrigado pela atenção de todos !!! Flávio - Novidade no Yahoo! Mail: receba alertas de novas mensagens no seu celular. Registre seu aparelho agora! [As partes desta mensagem que não continham texto foram removidas] -- == Leandro Belanda MSN: [EMAIL PROTECTED] É bom ser importante, mas é mais importante ser bom. [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: [EMAIL PROTECTED] 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: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] Manipulando strings para formar um comando SQL !!!!
O Comando format permite formatar string inserindo valores dentro de strings
meuNome:= 'leandro';
s:= format('Meu Nome é %s',[meuNome]);
//resultado final
s vale: 'Meu Nome é leandro'
%s recebe strings, %g números float, %d números inteiros.
Abs,
Leandro
Em 31/07/06, Eduardo [EMAIL PROTECTED] escreveu:
Ta na mao ...
strsql := 'select * from patrimonio ';
if (strdata '') or (strdoado '') or ( strnumero '') then
begin
strsql := strsql + ' where ';
strsql := strsql + strdata;
if (strdata '') then
strsql := strsql + ' and ';
strsql := strsql + strdoado;
if (strdoado '') then
strsql := strsql + ' and ';
strsql := strsql + strnumero;
end;
strsql := strsql + ' order by ' + cbOrdenar.Text + '';
Eduardo
Ps.: Não testei, mais ai é com vc !!!
// SQL FINAL !!!
Flavio escreveu:
Olá pessoal,
estou aqui desta vez para pedir um auxílio. Talvez muitos já se
depararam com essa situação antes. Estou programando com Delphi 6,
Quick Report 3 e Interbase 6. É a seguinte:
Tenho um form que possibilita o usuário emitir um relatório no QUick
Report. Porém, o usuário pode filtrar a busca ao acessar os dados no
interbase para jogar no relatório, como por exemplo pesquisar os
patrimônios entre um intervalo de datas ou de ID´s ou até mesmo
mostrar patrimônios doados ou não ou ambos.
a minha sql é a seguinte:
strdata := ' data BETWEEN '#39 +
meDataInicial.Text + #39' AND '#39 +
meDataFinal.Text + #39'';
strdoado := ' doado IS NULL ';
strnumero := ' numero BETWEEN ' +
eNumeroInicial.Text + ' AND ' +
eNumeroFinal.Text;
// SQL FINAL !!!
strsql := 'select * from patrimonio where' + strdata + ' AND ' +
strdoado
+ ' AND ' + strnumero + ' order by ' +
cbOrdenar.Text + '';
Agora suponha que não queira filtrar nada da busca. Então perceba que
a palavra where vai ocasionar um erro. Agora suponha que queira buscar
por data, doado, mas não número. Então a palavra (o segundo AND da SQL
FINAL) AND vai precisar de uma palavra (coluna) seguinte.
O que estou querendo saber é se alguém possui uma idéia boa de como
contornar esse problema, esquivando-se de inúmeros if´s else´s.
Obrigado pela atenção de todos !!!
Flávio
-
Novidade no Yahoo! Mail: receba alertas de novas mensagens no seu
celular. Registre seu aparelho agora!
[As partes desta mensagem que não continham texto foram removidas]
___
Yahoo! Acesso Grátis - Internet rápida e grátis. Instale
o discador agora!
http://br.acesso.yahoo.com
--
==
Leandro Belanda
MSN: [EMAIL PROTECTED]
É bom ser importante, mas é mais importante ser bom.
[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:
[EMAIL PROTECTED]
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:
[EMAIL PROTECTED]
* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
Re: [delphi-br] HTML
Caro amigo Rodrigo, seu desenvolvimento evia anexo??? Tenho que desenvolver um programa que envia anexo. Em 14/07/06, Rodrigo [EMAIL PROTECTED] escreveu: boa tarde galera, estou fazendo um programinha para enviar e-mail no meu sistema, gostaria que a pessoa pudesse formatar o texto de acordo com os botões ...e tal negrito fonte... tem algum componente para tal..a parte de envio ja tenho os componentes da pasta Indy abs. [As partes desta mensagem que não continham texto foram removidas] -- == Leandro Belanda MSN: [EMAIL PROTECTED] É bom ser importante, mas é mais importante ser bom. [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: [EMAIL PROTECTED] 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: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] HTML
Valeu Muito Origado,
Em 14/07/06, Rodrigo Mota [EMAIL PROTECTED] escreveu:
da uma alterada nesse código q vc ja consegue anexar
a com a vara e o peixe na mão só fritara seu gosto.
abs.
Rodrigo Mota.
//
// Gera uma String unica baseada no relogio do windows
//
Function CreateUniqueID(HexMode:Boolean=True):String;
Var A : Int64;
Begin
a := Trunc(Now*1);
If HexMode Then Result := IntToHex(a,14) Else Result := IntToStr(a);
Sleep(50);
End;
procedure TForm1.Button1Click(Sender: TObject);
Var newText : TIdText;
sPath : String;
newAttach : TIdAttachment;
imgID1, imgName1 : String;
imgID2, imgName2 : String;
begin
// Endereço e ID das Imagens
imgName1 := 'c:\\mail\\imagem1.jpg';
imgID1 := CreateUniqueID;
imgName2 := 'c:\\mail\\imagem2.jpg';
imgID2 := CreateUniqueID;
// Configura o Servidor
IdSMTP.Username := 'seu_login';
IdSMTP.Password := 'sua_senha';
IdSMTP.Host := 'seu_servidor_smtp';
// Configura o Remetente da Mensagem
IdMessage.Clear;
IdMessage.Subject := 'Teste de Envio de Mensagem';
IdMessage.From.Address := '[EMAIL PROTECTED]';
IdMessage.From.Name http://idmessage.from.name/:= 'Adenilton
Rodrigues';
IdMessage.Subject := 'My Subject';
// configura os destinatários
IdMessage.Recipients.Clear;
IdMessage.Recipients.Add;
IdMessage.Recipients.Items[IdMessage.Recipients.Count-1].Address := '
[EMAIL PROTECTED]';
IdMessage.Recipients.Items[IdMessage.Recipients.Count-1].Name:=
'Adenilton Rodrigues';
IdMessage.Recipients.Add;
IdMessage.Recipients.Items[IdMessage.Recipients.Count-1].Address := '
[EMAIL PROTECTED]';
IdMessage.Recipients.Items[IdMessage.Recipients.Count-1].Name:=
'Adenilton Rodrigues';
// Adiciona o HTML ao corpo da mensagem
newText := TIdText.Create(IdMessage.MessageParts,nil);
newText.ContentType := 'text/html';
newText.Body.Add('HTMLBODY');
newText.Body.Add('H2Teste de Envio de Email HTML Embeded/H2');
newText.Body.Add('IMG
newText.Body.Add('IMG
newText.Body.Add('/BODYHTML');
// Adiciona uma parte texto ao corpo
newText := TIdText.Create(IdMessage.MessageParts,nil);
newText.ContentType := 'text/plain';
newText.Body.Add('Este email só será visualizado em padrão HTML');
// Anexa a primeira imagem
newAttach := TIdAttachment.Create(IdMessage.MessageParts,imgName1);
newAttach.ContentType:= 'image/jpeg';
newAttach.ContentDisposition := 'inline';
newAttach.ExtraHeaders.Values['Content-ID'] := ''+imgId1+'';
// Anexa a segunda imagem
newAttach := TIdAttachment.Create(IdMessage.MessageParts,imgName2);
newAttach.ContentType:= 'image/jpeg';
newAttach.ContentDisposition := 'inline';
newAttach.ExtraHeaders.Values['Content-ID'] := ''+imgId2+'';
// Envia
IdSMTP.Connect;
Try
if IdSMTP.Connected then Begin
IdSMTP.Send(IdMessage);
End
Finally
IdSMTP.Disconnect;
End;
end;
Basicamente a técnica consiste em trocar os nomes das imagens no corpo do
HTML (IMG SRC) por um identificador único, usando e anexar essas imagens
referenciando-as ao seus respectivos identificadores.
Veja que foram usadas duas variaveis string para comportar os nomes das
imagens e seus IDs. A solução ideal é:
1. Ler o arquivo html diretamente do disco (loadfromfile)
2. Executar uma varredura e trocar todos os IMG SRC por um ID unico.
3. Anexar as imagens ao corpo do email.
4. Enviar.
On Fri, 14 Jul 2006 20:39:47 -0300, Leandro Belanda [EMAIL PROTECTED]
escreveu:
De: Leandro Belanda [EMAIL PROTECTED]
Data: Fri, 14 Jul 2006 20:39:47 -0300
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] HTML
Caro amigo Rodrigo, seu desenvolvimento evia anexo???
Tenho que desenvolver um programa que envia anexo.
Em 14/07/06, Rodrigo [EMAIL PROTECTED] escreveu:
boa tarde galera,
estou fazendo um programinha para enviar e-mail no meu
sistema, gostaria que a pessoa pudesse formatar o texto
de acordo com os botões ...e tal negrito fonte...
tem algum componente para tal..a parte de envio ja
tenho os componentes da pasta Indy
abs.
[As partes desta mensagem que não continham texto foram removidas]
--
==
Leandro Belanda
MSN: [EMAIL PROTECTED]
É bom ser importante, mas é mais importante ser bom.
[As partes desta mensagem que não continham texto foram removidas]
--
==
Leandro Belanda
MSN: [EMAIL PROTECTED]
É bom ser importante, mas é mais importante ser bom.
[As partes desta mensagem que não
Re: [delphi-br] Tabela AMB 92
Danilo eu tenho aqui me fala em qual e-mail eu posso te mandar. OK? att, Leandro. [EMAIL PROTECTED] Em 06/07/06, Danilo Rogério [EMAIL PROTECTED] escreveu: Pessoal, gostaria de obter a tabela AMB 92(Procedimentos Médicos, Honorários, etc). Alguem sabe onde posso encontrar informações a respeito? Att. Danilo - Novidade no Yahoo! Mail: receba alertas de novas mensagens no seu celular. Registre seu aparelho agora! [As partes desta mensagem que não continham texto foram removidas] -- == Leandro Belanda MSN: [EMAIL PROTECTED] É bom ser importante, mas é mais importante ser bom. [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: [EMAIL PROTECTED] 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: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
