Tentang Login

[donie]

Gimana sih caranya untuk mengunci user yang login ?

deskripsinya :
saya buat aplikasinya untuk multiuser jadi semua table saya shared,
saya punya 2 form
1. form_login untuk login awal aplikasi
2. form login ulang untuk mengganti login ulang ke aplikasi lagi. (kaya log off d'windows start menu...

Bentuk form n kodingnya hampir sama.....

klo form login ulang dipanggil dari menu pake procedure
-----------------------------
SET SYSMENU off
do form form_login.scx
-----------------------------

-----------------------------
form login ulang.destroy
set sysmenu on
-----------------------------

form_login.load :

Code: [Select]

SELECT 1
USE '\alumni\table\data_user.dbf' SHARED INDEX '\alumni\table\data_user.cdx'
SET ORDER TO tag useridx

SELECT 2
USE '\alumni\table\user_aktif.DBF' SHARED


koding cmdlogin.click :

Code: [Select]

local lcuserid,lcpassword

lcuserid =ALLTRIM(thisform.txtuser.value)
lcpassword =ALLTRIM(thisform.txtpassword.value)

*!* cek apakau user mengisi user id dan pwd
IF empty(thisform.txtuser.value)
  ?? chr(7)
  wait window nowait 'User ID tidak boleh kosong!'
  thisform.txtuser.setfocus
  RETURN 
ENDIF
IF empty(thisform.txtpassword.value)
  ?? chr(7)
  wait window nowait 'Password tidak boleh kosong!'
  thisform.txtpassword.setfocus
  RETURN 
ENDIF

SELECT 2
IF user_aktif.userx = ALLTRIM(thisform.txtuser.Value)
MESSAGEBOX("Username Anda sedang digunakan...!",64,"Warning")
Thisform.txtuser.SetFocus
RETURN
Endif



*!* cek apakah password cocok
SELECT 1
SEEK lcuserid
IF FOUND()
temp_user = data_user.user
temp_nama = data_user.nama
temp_waktu = DATETIME()
IF data_user.password = lcpassword
_userlvl = data_user.status
SELECT 2
APPEND BLANK
replace user_aktif.userx WITH ALLTRIM(thisform.txtuser.Value)
replace user_aktif.namax WITH temp_nama
replace user_aktif.time_entry WITH temp_waktu
thisform.Release()
MESSAGEBOX("Selamat Datang, "+ ALLTRIM(temp_nama)+"...!",64,"Konfirmasi")
CLEAR EVENTS
SET SYSMENU on
ELSE
tanya = MESSAGEBOX("Password Anda Salah..!",64,"Konfirmasi")
Thisform.txtpassword.SetFocus
ENDIF
ELSE
tanya = MESSAGEBOX("Nama User Anda Salah....!",64,"Konfirmasi")
Thisform.txtuser.SetFocus
ENDIF

mohon bantuannya master?

thx before.......
 

[davidmustakim]

aduuh Donie, masih pagi udah internetan lagi, kayak Saykoji online2 trus... udah bagus tuh, lanjutin aja sendiri... soalnya posting juga nggak jelas masalahnya apa

[donie]

online untuk nambah ilmu pa di forum ini......

bangun  forum lagi

forum lagi  lagi

bangun.............. forum lagi..

hehehe...

gini pa masalah nya, saya taru aplikasinya di server....

client mengakses:
si A login pake login A berhasil
si B login pake login B berhasil

trus

si B log off ke login ulang pake login A (aplikasinya belum di close, dari gambar menu log offnya)
padahal si A belum logout dari aplikasinya, eh si B bisa masuk pake login si A
jadi user aktif ada 2 memakai nama si A.

gitu pa?

[donie]

ni gambarnya pa

[davidmustakim]

pecat segera pegawai yang tukar2an password
bisa SANGAT MENGHEMAT BANDWIDTH FORUM !

[Ronald_CH]

sederhananya
tambah aja satu field flagaktif dan kondisikan di form user login nya

contoh logikanya
 *1=aktif
 *0=tidak aktif

jika id_user=cuserid dan flgaktif="1" maka pesan keluar user sedang aktif di terminal lain

kalo nggak, bisa juga pake rlock()
bikinkan pake procedure dan function nanti tinggal di panggil lewat form user login nya

[davidmustakim]

ya nggak mungkin dong usernya aktif di terminal lain, kan udah dipecat kemaren karna nggak tertib jaga kerahasiaan password sendiri

[davidmustakim]

serius, untuk mencegah terulangnya kasus cicak-buaya kemarin udah dikeluarkan peraturan tegas bahwa supervisor pun tidak boleh login pake pasword anak-buahnya, bila ada yang melanggar segera lapor Tim-8, tapi pecat dulu, jangan bentuk tim lagi hanya untuk pecat

[Ronald_CH]

beda pak david. Bagai mana kalau 1 buaya yang sama tapi memakai dua client (PC)
dengan login dan password yang sama padahal client 1 nya belum dimatikan sudah memakai client yang lain

kalo yang pak david bilang itu 2 buaya yang berbeda dengan client yang berbeda

hahahahaha 

[davidmustakim]

jangan pernah percayakan buaya dengan 2 passwords, satu aja negara udah kacau

[YTC_4]

Buayanya CUMAN 1 PAK, TEMANNYA TUH YANG BANYAK......

[davidmustakim]

wah, nyindir ya.. jadi ingat teman2 buaya disana... apa kabar si Adi?

[YTC_4]

iya... hehehe...
Gimana PAK Banyak Kerjaan ngak ?
Tapi sehat-sehat khan..

GBU

[davidmustakim]

Sehat... ta pe salam pa Mr.L ya
n GBU2

[YTC_4]

Ok... nanti ta kase tau