Sistem Basis Data:Tugas Delphi 1: Difference between revisions
Created page with "*Kode program unit UMAHASISWA; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Grids, DBGrids, DB, ADODB; type TMAHASISWA = class(TForm) TBMHS: TADOQuery; DSMHS: TDataSource; DBGMHS: TDBGrid; EDNIM: TEdit; EDNAMA: TEdit; EDKELAS: TEdit; BTSIMPAN: TButton; procedure FormActivate(Sender: TObject); procedure BTSIMPANClick(Sender: TObject); private..." |
No edit summary |
||
| Line 56: | Line 56: | ||
end. | end. | ||
*Code BTCARI | |||
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; | |||