Buka MICROSOFT MY ACCESS disarankan memakai V2010 karena lebih mudah dalam merubah ekstensi databasenya agar terbaca oleh Delphi.
- Pada blank document, Ubah ekstensi yang semula Document.accdb menjadi Document.mdb taruh di folder dimana mudah di ingat jika perlu satu folder dengan Prpject Delphinya karena jika sembarang nantinya akan menyusahkan kita sendiri
- Selanjutnya klik pada View>>Design View pada Ribbon
- Maka akan mucul jendela peringatan Save As , Pada table name ubah menjadi "akun" lalu OK
- Di tahap ini tambahkan beberapa atribut pada Field Name diantaranya "USERNAME, PASSWORD, STATUS"
- Pada Data Type pilih "text" semua
- Sedangkan Field Size (bisa diabaikan) nantinya agar ketika menggunakan DBGRID (tidak dibahas disini) Field atau jarak antara kolom dengan kolom tidak melubar keluar dari layar
- Lalu pada Field Name pilih "STATUS" , Pada bagian Field Properties>>Lookup>>Display Control>>Yang tadinya Text Box ubah menjadi List Box
- Field Properties>>Lookup>>Row Source Type>>Ubah menjadi Value List
- Field Properties>>Lookup>>Row Source>>"admin";"user" (pakai tanda petik)
- Jika sudah sorot kursor kalian View>>Datasheet View, Jika ada mucul jendela peringatan "You Must first save the table" maka pilih "yes"
- Pada databasenya isi Username=admin, Password=admin, Status=admin
- Terus yang kedua isi Username=user, Password=user, Status=User
note : isi username dan password sesuai keinginan anda
- Sampai disini kita sudah selesai membuat databasenya selanjutnya keluarkan atau close Microsoft MY ACCESS selanjutnya beralih ke Delphi
- Buka aplikasi Delphi
- Buat dua buah form File>>New>>Form
- taruh komponen-komponen berikut kedalam form ADOconnection, ADOquery, Edit(2 buah), Button(2 buah)
- Klik 2X pada ADOconnection jika ada jendela peringatan muncul pilih Build>>Microsoft Jet 4.0 OLE DB Provider>>Next>>Cari database yang sudah dibuat tadi lalu OK
- Untuk Test Connection bisa di abaikan, Hanya saja mungkin cara ini bisa untuk mengetahui apakah database yang kita gunakan bisa dugunakan atau tidak sebab tidak maunya berjalan program mungkin ekstensi pada database itu sendiri yang tidak berformat .mdb
- Perhatikan berikut Object Inspector pada ADOconnection (IKUTI LANGKAH INI SESUAI URUTAN). LoginPrompt=FALSE, Keepconnection=TRUE, Connected=TRUE
- Terus Object Inspector pada ADOquery (IKUTI LANGKAH INI SESUAI URUTAN). Connection=Con1, SQL=(TSTRING)=isi dengan select*from akun Terakhir baru Aktive=TRUE
note : yang warna hijau kenapa jadi "akun" ini karena table yang ada pada MY ACCESS harus sama dengan SQL pada Delphi, Jika tidak maka ketika ingin mengaktifkan Querynya akan muncul jendela peringatan "The Microsoft Jet database cannot find the input table or query"yang artinya microsft tidak dapat menemukan table yang ingin digunakan pada MY ACCESS, Maka dari itu harus di sesuaikan dengan nama table pada database MY ACCESS. Jika masih bingung untuk menentukan tablenya lihat gambar di bawah
- Source code pada button Login, Klik 2X pada button Login, Taruh diantara atau ditengah-tengah begin dan end;
begin
begin
if (edt1.text='') and (edt2.text='') then
begin
application.messagebox('username dan password kosong','info',mb_iconinformation);
end
else
if edt1.text='' then
begin
application.messagebox('username tidak boleh kosong','info',mb_iconinformation);
end
else
if edt2.text='' then
begin
application.messagebox('password tidak boleh kosong','info',mb_iconinformation);
end
else
begin
if qry1.locate('username',edt1.text,[]) then
begin
if qry1.fieldbyname('password').asstring=edt2.text then
begin
if qry1.fieldvalues['status']='admin' then
begin
form2.ShowModal;
end
else
if qry1.fieldvalues['status']='user' then
begin
form3.show;
end;
end;
end;
end;
end;
end;
end;
- Setelah itu kembali lagi ke menu form dengan menekan F12
- Klik 2X pada button cancel isikan code berikut, Taruh diantara atau ditengah-tengah begin dan end;
Application.Terminate;
- Ketika kita menginput password agar text menjadi berbintang, Seleksi edt2 lalu pada Object Inspector>>PasswordChar>>* (ubah menjadi simbol bintang * )
- Selesai coba jalankan program dengan menekan F9 atau Run>>Run
MASIH BINGUNG BISA DITANYAKAN
JIKA INGIN COPAS CANTUMKAN SUMBERNYA
Selama mencoba.....
Related Posts