Cara Membuat Form Login Pada Delphi7

Assalamu'alaikum Warohmatullahi Wabarokatuh.... ^_^, Wahh sudah beberapa bulan belakngan ini saya belum sempat memposting artikel baru di blog ini, maklum lagi sibuk dengan tugas kuliah sehingga blog ini saya vakum kan untuk sementara waktu. Nah, mumpung hari ini tugas delphi saya sudah selesai maka saya pun akan mencoba untuk menshare ilmu yang telah saya dapatkan kepada sobat sekalian.

Pembahasan delphi7 yang ini saya share disini adalah tentang bagaimana cara sederhana dalam membuat Form Login. Biasanya form login ini ada untuk bisa mengakses Sistem Informasi (SISFO) yang telah dibuat pada delphi7. Untuk membuat login delphi dapat dilakukan dengan 2 cara, yaitu dengan menggunakan microsoft access/database access dan tanpa menggunakan database access.

Perbedaan antara keduanya menurut saya adalah, jika menggunakan database access maka terlebih dahulu harus mengkoneksikan delphi7 ke microsoft access dengan menggunakan komponen ADOConnection. Penambahan user dan pass dapat dilakukan dengan menggunakan database yang dikoneksikan ke delphi7. Selain itu, dapat lebih mudah mengatur hak akses pengguna, sehingga beberapa fasilitas atau tombol pada delphi dapat dibatasi dan hanya admin yang dapat membuka seluruh fasilitas pada delphi7 tersebut. Sedangkan jika tanpa database access maka menggunakan kode syntax / perumpamaan yang sederhana serta User dan Pass dapat ditambah menggunakan kode syntax "or". Berikut cara sederhana Membuat Form Login Pada Delphi7.

Cara membuat form login tanpa database access :

1. Pilih tab component Standard 
2. Buat 2 buah text label dengan meletakkan komponen label pada form login, lalu ubah caption-nya pada Object Inspector menjadi Username dan Password.
   
   
   
   
3. Pilih Edit pada tab standard lalu letakkan 2 buah komponen Edit sebagai tempat pengisian Username dan Password pada form.
   
   
   
   
4. Hapus tulisan Edit1 dan Edit2 pada komponen Edit dengan cara menghapus Properties Text pada Object Inspector.
5. Buatlah 2 komponen Button (Standard) atau BitBtn (Additional) sebagai tombol login dan keluar lalu letakkan pada form
   
   
   
   
6. Pada Object Inspector, ganti Caption dari Button tersebut menjadi "login".
7. Sobat juga dapat mengganti jenis font dan warna font pada Object Inspector.
8. Klik 2x komponen tombol yang telah di buat lalu masukkan kode syntax berikut :
a:=(edit1.text); y:=(edit2.Text); if (a='admin') and (y='admin') or (a='elkatechno') and (y='12345') then begin Login.Hide; MenuUtama.Show; showmessage ('Anda Telah Berhasil Untuk Login') end else if Edit1.Text = ' ' then showmessage('User masih kosong') else if Edit2.Text = ' ' then Showmessage('Password masih kosong') else showmessage ('Username atau Password anda salah') end;


9. Silahkan melakukan uji coba dengan mengklik tombol Run (F9) pada delphi7.
10. Selesai.

Keterangan :

• (a='username') and (y='password')(username dan password dapat dibuat sesuai keinginan)
• Login.Hide; (Login dapat diubah sesuai nama form login)
• MenuUtama.show; (MenuUtama dapat diubah sesuai nama form yang akan ditampilkan)
• Showmessage('....') (pesan dapat diubah sesuai kalimat yang akan ditampilkan)

Cara membuat form login dengan menggunakan database access :

1. Buatlah terlebih dahulu table pada microsoft access lalu beri nama "Login"
2. Pada Microsoft Access klik kanan pada table yang telah dibuat lalu pilih design view
3. Buatlah field name berupa "Username", "Password" dan "Level" dengan data type "Short Text"
4. Setelah selesai, klik 2x tabel login lalu klik "Yes" untuk menyimpan database.
5. Buka form login pada Delphi7 
6. Buatlah komponen-komponen login seperti cara sebelumnya
7. Pilih tab component ADO lalu tambahkan komponen AdoConnection dan AdoQuery pada form login
   
   
   
   
8. Koneksikan Delphi7 dengan database access. Jika sobat belum tahu caranya, silahkan baca Cara Menghubungkan Delphi dengan Microsoft Access
9. Klik 2x tombol untuk login lalu masukkan kode berikut :
procedure Tlogin.BitBtn1Click(Sender: TObject); begin if Edit1.Text = '' then showmessage('User masih kosong') else if Edit2.Text = '' then Showmessage('Password masih kosong') Else begin With AdoQuery1 do begin Close; SQL.Clear; SQL.Add('select * from Login where username=:user and password=:pass'); parameters.ParamByName('user').Value:=Edit1.Text; Parameters.ParamByName('pass').Value:=Edit2.Text; Open; end; if not ADOQuery1.IsEmpty then begin if lowercase( ADOQuery1.FieldByName ('level').Value )='admin' then begin showmessage('ANDA BERHASIL LOGIN SEBAGAI ADMIN'); karyawan.BitBtn1.Enabled:=true; form_menu.show; form_login.hide; end else begin form1.BitBtn2.Enabled:=false; form2.BitBtn6.Enabled:=false; form3.BitBtn4.Enabled:=false; showmessage('Anda Telah Berhasil Login'); form_menu.show; form_login.Hide; end end else MessageBox(handle,'Password atau username yang anda masukkan salah !','Error',MB_ICOnerror); end; end;


10. Setelah itu lakukan uji coba tombol dengan menekan tombol Run (F9) pada delphi7
11. Selesai.

Keterangan :

• Showmessage('....') (pesan dapat diubah sesuai kalimat yang akan ditampilkan)
• form1.BitBtn2.Enabled:=false; atau karyawan.BitBtn1.Enabled:=true; (karyawan atau form1 dapat diubah sesuai nama form yang dipilih dan BitBtn1 atau BitBtn2 dapat diubah sesuai tombol yang ingin diaktifkan/true dan tidak ingin diaktifkan/false)
• form_menu.show; (form_menu dapat diubah sesuai nama form yang ingin ditampilkan)
• form_login.hide; (form_login dapat diubah sesuai nama form login sobat)

Cara Membuat Tombol Exit atau Keluar :

Setelah sobat sudah membuat tombol login, sekarang kita akan membuat tombol untuk Exit atau keluar dari aplikasi.

1. Ubah nama button dari sisa komponen button tadi menjadi "keluar".
2. Klik 2x tombol keluar tersebut lalu masukkan kode syntax berikut :
application.terminate; atau close;
3. Seletah itu lakukan uji coba dengan mengklik tombol Run (F9) pada delphi7.
4. Selesai.

Video Cara Membuat Form Login Program Delphi

Jika belum mempunyai software Borland Dalphi7, silahkan disini

Demikianlah cara membuat form login sederhana pada delphi7, semoga artikel ini dapat bermanfaat bagi sobat sekalian dan terlebih bagi mahasiswa(i) yang sedang mengerjakan tugas dasar pemrograman.

Share this post