Form Login
Buka
Aplikasi Delphi setelah itu desain Form Loginnya Seperti pada gamabr dibawah
ini
clik atau ambil semua komponen yang dibtuhkan dan diletakkan di form login
untuk komponen koneksi ke database disini menggunakan zeos component
silahkan di istallal zeos komponennya terlebih dahulu
selanjutkan clik 2x pada tombol login dan ketikkan scrip seperti dibawah ini
With qu_user do begin
sql.Clear;
sql.Add('select * from app_user where user='+QuotedStr(edit1.Text));
open;
if qu_user.RecordCount=0
then
Application.MessageBox('Maaf user name tidak ditemukan','informasi',MB_OK or MB_ICONINFORMATION)
else
begin
if qu_user.FieldByName('password').AsString<>Edit2.Text
then
Application.MessageBox('Pastikan password yang anda masukkan benar','error',MB_OK or MB_ICONERROR)
else
begin
hide;
fo_menuutama.Show;
end;
end;
end;
setelah itu tekan control + F9
secara otomatis aplikasi akan melakukan compailing, tekan F9 untuk menjalankan aplikasi seperti
yang terlihat pada gambar dibawah ini
selamat mencoba.........
