Tutorial Delphi

Urusan Tampilan Tentu merupakan hal yang utama bagi kebanyakan orang. Dalam Merancang Sebuah Aplikasi dengan bahasa Pemrograman Delphi, Anda Dapat mempercantik tampilan aplikasi anda dengan menggunakan component Alpha Skin untuk delphi.

Pada Postingan ini admin ingin sharing component delphi yaitu Alpha skin sekaligus panduan penggunaannya. Biar gak Panjang Lebar, Bagi Anda yang belum punya componentnya silahkan Download dulu disini selanjutnya extrack file hasil download anda dan mari kita belajar cara menggunakannya

1. Buka Delphi Anda
2. Klik Menu File -> Open -> Browse di File Hasil Extrack -> Cari Folder D7 -> Kemudian Buka File acntD7 -> Install -> OK



Setelah Proses Instalasi diatas selesai, Secara Otomatis component-component Alpha Skin telah ditambahkan kedalam Delphi. Biasanya akan berada pada pallete terakhir. Selanjutnya mari kita belajar bagaimana menggunakan Alpha skin.

Step 1. Masuk Ke Pallete Alpha Tools Kemudian Tambahkan Dua Buah Komponen kedalam Form Anda (sSkinManager dan sSkinProvider)

step 2. Klik 1 kali pada Komponen sSkinManager didalam Form Anda Kemudian Ubah Property pada Object inspector :

a) Skin Directory -> Cari Lokasi Folder Skin (ada didalam Folder hasil extrack)
b) Skin Name -> Ganti Sesuai Selera

Note :
- Jika terjadi Error File *.dcu Not Found, lihat solusinya disini

Kadangkala kita bosan melihat tampilan aplikasi yang kita buat dengan delphi terlihat itu itu saja.maka terlintas dibenak kita bagaimana memperindah tampilan yang kita buat dengan bahasa delphi menjadi lebih user friendly alias lebih menarik.

Nah, Pada Postingan ini Admin ingin berbagi trik untuk mempercantik tampilan aplikasi yang kita buat dengan delphi agar terlihat lebih manis. Untuk itu kita membutuhkan sebuah komponen bernama Suipack. bagi anda yang belum punya komponen-nya silahkan download disini Gratis dan Full Versi.

Selesai Download. extrack dulu foldernya kemudian Instal. Selanjutnya ikuti step step dibawah ini tentang cara menggunakan komponen Suipack.

Tahap Pertama, Buka delphi 7 Anda

Tahap Kedua, Klik Menu File -> Open -> Browse Komponen-nya pada Folder yang Sudah Anda Extrack (Pilih Folder Package -> SuiPackD7)

Tahap Ketiga, Install -> Lalu Klik OK

Statusbar biasanya digunakan untuk menampilkan Informasi dari aplikasi yang sedang dijalankan. Statusbar diletakkan dikaki aplikasi tepatnya dibagian bawah Form. Sobat dapat melihat contohnya jika sedang menjalankan Microsoft Office. Lihatlah pada bagian bawah Jendela Lembar Kerja ada disana ada informasi tentang bahasa yang digunakan, Informasi Halaman serta jumlah kata yang telah diketikan, serta Utilitas untuk melakukan Zoom ini dan Zoom Out (Office 2010 / Word).

Sebenarnya bukan hanya Microsoft Office yang menampilkan Statusbar karena rata-rata hampir semua aplikasi keren menggunakan Satusbar. Di Delphi, Untuk Membuat Statusbar tidaklah begitu rumit. Berikut Admin Ingin Sharing tentang cara penggunaan komponen statusbar pada Delphi.

1. Silahkan Tambahkan Komponen Statusbar pada Form Anda. Komponen Statusbar sendiri ada di pallete Win32

2. Pada Object TreeView -> Statusbar -> Panel -> Tambahkan sesuai Kebutuhan Anda -> Pada Contoh ini saya menggunakan 3 Panel



3. Atur Lebar Panel Pada Object Inspector -> Width = Sesuai kebutuhan
4. Untuk Menambahkan Teks, Silahkan Masuk Ke Event FormCreate dan Tambahkan Code ini :

StatusBar1.Panels[0].Text:=' Ini Contoh';
StatusBar1.Panels[1].Text:=' Penggunaan Komponen';
StatusBar1.Panels[2].Text:=' Status Bar Pada Delphi';

Form Login Sering digunakan untuk memprotek aplikasi agar tidak dapat digunakan oleh sembarang orang. Biasanya dalam Proses login akan meminta authentikasi Username dan Password. Untuk Keamanan Proses Authentikasi. Biasanya Programmer akan menambahkan Metode Ekripsi / Hash didalamnya. Metode Hash sendiri Salah satunya adalah dengan MD5.

