atomic98 1 Report post Posted August 19, 2004 assalamulaikum...rasa nya ramai sifu kat sini yg pakar access nih.saya baru ja ..harap ada yg sudi bantu..masalah nih dah cuba cri guna pakcik google ngan yahoo..tak jumpa...(tak pandai guna Search sebenarnya).ermm...masalah yg nak tanya nih...berkaitan ngan password...coding.contoh password yg dah ditetapkan coding:If txtPassword = "projecta" And User = "Putra" Then .................. .................. ...................Else ................. ................. MsgBox "......................................"End IfIf Password = "projecta" And User = "Putra" Thenbahagian yg Bold tuh...macam mana nak buat perbandingan melalui Table yg terdapat dalam Access.contoh.Nama Table: DataSulitFieldName:User "aaa"FieldName:Password "bbb"macam mana nak tulis coding untuk password = password yang ada dalam table kat atas??Harap faham soalan saya..sekian terima kasih. Quote Share this post Link to post Share on other sites
ridsclan 0 Report post Posted August 20, 2004 ANtara coding yg pernah saya buat..Function Checkpassword() found = False myset.MoveFirst Do Until myset.EOF Or found = True If StrComp(myset!Login, Me.Login, 0) = False And StrComp(myset!Password, Me.Password, 0) = False Then MyUser = myset!Login found = True End If myset.MoveNext Loop If found = True Then HideAll Unload Me DoCmd.OpenForm "admin" DoCmd.Maximize Else MsgBox " Invalid Login or Password", vbExclamation, "Error" 'If try = vbYes Then ' DoCmd.Close acForm, "Login" ' 'Else ' DoCmd.Close acForm, "login" End If try = try + 1 If try > 3 Then DoCmd.close acForm, "Login" MsgBox " You do not have access to preform this command ", vbExclamation + vbOKOnly, "Access Deny" DoCmd.OpenForm "Front_page_frm" DoCmd.Maximize 'End If End If End FunctionNi dah lama saya buat.. anda boleh explore lagi Quote Share this post Link to post Share on other sites
atomic98 1 Report post Posted August 20, 2004 found = False myset.MoveFirst Do Until myset.EOF Or found = True If StrComp(myset!Login, Me.Login, 0) = False And StrComp(myset!Password, Me.Password, 0) = False Then MyUser = myset!Login found = True End If myset.MoveNext Loop terang bg jelas sikit boleh dak rangkap nih...kurang la faham nya..apa pun terima kasih sebab sudi juga nolong.. Quote Share this post Link to post Share on other sites
ridsclan 0 Report post Posted August 21, 2004 tertinggal code niPrivate Sub Form_Load() try = 1 Set MyBase = CurrentDb Set myset = MyBase.OpenRecordset("User", dbOpenDynaset) End SubCreate 1 table macam niDan form macam nifound = Falsemyset.MoveFirstDo Until myset.EOF Or found = TrueIf StrComp(myset!Login, Me.Login, 0) = False And StrComp(myset!Password, Me.Password, 0) = False ThenMyUser = myset!Loginfound = TrueEnd Ifmyset.MoveNextLoopBerkenaan dgn code tu. Dia akan check username dgn password dari table yang kita buat. Samada valid atau tak. Quote Share this post Link to post Share on other sites
raihan 0 Report post Posted August 21, 2004 (edited) -start block loop-If StrComp(myset!Login, Me.Login, 0) = False And StrComp(myset!Password, Me.Password, 0) = False ThenMyUser = myset!Login-end block loop-NAMEStrComp - Comparing stringsSYNOPSISStrComp(string1, string2[, compare_mode])RETURN-1 (string1 is less than string2)0 (string1 is equal to string2)1 (string1 is greater than string2)# compare_mode1) vbTextCompare2) vbBinaryCompare- cari kat google -Expression StrComp(myset!Login, Me.Login) sama la dengan# myset ~ current table# Login ~ current data# Me(yada2) takyah pun takpe "Login" tu biasa orang buat txtLogin.textso... dia compare current data dgn Login(textbox)begitu juga dgn section passwordfield "confirm", takyah pun takpe~ ikut camner tahap keselamatan dan kesistematikanprogramming ko berkaitan dengan database. huhu~variable found??? elok la digunakan wat masa ni, heh~found digunakan utk memastikan sessi login awak tu sempurna atau tidak~dan.. selalunya orang akan simpan password dalam database yg dah encrypted.cari la cara cara camner nak encrypt simple simple kat internetcontoh u dah buat satu function encrypt(string as string) as stringso, bila nak compare password yg user input. tak semestinya u kena keluarkanpassword user dalam database lalu penat lelah decrypt dan compare dgn passwordtersebut. so, cara yg tak penat dgn encrypt je passowrd user input tu dululalu compare dgn password yg telah diencrypt dalam database. kiss. haha~so, lebih kurang camni ... And StrComp(encrypt(myset!Password), Me.Password)for beginner, programming is simple, don't make it any worse*Nadia Ner~ LaLaLa~ Edited August 21, 2004 by raihan Quote Share this post Link to post Share on other sites
DeZeque 0 Report post Posted August 23, 2004 saja nak tanya kat penanya soklan jek... ada pa pe reason ngko tanak pakai built-in msaccess nye security module ke i.e. the .mdw?? kan pe.. sebab kalau ngko buat camtuh.. once orang tu leh masuk.. dia leh tengok sume table gak.. dan kalau dia connect to the mdb tak pakai ngko nye forms tuh sume.. dah tentu dapat tarik gak data tuh.. dan kalau ngko store password tuh unencrypted... dah tentu dapat sume password orang lain.. kalau msaccess nye built-in security leh set access macam2... e.g. leh certain table jek ke.. leh read-only jek ke.. etc.. Quote Share this post Link to post Share on other sites
atomic98 1 Report post Posted August 26, 2004 Trimas ridsnlan,raihan dan DeZeque.Ridsclan, dah cuba la coding yg bg tuh...tapi tak boleh pun...kan event dia form_load..tu yg kureng faham sikit tuh..sbb selalu buat guna OK_Click()..dah cuba, tapi ada ralat ..cuba cari..tak tahu plak..kat mana ralat nya..myebe tak faham kot..kalau boleh bagi simple database yg Ridsclan buat tuh boleh..sebab dah lama cari..ini first time tahu boleh buat...send kat [email protected]sekian terima kasih Quote Share this post Link to post Share on other sites
atomic98 1 Report post Posted August 26, 2004 saja nak tanya kat penanya soklan jek... ada pa pe reason ngko tanak pakai built-in msaccess nye security module ke i.e. the .mdw?? kan pe.. sebab kalau ngko buat camtuh.. once orang tu leh masuk.. dia leh tengok sume table gak.. dan kalau dia connect to the mdb tak pakai ngko nye forms tuh sume.. dah tentu dapat tarik gak data tuh.. dan kalau ngko store password tuh unencrypted... dah tentu dapat sume password orang lain.. kalau msaccess nye built-in security leh set access macam2... e.g. leh certain table jek ke.. leh read-only jek ke.. etc.. Dulu pun dah guna tools access tuh untuk buat password...tapi bila member tunjuk yg sotfware dia boleh [biskut tawar] password access terus malas nak guna... sebab tu cr cara lain plak.."sebab kalau ngko buat camtuh.. once orang tu leh masuk.. dia leh tengok sume table gak.. dan kalau dia connect to the mdb tak pakai ngko nye forms tuh sume.. dah tentu dapat tarik gak data tuh".ye ker? bak email..nanti sy send simple database dan awak cuba tarik data dari dia.... apa-apa pun trimas sebab sudi bg pandangan. Quote Share this post Link to post Share on other sites