高校人事管理信息系統(tǒng)設計(編輯修改稿)
2025-05-15 04:07 本頁面
【文章內容簡介】 ated Security=SSPI。Persist Security Info=False。Initial Catalog=人事管理。Data Source=PC2009113022HNV = adCmdTable = 密碼表(工號).Value = Trim()(登錄密碼).Value = Trim()If = Then MsgBox 請再次輸入密碼 Exit SubElseIf ThenMsgBox 兩次輸入的密碼不一樣 = Exit SubEnd IfMsgBox 恭喜你注冊成功 = = = 管理員需要輸入自己的姓名和密碼，經過系統(tǒng)驗證無誤后就可以進入下一個界面了。它的代碼與管理員登陸代碼類似，輸入的姓名和密碼必須是管理員表中相應的信息，否則就無法成功登陸。用戶登陸進去后，可以到用戶服務界面選擇自己所需的服務，該界面為用戶提供了三種服務，分別是“本用戶密碼的修改”，“工資查詢”和“年度考核查詢”。用戶如需修改自己的密碼可在此界面進行，用戶通過登陸界面登陸到此，然后在此界面中輸入原始密碼和新密碼并驗證新密碼，確認后如果無誤就會提示用戶修改成功，并且其密碼在用戶信息表中也會有相應的修改。（代碼如下）Private Sub Command1_Click() If Trim() = Then MsgBox 對不起，輸入原密碼！, vbInformation Exit SubElseIf Trim() = Then MsgBox 對不起，請輸入新密碼, vbInformation Exit SubElseIf Trim() = Then MsgBox 對不起，請再次輸入新密碼, vbInformation Exit SubElseIf Trim() Trim() Then MsgBox 兩次輸入的密碼不一致！ = Exit Sub End If = Provider=。Integrated Security=SSPI。Persist Security Info=False。Initial Catalog=人事管理。Data Source=PC2009113022HNV = adCmdText = select 登錄密碼 from 密碼表 where 登錄密碼 = 39。 amp。 AID amp。 39。If = True Then MsgBox 密碼不正確，請重新輸入！ = = = Exit Sub Else (登錄密碼).Value = Trim() MsgBox 恭喜你，密碼修改成功！ = = = End IfEnd Sub 用戶可通過此界面所提供的內容查詢所有的零件信息。所有的信息通過控件DataGrid與Adodc控件和相應的數(shù)據(jù)庫連接起來，并通過sstab控件進行切換界面，設置相應的屬性后所有信息便可顯示在DataGrid上供用戶查看。 零件信息的查詢界面 此控件要調用模塊，該代碼在load里面寫:Private Sub Form_Load() = Provider=。Integrated Security=SSPI。Persist Security Info=False。Initial Catalog=人事管理。Data Source=PC2009113022HNV = adCmdText = select * from 密碼表 where = 39。 amp。 AID amp。 39。 = Provider=。Integrated Security=SSPI。Persist Security Info=False。Initial Catalog=人事管理。Data Source=PC2009113022HNV = adCmdText = select * from 年度考核表 left join 密碼表 on = where = 39。 amp。 AID amp。 39。 = Provider=。Integrated Security=SSPI。Persist Security Info=False。Initial Catalog=人事管理。Data Source=PC2009113022HNV = adCmdText = select * from 工資表 left join 密碼表 on = where = 39。 amp。 AID amp。 39。End Sub該界面所用的控件與用戶服務界面所用的一樣，用戶想要查看的信息也會顯示在DataGrid上。 管理員查詢界面Load里的代碼：Private Sub Form_Load() If Then = Provider=。Integrated Security=SSPI。Persist Security Info=False。Initial Catalog=人事管理。Data Source=PC2009113022HNV = adCmdText = select * from 密碼表 where = 39。 amp。 AAA amp。 39。 = Provider=。Integrated Security=SSPI。Persist Security Info=False。Initial Catalog=人事管理。Data Source=PC2009113022HNV = adCmdText = select * from 基本信息表 where = 39。 amp。 AAA amp。 39。 = Provider=。Integrated Security=SSPI。Persist Security Info=False。Initial Catalog=人事管理。Data Source=PC2009113022HNV = adCmdText = select * from 工資表 where = 39。 amp。 AAA amp。 39。 = Provider=。Integrated Security=SSPI。Persist Security Info=False。Initial Catalog=人事管理。Data Source=PC2009113022HNV = adCmdText = select * from 工作表 where = 39。 amp。 AAA amp。 39。 = Provider=。Integrated Security=SSPI。Persist Security Info=False。Initial Catalog=人事管理。Data Source=PC2009113022HNV = adCmdText = select * from 年度考核表 where = 39。 amp。 AAA amp。 39。Else = Provider=。Integrated Security=SSPI。Persist Security Info=False。Initial Catalog=人事管理。Da
公司管理相關推薦
鄂ICP備17016276號-1