MEMBUAT PROGRAM SISTEM LOGIN Di Embarcadero RAD Studio XE2
MEMBUAT PROGRAM SISTEM LOGIN Di Embarcadero RAD Studio XE2
Assalamualaikum . . .
Disini saya akan membahas bagaimana cara membuat tampilan awal program yang biasanya pertama muncul, yaitu Program LOGIN . . .
Apa sih fungsinya Login ?
Login itu seperti suatu pembatas dan keamanan bagi suatu pengelolaan yang ada di Menu Utama agar tidak semua orang bisa menggunakan program tersebut kecuali user itu sendii atau guest user lainnya.
Disini saya akan membahas bagaimana cara membuat tampilan awal program yang biasanya pertama muncul, yaitu Program LOGIN . . .
Apa sih fungsinya Login ?
Login itu seperti suatu pembatas dan keamanan bagi suatu pengelolaan yang ada di Menu Utama agar tidak semua orang bisa menggunakan program tersebut kecuali user itu sendii atau guest user lainnya.
Tanpa banyak basa - basi lainnya ,Langsung saja saya kasih tau caranya:
1). ini adalah tampilan sebelum aplikasi dijalankan atau di RUN . .
dan kita buat struktur dan data seperti dibawah ini,
Keterangan
Nama TLOGIN.
Data :
USER_NAME (Text) (20)
PASSWORD (Text) (20)
...
1. KOMPONEN yang dibutuhkan untuk pembuatan Form Login,
a. Connection :
- Adoconnection1 : diberi nama (A)
Pengaturan propertiesnya..ada disini
- Adoquery1 : diberi nama (Q1) , Untuk terhubung kedatabase TLOGIN
- Adoquery2 : diberi nama (Q2) , Untuk terhubung kedatabase TMAHASISWA
- Data Source : diberi nama (DS)
Langkah ini saya buat di Data module yang dapat kalian akses di File-new-Other-lalu pilih Data Module
b. Action
- BitBtn1 (SpeedButton yang sudah diberi icon) : diberi nama (OK)
- BitBtn2 (SpeedButton yang sudah diberi icon) : diberi nama (CANCEL)
- BitBtn1 (SpeedButton yang sudah diberi icon) : diberi nama (OK)
- BitBtn2 (SpeedButton yang sudah diberi icon) : diberi nama (CANCEL)
c. Input
- Edit1 : diberi nama (USERNAME)
- Edit2 : diberi nama (PASSWORD)
untuk tampilan, buat semenarik mungkin, dan user friendly (mudah dimengerti pengguna).
2. Langkah Pembuatan
a. Karena disini kita arahkan adoquery_login ke Q1, pada connection, dan konsepnya kita buat perintah query untuk SELECT * ke TLOGIN
- Edit1 : diberi nama (USERNAME)
- Edit2 : diberi nama (PASSWORD)
untuk tampilan, buat semenarik mungkin, dan user friendly (mudah dimengerti pengguna).
2. Langkah Pembuatan
a. Karena disini kita arahkan adoquery_login ke Q1, pada connection, dan konsepnya kita buat perintah query untuk SELECT * ke TLOGIN
- Di Adobequery, propertiesnya kita masukkan:
- Connection : A (agar tersambung ke Adobeconnection (A)
- Data Source : DS (Data Source)
dan kita masukan langkah untuk pembuatan perintah Login ketika tombol OK dan CANCEL, dan apabila teks belum diisi (kosong).
pertama kita klik 2 X OK.
dan buat kode program seperti dibawah ini;
pertama kita klik 2 X OK.
dan buat kode program seperti dibawah ini;
procedure TFLOGIN.BitBtn1Click(Sender: TObject);
begin
if (Edit1.Text='') and (Edit2.Text='') then
begin
Application.MessageBox('USERNAME ATAU PASSWORD MASIH KOSONG!!','INFORMASI',mb_iconinformation);
end
else
if Edit1.Text='' then
begin
Application.MessageBox('USERNAME MASIH KOSONG!!','INFORMASI',mb_iconinformation);
end
else
if Edit2.Text='' then
begin
Application.MessageBox('PASSWORD ANDA MASIH KOSONG!!','INFORMASI',mb_iconinformation);
end
else
begin
if DM.Q1.Locate('USER_NAME',Edit1.Text,[]) then
begin
if DM.Q1.FieldByName('PASSWORD').AsString=Edit2.Text then
begin
Application.MessageBox('ANDA BERHASIL LOG IN','SELAMAT DATANG',mb_iconinformation);
FMENU.showmodal; // keterangan : akan muncul form admin
end
else
Application.MessageBox('PASSWORD MASIH SALAH!!','PERINGATAN',mb_iconwarning);
end
else
Application.MessageBox('USERNAME MASIH SALAH!!','PERINGATAN',mb_iconwarning);
end
end;
setiap keterangan atau peringatan, memiliki fungsinya sendiri-sendiri, maka jika ingin dikembangkan lagi anda bisa mengaturnya menjadi apa saja
kemudian kita buat perintah 'CANCEL' untuk membatalkan tampilan Login..
pertama kita harus klik 2 X CANCEL.
dan ini listing kodenya ;
procedure TFLOGIN.BitBtn2Click(Sender: TObject);
begin
if(application.MessageBox('Apakah Anda Yakin Ingin Keluar Dari Program?','Konfirmasi Ulang',MB_YesNo)=ID_YES) then
begin
Application.Terminate;
end;
end;
Ini untuk pengaturan Close melalui tanda silang.
disini saya mengatur event pada form..
di 'OnClose'..
jadi saat icon diatas kanan diklik..maka akan mengeksekusi bbatal...
procedure TFLOGIN.FormClose(Sender: TObject; var Action: TCloseAction);
begin
if(application.MessageBox('Apakah Anda Yakin Ingin Keluar Dari Program?','Konfirmasi Ulang',MB_YesNo)=ID_YES) then
begin
Application.Terminate;
end;
end;
Dan Ini Pengaturan untuk ShowPasswordnya yang memakai Chekbox1
procedure TFLOGIN.CheckBox1Click(Sender: TObject);
begin
if CheckBox1.Checked then
begin
Edit2.PasswordChar:=#0;
end
else
BEGIN
Edit2.PasswordChar:='*';
END
end;
dibawah ini adalah beberapa gambar..dari project Login yang saya buat.
Seperti Diatas adalah contoh tampilan yang akan tampil, sesuai aksesnya..sebagai ADMIN.
Terimakasih.
jika ada kesalahan silahkan beri saran atau masukkan dikomen yang tertera dibawah ya? untuk pertanyaan lebih lanjut aatau mau request lainnya langsung saja komen atau DM diFacebook saya atau Instagram saya:
jika ada kesalahan silahkan beri saran atau masukkan dikomen yang tertera dibawah ya? untuk pertanyaan lebih lanjut aatau mau request lainnya langsung saja komen atau DM diFacebook saya atau Instagram saya:
Komentar
Posting Komentar