How to select a specific record from databasegrid programmaticly??

unit Unit_Q_20998677;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, DBTables, Grids, DBGrids, Buttons, StdCtrls, ExtCtrls,
  DBCtrls;

type
  TForm1 = class(TForm)
    qryNAMES: TQuery;
    dsqNAMES: TDataSource;
    dbgNAMES: TDBGrid;
    spbSelectAll: TSpeedButton;
    spbSelectCurrent: TSpeedButton;
    spbUnSelectAll: TSpeedButton;
    spbUnSelectCurrent: TSpeedButton;
    DBNavigator1: TDBNavigator;
    procedure FormCreate(Sender: TObject);
    procedure spbSelectAllClick(Sender: TObject);
    procedure spbSelectCurrentClick(Sender: TObject);
    procedure spbUnSelectAllClick(Sender: TObject);
    procedure spbUnSelectCurrentClick(Sender: TObject);
  private{ Private declarations }
    SID:      string;
  public { Public declarations }
    procedure SelectAllNames(Value: Boolean);
    procedure GoToCell(Col,Row: Integer);
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  qryNAMES.Active := True;
  SID := dbgNAMES.DataSource.DataSet.FieldByName('ID').AsString;
end;

procedure TForm1.SelectAllNames(Value: Boolean);
var
  C:      Integer;
  I:      Integer;
begin
  with dbgNAMES.DataSource.DataSet do
  try
    dbgNAMES.Visible := False;
    begin
      DisableControls;
      First;
      while not EOF do
      begin
        dbgNAMES.SelectedRows.CurrentRowSelected := Value;
        Next;
      end;
    end;
  finally
    EnableControls;
    Val(SID, I, C);
    if (I>0) and (C=0) then
      Locate('ID', SID, []);
    dbgNAMES.Visible := True;
  end;
end;

procedure TForm1.spbSelectAllClick(Sender: TObject);
begin
  SID := dbgNAMES.DataSource.DataSet.FieldByName('ID').AsString;
  SelectAllNames(True);
end;

procedure TForm1.spbUnSelectAllClick(Sender: TObject);
begin
  SID := dbgNAMES.DataSource.DataSet.FieldByName('ID').AsString;
  SelectAllNames(False);
end;

procedure TForm1.GoToCell(Col,Row: Integer);
var
  S:      string;
begin
  with dbgNAMES.DataSource.DataSet do
  try
    GotoBookmark(Pointer(dbgNAMES.SelectedRows.Items[Row]));
    S := '['+IntToStr(Col)+','+IntToStr(Row)+'] = ';
  except
  end;
end;

procedure TForm1.spbSelectCurrentClick(Sender: TObject);
begin
  with dbgNAMES.DataSource.DataSet do
    dbgNAMES.SelectedRows.CurrentRowSelected := True;
end;

procedure TForm1.spbUnSelectCurrentClick(Sender: TObject);
begin
  with dbgNAMES.DataSource.DataSet do
    dbgNAMES.SelectedRows.CurrentRowSelected := False;
end;

end.

//......................

object Form1: TForm1
  Left = 212
  Top = 114
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsSingle
  Caption = 'Form1'
  ClientHeight = 414
  ClientWidth = 408
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object spbSelectAll: TSpeedButton
    Left = 256
    Top = 16
    Width = 96
    Height = 22
    Caption = 'Select All'
    OnClick = spbSelectAllClick
  end
  object spbSelectCurrent: TSpeedButton
    Left = 256
    Top = 128
    Width = 96
    Height = 22
    Caption = 'Select Current'
    OnClick = spbSelectCurrentClick
  end
  object spbUnSelectAll: TSpeedButton
    Left = 256
    Top = 48
    Width = 96
    Height = 22
    Caption = 'UnSelect All'
    OnClick = spbUnSelectAllClick
  end
  object spbUnSelectCurrent: TSpeedButton
    Left = 256
    Top = 160
    Width = 96
    Height = 22
    Caption = 'UnSelect Current'
    OnClick = spbUnSelectCurrentClick
  end
  object dbgNAMES: TDBGrid
    Left = 22
    Top = 48
    Width = 224
    Height = 352
    DataSource = dsqNAMES
    Options = [dgEditing, dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit, dgMultiSelect]
    TabOrder = 0
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
  end
  object DBNavigator1: TDBNavigator
    Left = 36
    Top = 16
    Width = 160
    Height = 22
    DataSource = dsqNAMES
    VisibleButtons = [nbFirst, nbPrior, nbNext, nbLast, nbRefresh]
    TabOrder = 1
  end
  object qryNAMES: TQuery
    SQL.Strings = (
      'SELECT * FROM SINGERS')
    Left = 26
    Top = 84
  end
  object dsqNAMES: TDataSource
    DataSet = qryNAMES
    Left = 54
    Top = 84
  end
end

   Use the already loaded DataSet:

   Let's suppose you are looking for record with ID column = 1122 or starting with this number...
   If you are searching by string field, you can use [loCaseInsensitive] as the last parameter.

   DBGrid.DataSource.DataSet.Locate('ID', 1122, [loPartialKey]);

hello
 esoftbg i want to select record number 5 from delphi code
how?

  check mokule's answer...

  there is example about this...

//  If record number 5 meant that you search for field ID=5:

begin
  if Locate.dbgNAMES.DataSource.DataSet('ID', 5, []) then
    with dbgNAMES.DataSource.DataSet do
      dbgNAMES.SelectedRows.CurrentRowSelected := True;
end;

//  If record number 5 meant that you just need to locate at the 5-th record:
var
  I:       Integer;
begin
    with dbgNAMES.DataSource.DataSet do
    begin
      First;
      I := 1;
      while (I<5) do
      begin
        Next;
        Inc(I);
      end;
      dbgNAMES.SelectedRows.CurrentRowSelected := True;
    end;
end;

excuse my mistake, I wrote it just from head:
>  if Locate.dbgNAMES.DataSource.DataSet('ID', 5, []) then
to be
  if dbgNAMES.DataSource.DataSet.Locate('ID', 5, []) then

hi mis82, please download the example again (I implemented above 2 methods).