Membuat Form Login di Delphi

Apa kabar semuanya, kali ini kita akan belajar membuat sebuah login form untuk administrator, maupun operator yang lainnya dengan menggunakan database acces dan sedikit perintah SQL, karena disini kita menggunakan ADOQuery. Untuk membuat login form ini langkah yang kita lakukan adalah :


  1. Buka Microsoft Access kemunidan File --> New --> Blank Database
  2. Beri nama file dengan login, kemudian Click Create
  3. Buat satu table, dengan nama tabelnya login. Gunakan Create table in design view untuk membuat table
  4. Buat 2 Field seperti gambar di bawah. Atur Field Size seperti yang diinginkan.
  5. Isi Satu Data, misalkan username : Admin, Password : Admin, kemudian Tutup Microsoft Access nya,
  6. Sekarang Jalankan program Delphi.
  7. Tambahkan 2 Label, 2 Edit, 1 Button, 1 ADOConnection dan 1 ADOQuery kemudian atur propertynya sebagai berikut :

    Form1
    Caption Login
    BorderStyle bsDialog
    Position poScreenCenter

    Label1, Label2
    Caption User name
    Caption Password

    Edit1
    Text (Dikosongkan)

    Edit2
    Text (Dikosongkan)
    PasswordChar *

    ADOConnection
    LoginPrompt False
    Agar tampilan sesuai dengan tema Xp tambahkan komponen XPMan Sehingga setelah selesai tampilannya menjadi berikut ini :

    Koneksikan ADOConnection dengan database yang kita buat tadi dengan cara :

    • Pada Property ConnetionString di ADOConennection …
    • Kemudian akan tampil kotak dialog seperti ini, Klik Build
    • Setelah itu akan tampil Kotak dialog seperti ini, Kemudian teman – teman ketikkan nama file Acces yang teman – teman buat tadi (login.mdb)

      Kemudian klik Test Connetion, Jika connettion berhasil maka akan tampil kotak dialog seperti berikut ini :

      Jika Koneksi berhasil, silahkan teman klik OK, OK, OK dan pada property Connected pilih True
    • Klik ADOQuery, kemudian pada property Connection pilih ADOConection1. Seperti gambar Berikut ini :
    • Setelah semuanya selesai, Klik pada Button kemudian masukan kode berikut ini :
      Procedure TForm1.Button1Click(Sender: TObject);
      begin
      with ADOQuery1 do begin
      Close;
      SQL.Clear;
      SQL.Add('select * from login where username='+ QuotedStr(edit1.Text));
      Open;
      end;
      if ADOQuery1.RecordCount = 0 then
      Application.MessageBox('Maap, Username tersebut tidak ada !!!', 'Informasi',MB_OK or MB_ICONINFORMATION)
      else begin
      if ADOQuery1.FieldByName('password').AsString <> edit2.Text then
      Application.MessageBox('Pastikan Username atau Password Anda benar !!!','Error', MB_OK or MB_ICONERROR)
      else begin
      Hide;
      Form2.Show;
      end
      end;
      end;

    • Setelah Selesai Kemudian Tambahkan 1 Form lagi dengan cara File --> New --> Form.
    • Di Form 2 ini tambahkan komponen 1 Label dan 1 komponen button atur property caption masing komponen sehingga menjadi :
    • Kemudian Klik 2 Kali pada Tombol Keluar (Button 1) dan masukan kode berikut ini :
      Procedure TForm1.Button1Click(Sender: TObject);
      begin
      Application.Terminated;
      end;
      end;


  8. Setelah selesai coba jalankan aplikasi yang teman buat tadi dengan cara menekan tombol F9 di keyboard. Jika tidak ada kesalahan dalam pembuatannya tadi maka akan didapat tampilan sebagai berikut :


Mungkin itu saja dulu tutorial kali ini, untuk download file project dan tutorial lenkapnya silahkan klik link dibawah ini :
comments powered by Disqus