Cara membuat form login tanpa database pada delphi

Cara membuat form login tanpa database pada delphi – form login adalah sebuah form yang berfungsi  sebagai hak akses admin terhadap sebuah aplikasi, yang dimana didalam sebuah aplikasi tersebut terdapat file –file penting yang hanya boleh dilihat oleh orang – orang tertentu / admin. Selain itu, dengan adanya form login data yang ada dalam aplikasi tersebut juga akan lebih aman dari orang –orang yang memiliki niat jahat.

Sementara itu, untuk cara membuat form login tanpa database pada delphi sangatlah mudah. Disini saya hanya menggunakan syntax if then else untuk membuat username dan password yang akan saya gunakan sebagai hak aksesnya.

Jika kalian belum tau apa itu if then else silahkan baca postingan saya sebelumnya: Pengertian if then dan case of dalam bahasa pemrograman delphi

Cara membuat form login tanpa database pada delphi

Langsung saja saya akan menjelaskan cara membuat form login tanpa database pada delphi.

langkah pertama buat desain program sesuai keinginan kalian asalkan didalamnya sudah terdapat 2 buah komponen edit untuk username dan password dan 1 buah button untuk login. atau anda juga bisa melihat desain yangbsaya buat seperi berikut:

setelah membuat form login yang kurang lebih seperti diatas silahkan dobel klik di button login untuk membuat / memasukan syntaxnya. silahkan copy syntaxnya dibawah ini:

procedure TForm1.Button1Click(Sender: TObject);
begin
if (Edit1.Text='admin')and(Edit2.Text='12345') then
begin
  Application.MessageBox('Selamat, anda berhasil login !!!','Informasi',MB_OK or MB_ICONINFORMATION);
end
else
begin
  Application.MessageBox('Maaf, akun yang anda masukan salah !!!','Error',MB_OK or MB_ICONERROR);
end;
end;

jadi, untuk username dan password yang saya gunakan adalah admin dan 12345. jika kalian ingin mengubahnya sesuai keinginan silahkan terserah anda.

Jika kalian sudah selesai memasukan/membuat syntaxnya silahkan coba jalankan/run aplikasi ... Selesai...

• 1comment

Achmad Fajar

"Musuh yang sebenarnya bukanlah orang lain, melainkan ego diri kita sendiri. Jadi, kalahkanlah ego diri kita sendiri, maka kesuksesan dapat diraih!".

Related Posts

Delphi