沈陽理工大學(xué)課程設(shè)計(jì)專用紙PAGEPAGEi成績評定表學(xué)生姓名朱世誠班級學(xué)號1209010228專業(yè)信息與計(jì)算科學(xué)課程設(shè)計(jì)題目合同管理系統(tǒng)評語組長簽字：成績?nèi)掌?014年12月18日課程設(shè)計(jì)任務(wù)書學(xué)院理學(xué)院專業(yè)信息與計(jì)算科學(xué)學(xué)生姓名朱世誠班級學(xué)號1209010228課程設(shè)計(jì)題目合同管理系統(tǒng)實(shí)踐教學(xué)要求與任務(wù):利用VB6.0及SQLServer2000設(shè)計(jì)一個員工合同管理系統(tǒng)，數(shù)據(jù)庫里包括5個表：密碼表、員工合同簽訂信息、員工合同續(xù)簽信息以及合同終止信息。密碼表用于記錄用戶名及密碼；員工合同簽訂信息用于記錄合同簽訂的基本信息；員工合同續(xù)簽信息用于記錄合同續(xù)簽的基本信息；合同終止信息用于記錄合同終止的基本信息。在主控窗體中（MID窗體）點(diǎn)擊各菜單實(shí)現(xiàn)管理和查詢企業(yè)和員工間的所有合同信息。具體功能包括：合同簽訂：用于管理企業(yè)與員工簽定的勞動合同。包括職員編號、合同名稱、合同編號、合同期限、合同簽定日期、備注等。合同續(xù)簽：用于處理已到期合同的續(xù)簽事務(wù)，包括職員編號、合同編號、合同續(xù)簽到日期、合同續(xù)簽期限、新合同號、備注。合同終止：用于終止已簽定的合同，包括職員編號、合同編號、合同終止時間、備注等。用戶的登錄和注冊功能：工作計(jì)劃與進(jìn)度安排:第15周：數(shù)據(jù)庫設(shè)計(jì)，利用SQLServer創(chuàng)建數(shù)據(jù)庫及數(shù)據(jù)表?？傮w結(jié)構(gòu)設(shè)計(jì)，設(shè)計(jì)調(diào)試系統(tǒng)首頁、登陸窗體及MDI窗體。第16周：管理功能設(shè)計(jì)，設(shè)計(jì)調(diào)試各種數(shù)據(jù)管理功能窗體及打印報表功能。撰寫課程設(shè)計(jì)報告，驗(yàn)收與答辯。指導(dǎo)教師：2014年11月27日專業(yè)負(fù)責(zé)人：2014年11月28日學(xué)院教學(xué)副院長：2014年11月28日摘要數(shù)據(jù)庫技術(shù)是現(xiàn)代信息科學(xué)與技術(shù)的重要組成部分，是計(jì)算機(jī)數(shù)據(jù)處理與信息管理系統(tǒng)的核心。數(shù)據(jù)庫技術(shù)研究和解決了計(jì)算機(jī)信息處理過程中大量數(shù)據(jù)有效地組織和存儲的問題，在數(shù)據(jù)庫系統(tǒng)中減少數(shù)據(jù)存儲冗余、實(shí)現(xiàn)數(shù)據(jù)共享、保障數(shù)據(jù)安全以及高效地檢索數(shù)據(jù)和處理數(shù)據(jù)。在企業(yè)經(jīng)營管理中,采購是最重要的一個環(huán)節(jié)。它對于企業(yè)降低經(jīng)營成本、確保產(chǎn)品質(zhì)量、縮短生產(chǎn)周期具有非常重要的意義。采購管理為降低采購成本、提高采購效益提供了廣闊的空間，但同時也為采購管理帶來了新的機(jī)遇和挑戰(zhàn)。目前,我國大多數(shù)企業(yè)仍然沒有建立健全的供應(yīng)鏈管理體系,物資的采購還存在機(jī)構(gòu)設(shè)置分散,資源浪費(fèi)嚴(yán)重,信息傳遞滯后等問題。本系統(tǒng)的主要功能是員工合同管理，對員工的合同簽訂信息、合同續(xù)簽信息和合同終止信息進(jìn)行管理和修改。本系統(tǒng)的數(shù)據(jù)庫是用SQLserver2000軟件進(jìn)行創(chuàng)建與設(shè)計(jì)，分別包括簽訂信息表、續(xù)簽信息表和合同終止信息表三個表。通過系統(tǒng)ODBC數(shù)據(jù)源管理工具把已創(chuàng)建的數(shù)據(jù)源與系統(tǒng)數(shù)據(jù)庫相連。利用VB軟件對系統(tǒng)的窗口進(jìn)行設(shè)計(jì)，通過這些窗體進(jìn)行登錄操作，對輸入的用戶信息進(jìn)行驗(yàn)證，和注冊新用戶操作，并可以對數(shù)據(jù)進(jìn)行添加與刪除、查詢及修改等操作。關(guān)鍵詞：合同管理系統(tǒng)；SQLserver2000；VB軟件

