Jumpa lagi teman, sekedar sharing nih. Lagi2 berlatar belakang kasus yg saya alami sendiri.

Seorang klien meminta saya membuat aplikasi desktop. Ok tanpa pikir panjang sy langsung pilih Tool favorit saya, Borland Delphi 7. 

Kebanyakan pada setiap aplikasi desktop yang didalamnya terdapat proses login, jika login gagal maka muncul kotak dialog. Lebih aneh lagi setelah muncul kotak dialog berisi pesan “maaf, username dan password tidak valid” lalu tiba2 close atau application terminate. Ternyata client sy satu ini tidak menyukai hal ini. “Masa setiap kali login gagal harus buka lagi programnya dari awal sih, bgmn ni mas hangga, yang praktis donk. seperti di web itu lho..” Kata klien sy.

Tanpa basa-basi langsung sy jawab “Ooo Bisaa..”.

Oke deh sedikit memutar otak. Sy pun tahu maksud klien sy agar tiap kali login gagal tak perlu membuka aplikasi kembali. Sevhingga pesan login gagal sy tampilkan dalam form login seperti validasi form dalam web.

Sy buat form login sy beri nama frmLogin, lalu sy simpan unitnya dg nama Login.pas(sy memang kurang disiplin dalam aturan standarisasi coding). Lalu sy buat function di dalam unit login.pas tapi diluar class TfrmLogin agar fungsi ini bisa di akses dari luar unit. Ini fungsinya.

Keterangan
variabel sRes = Untuk menampilkan Pesan jika login gagal;
variabel btResult = Untuk menyimpan hasil ModalResultnya, jika MrOk hasilnya true selain itu false;
Resultan fungsi ini adalah bolean berisi hasil query di tabel PENGGUNA di database

lalu sy buka file dpr nya dan sy modifikasi sedikit. Seperti biasa, hilangkan semua Application.CreateForm( ) dan sisakan yg perlu saja. Kemudian sy buat procedure GoLogin yg didalamnya ada function proses_login() yg dipanggil dari unit login.pas tadi.

Saya coba dan Alhamdulillah berhasil.