【正文】 (4) = Trim() (6) = 0 (7) = Trim() MsgBox 合同簽定成功！ , vbOKOnly + vbExclamation, 合同簽定 39。動態(tài)更新 Unload Me End If End If End Sub 4． 6 合同續(xù)簽模塊 用于處理已到期合同的續(xù)簽事務，包括職員編號、合同編號、合同續(xù)簽到日期、合同續(xù)簽期限、新合同號、備注。 單擊主窗體上的［合同續(xù)簽］菜單，彈出一個窗體，顯示已過期合同列表（如圖 4－ 8），單擊選中要續(xù)簽的合同 ，然后點擊［續(xù)簽合同］按鈕，彈出［合同續(xù)簽］窗體，如圖 4－ 9 所示。 圖 4－ 8 顯示已過期合同界面 沈 陽 理 工 大 學 課 程 設 計 專 用 紙 No 14 沈陽理工大學 圖 4－ 9 合同續(xù)簽界面 ［確定］按鈕的代碼如下： Private Sub CommandOK_Click() If Text1 = Or Text2 = Or Text3 = Or Text4 = Or Text5 = Or Text6 = Then MsgBox 信息不完整！ Else X = MsgBox(確定要續(xù)簽這份合同嗎？ , vbYesNo + vbQuestion, 確認 ) If X = vbYes Then (2) = (3) = (5) = (7) = (6) = 0 MsgBox 合同續(xù)簽成功！ , vbOKOnly + vbExclamation, 合同續(xù)簽 Unload Me 39。動態(tài)更新 End If End If End Sub 4． 7 合同終止模塊 用于終止已簽 定的合同，包括職員編號、合同編號、合同終止時間、備注等 。單擊主窗體上的［合同終止］菜單，彈出一個窗體，顯示未過期合同列表（如圖4－ 10），單擊選中要終止的合同，然后點擊［終止合同］按鈕，彈出［合同終止］窗體，如圖 4－ 11 所示。 沈 陽 理 工 大 學 課 程 設 計 專 用 紙 No 15 沈陽理工大學 圖 4－ 10 顯示未過期合同界面 圖 4－ 11 合同終止界面 ［確定］按鈕的代碼如下： Private Sub CommandOK_Click() If Text1 = Or Text2 = Or Text3 = Or Text4 = Then MsgBox 信息不完整！ Else X = MsgBox(確定要終止這份合同嗎？ , vbYesNo + vbQuestion, 確認 ) If X = vbYes Then (5) = (7) = (6) = 1 MsgBox 合同終止成功！ , vbOKOnly + vbExclamation, 合同終止 沈 陽 理 工 大 學 課 程 設 計 專 用 紙 No 16 沈陽理工大學 Unload Me 39。動態(tài)更新 End If End If End Sub 4． 8 報表設計 顯示企業(yè)與員工簽定的勞動合同清單 ，用到 DataEnvironment 控件（如圖 4－12）和 DataReport 控件（如圖 4－ 13）， 運行結(jié)果如圖 4－ 14 所示。 圖 4－ 12 Dataenvironment 界面 圖 4－ 13 Datareport 界面 沈 陽 理 工 大 學 課 程 設 計 專 用 紙 No 17 沈陽理工大學 圖 4－ 14 合同清單運行結(jié)果 沈 陽 理 工 大 學 課 程 設 計 專 用 紙 No 18 沈陽理工大學 第 5 章 課程設計的收獲和體會 通過本次課程設計 ， 提高 了我 開發(fā)數(shù)據(jù)庫應用程序的能力，熟悉和運用現(xiàn)代數(shù)據(jù)庫開發(fā) 的 工具和方法。 由于時間較短， 課程設計的題目比較簡單，工作量 也比較小。但是，通過小型應用程序的開發(fā)， 使我 迅速掌握 了數(shù)據(jù)庫應用程序的相關(guān)技術(shù)，為以后開發(fā)大型應用程序打下了基礎 。 本次課程設計還使我了解到 數(shù)據(jù)庫基本開發(fā)技術(shù)不外乎數(shù)據(jù)的增、刪、改、查，其難度并不復雜，但是要想開發(fā)出理想的數(shù)據(jù)庫應用程序，關(guān)鍵是軟件的創(chuàng)意，要發(fā)揮想象力，設計出有個性的功能和用戶界面。 沈 陽 理 工 大 學 課 程 設 計 專 用 紙 No 19 沈陽理工大學 參考文獻 【 1】劉志嫵 張煥君 張秀芝，《數(shù)據(jù)庫編程技術(shù)教程》，沈陽，沈陽理工大學，20227 【 2】張海藩，《軟件工程》，北京，人民郵電出版社， 20221 【 3】王珊 薩師煊，《數(shù)據(jù)庫系統(tǒng)概論》（第四版），北京，高等教育出版社，20229 【 4】明日科技 高春艷 李俊民 李彬彬，《 Visual Basic 數(shù)據(jù)庫系統(tǒng)開發(fā)案例精選》，北京，人民郵電出版社， 20225 【 5】劉韜 駱娟，《 Visual Basic 數(shù)據(jù)庫通用模塊及典型系統(tǒng)開發(fā)》，北京，人民郵電出版社， 20222