Cara Membuat Menu Login Pada Database Delphi

Kali ini saya akan membagikan cara membuat menu login. Biasanya, menu login digunakan di menu awal jika kita membuat system basis data. Tujuan login sebenarnya agar data kita tidak bisa dibuka atau dirubah oleh orang lain, sehingga untuk melindunginya kita membuat login sebagai kode masuk pada database yang kita buat.

Dalam kesempatan ini, ada dua bentuk login yang saya bagikan, yakni Menggunakan Tombol dan Menggunakan Enter (bukan tombol).

Perhatikan desain di bawah ini.

Pada desain pertama, ada tombol Ok dan Cancel sebagai tombok eksekusi perintah yang kita berikan. Sedangkan pada desain kedua tidak ada tombol, jadi menggunakan Enter yang ada pada keyboard Labtop/PC Anda. Berikut adalah atribut yang digunakan pada masing-masing form.

FORM1 : Menggunakan Tombol
Atribut	Keterangan	Atribut	Keterangan
Bitbutton (1-6)	Sesuaikan	Bitbutton7	Caption: Ok
GroupBox1	Group Bitbutton (1-6)	BitButton8	Caption: Cancel
GroupBox2	Login	LabeledEdit1	Caption: User Name: e1
		LabeledEdit2	Caption: Password Name: e2

FORM2 : Enter
Atribut	Keterangan	Atribut	Keterangan
Bitbutton (1-6)	Sesuaikan	LabeledEdit1	Caption: User Name: e1
GroupBox1	Name: g1	LabeledEdit2	Caption: Password Name: e2
GroupBox2	Caption: Login Name: g2

CARA PERTAMA: Tombol Ok dan Cancel

Sekarang perhatikan desain pertama yang menggunakan tombol. Sebelumnya, double klik pada form dan ketikkan scribs berikut.

g1.hide;

Pada tombol Ok ketikkan scribs ini. (Catatan: User = Dang, Password = Aiman, bisa diganti)

if (e1.Text='Dang') and (e2.Text='Aiman')

then begin showmessage('Selamat Datang');

g1.Show;

e1.SetFocus;

g2.Hide;

end else showmessage('Mohon Maaf, User dan Pasword Anda Salah');

e1.Clear;

e2.Clear;

end;

Pada tombol Cancel, ketikkan scribs berikut.

if messagedlg (' Yakin Anda Ingin Keluar...? ', mtconfirmation, [mbYes] + [mbNo] + [mbCancel] ,0 ) = mrYes then application.Terminate;

Silahkan lakukan simulasi.

CARA KEDUA: Enter

Pada form double klik dan ketikkan.

G1.hide;

Pada Edit1 (User) pilih OnKeyPress pada Event di Object Inspector. Kemudian ketikkan kode ini.

if (e1.Text='Dang') then begin (e2.SetFocus)

end;

end;

Sedangkan pada Edit2 (Password) pada OnKeyPress-nya, ketikkan kode ini.

if (e2.Text='Aiman') then begin

showmessage('Selamat Datang');

g1.Show;

e1.SetFocus;

g2.Hide;

Lakukan simulasi.

Download Aplikasinya disini.

Terima Kasih. Semoga Bermanfaat.

Download Modul Praktikum Delphi, Matlab, SPSS, Maple, QM, dll disini.