1. Data ada di database
2. Mencari terlebih dahulu password tersebut berdasarkan user login
SELECT UPPER(USERLOGIN.USERPASSWORD)
INTO :ls_pass
FROM USERLOGIN
WHERE USERLOGIN.USERLOG = :gs_usernm ;
3. Ketika login sudah terhubung dgn database
is_filecfg = ProfileString(startupfile,"KONEKSI","File","")
is_server = ProfileString (startupfile, "database", "serverName", "")
is_database = ProfileString (startupfile, "database", "database", "")
4. Message berdasarkan scrip saya
IF Lower(ls_pass) <> Lower(as_pass) THEN
st_text.text = 'Password salah, akses ditolak'
MessageBox("Login","Password Salah, Akses ditolak !")
is_success = st_text.text
INSERT INTO USLOGVIEW (USLOGNM, JAMLOGIN, JAMKELUAR, SUKSES)
VALUES ( :gs_usernm,:ld_login,:ld_login,:is_success ) ;
commit using sqlca;
END IF
Terima kasih,
Surya
--- In [email protected], Wadi Achmed <wadiachmed@...> wrote:
>
> Lalu,
> 1. Data untuk verifikasi login ada di mana?
> 2. Bagaimana cara anda memproses login tersebut?
> 3. Apakah aplikasinya sudah terhubung dengan database ketika login?
> 4. Apakah anda mendapatkan error message ketika login dianggap salah?
> dan bagaimana messagenya?
>
> Salam,
> Wadi Achmed
>
>
> On 7/21/2011 04:03 PM, Surya Kadarusno wrote:
> > saya buat aplikasi sederhana yang terhubung dengan database sql 2000,
> > awalnya ada flash, kemudian login, jika berhasil login maka bisa masuk
> > aplikasi. password dilogin tidak saya encrip tapi dianggap salah.
> >
> > Pak Wadi terima kasih sebelumnya.
> >
> > --- In [email protected], Wadi Achmed<wadiachmed@> wrote:
> >> Salam tuk Surya,
> >>
> >> Script yang paling simple untuk login adalah begini.
> >>
> >> If (username = 'userlogin') and (password = 'userpassword') then
> >> return 'boleh login'
> >> else
> >> return 'gak boleh login'
> >> end if
> >>
> >> Udah gitu doang koq.
> >>
> >>
> >> Kalo mau yang lebih rumit dan tidak mudah ditembus, coba kirim
> >> pertanyaannya lebih lengkap, anda maunya yang seperti apa.
> >>
> >>
> >> Cheers,
> >> Wadi Achmed
> >>
> >> On 7/21/2011 03:03 PM, Surya Kadarusno wrote:
> >>> Selamat siang semua senior programmer pb, scrip untuk membuat login
> >>> bagaimana. tks.
> >>>
> >>>
> >
>
------------------------------------
-----------------------------------------------
IndoPB - Indonesia PB User Group
http://groups.yahoo.com/group/indopbYahoo! Groups Links
<*> To visit your group on the web, go to:
http://groups.yahoo.com/group/indopb/
<*> Your email settings:
Individual Email | Traditional
<*> To change settings online go to:
http://groups.yahoo.com/group/indopb/join
(Yahoo! ID required)
<*> To change settings via email:
[email protected]
[email protected]
<*> To unsubscribe from this group, send an email to:
[email protected]
<*> Your use of Yahoo! Groups is subject to:
http://docs.yahoo.com/info/terms/
