Pirambu!

Cara a melhor maneira é a que o Micheus mostrou assim: no events do edit você coloca este codigo e na USES declara "DB". Table1.Locate('nome_do_campo', edit1.text, [loCaseInsensitive, loPartialKey]); ou se for usar uma query fica assim: with query do begin close; sql.clear; sql.add('select * from tabela where nomedocampo like :A'); parambyname('A').values := '%' + edit1.text + '%'; open; end; tenta isso e depois informa de se deu certo.

Tenta isso. datamodule1.ADOQryHistorico.first; while not DataModule1.ADOQryHistorico.oef do begin if datamodule1.ADOqryHistorico.Fieldbyname('codigo_Cli_mov').value = EditCodCli.text then begin datamodule1.tabela1.locate(Codigo_Cli_mov,editCodCli.text,[]); datamodule1.tabela1.delete; datamodule1.tabela1.next; end; end; ou tenta isso,Query1.Close; Query1.Sql.Clear; Query1.Sql.Add('delete * from tabela where Codigo_Cli_mov = EditCodCli.text'); Query1.Open; Verifica se o "Codigo_cli_mov" estar como "Integer" se Tiver no criterio fica assim Strtoint(EditCodCli.text)

Não funcionou, estar grifando 0:label1.Caption := 'Tabela 01; se eu usar case pagecontrol1.tabindex of estar grifando da mesma forma, é preciso declarar alguma "Uses"? Encontrei o Erro simplismente depois de Tabela 01; na fechei a string deixando aberta. case v of 0:label1.Caption:= 'Tabela 01'; 1:label1.Caption := 'Tabela 02'; 2:label1.Caption := 'Tabela 03'; end; end; Valeu pela ajuda. :lol:

Estou precisando aplicar o comando "Case " da seguinte forma, ao selecionar a uma pagina do Pagecontrol alimentaria uma variavel. procedure TForm1.PageControl1Change(Sender: TObject); var v:integer; begin v:= pagecontrol1.TabIndex; case v of 0:label1.Caption:= 'Tabela 01; 1:label1.Caption := 'Tabela 02; 2:label1.Caption := 'Tabela 03; end; end; mas estar dando erro, na verdade não compila, alguém sabe onde estou errando?

Micheus, talvez ele esteja fazendo a consulta no campo do Dbmemo, isso pode ter erro na hora de fazer uma consulta??

é, eu tentei desta forma e deu certo. valeu Micheus.

proced...bitbtn1click.. var x: string; begin x:=''; if inputquery('Procurar','NomeCampo',x) then if not tabela1.Locate('NomeCampo',x,[])then Showmessage('Campo pesquisado não Encotrada'); end; Pronto!

Cara dá uma olhada neste Post

Cara, Tenta isso: Cria um string dentro da procedure, e depois usa o código abaixo proced...bitbtn1click.. var x: string; begin x:=''; if inputquery('Procurar','NomeCampo',x) then if not tabela1.Locate('NomeCampo',x,[])then Showmessage('Campo pesquisado não Encotrada'); end; ve se é isso pode ajudar?

Micheus, eu tentei novamente mas não deu certo, ao digitar o cursor estar indo da direita para a esquerda assim a palavra "Carlos" estar aparecendo assim "Solrac". Talves seja a forma que eu esteja usando a função.

function ValidateString(Source :string; StrList: array of string) :Boolean; var Idx :Integer; begin Result := False; Idx := 0; // Incializa índice para a StrList // Enquanto não processar todas a palavras na lista e Source não fizer parte dela while (Idx < Length(StrList)) and not Result do begin Result := Source = StrList[Idx]; Inc(Idx); end; end; function FirstCharUpper(Source :String) :String; var Idx :Integer; StrWord :String; begin Result := ''; if Source = '' then Exit; Source := Trim(Source); // retira qualquer espaço extra repeat Idx := Pos(' ', Source); // Identifica o término da primeira palavra if Idx > 0 then // Se há espaço, há uma nova palavra após a encontrada begin StrWord := LowerCase(Trim(Copy(Source, 1, Idx-1))); // Isola primeira palavra de Source convertendo-a para minuscula if (Result = '') or // Se é primeira palavra ou não é uma das filtradas, converte primeira letra not ValidateString(StrWord, ['do', 'da', 'de', 'dos', 'e', 'das', 'na', 'no', 'nas', 'nos']) then StrWord := UpCase(StrWord[1]) +Copy(StrWord, 2, Length(StrWord)); Source := Trim(Copy(Source, Idx +1, Length(Source))); // Retira primeira palavra de Source Result := Result +StrWord +' '; // Concatena palavras processadas, formando o resultado final end else // última palavra em Source a ser processada Result := Result +UpCase(Source[1]) +LowerCase(Copy(Source, 2, Length(Source))); until Idx = 0; end; Micheus, estou usando as funções acima como você indicou, Eu tentei assim: TForm1.Edit1Change(Sender: TObject); begin edit1.text := FirstCharUpper(edit1.text); end; mas estar dando erro, Verifica onde estou errando.

