Membuat Form Login dengan Delphi7

Kali ini saya akan memberikan tutorial membuat form login dengan Delhi7.
Bagai mana cara membuatnya , mari saya akan menjelaskannya di bawah ini :

1. Buatlah database dari Microsoft accses, simpan dengan format.mdb dan berinama dengan login.mdb
2. Buatlah field dengan nama username dan password dan berinama table dengan nama tabel login
3. Buka Borland Delphi7. Kemudian buatlah Form dengan nama Flogin dan Fhasillogin. Fhasillogin akan tampil ketika kita klik bitbutton login.
4. Didalam Flogin Tambahkan Komponen-komponen dibawah ini:  

• 1 GroubBox
• 2 Panel
• 1 ADOConnection
• 1 ADOQuery
• 1 XPmanifest
• 2 BitButton

     5.  Atur ADOConnetion Name = Conlogin

     6.  Atur ADOQuery Name = Q_Pass, Connetion = Conlogin

     7. Sebelum Masuk ke koding tekan dulu alt+F11 untuk memunculkan fungsi uses, karena nanti akan               memunculkan Fhasillogin pada saat klik login

     8. Kemudian klik 2 kali Flogin

     9. Masukan kodingnya seperti dibawah ini

procedure TForm1.FormCreate(Sender: TObject); var s:Char; alamatdb:WideString; begin s:='*'; Edit1.Text:=''; Edit2.PasswordChar:=s; Edit2.Text:=''; alamatdb:=ExtractFilePath(Application.ExeName)+'login.mdb'; with ConLogin do begin Connected:=false; Mode:=cmShareDenyNone; ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\Perkuliahan\Project Delphi7\Login\login.mdb;Persist Security Info=False'; end; ConLogin.Connected:=true; end; procedure TForm1.bloginClick(Sender: TObject); begin with Q_Pass do begin Close; SQL.Clear; SQL.Add('select*from login where username='+QuotedStr(Edit1.Text)); Open; end; if Q_Pass.RecordCount=0 then Application.MessageBox('Maap, username tersebut tidak ada','Informasi',MB_OK or MB_ICONINFORMATION) else begin if Q_Pass.FieldByName('password').AsString<>Edit2.Text then Application.MessageBox('Pastikan username atau password benar','Error',MB_OK or MB_ICONERROR) else begin Hide; Form2.Show; end end; end; procedure TForm1.BitBtn2Click(Sender: TObject); begin Application.Terminate; end; end.

Kodingnya bisa didownload disini