Kikonanet

Olá, Tente assim: FrmRelEntradas.ADOQryRelEntradas.SQL.Add('Where Entradas.DataEntrada between "'+DataInicial+'" and "'+DataFinal+'" '); Obs: DataInicial e DataFinal são variáveis do tipo string Abs. Kiko

O q você quer fazer? Se você não quer usar o mesmo DataSource, o q você pode fazer é ao clicar na linha, você fazer uma busca de acordo com a linha e mostrar no outro DBGrid... Abs. Kiko

Olá, É só você seta o mesmo datasource (DataSet) para os dois DBGrids! Abs. Kiko

Olá V&A, Não sei se é isso q você quer, mas você pode ler o tamanho da string e colocar em runtime o tamanho (width) de acordo com o tamanho da palavra! var Tamanho: integer; begin Tamanho:=length(texto); DBGrid1.Columns[0].Width:=Tamanho; end; Abs. Kiko

Olá, Dê uma olhada neste exmplo: Coloca no Evento OnTimer do Timer... var Tempo: integer; begin Tempo:=(Timer1.Interval div 1000) + StrToInt(Label1.Caption); // Passa par segundos e soma o valor no Label Label1.Caption:= IntToStr(Tempo); end; Obs: Coloque no Caption do Label algum número, senão vai dar erro! Abs. Kiko

Olá, Como você está inserindo? Use o Append para um novo registro e Post para salvar... Abs. Kiko

Olá Francisco, Tente isso logo depois da inicialização do seu sistema. with Query1 do begin Close; SQL.Clear; SQL.Add('SELECT * FROM Tabela1'); SQL.Add('WHERE Data <= Now()'); Open; end; qualquer coisa posta ae. Abs. Kiko

Olá Felipe, Use essa função que traz a Data e a hora do arquivo function FileDate(Arquivo: String): String; {Retorna a data e a hora de um arquivo} var FHandle: integer; begin if not fileexists(Arquivo) then begin Result := 'Nome de Arquivo Inválido'; end else begin FHandle := FileOpen(Arquivo, 0); try Result := DateTimeToStr(FileDateToDateTime(FileGetDate(FHandle))); finally FileClose(FHandle); end; end; end; você chama assim: FileDate('c:\arq.txt'); Obs: Não sei você fazendo um Trial desse jeito será bom, pois imagine q você fez o arquivo hj, só que você vai instalar no seu cliente no mês q vem... O arquivo já terá um mês de criação... Acho q seria mais viável você gravar numa chave do registro a data da instalação do seu programa e contar 30 dias a partir dessa data! Abs. Kiko

Relaxe! Estamos ai para ajudar no possível... Fechando... Abs. Kiko

Olá D31v1d1, Existe uma pequena diferença entre os códigos!! Dê uma olhadinha neles! qualquer coisa posta ae! Abs. Kiko

Olá, Tente assim Somente números: Insira o seguinte código no OnKeyPress do seu Edit if not ( Key in ['0'..'9',#13,#8] ) then Key := #0; Somente letras: Insira o seguinte código no OnKeyPress do seu Edit if ( Key in ['0'..'9',#13,#8] ) then Key := #0; qualquer coisa posta ae. Abs. Kiko

Olá, Acho q você não sente diferença pois os caracteres e branco você não visualiza! ex: imagine uma palavra plikts. Considere ' _ ' (underline como espaço em branco, para você entender)... __plikts (2 espaços em branco) - Quando você chama a sua função para inverter a palavra ela escreveria assim: stkilp__ , visualmente você não está vendo os caracteres em branco, mas eles estão lá!!! Faça um teste e veja! Abs. Kiko

Olá, Pelo q entendi você esta comparando a kilometragem total rodada do carro com a kilometragem ideal para troca de óleo. ex: o carro A rodou 15000 km no dia 15... no dia 20 ele esta com 25000...passou ai 10000 km... Acho q você deve comparar esses 10000 km, com a kilometragem da troca de óleo! Ou seja , sempre guardar o último km de troca! É isso?? Abs. Kiko

Olá, Tente assim: FRMQreport1.IBQuery1.Close; FRMQreport1.IBQuery1.SQL.Clear; FRMQreport1.IBQuery1.SQL.Add('Select * From MêsAno'); FRMQreport1.IBQuery1.Open; FRMQreport1.QRPReport1.preview; Abs. Kiko

Olá Eder, Como você está fazendo? você troca o óleo a cada qtos quilometros rodados? Pelo q eu entendi, você conta a quilometragem do carro e compara com a quilometragem de troca de óleo! Acho q você teria q fazer um esquema assim: Carro - Quilometragem rodada(Km) - Troca de Óleo A 2000 2500 Neste exemplo você saberia dizer q faltam 500 km para a troca do óleo! Espero q tenha sido claro.. Abs. Kiko

Olá, Não me leve a mal, mas se eu fosse você eu criaria uma nova conta de e-mail... É mais fácil. Abs. Kiko

Olá, Coloque esse exemplo no evento Onclick de um botão... var k:integer; begin // escolhe um nº aleatório de 1 a 15 Randomize; k:=random(15) +1; ShowMessage(IntToStr(k)); end; qualquer coisa posta ae. Abs. Kiko

Sillier, Tenta ao invés de usar Where NOME =... usar a Chave primária da tabela MSN: kikonaweb@hotmail.com Abs. Kiko

Olá, você alterou tmb o UPDATE?? você está inserindo um número direto?? with Query do begin Close; SQL.Clear; SQL.Add('UPDATE Tabela SET Campo1 = "'+Nome.text+'", Campo2="'+Endereco.text+'"'); SQL.Add('WHERE Codigo = '+Codigo.text+''); ExecSQL; end; Posta seu código ae... Abs. Kiko

Acho que aki fica melhor! Abs. Kiko

Olá OSJunior, Td beleza!! Eu quero fazer um firewall aki na firma por Hardware (ou talvez por software) , e queria algumas dicas! Valeu! Abs. Kiko

Ok, mas eu não sabia qual era a versão do seu Delphi!!! Mas será que não é do mesmo jeito!!?? Abs. Kiko

Olá, Dê uma olhada neste link, acho q pode te ajudar! http://www.activedelphi.com.br/modules.php...=article&sid=89 Abs. Kiko

Ae pessoal, Alguém poderia dar algumas dicas de Hardware que possua Firewall (Router com firewall) Abs. Kiko

você quer q apareça quando você clicar com o botão direito do mouse em cima do botão iniciar? Abs. Kiko