Untuk selanjutnya kita akan mencoba mengimplementasikannya ke dalam sebuah program yang akan saya terapkan pada Software Borland Delphi atau anda bisa menerapkannya di Pascal, karena listingnya hampir sama.
Pertama, yang harus anda pahami atau pelajari adalah cara menggunakan delphi-nya, bagaimana anda bisa tanpa tahu apa itu delphi, tapi pada kesempatan ini saya tidak akan membahas dan memperkenalkan apa itu Delphi 6, anda bisa mencarinya di Mbah Google sang Genius.
Saya anggap anda sudah memahami dan tahu cara menggunakan Delphi, dan tugas kita selanjutnya adalah menyiapkan Form yaitu untuk Login.
Untuk designnya bisa dilihat seperti dibawah ini :
Program ini saya buat ketika saya UTS di kampus saya, jadi masih ada embel-embel UTSnya. Dengan properties sebagai berikut :
Label1
Caption = LOGIN PROGRAM UTS BY : JEEV MC
Label2
Caption = USERNAME
Label3
Caption = PASSWORD
Label4
Caption = Program ini dibuat oleh Acep Miftahul Anwar S1 – TI – A
Button1
Caption = LOGIN
Button2
Caption = CANCEL
Edit1
Text = ‘’ / kosongkan
Edit2
Text=’’ / kosongkan
Form1
Caption = LOGIN BY JEEV MC
Atau properties ini bisa anda namai sesuka hati anda.
Kemudian kita harus menyisipkan beberapa listing program pada form dan pada button.
Ketika form dijalankan atau di load atau pada saat aktif, maka keadaan edit1 dan edit2 harus bersih tanpa ada karakter.
Listing programnya adalah sebagai berikut :
procedure TForm1.FormCreate(Sender: TObject);
begin
edit1.Text:='';
edit2.Text:='';
end;
procedure TForm1.FormActivate(Sender: TObject);
begin
edit1.Text:='';
edit2.Text:='';
edit1.SetFocus;
end;
pada button1 kita harus membuat listing logika, jika passwornya benar, maka akan tampil kotak pesan bahwa anda berhasil login, dan jika sebaliknya maka akan tampil kotak pesan bahwa login anda gagal karena kesalahan dalam input password. Tetapi password dibuat secara otomatis melalui username yang diinputkan. Listing programnya sebagai berikut :
procedure TForm1.Button1Click(Sender: TObject);
var username,passwordawal,passwordakhir,password:string;
panjangusername:integer;
begin
username:=edit1.text;
passwordawal:=copy(username,1,3);
panjangusername:=length(username);
passwordakhir:=copy(username,(panjangusername-1),2);
password:=passwordawal+passwordakhir;
if edit2.text=Password then
begin
messagedlg('Selamat anda berhasil Login',mtinformation,[mbok],0);
end
else
begin
messagedlg('Maaf Password Salah',mtinformation,[mbok],0);
end
end;
{program oleh Acep Miftahul Anwar}
Dan jika kita akan keluar dari program kita akan menekan tombol button2 dengan listing sebagai berikut :
procedure TForm1.Button2Click(Sender: TObject);
begin
close;
end;
cukup mudah kan?? Jika masih bingung, silahkan tinggalkan komentar anda.
