[[resolvido] Pesquisa.]

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.

[Deletar Varios Registro Do Bd Usando Instrução Sql ?]

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)

[[resolvido] Usando Comando "case X Of"]

Que tal tentar assim:

CODE

procedure TForm1.PageControl1Change(Sender: TObject);

case PageControl1.ActivePageIndex of

0:label1.Caption := 'Tabela 01;

1:label1.Caption := 'Tabela 02;

2:label1.Caption := 'Tabela 03;

end;

end;

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"?

Estou precisando aplicar o comando "Case " da seguinte forma, ao selecionar a uma pagina do Pagecontrol alimentaria uma variavel. CODE 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?

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:

[[resolvido] Usando Comando "case X Of"]

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?

[Fazer Busca Dentro Da Tabela]

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

[[resolvido] Converter Para Maiúcula]

Quando precisar fazer algo assim, desative o evento antes de mudar o conteúdo do texto. Mas sempre que possível, dê preferência a fazer este tipo de coisa no evento OnExit.

é, eu tentei desta forma e deu certo.

valeu Micheus.

[[resolvido] Consulta Na Tabela]

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!

[[resolvido] Consulta Na Tabela]

Cara dá uma olhada neste Post

[Fazer Busca Dentro Da Tabela]

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?

[[resolvido] Converter Para Maiúcula]

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.

[[resolvido] Converter Para Maiúcula]

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.

[[resolvido] Como Abrir Programa Sem Bde]

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!

[[resolvido] Converter Para Maiúcula]

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?

[[resolvido] Consulta De Data]

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

abraço.

[[resolvido] Consulta De Data]

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;

[[resolvido] Outro Problema Com Ldblookupcombobox]

Funcionou direitinho, valeu Micheus.

[(resolvido) Formatar Campo De Uma Query]

Micheus valeu , deu certo,

abraço.

[[resolvido] Carregamento Do Progressbar?]

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.

[[resolvido] Outro Problema Com Ldblookupcombobox]

- o dataset lookup deverá estar aberto inicialmente.

Não entendir ou será LookupDataSet, você quer dizer que a table esteja aberta.?

Se você quer mostrar os dois campos concatenados

Como eu uso a query para poder concatenar?

[(resolvido) Formatar Campo De Uma Query]

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

[(resolvido) Formatar Campo De Uma Query]

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"

[[resolvido] Outro Problema Com Ldblookupcombobox]

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:

[[resolvido] Outro Problema Com Ldblookupcombobox]

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:

[[resolvido] Ocultar Texto De Edit]

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

valeu.

[[resolvido] Dúvida Sobre Dblookupcombobox1]

Micheus, deu certo. :rolleyes:

Obrigado.