合同管理中的難點(diǎn)和重點(diǎn)

合同管理中的難點(diǎn)和重點(diǎn)合同管理中的難點(diǎn)和重點(diǎn)數(shù)據(jù)庫技術(shù)是現(xiàn)代信息科學(xué)與技術(shù)的重要組成部分，是計(jì)算機(jī)數(shù)據(jù)處理與信息管理系統(tǒng)的核心。數(shù)據(jù)庫技術(shù)研究和解決了計(jì)算機(jī)信息處理過程中大量數(shù)據(jù)有效地組織和存儲(chǔ)的問題，在數(shù)據(jù)庫系統(tǒng)中減少數(shù)據(jù)存儲(chǔ)冗余、實(shí)現(xiàn)數(shù)據(jù)共享、保障數(shù)據(jù)安全以及高效地檢索數(shù)據(jù)和處理數(shù)據(jù)。在企業(yè)經(jīng)營管理中,采購是最重要的一個(gè)環(huán)節(jié)。它對(duì)于企業(yè)降低經(jīng)營成本、確保產(chǎn)品質(zhì)量、縮短生產(chǎn)周期具有非常重要的意義。采購管理為降低采購成本、提高采購效益提供了廣闊的空間，但同時(shí)也為采購管理帶來了新的機(jī)遇和挑戰(zhàn)。目前,中國大多數(shù)企業(yè)仍然沒有建立健全的供應(yīng)鏈管理體系,物資的采購還存在機(jī)構(gòu)設(shè)置分散,資源浪費(fèi)嚴(yán)重,信息傳遞滯后等問題。本系統(tǒng)的主要功能是員工合同管理，對(duì)員工的合同簽訂信息、合同續(xù)簽信息和合同終止信息進(jìn)行管理和修改。本系統(tǒng)的數(shù)據(jù)庫是用SQLserver2005軟件進(jìn)行創(chuàng)建與設(shè)計(jì)，分別包括簽訂信息表、續(xù)簽信息表和合同終止信息表三個(gè)表。通過系統(tǒng)ODBC數(shù)據(jù)源管理工具把已創(chuàng)建的數(shù)據(jù)源與系統(tǒng)數(shù)據(jù)庫相連。利用VB軟件對(duì)系統(tǒng)的窗口進(jìn)行設(shè)計(jì)，通過這些窗體進(jìn)行登錄操作，對(duì)輸入的用戶信息進(jìn)行驗(yàn)證，和注冊(cè)新用戶操作，并可以對(duì)數(shù)據(jù)進(jìn)行添加與刪除、查詢及修改等操作。關(guān)鍵詞：合同管理系統(tǒng)；SQLserver2005；VB軟件1系統(tǒng)功能概述.........................................................11.1合同管理系統(tǒng)功能分析.............................................11.2系統(tǒng)結(jié)構(gòu)圖......................................................12數(shù)據(jù)庫設(shè)計(jì)...........................................................12.1需求分析.........................................................22.2E-R模型.........................................................22.3關(guān)系模型.........................................................42.4表結(jié)構(gòu)設(shè)計(jì).......................................................43.1用戶登錄.........................................................73.2主窗體界面.......................................................93.3添加修改刪除頁面................................................103.4查詢頁面........................................................153.5注冊(cè)新用戶......................................................184課設(shè)總結(jié).............................................................20參考文獻(xiàn)...............................................................211系統(tǒng)功能概述1.1合同管理系統(tǒng)功能分析企業(yè)合同管理系統(tǒng)主要功能是用計(jì)算機(jī)對(duì)員工合同的簽訂、續(xù)簽以及終止進(jìn)行登記、查詢、刪除等操作以及對(duì)員工合同的簽訂、續(xù)簽、終止信息進(jìn)行記錄以及打印報(bào)表等操作。本系統(tǒng)運(yùn)用了VB6.0及SQLServer2005，主要設(shè)計(jì)了以下幾大功能：(1)對(duì)員工合同簽訂、續(xù)簽以及終止信息進(jìn)行修改、錄入、瀏覽及刪除。(2)按查詢條件對(duì)工合同簽訂、續(xù)簽以及終止信息進(jìn)行查詢。1.2系統(tǒng)結(jié)構(gòu)圖圖1企業(yè)合同管理管理系統(tǒng)總體結(jié)構(gòu)2數(shù)據(jù)庫設(shè)計(jì)2.1需求分析在主控窗體中（MID窗體）點(diǎn)擊各菜單實(shí)現(xiàn)管理和查詢企業(yè)和員工間的所有合同信息。具體功能包括：合同簽定：用于管理企業(yè)與員工簽定的勞動(dòng)合同。包括職員編號(hào)、合同名稱、合同編號(hào)、合同期限、合同簽定日期、備注等。合同續(xù)簽：用于處理已到期合同的續(xù)簽事務(wù)，包括職員編號(hào)、合同編號(hào)、合同續(xù)簽到日期、合同續(xù)簽期限、新合同號(hào)、備注。合同終止：用于終止已簽定的合同，包括職員編號(hào)、合同編號(hào)、合同終止時(shí)間、備注等。用戶的登錄和注冊(cè)功能：2.2E-R模型1.實(shí)體及屬性圖本系統(tǒng)有合同簽訂，合同續(xù)簽。合同終止三個(gè)實(shí)體，三個(gè)實(shí)體相對(duì)獨(dú)立且相互之間不存在聯(lián)系。（1）合同簽訂實(shí)體及屬性圖如下：圖2合同簽訂實(shí)體及屬性（2）合同續(xù)簽實(shí)體及屬性圖如下：（3）合同終止實(shí)體及屬性圖如下：圖4合同終止實(shí)體及屬性圖3合同續(xù)簽實(shí)體及屬性（4）密碼表實(shí)體及屬性如下：圖5密碼表實(shí)體及屬性2.3關(guān)系模型1.合同簽訂（職員編號(hào)，合同名稱，合同編號(hào)，合同期限，合同簽定日期，備注）2.合同續(xù)簽（職員編號(hào)，合同編號(hào)，合同續(xù)簽到日期，合同續(xù)簽期限，新合同號(hào)，備注）3.合同終止（職員編號(hào)，合同編號(hào)，合同終止時(shí)間，備注）4.密碼表(用戶名，密碼)用于記錄注冊(cè)過的用戶名及密碼2.4表結(jié)構(gòu)設(shè)計(jì)本系統(tǒng)在SQLServer2000數(shù)據(jù)庫里共設(shè)計(jì)了4個(gè)數(shù)據(jù)表來記錄數(shù)據(jù)：用戶表、員工合同簽訂信息、員工合同續(xù)簽信息、員工合同終止信息。1.合同簽訂信息的建立與基本數(shù)據(jù)：SQL語句如下：CREATETABLE[dbo].[員工合同簽定信息]([職員編號(hào)][int]NOTNULL,[合同名稱][char](10)COLLATEChinese_PRC_CI_ASNULL,[合同編號(hào)][char](10)COLLATEChinese_PRC_CI_ASNULL,[合同期限][char](10)COLLATEChinese_PRC_CI_ASNULL,[合同簽定日期][char](20)COLLATEChinese_PRC_CI_ASNULL,[備注][int]NULL)ON[PRIMARY]員工合同簽訂信息表2.合同續(xù)簽信息的建立與基本數(shù)據(jù)：SQL語句如下：CREATETABLE[dbo].[員工合同續(xù)簽信息]([職員編號(hào)][int]NOTNULL,[合同編號(hào)][char](10)COLLATEChinese_PRC_CI_ASNULL,[合同續(xù)簽到日期][char](20)COLLATEChinese_PRC_CI_ASNULL,[合同續(xù)簽期限][char](20)COLLATEChinese_PRC_CI_ASNULL,[新合同號(hào)][char](10)COLLATEChinese_PRC_CI_ASNULL,[備注][int]NULL)ON[PRIMARY]員工合同續(xù)簽信息表3.合同終止信息的建立與基本數(shù)據(jù)：SQL語句如下：CREATETABLE[dbo].[合同終止信息]([職員編號(hào)][int]NOTNULL,[合同編號(hào)][char](10)COLLATEChinese_PRC_CI_ASNULL,[合同終止時(shí)間][char](20)COLLATEChinese_PRC_CI_ASNULL,[備注][int]NULL,)ON[PRIMARY]員工合同終止信息表5.密碼表的建立與基本數(shù)據(jù)：SQL語句如下：createtable用戶(用戶名CHAR(10),密碼CHAR(8));密碼表3系統(tǒng)各功能模塊的詳細(xì)設(shè)計(jì)3.1用戶登錄輸入用戶名及對(duì)應(yīng)密碼，即可登錄，否則會(huì)提示相關(guān)的警告信息，按“取消”則退回主窗體界面。頁面設(shè)計(jì)如下：1、登錄頁面2、詳細(xì)設(shè)計(jì)代碼PrivateSubCommand1_Click()StaticmiCountAsIntegerDimSQLStrAsStringSQLStr="Select*from密碼表Where用戶名=""&Text1&"""Adodc1.RecordSource=SQLStrAdodc1.RefreshIfAdodc1.Recordset.BOFThenMsgBox"用戶名錯(cuò)誤，重新輸入",vbExclamation,"警告"Text1.Text="":Text1.SetFocusElse"判斷密碼是否正確IfAdodc1.Recordset.Fields("密碼")=Text2ThenMDIForm1.mDataMng.Enabled=TrueUnloadMeElseMsgBox"密碼錯(cuò)誤，重新輸入",vbExclamation,"警告"Text2.Text="":Text2.SetFocusEndIfEndIfmiCount=miCount+1IfmiCount=3ThenUnloadMe"若已輸入3次，則關(guān)閉窗體EndSubPrivateSubCommand2_Click()UnloadMeEndSub3.2主窗體界面用戶菜單可以實(shí)現(xiàn)注冊(cè)新用戶和退出功能；數(shù)據(jù)管理菜單可對(duì)數(shù)據(jù)庫里的員工合同簽訂、續(xù)簽、終止信息進(jìn)行修改、添加、刪除和查詢。頁面設(shè)計(jì)如下：1、主窗體頁面2、詳細(xì)設(shè)計(jì)代碼PrivateSubMDIForm_Load()mDataMng.Enabled=FalseEndSubPrivateSubmFDenglu_Click()Denglu.ShowEndSubPrivateSubmDzhuce_Click()zcxyh.ShowEndSubPrivateSubmDqdxx_Click()qdxx.ShowEndSubPrivateSubmDxqxx_Click()xqxx.ShowEndSubPrivateSubmDzzxx_Click()zzxx.ShowEndSubPrivateSubmFExit_Click()EndEndSub3.3添加修改刪除頁面對(duì)數(shù)據(jù)庫里的員工合同簽訂、續(xù)簽、終止信息進(jìn)行修改、添加、刪除，并且可以進(jìn)入查詢界面。頁面設(shè)計(jì)如下：1、員工合同簽訂、續(xù)簽、終止信息的添加修改刪除頁面：2、詳細(xì)設(shè)計(jì)代碼：PrivateSubCommand1_Click()Form1.ShowEndSubPrivateSubForm_Load()CmdFirst.Enabled=False"[首記錄]按鈕無效CmdPre.Enabled=False"[前移]按鈕無效CmdNext.Enabled=True"[后移]按鈕有效CmdLast.Enabled=True"[末記錄]按鈕有效CmdAdd.Enabled=True"[添加]按鈕有效CmdDel.Enabled=True"[刪除]按鈕有效CmdOk.Enabled=False"[確定]按鈕無效CmdEsc.Enabled=False"[取消]按鈕無效Label7.Caption="記錄："&Adodc1.Recordset.AbsolutePosition&"/"&Adodc1.Recordset.RecordCountEndSubPrivateSubCmdAdd_Click()"[添加]按鈕的單擊事件Adodc1.Recordset.AddNewCmdAdd.Enabled=FalseCmdDel.Enabled=FalseCmdOk.Enabled=TrueCmdEsc.Enabled=TrueEndSubPrivateSubCmdOk_Click()"單擊[確認(rèn)]按鈕Adodc1.Recordset.UpdateCmdAdd.Enabled=TrueCmdDel.Enabled=TrueCmdOk.Enabled=FalseCmdEsc.Enabled=FalseEndSubPrivateSubCmdDel_Click()"單擊[刪除]按鈕x=MsgBox("確實(shí)要?jiǎng)h除當(dāng)前記錄嗎？",vbYesNo+vbQuestion,"確認(rèn)")Ifx=vbYesThenAdodc1.Recordset.DeleteAdodc1.Recordset.MoveNextIfAdodc1.Recordset.EOFThenAdodc1.Recordset.MoveLastEndIfElseAdodc1.RefreshEndIfEndSubPrivateSubCmdEsc_Click()"取消按鈕Adodc1.RefreshCmdAdd.Enabled=TrueCmdDel.Enabled=TrueCmdOk.Enabled=FalseCmdEsc.Enabled=FalseEndSubPrivateSubCmdFirst_Click()Adodc1.Recordset.MoveFirst"記錄指針移到首記錄（顯示首記錄）CmdFirst.Enabled=False"讓[首記錄]按鈕無效CmdPre.Enabled=False"讓[前移]按鈕無效CmdNext.Enabled=True"讓[后移]按鈕有效CmdLast.Enabled=True"讓[末記錄]按鈕有效"在Label6上顯示當(dāng)前記錄號(hào)/記錄總數(shù)：Label7.Caption="記錄："&Adodc1.Recordset.AbsolutePosition&"/"&Adodc1.Recordset.RecordCountEndSubPrivateSubCmdPre_Click()Adodc1