Tutorial Delphi

Dalam Membangun Aplikasi Database seringkali kita dituntut untuk menggabungkan beberapa tabel. pada postingan sebelumnya sudah saya bahas tentang teknik JOIN tabel; Inner Join, Left Join, Right Join dan Union dimana Join Tabel tersebut diimplementasikan kedalam dua buah tabel yaitu tabel Mahasiswa dan tabel nilai.

sedikit berbeda dengan kasus sebelumnya, kali ini kita akan belajar bagaimana menggabungkan 4 tabel sekaligus. Sebenarnya untuk Join tabel sendiri tidak terbatas pada jumlah tabel yang akan kita Join karena terbukti saya pernah menggabungkan (Join) hingga belasan tabel. Enjoy :)

Sedikit gambaran tentang hasil yang kita inginkan kira-kira seperti gambar berikut dimana tombol Join akan bertugas untuk melakukan Query Join. sedangkan hasilnya akan ditampilkan didalam DBGrid yang paling bawah

Logikanya sederhana, kita akan memanggil setiap Field yang ada di tabel dimana masing-masing tabel memiliki field yang sama. pada kasus ini Field yang sama pada semua tabel adalah Field Nama (berada disemua tabel). adapun Query-nya adalah seperti berikut (Database Access) :

SELECT tabel1.Nama, tabel1.MataKuliah, tabel2.Nilai, tabel3.NamaDosen, tabel4.Alamat 
FROM (((tabel1
INNER JOIN tabel2 ON tabel2.Nama=tabel1.Nama) 
INNER JOIN tabel3 ON tabel3.Nama=tabel1.Nama) 
INNER JOIN tabel4 ON tabel4.Nama=tabel1.Nama)

Adapun Contoh Source Code dapat anda download disini. Semoga berhasil. Salam Delphier.. :)

Aktifitas Copy File tentu hampir setiap hari kita lakukan dikomputer kita entah mengcopy materi kuliah, Tutorial, Mp3, Film dan semacamnya. Berangkat dari hal tersebut saya ingin mengajak sobat Delphi untuk membuat sebuah aplikasi Copy File Sederhana dengan menggunakan Delphi.

Sebagai gambaran, Aplikasi yang akan kita buat disini akan mampu mengcopy File yang ada kita pilih dari komputer menuju lokasi yang telah ditentukan. Lokasi tujuan tersebut telah dipatenkan didalam coding aplikasi yaitu di drive E:\\ Desan tampilan aplikasinya seperti gambar berikut.


Adapun coding Pilih file adalah dengan memanfaatkan komponen OpenDialog dimana codenya sebagai berikut

var
Dir : String;
begin
if OpenDialog1.Execute then
begin
edit1.Text:= OpenDialog1.FileName;
Dir := 'E:\';
Edit2.Text:=dir+'\'+ExtractFileName(Edit1.Text);
end;
end;

Sedangakan Perintah Copy File kita tanamakan didalam coding Copy sebagai berikut

if ( Edit1.Text <> '' ) and ( Edit2.Text <> '' ) then
if CopyFile(PChar(Edit1.Text), PChar(Edit2.Text), False) then
Label3.Caption:='Status : OK [File Copied]';

anda dapat memodifikasinya sendiri dengan mendownload source codenya disini. selamat mencoba.

Selain menggunakan komponen Media Player yang ada di Pallete System kita juga bisa membuat sebuah Aplikasi Pemutar Audio/Mp3 dan Video Sederhana dengan memanfaatkan Komponen ActiveX Milik Windows Media Player. Caranya sederhana tapi output yang dihasilkan bisa Jauh Lebih Baik bila dibandingkan dengan komponen Media Player tapi hal ini tentu saja bergantung pada kreatifitas anda.

Sebelumnya Membahas lebih jauh, terlebih dahulu kita harus menginstal ActiveX Windows Media Player itu sendiri agar dapat menggunakannya. dibawah ini adalah langkah-langkah instalasinya yang dapat anda ikuti.

