Cara Mudah Memahami Fungsi Case Of dan lookup Tabel di Delphi

Seperti telah dibahas pada tutorial sebelumnya, fungsi case of merupakan sebuah fungsi untuk menggantikan kondisi IF jika jumlah kondisi sangat banyak. Pada tutorial ini akan dibahas penggabungan fungsi lookup dan case of  langsung membuat aplikasi pemilihan data dimana logika program jika combobox di pilih maka pada edit  text akan muncul keterangannya dengan Data combobox didapat dari lookup tabel. Hasil program bisa dilihat dibawah ini.

FORM INPUT DATA

Logika Program

1.       Data yang ada di combobox diambil langsung dari tabel dokter dengan lookup by SQL Languange

2.       Jika dipilih nama dokter maka otomatis pada kolom spesialis akan muncul keterangannya

Syntak Programnya adalah sbb

CODING LOOKUP TABEL WITH SQL LANGUANGE

FUNGSI CASE OF