Cara Membuat Form Login Sederhana dengan Borland Delphi 7

Cara Membuat Form Login Sederhana dengan Borland Delphi 7

Halo sahabat, jumpa kembali dengan Daily Programmer.

Minggu lalu kita sudah berkenalan dan belajar sedikit dengan software Borland Delphi 7. Kali ini saya akan share tentang cara membuat form login dengan menggunakan borland Delphi 7. Dalam membuat aplikasi rata-rata semua menggunakan form login, ya selain untuk proteksi agar data aplikasi kita aman, form login juga bisa berfungsi untuk membedakan user yang menggunakan aplikasi kita.

Dalam pembuatan form login, kita bisa menggunakan database (umumnya menggunakan, karena user biasanya lebih dari satu) ataupun tanpa database (satu user).  Pertama kita akan belajar dari yang simple dulu, yaitu form login tanpa database, langsung saja ikuti tutorial di bawah ini

A. Membuat Form Login Tanpa Database

1. Buka Aplikasi Borland Dephi7

2. Buat New Form dan simpan pada folder tersendiri (ingat nama project dan form tidak boleh sama, dan tanpa spasi, gunakan “_” untuk memisahkan karakter).

3. Tambahkan 3 buah label, 2 editText, dan 2 buah buttoon dan atur komponen seperti gambar di bawah ini

4. Selanjutnya, buatlah 1 form lagi untuk form utama setelah kita berhasil login, klik File à New à Form, kemudian tambahkan 1 label dan simpan dengan nama “utama”.

5. Kembali ke form login, kemudian klik File à Use Unit àutamaàKlik OK

6. Langkah selanjutnya yaitu memberikan koding pada komponen button, sebelumnya pastikan dulu Edit1 sebagai field username, Edit2 sebagai field password, Button1 sebagai button login, Button2 sebagai button cancel. Jika sudah maka double klik pada Button1 (tombol login), kemudian paste kan list program di bawah ini

procedure TForm1.Button1Click(Sender: TObject);

begin

  if (edit1.Text='admin') and (edit2.Text='admin') then

    begin

      form1.Hide;

      form2.Show;

      form2.label1.caption:='Selamat Datang '+ edit1.Text;

    end

  else

    begin

      showmessage('Username dan Password Salah!');

      edit1.Text:='';

      edit2.Text:='';

      edit1.SetFocus;

    end;

kemudian double klik pada button2 (cancel), dan tambahkan list program di bawah ini

procedure TForm1.Button2Click(Sender: TObject);

begin

  application.Terminate;

end;

7. Kemudian Save dan Run. Jika berhasil maka akan tampil seperti ini

8. Untuk stop program klik menu RunàProgram Reset

9. Selesai. Form login tanpa database telah berhasil kita buat

B. Membuat Form Login degan Database

Untuk membuat form login dengan database pertama kita harus menyiapkan dulu database yang akan kita pakai sebagai penyimpanan data user. Untuk database bebas bisa menggunakan mySQL atau Micosoft Access, kali ini yang paling mudah kita akan gunakan database Ms. Access. Untuk membuat database ikuti langkah-langkah berikut

1. Buka Aplikasi Micosoft Access

2. Klik new Blank Document, kemudian browse (arahkan ke folder aplikasi kita).

3. Save dengan nama db_login dan save type ganti ke ms access 2000 (.mdb).

4. Klik View, kemudian masukkan nama table (t_login), dan buat field seperti gambar dibawah ini

5. klik View, akan muncul warning save, klik OK saja

6. kemudian tambahkan data 2 atau lebih untuk memastikan program bisa berganti user dan klik save.

Setelah database terbuat maka sekarang kita buka aplikasi borland Delphi kita, buat form dan komponen seperti langkah 1-6 pada tutorial membuat form login tanpa database, jika sudah kemudian kita lanjutkan ke langkah selanjutnya.

1. Tambahkan ADOConnection dan ADOQuery (terdapat pada tab komponen ADO) pada form login

2. Klik ADO Connection kemudian kita beralih ke Object Inspector di sebelah kiri.

3. Klik Connection String (klik titik 3 disebelahnya), akan muncul window baru, klik Build.

4. Pilih Microsoft Jet 4.0 OLE DB Provider, dan browse database yang kita buat tadi, kemudian Open, klik test connection, jika berhasil klik OK

5. Ubah Login Prompt (pada object inspector) dari True menjadi False, kemudian ubah Connected dari False ke True

6. Selanjutya klik pada ADOQuery, ubah Connection menjadi ADOConnection1, kemudian pilih SQL pada object inspector klik titik 3 disamping dan masukkan “select * from `t_login`” tanpa tanda petik (“)  dan klik OK

7. Ubah Active dari False menjadi True

8. Setting database selesai, langkah selanjutnya yaitu coding. Double Klik pada edit1 dan tambahkan list dibawah ini

procedure TForm1.Edit1Change(Sender: TObject);

begin

  with ADOQuery1 do

    begin

      close;

      sql.Clear;

      sql.Text:='SELECT * FROM `t_login` where username='+quotedstr(edit1.Text);

      open;

    end;

end;

9. Setelah selesai kemudian double klik pada button1 dan tambahkan list di bawah ini

procedure TForm1.Button1Click(Sender: TObject);

begin    

  if ADOQuery1.RecordCount = 0 then

    begin

      showmessage('Identitas tidak ditemukan!');

      edit1.Text:='';

      edit1.SetFocus;

    End

  else if ADOQuery1.FieldByName('password').AsString <> edit2.Text then

    begin

      showmessage('Username/password salah!');

      edit2.Text:='';

      edit1.SetFocus;

    end

  else

    begin

      form1.Hide;

      form2.Show;

      form2.label1.caption:='Selamat Datang '+ ADOQuery1.fieldbyname('username').AsString;

    end;

end;

10. Save dan Run, jika berhasil maka akan tampil seperti gambar di bawah ini.

Oke sekian dulu tutorial singkat mengenai cara membuat form login baik menggunakan database maupun tanpa database. Sampai ketemu di tutorial-tutorial selanjutnya, jika ada pertanyaan silahkan tulis di kolom komentar atau via email. Salam Programming.