Sistem Basis Data:Tugas Delphi 1: Difference between revisions

@@ Line 78: / Line 78: @@
    TBMHS.Open;
   end;
+*Code BTEDIT
+ procedure TMAHASISWA.BTEDITClick(Sender: TObject);
+ begin
+  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.