【文章內(nèi)容簡(jiǎn)介】 A BASE MANAGEMENT SYSTEM)軟件來(lái)實(shí)現(xiàn)數(shù)據(jù)的存儲(chǔ)、管理與使用 。 沈 陽(yáng) 理 工 大 學(xué) 課 程 設(shè) 計(jì) 專(zhuān) 用 紙 No 4 沈陽(yáng)理工大學(xué) 第 3 章 系統(tǒng) 總體設(shè)計(jì) 3． 1 需求分析 現(xiàn)代化的企業(yè)越來(lái)越重視科學(xué)技術(shù)，只有把科學(xué)技術(shù)應(yīng)用到企業(yè)中才能獲取更大的效益。 合同是商品經(jīng)濟(jì)的產(chǎn)物，是商品交換的法律表現(xiàn)形式?，F(xiàn)代企業(yè)的經(jīng)濟(jì)往來(lái)，主要是通過(guò)合同形式進(jìn)行的。所以，合同管理作為現(xiàn)代企業(yè)法律顧問(wèn)制度的重要內(nèi)容之一，能否實(shí)施有效管理把好合同關(guān)，是現(xiàn)化企業(yè)經(jīng)營(yíng)管理成敗的一個(gè)重要因素。 企業(yè)往往會(huì)簽訂一系列的合同，并且會(huì)考慮如何去管理合同的進(jìn)展，合同賬款的收 取和支付。完善的合同管理是企業(yè)健康運(yùn)作的一個(gè)重要標(biāo)志。 3． 2 開(kāi)發(fā)及運(yùn)行環(huán)境 系統(tǒng)開(kāi)發(fā)平臺(tái)： Visual Basic 數(shù)據(jù)庫(kù)： SQL Server 2022 運(yùn)行平臺(tái)： Windows XP/Windows 2022/Windows 2022 分辨率：最佳效果 1024768 像素 3． 3 ER 圖 合同管理系統(tǒng) ER 圖如下（圖 3－ 1）： 圖 3－ 1 合同管理系統(tǒng) ER 圖 企業(yè) 職員 簽合同 N 1 部門(mén)編號(hào) 部門(mén)名稱(chēng) 員工姓名 員工編號(hào) 職員編號(hào) 合同名稱(chēng) 合同編號(hào) 合同期限 合同終止日期 合同簽定日期 合同是否終止 備注 沈 陽(yáng) 理 工 大 學(xué) 課 程 設(shè) 計(jì) 專(zhuān) 用 紙 No 5 沈陽(yáng)理工大學(xué) 3． 4 關(guān)系模型 （ 1）合同信息（ 職員編號(hào)，合同名稱(chēng)，合同編號(hào)，合同期限 ，合同簽定日期，合同終止日期，合同是否終止，備注 ） （ 2）企業(yè)信息（部門(mén)編號(hào)，部門(mén)名稱(chēng)） （ 3）職員信息（職員編號(hào)，職員 姓名） （ 4）用戶(hù)信息（用戶(hù)名，密碼） 3． 5 表結(jié)構(gòu) 合同信息表 的設(shè)計(jì)詳 見(jiàn)表 3－ 1： 表 3－ 1 合同信息表 字段名 數(shù)據(jù)類(lèi)型 是否主鍵 說(shuō)明 Staffnum Char (10) 是 職員編號(hào) Contractname Char (20) 合同名稱(chēng) Contractnum Char (10) 是 合同編號(hào) Contractdate Int 合同期限 Constadate Datetime 合同簽定日期 Conenddate Datetime 合同終止日期 Isterminate Smallint 合同是否終止 Memo Varchar (50) 備注 企業(yè)信息表 設(shè)計(jì)詳 見(jiàn)表 3－ 2： 表 3－ 2 企業(yè)信息表 字段名 數(shù)據(jù)類(lèi)型 是否主鍵 說(shuō)明 Departmentnum Char (10) 是 部門(mén) 編號(hào) Departmentname Char (20) 部門(mén) 名稱(chēng) 職員信息表 設(shè)計(jì)詳 見(jiàn)表 3－ 3： 表 3－ 3 職員信息表 字段名 數(shù)據(jù)類(lèi)型 是否主鍵 說(shuō)明 Staffnum Char (10) 是 職員 編號(hào) Staffname Char (20) 職員姓 名 用戶(hù)信息表 設(shè)計(jì)詳 見(jiàn)表 3－ 4： 表 3－ 4 用戶(hù)信息表 字段名 數(shù)據(jù)類(lèi)型 是否主鍵 說(shuō)明 user Char (10) 是 用戶(hù)名 pass Char (10) 密碼 沈 陽(yáng) 理 工 大 學(xué) 課 程 設(shè) 計(jì) 專(zhuān) 用 紙 No 6 沈陽(yáng)理工大學(xué) 3． 6 系統(tǒng)功能概述 在主控窗體中 點(diǎn)擊各菜單實(shí)現(xiàn)管理和查詢(xún)企業(yè)和員工間的所有合同信息。具體功能包括： 合同簽定：用于管理企業(yè)與員工簽定的勞動(dòng)合同。包括職員編號(hào)、合同名稱(chēng)、合同編號(hào)、合同期限、合同簽定日期、備注等。 合同續(xù)簽：用于處理 已到期合同的續(xù)簽事務(wù)，包括職員編號(hào)、合同編號(hào)、合同續(xù)簽到日期、合同續(xù)簽期限、新合同號(hào)、備注。 合同終止：用于終止已簽定的合同，包括職員編號(hào)、合同編號(hào)、合同終止時(shí)間、備注等。 用戶(hù)的登錄和注冊(cè)功能： 打印報(bào)表，顯示企業(yè)與員工簽定的勞動(dòng)合同清單。包括職員編號(hào)、合同名稱(chēng)、合同期限、合同簽定日期。 沈 陽(yáng) 理 工 大 學(xué) 課 程 設(shè) 計(jì) 專(zhuān) 用 紙 No 7 沈陽(yáng)理工大學(xué) 第 4 章 系統(tǒng)各功能模塊的詳細(xì)設(shè)計(jì) 4． 1 啟動(dòng)窗體設(shè)計(jì) 啟動(dòng)窗體的設(shè)計(jì)（如圖 4－ 1），有兩個(gè)按鈕，一為［新用戶(hù)注冊(cè)］，一為［登錄系統(tǒng)］，點(diǎn)擊［新用戶(hù)注冊(cè)］彈出新用 戶(hù)注冊(cè)窗體，點(diǎn)擊［登錄系統(tǒng)］彈出登錄窗體。 圖 4－ 1 啟動(dòng)窗體界面 4． 2 登錄模塊設(shè)計(jì) 登錄對(duì)話(huà)框 （如圖 4－ 2） ， 輸入用戶(hù) 名 和 密碼 ，若正確則打開(kāi)主窗體，否則提示密碼 錯(cuò)誤，請(qǐng)重新輸入。最多允許輸入 3 次。 圖 4－ 2 登錄窗體 登錄窗體代碼如下： 沈 陽(yáng) 理 工 大 學(xué) 課 程 設(shè) 計(jì) 專(zhuān) 用 紙 No 8 沈陽(yáng)理工大學(xué) Private Sub cancel_Click() Unload Me End Sub Private Sub login_Click() Static Count As Integer Dim sqlstr As String sqlstr = select * from userinfo where [user]=39。 amp。 nametext amp。 39。 = sqlstr If Then MsgBox 用戶(hù)名錯(cuò)誤，重新輸入 , vbExclamation, 警告 = Else If Trim((pass)) = Trim(passtext) Then Else MsgBox 密碼錯(cuò)誤，重新輸入 , vbExclamation, 警告 = End If End If