Sistem Basis Data:Tugas Delphi 1: Difference between revisions

@@ Line 84: / Line 84: @@
    TBMHS.Close;
    TBMHS.SQL.Text := 'UPDATE MAHASISWA SET NAMA=' + QUOTEDSTR(EDNAMA.Text) +',KELAS=' + QUOTEDSTR(EDKELAS.Text) + ' WHERE NIM=' + QUOTEDSTR(EDNIM.Text);
+  TBMHS.ExecSQL;
+  TBMHS.SQL.Text := 'SELECT * FROM MAHASISWA';
+  TBMHS.Open;
+ end;
+ end.
+*Code BTHAPUS
+ procedure TMAHASISWA.BTHAPUSClick(Sender: TObject);
+ begin
+  TBMHS.Close;
+  TBMHS.SQL.Text := 'DELETE FROM MAHASISWA WHERE NIM=' + QUOTEDSTR(EDNIM.Text);
    TBMHS.ExecSQL;
    TBMHS.SQL.Text := 'SELECT * FROM MAHASISWA';