Tutorial Delphi

Validasi Input adalah sebuah istilah untuk mengecek keabsahan nilai sebuah Inputan Form. Hal ini akan sangat diperlukan untuk mencegah Error Program yang kita bangun. Aplikasi yang baik senantiasa akan memiliki Action handling (Penanganan Aksi), Error Handling (Penanganan Error) dan Semacamnya. Jadi Orang Buat Aplikasi itu tidak sembarangan. hehe

// Cek Jika Inputan Masih Kosong
If (Edit1.Text='') or (Edit2.Text='') then
// Tampilkan Pesan Kesalahan
MessageDlg('Ops, Inputan Anda Masih Kosong !',mtWarning,[mbok],0) else
// Jika Inputan Tidak Kosong, Lakukan Aksi dibawah
begin
// Aksinya ada disini
end;

Disini saya akan sharing Contoh Aplikasi dan Source Code Kirim SMS (Perorangan dan Group) yang dibangun dengan Delphi dan Gammu. Agar Anda tidak bingung bagaimana menggunkan Aplikasi ini, Silahkan Baca Postingan Sebelumnya tentang Berkenalan dengan Gammu dan Tutorial Setting Gammu. Silahkan Download Source Codenya disini

CARA PAKAI
- Install gammu-setup
- Setting dengan Tutorial yang ada Pada Postingan Sebelumnya disini

Aplikasi Ini di setting dengan Keterangan SBB Silahkan Sesuaikan Sendiri Komputer dan Device Anda

DEVICE
Perangkat Pengirim dan Penerima SMS = Modem Huaweii E1550
PORT Tempat Modem di COLOK = com9

DATABASE
user = root
pass = root
port = 3306
Hostname = Localhost
Nama Database = gammu

CONNECTOR DATABASE = ZEOSLib
Pada Settingan ZConnection di Property
Library Location = C:\gammu\libmysql.dll 

Pada postingan ini saya akan sharing tentang bagaimana membuat dan menghapus file *.txt biasanya untuk membuat file *.txt kita lakukan dengan menggunakan editor seperti notepad hal itu tentu tidaklah sulit karena yang melakukannya adalah editor (tools).

berangkat dari hal tersebut diatas, sepertinya menarik jika kita membuat sebuah editor sederhana yang mampu membuat dan menghapus file *.txt. biar tidak panjang lebar, berikut saya sharing screenshoot hasil akhirnya


saya minta maaf karena tidak bisa menjelaskan langkah-langkah pembuatannya pada psotingan ini. untuk itu saya hanya sharing source codenya saja pada link berikut khusus buat sobat pecinta delphi. silahkan download disini

Seperti sudah dijelaskan pada postingan sebelumnya, ZEOSLib merupakan connector database. seperti halnya ODBC, ZEOSLib juga memfasilitasi untuk melakukan koneksi ke Database MySql. rasanya kurang greget kalau kita hanya tahu teorinya saja tanpa ada implementasi untuk menggunakannya. untuk itu mari kita coba menggunakan connector ini untuk mengkoneksikan database MySQL kita ke Delphi. caranya mudah, ikuti langkah berikut :

1. Silahkan Download dan Install komponen ZEOSnya dulu. Disini
silahkan baca postingan sebelumnya tentang cara menginstal komponen di delphi

2. Buat sebuah database dengan minimal 1 tabel

3. Jalankan Delphi anda

4. Masuk ke Pallete Zeos Access dan tambahkan komponen ZConnection dan ZQuery ke Form anda
untuk property ZConnection silahkan ganti seperti berikut :

User = User MySQL anda (root)
Password = Password MySQL anda
Protokol = MySQL
Port = 3306
Library Location = C:\xampp\mysql\lib\libmysql.dll (Jika anda menggunakan xampp)
Hostname = localhost
Database = Nama Database Anda
Connected = True

5. Masuk ke Pallete Data Access dan tambahkan komponen Datasource
6. Masuk ke Pallete Data Control dan tambahkan komponen DBGRID

7. Atur Property ZQuery seperti berikut

Connection = ZConnection
SQL = select * from nama_tabel_di_database_anda
Active = True

8. Atur Property Datasource (Dataset = ZQuery)
9. Atur Property DBGrid (Datasource = Datasource1)

Hasil Akhir saya seperti ini :

Jika kita berbicara masalah tampilan aplikasi saya kira hal itu tidak akan ada habisnya mengingat teknologi yang terus berkembang dari masa ke masa. Ambil saja contoh Handphone yang dulunya hanya berwarna hitam putih dan hanya bisa untuk SMS dan Telpon Saat ini tampilan bahkan kemampuan dari sebuah handphone hampir menyerupai komputer.

Berkaitan dengan hal diatas, Saya sendiri menyadari bahwa Urusan Desain Tampilan memang hal yang paling utama untuk kenyamanan End User. Berangkat dari hal itu kali ini saya mau sharing tentang cara membuat Menu Navigasi di Delphi dengan memanfaatkan salah satu component delphi yaitu Dev Express. Sobat Tahu kan menu Navigasi itu seperti apa ? contoh hasil akhir yang kita inginkan adalah seperti di bawah ini


Cara membuatnya silahkan ikuti step-step berikut :

1. Silahkan Download dan Install component  DevExpress untuk delphi tujuh. Link Download ada pada postingan sebelumnya yang membahas cara membuat menu Office 2010 pada Delphi

2. Selesai install, silahkan buka Delphi Sobat

3. Masuk ke Pallete Win32 Tambahkan Komponen ImageList ke Form Sobat

4. Klik 2 kali Komponen ImageList kemudian Add (tambahkan 9 Icon ekstensi *.bmp atau *.ico) -> Apply -> OK

5. Masuk Ke Pallete Dev Express kemudian tambahkan komponen dxNavbar ke Form Sobat. atur property sebagai berikut :
Align = alLeft
OptionImage -> SmallImage = ImageList



6. Klik Dua kali komponen dxNavbar pada Form Sobat. Klik menu groups dan tambahkan 3 group. atur masing-masing property grup Sebagai berikut :
Caption = Terserah sobat
SmallImageIndex = Urutan gambar yang ada di ImageList / step 4 (di mulai dari 0). pilih salah satu misal 1


7. Masih pada Pengaturan dxNavbar, Klik menu Items dan tambahkan 6 Item. atur property masing-masing Item sebagai berikut :
Caption = Terserah Sobat
SmallImageIndex = Urutan gambar yang ada di ImageList / step 4 (di mulai dari 0). pilih salah satu misal 3


8. Masih pada Pengaturan dxNavbar, Klik menu Link Designer. Tambahkan Item 1 dan 2 ke Group 1, Item 3 dan 4 ke Group 2 dan Items 5 dan 6 ke Group 3 Caranya klik 1 kali pada salah satu group dan klik 1 kali pada item yang mau ditambahkan pada group tersebut kemudian klik button (+) atau bisa juga dengan drag and drop

9. Klik menu View kemudian Pilih Skin Menu Navigasi Sesuka Sobat.


10. Sampai disini, kita sudah berhasil membuat menu navigasi. akhir kata selamat mencoba :)