Menghubungkan delphi dengan online database hosting

Menghubungkan delphi dengan online database hosting

  Desember 17, 2018    Adi Purnata

---

wah judulnya aneh ya ??
mudah-mudahan bisa dimengerti dengan sedikit penjelasan dibawah ini :

kasus ini saya dapat dari pengalaman saat membuat sistem informasi ujian online di salah satu program studi pada universitas di denpasar yang sering diakses oleh para mahasiswa dan dosen. sistem online yang berbasiskan web ini menggunakan hosting dari dicloud yang merupakan perusahaan penyedia hosting dan domain di bali yang beralamat di blahbatuh gianyar, ketika ingin melihat data-data tertentu dari database yang tidak dapat diakses melalui halaman website sistem, kita harus membuka browser dan login ke cpanel untuk mengakses database yang ada pada hosting tersebut.
menurut saya sangat membosankan dan kurang evektif  jika setiap hari melakukan proses seperti itu.
dari kasus tersebut, saya mempunyai ide untuk membuat aplikasi dekstop yang bisa mengakses database pada online hosting.

Mau tau caranya ??

saya akan jelaskan secara singkat apa saja yang diperlukan untuk mengakses database pada server hosting.

hal pertama yang perlu disiapkan adalah :



1. Buka aplikasi delphi dan desain form seperti dibawah :

pada form kita membutuhkan 4 komponen delphi antara lain :
- 1 komponen ZConnection dan 1 Komponen ZQuery (download Zeos Access Komponen di google)
- 1 Komponen Datasource (Tab komponen Data Access)
- dan 1 Komponen DBGrid (Tab komponen Data Control)

masing-masing komponen memiliki fungsi yang berbeda.
pada tutorial ini, kita tidak akan melakukan koding sedikitpun yang kita perlukan hanya melakukan pengaturan pada setiap komponen.

setelah semua komponen terpasang pada form, kita lakukan pengaturan awal pada komponen ZConnection, ini yang akan menjadi sumber koneksi untuk menghubungkan aplikasi dengan database server hosting.

pilih komponen Zconnection dan atur propertiesnya pada Object Inspector :

Database :
(isi nama database yang mau diakases sesuai nama database pada server hosting)

Hostname :
(isikan alamat shared IP Address yang ada pada General Information server hosting - bisa dilihat di cpanel)

Password :
(isikan password database server hosting)

Port :
(isikan port database server hosting - umumnya 3306)

Protocol :
(isikan protocol database - pilih mysql)

User :
(isikan user database pada server hosting)


kurang lebih seperti gambar dibawah :

nah setelah itu, kita atur properties connected Zconnectionnya dari False menjadi True
jika tidak muncul error, berarti koneksi ke server hosting berhasil.

untuk itu kita buktikan dengan mengakses salah satu tabel pada database

sekarang atur properties komponen Zquery pada object inspector :

Connection :
(pilih Zconnection1)

SQL :
(isikan kode untuk menampilkan data pada tabel tertentu contoh select * from tb_nama_siswa)

Active : jadikan True

setelah itu, kita atur properties komponen DataSource :
Dataset : Pilih Zquery1

untuk komponen DBgrid pada properties Datasource pilih : DataSource1

nah....seharusnya DBGrid sudah menampilkan field-field dari tabel yang diakses tersebut

Silahkan jalankan/Run aplikasi tersebut. dan data pada tabel database server hosting sudah bisa kita akses dengan aplikasi dekstop.

Note : sebelumnya tambahkan host pada pengaturan Remote MySQL pada Cpanel hosting.
host yang dimaksud adalah, IP Public pada pc.


semoga tutorial ini bermanfaat, semoga bisa dikembangkan menjadi aplikasi yang lebih sempurna.

sekian tutorial dari Idea dan terimkasih atas waktunya untuk membaca artikel ini

Read More

Input Angka / Huruf Saja - Delphi

Input Angka / Huruf Saja - Delphi

  Desember 11, 2018    Adi Purnata

---

Bicara masalah programming memang tidak ada habisnya ya ...!!!

tutorial kali ini saya akan membahas mengenai bagaimana caranya agar inputan hanya bisa angka saja atau sebaliknya hanya untuk huruf saja.

pada sebuah aplikasi validasi ini sangat diperlukan untuk menghindari inputan yang salah dari user (user/human error) contoh sederhanya seperti ini :
pada aplikasi formulir digital ada beberapa kolom isian yang seharusnya diisi dengan nilai numeric saja, misalnya kolom nomor telepon, jika aplikasi tidak memiliki validasi seperti ini, maka kolom nomor telepon yang diisi dengan huruf akan tersimpan pada database, sehingga proses simpan ke database akan memberikan informasi kesalahan.

okey...kita lanjut ke topi bahasan.

langkah awal yang dilakukan untuk membuat inputan angka atau huruf saja adalah :

1. Siapkan form dengan komponen seperti gambar dibawah :

 

form diatas menggunakan 2 komponen Label dan 2 komponen Edit

2. Setelah itu kita buat source codenya pada komponen Tedit yang khusus untuk inputan angka saja,
seleksi atau sorot komponen Tedit1 dan pilih event pada object inspector dan double klik event OnKeyPress

dan sisipkan kode seperti ini :

