【正文】 as if a man that negotiates between two princes, to draw them to join in a war against the third, doth extol the forces of either of them above measure, the one to the other: and sometimes, he that deals between man and man, raiseth his own credit with both by pretending greater interest than he hath in either. And in these, and the like kinds, it often falls out that somewhat is produced of nothing: for lies are sufficient to breed opinion, and opinion brings on substance. In military manders and soldie rs, vainglory is an essential poin。 beaucoup de bruit, peu de fruit: much bruit, little fruit Yet certainly there is use of this quality, in civil affairs. Where there is an opinion, and fame to be created, either of virtue, or greatness, these men are good trumpeters. Again, as Titus Livius noteth, in the case of Antiochus, and the Aetolians。 for all bravery stands upon parisons. They must needs be violent, to make good their own vaunts. Neithe r can they be secret, and therefore not effectual。 but we have a wild journey, also which is national and modern, and that is the journey to Amack on the night of the New Year. All indifferent poets and poetesses, musicians, newspaper writers, and artistic notabilities, I mean those who are no good, ride in the New Year39。t know what that is! The journey of the witches on broomsticks is well enough known that journey is taken on St. John39。s eve I was reading the book, and had lost myself in it so pletely, that I fot my usual New Year39。 the fly sat upon the axletree of the chariot wheel, and said. What a dust do I raise? So are there some vain persons, that whatsoever goeths indeed! They could tell us something worth hearing, if they only knew how to talk. It39。發(fā)生錯(cuò)誤時(shí) ,恢復(fù)到錯(cuò)誤發(fā)生前的狀態(tài) MsgBox 39。使用 Refresh 方法對(duì)數(shù)據(jù)重新排序 Initial Exit Sub 39。初始化功能鍵狀態(tài) End Sub Private Sub Save_Click() With 成績信息 . = False End With On Error GoTo SaveErr BeginTrans 39。根據(jù)員工號(hào)查找記錄 If Then 39。 39。如果輸入的員工號(hào)不為空 ,且按下確定按鈕時(shí) Find = 員工號(hào) = amp。顯示錯(cuò)誤信息 Private Sub Exit_Click() Unload Me End Sub Private Sub Find_Click() With 成績信息 . = False End With Dim Find As String Find = InputBox(請(qǐng)輸入員工號(hào) , 按員工號(hào)查找 ) 39。跳離本程序 DelErr: Rollback 39。顯示前一個(gè)記錄 If = 0 Then 39。確定要?jiǎng)h除記錄嗎 ? BeginTrans 39。顯示錯(cuò)誤信息 End Sub Private Sub Delete_Click() With 成績信息 . = False End With Dim sel As String On Error GoTo DelErr 39。取消數(shù)據(jù)寫入 Initial Exit Sub 39。顯示錯(cuò)誤信息 End Sub Private Sub Cancel_Click() With 成績信息 . = False End With On Error GoTo CancelErr 39。取消 和 保存 命令可用 Exit Sub 39。避免程序運(yùn)行錯(cuò)誤 ,發(fā)生死機(jī) 39。當(dāng)數(shù)據(jù)庫中沒有記錄時(shí) = False = True = False = False = False = False Else 39。顯示 FORMMAIN 窗體 , 并將用戶類型和用戶名傳到 MDI 窗體中的 mnUserType, msUserName 中 Load FORMMAIN With FORMMAIN .Show Unload Me End With End If Else Load FORMMAIN With FORMMAIN . = False . = False . = False . = False .Show Unload Me End With End If End Sub Private Sub Form_Load() = 5025 = 3675 End Sub Private Sub optUsertype_Click(Index As Integer) If optUsertype(1).Value = True Then = False = False Else = True = True End If End Sub 成績信息、員工信息、課程信息、需求信息、課程評(píng)價(jià)等窗體代碼幾乎相同，所以列出一個(gè)窗體的代碼做代表： Public Sub SaveCancelEnable() 39。登錄失敗 MsgBox 對(duì)不起，無此用戶或者密碼不正確！請(qǐng)重新輸入??！ , vbCritical, 錯(cuò)誤 = 0 = Len(txtUserName) nTryCount = nTryCount + 1 If nTryCount = 3 Then MsgBox 您無權(quán)操作本系統(tǒng) !再見！ , vbCritical, 無權(quán)限 Unload Me End If Else 39。 根據(jù) strSQL 的 內(nèi) 容 刷 新 39。 On Error Resume Next 39。 pwd amp。 and Password=39。 user amp。根據(jù)不同的身份，選擇不同的表用以查詢 Dim r As New Set r = Dim strSQL As String If optUsertype(0).Value = True Then strSQL = select * from Manager where UserName=39。員工登陸時(shí)“增加”、“刪除”等按鈕不可見 ,只顯示“查找”和“退出” 員工信息 .Show With 員工信息 . = False . = False . = False . = False . = False . = False End With End Sub 登錄窗體模塊的程序： Private Sub cmdCancel_Click() End End Sub Private Sub cmdOK_Click() 39。員工登陸時(shí)“增加”、“刪除”等按 鈕不可見 ,只顯示“查找”和“退出” 成績信息 .Show With 成績信息 . = False . = False . = False . = False . = False . = False End With End Sub Private Sub cjgl_Click() 成績信息 .Show With 成績信息 . = False End With End Sub Private Sub kccx_Click() 39。 參考文獻(xiàn) 1 求是科技 .Visual Basic 數(shù)據(jù)庫開發(fā)技術(shù)與工程實(shí)踐 .北京：人民郵電出版社 , 2020， 4961. 2 龔沛曾，陸慰民，楊志強(qiáng) .Visual Basic 程序設(shè)計(jì)教程（ 版） .北京：清華大學(xué)出版社 , 2020,253255. 3 林卓燃 .VB 語言程序設(shè)計(jì) .電子工業(yè)出版社 ,2020 4 王寧 . Access2020 范例入門與應(yīng)用 .北京 : 人民郵電出版社 , 2020,2336. 5 守希博 ,王茹 .中文 Access2020 完全教程 .北京 :希望電子出版社 ,2020,5661. 6 范國平 ,陳曉鵬 .Access2020 數(shù)據(jù)庫系統(tǒng)開發(fā)實(shí)力導(dǎo)航 .北京 。他無論在理論上還是在實(shí)踐中，都給與我很大的幫助，使我得到不少的提高這對(duì)于我以后的工作和學(xué)習(xí)都有一種巨大 的幫助，感謝他細(xì)心而又耐心的輔導(dǎo)。 致 謝 在這次的畢業(yè)設(shè)計(jì)中， 我從指導(dǎo)老師王立武老師身上學(xué)到了很多東西。 本系統(tǒng)基本實(shí)現(xiàn)了用戶對(duì)各個(gè)信息 的查詢、瀏覽等操作，管理員可對(duì)任何信息進(jìn)行添加、刪除、編輯等操作。 本系統(tǒng)的特點(diǎn)在于，操作簡單明了，并且設(shè)計(jì)思路清晰，每一個(gè)窗體的操作方式大體相似。 表 15 關(guān)于窗體及其控件屬性 控件 名稱 屬性 Form 關(guān)于 Caption 屬 性設(shè)為“關(guān)于 ” Command Command1 Caption 屬性設(shè)為 “ 確定 ” Image imgLogo Picture 屬性設(shè)為“ Icon” Label Label1 Caption 屬性為空 Label Label2(0) Caption屬性設(shè)為“企業(yè)員工培訓(xùn)管理系統(tǒng)” Label Label2(1) Caption屬性設(shè)為“數(shù)據(jù)環(huán)境： Access2020” Label Label2(2) Caption 屬性設(shè)為“開發(fā)環(huán)境： Visual Basic ” Label Label3(0) Caption屬性設(shè)為“版權(quán)所有，違者必究！ ” Label Label3(1) Caption 屬性設(shè)為“授權(quán)給：任何給本系統(tǒng)提出寶貴意見的人 ” 窗體如圖 13 所示 圖 13關(guān)于窗體示意圖 結(jié) 論 經(jīng)過三個(gè)多月的設(shè)計(jì)和開發(fā)，企業(yè)員工培訓(xùn)管理系統(tǒng)基本開發(fā)完畢。當(dāng)員工進(jìn)入窗體時(shí)，只顯示“查找”和“退出”按鈕。 員工信息窗體的制作 新建一個(gè)窗體，命名“員工信息”，其屬性和其他控件的設(shè)計(jì)如表 14 所示。 課程評(píng)價(jià)窗體的制作 新建一個(gè)窗體，命名“課程評(píng)價(jià)”，其屬性和其他控件的設(shè)計(jì)如表 13 所示。 表 12 培訓(xùn)需求信息窗體及其控件屬性 控件 名稱 屬性 Form 需求信息 Caption 屬性設(shè)為“需求信息”， MDIChild屬性設(shè)為 T