Membuat Form Login Pada Delphi 7

Sekedar bagi-bagi ilmu aja. Walaupun ilmu saya masih seujung kuku, kalau dibagikan kan lumayan... Nah, postingan kali ini saya coba buat tutorial tentang pemrograman di Delphi 7. Postingan yang perkenalan dulu aja, gak pake database. Kenalannya berupa 

"Membuat Form Login Pada Delphi". Namanya juga kenalan jadi gampang aja. Apalagi yg dah pernah belajar Pascal, pasti wuz...wuz... Selanjutnya, Insya Allah, saya bahas yang pake database. O ya, kalau ada yang punya saran, ide, atau kritik, tinggalkan saja jejak-jejakmu dengan mengisi comment.

Posted by Yugo Prima Ananda at Friday, February 20, 2009 03:25

Ok deh, mari kita mulai...

Silahkan Rekan-rekan sekalian buka Delphi-nya. Btw, ini diasumsikan Rekan-rekan sekalian sudah nginstall ini software. Gak perlu lah dibuat tutorial "Instalasi Delphi 7".

Nah, disitu sudah ada form baru yang namanya Form1. Caption-nya juga Form1. Kita ganti aja y biar bagusan dikit. Silahkan arahkan mouse Rekan-rekan sekalian ke Object Inspector. Biasanya di pojok kanan bawah. Nah, di tab Properties-nya cari yang namanya Caption. Trus ganti "Form1" jadi caption yang Rekan-rekan sekalian sukai. Contoh: "Silahkan Login". Nah, caption itu akan muncul di bagian atas border window (form). Coba deh...

Kemudian silahkan Rekan-rekan sekalian ganti nama formnya yang kira-kira mudah diingat oleh Rekan-rekan sekalian. misalnya "FormLogIn". Jangan pake spasi ya. Penting gitu ngganti nama formnya? Kenapa gak dibiarin aja "Form1"? Ow, penting Rekan-rekan sekalian. Soalnya kalau kita sudah ngoding banyak dengan melibatkan banyak Form, nanti kita kerepotan. jadi untuk mencegah hal yang kayak gini: "Waduh, yang itu form berapa ya? Form12 atau Form13?" Nah loe...! So, silahkan lagi lihat Object Inspector-nya. Pada tab Properties cari Name. Nah, silahkan ganti "Form1" menjadi "FormLogin". Atau terserah Rekan-rekan sekalian. Biar gak terlalu besar, Rekan-rekan sekalian bisa me-resize ukuran Form. Caranya, ya seperti Rekan-rekan sekalian me-rezise jendela pada Windows. Klik ujung border, drag deh...

Yosh, berhubung Form-nya masih kosong, mari kita tambahkan beberapa komponen. Yaitu sebuah button (untuk tombol Login/OK), 2 Label (Label ID dan password), dan 2 Edit (Edit ID dan Password). Sok atuh, arahkan mouse Rekan-rekan sekalian ke menu bar pada tab Standar. Klik Label (simbolnya huruf kapital A), terus klik Form. Labelnya akan muncul di Form. Lakukan dua kali. Klik Edit (simbolnya "ab" dan ada kursornya). Klik pada Form. Lakukan 2 kali. klik "Button" (simbolnya tombol OK), lalu klik pada Form.

Lakukan perubahan properties (lihat Objek Inspector) pada tiap-tiap komponen yang baru saja kita tambahkan:

Label1
name : LabelID
caption : ID

Label2
name : LabelPassword
caption : Password

Edit1
Name : EditNama
Text : kosongkan

Edit2
Name : EditPassword
Text : kosongkan

Nah, biar aman, kita Save dulu....

File --> Save All
Save Unit1 as --> ketikkan nama Unitnya, misal "UnitLogin.pas"
Save Project1 as --> ketikkan nama projectnya, misal "BelajarLogin.dpr"

Trus coba Rekan-rekan sekalian Run project yg telah kita buat... pencet F9 atau bisa lewat menu bar yang simbolnya mirip simbol play, tapi warnanya ijo. Hasilnya seperti ini...

Coba isikan dan klik tombilnya... Apa yang terjadi? Ya gk terjadi apa-apa lah... kita kan belum ngisi algoritma didalamnya...

trus close deh, soalnya kita mo ngelanjutin lagi...

Nah sekarang, klik File --> New --> Form

Resize ukuran form biar terlalu besar. ganti properties-nya.

Name : FormSukses
Caption : Welcome

Tambahkan komponen Label. Ganti Properties-nya

Name : LabelSukse
Caption : Welcome
pada Font klik ganda pada tulisan (TFont), akan muncul sebuah dialog box. Silahkan Utak-atik. Misal size diganti jadi 24.

Save all, namanya "UnitSukses"

Sekarang waktunya koding. Klik ganda pada ButtonLogin (nama button yang baru saja kita buat pada FormLogin). Muncul UnitLogin. Klik ganda pada ButtonLogin merupakan instruksi untuk Delphi untuk membuat sebuah prosedur click. OK, mari kita isikan perintahnya.

procedure TFormLogin.ButtonLoginClick(Sender: TObject);
begin
if (EditID.Text <> 'ono') or (EditPassword.Text <> 'ono') then
begin
MessageDlg('ID atau password salah', MTWarning, [MBOK], 0);
Exit;
end;
FmMenu.Show;
end;

Yang ditulis yang merah saja.
tips: gunakan Ctrl+Space untuk mempercepat pengetikan.

Setelah selesai kita compile terlabih dahulu. tekan Ctrl+F9.

Lho koq muncul pesan berikut?

Klik "Yes" saja. pesan itu muncul karena kita memanggil suatu prosedur (method) yang dimiliki UnitSukses (pada objek TFormSukses). Setelah kita klik "Yes" command "uses UnitSukses" secara otomatis ditambahkan.

Coba compile sekali lagi. Kalau sukses silahkan klik "Run"

Begini jadinya:
Tambahan: bila Rekan-rekan sekalian ingin saat user menginputkan password kemudian yang muncul adalah karakter asterisk (*), Rekan-rekan sekalian bisa mengganti properties-nya
EditPassword, yaitu pada PasswordChar, #0 diganti dengan *.