Cara Membuat Form Login Admin Pada Delphi

Cara Membuat Form Login Admin Pada Delphi- - -Membuat Log-in menggunakan delphi bisa dibilang sulit dan bisa dibilang mudah, tergantung seberapa besar anda memahami program delphi, Login adalah 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.

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
1 buah ADOQuery, pada Connection hubungkan ke ADOConnection, Pada SQL masukkan sintaks select * from (nama database anda)

1. 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.
2. Pada Form 1 tambahkan 2 Label. Pada bagian properties carilah bagian caption dan ganti namanya menjadi username dan Password
3. Tambahkan 2 Edit. Pada bagian Properties carilah bagian Teks dan hapus. Sehingga muncul tampilan sebagai berikut.
4. Tambahkan 2 Button. Button 1 pada bagian Properties -à Caption ganti nama jadi Log In, sedangkan pada Button 2 ubah nama menjadi Close
5. Menu Label, Edit dan Button terletak pada Menu Standar di bagian atas
6. Save program terlebih dahulu. Klik menu File à Save All à Pilih folder untuk menyimpanàPilih Simpan

Klik ganda pada button Log In sehingga muncul tampilan sebagai berikut

Masukkan syntak program berikut

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;

Klik ganda pada button close. Dan tuliskan syntak sebagai berikut

procedure TForm1.Button2Click(Sender: TObject);
begin
Application.Terminate;
end;

end.