langsung saja
1. Buka aplikasi Delphi yang kamu gunakan yaitu delphi 7 dan buat lembar kerja baru dengan mengklik pada menu File | New |Form

2. Setelah muncul lembar kerja baru, pada formulir baru tersebut lakukan perubahan terhadap dua buah properties yang ada pada objek inspector berikut:
Properties Caption diisi dengan Login Admin
Properties Name diisi dengan FormAwal (tanpa spasi)

Lalu simpanlah dengan memilih File|Save dan berikan nama FAwal.
3. Setelah FAwal disimpan, selanjutnya kita menambahkan komponen. Kita perlu menambahkan lima buah komponen pada Form yaitu:
Dua buah komponen Label yang simbolnya

Untuk mengubah nama label tersebut, kita ubah pada properties caption kemudian ubah nama label tersebut. Contoh punyaku adalah Nama Pemakai dan Password.
4. Setelah label jadi letakkan dua buah komponen Edit yang simbolnya

Punyaku untuk
Edit1
Name diganti dengan EdNama
Text dikosongkan
PasswordChar tetap dengan #0
Edit2
Name diganti dengan EdPass
Text dikosongkan
PasswordChar dirubah dengan *
5. Kemudian masih pada tab yang sama, yaitu pada tab standard tadi, letakkan 1 buah Button yang simbolnya

Punyaku dirubah dengan
Button1
Name dirubah BtnLogin
Caption dirubah &Login
Berikut contoh peletakan pada form Login :

6. Setelah form jadi, untuk melaksanakan pemeriksaan terhadap password, kamu perlu menambahkan kode pada kejadian OnClick milik tombol Login. Klik ganda pada tombol Login dan tambahkan kode seperti dibawah ini:
procedure TFormAwal.Button1Click(Sender: TObject);
1
2
3
4
5
6
7
8
9
10
11
12
13
14
| begin if(EdNama.Text = 'idahceris' ) and (EdPass.Text = 'senyum' ) then FormMenu.ShowModal Application.MessageBox( 'Maaf anda tidak bisa Login. . .!!' ,'Warning’, 0 ); exit; end; end. |
7. sekarang coba kamu jalankan form yang sudah kamu buat tadi.?
sumber
0 komentar:
Posting Komentar