Import ActiveX Windows Media Player

1. Buka Delphi Anda kemudian klik menu Component -> Import ActiveX Control



2. Jika Muncul Pesan Konfirmasi tekan saja OK/Yes. Setelah Proses tersebut dijalankan coba buka Pallete ActiveX. Akan Muncul Komponen Tambahan Seperti gambar dibawah ini


Untuk Mengujinya anda dapat mendownload Contoh Source Code Projek yang saya buat disini. Enjoy :)

Salah Satu Hal yang banyak dimanfaatkan dalam membuat aplikasi Database adalah dengan membuat penomoran secara otomatis. Dengan cara ini End User tentu akan lebih mudah dalam menginputkan Data karena tidak perlu lagi membuat atau mengetikan nomor secara manual. Hal ini juga sering dimanfaatkan untuk membuat nomor transaksi atau nomor registrasi dalam sebuah aplikasi.

Kali ini saya akan berbagi tentang cara membuat penomoran berdasarkan waktu dan jumlah data  yang ada didalam database. jadi, Output Nomor yang akan keluar kurang lebih akan menjadi :

NO-waktutransaksi-datayangke

NO dibuat secara statis sehingga tidak akan dapat dirubah, waktutransaksi digenerate berdasarkan waktu
terjadinya transaksi sehingga akan selalu berubah-ubah, Sedangkan datayangke diambil dari jumlah data yang ada didatabase ditambah 1 Dengan Begitu tidak akan pernah terjadi Duplicate nomor dan User tidak perlu repot mengetikan nomor secara manual. adapaun coding yang saya gunakan adalah seperti dibawah ini

Edit1.Text:='NO-'+FormatDateTime('hms',Now)+'-'+IntToStr(ADOQuery1.recordcount+1);

Contoh Source Code dapat anda Download disini. Selamat mencoba :)

Pada Postingan ini saya ingin berbagi bagaimana mengetahui Nama Komputer, Nama User Komputer dan Service Windows yang sedang berjalan dengan menggunakan Delphi. Dalam Contoh ini Saya mencoba menampilkan Informasi Service MySQL di Windows Selain itu juga akan menampilkan Nama dan User Komputer pada sebuah Label dimana kesemuanya dilakukan Oleh masing-masing Fungsi.

Jadi, Terdapat tiga buah fungsi dalam contoh ini yaitu Funggsi GetComputerNameFromWindows, Fungsi GetUserFromWindows dan Fungsi ServiceGetStatus. Berikut adalah dua dari tiga Fungsi tesebut.

// Cek Nama Komputer
function GetComputerNameFromWindows: string;
var
  iLen: Cardinal;
