Asalamualaikum Wr.Wb
Menjelang idul fitri besok,,,saya pengen berbagi nih sekalian belajar hehehe...
Buat teman-teman yang lagi asiiik membuat program khususnya yang berhubungan dengan Sistem Informasi Administrasi untuk sebuah instansi atau perusahaan dengan menggunakan soft Delphi rasanya kurang lengkap kalau tidak ada halaman login. (itu menurut siihmeenurut saya hehehi).
Untuk keamanan data yang kita miliki dalam sistem, halaman login ini sangat penting untuk sebuah sistem Administrasi yang kita buat, karena SI sifatnya sangat rahasia. Halaman login yang aku buat ini berisi Nama Pemakai dan Password.
Buat teman-teman yang lagi belajar atau lagi nyari – nyari tutorial tentang pemrograman Delphi, mungkin postingan ini bisa bermanfaat buat kalian, ya meskipun hanya program sederhana.
Langsung aja yuk temen2 kita buat programnya...
1. Bukalah aplikasi Dhelpi yang anda gunakan.(kalau saya sih pake Dhelpi XE2) kemudian buat lembar
lembar kerja baru dengan mengklik pada menu FILE-NEW-VCL Form Application.
2. Setelah muncul lembar kerja baru,lakukan perubahan pada dua propertis yang ada pada object
inpector sebagai berikut:
*Propertis Caption diisi dengan Login Admin
*Propertis Name diisi dengan FormAwal
lalu simpan dengan memilih File-Save dan berikan nama FAwal.
3. Setelah FAwal disimpan,selanjutnya kita tinggal menambahkan beberapa komponen pada Form yaitu:
* masukan dua buah komponen Label kedalam form baru anda.
kemudian ubah Label tersebut sesuai dengan keinginan anda.
untuk menggubahnya,kita ubah pada proertis caaption kemudian ubah nama Label terrsebut
misalnya kita rubah dengan (label1: Nama Pemakai dan Label2:Password).
* masukan dua buah komponen Edit dan letakan disamping Laabel yang kita buat tadi.
kemudian yang harus kita atur pada propertisnya yaitu propertis name,text dan password char.
Edit1
Name diganti EdName
Text dikosongkan
Password char tetap dengan #0
Edit2
Name diganti dengan EdPass
Text dikosongkan
PasswordChar dirubah dengan *
* kemudian tambahkan lagi satu buah button,dan letakan dibawah Form Edit.
rubah propertis name dan captionnya.
Name dirubah BtnLogin
Caption dirubah dengan Login
Berikut contoh peletakan pada Form Login
4. Setelah Form jadi,double klik pada tombol login kemudian tambahkan kode
seperti dibawah ini:
procedure TFormAwal.Button1click(Sender: TObject);
begin
if (EdNama.Text = 'Roy') and (EdPass.Text= 'senyum') then
formAwal.ShowModal;
application.MessageBox
('Maaf anda tidak bisa Login. . .! !','warning',0);
exit;
end;
end.
selesai deh,,
oh iya kode diatas mengasumsikan bahwa nama pemakai adalah Roy dan password-nya adalah senyum.
jika terjadi tidak kecocokan,kotak dialog yang berisi pesan "Maaf anda tidak bisa Login" akan tampil.
sekarang tinggal di run ...good luck yah?
Tidak ada komentar:
Posting Komentar