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:
- Buka Borlang Delphi
- Buat tabel Database menggunkan Access dengan nama Login.
- 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)
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.
Untuk download program login sederhana ini kilik disini, silahkan dikembangkan untuk belajar pemrograman delphi. Semoga bermanfaat.
0 comments:
Post a Comment
Jangan Lupa Memberikan Komentar, Namun Tolong Agar Menggunakan Bahasa Yang BAIK dan SOPAN Terima Kasih...