Cara Membuat Form Login Pada Delphi Dengan Database Access

syntaxdelphi.blogspot.com – Pada kesempatan kali ini saya akan menjelaskan cara membuat form login pada delphi dengan database access. Seperti yang sudah saya jelaskan dipostingan sebelumya yang berjudul cara membuat form login tanpa database pada delphi disitu dituliskan bahwa form login pada delphi berfungsi sebagai hak akses admin untuk masuk ke dalam sistem atau program, dan juga dipostingan sebelumnya yang saya tidak menggunakan database sebagai tempat penyimpanan data akun admin akan tetapi akun langsung dideklarasikan didalam syntax. Berbeda dengan postingan saya kali ini saya akan menggunakan database access sebagai tempat penyimpanan data akun adminya.

Atikel Terkait:

Cara Mebuat form login tanpa database pada delphi

Database access adalah sebuah DBMS (Database Management System) yang berfungsi untuk menyimpan data berupa data string dan numerik. Akan tetapi untuk bisa menyimpan data pada access melalui program aplikasi delphi access dikoneksikan terlebih dahulu dengan delphi. Cara untuk mengkoneksikannya yaitu dengan menggunakan komponen yang sudah tersedia didalam delphi yaitu dengan menggunakan ADOConnection.

Setelah access terkoneksi dengan delphi maka selanjutnya yaitu kita harus memilih tabel yang ada dalam database tersebut (*Biasaya didalam 1 database terdapat satu atau beberapa tabel*) dengan menggunakan ADOQuery.

Untuk lebih jelasnya tentang cara membuat form login pada delphi dengan database access silahkan simak langkah - langkahnya dibawah ini: 

#1. Langkah pertama buat terlebih dahulu database di MS Access lalu tambahkan tabel baru dan buat 2 field. Field 'Username' dan 'Password' yang panjang karakternya boleh kalian sesuaikan sesuai keinginan.

#2. Setelah selesai membuat database sekarang kita akan mendesain form pada delphi. buat dua buah form yang masing - masing untuk form login dan ketika button login diklik maka form 2 akan muncul. Untuk desainya silahkan berkreasi sendiri, dan tambahkan  atau bisa lihat contoh dari saya dibawah ini:

#3. Lalu setelah itu tambahkan komponen ADOConnection, dan ADOQuery. Seperti pada gambar dibawah ini:

#4. Setelah komponen ADO ditambahkan silahkan setting propertiesnya seperti dibawah ini:

Komponen	Properties	Nilai
ADOConnection1	Connection String	...>Build>MicroSoft Jet 4.0 OLE db Provider>Next>...>Pilih DB>OK
	LoginPrompt	False
	Active	True
ADOQuery1	Connection	ADOConnection1
	SQL	Select * From namatabel;
	Active	True
Edit2	PasswordChar	*

*Untuk nama tabel sesuaikan dengan nama tabel yang kalian buat

#5. Setelah komponen ADO disetting selanjutnya dobel klik pada button login dan masukan syntax dibawah ini:

procedure TForm1.Button1Click(Sender: TObject);
begin
with ADOQuery1 do begin
  Close;
  SQL.Clear;
  SQL.Add('select * from tlogin where username='+QuotedStr(Edit1.Text));
  Open;
end;
if ADOQuery1.RecordCount=0 then
Application.MessageBox('Maaf, Username Tesebut Tidak Ada','Informasi',MB_OK or MB_ICONINFORMATION)
else begin
if ADOQuery1.FieldByName('Password').AsString<>edit2.text then
Application.MessageBox('Pastikan Password atau Usename benar','Error',MB_OK or MB_ICONERROR)
else begin
  Form2.Show;
  end
end;
end;

#6. Lalu untuk selanjutnya RUN program. Jika berhasil maka form kedua akan muncul.

Selesai. Jika masih ada yang bulum dimengerti bisa ditanyakan melalui kolom komentar :)

• 2comment

Achmad Fajar

"Musuh yang sebenarnya bukanlah orang lain, melainkan ego diri kita sendiri. Jadi, kalahkanlah ego diri kita sendiri, maka kesuksesan dapat diraih!".

Related Posts

Delphi