Pemrog.Delphi

PERTEMUAN X


MATAKULIAH : PEMROGRAMAN OBJEK ORIENTED (DELPHI)
MATERI : Program Transaksi (3 buah table)
KELAS : D3/TK/2

Program transaksi adalah program yang merupakan transaksi dari data-data master.
Program transaksi ini lebih kompleks dari pada program master, program transaksi ini melibatkan table-tabel master dan transaksi.

Secara konsep, program transaksi dapat digambarkan sebagai berikut :













Contoh program transaksi :
• Transaksi KRS
• Transaksi Penjualan
• Transaksi Pemesanan
• Transaksi Penyewaan, dll

Dari kasus sebelumnya,maka program transaksi yang kita buat adalah program transaksi untuk pengisian FRS dan Penginputan Nilai.

Program Transaksi Input KRS :

Untuk membuat form KRS, melibatkan dua buah table master, yaitu :
table mahasiswa dan table matakuliah, serta table transaksi KRS.

Table KRS dengan field sbb :
Npm, kdmk bertipe A
Uts, Uas, Tugas, Absesnsi bertipe N


Berikut ini adalah penjelasan dari masing-masing table :

No Table Fungsi Field yang diambil untuk transaksi
1 Mahasiswa untuk memilih mahasiswa yang akan mengambil suatu matakuliah Npm
2 Matakuliah untuk memilih matakuliah yang diambil oleh mahasiswa Kdmk
3 KRS Untuk menampung data hasil transaksi


Objek tambahan yang digunakan dalam form :
No Nama objek Properties Nilai
2. Table1,2,3 Name
Databasename
TableName
Active Tblmhs, tblmatkul, tblkrs
Nama Alias
Nama table masing-masing
True
3. Datasource1,2,3 Name
Dataset Dsmhs, dsmatkul, dskrs
Tblmhs, tblmatkul, tblkrs
4. DBLookUpCombo1,2 Name
ListSource
ListField
KeyField CboLookup1, CboLookup2
ListSource bersangkutan
Field yang akan ditampilkan
Keyfield table bersangkutan


Contoh Rancangan Form Pengisian KRS :



















Algoritma program :
• Persiapan (desain, koneksi data base)
• Pilih npm, nama muncul otomatis (terkait table mahasiswa)
• Pilih kode matakuliah, nama mk dan sks otomatis muncul (terkait table matakuliah)
• Lalu simpan (simpan ke table KRS), otomatis nilai-nilai tersimpan dengan nilai =0

Program Pengisian KRS :

procedure TForm6.cbolookup1Click(Sender: TObject);
begin
// pencarian npm
tblmhs.SetKey;
tblmhs.FieldByName('npm').asstring:=cbolookup1.Text;
tblmhs.GotoKey;
//tampilkan nama sesuai npm yang di pilih
ednamamhs.text:=tblmhs.fieldvalues['nama'];
end;

procedure TForm6.cbolookup2Click(Sender: TObject);
begin
//pencarian kdmk
tblmatkul.SetKey;
tblmatkul.FieldByName('kdmk').asstring:=cbolookup2.Text;
tblmatkul.GotoKey;
//tampilkan nama sesuai npm yang di pilih
ednamamk.text:=tblmatkul.fieldvalues['nama_mk'];
edsks.text:=tblmatkul.fieldvalues['sks'];
end;

procedure TForm6.btnsimpanClick(Sender: TObject);
begin
tblkrs.Append;
tblkrs.FieldValues['npm']:=cbolookup1.Text;
tblkrs.FieldValues['kdmk']:=cbolookup2.Text;
tblkrs.FieldValues['uts']:=0;
tblkrs.FieldValues['uas']:=0;
tblkrs.FieldValues['tugas']:=0;
tblkrs.FieldValues['absensi']:=0;
tblkrs.Post;
end;

Tugas :
1. Buat program NAVIGATOR untuk berpindah ke record sebelumnya dan ke record berikutnya.
2. Buat program hapus data
3. Buat desain, algoritma dan program untuk form Nilai !






Tugas Mandiri (dikumpulkan) :
Pilih salah satu aplikasi dibawah ini, buat programnya! (databasenya tentukan sendiri) :
a. Aplikasi Rumah Sakit
b. Aplikasi Inventory
c. Aplikasi Penggajian
d. Aplikasi Koperasi / Ban