Tutorial Delphi

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

Jujur saja, saya tahu Istilah Encode dan Decode 7Bit ini setelah belajar Perintah-Perintah AT Command dengan Delphi. hehe

Jadi Ceritanya gini, kemaren waktu belajar AT Command kan ada utilitas untuk mengecek pulsa dengan perintah AT+CUSD=1,"*123#",15+#13#10. Sudahlah, Saya juga gak tahu apa maksudnya, yang jelas untuk mengecek saldo pulsa XL. haha :D

Yang membuat saya bingung, Tutorial yang saya lihat di Blog mas Saptaji padahal sudah saya ikuti dengan benar tapi kenapa Hasil Resultnya Berbeda? Mas Saptaji Berhasil sedangkan saya Resultnya selalu saja ERROR. Owalaaahh.. 2 hari saya galau gan.

Ternyata memang ada sebagian modem yang menggunakan mode PDU dengan format GSM7-bit atau yang lebih dikenal dengan nama septet (Kurang Lebih Seperti itulah). Alhasil, Sayapun mencari-cari tahu tentang Istilah Encode dan Decode 7Bit GSM ini dan kemudian mengirim ulang perintah USSD tersebut (*123#) dengan string yang sudah di Encode sehingga menjadi AT+CUSD=1,"AA986C3602",15+#13#10. Dan Tahukah anda ternyata hasilnya Sukses Berhasil Meskipun Resultnya berupa Teks yang masih di Encode. Sayapun bisa tidur dengan nyenyak. hehe

Buat kalian yang ingin mencoba fungsi encode dan decode 7 bit ini atau mungkin karena ada masalah yang sama dengan saya. silahkan download disini. Untuk Hasilnya Seperti gambar diatas. Selamat Mencoba gan. Semoga Sukses. :)

Sum adalah sebuah Istilah yang digunakan untuk mentotal sebuah nilai. Anggap saja saya memiliki sebuah data dengan nilai sebagai berikut A = 100, B = 150, C = 200. Dengan SUM kita tidak perlu repot untuk menjumlahkan data tersebut satu persatu untuk mengetahui jumlah total nilai dari nilai data diatas. Anda tentu pernah melakukannya di Microsoft Excel Bukan ?

Hal ini dapat kita terapkan untuk menghitung total nilai pada sebuah Field pada tabel database. Anggap Saja Saya Memiliki Sebuah tabel dengan Field-Field Sebagai berikut


Pada tabel diatas, saya memiliki sebuah Field nilai yang ingin saya hitung totalnya. Bagaimana caranya ?

1. Pastikan Koneksi Database sudah OK
2. Tambahkan Sebuah Komponen AdoQuery pada Form anda kemudian atur property-nya

- Koneksi = Misal AdoConnection
- Query = select sum(nilai) from nama_tabel
- Active = True

3. Tambahkan Sebuah Komponen Datasource lalu atur property-nya

- Dataset = AdoQuery yang telah anda tambahkan pada step 2

4. Tambahkan Sebuah Komponen DBEdit kemudian atur property-nya

- Datasource = Datasource yang telah anda tambahkan pada step 3
- Data Field = Pilih Saja yang ada karena tidak ada pilihan yang lain. hehe

Untuk Memanggil Form yang lain. Coding yang umum digunakan adalah NamaForm.Show; atau NamaForm.Showmodal; kedua Coding tersebut memiliki maksud yang sama yaitu untuk memanggil form (saya tidak akan membahas perbedaannya).

Tentu ada sedikit perbedaan yang kita lihat (Antara Munculnya Form pertama dan Munculnya Form Kedua kali) jika kita menggunakan coding tersebut untuk memanggil form. Yang saya lihat adalah pada saat munculnya form kedua terlihat tidak se-Fresh pada saat Show Pertama. Saya juga gak tahu kenapa. tapi tenang, saya sudah punya solisinya untuk anda. hehe

var
  TempFrm: TForm_Yang_Akan_di_Show;
begin
  TempFrm := TForm_Yang_Akan_di_Show.Create(nil);
  TempFrm.Show;
end;

Ganti Tulisan _yang_akan_di_show dengan Nama Form yang akan Anda Show. Hasil yang akan anda peroleh adalah Berapa kalipun Form yang akan di show akan terlihat sama dengan saat pertama kali di show. Selamat Mencoba. 

Siapa Bilang Generate Komponen Ke Form Pada Saat Program Berjalan / Run Time itu tidak bisa. Jika anda adalah salah seorang yang berkata demikian maka saya yakin anda tidak pernah mencobanya atau mungkin anda tidak tahu caranya. jika demikian mari kita coba dengan cara yang pernah saya coba.

var
  B: TButton;
  E : TEdit;
  i: Integer;
begin
  for i := 0 to 9 do
  begin
    B := TButton.Create(Self);
    E := TEdit.Create(self);
    B.Caption := Format('Button %d', [i]);
    E.Parent := Self;
    B.Parent := Self;
    E.Height := 33;
    B.Height := 23;
    B.Width := 100;
    E.Left := 130;
    B.Left := 10;
    E.Top := 10 + i * 20;
    B.Top := 10 + i * 25;
  end;
end;

Chating merupakan aktivitas yang bisa dikatakan cukup menyenangkan. saat ini sudah banyak yang mendevelop aplikasi chating untuk smartphone semisal WeChat, Line dan Semacamnya Bahkan Saat ini hampir semua Jejaring Sosial sudah ada layanan Chatingnya.

Oke deh. biar basa basinya gak kepanjangan jadi langsung aja saya sharing Source Code Aplikasi Chating yang dibuat dengan Delphi. Silahkan Download disini. Sebagai bahan percobaan sudah saya uji coba di virtualbox dan berjalan lancar. Anda dapat mencobanya pada jaringan peer to peer atau jaringan Local Area Network anda.

Sebagai Tambahan. Aplikasi Sederhana ini bukan saya yang membuat. Murni Hasil Download. tapi saya lupa Download dimana soalnya sudah lumayan lama. Jadi Jangan tanyakan saya masalah codingnya. soalnya saya juga gak tahu. hahaha. Berikut Contoh Screenshoot Ujicobanya.