PERTEMUAN IX

MATAKULIAH : PEMROGRAMAN OBJEK ORIENTED (DELPHI)
MATERI : Navigator, Tampil Data & Aplikasi Database
KELAS : D3/TK/2

Membuat Navigator Record

Perhatikan desain berikut :














Memindahkan penunjuk record, selain dengan menggunakan dbnavigator juga dapat dibuat sendiri dengan button dan di tambah kode program.

Metode memindahkan penunjuk record dengan program :
Method Aksi
Next Pindah ke record berikutnya dari dataset
Prior Pindah ke record sebelumnya dari dataset
First Pindah ke record pertama dari dataset
Last Pindah ke record terakhir dari dataset

Dari desain di atas, dari masing-masing button di buat program berikut :
Program :
procedure TForm5.SebelumClick(Sender: TObject);
begin
tblmhs.Prior;
end;

procedure TForm5.BerikutClick(Sender: TObject);
begin
tblmhs.Next;
end;





procedure TForm5.AwalClick(Sender: TObject);
begin
tblmhs.First;
end;

procedure TForm5.AkhirClick(Sender: TObject);
begin
tblmhs.Last;
end;

Menampilkan data dan Aplikasi Database (Input, Edit, Delete Data)

Buatlah desain seperti berikut :



Lakukan seting terhadap setiap properties sehingga desain seperti di atas.
Ganti name setiap objek sesuai fungsinya!
Untuk latihan ini gunakan database yang sudah dibuat (jika belum ada/hilang buat terlebih dahulu!)

a. Program ketika form di panggil :
//akan ditampilkan data yang ada dalam tabel pada objek isian di atas
procedure TForm5.FormCreate(Sender: TObject);
begin
//memindahkan pointer record ke record awal
tblmhs.Prior;

//menampilkan data pada tabel ke objek ednpm dan ednama
............. :=tblmhs.FieldValues['npm'];
ednama.Text:=tblmhs.FieldValues['............'];

//Melakukan cek apakah jenkel yang ada pada tabel = L?
if tblmhs.FieldValues['jenkel']='L' then
radiol.Checked:= .........
else
radiop.Checked:= .........

//menampilkan data pada tabel ke objek cboprog dan cbojrs
cboprog.text:=tblmhs.FieldValues['..............'];
........................:=tblmhs.FieldValues['jurusan'];
edit1.Text:='';
end;

b. Tugas :
Program Navigasi
Buatlah program untuk menampilkan data pada setiap objek (seperti di atas) pada button navigator

c. Tambahkan obejek dibawah ini :


Buat program pencarian sebagai berikut :

Program Cari Data

procedure TForm5.BtnCariClick(Sender: TObject);
begin
tblmhs.SetKey;
tblmhs.FieldByName('npm').asstring:=edit1.Text;
tblmhs.GotoKey;

//menampilkan data pada objek
ednpm.Text:=tblmhs.FieldValues['npm'];
ednama.Text:=tblmhs.FieldValues['nama'];
if tblmhs.FieldValues['jenkel']='L' then
radiol.Checked:=true
else
radiop.Checked:=true;

cboprog.text:=tblmhs.FieldValues['program'];
cbojrs.Text:=tblmhs.FieldValues['jurusan'];
end;

c. Tambahkan button berikut :



Program Tambah :
1 procedure TForm5.BtnTambahClick(Sender: TObject);
2 begin
3
4 tblmhs.Append;
5 tblmhs.FieldValues['npm']:=ednpm.Text;
6 tblmhs.FieldValues['nama']:=ednama.Text;
7 if radiol.Checked=true then
8 tblmhs.FieldValues['jenkel']:='L'
9 else
10 tblmhs.FieldValues['jenkel']:='P';
11
12 tblmhs.FieldValues['program']:=cboprog.Text;
13 tblmhs.FieldValues['jurusan']:=cbojrs.Text;
14 tblmhs.Post;
15 end;
Lakukan test, jalankan ! perbaiki jika ada kesalahan !

Tambahkan potongan program dibawah ini pada baris no.3
if btntambah.Caption='Tambah' then
begin
ednpm.Text:='';
ednama.Text:='';
radiol.Checked:=false;
radiop.Checked:=false;
cboprog.Text:='';
cbojrs.Text:='';
btntambah.Caption:='Simpan';
end
else
begin
tambahkan lagi 1 buah end; di bawah end terakhir prosedur tersebut
Lakukan test, jalankan ! perbaiki jika ada kesalahan ! Buat kesimpulan !

Program Edit :
procedure TForm5.BtnEditClick(Sender: TObject);
begin
tblmhs.Edit;
tblmhs.FieldValues['npm']:=ednpm.Text;
tblmhs.FieldValues['nama']:=ednama.Text;
if radiol.Checked=true then
tblmhs.FieldValues['jenkel']:='L'
else
tblmhs.FieldValues['jenkel']:='P';

tblmhs.FieldValues['program']:=cboprog.Text;
tblmhs.FieldValues['jurusan']:=cbojrs.Text;
tblmhs.Post;
end;
Lakukan test, jalankan ! perbaiki jika ada kesalahan !

Program Hapus :
procedure TForm5.BtnHapusClick(Sender: TObject);
var x:word;
begin
x:=messagedlg('Yakin akan dihapus',mtconfirmation,[mbyes,mbno],0);
if x=mryes then
tblmhs.Delete;
end;
Lakukan test, jalankan ! perbaiki jika ada kesalahan !

//menekan tombol enter
procedure TForm5.EdnpmKeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then
ednama.SetFocus;
end;

Tugas :
1. Buatlah desain dan program untuk membuat aplikasi :
a. Matakuliah
b. Barang
c. Buku
d. Pelanggan