var
Form1: TForm1;
implementation
{$R *.dfm}
Button cari
procedure TForm1.btncariClick(Sender: TObject);
begin
with qrycari do
begin
close;
sql.Clear;
SQL.Add('select *
from dosen where nid = '+quotedstr(edtcari.text));
Open;
if IsEmpty then
begin
ShowMessage('data
tidak ada');
Exit;
end;
end;
end;
Tidak ada komentar:
Posting Komentar