Pada Postingan ini Admin Mau Sharing tentang cara membuat Form Loading sederhan Dengan MD5 di Delphi.Sebelumnya. Anda Membutuhkan Komponen-nya. Silahkan Download Disini Selesai Download Silahkan ditambahkan. Hasil Penambahan biasanya langsung berada di pallete terakhir. Jika Anda Berhasil, Nama Palletenya adalah (Kiyat).

Silahkan Tambahkan Komponennya kedalam Form Anda !

Untuk Desain Tampilan Saya Seperti ini :


Selanjutnya pada tombol login. tambahkan Code dibawah ini :

var
user,pass : string;
begin
user:=MD51.MD5Print(MD51.MD5String('admin'));
pass:=MD51.MD5Print(MD51.MD5String('masuk'));
If (MD51.MD5Print(MD51.MD5String(Edit1.Text))=user) and (MD51.MD5Print(MD51.MD5String(Edit2.Text))=pass) then
ShowMessage('Login Berhasil !!') else
ShowMessage('Login Gagal !!');
end;

Akan Lebih Bagus Jika anda mengganti Property Edit Password menjadi Password Char (*) sehingga Teks yang diinputkan akan berubah menjadi karakter *.

Sebenarnya postingan ini admin buat hanya sekedar iseng saja. Ya bisa dibilang gak penting. tapi saya kira tidak ada salah untuk berbagi pengetahuan meskipun sekecil biji sawi karena tingkat pengetahuan seseorang berbeda-beda. tidak semua orang memiliki kecerdasan yang sama (Kok Malah Ceramah Sih). Ok. Kita kembali ke topik pembahasan. Sesuai dengan judulnya kali ini admin ingin berbagi pengetahuan bagaiamana membuat kalkulator sederhana dengan menggunakan Delphi.

Sekedar info, Kalkulator yang akan kita buat hanya mampu mengoperasikan empat Operasi Matematika (Kali, Bagi, Tambah dan Kurang). Hitung-hitung Menambah pengetahuan. Untuk Desain Tampilannya tidak usah yang ribet-ribet. Punya saya sendiri seperti ini


Selanjutnya. Tambahkan Code dibawah ini dalam Tombol Proses

// STRTOINT Untuk Mengkonvert String Menjadi Integer karena pada dasarnya semua
// inputan dari edit akan dibaca string Kita perlu mengkonvert menjadi integer agar
// dapat dioperasikan secara matematis.
// Dalam Pembagian akan Menjadi FLOATTOSTR/STRTOFLOAT. karena Hasil pembagian belum tentu bilangan bulat

Edit3.Text:=IntToStr(StrToInt(Edit1.Text)*StrToInt(Edit2.Text));
Edit4.Text:=FloatToStr(StrToFloat(Edit1.Text)/StrToFloat(Edit2.Text));
Edit5.Text:=IntToStr(StrToInt(Edit1.Text)+StrToInt(Edit2.Text));
Edit6.Text:=IntToStr(StrToInt(Edit1.Text)-StrToInt(Edit2.Text));

Ok. Sudah Selesai. Silahkan dijalankan! Hasil Punya Saya Seperti Ini

Fungsi Sebuah Laporan Tentu Sudah Sobat Pahami Bukan?
Pada Postingan ini. Admin Ingin Sedikit Share Bagaimana Membuat Laporan dengan Memanfaatkan Component QuickReport Dari Delphi. Caranya Bagaimana? Ikuti saja Langkah dibawah ini :

Pertama. Dan Yang paling Utama. Pastikan Anda Sudah Memahami Bagaimana Koneksi Database Ke Delphi Berikut Tentang CRUD (Create Read Insert Update dan Delete) Data pada Database Tersebut. Kenapa Penting? Karena Report alias Laporan akan Mengambil Data Dari Database. Jika Anda Belum Faham Bagaimana Koneksi Database dan CRUD Data Silahkan Baca Postingan Sebelumnya !

Kedua, Silahkan Tambahkan Component QuickReport dengan Cara Klik Menu Component > Install Package > Add > Silahkan Cari Komponen-nya Pada "C:\Program Files\Borland\Delphi7\Bin" > Nama Componentnya adalah dclqrt70.bpl
Selesai Menambahkan Component Silahkan Lihat Komponen yang sudah anda tambahkan Pada Pallete Terakhir.


Ketiga, Buka Menu File > Other > Report.
Keempat, Klik Dua Kali Pada Report Tersebut Lalu Atur Sesuai Kebutuhan > Apply > OK


Kelima, Tambahkan 1 Buah AdoQuery/AdoTable (Atur Koneksinya). Selanjutnya Masuk Ke Pallete QReport > Tambahkan Beberapa Komponen QRLabel > Atur Property-nya

Keenam, Tambahkan Beberapa Komponen QRDBText > Atur Property-nya.
Yang Perlu Diganti dalam Mengatur Property dari QRDBText adalah :

Dataset dan DataFiled pada Object Inspector.

