【正文】 there are sometimes great effects of cross lies。s night through the air to Amack. They sit backwards on their painting b all lapse of time, and had bee a cipher and a nothing. Then three alone, or moveth upon greater means, if they have never so little hand in it, they think it is they that carry it They that are glorious, must needs be factious。s diversion, namely, the wild hunt to Amack. Ah, you don39。顯示錯(cuò)誤信息 End Sub Private Sub Update_Click() With 成績信息 . = True End With On Error GoTo UpdateErr SaveCancelEnable Exit Sub UpdateErr: MsgBox End Sub 54 Of Vainglory It was prettily devised of Aesop。使用 Update 方法把數(shù)據(jù)寫入數(shù)據(jù)庫 CommitTrans 39。查找字符串 (Find) 39。彈出對話框 , 讓用戶輸入員工號 If Find Then 39。如果數(shù)據(jù)庫已空 ,則顯示相應(yīng)信息 X = MsgBox( 數(shù) 據(jù) 庫 中 已 經(jīng) 沒 有 員 工 成 績 的 記 錄 !, vbInformation + vbOKOnly, 數(shù)據(jù)庫信息 ) End If End If Exit Sub 39。避免程序運(yùn)行錯(cuò)誤 ,發(fā)生死機(jī) sel = MsgBox( 確 定 要 刪 除 這 個(gè) 記 錄 嗎 ?, vbQuestion + vbOKCancel, 確定刪除 ) If sel = 1 Then 39。避免程序運(yùn)行錯(cuò)誤 ,發(fā)生死機(jī) 39。添加一個(gè)記錄 SaveCancelEnable 39。使 保存 和 取消 按鈕有效 = False = False = False = False = True = True End Sub Public Sub Initial() If = 0 Then 39。用戶密碼錯(cuò)誤的次數(shù)，如果錯(cuò)誤次數(shù)超過 3 次，則退出系統(tǒng) Static nTryCount As Integer If Then 39。 39。 39。取得用戶輸入的用戶名和密碼 Dim user As String, pwd As String user = txtUserName pwd = txtPassword 39。人民郵電出版社 ,2020,6870. 7 申莉莉 .數(shù)據(jù)庫系統(tǒng)與 Access 教程 .北京 :清華大學(xué)出版社 ,2020. 附錄 源程序 主窗體各菜單設(shè)置程序 : Private Sub BZ_Click() 幫助 .Show End Sub Private Sub cjcx_Click() 39。王立武認(rèn)真負(fù)責(zé)的工作態(tài)度，嚴(yán)謹(jǐn)?shù)闹螌W(xué)精神和深厚的理論水平都使我收益匪淺。使用戶不需要具備過高的計(jì)算機(jī)相關(guān)知識也能容易上手。 關(guān)于窗體的制作 新建一個(gè)窗體，命名“關(guān)于”，其屬性和其他控件的設(shè)計(jì)如 15 表所示。 表 13 課程評價(jià)窗體及其控件屬性 控件 名稱 屬性 Form 成績信息 Caption屬性設(shè)為“成績信息”， MDIChild屬性設(shè)為 True Label Label1(0) Caption 屬性設(shè)為“員工姓名” Label Label2(1) Caption 屬性設(shè)為“課程評價(jià)” Label Label3(2) Caption屬性設(shè)為“日期” Label Label4(3) Caption 屬性設(shè)為“員工號” Frame Frame1 Enabled 屬性設(shè)為 false Text Text1 DataSource屬性設(shè)為 Data1,DataField 屬性設(shè)為“員工號” Text Text2 DataSource屬性設(shè)為 Data1,DataField 屬性設(shè)為“員工姓名” Text Text3 DataSource屬性設(shè) 為 Data1,DataField 屬性設(shè)為“日期” Text Text4 DataSource屬性設(shè)為 Data1,DataField 屬性設(shè)為“課程評價(jià)” Command Add Caption屬性設(shè)為“增加” Command Save Caption屬性設(shè)為“保存” Command Cancel Caption屬性設(shè)為“取消” Command Exit Caption屬性設(shè)為“退出” Data Data1 Connect屬性設(shè)為 Access,DataBaseName屬性設(shè)為“ D:\新建文件夾 \企業(yè) 員工培訓(xùn)管理系統(tǒng) .mdb”，RecordSource 屬性設(shè)為“需求管理” 窗體如圖 11 所示 圖 11課程評價(jià)窗體示意圖 進(jìn)入窗體時(shí) ,“ 保存 ” 和 “ 取消 ” 按鈕不可用，只有在單擊“增加 ” 按鈕以后才可用。 培訓(xùn)需求信息窗體的制作 新建一個(gè)窗體，命名“培訓(xùn)需求信息”，其屬性和其他控件的設(shè)計(jì)如表 12 所示。當(dāng)員工進(jìn)入窗體時(shí)，只顯示“查找”和“退出”按鈕。如果以管理員身份登陸的話，則 FORMMAIN 窗體菜單如圖 6 所示，如果以員工身份登陸的話，如圖 7 所示。進(jìn)行菜單的設(shè)計(jì)和代碼的設(shè)計(jì)。 FORMMAIN 主窗體的制作 本系統(tǒng)采 取多文檔界面（ Multi Document Interface ,MDI） 來組織系統(tǒng)中各個(gè)窗體。 圖 5 登錄窗體示意圖 窗體流程 在驗(yàn)證用戶時(shí)，如果用戶選擇了“管理員”身份，則 系統(tǒng)將會在數(shù)據(jù)庫中的 Manager 表進(jìn)行查詢，以確定是否在相應(yīng)的用戶名和口令；如果用戶選擇了“員工”身份，則系統(tǒng)不需要身份驗(yàn)證，可直接進(jìn)入系統(tǒng)。 再打開剛剛添加的數(shù)據(jù)命令 sqlManager 的屬性對話框，在“通用”選項(xiàng)卡上選擇“ SQL 語句”，并輸入“ select UserName,Password from manager。選項(xiàng)框數(shù)組由兩個(gè)選項(xiàng) 框組成，其中下標(biāo)為 0 的選項(xiàng)框表示管理員，下 標(biāo)為 1 的選項(xiàng)框表示員工。然后調(diào)整窗體及各個(gè)控件的大小、位置。在本系統(tǒng)中，沒有初始化工作需要做， start 窗體只起展示屏幕的作用。 在 Access 的主窗口的菜單攔中單擊“工具”菜單，然后依此選擇“數(shù)據(jù)庫實(shí)用工具”、“轉(zhuǎn)換數(shù)據(jù)庫”、“轉(zhuǎn)為 Access97 文件格式”子菜單。 ：移動(dòng)到當(dāng)前記錄集的最后一個(gè)記錄。 Data 控件是 Visual Basic 的內(nèi)部控件，加到窗體上后的外形如圖 所示。單擊“確定”。添加數(shù)據(jù)環(huán)境設(shè)計(jì)器，應(yīng)按以下步驟： （ 1）從“工程”菜單中，選擇“添加 Data Environment”。隨窗體或報(bào)表一起保存的數(shù)據(jù)環(huán)境可用“數(shù)據(jù)環(huán)境設(shè)計(jì)器”進(jìn)行修改。 ADO 作為數(shù)據(jù)連接手段， 所以需要在工程中添加對 ADO 的引用，具體方法如下：新建工程后，選擇菜單中的“工程”里的“引用”，在 出現(xiàn) 的 表 單中 選 擇 “ Microsoft ActiveX Data Objects Library” ,并單擊“確定”按扭。其中表1 用來存儲員工信息，表 2 用來存儲課程信息，表 3 用來存儲成績信 息，表 4 用來存儲需求信息，表 5 用來存儲課程評價(jià)，表 6 用來存儲管 理員的帳號與密碼。而課程信息查詢、員工基本信息、成績信息查詢是允許員工登陸的，員工不需要密碼，直接可以瀏覽這三個(gè)子模塊，但不允許做任何操作，如果有任何疑義，需要想管理員報(bào)告，只能管理員對其信息進(jìn)行修改。 MDI主窗體 （系統(tǒng)主窗體） 查找，瀏覽自己的信息、成績信息、課程信息 瀏覽，錄入新的信息。 Start窗體停留幾秒后進(jìn)入登錄窗體 企業(yè)員工培訓(xùn)管理系統(tǒng) 培訓(xùn)需求管理 基本信息管理 培訓(xùn)效果評價(jià) 系統(tǒng)管理 課程信息管理 員工基本信息 員工信息管理 課程信息查詢 成績信息查詢 成績信息管理 系統(tǒng)的總體流程 Start窗體 （用以顯版本信息和系統(tǒng)信息） 登錄窗體 （用戶可分為員工，管理員） 通過驗(yàn)證 以員工用戶登錄 以管理員登錄 圖 2系統(tǒng)流程圖 3 企業(yè)員工培訓(xùn)系統(tǒng)的分析與設(shè)計(jì) 企業(yè)員工培訓(xùn)管理系統(tǒng)的分析與概要設(shè)計(jì) 企業(yè)員工培訓(xùn)管理系統(tǒng)的分析 企業(yè)員工培訓(xùn)管理系統(tǒng)是針對企業(yè)在對員工培訓(xùn)的大量業(yè)務(wù)處理工作而開發(fā)的軟件。而對于管理員而言，可以對所有的信息進(jìn)行查閱、刪除、新增等具體操作。其中包括員工號、員工姓名、職稱、出生日期、性別、家庭住址、聯(lián)系電話等信息。借助計(jì)算機(jī)，管理人員能夠很好對企業(yè)員工培訓(xùn)進(jìn)行管理，同時(shí)可以避免以前由于誤操作而引起的錯(cuò)誤。不管每年新增的員工 ,還是老員工 ,都要學(xué)習(xí)新的技能 ,如果對員工培訓(xùn)使用人工管理，不僅僅浪費(fèi)了大量的人力資源，還有大量的金錢。 最后畢業(yè)設(shè)計(jì)小結(jié)， 總結(jié)部分介紹了設(shè)計(jì)體會和編程體會，并指出了系統(tǒng)設(shè)計(jì)中的不足和改進(jìn)的方向。 本文所做的工作 第一部分 緒論部分 主要敘述課題提出背景、目前應(yīng)用現(xiàn)狀、分析比較當(dāng)前開發(fā)工具，數(shù)據(jù)庫技術(shù)的比較。當(dāng) 1993 年Visual 發(fā)布的時(shí)候， 內(nèi)置于其中。 Access 中數(shù)據(jù)庫文件不僅包含傳統(tǒng)意義上的表，還包括操作或控制操作的其他對象（如查詢、窗體和報(bào)表等）。 Access 最重要的特征是不必編寫程序。同時(shí)， Visual Basic 還能直接編輯和訪問其他外部數(shù)據(jù)庫，如 dBASE， FoxPro， Paradox 等，這些數(shù)據(jù)庫格式都可以用 Visual Basic 編輯和處理。它簡單易學(xué)、效率高，且功能強(qiáng)大，而且程序開發(fā)人員不必具有C/C++編程基礎(chǔ)。 在下面的各章中我們將以開發(fā)一套企業(yè)員工培訓(xùn)管理系統(tǒng)為例 ,談?wù)勂溟_發(fā)過程和所涉及到的問題及解決方法。這些優(yōu)點(diǎn)能夠極大地提高員工培訓(xùn)管理的效率 ,也是企業(yè)的科學(xué)化、正規(guī)化管理 ,與世界接軌的重要條件。 only managers have the rights to add, delete and search, etc. Having these functions, the data of the system cannot be easily modified, and the safety of the system is greatly improved. key words: management database system visible 引言 隨著計(jì)算機(jī)技術(shù)的普及 ,數(shù)據(jù)信息處理技術(shù)得到了空前發(fā)展 ,使得越來越多的人員從事于數(shù)據(jù)庫操作相關(guān)的開發(fā)工作 ,并且不斷有新人準(zhǔn)備加入其中 .計(jì)算機(jī)科學(xué)日漸成熟 ,其強(qiáng)大的功能已為人們深刻認(rèn)識 ,它已進(jìn)入人類社會的各個(gè)領(lǐng)域并發(fā)揮著越來越重要的作用。只有管理員可 以進(jìn)行數(shù)據(jù)的添加、刪除、查找等操作。利用 VB 提供的強(qiáng)大的可視化組件庫進(jìn)行編程，可以快速，高效的開發(fā)基于WINDOWS 環(huán)境的各類應(yīng)用系統(tǒng)。對于前者要求建 立起數(shù)據(jù)一致性和完整性強(qiáng) .數(shù)據(jù)安全性好的庫。而對于后者則要求應(yīng)用程序功能完備、易使用等特點(diǎn)。本系統(tǒng)的數(shù)據(jù)環(huán)境為 ACCESS2020。這樣數(shù)據(jù)不容易被篡改，提高了系統(tǒng)的安全性。 企業(yè)員工培訓(xùn)管理系統(tǒng)是一個(gè)企業(yè)單位在培訓(xùn)人才時(shí)不可缺少的部分 ,它的內(nèi)容對于企業(yè)的決策者和管理者來說都至關(guān)重要 ,所以企業(yè)員工培訓(xùn)管理系統(tǒng)應(yīng)該能夠?yàn)橛脩籼峁┏渥愕男畔⒑涂旖莸牟樵兪侄?。 因此，開發(fā)這樣一套管理軟件成為很有必要的事情 . 在開發(fā)的企業(yè)員工培 訓(xùn)管理系統(tǒng)里遵循著的規(guī)則是：以通信功能作為界面設(shè)計(jì)的中心，使人與計(jì)算機(jī)之間能夠準(zhǔn)確地交流信息。 1 概述 開發(fā)工具的選擇 現(xiàn)在，市場上可以選購的應(yīng)用開發(fā)產(chǎn)品很多，流行的也有數(shù)十種。 在用 Visual Basic 設(shè)計(jì)大型應(yīng)用軟件時(shí)，不必建立具有明顯開始和結(jié)束的程序，而是編寫若干個(gè)微小的子程序，即過程。 簡介 Access2020 是 Office 軟件包的成員之一， Access