Membuat Form Login Pada delphi XE menggunakan database MYSQL ODBC dan Penggunaan Data Module

1.Buat database menggunakan Mysql (Xampp) dengan nama database dan nama table sbb..

Buat Table, dan isikan table seperti gambar di bawah ini..

2. Setelah database selesai dibuat, maka masuk ke ODBC, dengan settingan sbb..

Pilih dBASE File, lalu Add. Seperti gambar di bawah ini..

Pilih MySQL ODBC 5.1 Driver, lalu Finish..

Setelah itu akan muncul MySQL Connector, lalu seting seperti gambar di bawah ini, terus tekan tombol “Test”..

 Bila berhasil maka akan muncul informasi seperti gambar di bawah ini..

3. Buat Form Data Module, Pilih Data Modul-Ok..

Masukan Komponen seperti gambar di bawah ini, lalu save dengan nama U_DM..

Di komponen ADOConnection, seting pada Properties seperti gambar di bawah ini..

Pada Atribut Connection klik browser, lalu akan muncul seperti gambar di bawah ini, lali Klik Build..

Pilih Microsoft OLE DB Provider for ODBC Driver-Next..

Lalu seting seperti gambar di bawah ini, terus Klik Test Connection..

 Bila berhasil maka akan muncul seperti gamabr di bawah ini..

 4.Pada komponen ADOQuery, seting seperti gambar di bawah ini..

5.Pada komponen DataSource, seting seperti gambar di bawah ini..

 6.Buat Form1,Untuk Form Login. seperti gambar di bawah ini..

Doble klik pada button login, dan isikan sintax di bawah in..

procedure TForm1.Button1Click(Sender: TObject);

begin

if DM.User.Locate('Username;password',VarArrayOf([Edit1.Text,Edit2.Text]),[loPartialKey]) then

begin

  MessageDlg('Selamat Datang',mtConfirmation,[mbOK],0);

  Futama.Button1.Enabled := (DM.User.Fields[2].AsString = 'A');

  Futama.Button2.Enabled := (DM.User.Fields[2].AsString = 'O');

  Futama.Button3.Enabled := (DM.User.Fields[2].AsString = 'A');

  Futama.ShowModal;

  end

  else

  MessageDlg('Maaf UserName atau Password Anda Salah.!',mtError,[mbOK],0);

  Edit1.Text:='';

  Edit2.Text:='';

end; 

7.Buat Form2, untuk Pengelolaan User, lalu seting seperti gambar di bawah ini..

8.Buat Form3, Untuk Menu Utama.. seperti gambar di bawah ini.. 

Catatan : di setiap form, di bawah implementation isikan sintax. seperti gambar di bawah ini..

9. Sebelum Testing Program, Buat Akun sesuai keinginan anda. Lihat gambar..

 10. Testing Program, masukan Username : Admin dan Password : admin lalu Login. Bila berhasil maka akan tampil ucapan Selamat Datang seperti gambar di bawah ini.. 

Lalu akan masuk ke Menu Utama, di Menu Utama sendiri ada 3 button tp setelah login menggunakan User Admin maka yang akan aktif hanya button Master dan User, karena itu khusus untuk admin..

Untuk Operator dengan Username : rahman dan Password : 12345 lalu Login. Bila berhasil maka akan tammpil ucapan Selamat Datang seperti gambar di bawah ini..

Lalu akan masuk ke Menu Utama, Dan di Menu Utama ini yang akan aktif hanya Laporan nya saja, karena Login sebagai operator..

Bila Login menggunakan Username atau Password salah, maka akan muncul pemberitahuan seperti gambar di bawah ini..

Selamat Mencoba.. J