Sistem Basis Data:Tugas Delphi 1: Difference between revisions
No edit summary |
No edit summary |
||
| Line 56: | Line 56: | ||
end. | end. | ||
* Code BTSIMPAN | |||
procedure TMAHASISWA.BTSIMPANClick(Sender: TObject); | |||
begin | |||
TBMHS.SQL.Text := 'INSERT INTO MAHASISWA VALUES (' + QUOTEDSTR(EDNIM.Text) + ',' + QUOTEDSTR(EDNAMA.Text) + ',' + QUOTEDSTR(EDKELAS.Text) + ')'; | |||
TBMHS.ExecSQL; | |||
TBMHS.SQL.Text := 'SELECT * FROM MAHASISWA'; | |||
TBMHS.Open; | |||
KOSONG(); | |||
end; | |||
*Code BTCARI | *Code BTCARI | ||