Membuat Grafik dari Database di Delphi

Terkadang kita memerlukan sebuah utilitas untuk memantau jumlah data yang ada pada database. Suatu misal, Anggap saja kita memiliki sebuah tabel pemasukan dalam sebuah database. Dengan memanfaatkan grafik, tentu saja kita dapat memantau jumlah pemasukan yang ada. Menurun atau berkurangkah dalam perbulan atau pertahunnya ?

Dengan menggunakan Delphi, kita dapat membuat grafik yang direlasikan dengan tabel yang ada di database dan Grafik tersebut bisa juga langsung kita cetak. pada contoh ini saya memanfaatkan sourcode projek sebelumnya (CRUD Data dengan Query). Jika anda malas mendesain dan membuat projek dari awal anda dapat mendownloadnya pada postingan sebelumnya. Sebagai contoh, hasil yang kita inginkan adalah seperti dibawah ini :

Langkah - Langkah Pembuatannya sebagai berikut
1. Masuk ke Pallete DataControl kemudian tambahkan Pallete DBCHart ke dalam Form

2. Klik dua kali komponen DBChart tersebut lalu ikuti langkah-langkah pada gambar dibawah ini

3. Untuk Mencetak Grafik Tersebut, Silahkan tambahkan TeePrevi dalam Uses Projek anda kemudian ketik coding berikut dalam button cetak

ChartPreview(Self, DBChart1);

Sampai disini kita sudah berhasil membuat sebuah Grafik sederhana dengan menggunakan DBChart di Delphi.Silahkan dikembangkan dan dimodifikasi sendiri. Hasil Akhir (Projeknya) dapat anda download pada link ini. Selamat Mencoba dan semoga berhasil.

Membuat Laporan dengan Fast Report di Delphi

Pada Postingan Ini saya ingin mengajak sobat Delphi untuk membuat laporan dengan menggunakan komponen Fast Report. Jika Sobat Belum Memiliki dan Belum Menginstal Komponen Fast Report Silahkan Lihat disini. Sebelum Mulai Membuat laporan, terlebih dahulu pastikan Koneksi ke Database sudah tidak ada masalah. Selanjutnya Silahkan Masuk ke Pallete Fast Report 4.0 kemudian tambahkan dua buah komponen kedalam Form anda

1. 1 Buah Komponen frxDBDataset
2. 1 Buah Komponen frxReport

Atur Property frxDBDataset -> Dataset : AdoQuery.

Tahap Berikutnya, Klik dua kali Komponen frxReport yang telah anda tambahkan ke form. Akan Muncul Tampilan Fast Report Desain kemudian Klik dua kali pada Report anda, atur ukuran kertasnya (Saya Menggunakan Kertas A4).

Langkah Berikut adalah membuat garis di pinggir kertas dengan mengklik Button seperti gambar dibawah

Step Selanjutnya adalah kita akan membagi Kertas Halaman menjadi 4 yang meliputi; Report Title, Header, Master Data dan Footer. Caranya seperti gambar berikut

- Tambahkan Sebuah Komponen Memo (Logo A) kedalam Report Title anda kemudian atur Sesuka Hati, Misalkan : Laporan dengan Fast Report.
- Tambahkan Beberapa Komponen Memo (Logo A) kedalam Header anda sebanyak Jumlah Field Tabel Anda. Kemudian Atur Sesuai Nama Field yang ada di tabel database anda.
- Tambahkan Sebuah Komponen Memo (Logo A) kedalam Footer anda Kemudian Atur Sesuka Hati.

- Kemudian ini adalah langkah yang paling penting dimana kita akan meload data yang ada di database kedalam report kita. Caranya Klik menu Report -> Data. Centang frxDBDataset yang ada di form anda.

Klik satu kali pada Master Data kemudian atur Property, Dataset -> frxDBDataset
Tambahkan Beberapa Komponen Memo (Logo A) kedalam Master Data Tersebut sebanyak Jumlah Field Tabel Anda. Perhatikan Gambar Berikut

Selesai. Silahkan Simpan Laporan anda didalam Folder Projek anda. Untuk memanggil Laporan tersebut silahkan tambahkan sebuah button dan berinama cetak lalu ketikan code berikut pada button tersebut

FrxReport1.LoadFromFile(ExtractFilePath(Application.ExeName)+'NamaLaporan.Fr3');
Frxreport1.ShowReport();

Selamat Mencoba dan semoga berhasil. Download Contoh Projeknya disini. Untuk Membuat Laporan Pertanggal dengan Fast Report Konsepnya sama dengan Membuat Laporan dengan Quick Report. Silahkan Lihat disini.

Instalasi Fast Report di Delphi 7

