Membuat Form Login

| 30 March 2012 | |
Jadi ceritanya Pemirsah, Chacha itu dapet tugas dari dosen *sebut saja Pak Azis, nama disamarkan* disuruh bikin aplikasi dengan Delphi 7. Eh, bukan Chacha deng! Tapi semua anak TI UYP Semester 4. Dan tugasnya itu udah lama dikasihnya, tapi ya itu Pemirsah. Karna ada masalah yang tak kunjung usai jadi Chacha baru bikin form loginnya aja... *Bhiik*

Daaan... This is it! Form Login with Delphi 7 ala Chef Chacha! *Gkgk... semacam Chef Farah Queen yak*

1. Langkah pertama, gunakan kaki kanan. Eh, salah... (⌒˛⌒ )
Maksudnya buka aplikasi Delphi 7 *Inget ya... Delphi 7. Bukan Zuma Deluxe!* Selanjutnya buat lembar kerja baru dengan klik File > New > Form.

 Gambar 1. Membuat Lembar Kerja Baru di Delphi 7

Yepp, lembar baru sudah lahir, sekarang waktunya memberi nama *Ubah property* di Object Inspector ubah property Caption menjadi "Login"  dan Name-nya adalah "FormAwal". Kalo sudah simpanlah dengan klik File > Save All. Kenapa Save All? Biar semua kesimpen donk! Gimana sih... ( ˘͡ -˘͡)

2. Form-nya terlalu polos yak? Bisa ditambah gambar ato enggak sih? Jawabnya : Bisa. Biar Form yang kita buat jadi lebih menarik getoh, caranya tambahkan komponen Image yang simbolnya kek gini: yang ada di tab Additional lalu drag ke lembar kerja yang tadi. Lalu di property-nya cari property Picture dan klik browse, maka jeng jeng jeng! Muncullah jendela Picture Editor. Klik Load... dan pilih lokasi gambar yang pengen dipakek. Kalo udah klik OK. Muncul kan gambarnya? Tapi kok gede banget yah? Ubah property Proportional-nya menjadi True dan lihat apa yang terjadi.

3. Langkah selanjutnya tambahkan komponen Label : dari tab Standart sebanyak 2 ekor buah. Ubah Caption masing-masing dengan nama "Username" dan "Password" *Sesuai selera lah ya...* Jangan lupa mengubah nilai Transparent menjadi True. Karena tadi kita memakai background Image, jadi biar background Label-nya gak keliatan kita buat jadi transparan.

4. Kalo udah tambahkan 2 buah komponen Edit : masih dari tab Standart juga. Nilai property masing-masing:
Edit1 > Name : EdName
             Text : Kosongkan
Edit2 > Name : EdPass
             Text : Kosongkan
             Password Char : *

5. Pindah ke tab Additional tambahkan komponen BitBtn : . Kenapa gak pakek Button yang ada di tab Standart? Buat Chacha yang suka merias aplikasi yang Chacha bikin, BitBtn lebih menarik karena bisa ditambahkan gambar, sedangkan Button yang di tab Standart gak bisa. Caranya? Ubah dulu propertiesnya:
Name : BitBtnName
Caption : &Login
Kind : bkOK

6. Yang selanjutnya adalah memberikan script pada komponen BitBtn. Tanpa script form kalian gak akan bisa dieksekusi. Di Object Inspector milik BitBtn pilih tab Events dan pilih events OnClick *Maksudnya adalah perintah akan dijalankan ketika tombol BitBtn sudah di-klik* Klik 2x di events tersebut dan tuliskan script di bawah ini:

procedure TFormAwal.BitBtnNameClick(Sender: TObject);
begin

if (EdNama.Text = 'icha') and
(edPass.Text = 'imut') then
Application.MessageBox('Login Ditolak!', 'Warning!', 0);
exit;
end;
MenuUtama.Show
end.

Maksud dari script di atas adalah yang bisa login ke dalam aplikasi adalah user yang memiliki nama "icha" dan password "imut". Selain nama itu maka akan muncul MessageBox yang memperingatkan bahwa login ditolak. Huruf yang dicetak tebal di dalam script adalah script yang sudah disediakan oleh Delphi. Untuk perintah "MenuUtama.Show", MenuUtama adalah nama form yang ingin ditampilkan setelah login berhasil dilakukan. Jadi sesuaikan dengan nama form yang kalian buat aja ya. Kalo udah coba di-run. Sukses? SELAMAT! \(\^,^) (^,^/)/

Ini adalah hasil dari form yang kita buat tadi *Tapi versi Chacha* :

 Gambar 2. Tampilan Form Login

Gimana? Mudah ato susah? Mudah aja lah ya, masih awal kok. Pokoknya berusaha terus sampek bisa. c3mungudH!  (•̀_•́)ง

2 comments:

Newer Post Older Post

© Design 1/2 a px. · 2015 · Pattern Template by Simzu · © Content chaBAGUS