Sistem Basis Data:Tugas Delphi 1: Difference between revisions

← Older edit Newer edit →

VisualWikitext

@@ Line 18: / Line 18: @@
       EDKELAS: TEdit;
       BTSIMPAN: TButton;
+     BTCARI: TButton;
+     BTEDIT: TButton;
+     BTHAPUS: TButton;
       procedure FormActivate(Sender: TObject);
       procedure BTSIMPANClick(Sender: TObject);
+     procedure BTCARIClick(Sender: TObject);
+     procedure BTEDITClick(Sender: TObject);
+     procedure BTHAPUSClick(Sender: TObject);
     private
       { Private declarations }
@@ Line 43: / Line 49: @@
   procedure TMAHASISWA.FormActivate(Sender: TObject);
   begin
-  KOSONG()
+ TBMHS.Close;
+ TBMHS.SQL.Text := 'DELETE FROM MAHASISWA WHERE NIM=' + QUOTEDSTR(EDNIM.Text);
+ TBMHS.ExecSQL;
+ TBMHS.SQL.Text := 'SELECT * FROM MAHASISWA';
+ TBMHS.Open;
   end;
@@ Line 53: / Line 63: @@
    TBMHS.Open;
    KOSONG();
+ end;
+ procedure TMAHASISWA.BTCARIClick(Sender: TObject);
+ begin
+  TBMHS.Close;
+  TBMHS.SQL.Text := 'SELECT * FROM MAHASISWA WHERE NIM=' + QUOTEDSTR(EDNIM.Text);
+  TBMHS.Open;
+  EDNAMA.Text := TBMHS['NAMA'];
+  EDKELAS.Text := TBMHS['KELAS'];
+  TBMHS.SQL.Text := 'SELECT * FROM MAHASISWA';
+  TBMHS.Open;
+ end;
+ 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;
+ 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';
+  TBMHS.Open;
   end;