【文章內(nèi)容簡介】 由上面的設(shè)計規(guī)劃出的實體有：部門實體、員工實體、課程實體、資源實體。 實體和實體之間的關(guān)系 E－ R圖如圖 4－ 3所示。 圖 43 實體之間關(guān)系 E－ R 圖 數(shù)據(jù)庫共包括 7 個表，具體數(shù)據(jù)字典見表 17。 表 41 course_info 課程信息表 屬性名 數(shù)據(jù)類型 大小 允許空 說明 Course_No Int 4 否 課程號 Course_Name Char 10 是 課程名 Course_Type Char 10 是 課程類型 Course_Des Char 15 是 課程注釋 表 42 course_need 培訓(xùn)需求分析表 屬性名 數(shù)據(jù)類型 大小 允許空 說明 Course_Name Char 10 否 培訓(xùn)課程名 Course_Des Varchar 50 是 培訓(xùn)需求 表 43 plan_info 培訓(xùn)計劃表 屬性名 數(shù)據(jù)類型 大小 允許空 說明 Project Char 10 否 培訓(xùn)項目 Time Datetime 8 是 培訓(xùn)時間 Place Char 10 是 培訓(xùn)地點 表 44 result_info員工成績表 屬性名 數(shù)據(jù)類型 大小 允許空 說明 Exam_no Char 10 否 考試編號 Student_id Int 4 是 員工號 Student_name Char 10 是 員工名 Course_no Int 4 是 課程號 Course_name Char 10 是 課程名 Result Float 8 是 成績 表 45 student_info員工基本信息表 屬性名 數(shù)據(jù)類型 大小 允許空 說明 Student_id Int 4 否 員工號 Student_name Char 10 是 員工名 Student_sex Char 2 是 性別 Birth_date Datetime 8 是 出生日 期 Depart Char 10 是 部門 Tele_number Char 10 是 電話號碼 In_date Datetime 8 是 就職日期 Address varChar 50 是 家庭地址 Comment varChar 100 是 注釋 表 46 trainresult_info員工培訓(xùn)評價表 屬性名 數(shù)據(jù)類型 大小 允許空 說明 Pro char 10 否 培訓(xùn)項目 Effect Varchar 50 是 培訓(xùn)效果評價 表 47 user_info 用戶密碼表 屬 性名 數(shù)據(jù)類型 大小 允許空 說明 user_id Char 10 否 用戶 id user_pwd Char 10 是 用戶密碼 user_name Char 10 是 用戶名 user_level Int 4 是 權(quán)限等級 user_des Char 10 是 用戶描述 第五章 系統(tǒng)的具體設(shè)計 歡迎主界面及代碼設(shè)計 運行員工培訓(xùn)管理系統(tǒng)后，首先將出現(xiàn)歡迎主界面，如下圖。 圖 51 歡迎主界面 歡迎主界面代碼設(shè)計 歡迎主界面實現(xiàn)的代碼設(shè)計如下： Dim DelayTime As Integer ’ 定義計時器 Private Sub Form_Load() DelayTime = 0 = True End Sub Private Sub Timer1_Timer() If DelayTime 3 Then ’ 延遲三秒載入登錄界面 = False Load FrmLogin Unload Me Else DelayTime = DelayTime + 1 End If End Sub 登錄界面及代碼設(shè)計 圖 52 登錄界面 登錄界面代碼設(shè)計 登錄界面實現(xiàn)的代碼設(shè)計如下： Dim MyLogin As OpenRs ’ 定義變量 Dim UseridSQL As String Dim Level As Integer Public CurrentUser As String Private Sub Cmdcancel_Click() ’ 取消按鈕命令 Unload Me ’ 釋放當前表 End Sub Private Sub cmdOK_Click() ’ 確定密碼命令 If = administrator And = Then Unload Me Exit Sub End If ’ 如權(quán)限符合 ,準予登陸 If = Then MsgBox 請輸入用戶編號！ , vbOKOnly + vbInformation, 用戶登陸 Exit Sub ’ 用戶為空時提示 ,聚焦 Else UseridSQL = select * from User_Info where user_Id=39。 amp。 amp。 39。 ’ 用戶非空時啟用數(shù)據(jù)庫鏈接 UseridSQL ’ 把 sql語句傳給函數(shù) If = False Then ’ 列表未到底從數(shù)據(jù)庫中取值 = Trim(!user_name) Level = !user_level If = Trim(!user_pwd) Then ’ 密碼符合 CurrentUser = Trim(!user_name) Call DisplayMenu Unload Me ’ 載入主界面 Else MsgBox 密碼錯誤！ amp。 vbCrLf amp。 vbCrLf amp。 請重新輸入！ , vbOKOnly + vbInformation, 用戶登陸 ’ 密碼錯誤 提示 = Exit Sub End If Else MsgBox 用戶編號不存在！ amp。 vbCrLf amp。 vbCrLf amp。 請重新輸入！ , vbOKOnly + vbInformation, 用戶登陸 ’ 用戶不存在 提示 ,清空聚焦 = Exit Sub End If End If End Sub Private Sub Form_Load() Set MyLogin = New OpenRs ’ 引用類函數(shù) End Sub Private Sub txtPass_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then ’ 輸密碼時回車確定 Call cmdOK_Click End If End Sub Private Sub txtUserId_Change() ’ 用戶名改變文本框清空 = = End Sub Private Sub txtUserId_LostFocus() ’ 焦點從用戶 id轉(zhuǎn)移時從數(shù)據(jù)庫讀入用戶名 UseridSQL = select * from User_Info where user_Id=39。 amp。 amp。 39。 UseridSQL If = False Then = Trim(!user_name) End If End Sub Private Sub DisplayMenu() ’ 設(shè)置用戶不同等級的訪問權(quán)限 ,不夠等級隱藏 If Level = 2 Then = False = False = False = False ElseIf Level = 3 Then = False = False = False = False = False = False = False = False End If End Sub 系統(tǒng)主界面及代碼設(shè)計 界面 用戶登錄后，將進入系統(tǒng)主界面，如下圖： 圖 53 系統(tǒng)主界面 界面代碼設(shè)計 系統(tǒng)主界面實現(xiàn)的代碼設(shè)計如下： Dim Myinfo As String ’ 定義變量 Dim success As Long Private Declare Function htmlhelp Lib Alias HtmlHelpA (ByVal hwndCaller As Long, ByVal pszFile As String, ByVal uCommand As Long, ByVal dwData As Long) As Long Private Sub MDIForm_Load() Set Classprint = New OpenRs ’ 調(diào)用類函數(shù) = True Dim mypanel As Panel Set mypanel = (1, , , sbrDate) 39。狀態(tài)欄 1顯示日期 Set mypanel = (2) 39。狀態(tài)欄 2顯示星期幾 Call MyWeekDay Set mypanel = (3) (3).Text = 當前用戶： amp。 = sbrContents Set mypanel = (4) 39。狀態(tài)欄 3顯示文本消息 = sbrSpring End Sub Private Sub mnuAbout_Click() ’ 設(shè)置說明 ShellAbout , 員工培訓(xùn)管理系統(tǒng) , 版權(quán)所有 (C) amp。 vbCrLf amp。 開發(fā) :yeao, End Sub Private Sub mnuAddResult_Click() ’ 以下定義菜單點擊觸發(fā)各模塊 End Sub Private Sub mnuClassQuery_Click() End Sub Private Sub mnuCourseQuery_Click() End Sub Private Sub mnuResultQuery_Click() End Sub Private Sub mnuSchoolSet_Click() End Sub Private Sub mnuSetClass_Click() End Sub Private Sub mnuAddStudentInfo_Click() End Sub Private Sub mnuAddUser_Click() End Sub Private Sub mnuBackUpDB_Click() End Sub Private Sub mnuDeleteUser_Click() End Sub Private Sub mnuModiPwd_Click() End Sub Private Sub mnuExit_Cl