if not (key in['0'..'9',#8,#13,#32]) then

 begin

   key:=#0;

   showmessage('inputan hanya angka bro');

 end;

dengan cara yang sama pada komponen Tedit yang khusus untuk inputan huruf saja, kita sisipkan kode seperti dibawah ini pada event OnKeyPress

if not (key in['a'..'z','A'..'Z',#8,#13,#32]) then

 begin

   key:=#0;

   showmessage('inputan hanya huruf bro');

 end;

Sehingga ketika program dijalankan, hasilnya akan seperti gambar dibawah :

nah ngerti kan maksudnya apa ?

jadi kode yang kita sisipkan pada event OnKeyPress tadi fungsinya adalah untuk menghandel ketika ada inputan masuk sesuai statement if diatas maka pesan error tidak akan keluar, begitu juga sebaliknya.



Sedikit penjelasan,

#8 adalah kode ascii dari tombol BackSapce(hapus)
#32 adalah kode ascii dari tombol Space(spasi)
#13 adalah kode ascii dari tombol Enter
jadi meskipun cuma bisa menerima input huruf/angka saja, tapi tombol diatas juga diperlukan

sekian tutorial kali ini, terimakasih atas waktunya sudah mau membaca artikel ini dari atas.

semoga tutorial ini bermanfaat

salam idea

 

Read More

Fungsi Terbilang - Delphi

Fungsi Terbilang - Delphi

  Desember 10, 2018    Adi Purnata

---

Kali ini saya akan bagikan source code bagaimana cara membuat fungsi terbilang pada pemrograman delphi, sebelumnya fungsi terbilang ini sering dipakai ketika membuat report (laporan) atau nota pada program kasir dimana fungsinya untuk menjelaskan secara tulisan nominal angka yang di keluarkan atau di inputkan.
contoh sederhanya seperti ini :

Nilai Total Belanja = Rp. 52.000,00
Nilai Terbilang = Lima Puluh Dua Ribu Rupiah

sebenarnya fungsi ini sudah lama dipakai para programmer, dan fungsi yang saya cantumkan ini juga hasil dari googling 5/6 tahun lalu saat sering mengerjakan projek aplikasi kasir.

okey langsung saja kita praktekan :
hal pertama yang harus dilakukan adalah mendesain form sederhana seperti ini :












pada gambar diatas kita menggunakan komponen standard pada delphi 7

2 komponen Label
1 komponen Edit
1 komponen Button

atur properties caption  masing-masing komponen

setelah itu, buatlah sebuah fungsi seperti dibawah ini :

---

implementation

function terbilang(dNumber: Extended): string;

const

 aNum: array[1..9] of String = ('satu', 'dua', 'tiga', 'empat', 'lima', 'enam', 'tujuh', 'delapan', 'sembilan');

 aUnit: array[1..5] of String = ('trilyun', 'milyar', 'juta', 'ribu', '');

var

 iCount, iDigit1, iDigit2, iDigit3: Integer;

 sNum2Str, s3Digit, sWord: string;

begin

Result := '';

 if (dNumber=0) then Exit;

 sNum2Str:=Copy(Format('%18.2f', [dNumber]), 1, 15);

 for ICount:=1 to 5 do

 begin

 s3Digit:=Copy(sNum2Str, iCount*3-2, 3);

 if (StrToIntDef(s3Digit, 0)<>0) then

 begin

 sWord:='';

 iDigit1:=StrToIntDef(Copy(s3Digit, 1, 1), 0);

 iDigit2:=StrToIntDef(Copy(s3Digit, 2, 1), 0);

 iDigit3:=StrToIntDef(Copy(s3Digit, 3, 1), 0);

 case iDigit1 of

 2..9: sWord:=sWord+aNum[iDigit1]+' ratus ';

 1: sWord:=sWord+'seratus ';

 end; { case }

case iDigit2 of

 2..9: sWord:=sWord+aNum[iDigit2]+' puluh ';

 1: case iDigit3 of

 2..9: sWord:=sWord+aNum[iDigit3]+' belas ';

 1: sWord:=sWord+'sebelas ';

 0: sWord:=sWord+'sepuluh ';

 end; { case }

 end; { case }

if (iDigit2<>1) then

 case iDigit3 of

 2..9: sWord:=sWord + aNum[iDigit3] + ' ';

 1: if (iCount=4) and ((iDigit1+iDigit2)=0) then

 sWord:=sWord+'se'

 else

 sWord:=sWord+'satu ';

 end;

 Result:=Result+sWord+aUnit[iCount]+' ';

 end;

end;

while Result[Length(Result)]=' ' do

SetLength(Result, Length(Result)-1);

end;

---

letakkan fungsi tersebut dibawah implementation

berikutnya pada tombol terbilang sisipkan kode seperti ini (double klik button terbilang) :

---

label1.caption:=terbilang(StrToFloatDef(edit1.Text,0));

---

penjelasanya :

label1 = terbilang

edit1 = kolom inputan nominal

jadi hasilnya ketika program dijalankan akan tampak seperti ini :

nah...ngerti kan maksud saya ?

ketika tombol terbilang di tekan label1 akan berubah properties caption nya dan menuliskan berapa terbilangnya nominal yang diinputkan pada komponen edit.


simple dan bermanfaat bukan....?
silahkan teman-teman sekalian coba dan terapkan pada aplikasi yang teman-teman kerjakan, semoga tutorial kali ini bermanfaat.

Sala


 

Read More