數(shù)據(jù)庫管理系統(tǒng)企業(yè)員工信息管理-閱讀頁
2025-05-02 22:03本頁面
【正文】 hen If Then Exit Sub End IfEnd IfEnd SubPrivate Sub Command4_Click()End SubPrivate Sub Command5_Click() = True = False = False = False = False = False = False = = = End SubPrivate Sub Command6_Click()Dim res As String res = MsgBox(你確定要刪除此信息嗎？, vbQuestion + vbYesNo, 提示)If res = vbYes Then If Then End IfEnd IfEnd SubPrivate Sub Command7_Click()Dim res As String res = MsgBox(你確定要更新此信息嗎？, vbQuestion + vbYesNo, 提示)If res = vbYes Then = select * from usermessege where uname=39。 Trim() amp。 If = False Then MsgBox 此用戶名已經(jīng)存在，請另外選擇用戶名！, vbOKOnly + vbExclamation, 警告 Exit Sub End If (Uname) = Trim() (Upassword) = Trim() (Utype) = Trim() MsgBox 信息修改成功！, vbOKOnly + vbExclamation, 提示 End If = False = False = False = True = True = True = True = True = True = Uname = Upassword = UtypeEnd SubPrivate Sub Command8_Click() = False = False = False = True = True = True = True = True = True End Sub三、密碼修改Private Sub Command1_Click()39。判斷原密碼是否正確 = adCmdText = select * from usermessege where uname=39。 amp。 If Trim() Trim((Upassword).Value) Then MsgBox 原密碼不正確！, vbOKOnly + vbExclamation, 警告 = = = Exit Sub End If39。限制密碼長度If Len(Trim()) 6 Or Len(Trim()) 16 Then MsgBox 密碼必須為616位！, vbOKOnly + vbExclamation, 警告 = = Exit SubEnd If 39。判斷兩次所輸入的密碼是否一致If Then MsgBox 輸入密碼不一致，請重新輸入, vbOKOnly + vbExclamation, 警告 = = Exit SubEnd If39。在本例中我們詳細地講述了該學生信息管理系統(tǒng)的系統(tǒng)設計部分，包括功能模塊設計、數(shù)據(jù)庫結(jié)構設計等。在本項目的軟件開發(fā)的過程中，我全面實踐一個面向數(shù)據(jù)庫的應用系統(tǒng)的開發(fā)過程，學習了很多有關的知識。一些以前沒有學得很雜實的課程的內(nèi)容，由于需要在實踐中運用，剛開始我也感到很頭痛。另外我還充分體會了從事軟件開發(fā)工作需要特別嚴謹認真的態(tài)度和作風，一點都馬虎不得。有時候，我自己覺得我寫的程序非常的正確，但是就是編譯通不過，在查找錯誤的過程中，面臨著否認自己的過程，非常的痛苦。盡管向老師請教解決問題比較快，自己鉆研花的時間較多，但我強迫自己獨立的思考對我的學習提高幫助非常大。因為我涉及到的僅僅是企業(yè)營銷管理的一部分簡單內(nèi)容，離實際的客戶需求肯定還有一定的差距。在本系統(tǒng)的設計過程和論文編寫過程中，佟老師和同學們都給予了我許多無私的幫助，尤其是佟老師給我的論文提出了很多寶貴的修改意見，在這里，我向這些無私幫助我的人表示衷
公司管理相關推薦
鄂ICP備17016276號-1