Koding : Presskey,Simpan,Hapus,Clear

 procedure TForm1.Button1Click(Sender: TObject);

////////////////CEK APAKAH DATA ADA?

/////////////// KODING SIMPAN DATA

var s:STRING;

begin

  MyQuery1.Close;

  MyQuery1.SQL.Clear ;

  MyQuery1.SQL.Add ('select * from datasiswa where no='+QuotedStr(Edit1.Text));

  MyQuery1.open ;

  // jika data ada maka update datanya

  if MyQuery1.Recordcount > 0 then

  begin

  s:='update datasiswa set nama=:pnama,alamat=:palamat=:where no=:pno';

  end

  else // jika tidak ada maka ditambahkan data

  begin

   s:='insert into datasiswa(no,nama,alamat)'+

   ' values(:pno,:pnama,:palamat)';

   end;

  // s:='insert into datasiswa(no,nama,alamat)'+

  // values(:no,:nama,:alamat);

   MyQuery1.Close;

   MyQuery1.SQL.Clear;

   MyQuery1.SQL.Add(s);

   MyQuery1.Params.ParamValues['pno']:=Edit1.Text;

   MyQuery1.Params.ParamValues['pnama']:=edit2.Text;

   MyQuery1.Params.ParamValues['palamat']:=edit3.Text;

   MyQuery1.Prepare;

   MyQuery1.Execute;

   ShowMessage('data telah tersimpan');

      Edit1.Clear;

      edit2.Clear;

      edit3.Clear;

   MyQuery1.close;

   MyQuery1.SQL.Clear;

   MyQuery1.sql.Add('select * from datasiswa');

   MyQuery1.Open;

end;

///////////////KODING HAPUS DATA

procedure TForm1.Button2Click(Sender: TObject);

begin

if Edit1.Text<>'' then

    begin

      MyQuery1.Close;

      MyQuery1.SQL.Clear;

      MyQuery1.SQL.Add('delete from datasiswa where no='+QuotedStr(Edit1.Text));

      MyQuery1.Execute;

      MyQuery1.Close;

      MyQuery1.SQL.Clear;

      MyQuery1.SQL.Add('select * from datasiswa');

      MyQuery1.open;

      Edit1.Clear;

      edit2.Clear;

      edit3.Clear;

      ShowMessage('data telah terhapus');

    end;

end;

/////////////klik DBGrid pilih Event

procedure TForm1.DBGrid1CellClick(Column: TColumn);

begin

Edit1.Text:=MyQuery1.FieldValues['no'];

  Edit2.Text:=MyQuery1.FieldValues['nama'];

  Edit3.Text:=MyQuery1.FieldValues['alamat'];

  

end;

//////////KODING PINDAH KURSOR DENGAN ENTER

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);

begin

if key=#13 then

begin

Edit2.SetFocus;

end;

end;

procedure TForm1.Edit2KeyPress(Sender: TObject; var Key: Char);

begin

if key=#13 then

begin

Edit3.SetFocus;

end;

end;

procedure TForm1.Edit3KeyPress(Sender: TObject; var Key: Char);

begin

if key=#13 then

begin

BUTTON1.SetFocus;

end;

end;

/////////////KODING TOMBOL CLEAR

procedure TForm1.Button3Click(Sender: TObject);

begin

EDIT1.CLEAR;

EDIT2.CLEAR;

EDIT3.CLEAR;

end;

end.