begin
  iLen := MAX_COMPUTERNAME_LENGTH + 1;
  Result := StringOfChar(#0, iLen);
  GetComputerName(PChar(Result), iLen);
  SetLength(Result, iLen);
end;

// Cek User Komputer
function GetUserFromWindows: string;
var
  iLen: Cardinal;
begin
  iLen := 256;         
  Result := StringOfChar(#0, iLen);
  GetUserName(PChar(Result), iLen);
  SetLength(Result, iLen);
end;

Penggunaan Kedua Fungsi tersebut cukup mudah yaitu hanya dengan memanggil dama fungsinya saja dalam event yang anda kehendaki suatu misal seperti berikut ini

Label5.Caption:=GetComputerNameFromWindows;
Label6.Caption:=GetUserFromWindows;

Untuk Lebih Jelasnya mungkin anda bisa mendownload Contoh Source Codenya disini.

Proses Mengambil gambar Capture Image dengan memanfaatkan Webcam PC/Laptop dapat dengan mudah kita lakukan dengan memanfaatkan Tools seperti WebcamMax dan semacamnya. Terlepas dari hal itu, kali ini saya ingin berbagi bagaimana membuat sebuah aplikasi sederhana yang dapat melakukan capture gambar dari Webcam kemudian disimpan dengan format JPEG atau PNG.

Untuk Dapat membuat aplikasi tersebut kita membutuhkan sebuah komponen tambahan yaitu DSPACK karena secara default Delphi tidak menyediakannya. Komponennya bersifat Free jadi anda dapat dengan bebas mendownload dan menggunakannya. Seperti biasa, Pertama-tama tentu kita harus menginstall komponennya terlebih dahulu. Silahkan Download DSPACK disini.

Langkah Instalasi Komponen DSPACK di Delphi

1. Extrack File Hasil Download kemudian letakkan di C:\Program Files\Borland\DSPACK

2. Buka Delphi Anda Kemudian lalu klik menu File -> Open -> (DSPack_D7, DSPackDesign_D7, DirectX9_D7) ada di Folder C:\Program Files\Borland\DSPACK\Packages -> Install satu Persatu


3. Selanjutnya Kita harus menambahkan Path Library DSPACK ke Delphi agar tidak terjadi Error saat kita mengcompile Aplikasi kita. Caranya Klik menu Tools -> Environment Options -> Masuk ke Tab Library


Tambahkan Path Library DirectX9 dan DSPack yang ada di Folder C:\ProgramFiles\Borland\DSPACK\SRC


4. Sampai disini Anda Sudah Berhasil Menginstall Komponen DSPACK ke Delphi 7 Anda.

Download Contoh Source Code Projek Capture Webcam disini. Selamat Berkreasi.

Penanganan Event-Event yang ada didalam Program Aplikasi yang kita bangun sedari dini harus kita perhatikan untuk meminimalisir terjadinya Error yang dapat menjadi sebuah Bug Aplikasi Tersebut. Dalam Delphi Sendiri Event-Event yang umum terjadi telah disediakan didalam Objek Inspector. Semisal Event OnClick, OnCreate, OnClose dan semacamnya.

Salah Satu Event yang pasti terjadi saat aplikasi dijalankan adalah penekanan tombol keyboard. Untuk menangkap aksi ini kita bisa menggunakan Code ASCII masing-masing tombol di keyboard seperti contoh berikut yang dapat menangkap aksi penekanan tombol backspace

If Key=#8 then
begin
// aksi
end; 

Kali ini saya akan berbagi bagaimana menangkap Aksi penekanan tombol ALT+F4 yang berfungsi untuk menutup aplikasi atau Close. Cara yang saya gunakan adalah dengan membuat sebuah Procedure dan mengeksekusi aksinya didalam procedure tersebut. codingnya seperti dibawah ini

procedure TForm1.AppMessage(var Msg: TMSG; var HAndled: Boolean);
begin
Handled := False;
case Msg.Message of
WM_SYSKEYDOWN:
if Msg.wParam = VK_F4 then
begin
Handled := True;
ShowMessage('Ops, Sorry.. Alt + F4 di Non Aktifkan !');
end;
end;
end;

Lalu Pada Event On Create Form kita tambahkan baris perintah berikut

Application.OnMessage := AppMessage;

Contoh Source Code Lengkap Dapat Anda Unduh disini. Semoga Berhasil :)

1. Berikut coding jika saya tidak ingin mengambil angka dibelakang koma

FormatFloat('#####', pecahan);

2. Berikut coding jika saya hanya akan mengambil dua angka dibelakang koma

FormatFloat('#.##', pecahan);

2. Berikut coding jika saya hanya akan mengambil satu angka dibelakang koma

FormatFloat('0.0', pecahan);

Contoh Projek untuk implementasi Fungsi Format Float tersebut dapat anda download disini.

Seperti yang sudah saya jelaskan pada postingan sebelumnya, bahwa untuk menyimpan gambar ke Database, entah Itu database Access, Desktop/Paradox atau Database MySQL menggunakan Dua Konsep. Pertama, Masing-masing database tersebut memiliki Tipe Data yang dapat digunakan untuk menyimpan Data Binary yaitu OLE/BLOB. Cara ini sudah saya jelaskan sebelumnya. Silahkan Cek disini.

Cara kedua adalah dengan menyimpan Path atau Lokasi File Gambarnya saja kedalam Database. Cara ini lebih saya sukai daripada cara yang pertama. Berikut saya sharing Tekniknya.

1. Buatlah sebuah Database dan sebuah tabel yang akan digunakan untuk menyimpan data gambar, Pada Contoh ini saya menggunakan Database Access. adapun struktur tabelnya dalah sebagai berikut


2. Seperti biasa, Selanjutnya adalah melakukan koneksi ke Database kemudian menambahkan beberapa komponen seperti.

Open Dialog = Untuk Membuka Gambar
Image = Untuk Menampilkan gambar gari Database

3. Untuk Proses Simpan saya menggunakan Code Append dan Post seperti dibawah ini

ADOQuery1.Append;
ADOQuery1.FieldByName('Nama').AsString:=Edit1.Text;
ADOQuery1.FieldByName('Alamat').AsString:=Edit2.Text;
ADOQuery1.FieldByName('Photo').AsString:=Edit3.Text;
ADOQuery1.Post;
FormShow(Self);

4. Sedangkan untuk menampilkan gambar dari Database saya menggunakan coding berikut yang saya letakkan di event on Form show

Image1.Picture.LoadFromFile(ADOQuery1['Photo']);

Biasanya, akan terjadi Error saat menampilkan Gambar dengan coding tersebut diatas, Jika Ekstensi gambar adalah JPG anda hanya perlu menambahkan JPEG kedalam Uses anda. Jika malas ngoding, sudah saya siapkan projeknya buat anda silahkan Download disini.

Pada Postingan sebelumnya, ada seseorang yang mengomentari dan merequest sebuah aplikasi injek. Jujur saja sebenarnya saya tidak terlalu faham dan tidak mau tahu dengan aplikasi-aplikasi semacam itu. namun karena itu permintaan pengunjung, mau tidak mau dan suka tidak suka harus segera dipenuhi. hahaha :p

Pertama-tama silahkan download aplikasinya disini. Sekedar info, Coding Aplikasi ini bukan saya yang menulis, saya hanya ingin berbagi saja tentang bagaimana cara menggunakannya agar tidak terjadi Error saat dicompile karena sesuai pengalaman saya, sebuah error blcksock.dcu not found! muncul ketika saya mengcompile aplikasi ini. jadi disini saya akan sharing bagaimana cara mengatasi error tersebut.

1. Error tersebut muncul karena kita belum menambahkan komponen Ararat Synapse kedalam Library Delphi jadi pertama-tama silahkan Download komponennya disini.

2. Langkah selanjutnya adalah silahkan Extrack Hasil download ke dalam Folder C:\Program Files\Borland\synapse

3. Langkah terakhir adalah menambahkan kedalam Path Library Delphi. Klik menu Tools -> Environment Options -> Masuk ke Tab Library

Pada Sebagian Kasus, Error seperti judul diatas seringkali muncul pada Delphi setelah menambahkan komponen baru Suatu Misal setelah menginstal Alpha Skin. Sebenarnya Sebab Terjadinya Error Tersebut Sudah Cukup Jelas yaitu "File dcu tidak ditemukan". Lantas kemana File DCU nya ?

cara yang selalu saya gunakan untuk menanggulangi Error tersebut adalah dengan menambahkan Path Komponen kedalam IDE Delphi karena saya berasumsi Delphi belum bisa menemukan Lokasi Komponen yang telah kita install sebelumnya.

Cara Menambahkan Adalah Sebagai Berikut (Untuk Kasus Alpha Skin)

1. Copy Folder Alpha Skin Anda ke C:\Program Files\Borland\AlphaSkin
2. Buka Delphi kemudian klik menu Tools -> Environment Options -> Masuk ke Pallete Library


Selanjutnya kita akan menambahkan Lokasi (Path) Folder Alpha Skin kedalam Library Delphi Seperti Gambar Berikut

Sekian dari Saya. Semoga Membantu :)

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.

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.

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.

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

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.