Contoh Desain saya Seperti ini (Saya Memanfaatkan AdoQuery yang ada di Datamodule sehingga tidak perlu menambahkannya ke Form Quick Report)


Yang Terakhir, Untuk Memanggil laporan Yang Sudah Kita Buat Dengan Button, Tambahkan Kode ini

QReport.QuickReport2.Preview;

Hasil saya Seperti ini

Dalam Membangun Sebuah Aplikasi. Kadangkala Kita Perlu Membuka Suatu File yang berhubungan dengan aplikasi yang kita bangun. Suatu Misal membuka File Help yang banyak dibuat dengan Format *.chm meski tidak jarang berformat *.Pdf, Membuka Browser atau Kalkulator dan semacamnya. Pada Postingan Kali ini Admin Ingin Sharing tentang bagaimana membuka Sebuah File Dengan Delphi.

Tidak ada teknik khusus untuk melakukan hal tersebut diatas karena Pada Dasarnya Untuk membuka sebuah File didalam komputer dengan Coding Delphi dilakukan dengan cara menggunakan ShellApi. Untuk menggunakannya anda bisa langsung menambahkannya pada uses ShellApi.

Setelah Menambahkan Library-nya Pada Uses, kemudian anda hanya tinggal memanggil file yang akan anda buka. untuk code nya seperti dibawah ini :

ShellExecute(Handle, 'open', 'C:\Windows\System32\calc.exe',nil,nil,SW_SHOWNORMAL);

Kode diatas akan membuka tools kalkulator bawaan windows.

Letakkan Kode tersebut pada event yang anda inginkan untuk membuka file yang anda inginkan. suatu misal anda ingin membuka file pada saat penekanan tombol maka tambahkan kode diatas pada event onclick tombol tersebut. mudah bukan? selamat mencoba.

Popup Menu seringkali dibutuhkan dalam membangun aplikasi. dalam hal ini penggunaan popup menu seringkali menjadi masalah untuk mereke yang masih pemula. apalagi bagi mereka yang baru mengenal Delphi.

Popup menu yang dimaksud disini adalah menu yang muncul ketika kita melakukan klik kanan pada sebuah Program aplikasi. Iseng iseng saya membuat postingan ini siapa tahu ada yang bingung tentang cara membuat popup menu dengan menggunakan Delphi.

pada dasarnya. penggunaan Popup menu Pada delphi tidak jauh berbeda dengan menggunakan komponen main menu. Hanya saja. Ketika kita Sudah membuat menu dengan popup menu, yang kerap menjadi masalah adalah. popup menu tersebut tidak muncul ketika kita klik kanan Form Aplikasi kita. Trus Bagaimana Solusinya ?

Ternyata Sangat mudah kawan. Caranya : Klik 1 kali pada Form Aplikasi > Masuk Ke Object Inspector > didalam Object inspector isi Popupmenu dengan Popup menu yang ingin dimunculkan pada saat mengklik Form Aplikasi. Selesai.

Form Loading Smadav Itu Keren ya Ternyata. Belum Lama Ini Iseng iseng saya membuat aplikasi dan mencontek gaya Form Loading milik Smadav. Pada Postingan Kali Ini Saya Ingin Berbagi ilmu dengan sobat Delphi Tutor tentang cara membuat Form Loading Mirip SMADAV dengan Menggunakan IDE kesayangan Kita yaitu Delphi.

Form Loading Biasanya digunakan di awal aplikasi dijalankan. Progress Loadingnya akan menginformasikan proses-proses yang sedang dikerjakan sebelum membuka tampilan utama. Namun Pada Postingan ini saya hanya akan mencontohkan bagaimana memanfaatkan komponen Progressbar saja untuk membuat form loading sederhana. Oke deh, Ikuti Step dibawah ini.

Pertama. Atur Property Form Anda Seperti dibawah ini :

Property Pada Form :
BorderStyle : BsNone
Position : poScreenCenter

Tambahkan Komponen yang dibutuhkan :

1 Buah Timer ->> Ubah Interval Timer Jadi 500
1 Buah Progresbar
Komponen Label seperlunya
1 Buah XPManifest

Tambahkan Dua Buah Variabel Global

waktu,pb:integer;

Letakan Kode ini didalam TIMER (Klik 2 kali)

pb:=pb+10;
ProgressBar1.Position:=pb;
waktu:=waktu-1;
if pb=100 then
begin
form1.Close;
end;

Hasilnya Seperti ini :

Dalam Membuat Aplikasi. Kadangkala Kita Butuh Untuk Menyimpan File Data Gambar Kedalam Database Program. Suatu Misal Jika Sobat Membuat Aplikasi PMB Maka File Foto Calon MABA Tentu Perlu disimpan didalam Database. Pertanyaanya. Bagaimana Cara Menyimpan File Gambar Kedalam Database. Entah Itu Database Desktop, Acces atau MySQL.

