Recherche incrémentable dans un DBGRID

Version imprimable

21/03/2007, 21h39
pepito62

Recherche incrémentable dans un DBGRID

Bonjour tout le monde !

Voilà je suis sous Borland Delphi 6 et j'ai créé un DBGrid (via un datasource et un query).

J'ai également un champ où j'aimerais faire de la recherche incrémentable.

Je m'explique :
J'aimerais que le DBGrid se positionne à la ligne X si il trouve la correspondance avec mon champ.

Exemple
ligne 0, Analyse
ligne ..., ...
ligne 4, Compilation
ligne 5, Developpement
ligne 12, Programmation
ligne ..., ....

J'aimerais que le DBGRID se mette à la ligne 4 lorsque je tape la lettre C dans ma zone de texte.
ATTENTION : Je ne veux pas un filtre car il m'empecherait de voir les mots commençant par la lettre P (par exemple)

Comment puis-je faire ceci ? MERCI BCP

Bonsoir

Essayes comme cela:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Db, DBTables, Grids, DBGrids;

type
  TForm1 = class(TForm)
    DBGrid1: TDBGrid;
    DataSource1: TDataSource;
    Table1: TTable;
    Edit1: TEdit;
    procedure Edit1Change(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Edit1Change(Sender: TObject);
begin
  Table1.SetRangeStart;  // fonctionne sur les champs indexés
  Table1.FieldByName('Company').AsString := Edit1.Text;
  Table1.ApplyRange;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Table1.DatabaseName := 'DBDEMOS';
  Table1.TableName := 'customer.db';
  Table1.IndexFieldNames := 'Company';
  Table1.Active := True;
end;

end.

:salut:
essaye aussi ceci:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, DB, Grids, DBGrids, DBTables;
 
type
  TForm1 = class(TForm)
    Table1: TTable;
    DBGrid1: TDBGrid;
    DataSource1: TDataSource;
    Edit1: TEdit;
    procedure Edit1Change(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Edit1Change(Sender: TObject);
begin
  Table1.Locate('Company',Edit1.Text,[loPartialKey,loCaseInsensitive]);
end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  Table1.DatabaseName := 'DBDEMOS';
  Table1.TableName := 'customer.db';
  Table1.IndexFieldNames := 'Company';
  Table1.Active := True;
end;
 
end.

22/03/2007, 09h27
LadyWasky

c'est ta query que tu dois "piloter" pour te placer sur le bon enregistrement, pas la DBGrid. En te plaçont sur le bon enregistrement (avec locate/find, etc...), ta dbgrid suivra...
29/03/2007, 19h53
pepito62

Effectivement, c'est le query.

Et j'ai utiliser la fonction locate.

Merci pour vos réponses ;)