Tutorial Delphi

SELECT tabel1.Nama, tabel1.Jurusan, tabel2.MataKuliah, tabel2.SKS, tabel1.Nilai FROM tabel1 INNER JOIN tabel2 ON tabel1.KodeMataKuliah=tabel2.KodeMataKuliah ORDER BY tabel1.KodeMataKuliah;

SELECT tabel1.Nama, tabel2.MataKuliah FROM tabel1 LEFT JOIN tabel2 ON tabel1.KodeMataKuliah=tabel2.KodeMatakuliah ORDER BY tabel1.Nama;

Selamat Mencoba. Salam Sukses Selalu. :)

// Password Char (*) InputBox
procedure TForm1.InputBoxSetPasswordChar(var Msg: TMessage);
var
  hInputForm, hEdit: HWND;
begin
  hInputForm := Screen.Forms[0].Handle;
  if (hInputForm <> 0) then
  begin
    hEdit := FindWindowEx(hInputForm, 0, 'TEdit', nil);
    SendMessage(hEdit, EM_SETPASSWORDCHAR, Ord('*'), 0);
  end;
end;

- Buat Sebuah Procedure di atas code Private

procedure InputBoxSetPasswordChar(var Msg: TMessage); message InputBoxMessage;

- Tambahkan Constanta diatas Code type

const
InputBoxMessage = WM_USER + 200;

- Tambahkan Sebuah Button Pada Form Anda Kemudian Letakan Code ini

var
pwd : string;
begin
// Request Password
  PostMessage(Handle, InputBoxMessage, 0, 0);
  pwd := InputBox('Password Request', 'Masukan Password Aplikasi', '');
end;

- Selesai. Coba Jalankan Kemudian Klik Button Tersebut. Selamat Mencoba :)

Topik Kita kali ini adalah AdoQuery dan Ado Table. Saya tertarik untuk menulis postingan ini karena ada sebuah pertanyaan di salah satu kolom komentar Blog saya. Terima kasih ya buat yang sudah mengirim komentar. Jadi Dapet Inspirasi deh Nulis Artikelnya. hehe

Jadi Pada Dasarnya, Inti dari kedua Komponen Tersebut diatas (AdoQuery dan AdoTable) adalah Sama yaitu untuk membaca data pada Tabel Database yang kemudian di tampilkan menggunakan Komponen DBGrid. Trus Apa Bedanya ? Jika tidak ada perbedaan tentu komponen tersebut tidak akan di buat bukan? sebab rasanya satu saja sudah cukup. saat ini saya sendiri tidak pernah lagi menggunakan Komponen AdoTable Hanya karena sebuah alasan yang simpel.

Komponen AdoTable tidak bisa menjalankan Perintah Query Database sedangkan AdoQuery Bisa. Kira-kira itulah Perbedaan yang paling mencolok menurut pengamatan saya. Okelah, Kalo anda hanya melakukan Proses Input, Update dan Delete Saja pada aplikasi anda mungkin dengan AdoTable Saja cukup. Tapi Ingatlah itu tidak cukup untuk membangun aplikasi yang sesuai dengan kebutuhan Pasar karena Dengan menggunakan Query, kita dapat dengan mudah mengoperasikan data-data yang ada di Database.

Kuberikan Contoh, Suatu Misal anda punya Tabel Mahasiswa yang memiliki Beberapa Field. Sebut saja salah satu Fieldnya adalah nilai. Jika Anda Menggunakan AdoTabel, tentu untuk menghitung nilai rata-rata (Average), nilai terbesar (MAX), Total Nilai (SUM) anda akan sedikit kesulitan meskipun itu bisa saja dilakukan. Dengan AdoQuery, Anda dapat melukannya dengan mudah hanya dengan melakukan Perintah Query Seperti berikut (Anggap saja untuk menghitung nilai Terbesar pada Field nilai) :

Select MAX(nilai) from Mahasiswa  

Result dari Query diatas adalah (Hanya) Nilai Terbesar dari Tabel Mahasiswa. Simpel Bukan ?
Ada Juga saat dimana anda harus melakukan Filter data (Mengambil data Berdasarkan Parameter tertentu). Hal ini juga dapat anda lakukan dengan mudah menggunakan Query.

Bagaimana ? Sudah ada Pencerahan? Kalau belum saya kira anda harus belajar lagi tentang Query Database dan mencoba Komponen AdoQuery agar lebih Mafhum. Sukses Selalu Buat Anda. Wassalam :)

Siapa Sih yang gak tahu SMS Gateway ?

Terkadang kita perlu untuk memfilter Inputan dari User. Suatu misal hanya memperbolehkan menginputkan angka saja. Hal ini tentu saja untuk meminimalisir terjadinya Error pada program yang kita buat. Saran Saya, jangan terlalu percaya pada inputan User sebab terkadang bisa jadi seorang user Jahil sengaja menginputkan karakter aneh untuk menguji Action Handling Program anda. Lebih Lebih Jika anda membuat website. Tentu saja hal itu adalah Bug (Celah) untuk seorang Hacker.

Untuk Memfilter Inputan dari Edit Delphi, Silahkan Copas Code dibawah ini ke Event On Key Press Milik Komponen Edit Anda. Sebenarnya bisa juga diletakan di componen lain seperti Combobox dan Memo.

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

Maksud Code diatas adalah Jika yang ditekan di Keyboard bukan angka 0 Sampai 9 maka Tekan Code ASCII 8 (Back Space) yang artinya adalah hapus kemudian Tekan Lagi Code ASSCII 13 (Enter).

Oke deh. Segitu aja ya dulu. lain kali kita sambung lagi. Udah ngantuk ni. mau bobok dulu. Semoga bermanfaat dan berhasil tentunya gan. Wassalam. :)