Pertama, Tipe Field yang digunakan dalam Menyimpan File Gambar didalam Database Desktop adalah "O", Sedangkan dalam Database Acces adalah "OLE" MySQL dengan tipe "BLOB". Pokok gak Jauh-jauh dari OLE dan BLOB dahh.. huhu :)

Kedua, Tipe Gambar yang dapat disimpan adalah *.bmp
Gunakan Komponen OpenPicture Dialog untuk mengambil gambar dari file dan dan Image untuk menampilkannya.

Truss. Tahap Pengkodingan. Pada tahap ini saya Anggap Sobat sudah Faham Bagaimana Menyimpan Data Kedalam Database (Desktop, Acces dan MYSQL) Jika Belum Silahkan Baca Postingan Sebelumnya.

Jika Sudah, Koding Untuk Menyimpan Gambarnya adalah :

// Contoh Database Acces
AdoTable1.Append;
AdoTable1.FieldByName('Foto').Assign(Image1.Picture);
AdoTable1.Post;

Untuk Database yang lain silahkan disesuaikan Saja.

Sebenarnya ada Cara Lain Yaitu dengan Menyimpan Lokasi Filenya Saja pada Field Tabel Database dan ditampilkan dengan menggunakan Komponen Image.

Dalam Membuat Aplikasi. Teknik Desain Tentu Perlu dipertimbangkan Untuk Membuat Sebuah Aplikasi Menjadi Lebih User Friendly. Pada Postingan ini Admin Akan Mencoba Sharing Tentang Teknik Desain Yang Sering Admin Gunakan Dalam Membangun Aplikasi Menggunakan IDE Delphi.

Seperti Judul diatas, Pada Teknik Desain Ini Kita Akan Meletakkan Frame didalam Form. Sehingga Penggunaan Form Menjadi Lebih Hemat agar Resource Aplikasi Menjadi Lebih Kurus. ;)

Begini, Sobat Tentu Sering Membuka Website kan? didalam Website Tersebut Terdapat Banyak Menu. Jika Kita Tekan Salah Satu Menu, Hanya Bagian Isi Yang Menampilkan Isi dari Menu Tersebut yang akan Berubah (Singkatnya Hanya Isi Kontennya yang berubah).

Selanjutnya Mari Kita Mulai.

Pertama Silahkan Desain Form Anda :
1. Tambahkan 3 Buah SpeedButton
2. Tambahkan 1 Buah Toolbar dibawah SpeedButton
3. Tambahkan 1 Buah Panel


4. Tambahkan Dua Buah Frame (1. Frame About dan 2. Frame Profile)


5. Klik 1 Kali Pada Panel yang Sudah ditambahkan Pada Form 1
6. Masuk Ke Pallete Standard => Klik Frame => Tambahkan Didalam Panel


7. Pada Gambar dibawah ini Pilih Frame2 => OK


8. Ulangi Langkah 5,6,7 Untuk Frame Selanjutnya

9. Pada Event On Form Create Tambahkan Code ini :

Frame21.Visible:=false;
Frame31.Visible:=false;

10. Klik Dua Kali Pada Button Profile Lalu Tambahkan Code ini :

Frame21.Visible:=false;
Frame31.Visible:=true;

11. Klik Dua Kali Pada Button About Lalu Tambahkan Code ini :

Frame21.Visible:=True;
Frame31.Visible:=false;

Laporan Merupakan Hal yang wajib ada dalam sebuah Aplikasi. Laporan memungkinkan Data-Data yang ada didalam Database dicetak kedalam kertas. Pada Postingan Ini Admin Mau Sharing tentang Bagaimana Cara Membuat Laporan di Delphi Dengan Memanfaatkan Komponen RaveReport. Tentang Cara Membuat laporan dengan Quick Report Silahkan Baca disini.

Selain Quick Report dan Fast Report, Rave Report adalah satu komponen Default Bawaan Delphi yang dapat kita manfaatkan untuk membuat laporan. Komponennya tidak perlu anda instal karena sudah ada didalam Pallete Rave.

Pertama, Pastikan Aplikasi Anda Sudah tidak bermasalah dengan koneksi Database

Kedua, Pastikan Juga Aplikasi anda Sudah Bisa Input, Update dan Delete Data yang ada didalam Database, Jika Anda Belum Faham Silahkan Baca Postingan Sebelumnya Tentang Koneksi Database dan Input Data Dalam Database.

Ketiga, Pastikan Dalam Tabel di Database anda terdapat beberapa data.

Contoh Kali Ini Admin Akan digunakan Projek yang telah Kita Buat Pada Postingan Input, Update dan Delete Pada Database Desktop.

Langkah - Langkah Membuat Laporan dengan Rave Report

1. Tambahkan Dua Buah Komponen Pada Form (RvProject dan RvDataSetConnection) yang ada pada Pallete Rave

2. Pada Object Inspector => Ubah Property RvDatasetconnection => Dataset => AdoTable

