【正文】 rue Label Label1 Caption 屬性設(shè)為“需要培訓(xùn)的課程” Label Label2 Caption 屬性設(shè)為“要求培訓(xùn)的員工” Label Label3 Caption 屬性設(shè)為“所在部門” Label Label4 Caption 屬性設(shè)為“員工號(hào)” Frame Frame1 Enabled屬性設(shè)為 false Text Text1 DataSource 屬性設(shè)為 Data1,DataField 屬性設(shè)為“需 要培訓(xùn)的課程” Text Text2 DataSource 屬性設(shè)為 Data1,DataField 屬性設(shè)為“要求培訓(xùn)的員工” Text Text3 DataSource 屬性設(shè)為 Data1,DataField 屬性設(shè)為“員工號(hào)” Text Text4 DataSource 屬性設(shè)為 Data1,DataField 屬性設(shè)為“所在部門” Command Add Caption屬性設(shè)為“增加” Command Delete Caption屬性設(shè)為“刪除” Command Save Caption屬性設(shè)為“保存” Command Update Caption屬性設(shè)為“修改” Command Cancel Caption屬性設(shè)為“取消” Command Find Caption屬性設(shè)為“查找” Command Exit Caption屬性設(shè)為“退出” Command Add Caption屬性設(shè)為“增加” Data Data1 Connect 屬性設(shè)為 Access,DataBaseName 屬性設(shè)為“ D:\新建文件夾 \企業(yè)員工培訓(xùn)管理系統(tǒng) .mdb”，RecordSource 屬性設(shè)為“需求管理” 窗體如圖 10 所示 圖 10需求管理窗體示意圖 進(jìn)入窗體時(shí) ,“ 保存 ” 和 “ 取消 ” 按鈕不可用，只有在單擊“增加 ” 或“修改”按鈕以后才可用。當(dāng)員工進(jìn)入窗體時(shí)，只顯示“查找”和“退出”按鈕。 課程信息窗體的制作 新建一個(gè)窗體，命名“課程信息”，其屬性和其他控件的設(shè)計(jì)如表 11 所示。 表 10 成績(jī)信息窗體及其控件屬性 控件 名稱 屬性 Form 成績(jī)信息 Caption 屬性設(shè)為“成績(jī)信息”， MDIChild屬性設(shè)為 True Label Label1 Caption 屬性設(shè)為“員工號(hào)” Label Label2 Caption 屬性設(shè)為“課程名” Label Label3 Caption屬性設(shè)為“時(shí)間” Label Label4 Caption 屬性設(shè)為“授課教師” Label Label5 Caption屬性設(shè)為“成績(jī)” Label Label6 Caption屬性設(shè)為“評(píng)價(jià)” Frame Frame1 Enabled屬性設(shè)為 false Text Text1 DataSource 屬性設(shè)為 Data1,DataField 屬性設(shè)為“員工號(hào)” Text Text2 DataSource 屬性設(shè)為 Data1,DataField 屬性設(shè)為 “課程名” Text Text3 DataSource 屬性設(shè)為 Data1,DataField 屬性設(shè)為“時(shí)間” Text Text4 DataSource 屬性設(shè)為 Data1,DataField 屬性設(shè)為“授課教師” Text Text5 DataSource 屬性設(shè)為 Data1,DataField 屬性設(shè)為“成績(jī)” Text Text6 DataSource 屬性設(shè)為 Data1,DataField 屬性設(shè)為“評(píng)價(jià)” Command Add Caption屬性設(shè)為“增加” Command Delete Caption屬性設(shè)為“刪除” Command Save Caption屬性設(shè)為“保存” Command Update Caption屬性設(shè)為 “修改” Command Cancel Caption屬性設(shè)為“取消” Command Find Caption屬性設(shè)為“查找” Command Exit Caption屬性設(shè)為“退出” Data Data1 Connect 屬性設(shè)為 Access,DataBaseName 屬性設(shè)為“ D:\新建文件夾 \企業(yè)員工培訓(xùn)管理系統(tǒng) .mdb”，RecordSource 屬性設(shè)為“成績(jī)管理” 窗體如圖 8 所示 圖 8成績(jī)信息窗體示意圖 進(jìn)入窗體時(shí) ,“ 保存 ” 和 “ 取消 ” 按鈕不可用，只有在單擊“增 加 ” 或“修改”按鈕以后才 可用。 圖 6管理員登陸示意圖 圖 7員工登陸示意圖 整個(gè) MDI 主窗體的菜單相關(guān)內(nèi)容如表 43 所示： 表 9 FORMMAIN窗體的菜單設(shè)計(jì) 對(duì)象 屬性 設(shè)置 一級(jí)菜單 — 培訓(xùn)需求管理 標(biāo)題 培訓(xùn)需求管理 名稱 xq 說(shuō)明 員工登陸時(shí)， xq的 Enabled屬性為false 一級(jí)菜單 基本信息管 理 標(biāo)題 基本信息管理 名稱 jb 基本信息管理的二級(jí)菜單 標(biāo)題 課程信息管理 名稱 kcxx 說(shuō)明 員工登陸時(shí)， kcxx的 Enabled 屬性為false 基本信息管理的二級(jí)菜單 標(biāo)題 課程信息查詢 名稱 kccx 說(shuō)明 無(wú) 基本信息管理的二級(jí)菜單 標(biāo)題 員工信息管理 名稱 yggl 說(shuō)明 員工登陸時(shí)， yggl的 Enabled 屬性為false 基本信息管理的二級(jí)菜單 標(biāo)題 員工基本信息 名稱 ygxx 說(shuō)明 無(wú) （續(xù)表） 對(duì)象 屬性 設(shè)置 基本信息管理的二級(jí)菜單 標(biāo)題 成績(jī)信息管理 名稱 cjgl 說(shuō)明 員工登陸時(shí)， cjxx的 Enabled 屬性為false 基本信息管理的二級(jí)菜單 標(biāo)題 成績(jī)信息查詢 名稱 cjcx 說(shuō)明 無(wú) 一級(jí)菜單 — “系統(tǒng)管理” 標(biāo)題 系統(tǒng)管理 名稱 xtgl “系統(tǒng)管理”的二級(jí)菜單 標(biāo)題 關(guān)于 名稱 gy “系統(tǒng)管理”的二級(jí)菜單 標(biāo)題 退出 名稱 TC 子窗體的制作 成績(jī)信息、課程信息、員工信息、培訓(xùn)需求信息、課程評(píng)價(jià)、關(guān)于等窗體都設(shè)計(jì)為主窗體 FORMMAIN 的子窗體。在“系統(tǒng)管理”菜單中，設(shè)計(jì)兩個(gè)根菜單 —— “關(guān)于”、“退出”。 菜單的設(shè)計(jì) 主菜單有“培訓(xùn)需求管理”、“基本信息管理”、“培訓(xùn)效果評(píng)價(jià)”、“系統(tǒng)管理”等。 在工程中添加一個(gè) MDI 窗口，并取名為“ FORNMAIN” 。多文檔界面是一種 Windows 用戶界面標(biāo)準(zhǔn)。用戶需要重新輸入用戶名和口令，如果用戶登錄失敗超過(guò) 3次，則系統(tǒng)自動(dòng)退出登錄窗體，并提示用戶“無(wú)權(quán)使用該系統(tǒng)”。 如果用戶所選擇的身份，及其輸入的用戶名口令和數(shù)據(jù)庫(kù)中對(duì)應(yīng)的用戶名和密碼吻合，則用戶登錄成功，此時(shí)系統(tǒng)會(huì)自動(dòng)退出登錄窗體，并進(jìn)入到 MDI 主窗體。 用來(lái)顯示 登錄窗體 Frame fraUsertype Caption 屬性設(shè)為“用戶類型” OptionButton optUserType Caption 屬性設(shè)為“管理 表示錄入管理 員 ” ,Index設(shè)為 0 員用戶 OptionButton optUserType Caption 屬性設(shè)為“學(xué)生” ,Index設(shè)為 1 表示學(xué)生用戶 Frame frauser_psw Caption 屬性設(shè)為“登錄” Label lblUserName Caption 屬性設(shè)為“用戶 名：” Label lblPassword Caption 屬性設(shè)為“密碼” Textbox txtUserName Text設(shè)為空 用來(lái)輸入用戶名 Textbox txtPas Text 屬 性 設(shè) 為 空 , 將PasswordChar 屬性設(shè)為“ *” 用來(lái)輸入密碼 CommandButton cmdOK Caption 屬性設(shè)為“確定” CommandButton cmdCancel Caption 屬性設(shè)為“取消” 窗體的界面如圖 5 所示。 窗體界面的設(shè)計(jì) 在工程中添加一個(gè)窗體，命名為 frmLogin，再在上面添加所需要的控件，并設(shè)置它們的屬性（如表 8 所示）。 因?yàn)橛脩粼诓樵儠r(shí)需要進(jìn)行使用數(shù)據(jù)庫(kù)的表連接，所以需要在數(shù)據(jù)環(huán)境設(shè)計(jì)器 DataEnv 的數(shù)據(jù)連接對(duì)象 Con 中單擊右鍵，選擇 添加一個(gè)“數(shù)據(jù)命令”，取名為 sqlManager。同時(shí)為了避免非法用戶的干擾，對(duì)于用戶登錄窗口，如果在用戶連續(xù)輸入錯(cuò) 3 次密碼，則系統(tǒng)將會(huì)自動(dòng)退出。所以在設(shè)計(jì)登錄窗體時(shí)，要比普通的登錄窗體增加選項(xiàng)框數(shù)組，用來(lái)表示用戶身份。整個(gè)窗體界面示意如圖 4 所示。 表 7 啟動(dòng)窗體的主要控件屬性設(shè)置表 控件 名稱 屬性 Form Frmstart Caption 屬性設(shè)為 frmstart, Timer Timer Interval屬性設(shè)為 2020 Label Label1 Caption屬性設(shè)為“企業(yè)員工培訓(xùn)管理系統(tǒng)” Label Label2(0) Caption 屬性設(shè)為“開發(fā)環(huán)境： Visual Basic ” Label Label2(1) Caption屬性設(shè)為“數(shù)據(jù)環(huán)境： Access2020” Label Label3(0) Caption屬性設(shè)為“版權(quán)所有，違者必究！ ” Label Label3(1) Caption 屬性設(shè)為“授權(quán)給：任何給本系統(tǒng)提出寶貴意見的人 ” 窗體流程 當(dāng)系統(tǒng)啟動(dòng)時(shí)，啟動(dòng)窗體（ frmstart）首先啟動(dòng)，停留片刻后退出啟動(dòng)窗口，同時(shí)進(jìn)行入登錄窗口。 窗體界面的設(shè)計(jì) 新建一個(gè)窗體，將其命名為 frmstart。通常來(lái)說(shuō)， start窗體用來(lái)向用戶展示有關(guān)系統(tǒng)的版本信息、開發(fā)情況和版權(quán)信息等：同時(shí)它還可用來(lái)對(duì)應(yīng)用程序系統(tǒng)的參數(shù)初始化或初始化數(shù)據(jù)庫(kù)連接。單擊“轉(zhuǎn)為 Access97 文件格式”后，彈出對(duì)話框，選擇“ ” ，單擊轉(zhuǎn)換，然后在彈出的對(duì)話框的文件名文本框中輸入“企業(yè)員工培訓(xùn)管理系統(tǒng)”，單擊保存即可。 圖 3 Data示意圖 用 Access2020 創(chuàng)建的數(shù)據(jù)庫(kù)不能直接被 Visual 的Data 控件訪問(wèn)，必須經(jīng)過(guò)轉(zhuǎn)換。 ：向后移動(dòng)一個(gè)記錄。 ：向前移動(dòng)一個(gè)記錄。 Data 控件允許從一個(gè)記錄移動(dòng)到另一個(gè)記錄，并顯示和操作來(lái)自被連接的數(shù)據(jù)感知控件的記錄。 Data 控件 (數(shù)據(jù)控件 )是一個(gè)數(shù)據(jù)控制中心 ,使用 Microsoft 的Jet 數(shù)據(jù)庫(kù)引擎實(shí)現(xiàn)數(shù)據(jù)訪問(wèn) .使用 Data 控件訪問(wèn)數(shù)據(jù)庫(kù) ,用戶無(wú)需編寫任何代碼就可以創(chuàng)建數(shù)據(jù) 應(yīng)用程序 ,Data控件很適合桌面數(shù)據(jù)庫(kù)的訪問(wèn) ,如 Access、 FoxPro 等。這時(shí)，再將數(shù)據(jù)連接 Con 的相關(guān)屬性進(jìn)行設(shè)置，將它的 CursorLocation 屬性選為“ 3adUseClient” ?！钡膶?duì)話框提示。 （ 2）一旦數(shù)據(jù)環(huán)境設(shè)計(jì)器被添加到工程中，數(shù)據(jù)環(huán)境設(shè)計(jì)器窗口出現(xiàn)，并且將一個(gè) Connection 對(duì)象添加到數(shù)據(jù)環(huán)境。 在引用了數(shù)據(jù)環(huán)境設(shè)計(jì)器之后，就可 向工程中添加一個(gè)數(shù)據(jù)環(huán)境設(shè)計(jì)器。 在添加一個(gè)數(shù)據(jù)環(huán)境設(shè)計(jì)器以前，需要引用數(shù)據(jù)環(huán)境設(shè)計(jì)器，應(yīng)按照以下步驟執(zhí)行： （ 1）在“工程”菜單中，單擊“引用?”按扭。 所謂“數(shù)據(jù)環(huán)境（ Data Environment） ” ,是指在打開或修改一個(gè)表單或報(bào)表時(shí)需要打開的全部表、視圖和關(guān)系。 本部分采取 ADO 作為數(shù)據(jù)連接手段，同時(shí)采取“數(shù)據(jù)環(huán)境設(shè)計(jì)器”作為數(shù)據(jù)連接 ADO 的載體。 建立數(shù)據(jù)連接 本系統(tǒng)在設(shè)計(jì)登陸窗體時(shí)利用了 ADO 作為數(shù)據(jù)連接手段，其它窗體都是用 Data 控件作為連接手段。 表 1 員工信息表 字段名 類型 寬度 備注 員工號(hào) 數(shù)字 10 主關(guān)鍵字 員工姓名 文本 10 性別 文本 2 所在部門 文本 50 身份證號(hào) 文本 50 出生年月 日期 \時(shí)間 50 籍貫 文本 50 民族 文本 10 婚姻狀況 文本 10 健康狀況 文本 20 參加工作時(shí)間 日期 \時(shí)間 50 職稱 文本 20 崗位 文本 20 家庭住址 文本 50 聯(lián)系電話 數(shù)字 20 表 2 課程信息表 字段名 類型 寬度 備注 課程號(hào) 數(shù)字 10 主關(guān)鍵字 課程類別 文本 20 課程名 文本 50 課程學(xué)時(shí) 數(shù)字 20 表 3 成績(jī)信息表 字段名 類型 寬度 備注 員工號(hào) 數(shù)字 10 主關(guān)鍵字 課程名 文本 50 時(shí)間 日期 \時(shí)間 50 授課教師 文本 20 成績(jī) 數(shù)字 10 評(píng)價(jià) 文本 50 表 4 需求信息 字段名 類型 寬度 備注 員工號(hào) 數(shù)字 10 主關(guān)鍵字 需要培訓(xùn)的課程 文本