VMS, você pode cria uma pasta no "c:/tabelas" dentro ficará todas a tabelas do seu programa, e no campo "DataBaseName" da propriedade da tabela, você indica o local das tabela "c:/tabelas". Tenta isso!

Estou precisando Converter as primeiras letras de um edit para maiúsculo "raimundo soares lima" para "Raimundo Soares Lima", eu tentei este código mas converte apenas a primeira letra da primeira palavra assim: procedure TForm1.Edit1Change(Sender: TObject); var OldStart : Integer; begin With Edit1 do if Text <> '' then begin OnChange := NIL; OldStart := SelStart; Text := UpperCase(Copy(Text,1,1))+LowerCase(Copy(Text,2,Length(Text))); SelStart := OldStart; OnChange := Edit1Change; end; end; no caso eu precisaria identificar o espaço para que possa repetir o mando Text := UpperCase(Copy(Text,1,1))+LowerCase(Copy(Text,2,Length(Text))); alguém sabe como eu possa resolver isso?

Show de bola, era isso mesmo, valeu pela força. abraço.

Alguém sabe como eu posso realizar uma consulta de uma determinada data e entre dois periodo usando a mesma query? eu já tentei assim with query1 do begin close; sql.clear; sql.add('select * from tabela1 where data1 between :A and :B'); parambyname('A')asdate := DateTimePicker1.date; parambyname('B')asdate := DateTimePicker2.date; open; end; o problema e se eu consultar o mesmo dia dá erro. eu também tentei assim, mas não aparece a data que eu consulto: with query1 do begin close; sql.clear; sql.add('select * from tabela1 where data1 >= :A and data1 <:B'); parambyname('A')asdate := DateTimePicker1.date; parambyname('B')asdate := DateTimePicker2.date; open; end;

Funcionou direitinho, valeu Micheus.

Micheus valeu , deu certo, abraço.

Simão, tenta isso procedure TFrm_Tela_Inicial.Timer1Timer(Sender: TObject); begin Frm_Tela_Inicial.Show; // Inicia a tela de abetura Frm_Tela_Inicial.Release; sleep(2000); // O tempo que a tela fica na tela do monitor Frm_Tela_Inicial.Refresh; // Tira a tela inicial da memoria liberando a mesma while probar.position = 100 do begin probar.position := probar.position + 2; end; If ProBar.Position = 100 THEN timer1.Enabled:= False; Frm_Tela_Inicial:= nil; F_sistema.ShowModal; //Chama a tela do sistema Application.Initialize; // Inicia o sistema end; onde estou não pra testar, ai e dar o retorno.

Não entendir ou será LookupDataSet, você quer dizer que a table esteja aberta.? Como eu uso a query para poder concatenar?

Estou usando no relatório no caso um QrDbText do quickrep.

Estou com um problema, preciso formatar um campo de query do relatório. o código SQL : with query1 do begin close; sql.Clear; sql.Add('select entradanotaFiscalID, datavencimento, datapag,conpagID,formapagID,ValorData, condpagamento,formapagamento'); sql.Add('from (entradapagamento left join condpag'); sql.add('on entradapagamento.conpagID = condPag.condpagID)'); sql.Add('left join formapag on entradapagamento.formapagID = formapag.formapagID'); sql.Add('where datavencimento between :A and :B and datapag is null'); parambyname('A').Value := FCP_ContaAPagar.DateTimePicker1.DateTime; parambyname('B').Value := FCP_ContaAPagar.DateTimePicker2.Datetime; open; end; preciso formatar o campo "ValorData" para aparecer em forma de moeda "R$ 00,0"

Micheus, seria assim o Dbgrid1 estar com a datasouce da tabela "Saidaproduto" com o campo pecaID relacionado com tabela de peças "CadPecas" com PecaID, DbGrid escolho a peça usando a o Codigo, mas queria clicar no Lookup apareça as duas colunas de "codigo" + "descricao". o Banco de Dados Paradox. a tabela de Lançamento de saida "SaidaProduto" tenho: SaidaID, PecaID, Data e Quantidade. a tabela cadastro de peças "CadPecas" tenho tres campo: PecaID, Codigo e Descricao. Espero ter facilitado a ajuda. :unsure:

Em outro post, foi resolvido meu problema de como colocar duas colunas no DblookupCombobox, mas como posso fazer para colocar no DblookupCombobox que estar dentro do DbGrid? :unsure:

vms, quando você adicionar um edit, vá na propriedade e procure por "text" lá terá escrito "Edit" você deve apenas apagar. valeu.

Micheus, deu certo. :rolleyes: Obrigado.