3. Klik Dua Kali Pada Komponen RvProject

4. Klik Menu View =>



5. Selanjutnya. Klik Menu Tools => Report Wizard => Simple Table






6. Simpan/Save Report yang Sudah Anda Buat didalam Folder Projek Anda.

7. Tambahkan Sebuah Button Untuk Memanggil Report yang Sudah Kita Buat.

8. Klik 1 Kali Pada Komponen RvProject. Pada Objek Inspector Ubah Property Project File => Isi Dengan File Laporan Yang Sudah Anda Simpan Barusan.

9. Klik Dua Kali Pada Button Cetak Kemudian Tambahkan Code ini

RvProject1.Execute;

Sebelumnya Admin Sudah Membahas Bagaimana Koneksi Antara Database MySQL dengan Delphi. Jika Anda Belum Membacanya, Silahkan Lihat Disini Selanjutnya Pada Postingan Ini, Admin Mau Melanjutkan Postingan Tersebut. Setelah Kita Bersama-sama Belajar Bagaimana Koneksi Delphi dengan Database Ke MySQL, Admin Mau Sharing Sedikit Pengetahuan tentang Bagaimana Input, Edit dan menghapus data Dalam Database MySQL. Singkat Kata Kita Akan Membuat Sebuah software Sederhana CRUD Data Buku.

Sekedar Informasi tentang Proses Input, Update dan Delete pada postingan disini kita tidak akan menggunakan Query MySQL. Coding yang kita gunakan sama dengan ketika kita melakukan Proses CRUD pada database Access dan Database Desktop.

Pertama, Untuk Desain Aplikasinya Seperti Ini :

Kedua, Silahkan Membuat Database. Tentu Anda Sudah Paham Jika Membaca Postingan Sebelumnya.

Ketiga, Silahkan Dikoneksikan. Lagi Lagi Tentang Cara Mengkoneksikan ada Pada Postingan Sebelumnya.

Keempat,
Masukan Code ini dalam Buttom Simpan

ADOQuery1.Append;
ADOQuery1.FieldByName('Nomor').AsString:=Edit1.Text;
ADOQuery1.FieldByName('Judul').AsString:=Edit2.Text;
ADOQuery1.FieldByName('Pengarang').AsString:=Edit3.Text;
ADOQuery1.FieldByName('Penerbit').AsString:=Edit4.Text;
ADOQuery1.FieldByName('TahunTerbit').AsString:=Edit5.Text;
ADOQuery1.Post;

Masukan Code ini dalam Buttom Hapus :

ADOQuery1.Delete;

Masukan Code ini dalam Buttom Batal :

ADOQuery1.Cancel;

Masukan Code ini dalam Buttom Edit :

// Misal Mau Edit Penerbit
ADOQuery1.Edit;
ADOQuery1.FieldByName('Penerbit').AsString:=Edit4.Text;
ADOQuery1.Post;

Maksud Coding Update diatas adalah Value dari Field Penerbit yang dipilih pada DBGRID akan diganti dengan isi Edit4.Text; Jadi Pastikan Isi Inputan Edit4.Text itu tidak kosong sebelum melakukan Proses Edit Data.

Untuk Hasil Akhir Saya Seperti Ini :

Pada Postingan Sebelumnya Kita Sudah Membahas Bagaimana Mengkoneksikan Database Ke Delphi. Mulai dari Database Desktop, Database Acces dan Database My SQL Selanjutnya Admin Mau Sharing Tentang Bagaimana Cara Input Data Kedalam Database Acces Dengan Menggunakan Delphi. Jika Anda Belum Faham Bagaimana Koneksi Database Acces Ke Delphi, Silahkan Lihat Postingan Sebelumnya disini

Sekedar Informasi tentang komponen yang kita gunakan disini adalah sebagai berikut
- 3 Buah Komponen Edit
- 4 Buah Komponen Button
- 1 Buah Komponen Combobox
- 2 Buah Komponen Radio Button
- 1 Buah Komponen DBGRID
- 1 Buah Komponen AdoConnection
- 1 Buah Komponen Datasource

Untuk Masalah Koneksi Saya Kira Sudah Tidak Ada Masalah Lagi. Selanjutnya mari Kita Mulai Mendesain Aplikasinya.

Ceritanya Kita akan Membuat Aplikasi CRUD Data Mahasiswa. Mari kita mulai mendesain Aplikasinya. kalo Desain Saya Seperti ini :

Kedua, Buatlah Database-nya. saya kira Sudah Tidak ada masalah Lagi. Jika Tidak Baca Postingan Sebelumnya.

Ketiga, Koneksikan Database yang sudah dibuat.
Keempat, Klik dua kali Button Simpan dan Masukan Code ini :