Selain Rave Report dan Quick Report, Tools Pelaporan yang banyak digunakan di Delphi adalah Fast Report. Berbeda dengan Quick dan Rave Report yang sudah langsung include dalam Delphi 7, Fast Report merupakan komponen pelaporan Pihak ketiga (Third Party) sehingga kita harus menginstal komponennya secara terpisah jadi pastikan anda sudah memiliki komponen fast report (sesuaikan dengan versi delphi anda). Untuk anda yang belum memiliki komponen fast report Delphi 7 silahkan download disini.

Seperti biasa, usai mendownload silahkan extrack file hasil download anda kemudian copy ke C:\Program Files\Borland

Setelah itu buka folder Fast Report tersebut lalu jalankan file recompile sehingga muncul seperti gambar dibawah ini

Sampai disini kita sudah berhasil melakukan proses compile untuk komponen Fast Report. Langkah selanjutnya adalah menambahkan komponen tersebut ke Delphi. Silahkan Buka Delphi anda. Klik Menu Tools -> Environment Options.

Langkah diatas adalah Proses dimana kita menambahkan Path Library Fast Report ke Delphi. Untuk Proses Instalasi Ikuti Langkah berikut. Klik Menu Componen -> Install Package

Selamat ! Anda Sudah Berhasil Menginstal Komponen Fast Report di Delphi 7 Anda.

Aplikasi Download File Sederhana dengan Delphi

Seperti yang telah saya jelaskan sebelumnya, selain menggunakan layanan FTP kita juga bisa menggunakan layanan HTTP untuk melakukan proses upload dan download. berikut saya sharing source code untuk mendownload file dari internet dengan berbagai macam ekstensi file seperti *.zip, *.jep, *.pdf, *.docx dan semacamnya. Aplikasi Download File sederhana ini dilengkapi dengan progress bar sebagai penanda proses download yang sedang berjalan.

Adapun Untuk Button Unduh, Isi codingnya adalah sebagai berikut :

if (Edit1.Text='') or (ComboBox1.Text=' -- Pilih --') or (ComboBox1.Text='') then
    MessageDlg('Ops, Nampaknya ada yg salah !',mtWarning,[mbok],0) else
    begin
    SaveDialog1.DefaultExt:=ComboBox1.Text;
   with TDownloadURL.Create(self) do
   try
     URL:=Edit1.Text;
     if SaveDialog1.Execute then
     begin
     FileName := SaveDialog1.FileName;
     OnDownloadProgress := URL_OnDownloadProgress;
     ExecuteTarget(nil);
     end;
   finally
     Free;
     ShowMessage('Sukses : File Berhasil di Download !');
   end;
   end;

Jangan Lupa untuk menambahkan sebuah prosedur untuk progressnya sebagai berikut

procedure TForm1.URL_OnDownloadProgress;
begin
   ProgressBar1.Max:= ProgressMax;
   ProgressBar1.Position:= Progress;
end;

Sebagai Informasi, Aplikasi Download sederhana ini belum sepenuhnya berjalan dengan baik untuk semua ekstensi file. tapi sudah saya coba untuk mendownload file gambar dan berjalan dengan baik. anda dapat melakukan modifikasi pada source code yang ada agar dapat berjalan sesuai keinginan anda. Silahkan Download Projeknya disini. Selamat mencoba. :)

Membuat Aplikasi Upload File Sederhana Dengan Delphi

Untuk melakukan proses upload file biasanya seseorang menggunakan layanan FTP (File Transfer Protokol). dengan layanan tersebut kita sudah bisa melakukan Proses Upload maupun download File ke/dari sebuah server. Suatu Misal anda ingin mengupload website atau file anda kelayanan hosting maka cara yang banyak digunakan adalah dengan menggunakan FTP Client semacam Filezila atau Net2FTP yang berbasis web.

Selain menggunakan Fitur FTP, sebenarnya kita juga bisa menggunakan layanan HTTP untuk melakukan proses Upload dan Download File. Dalam postingan ini akan coba saya bahas bagaimana membuat aplikasi upload file sederhana dengan menggunakan layanan HTTP.

Pertama, Pastikan Apache anda dalam keadaan Aktif/Berjalan.

Kedua, Copy Paste Code dibawah ini kemudian simpan dengan nama upload.php didalam folder htdocs

<?php
    $lokasi='./';
    move_uploaded_file($_FILES['data']['tmp_name'], $lokasi.$_FILES['data']['name']) or die('');
?> 

Dapat kita simpulkan bahwa Proses Upload dalam Aplikasi sederhana ini memanfaatkan coding upload.php yang dipanggil melalui delphi. Sedangkan Untuk Coding Delphinya silahkan Download disini.
NB : codingnya bukan saya yang mengetik, karena masih banyak teman-teman yang bingung, saya berniat hanya memperjelas saja dari postingan yang ada di website http://www.delphibasics.info/. 

Sekedar Info : Hasil Upload akan tersimpan didalam Folder anda meletakkan file upload.php (folder htdocs). Selamat Mencoba semoga sukses.

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. :)