Membuat menu login tanpa database terlebih dahulu kita membuat dua buah
form dan sediakan juga komponen
button dan
edit
KOMPONEN
- File>>New>>form
- Dua buah komponen button masing-masing diletakan atas dan bawah lalu diberi nama "Login" dan "Cancel", (Cara mengubah nama button yang tadinya btn1 menjadi "Login" lihat pada object inspector disamping kiri Object Inspector>>Properties>>Caption>>ubah menjadi "Login")
- Dua buah edit masing-masing dilatakan atas dan bawah
- Seleksi edit yang diatas, Ubah Name pada edit masing-masing mejadi "ename" selanjutnya edit yang dibawah ubah Namenya menjadi "epass"
- Agar edit tampak kosong pilih Text>>Hapus atau pada Object inspector>>Text>>Hapus
SOURCE CODE
- Klik 2X pada "Login" isikan code berikut diantara atau ditengah-tengah begin dan end;
if (ename.text='admin') and (epass.text='123') then
begin
form2.show;
MessageBox(0,'Login sukses','informtaion',MB_OK+MB_iconinformation);
form1.Hide;
end
else
messagebox(0,'login gagal','error',MB_ok+mb_iconerror);
note : yang berwarna hijau isi sesuai keingan anda
yang berwarna biru bisa dihapus, Itu hanya sebagai jendela peringatan jika login berhasil
- Klik 2X pada Cancel isikan code berikut diantara atau ditengah-tengah begin dan end;
Application.Terminate;
- Jika ada muncul jendela information "Form 'Form1' references form 'Form2' declared in unit 'Unit2' which is not in your USES list. Do you wish to add it?" maka lipihlah "yes"
- jika sudah coba jalankan aplikasi menggunakan Run>>Run atau F9
KURANG JELAS BISA DITANYAKAN
selamat mencoba.....
Related Posts