var
jk : String;
begin
if RadioButton1.Checked=true then
jk:='Laki-Laki' else jk:='';
if RadioButton2.Checked=true then
jk:='Perempuan' else jk:='';
ADOTable1.Append;
ADOTable1.FieldByName('Nama').AsString:=Edit1.Text;
ADOTable1.FieldByName('NIM').AsString:=Edit2.Text;
ADOTable1.FieldByName('JenisKelamin').AsString:=jk;
ADOTable1.FieldByName('Agama').AsString:=ComboBox1.Text;
ADOTable1.FieldByName('Keterangan').AsString:=Edit3.Text;
ADOTable1.Post;
end;

Kelima,
Klik Dua Kali Pada Button Hapus dan Masukan Kode ini :

ADOTable1.Delete;

Klik Dua Kali Pada Button Edit dan Masukan Kode ini :

 // Misal Mau Edit Keterangan
ADOTable1.Edit;
ADOTable1.FieldByName('Keterangan').AsString:=Edit3.Text;
ADOTable1.Post;

Untuk Proses Update ini sebenarnya akan menjadi lebih bagus jika kita menambahkan Sebuah Form baru dimana data-data yang akan di update akan ditampilan pada komponen edit yang ada di form tersebut dan proses updatenyapun ada pada Form Tersebut (Button).


Klik Dua Kali Pada Button Batal dan Masukan Kode ini :

ADOTable1.Cancel;

Hasil Saya seperti ini :

Input Merupakan Sebuah Proses dimana User Memasukan data ke dalam database. Edit adalah proses memanipulasi data yang sudah ada sedangkan Delete adalah proses menghapus data. Ketiga hal tersebut bisa kita katakan sebagai proses inti dari aplikasi Pengolahan Data.

Jika Pada Postingan Sebelumnya Kita Sudah Membahas Koneksi Database Desktop Ke Delphi, Pada Postingan ini Admin ingin membahas tentang Bagaimana Menginput, Edit dan Menghapus Data Pada Database Desktop Delphi. Jika Anda Belum Paham Bagaimana Mengkoneksikan Database Desktop Ke Delphi Silahkan Baca Panduannya Pada Postingan sebelumnya disini. 

Ceritanya Kita Akan Membuat Aplikasi Sederhana CRUD Data Barang.
Pertama, Untuk Desain Aplikasi-nya Seperti dibawah ini :

Kedua, Buatlah Database-nya. Saya Kira Jika Anda Sudah Mempelajari Postingan Sebelumnya Bagian Ini Tidak akan ada masalah.

Ketiga, Mari Kita MengCoding :
1. Klik Dua Kali Pada Button Simpan Lalu Masukan Code ini :

Table1.Append;
Table1.FieldByName('KodeBarang').AsString:=Edit1.Text;
Table1.FieldByName('NamaBarang').AsString:=Edit2.Text;
Table1.FieldByName('JumlahBarang').AsString:=Edit3.Text;
Table1.FieldByName('HargaBeli').AsString:=Edit4.Text;
Table1.FieldByName('Keterangan').AsString:=Edit5.Text;
Table1.Post;

2. Masukan Kode ini dalam Button Edit

// Misal Mau Edit Nama Barang
Table1.Edit;
Table1.FieldByName('NamaBarang').AsString:=Edit2.Text;
Table1.Post;

Penjelasan tentang Coding edit diatas; Isi Field NamaBarang yang ada di Database akan diganti dengan nilai dari Edit2.Text; Jadi Pastikan Isi Edit2.Text tidak kosong.

3. Masukan Kode ini dalam Button Hapus

Table1.Delete;

4. Masukan Kode ini dalam Button Batal

Table1.Cancel;

Untuk Hasil Akhir Saya Seperti Ini :

Sesuai Judul Postingan diatas. Kali ini admin Mau Sharing Tentang Cara Mengambil atau Coding Untuk Mengambil Inputan dari DateTimePicker Pada delphi. Tentunya Penggunaan Tanggal dalam aplikasi yang kita bangun Sangat diperlukan dalam Memproses Hal hal yang berkaitan dengan pembukuan atau dokumentasi agar data-data yang diproses menjadi jelas.

suatu misal sobat ingin membuat aplikasi yang mengolah data Peminjaman Buku Perpustakaan, Aplikasi Jual Beli dan Semacamnya semua akan menggunakan tanggal; tanggal pinjam dan tanggal kembali atau tanggal jual dan tanggal beli. meski begitu sebenarnya hampir semua aplikasi membutuhkan penyimpanan data tanggal.

Pada Contoh Berikut kita akan memanfaatkan 1 Buah Komponen Button dimana Aksi pengambilan Tanggal akan diletakkan dalam Event OnClicknya, 1 Buah Komponen Date Time Picker dan 1 Buah Komponen Edit Sebagai Contoh Output dari Tanggal yang kita ambil. dari Date Time Picker.

Pertama-tama, Silahkan Desain tampilan anda seperti ini


Selanjutnya, Klik Dua Kali Pada Komponen Button Anda dan Tambahkan Code ini :

