招聘應(yīng)聘管理信息系統(tǒng)(編輯修改稿)
2025-05-12 08:35 本頁面
【文章內(nèi)容簡介】 )Dim strselectname As StringDim str As StringDim strselectpassword As Stringstr = Trim()strselectname = select 用戶名 from users where 用戶名= amp。 39。 amp。 str amp。 39。 = Provider=。Integrated Security=SSPI。Persist Security Info=False。Initial Catalog=city。Data Source=(local) = adCmdText = strselectname 39。從用戶信息表中查詢所有的用戶姓名If = True Then ret = MsgBox(姓名錯誤！, 48, warming!) 39。如果用戶輸入的姓名與用戶信息表中姓名不一致，就會出現(xiàn)該對話框提醒用戶重新輸入 = = Exit SubEnd Ifstrselectpassword = select 用戶密碼 from users where 用戶名= amp。 39。 amp。 Trim() amp。 39。 = Provider=。Integrated Security=SSPI。Persist Security Info=False。Initial Catalog=city。Data Source=(local) = adCmdText = strselectpassword If Trim((用戶密碼).Value) Trim() Then ret = MsgBox(密碼錯誤！, 48, warming!) 39。如果用戶輸入的密碼與用戶信息表中的密碼不一致就會出現(xiàn)該對話框 = Exit Sub Else 39。 = 39。 = End IfEnd SubPrivate Sub Command2_Click() = = End Sub新用戶還可以通過此界面進行注冊，新用戶只要輸入自己的姓名，注冊密碼并確認(rèn)注冊便可以成功注冊，同時該用戶的信息也被寫入到了用戶信息表中（部分代碼如下）Private Sub Command1_Click() = Provider=。Integrated Security=SSPI。Persist Security Info=False。Initial Catalog=city。Data Source=(local) = adCmdText = select 用戶名 from users where 用戶名 = 39。 amp。 Trim() amp。 39。If = False Then MsgBox 用戶名已經(jīng)存在！請重新輸入, 0, 提示 = Exit SubEnd IfIf = Or = Or = ThenMsgBox 請輸入用戶名或密碼, 0, 提示ElseIf ThenMsgBox 確認(rèn)密碼錯誤，請重新輸入, 0, 提示 = = = ElseMsgBox 恭喜你注冊成功 = Provider=。Integrated Security=SSPI。Persist Security Info=False。Initial Catalog=city。Data Source=(local) = adCmdTable = users(用戶名).Value = Trim()(用戶密碼).Value = Trim()(用戶類型).Value = 用戶 = = = End IfExit SubEnd SubPrivate Sub Command2_Click()End Sub管理員需要輸入自己的姓名和密碼，經(jīng)過系統(tǒng)驗證無誤后就可以進入下一個界面了。它的代碼與管理員登陸代碼類似，輸入的姓名和密碼必須是管理員表中相應(yīng)的信息，否則就無法成功登陸。用戶登陸進去后，可以到用戶服務(wù)界面選擇自己所需的服務(wù)，該界面為用戶提供了5種服務(wù)，分別是“全職招聘信息查詢”，“兼職招聘信息查詢”，“全職應(yīng)聘信息查詢”，“兼職應(yīng)聘信息查詢” “應(yīng)聘者信息查詢”和“本用戶的密碼修改”。用戶如需修改自己的密碼可在此界面進行，用戶通過登陸界面登陸到此，然后在此界面中輸入原始密碼和新密碼并驗證新密碼，確認(rèn)后如果無誤就會提示用戶修改成功，并且其密碼在用戶信息表中也會有相應(yīng)的修改。（代碼如下）Private Sub Command1_Click()If Trim( = ) Then MsgBox 請輸入密碼！, 0, 提示 Exit SubEnd If = Provider=。Integrated Security=SSPI。Persist Security Info=False。Initial Catalog=city。Data Source=(local) = adCmdText = select * from users where 用戶密碼 = 39。 amp。 Trim() amp。 39。 and 用戶名= 39。 amp。 Trim() amp。 39。39。If = True Then 39。MsgBox 舊密碼不正確，請重新輸入！, 0, 提示 39。 = 39。 = 39。 39。Exit Sub39。End IfIf ThenMsgBox 密碼不正確，請重新輸入！, 0, 提示 = = = Exit Sub End IfIf Trim() = Then MsgBox 請輸入新密碼, 0, 提示 Exit SubEnd IfIf Trim() = Then MsgBox 請輸入驗證密碼！, 0, 提示 = = Exit SubEnd IfIf Trim() Trim()
公司管理相關(guān)推薦
鄂ICP備17016276號-1