Login Database dengan delphi #121

andrypein.net : Mohon maaf untuk login database dengan delphi sepertinya database explorer nya tidak tersedia di delphi XE7.

Untuk versi XE versi kebawah sepertinya masih ada, dan di postingan ini aing pake delphi ver 7 namun lojik programnya mau di versi berapapun dan database apapun tetap sama ko.

Di delphi 7 dan versi 5 dikenal database paradox, saya akan pakai itu untuk contoh aplikasi yang sekarang.

Buat tabel di db paradox trsebut dan tambahkan dua field saja NAMA, PASWOD lalu save as tabel .db nya di folder tempat projek aplikasi.

Buat form untuk percobaan aplikasi nya, lalu tambahkan datamodule dengan klik file – new – datamodule.

Q : mengapa memakai datamodule?

A : Bayangkan saja jika dalam suatu projek program database dengan form banyak dan setiap form memerlukan komponen database, maka itu namanya pemborosan, data module adalah wadah untuk menyimpan komponen nonvisual seperti komponen koneksi database, jadi satu data module untuk semua form.

Lalu pada datamodule tersebut tambahkan komponen yang diperlukan, tabel dan datasource saja.

 

Atur properties pada table dan datasource seperti ini :

Lalu tambahkan satu form kosong sebagai bukti keberhasilan jadi pada projek terdapat dua form dan satu datamodule.

Pindah ke form1 lalu klik file – use unit, pilih unitdm (datamodule), dan unit2 (form2) itu yang saya, kalo yang rekan2 tinggal sesuaikan saja.

Lalu ini yang paling penting yaitu script pada tombol login nya :

procedure TForm1.Button1Click(Sender: TObject);
begin
 if Datamodule2.tblpengguna.FieldByName('NAMA').AsString = edit1.Text then
   if Datamodule2.tblpengguna.FieldByName('PASSWORD').AsString = edit2.Text then
    begin
     showmessage('login berhasil');
     hide;
     Form2.Show;
    end 
   else 
    begin
     ShowMessage('passwod salah'); 
    end 
     else 
      ShowMessage('username tidak terdaptar');
end;

Silahkan run dan pasti berhasil, dan aing sertakan full source code nya gan silahken donlod apps login database dengan delphi nya.

Skrinsut tokcer

 

Download

*AFK