unit uFMain;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, DB, Grids, DBGrids, MemDS, DBAccess, MyAccess;
type
  TFMain = class(TForm)
    MyConnection1: TMyConnection;
    MyQuery1: TMyQuery;
    MyQuery1id_cust: TStringField;
    MyQuery1nm_cust: TStringField;
    MyQuery1alamat_cust: TStringField;
    DataSource1: TDataSource;
    DBGrid1: TDBGrid;
    MyQuery1no_urut: TIntegerField;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure MyQuery1CalcFields(DataSet: TDataSet);
  private
    { Private declarations }
    pvCount: integer;
  public
    { Public declarations }
  end;
var
  FMain: TFMain;
implementation
{$R *.dfm}
procedure TFMain.Button1Click(Sender: TObject);
begin
  with MyQuery1 do begin
    SQL.Clear;
    SQL.Append('SELECT '+
      'db_delphier.tb_customer.id_cust, '+
      'db_delphier.tb_customer.nm_cust, '+
      'db_delphier.tb_customer.alamat_cust '+
      'FROM '+
      'db_delphier.tb_customer '
    );
    Open;
  end;
end;
procedure TFMain.FormCreate(Sender: TObject);
begin
  pvCount := 0;
end;
procedure TFMain.MyQuery1CalcFields(DataSet: TDataSet);
begin
  pvCount := pvCount + 1;
  MyQuery1['no_urut'] := pvCount;
end;
end.