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