Membuat Menu Navigasi dengan Alpha Skin di Delphi

Pada Postingan Sebelumnya Sudah saya jelaskan Bagaimana membuat menu Navigasi Samping dengan menggunakan component delphi Pihak ketiga yaitu DevExpress. Bagi Anda yang belum membacanya silahkan lihat disini. Belakang ini saya baru tahu ternyata nama menu ini adalah Menu Accordion. haha :D

Kali ini saya akan sharing bagaimana membuat menu Accordion (Navigasi Samping) Seperti gambar diatas dengan menggunakan component Alpha Skin. Caranya Cukup mudah. Pertama, Silahkan Download component Alpha Skin delphi pada postingan yang ada disini kemudian install. Jika Sudah beres, Lanjutkan membaca. ;)

1. Tambahkan Beberapa komponen berikut pada form anda Secara berurutan

    

    - 1 Buah Panel -> Property -> Align = alTop, Caption = Terserah

    - 1 Buah StatusBar -> Klik 2 kali -> Tambahkan 2 Panel dan atur Teksnya

    - 1 Buah sFrameBar (Pallete Alpha Additonal) -> Property -> Align = alLeft

    - 1 Buah Panel -> Property -> Align = alClient, Caption = Kosong

    - 1 Buah ImageList -> Klik 2 Kali -> Add Beberapa Icon

Proses Selanjutnya adalah (bagian yang paling penting). 

Klik 1 Kali Pada sFramebar yang sudah anda tambahkan pada form anda kemudian atur Property -> Images = ImageList1 

Klik 2 Kali Pada sFramebar yang sudah anda tambahkan pada Form anda kemudian tambahkan beberapa Item dan Seperti gambar begikut. 

Pada Masing-masing item dari gambar diatas, atur Property sebagai berikut. Lakukan Secara Berurutan mulai dari yang paling atas. 

Caption = Menu Satu

ImageIndex = Mulai dari Nol (Lihat Daftar Icon yang ada di ImageList)

Sampai disini, Hasil Sementara Seperti gambar berikut :

Tahap Selanjutnya, Karena Pada Poses ini kita membuat Lima Menu Pada sFramebar, Maka Tambahkan Lima buah Frame ke Projek Anda (File -> New -> Frame).

Pada Masing-Masing Frame yang sudah anda tambahkan, Atur Ukurannya Sesuai Keinginan anda lalu Tambahkan Pula Beberapa Button atau BitButton. 

Klik 2 Kali Pada sFrameBar tadi. Pada Masing-Masing Item -> Event -> OnCreateFrame Tambahkan kode berikut Frame :=TFrame1.Create(nil); Lakukan secara berurutan mulai dari Item Paling atas.

Untuk Hasil Akhirnya, Silahkan Download disini. Selamat Mencoba dan Salam Sukses Selalu. :)

Join Tabel Database di Delphi

Seperti yang sudah saya paparkan pada postingan sebelumnya bahwa memang menggunakan Query untuk melakukan proses manipulasi data yang ada di database sangat diperlukan. Dengan Query Proses manipulasi menjadi lebih mudah meskipun mungkin terkesan lebih ribet bila dibandingkan dengan menggunakan Append dan Post. :D

Salah Satu keuntungan yang bisa kita dapatkan dengan menggunakan Query untuk proses manipulasi data adalah Join Tabel atau menggabungkan beberapa tabel. Join tabel sendiri terdapat beberapa kategori seperti

Inner Join, Left Join, Right Join, Full Join dan semacamnya. 

Sebagai Contoh : Anggap Saja Kita memiliki dua buah tabel (tabel Mahasiswa dan tabel Mata Kuliah). Seperti gambar dibawah :

Gambar Tabel 1 (Tabel Mahasiswa)

Gambar Tabel 2 (Tabel Mata Kuliah)

Dengan Mengacu Pada kedua tabel diatas, maka jika kita akan melakukan proses Inner Join, Querynya akan seperti dibawah ini :

SELECT tabel1.Nama, tabel1.Jurusan, tabel2.MataKuliah, tabel2.SKS, tabel1.Nilai FROM tabel1 INNER JOIN tabel2 ON tabel1.KodeMataKuliah=tabel2.KodeMataKuliah ORDER BY tabel1.KodeMataKuliah;

Sedangkan Untuk Left Join Querynya menjadi

SELECT tabel1.Nama, tabel2.MataKuliah FROM tabel1 LEFT JOIN tabel2 ON tabel1.KodeMataKuliah=tabel2.KodeMatakuliah ORDER BY tabel1.Nama;

Untuk Lebih Jelasnya, Silahkan Download Source Codenya disini (Menggunakan Database Access).

Selamat Mencoba. Salam Sukses Selalu. :)