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