Join Banyak Tabel Database dengan 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.. :)

Aplikasi Copy File Sederhana dengan Delphi

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.

Memanfaatkan ActiveX Windows Media Player di Delphi

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

Membuat Penomoran Otomatis di Delphi

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

Cek Service, Nama Komputer dan User dengan Delphi

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.

Source Code Capture Webcam dengan Delphi

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.

Disable ALT+F4 Delphi

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