Duvida: Funções basicas

[Igor Leonne]

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

[Jhonas]

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