CARA MEMBUAT PROGRAM LOGIN DI DELPHI 7 - Log masuk (login, juga biasa disebut sebagai log in, log on, logon, signon, sign on, signin, sign in) adalah proses untuk mengakses komputer dengan memasukkan identitas dariakun pengguna dan kata sandi guna mendapatkan hak akses menggunakan sumber daya komputer tujuan.
Untuk melakukan log masuk ke sistem biasanya membutuhkan:
- Akun pengguna; digunakan sebagai identitas berupa runtutan karakter yang secara unik merujuk ke pengguna tertentu.
- Kata sandi; runtutan karakter berupa kunci yang dijaga kerahasiaannya terhadap orang lain.
Kedua pasang runtutan karakter itu harus tepat dan keduanya adalah pasangan yang tidak bisa dipisahkan. Kata sandi dapat berubah sesuai dengan kebutuhan, sedangkan akun pengguna tidak pernah diubah karena berupa identitas unik yang merujuk ke pengguna tertentu.
Proses ini akan membuat sesi pada mesin tujuan untuk pengguna yang melakukan log masuk. Dalam kasus pengaksesan situs Internet, situs acapkali meletakkan kuki pada komputer pengguna.
Log keluar (logout, juga biasa disebut sebagai log out, log off, logoff, signoff, sign off, signout, sign out) digunakan untuk mengakhiri sesi.
Silahkan ikuti langkah-langkah dibawah ini :
- Buka Borland Delphi 7 anda.
- Buat tabel Database menggunkan Access dengan nama Login.
- Buat 2 buah form, pada form1 masukkan komponen :
- Setelah Muncul 2 Form tekan Alt+F11 pada form 1 dan form 2 secara begantian untuk menggabungkan kedua form, pilih unit 2 jika kita menekan F11 pada form 1 kemudian klik use unit dan pilih unit 1 jika kita menekan F11 pada form 2 kemudian klik use unit.
- Pada Form 1 tambahkan 2 Label. Pada bagian properties carilah bagian caption dan ganti namanya menjadi username dan Password
- Tambahkan 2 Edit. Pada bagian Properties carilah bagian Teks dan hapus. Sehingga muncul tampilan sebagai berikut.
- Tambahkan 2 Button. Button 1 pada bagian Properties -à Caption ganti nama jadi Log In, sedangkan pada Button 2 ubah nama menjadi Close
- Menu Label, Edit dan Button terletak pada Menu Standar di bagian atas
- Save program terlebih dahulu. Klik menu File à Save All à Pilih folder untuk menyimpanàn Pilih Simpan
- Klik ganda pada button Log In sehingga muncul tampilan sebagai berikut
Masukkan syntak program berikut : - Klik ganda pada button close. Dan tuliskan syntak sebagai berikut :
3 buah Label
2 buah Edit
2 buah Button
1 buah ADOConnection, Koneksikan ke database. Belum tau cara koneksi ke database
1 buah ADOQuery, pada Connection hubungkan ke ADOConnection, Pada SQL masukkan sintaks select * from (nama database anda)
2 buah Edit
2 buah Button
1 buah ADOConnection, Koneksikan ke database. Belum tau cara koneksi ke database
1 buah ADOQuery, pada Connection hubungkan ke ADOConnection, Pada SQL masukkan sintaks select * from (nama database anda)
procedure TForm1.Button1Click(Sender: TObject);
begin
if (Edit1.Text='And Many More') and (Edit2.Text='Corporation') then
begin
MessageBox(0,'Log In Sukses','information',MB_OK+MB_ICONINFORMATION);
Form1.Hide;
Form2.Show;
end
else
MessageBox(0,'Log In Gagal','error',MB_OK+MB_ICONERROR);
end;
begin
if (Edit1.Text='And Many More') and (Edit2.Text='Corporation') then
begin
MessageBox(0,'Log In Sukses','information',MB_OK+MB_ICONINFORMATION);
Form1.Hide;
Form2.Show;
end
else
MessageBox(0,'Log In Gagal','error',MB_OK+MB_ICONERROR);
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
Application.Terminate;
end;
end.
begin
Application.Terminate;
end;
end.
http://mulyatutorial.blogspot.com/
Semoga Bermanfaat.