目錄286411系統(tǒng)功能概述 167511.1合同管理系統(tǒng)功能分析 1312971.2系統(tǒng)結(jié)構(gòu)圖 113392數(shù)據(jù)庫設(shè)計(jì) 1190362.1需求分析 2222722.2E-R模型 2129112.3關(guān)系模型 471022.4表結(jié)構(gòu)設(shè)計(jì) 4117593.1用戶登錄 726123.2主窗體界面 913583.3添加修改刪除頁面 10191853.4查詢頁面 15248643.5注冊新用戶 1814004課設(shè)總結(jié) 2020277參考文獻(xiàn) 211系統(tǒng)功能概述1.1合同管理系統(tǒng)功能分析合同管理系統(tǒng)主要功能是用計(jì)算機(jī)對員工合同的簽訂、續(xù)簽以及終止進(jìn)行登記、查詢、刪除等操作以及對員工合同的簽訂、續(xù)簽、終止信息進(jìn)行記錄以及打印報表等操作。本系統(tǒng)運(yùn)用了VB6.0及SQLServer2000，主要設(shè)計(jì)了以下幾大功能：對員工合同簽訂、續(xù)簽以及終止信息進(jìn)行修改、錄入、瀏覽及刪除。按查詢條件對工合同簽訂、續(xù)簽以及終止信息進(jìn)行查詢。1.2系統(tǒng)結(jié)構(gòu)圖圖1合同管理管理系統(tǒng)總體結(jié)構(gòu)合同管理系統(tǒng)合同管理系統(tǒng)注冊新用戶退出功能用戶合同簽訂添加刪除修改合同續(xù)簽添加刪除修改合同終止添加刪除修改合同簽訂查詢合同續(xù)簽查詢合同終止查詢管理查詢

