Tutorial Membuat Aplikasi Perpustakaan Menggunakan Pemrograman Delphi

Tutorial Membuat Aplikasi Perpustakaan Menggunakan Pemrograman Delphi

Assalamu’alaikum wr.wb ..
Ogenki desuka minna .?

Pada artikel sebelumnya saya menjajikan akan membuat project lain yang juga masih menggunakan komponen web browser, apa saja aplikasi yang didapat dibuat menggunakan komponen tersebut .? ada begitu banyak aplikasi yang dapat dibuat dengan menggunakan komponen tersebut, salah satu contohnya yang akan saya bahas pada artikel kali ini adalah membuat aplikasi perpustakaan menggunakan Delphi.

Yosh langsung saja ikuti langkah-langkah berikut ini :
 1. Buatlah 1 buah label (standart) terserah minna mau beri nama komponennya apa, tujuannya hanya untuk mempercantik tampilan saja.

2. Buatlah 1 buah combobox (standart) dan beri nama komponennya cbbpilih, dan pada object inspector pilih Items dan masukan kategori Delphi, Java dan Php seperti contoh pada gambar berikut ini,  tujuannya untuk memilih kategori ebook yang akan minna baca nantinya.

Membuat Kategori

3. Buatlah 1 buah list file (standart) dan beri nama lstdaftar, tujuannya agar ketika minna memilih kategori ebook yang ingin dibaca, maka ebook yang tersedia sesuai dengan kategori yang dipilih akan tampil pada list file.

4. Buatlah 1 buah web browser (internet), tujuannya untuk menampilkan materi dari judul ebook yang minna pilih.

5. Kemudian Desain form seperti pada gambar dibawah ini :

Desain Form

6. Save all project dalam 1 folder

7. Tahap selanjutnya adalah memasukan coding berikut ini :

Nama Komponen	Coding	Keterangan
Masukan variable berikut atau letakan saja dibawah coding implementation {$R *.dfm}	procedure ListFileDir(Path: string; FileList: TStrings); var SR: TSearchRec; begin if FindFirst(Path + '*.*', faAnyFile, SR) = 0 then begin repeat if (SR.Attr <> faDirectory) then begin FileList.Add(SR.Name); end; until FindNext(SR) <> 0; FindClose(SR); end; end;
Klik 2x pada ccbpilih	if cbbpilih.ItemIndex = 0 then begin     lstdaftar.Clear; ListFileDir(ExtractFilePath(Application.ExeName)+'\Perpustakaan\Delphi\' ,lstdaftar.Items);    end else if cbbpilih.ItemIndex=1 then   begin     lstdaftar.Clear; ListFileDir(ExtractFilePath(Application.ExeName)+'\Perpustakaan\Java\' ,lstdaftar.Items);   end else if cbbpilih.ItemIndex=2 then   begin     lstdaftar.Clear; ListFileDir(ExtractFilePath(Application.ExeName)+'\Perpustakaan\Php\' ,lstdaftar.Items); end; end;	\perpustakaan\delphi merupakan dua folder yang saya letakan pada folder project sehingga dengan coding tersebut tujuannya untuk menampilkan file yang berada didalam folder perpustakaan\delphi ke list file. Begitupun dengan folder Java dan Php.
Klik 2x pada lstdaftar	var   lokasi, namafile : string; begin   if cbbpilih.ItemIndex=0 then   begin   lokasi := GetCurrentDir;   namafile := lstdaftar.Items.Strings[lstdaftar.itemindex];   wbtampilan.Navigate(lokasi+'\Perpustakaan\Delphi\'+namafile); end else if  cbbpilih.ItemIndex=1 then begin   lokasi := GetCurrentDir;   namafile := lstdaftar.Items.Strings[lstdaftar.itemindex];   wbtampilan.Navigate(lokasi+'\Perpustakaan\Java\'+namafile); end else if  cbbpilih.ItemIndex=2 then begin   lokasi := GetCurrentDir;   namafile := lstdaftar.Items.Strings[lstdaftar.itemindex];   wbtampilan.Navigate(lokasi+'\Perpustakaan\Php\'+namafile); end; end;	Untuk menampilkan judul ebook yang dipilih ke web browser.

Lihat gambar berikut untuk penempatan folder dalam project Delphi dan juga coding nya :

Mengatur Folder Dalam Project

Souce Code

Source Code

Selesai, berikut adalah tampilannya ketika menekan tombol F9 pada keyboard :

Aplikasi Perpustakaan

Bagaimana minna, gampangkan membuat perpustakaan menggunakan pemrograman Delphi, jika minna bisa memahami coding ini, maka minna bisa mengembangkan project diatas menjadi seperti project yang saya buat atau bahkan jauh lebih baik lagi. Pada project yang saya buat, saya menambahkan database agar pada pilihan kategori ebook bisa ditambahkan, dan dengan menambah web browser 2 yang tersembunyi (visible), maka kita dapat menambahkan ebook baru dalam kategori tersebut. Berikut adalah contoh project yang saya buat. Untuk pembuatan database akan saya posting pada artikel berikutnya

Projectku

Terimakasih telah membaca artikel ini, baca juga artikel lainnya tentang Tutorial Membuat Web Browser Menggunakan Pemrograman Delphi dengan Mudah