Kikonanet

Olá, Dá uma olhada nos AND q você esta usando... Pode ser algum erro na lógica. 'where (p.cod_barra = c.cod_barra) and (data_lida >= :pardataini and data_lida <= :pardatafin) and (hora_lida >= :parhoraini and hora_lida <= :parhorafin)' Obs. Tente usar o BETWEEN. ex.: 'WHERE DATA BETWEEN :DATAINI AND :DATAFIM'; Abs. Kiko

Olá Éder, Tenta usar o QRRichText no lugar do QRMemo. with FormImpReg do begin QRRichText1.Lines.Text:=Memo1.Text; QuickRep1.Preview; end; Obs.: Deixe a propriedade AutoStretch como TRUE. Abs. Kiko

Olá, Tenta usar assim: horaini:=StrToDateTime(hora_ini.Text); horafin:=StrToDateTime(hora_fin.Text); qualquer coisa posta ae. Abs. Kiko

Olá Éder, Tenta assim: with FormImpReg do begin QRMemo1.Lines:=Memo1.Lines; QuickRep1.Preview; end;

Olá Éder, Por que você não usa um QRDBRichText ou um QRMemo para receber o seu campo MEMO ao invés de usar o QRlabel39? Na outra dúvida você pode usar a propriedade MaxLength =200 ou fazer no OnKeyPress um contador.... Abs. Kiko

Faz o seguinte tenta usar ZPgSqlQuery1 e colocar os insert's usando Close / ExecSQL. Obs. Eu nunca usei TZUpdadeSQL e não sei se ele vai aceitar vários insert's, ou mais de uma SQL Abs. Kiko

Olá, Coloque a propriedade FormStyle do Form Principal como fsMDIForm e os demais forms como fsMDIChild. Veja se é isso que você quer. Abs. Kiko

Olá V&A, Tenta usar a função IntToStr() para usar na SQL.... Mas posta ae como você esta fazendo. Ex. with ADOQuery1 do begin Close; SQL.Clear; SQL.Add('SELECT * FROM TABELA WHERE='+QuotedStr(IntToStr(3))); Open end; Abs. Kiko

Olá, Acho q é possível sim, pois você estará fechando e limpando a Query antes de executá-la! Abs. Kiko

Olá, Dê uma olhada na função HoursBetween; qualquer coisa posta ae. Abs. Kiko

Olá, Como assim campos? Desculpe, mas não entendi direito. Abs. Kiko

Olá, Tenta assim para cada SQL with Query do begin Close; SQL.Clear; SQL.Add('INSERT INTO TABELA(Campo1, Campo2)'); SQL.Add('VALUES(Valor1,Valor2)'); ExecSQL; end; Abs. Kiko

É infelizmente não podemos prever essas coisas! qualquer coisa estamos ai. Abs. Kiko

Olá OSJunior, Eu tenho um exemplo aki me passa seu email q eu te passo! Abs. Kiko

Olá V&A, Creio que um descompilador não seria muito interessante, pois sempre tem pessoas mal intensionadas e com certeza iria fazer mal uso dessa ferramenta. Eu particularmente ouvi e li bem pouco a respeito da Engenharia Reversa que seria uma tentativa recuperar as fonte de um determinado programa. E acho que não teve muito sucesso! Acho que você terá q refazer seu software! Fica ai uma lição, fazer sempre backup dos projetos. Aliás você poderia ter usado seu programa... Abs. Kiko

Ok. Tópico fechado! Abs. Kiko

Olá, Declare no Uses IniFiles; function LerIni :string; var ArqIni : tIniFile; Texto: string; begin ArqIni := tIniFile.Create('c:\Teste.Ini'); // Caminho do seu arquivo .ini Try result := ArqIni.ReadString('Config','BD',Texto); Finally ArqIni.Free; end; end; Para chamar procedure TForm1.Button1Click(Sender: TObject); begin Edit1.Text:=LerIni; end; Abs. Kiko

Olá, Tenta colocar o Open antes do IF... DataModule3.SDSLOGIN.Open; qualquer coisa posta ae. Abs. Kiko

Olá, Coloque um QRBand e mude a propriedade BandType para rbGroupFooter. No Group que contém a categoria seta a propriedade FooterBand para o QRBand que você acabou de adicionar (rbGroupFooter). Coloque um QrExpr no GroupFooter e seta a propriedade Expression por exemplo SUM(Query.Valor) onde ele somará tudo do campo valor. qualquer coisa posta ae. Abs. Kiko

Olá, Pelo que entendi você quer copiar parte de uma string? Copy(String,PosInicial,PosiFinal); qualquer coisa posta ae. Abs. Kiko

Olá, Tem um componente que chama BMSPack XP Dê uma procurada neste site em componentes. http://www.activedelphi.com.br Abs. Kiko

Olá, Dê uma procurada por Eclipse é free e se eu não me engano você consegue programar usando Plug-ins JAVA, C++, Delphi... Eclipse Abs. Kiko

Olá, gds32.dll é um dll que fica (no Windows XP) na pasta C:\Windows\system32 Verifica se está lá essa dll. Acho q se você reinstalar o Interbase Server/Client ele instá-la novamente a dll Abs. Kiko

Olá Franciel, Tenta isso: var k: integer; begin k:=StrToInt(T.Strings[0]); end; Obs: T é o do Tipo TStringList Abs. Kiko

Olá, Tenta assim SELECT Tab1.COD_CLIENTE, Tab1.TEL, Tab1.IDADE, Tab1.END, Tab2.DEPENDENTE FROM Tab1, Tab2 WHERE Tab1.COD_CLIENTE = Tab2.COD_CLIENTE qualquer coisa posta ae. Abs. Kiko