Membuat Login Admin Sederhana Dengan Borland Delphi Lengkap

Membuat Login Admin Sederhana Dengan Borland Delphi Lengkap

By Unknown - Senin, 16 Februari 2015 - No Comments

Halo sobat Machro Tech , Kali inikita akan membahas tentang 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 admintidak bisa mengubah, menghapus, menambah data tanpa sepengetahuan admin. Hal ini diperlukan untuk menjaga keamanan suatu data yang sangat penting.


Caranya Sebagai Berikut :

• 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='admin') and (Edit2.Text='kunci') 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.

Informasi Singkat :

1. procedure TForm1.Button1Click(Sender: TObject);  //Akan otomatis ada ketika kita double klik item ('Biasanya Button, dll")
2. MessageBox(0,'Log In Sukses','information',MB_OK+MB_ICONINFORMATION);  // Berarti user akan diberi "notif" apabila login berhasil apabila (Edit1='admin') dan (Edit2='kunci') dengan atribut icon information.
3. MessageBox(0,'Log In Gagal','error',MB_OK+MB_ICONERROR); //Kebalikan yang nomor 2, akan ditampilkan pesan eror dengan atribut icon error.
4. Application.Terminate; // berarti apabila tombol diclick, maka aplikasi akan di Keluarkan "Terminated".

Nahh !!Bagaimana , Mudah kan !!!!. Dari kerangka dasar diatas, juga bisa kita tambahkan kreatifitas kita.

-Semoga Bermanfaat-

Share This:

• Like
• Tweet
• +
• Pin it

Post Tags:

Delphi Pemrograman Dasar

• Prevoius
• Next

Jillur Rahman

I'm Jillur Rahman. A full time web designer. I enjoy to make modern template. I love create blogger template and write about web design, blogger. Now I'm working with Themeforest. You can buy our templates from Themeforest.

• Social Links:

• Rss
• Facebook
• Twitter
• Google+
• Linkedin
• Youtube