2數(shù)據(jù)庫設(shè)計(jì)注冊新用戶退出功能用戶合同簽訂添加刪除修改合同續(xù)簽添加刪除修改合同終止添加刪除修改合同簽訂查詢合同續(xù)簽查詢合同終止查詢管理查詢2.1需求分析在主控窗體中（MID窗體）點(diǎn)擊各菜單實(shí)現(xiàn)管理和查詢企業(yè)和員工間的所有合同信息。具體功能包括：合同簽定：用于管理企業(yè)與員工簽定的勞動合同。包括職員編號、合同名稱、合同編號、合同期限、合同簽定日期、備注等。合同續(xù)簽：用于處理已到期合同的續(xù)簽事務(wù)，包括職員編號、合同編號、合同續(xù)簽到日期、合同續(xù)簽期限、新合同號、備注。合同終止：用于終止已簽定的合同，包括職員編號、合同編號、合同終止時間、備注等。用戶的登錄和注冊功能：2.2E-R模型1.實(shí)體及屬性圖本系統(tǒng)有合同簽訂，合同續(xù)簽。合同終止三個實(shí)體，三個實(shí)體相對獨(dú)立且相互之間不存在聯(lián)系。（1）合同簽訂實(shí)體及屬性圖如下：合同簽訂合同簽訂職員編號備注職員編號備注合同名稱合同簽訂日期合同名稱合同簽訂日期合同編號合同期限合同編號合同期限圖2合同簽訂實(shí)體及屬性（2）合同續(xù)簽實(shí)體及屬性圖如下：合同續(xù)簽合同續(xù)簽備注職員編號備注職員編號新合同號合同編號新合同號合同編號合同續(xù)簽期限合同續(xù)簽到日期合同續(xù)簽期限合同續(xù)簽到日期圖3合同續(xù)簽實(shí)體及屬性（3）合同終止實(shí)體及屬性圖如下：合同終止合同終止備注職員編號備注職員編號合同終止時間合同編號合同終止時間合同編號圖4合同終止實(shí)體及屬性（4）密碼表實(shí)體及屬性如下：密碼表密碼表密碼用戶名密碼用戶名圖5密碼表實(shí)體及屬性2.3關(guān)系模型合同簽訂（職員編號，合同名稱，合同編號，合同期限，合同簽定日期，備注）合同續(xù)簽（職員編號，合同編號，合同續(xù)簽到日期，合同續(xù)簽期限，新合同號，備注）合同終止（職員編號，合同編號，合同終止時間，備注）密碼表(用戶名，密碼)用于記錄注冊過的用戶名及密碼2.4表結(jié)構(gòu)設(shè)計(jì)本系統(tǒng)在SQLServer2000數(shù)據(jù)庫里共設(shè)計(jì)了4個數(shù)據(jù)表來記錄數(shù)據(jù)：用戶表、員工合同簽訂信息、員工合同續(xù)簽信息、員工合同終止信息。1.合同簽訂信息的建立與基本數(shù)據(jù)：SQL語句如下：CREATETABLE[dbo].[員工合同簽定信息]( [職員編號][int]NOTNULL, [合同名稱][char](10)COLLATEChinese_PRC_CI_ASNULL, [合同編號][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ù)簽信息]( [職員編號][int]NOTNULL, [合同編號][char](10)COLLATEChinese_PRC_CI_ASNULL, [合同續(xù)簽到日期][char](20)COLLATEChinese_PRC_CI_ASNULL, [合同續(xù)簽期限][char](20)COLLATEChinese_PRC_CI_ASNULL, [新合同號][char](10)COLLATEChinese_PRC_CI_ASNULL, [備注][int]NULL)ON[PRIMARY]員工合同續(xù)簽信息表3.合同終止信息的建立與基本數(shù)據(jù)：SQL語句如下：CREATETABLE[dbo].[合同終止信息]( [職員編號][int]NOTNULL, [合同編號][char](10)COLLATEChinese_PRC_CI_ASNULL, [合同終止時間][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用戶登錄輸入用戶名及對應(yīng)密碼，即可登錄，否則會提示相關(guān)的警告信息，按“取消”則退回主窗體界面。頁面設(shè)計(jì)如下：1、登錄頁面2、詳細(xì)設(shè)計(jì)代碼PrivateSubCommand1_Click()StaticmiCountAsIntegerDimSQLStrAsStringSQLStr="Select*from密碼表Where用戶名='"&Text1&"'"Adodc1.RecordSource=SQLStrAdodc1.RefreshIfAdodc1.Recordset.BOFThenMsgBox"用戶名錯誤，重新輸入",vbExclamation,"警告"Text1.Text="":Text1.SetFocusElse'判斷密碼是否正確IfAdodc1.Recordset.Fields("密碼")=Text2ThenMDIForm1.mDataMng.Enabled=TrueUnloadMeElseMsgBox"密碼錯誤，重新輸入",vbExclamation,"警告"Text2.Text="":Text2.SetFocusEndIfEndIfmiCount=miCount+1IfmiCount=3ThenUnloadMe'若已輸入3次，則關(guān)閉窗體EndSubPrivateSubCommand2_Click()UnloadMeEndSub3.2主窗體界面用戶菜單可以實(shí)現(xiàn)注冊新用戶和退出功能；數(shù)據(jù)管理菜單可對數(shù)據(jù)庫里的員工合同簽訂、續(xù)簽、終止信息進(jìn)行修改、添加、刪除和查詢。頁面設(shè)計(jì)如下：主窗體頁面詳細(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添加修改刪除頁面對數(shù)據(jù)庫里的員工合同簽訂、續(xù)簽、終止信息進(jìn)行修改、添加、刪除，并且可以進(jìn)入查詢界面。頁面設(shè)計(jì)如下：員工合同簽訂、續(xù)簽、終止信息的添加修改刪除頁面：詳細(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í)要刪除當(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)前記錄號/記錄總數(shù)：Label7.Caption="記錄："&Adodc1.Recordset.AbsolutePosition&"/"&Adodc1.Recordset.RecordCountEndSubPrivateSubCmdPre_Click()Adodc1.Recordset.MovePrevious'記錄指針移到前一條記錄CmdNext.Enabled=TrueCmdLast.Enabled=TrueIfAdodc1.Recordset.BOFThen'如果記錄指針移到首記錄之前,Adodc1.Recordset.MoveFirst'則記錄指針移到首記錄上CmdFirst.Enabled=FalseCmdPre.Enabled=FalseEndIfLabel7.Caption="記錄："&Adodc1.Recordset.AbsolutePosition&"/"&Adodc1.Recordset.RecordCountEndSubPrivateSubCmdNext_Click()Adodc1.Recordset.MoveNext'記錄指針移到下一條記錄CmdFirst.Enabled=TrueCmdPre.Enabled=TrueIfAdodc1.Recordset.EOFThen'如果記錄指針移到了末記錄之后Adodc1.Recordset.MoveLast'則記錄指針移到末記錄上CmdNext.Enabled=FalseCmdLast.Enabled=FalseEndIfLabel7.Caption="記錄："&Adodc1.Recordset.AbsolutePosition&"/"&Adodc1.Recordset.RecordCountEndSubPrivateSubCmdLast_Click()Adodc1.Recordset.MoveLast'移到末記錄CmdFirst.Enabled=TrueCmdPre.Enabled=TrueCmdNext.Enabled=FalseCmdLast.Enabled=FalseLabel7.Caption="記錄："&Adodc1.Recordset.AbsolutePosition&"/"&Adodc1.Recordset.RecordCountEndSubPrivateSubCmdN_Click()DimnAsIntegern=Text7.TextAdodc1.Recordset.MovenLabel7.Caption="記錄："&Adodc1.Recordset.AbsolutePosition&"/"&Adodc1.Recordset.RecordCountEndSub3.4查詢頁面對數(shù)據(jù)庫里的員工合同簽訂、續(xù)簽、終止信息進(jìn)行查詢。頁面設(shè)計(jì)如下：員工合同簽訂信息查詢頁面：員工合同簽訂信息詳細(xì)設(shè)計(jì)代碼：PrivateSubCmdBack_Click()qdxx.ShowUnloadMeEndSubPrivateSubForm_Load()Combo1.AddItem"職員編號"'為組合列表框添加各選項(xiàng)Combo1.AddItem"合同名稱"Combo1.AddItem"合同編號"Combo1.Text="職員編號"'讓組合框初始選中"姓名"項(xiàng)Text1.Text=""'清空文本框EndSubPrivateSubCommand1_Click()DimstrAsStringstr="Select員工合同簽定信息.*From員工合同簽定信息"str=str&"Where員工合同簽定信息."&Combo1.Text&"Like'"&Text1&"%'"Adodc1.RecordSource=strAdodc1.RefreshEndSub員工合同續(xù)簽信息查詢頁面：員工合同續(xù)簽信息詳細(xì)設(shè)計(jì)代碼:PrivateSubCmdBack_Click()xqxx.ShowUnloadMeEndSubPrivateSubForm_Load()Combo1.AddItem"職員編號"'為組合列表框添加各選項(xiàng)Combo1.AddItem"合同編號"Combo1.Text="職員編號"'讓組合框初始選中"姓名"項(xiàng)Text1.Text=""'清空文本框EndSubPrivateSubCommand1_Click()DimstrAsStringstr="Select員工合同續(xù)簽信息.*From員工合同續(xù)簽信息"str=str&"Where員工合同續(xù)簽信息."&Combo1.Text&"Like'"&Text1&"%'"Adodc1.RecordSource=strAdodc1.RefreshEndSub員工合同終止信息查詢頁面：員工合同終止信息詳細(xì)設(shè)計(jì)代碼：PrivateSubCmdBack_Click()zzxx.ShowUnloadMeEndSubPrivateSubForm_Load()Combo1.AddItem"職員編號"'為組合列表框添加各選項(xiàng)Combo1.AddItem"合同編號"Combo1.Text="職員編號"'讓組合框初始選中"姓名"項(xiàng)Text1.Text=""'清空文本框EndSubPrivateSubCommand1_Click()DimstrAsStringstr="Select合同終止信息.*From合同終止信息"str=str&"Where合同終止信息."&Combo1.Text&"Like'"&Text1&"%'"Adodc1.RecordSource=strAdodc1.RefreshEndSub3.5注冊新用戶輸入用戶名、密碼及確認(rèn)密碼，即可注冊新用戶，否則會提示相關(guān)的警告信息，按“取消”則退回主窗體界面。1、注冊新用戶頁面：詳細(xì)設(shè)計(jì)代碼:PrivateSubCmdOk_Click()DimSQLStrAsStringIfText1=""ThenMsgBox"請輸入用戶名！",vbExclamation,"確認(rèn)用戶名"Text1.SetFocusExitSubElseSQLStr="Select*from密碼表where用戶名='"&Text1&"'"Adod