Program Login Pada Delphi7

Pada postingan saya kali ini, saya akan menjelaskan tentang cara membuat program Login yang terdapat Usernam dan Password. Saya menggunakan aplikasi pemrograman Delphi 7. Berikut ini langkah-langkah pembuatannya :

1. Buatlah tampilan pada form, kita gunakan dua buah form. Berikut ini tampilan Form1 dan Form2 :

Pada Form1 terdapat empat label, label1 bertuliskan “LOGIN MAHASISWA” selanjutnya label2 bertuliskan “Username” lalu label3 bertuliskan “Password” dan yang terakhir label4 di kosongkan karena nantinya untuk menampilkan  perintah apabila username atau password salah. Selain itu terdapat juga dua kolom Edit yang berfungsi untuk memasukkan username dan password. Dan yang terakhir terdapat dua Button untuk mengesekusi dan membatalkan inputan program.

Pada Form2 terdapat lima label. Pada Label1 bertuliskan “PERHITUNGAN NILAI MAHASISWA”, Label2 bertuliskan “Nilai UTS”, Label3 bertuliskan “Nilai UAS”, label4 bertuliskan “Nilai Akhir” dan yang terakhir Label5 di kosongkan untuk menampilkan output Nilai Akhir. Terdapat juga dua kolom Edit yang nantinya akan berisi inputan nilai. Dan terakhir terdapat tiga Button yang berfungsi untuk menjalankan program dan keluar dari program.

2. Langkah selanjutnya kita membuat kodingan pada Unit1 dan Unit2. Untuk memasukkan kodingan kita dapat mengklik 2 kali pada masing-masing Button. Berikut ini tampilannya :

Unit1.pas

Pada bagian procedure TForm1.Button2Click(Sender: TObject); terdapat perintah :

begin

if (edit1.Text='Heraldy') and (edit2.Text='54413051')

Then begin

Perintah tersebut menggunakan statement if, yang nantinya berfungsi untuk mendeklarasikan username pada kolom edit1 dan mendeklarasikan password pada kolom edit2.

Form1.Hide;

Form2.Show;

application.MessageBox('Selamat Datang Heraldy','Warning');

end

Perintah tersebut berfungsi untuk menyembunyikan Form1 dan menampilkan Form2 ketika program di jalankan. Program tersebut akan menampilkan Form2 apabila username dan password sesuai dengan apa yang telah di deklarasikan pada awal pembuatan program. Dan untuk menampilkan MessageBox ketika program di jalankan.

Else if (Edit1.Text = '') And (Edit2.Text = '') Then

begin

application.MessageBox('Masukkan Username dan Password Anda','Warning');

end

Perintah di atas merupakan perintah else if yang berfungsi untuk menampilkan MessageBox apabila kolom username dan kolom password tidak di isi atau dalam keadaan kosong.

Else if Edit1.Text = '' Then

begin

application.MessageBox('Masukkan Username Anda','Warning');

end

Perintah di atas berfungsi untuk menampilkan MessageBox apabila pada kolom username tidak di isi  atau dalam keadaan kosong.

Else if Edit2.Text = '' Then

begin

application.MessageBox('Masukkan Password Anda','Warning');

end

perintah di atas berfungsi untuk menampilkan MessageBox apabila kolom password tidak di isi atau dalam keadaan kosong.

else

Label4.Caption := 'Maaf, Username atau Password salah';

end;

perintah di atas berfungsi untuk menampilkan kalimat tersebut pada Label4, apabila username atau password yang di masukkan salah, sehingga program tidak bisa Login.

Pada bagian procedure TForm1.Button1Click(Sender: TObject); terdapat perintah :

begin

If application.MessageBox('Apakah Anda Yakin Ingin Keluar','Warning',MB_YesNo)=ID_Yes Then

begin

application.MessageBox('Terima Kasih :)','Selamat Tinggal');

application.Terminate;

end

end;

end.

Perintah tersebut berfungsi untuk menampilkan MessageBox apabila kita ingin keluar dari program, lalu akan muncul pilihan tombol “Yes” dan “No”. Klik “Yes” untuk keluar dari program.

Unit2.pas

Pada bagian procedure TForm2.Button1Click(Sender: TObject); terdapat perintah :

begin

Edit1.Clear;

Edit2.Clear;

end;

Perintah di atas berfungsi untuk menghapus atau membersihkan kolom Edit1 dan kolom Edit2. Nantinya pada saat akan memasukkan nilai yang baru, maka kita tidak perlu menghapus teksnya secara manual.

Pada bagian procedure TForm2.Button2Click(Sender: TObject); terdapat perintah :

var uts,uas,nilai:real;

begin

  uts := STRtoInt(Edit1.Text);

  uas := STRtoInt(Edit2.Text);

  nilai := (uts+uas)/2;

Label5.Caption := FLOATtoSTR(nilai);

end;

Perintah di atas berfungsi untuk mendeklarasikan variabel “uts, uas, dan nilai”. Lalu pada penginputan program variabel “uts” di konversi dari String menjadi Integer pada kolom Edit1. Selanjutnya pada penginputan program variabel “uas” di konversi kembali dari String menjadi Integer pada kolom Edit2. Untuk memperoleh hasil rata-rata, maka jumlah nilai dari variabel “uts” dan “uas” di jumlah lalu di bagi 2. Nanti hasilnya akan di tampilkan pada Label5 yang nantinya di konversi dari Float menjadi Integer.

Pada bagian procedure TForm2.Button3Click(Sender: TObject); terdapat perintah :

begin

application.Terminate;

end;

end.

Perintah di atas berfungsi untuk memberhentikan atau mengakhiri program yang sedang di jalankan, sehingga memudahkan kita bila ingin mengakhiri program.

3. Berikut ini merupakan tampilan outputnya ketika kita Run 

- Tampilan output ketika kita tidak memasukkan Username dan Password

- Tampilan output ketika kita tidak memasukkan Password

- Tampilan output ketika kita memasukkan Username atau Password salah

- Tampilan output ketika kita mengklik tombol cancel

- Tampilan output ketika kita memasukkan Username dan Password benar

- Tampilan output ketika proses penghitungan nilai

                       

Demikianlah penjelasan mengenai program login pada Delphi7. Postingan berikutnya saya akan menjelaskan tentang perulangan pada Delphi7. Semoga postingan ini bermanfaat :)