Edit1.Text:=FormatDateTime('dd/mm/yyyy',DateTimePicker1.DateTime);

Selesai. Hasil Punya saya seperti ini :

Dalam Membangun Sebuah Aplikasi. Peran Beberapa Komponen yang berbeda sangat dibutuhkan untuk menjadikan aplikasi lebih user friendly. Suatu Misal Pemanfaatan Komponen Combobox untuk memberikan User Pilihan dalam Menginputkan Agama Seperti gambar dibawah ini. Combobox juga sering digunakan untuk memilih Tanggal, Bulan dan Tahun. Meski Begitu, Semua tergantung variasi dari si Pembuat aplikasi tersebut.

Berikut Saya sharing tentang cara mengambil Inputan dari Combobox di Delphi. Ceritanya ada sebuah inputan Agama yang mana Valuenya berasal dari sebuah Combobox. Ini yang saya maksud dengan penggunaan komponen yang tepat (Pembahasan di pengenalan Delphi) akan memudahkan user dalam penggunaan aplikasi yang kita bangun. Coba deh kalau misalkan kita menggunakan komponen Edit ? User akan malas mengetikan. karena Agama yang ada di Indonesia hanya 5 dan itu tidak akan berubah maka lebih tepat jika kita menggunakan Combobox.


Trus Bagaimana Tuh Caranya Mengambil Inputan Dari Combobox ?

Pertama, Tambahkan 2 Buah Komponen (Edit dan Button). Edit, Akan Kita Gunakan Menampilkan Output. Button, Akan Kita Gunakan untuk Memproses.

Terakhir, Klik dua kali Komponen Button dan Tambahkan Code Ini :

case ComboBox1.ItemIndex of
0 : Edit1.Text:=ComboBox1.Text;
1 : Edit1.Text:=ComboBox1.Text;
2 : Edit1.Text:=ComboBox1.Text;
3 : Edit1.Text:=ComboBox1.Text;
4 : Edit1.Text:=ComboBox1.Text;
end;

Jika Anda Menginginkan Output Terlihat Setelah Anda Memilih di Combobox, Maka Letakkan Code diatas Pada Event OnComboboxChange.

Seperti yang telah Admin Jelaskan Pada Postingan-Postingan Sebelumnya. Untuk Membangun sebuah Aplikasi Besar kita tidak akan pernah lepas dengan yang namanya database. Pada Postingan Sebelumnya Admin Juga Sudah Menjelaskan Bagaimana Mengkoneksi Database Acces dan Database Desktop Ke Delphi. Maka Biar Lebih Komplit, Pada Postingan Ini Admin akan Sharing bagaimana Mengkoneksikan Database MySQL ke Delphi. Anggap saja Kita Akan Membuat software data siswa dengan database MySQL

Step 1 - Sekilas Tentang MySQL

MySQL adalah Database yang Multi Fungsi, Artinya Database ini dapat digunakan Oleh berbagai macam bahasa pemrograman entah itu java, php, Visual basic atau delphi. Karena kecanggihannya MySQL kerap menjadi Pilihan Dalam Membangun Aplikasi yang menampung banyak Data. kabarnya Untuk Data yang dapat ditampung oleh database ini hingga ratusan ribu data. Pada Saat Postingan ini dibuat, Tools-Tools MySQL berbasis Visual Sudah Banyak Kita Jumpai, entah Itu MySQL Front, HeidiSQL, PHPMyAdmin dan semacamnya. sehingga kita tidak perlu lagi mengetikkan perintah secara manual. enak bukan?. Admin Sendiri lebih condong ke PHPMyadmin Untuk Membuat Database Menggunakan MySQL.

Bagaimana Mendapatkan PHPMyAdmin ? Jawabannya adalah dengan cara menggunakan Beberapa Tools seperti xampp, appserve, vertigo serve, wampp serve. Dapat Anda Download Pada Situs Resminya.

Setelah Anda Download, Silahkan di Instal. Kemudian Jalankan Apache dan MySQL. Untuk Menjalankan PhpMyadmin, Buka Browser Anda Kemudian Ketikan alamat berikut : http://localhost/phpmyadmin

Step 2 - Membuat Database

Untuk Membuat Database di MySQL dengan Tool PhpMyadmin caranya sangat mudah. Pertama-tama Pastikan Webserver dan MySQL anda sudah jalan.


Kedua, Buka Browser Anda lalu ketikan http://localhost/phpmyadmin
Ketiga, Buat Database dengan mengetikan nama database lalu create
Keempat, Klik 1 kali Pada Database yang sudah anda buat


Kelima, Buatlah Tabel-Tabel sesuai Kebutuhan Anda. Pada Contoh Ini saya akan membuat tabel Buku dengan jumlah coloum=5.


Keenam, Isikan Keterangan Pada Masing-Masing Coloum Sesuai Keinginan Sobat


