Ir para conteúdo
Fórum Script Brasil
  • 0

Duvida: Funções basicas


Igor Leonne

Pergunta

Isso e be basico, mas não foi ensinado ainda na minha escola, e tem sido aki que tenho adquirido bastante conhecimento.

Gostaria de saber como tirar o case sensitive, ou seja , quero que a pessoa escreva, por exemplo em uma consulta, e que não seja considerado se esta maiuscula ou minuscula, quero que ela encotre da mesma forma.

E a outra duvida tabem e como fazer com que a barra de rolagem dos programas deslizem com o scroll do mouse, geralmente eu tenho que ir na barra de rolagem e clicar nela pra ela descer, quero usar apenas o o mouse.

poderiam me ajudar?

agradeÇo uma resposta

Link para o comentário
Compartilhar em outros sites

1 resposta a esta questão

Posts Recomendados

  • 0

Gostaria de saber como tirar o case sensitive, ou seja , quero que a pessoa escreva, por exemplo em uma consulta, e que não seja considerado se esta maiuscula ou minuscula, quero que ela encotre da mesma forma.

uma das maneiras

SQLDataSet.Close;
SQLDataSet.CommandText := ' Select * From Tabela Where ' +
                                                ' Upper(Campo1) like :Valor';

SQLDataSet.ParamByName('Valor').AsString := '%'  + Edit1.Text + '%';
SQLDataSet.Open;

Utilizando IBX

IBQuery.Close;
IBQuery.Sql.Clear;
IBQuery.Sql.Add('Select * From Tabela Where');
IBQuery.Sql.Add('Upper(Campo1) like :Valor');
IBQuery.ParamByName('Valor').AsString := '%' + Edit1.Text + '%';
IBQuery.Open;
E a outra duvida tabem e como fazer com que a barra de rolagem dos programas deslizem com o scroll do mouse, geralmente eu tenho que ir na barra de rolagem e clicar nela pra ela descer, quero usar apenas o o mouse.
Use um componente ApplicationEvents
// para mudar com ENTER ao invés do TAB

procedure TFPesquisa.MudarComEnter(var Msg: TMsg; var Handled: Boolean);
begin
   if (ActiveControl is TDBGrid) then
      begin
          with TDBGrid(ActiveControl) do
            Application.OnMessage := ApplicationEvents1.OnMessage;
      end
   else
      If not ((Screen.ActiveControl is TCustomMemo) or
        (Screen.ActiveControl is TCustomGrid) or
        (Screen.ActiveForm.ClassName = 'TMessageForm')) then
         begin
           If Msg.message = WM_KEYDOWN then
              begin
                 Case Msg.wParam of
                    VK_RETURN,VK_DOWN : Screen.ActiveForm.Perform(WM_NextDlgCtl,0,0);   //,VK_TAB
                    VK_UP : Screen.ActiveForm.Perform(WM_NextDlgCtl,1,0);
                 end;
              end;
         end;
end;


// e no evento OnMessage do ApplicationEvents1 coloque este código


procedure TFPesquisa.ApplicationEvents1Message(var Msg: tagMSG;
  var Handled: Boolean);
var i: SmallInt;
begin
if (ActiveControl is TDBGrid) then
   with TDBGrid(ActiveControl) do
   begin
   if Msg.message = WM_MOUSEWHEEL then
      begin
         Msg.message := WM_KEYDOWN;
         Msg.lParam := 0;
         i := HiWord(Msg.wParam);
         if i > 0 then
            Msg.wParam := VK_UP
         else
            Msg.wParam := VK_DOWN;
         Handled := False;
      end;
    end;

end;

procedure TFPesquisa.FormActivate(Sender: TObject);
begin
   Application.OnMessage := MudarComEnter;
end;

OBS: Desta maneira voce pode rolar com o scroll do mouse todos os registros de um dbgrid

abraço

Link para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152,3k
    • Posts
      652,3k
×
×
  • Criar Novo...