Download Modul Pemrograman Visual 1 2011 PDF

TitleModul Pemrograman Visual 1 2011
File Size4.6 MB
Total Pages255
Document Text Contents
Page 128

Pemrograman Visual 1 – Ronny Faslah - 2010 128
06/09/2011 21:51:34




34. Tambahkan variable KoleksiID dengan type Integer pada blok Public di

unit UFKoleksi, lihat gambar berikut :




35. Pilih FKoleksi pada Object TreeView, buat event onCreate, OnShow dan

OnClose, ketikkan perintah seperti table di bawah ini :

Komponen Event Code

FKoleksi onCreate procedure TFKoleksi.FormCreate(Sender: TObject);
begin
KoleksiID := 0;
PageControl1.ActivePageIndex := 0;
end;

onShow procedure TFKoleksi.FormShow(Sender: TObject);
begin
Koleksi.Open;
Karyawan.Open;
Pemasok.Open;
qTransaksi.Open;
If KoleksiID > 0 then Koleksi.Locate('KoleksiID', KoleksiID, [])
else Koleksi.Insert;
end;

Similer Documents