Untuk Urusan Database Kita Anggap Sudah Beres. Just For Sample. Kita Sudah Berhasil Membuat Database Belajar dengan 1 TabelBuku.

Step 3 - Koneksi Database MySQL Ke Delphi

Untuk Mengkoneksikan Database MySQL ke Delphi, Disini Kita Membutuhkan sebuah component atau software Connector ODBC dari MySQL. Anda dapat Mendownloadnya Disini. Selesai Mendownload Silahkan Diinstal. Selanjutnya



Kosongkan Passwordnya Jika Anda Tidak Menggunakan Password Pada PhpMyAdmin.
Sampai Disini Kita Sudah Berhasil Membuat Sebuah Datasource. Selanjutnya Buka delphi Anda.
Tambahkan Beberapa Komponen Pada Form Anda.

AdoKoneksi= ada di Pallete ADO
AdoQuery = ada di Pallete ADO
Datasource = Ada di Pallete DataAcces
DBGRID = Ada Di Pallete DataControl

Untuk Sementara, Begini Nih, Tampilan Form Saya

Nah, Mari Kita Atur Property Masing-Masing Komponen Untuk Mengkoneksikan database yang sudah kita buat, Caranya :

1. Klik 1 Kali Pada Komponen AdoKoneksi > Pada Objek Inspector : Login Prompt=False, Connection String=Build > Next >


2. Klik 1 Kali Pada Komponen Datasource > Pada Objek Inspector : Dataset=AdoQuery
3. Klik 1 Kali Pada Komponen AdoQuery > Pada Objek Inspector : SQL=select * from nama tabel yang berada di database, Connection=AdoKoneksi, Active=True
4. Klik 1 Kali Pada Komponen DBGRID > Pada Objek Inspector : Datasource=Datasource1
Yeeee Berhasil, Hasil Saya Seperti ini :

Jika Pada Postingan sebelumnya Admin Membahas Tentang Bagaimana Mengkoneksikan Database Desktop Ke Delphi. Maka Pada postingan kali ini Admin mau sharing tentang cara mengkoneksikan database Microsoft Acces Ke Delphi.

Karena Pemanfaatan Database dalam membangun sebuah aplikasi tidak akan dapat kita pungkiri. didalam database lah data-data akan tersimpan; Sebagai bahan referensi untuk Koneksi database Access ini kita akan memanfaatkan Komponen AdoConnection dari Delphi. Anda tidak perlu repot-repot menginstalnya karena secara Default Komponen ini sudah ada.

Jadi Kronologinya Begini, Anggap Saja Kita Akan Membangun Sebuah Aplikasi Yang akan Menampung Data-Data Teman. Singkatnya Aplikasi Buku Telepon. Jadi, Yang akan ada didalam Database adalah Tabel yang berisi Field (Nomor Urut, Nama, Alamat dan Nomor Telepon). Biar gak Panjang lebar mari kita mulai dengan membuat databasenya Terlebih dahulu dengan memanfaatkan Database Acces.

Step 1 - Membuat Database

1. Buka Microsoft Acces Sobat -> Klik Blank Database -> Berinama Database-nya -> Simpan dengan Format .mdb (2002-2003 Format) -> Create.


2. Selanjutnya Klik Menu View -> Design View -> Berinama Tabelnya -> OK
3. Dibawah Ini adalah Format Tipe Data Yang saya Gunakan :


4. Save Database Sobat (Kalo Bisa didalam Folder Projek Anda). Sampai disini Untuk Urusan database Kita anggap Sudah Beres selanjutnya mari kita koneksikan database Tersebut ke Delphi.

Step 2 - Koneksi database Acces Ke Delphi

1. Buka delphi Anda. Pada Tambahkan Beberapa Komponen Kedalam Form Anda

- Dalam Pallete Ado -> Tambahkan KOmponen -> AdoKoneksi dan Ado Table
- Dalam Pallete DataControl -> Tambahkan Komponen -> DBGrid
- Dalam Pallete DataAcces -> Tambahkan Komponen -> Datasource

Untuk Hasil Sementara Form Saya Seperti Ini :


2. Selanjutnya Mari Kita Koneksikan. Caranya :

- Klik Satu Kali Pada Komponen AdoKoneksi dalam Form -> Lihat Objek Inspector -> Pada ConnectionString -> ... -> Build


- Pilih Microsoft Jet OLE Provider -> Next -> Cari Databasenya -> Test Koneksi -> OK -> OK



- Beralih Ke Komponen AdoTable -> Koneksi Pilih AdoKoneksi

-> TableName -> Nama Tabel yang Tadi dibuat
-> Aktiv ->True

- Beralih Ke Komponen Datasource -> Dataset -> AdoTable
- Beralih Ke Komponen DBGrid -> Datasource -> Datasource1

Sampai Disini Kita sudah Bisa Mengkoneksikan Database Acces Ke Delphi. Untuk Hasil Akhir saya Seperti ini :