企業(yè)人事部查詢系統(tǒng)(編輯修改稿)
2025-07-16 21:57 本頁(yè)面
【文章內(nèi)容簡(jiǎn)介】 計(jì) 7 / 18圖 15 圖 15 為系統(tǒng)的主界面其用菜單編輯器完善了主界面的菜單。 Private Sub Form_Load() End Sub Private Sub sfgl_Click() 顯示登陸藥房管理系統(tǒng) End Sub 醫(yī)院藥房管理系統(tǒng)界面圖 16 該界面顯示了本系統(tǒng)要實(shí)現(xiàn)的藥品信息維護(hù)、查詢等功能。 Private Sub wh_Click() 顯示藥品進(jìn)銷存信息的添加、修改、刪除功能界面End SubPrivate Sub cx_Click() 顯示藥品進(jìn)銷存信息與相關(guān)金額的查詢功能界面End SubPrivate Sub note_Click()Shell , 1 此為方便于管理者的記事本輔助功能8 / 18End SubPrivate Sub jsq_Click()Shell , 1 此為方便于管理者的計(jì)算器輔助功能End SubPrivate Sub tjyh_Click() 顯示添加用戶界面End SubPrivate Sub ggmm_Click() 顯示更改密碼界面End Sub 修改和添加用戶和密碼 添加用戶 輸入用戶名、密碼、確認(rèn)密碼點(diǎn)確認(rèn)就可以了非常容易實(shí)現(xiàn)。Private Sub Command1_Click() *此代碼說(shuō)明用戶添加完用戶名和密碼后進(jìn)* 行確認(rèn)的功能*If = Or = ThenMsgBox 請(qǐng)輸入用戶名或密碼 Else If = Then(user) = (passwd) = MsgBox 用戶添加成功 = 9 / 18 = = Else: MsgBox 兩次輸入的密碼不同，請(qǐng)重新輸入 = = End If End IfEnd Sub Private Sub Command2_Click()Unload MeEnd SubPrivate Sub Form_Load() Left = ( Width) / 2 27 Top = ( Height) / 2End Sub 修改密碼當(dāng)用戶改完原密碼和用戶口令后進(jìn)行確認(rèn)的代碼:Private Sub Command1_Click() On Error Resume Next user=39。 amp。 username amp。 39。If (passwd).Value = Then If = Then (passwd).Value = 10 / 18 MsgBox 密碼修改成功！, vbInformation, 信息 = = = Else MsgBox 新密碼與驗(yàn)證碼不一致！, vbCritical, 錯(cuò)誤 = = = 28 ElseMsgBox 原密碼不正確！, vbCritical, 錯(cuò)誤
環(huán)評(píng)公示相關(guān)推薦
鄂ICP備17016276號(hào)-1