NavigasiForm Login Delphi dengan Database My SQL
Hai selamat datang kembali para peselancar bloger dan internet.... pada kesempatan ini raperiadisepti blog akan menghadirkan tema postng dengan judul "CARA MEMBUAT FORM LOGIN PADA DELPHI7 DENGAN DATABASE MY SQL" (wah udah kaya pembukaan OVJ aja ya gan...
ya udah langsung aja,karena budaya raperiadisepti blog tidak harus berpanjang lebah jelasin sana-sini tapi para pembacanya puyeng,lebih baik kita langsung cap cus praktek aja ya gan.
dan alat-alat yang mesti disiapkan adalah:
1 satu buah form dengan design ya kira-kira seperti gambar diatas atau kalo mau yang keren bisa design sendiri...
2.codingnya.yaitu koding yang kali ini akan dibahas adalah koding yang ada pada button "login"
nih dia silahkan copy aja deh biar gag ribet(itulah gunanya microsoft untuk membuat fungsi copy - paste kan haha)
===============================================================
begin
if eiduser.Text ='' thenbegin
messagedlg('masukkan id user dahulu',mtinformation,[mbOK],0);
eiduser.SetFocus;
end
else
begin
if epaswduser.Text ='' then
messagedlg('masukkan paswordnya dahulu',mtinformation,[mbOK],0);
epaswduser.SetFocus;
end;
begin
if (eiduser.Text='') or (epaswduser.Text='') then exit;
with datamodule2 do
begin
adoquser.Close;
adoquser.SQL.Clear;
adoquser.SQL.Text:='Select * from tuser where iduser=''' +
trim(eiduser.Text)+''' and paswduser='''+
trim(epaswduser.Text)+'''';
adoquser.Open;
if adoquser.IsEmpty then
begin
MessageDlg('User Name dan Password'+chr(13)+'tidak cocok',mtError,[mbok],0);
eiduser.SetFocus;
exit ;
end
else
begin
eiduser.Text:='';
epaswduser.Text:='';
gbuser.Hide;
MessageDlg('Login Berhasil'+chr(13)+'Selamat Menggunakan Aplikasi',mtInformation,[mbok],0);
fhitung.Show;
end;
end;
end;
end;
end.
=================================================================
keterangan:
1.sesuaikan edit yang anda gunakan pada property namanya
2.adoquser=nama adoquery yang agan gunakan
kalo ada pertanyaan silahkan kunjungi halaman dibawah ini ok
akhir kata dan posting.maka saya ucapkan terimakasih untuk kesempatan dilain waktu akan dipastikan postingnya lebih keren,jadi jangan lupa ya selalu update untuk mengunjungi raperiadisepti blog
terimakasih,and have fun,GAN..
DONASI SAWER TRAKTIR
Terimakasih Atas Dukungan serta Keiklasan Anda
Newer Posts
Newer Posts
Older Posts
Older Posts
makasih gan ilmunya... kebetulan ane juga disuruh bikin form begini gan di sekolah.. thanks ya
ReplyDeletemksh atas ilmunya
ReplyDeletegbuser keterangan nya apa mas?
ReplyDeletegbuser= form login gan...
Deletemekanisme, jika login sukses maka form login otomatis tutup.
dan open ke form selanjutnya (untuk script diatas saya ke form hitung)
terimakasih telah berkunjung.
semoga bisa membantu
EZSQLEXCEPTION itu kenapa yaa
ReplyDelete