Cari data mahasiswa

unit Unit1;

interface

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

type
Tformcarimahasiswa = class(TForm)
TableMahasiswa: TTable;
Datamahasiswa: TDataSource;
DBGridmahasiswa: TDBGrid;
Label1: TLabel;
EditNoMhs: TEdit;
Buttoncari: TButton;
Buttonkeluar: TButton;
Label2: TLabel;
procedure ButtoncariClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
formcarimahasiswa: Tformcarimahasiswa;

implementation

{$R *.dfm}

procedure Tformcarimahasiswa.ButtoncariClick(Sender: TObject);
var Ada:boolean
begin
datamhs.SetKey;
datamhs.indexname:='Nomhs_idx';
Ada:=datamhs.findkey([EditNoMhs.Text]);
if Ada then
begin
datamhs.goto nearest;
DBGridmahasiswa.SetFocus;
end
else
begin
MessageDlg('Data Yang Dicari euweuh....',mtConfirmation,[mbOK],0);
end;

end.