Cara Membuat Form Login Menggunakan Delphi

Untuk keamanan suatu aplikasi dibutuhkan form login agar selain admin tidak bisa mengubah, menghapus, menambah data tanpa sepengetahuan admin. Hal ini diperlukan untuk menjaga keamanan suatu data yang sangat penting.

Pembuatan form login yang sy bahas kali menggunakan 1 username, untuk multi login insyaalloh akan segera sy posting untuk berbagi ilmu ke agan2 semua, dan sy masih belajar juga kok, hehehe ilmunya masih sedikit dibanding perkembangan ilmu teknologi yang sekarang berkembang begitu mengesankan.

Untuk pembuatan Login langkah-langkahnya sbb:

1. Buka Borlang Delphi
2. Buat tabel Database menggunkan Access dengan nama Login.
3. Buat 2 buah form, pada form1 masukkan komponen :

• 3 buah Label
• 2 buah Edit
• 2 buah Button
• 1 buah ADOConnection, Koneksikan ke database. Belum tau cara koneksi ke database klik disini
• 1 buah ADOQuery, pada Connection hubungkan ke ADOConnection, Pada SQL masukkan sintaks select * from (nama database anda)

Tampilan form Login seperti gambar dibawah ini:

 
Masukkan Coding dibawah ini :
Pada Button Login :
        with ADOQuery1 do begin
        Close;
        SQL.Clear; // bersihkan perintah sql jika ada
        SQL.Add('select * from login where nama='+
        QuotedStr(Edit1.Text));
        Open;
        end; // end with

       // jika tidak ditemukan data yang dicari maka

       // tampilkan pesan

      if ADOQuery1.RecordCount = 0 then
     Application.MessageBox('Maaf, username tersebut tidak ada', 'Informasi',
     MB_OK or MB_ICONINFORMATION)
     else begin
     if ADOQuery1.FieldByName ('paswo').AsString <> Edit2.Text
     then Application.MessageBox('Pastikan username atau password benar', 'Error',
     MB_OK or MB_ICONERROR)
     else begin
     Close;
     Form2.Show;
     end
     end;
     end;

Klik 2x pada form dan masukkan coding sbb:
procedure TF_LOGIN.FormCreate(Sender: TObject);
VAR
S : Char ;
begin
screen.Cursors[crsqlwait]:=screen.Cursors[crdefault];
S:='*';
Edit2.Text :='';
Edit2.PasswordChar:= S;
end;
 
Masukkan coding dibawah ini pada Button Close :
procedure TF_LOGIN.BitBtn2Click(Sender: TObject);
begin
Close;
end;
 
Selesai jalankan program.