Membuat Form Login Pada Delphi
Sekedar bagi-ibagi 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, saya bahas yang pake database. O ya, kalau ada yang punya saran, ide, atau kritik, tinggalkan saja jejak-jejakmu dengan mengisi comment.
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.
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 <> 'ID-mu') or (EditPassword.Text <> 'Password-mu') then
begin
MessageDlg('ID atau password salah', MTWarning, [MBOK], 0);
Exit;
end;
FormSukses.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.
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 *.Semoga perkenalan Delphi 7 ini bisa memberikan manfaat.
Berhubung ada yang tanya bagaimana supaya saat FormSukses muncul namun FormLogin hilang...
Ada berberapa cara untuk bisa melakukan hal itu. Kita bahas 2 cara saja ya...
Cara 1:
- Double click ButtonLogin. Dan muncul procedure TFormLogin.ButtonLoginClick beserta kode-kode yang sudah rekan-rekan tulis sebelumnya.
- Sebelum end; dari procedure tersebut tambahkan syntax berikut:
FormLogin.Visible := False;
- Coba jalankan
- Cara ini hanya menyembunyikan FormLogin, tidak mengakhirinya. Jadi ketika rekan-rekan mengklik tombol silang "X" di pojok kanan atas jendela pada FormSukses, program tidaklah berkhir...
- Lakukan langkah satu pada Cara 1.
- Sebelum kata end; dari TFormLogin.ButtonLoginClick, tambahkan syntax berikut:
FormLogin.Hide;
- Klik pada FormSukses. (Ingat pada formnya...)
- Arahkan mouse rekan-rekan sekalian ke Object Inspector dan klik pada tab Events.
- Klik pada properties OnClose. Pada bagian isiannya, klik ganda.
- Kemudian muncul procedure TFormSukses.FormClose. Isikan procedure tersebut dengan syntax:
Application.Terminate;
- Silahkan di Run.
- Dengan cara ini, ketikan FormSukses ditutup (dengan logo X pada pojok kana atas jendela), aplikasi ikut tertutup.
1 Komentar:
thank banget
Posting Komentar