合同管理系統(tǒng)

合同管理系統(tǒng)合同管理系統(tǒng)合同管理系統(tǒng)沈陽理工大學(xué)課程設(shè)計(jì)專用紙成績評(píng)定表學(xué)生姓名朱世誠班級(jí)學(xué)號(hào)1209010228專業(yè)信息與計(jì)算科學(xué)課程設(shè)計(jì)題目合同管理系統(tǒng)評(píng)語組長署名：成績?nèi)掌?014年12月18日i沈陽理工大學(xué)課程設(shè)計(jì)專用紙課程設(shè)計(jì)任務(wù)書學(xué)院理學(xué)院專業(yè)信息與計(jì)算科學(xué)學(xué)生姓名朱世誠班級(jí)學(xué)號(hào)1209010228課程設(shè)計(jì)題目合同管理系統(tǒng)實(shí)踐授課要求與任務(wù):利用VB6.0及SQLServer2000設(shè)計(jì)一個(gè)職工合同管理系統(tǒng)，數(shù)據(jù)庫里包括5個(gè)表：密碼表、職工合同簽署信息、職工合同續(xù)簽信息以及合同停止信息。密碼表用于記錄取戶名及密碼；職工合同簽署信息用于記錄合同簽署的基本信息；職工合同續(xù)簽信息用于記錄合同續(xù)簽的基本信息；合同停止信息用于記錄合同停止的基本信息。在主控窗體中（MID窗體）點(diǎn)擊各菜單實(shí)現(xiàn)管理和查問公司和職工間的所有合同信息。詳盡功能包括：合同簽署：用于管理公司與職工簽署的勞動(dòng)合同。包括職員編號(hào)、合同名稱、合同編號(hào)、合同限時(shí)、合同簽署日期、備注等。合同續(xù)簽：用于辦理已到期合同的續(xù)簽事務(wù)，包括職員編號(hào)、合同編號(hào)、合同續(xù)簽到日期、合同續(xù)簽限時(shí)、新合同號(hào)、備注。合同停止：用于停止已簽署的合同，包括職員編號(hào)、合同編號(hào)、合同停止時(shí)間、備注等。用戶的登錄和注冊功能：工作計(jì)劃與進(jìn)度安排:第15周：數(shù)據(jù)庫設(shè)計(jì)，利用SQLServer創(chuàng)辦數(shù)據(jù)庫及數(shù)據(jù)表。整體構(gòu)造設(shè)計(jì)，設(shè)計(jì)調(diào)試系統(tǒng)首頁、登岸窗體及MDI窗體。第16周：管理功能設(shè)計(jì)，設(shè)計(jì)調(diào)試各樣數(shù)據(jù)管理功能窗體及打印報(bào)表功能。撰寫課程設(shè)計(jì)報(bào)告，查收與爭論。指導(dǎo)教師：專業(yè)負(fù)責(zé)人：學(xué)院授課副院長：2014年11月27日2014年11月28日2014年11月28日ii沈陽理工大學(xué)課程設(shè)計(jì)專用紙大綱數(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)中減少許據(jù)儲(chǔ)藏冗余、實(shí)現(xiàn)數(shù)據(jù)共享、保障數(shù)據(jù)安全以及高效地檢索數(shù)據(jù)和辦理數(shù)據(jù)。在公司經(jīng)營管理中,采買是最重要的一個(gè)環(huán)節(jié)。它關(guān)于公司降低經(jīng)營成本、保證產(chǎn)質(zhì)量量、縮短生產(chǎn)周期擁有特別重要的意義。采買管理為降低采買成本、提高采買效益供給了廣闊的空間，但同時(shí)也為采買管理帶來了新的機(jī)遇和挑戰(zhàn)。目前,我國大部分公司仍舊沒有成立健全的供給鏈管理體系,物質(zhì)的采買還存在機(jī)構(gòu)設(shè)置分別,資源浪費(fèi)嚴(yán)重,信息傳達(dá)滯后等問題。本系統(tǒng)的主要功能是職工合同管理，對(duì)職工的合同簽署信息、合同續(xù)簽信息和合同停止信息進(jìn)行管理和改正。本系統(tǒng)的數(shù)據(jù)庫是用SQLserver2000軟件進(jìn)行創(chuàng)辦與設(shè)計(jì)，分別包括簽署信息表、續(xù)簽信息表和合同停止信息表三個(gè)表。經(jīng)過系統(tǒng)ODBC數(shù)據(jù)源管理工具把已創(chuàng)辦的數(shù)據(jù)源與系統(tǒng)數(shù)據(jù)庫相連。利用VB軟件對(duì)系統(tǒng)的窗口進(jìn)行設(shè)計(jì)，經(jīng)過這些窗體進(jìn)行登錄操作，對(duì)輸入的用戶信息進(jìn)行考證，和注冊新用戶操作，并能夠?qū)?shù)據(jù)進(jìn)行增添與刪除、查問及改正等操作。重點(diǎn)詞：合同管理系統(tǒng)；SQLserver2000；VB軟件iii沈陽理工大學(xué)課程設(shè)計(jì)專用紙目錄1系統(tǒng)功能概括.........................................................11.1合同管理系統(tǒng)功能分析.............................................11.2系統(tǒng)構(gòu)造圖......................................................12數(shù)據(jù)庫設(shè)計(jì)...........................................................12.1需求分析.........................................................22.2E-R模型.........................................................22.3關(guān)系模型.........................................................42.4表構(gòu)造設(shè)計(jì).......................................................43.1用戶登錄.........................................................73.2主窗體界面.......................................................93.3增添改正刪除頁面................................................103.4查問頁面........................................................153.5注冊新用戶......................................................184課設(shè)總結(jié).............................................................20參照文件...............................................................21iv沈陽理工大學(xué)課程設(shè)計(jì)專用紙系統(tǒng)功能概括1.1合同管理系統(tǒng)功能分析合同管理系統(tǒng)主要功能是用計(jì)算機(jī)對(duì)職工合同的簽署、續(xù)簽以及停止進(jìn)行登記、查問、刪除等操作以及對(duì)職工合同的簽署、續(xù)簽、停止信息進(jìn)行記錄以及打印報(bào)表等操作。本系統(tǒng)運(yùn)用了VB6.0及SQLServer2000，主要設(shè)計(jì)了以下幾大功能：對(duì)職工合同簽署、續(xù)簽以及停止信息進(jìn)行改正、錄入、閱讀及刪除。按查問條件對(duì)工合同簽署、續(xù)簽以及停止信息進(jìn)行查問。1.2系統(tǒng)構(gòu)造圖用戶注退冊出新功用能戶

圖1合同管理管理系統(tǒng)整體構(gòu)造合同管理系統(tǒng)管理查問合合合合合合同同同同同同簽續(xù)終簽續(xù)終訂簽止訂簽止添添添查查查加加加詢詢詢刪刪刪除除除修修修改改改1沈陽理工大學(xué)課程設(shè)計(jì)專用紙數(shù)據(jù)庫設(shè)計(jì)2.1需求分析在主控窗體中（MID窗體）點(diǎn)擊各菜單實(shí)現(xiàn)管理和查問公司和職工間的所有合同信息。詳盡功能包括：合同簽署：用于管理公司與職工簽署的勞動(dòng)合同。包括職員編號(hào)、合同名稱、合同編號(hào)、合同限時(shí)、合同簽署日期、備注等。合同續(xù)簽：用于辦理已到期合同的續(xù)簽事務(wù)，包括職員編號(hào)、合同編號(hào)、合同續(xù)簽到日期、合同續(xù)簽限時(shí)、新合同號(hào)、備注。合同停止：用于停止已簽署的合同，包括職員編號(hào)、合同編號(hào)、合同停止時(shí)間、備注等。用戶的登錄和注冊功能：2.2E-R模型實(shí)體及屬性圖本系統(tǒng)有合同簽署，合同續(xù)簽。合同停止三個(gè)實(shí)體，三個(gè)實(shí)體相對(duì)獨(dú)立且相互之間不存在聯(lián)系。（1）合同簽署實(shí)體及屬性圖以下：合同簽署職員編號(hào)備注合同名稱合同簽署日合同編號(hào)合同限時(shí)圖2合同簽署實(shí)體及屬性2沈陽理工大學(xué)課程設(shè)計(jì)專用紙（2）合同續(xù)簽實(shí)體及屬性圖以下：合同續(xù)簽職員編號(hào)備注合同編號(hào)新合同號(hào)合同續(xù)簽到日期合同續(xù)簽限時(shí)圖3合同續(xù)簽實(shí)體及屬性（3）合同停止實(shí)體及屬性圖以下：合同停止職員編號(hào)備注合同編號(hào)合同停止時(shí)間圖4合同停止實(shí)體及屬性（4）密碼表實(shí)體及屬性以下：密碼表用戶名密碼圖5密碼表實(shí)體及屬性3沈陽理工大學(xué)課程設(shè)計(jì)專用紙2.3關(guān)系模型合同簽署（職員編號(hào)，合同名稱，合同編號(hào)，合同限時(shí)，合同簽署日期，備注）合同續(xù)簽（職員編號(hào)，合同編號(hào)，合同續(xù)簽到日期，合同續(xù)簽限時(shí)，新合同號(hào)，備注）合同停止（職員編號(hào)，合同編號(hào)，合同停止時(shí)間，備注）密碼表(用戶名，密碼)用于記錄注冊過的用戶名及密碼2.4表構(gòu)造設(shè)計(jì)本系統(tǒng)在SQLServer2000數(shù)據(jù)庫里共設(shè)計(jì)了4個(gè)數(shù)據(jù)表來記錄數(shù)據(jù)：用戶表、職工合同簽署信息、職工合同續(xù)簽信息、職工合同停止信息。合同簽署信息的成立與基本數(shù)據(jù)：SQL語句以下：CREATETABLE[dbo].[職工合同簽署信息]([職員編號(hào)][int]NOTNULL,[合同名稱][char](10)COLLATEChinese_PRC_CI_ASNULL,[合同編號(hào)][char](10)COLLATEChinese_PRC_CI_ASNULL,[合同限時(shí)][char](10)COLLATEChinese_PRC_CI_ASNULL,[合同簽署日期][char](20)COLLATEChinese_PRC_CI_ASNULL,[備注][int]NULL)ON[PRIMARY]4沈陽理工大學(xué)課程設(shè)計(jì)專用紙職工合同簽署信息表合同續(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ù)簽限時(shí)][char](20)COLLATEChinese_PRC_CI_ASNULL,[新合同號(hào)][char](10)COLLATEChinese_PRC_CI_ASNULL,[備注][int]NULL)ON[PRIMARY]職工合同續(xù)簽信息表合同停止信息的成立與基本數(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沈陽理工大學(xué)課程設(shè)計(jì)專用紙密碼表的成立與基本數(shù)據(jù)：SQL語句以下：createtable用戶(用戶名CHAR(10),密碼CHAR(8));密碼表6沈陽理工大學(xué)課程設(shè)計(jì)專用紙系統(tǒng)各功能模塊的詳盡設(shè)計(jì)3.1用戶登錄輸入用戶名及對(duì)應(yīng)密碼，即可登錄，否則會(huì)提示有關(guān)的警示信息，按“取消”則退回主窗體界面。頁面設(shè)計(jì)以下：1、登錄頁面2、詳盡設(shè)計(jì)代碼PrivateSubCommand1_Click()StaticmiCountAsIntegerDimSQLStrAsStringSQLStr="Select*from密碼表Where用戶名='"&Text1&"'"Adodc1.RecordSource=SQLStrAdodc1.RefreshIfAdodc1.Recordset.BOFThenMsgBox"用戶名錯(cuò)誤，從頭輸入",vbExclamation,"警示"Text1.Text="":Text1.SetFocusElse'判斷密碼可否正確7沈陽理工大學(xué)課程設(shè)計(jì)專用紙IfAdodc1.Recordset.Fields("密碼")=Text2ThenMDIForm1.mDataMng.Enabled=TrueUnloadMeElseMsgBox"密碼錯(cuò)誤，從頭輸入",vbExclamation,"警示"Text2.Text="":Text2.SetFocusEndIfEndIfmiCount=miCount+1IfmiCount=3ThenUnloadMe'若已輸入3次，則封閉窗體EndSubPrivateSubCommand2_Click()UnloadMeEndSub8沈陽理工大學(xué)課程設(shè)計(jì)專用紙3.2主窗體界面用戶菜單能夠?qū)崿F(xiàn)注冊新用戶和退出功能；數(shù)據(jù)管理菜單可對(duì)數(shù)據(jù)庫里的職工合同簽訂、續(xù)簽、停止信息進(jìn)行改正、增添、刪除和查問。頁面設(shè)計(jì)以下：1、主窗體頁面2、詳盡設(shè)計(jì)代碼PrivateSubMDIForm_Load()mDataMng.Enabled=FalseEndSubPrivateSubmFDenglu_Click()Denglu.ShowEndSubPrivateSubmDzhuce_Click()zcxyh.ShowEndSubPrivateSubmDqdxx_Click()9沈陽理工大學(xué)課程設(shè)計(jì)專用紙qdxx.ShowEndSubPrivateSubmDxqxx_Click()xqxx.ShowEndSubPrivateSubmDzzxx_Click()zzxx.ShowEndSubPrivateSubmFExit_Click()EndEndSub3.3增添改正刪除頁面對(duì)數(shù)據(jù)庫里的職工合同簽署、續(xù)簽、停止信息進(jìn)行改正、增添、刪除，并且能夠進(jìn)入查問界面。頁面設(shè)計(jì)以下：1、職工合同簽署、續(xù)簽、停止信息的增添改正刪除頁面：10沈陽理工大學(xué)課程設(shè)計(jì)專用紙2、詳盡設(shè)計(jì)代碼：PrivateSubCommand1_Click()Form1.ShowEndSubPrivateSubForm_Load()11沈陽理工大學(xué)課程設(shè)計(jì)專用紙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除目前記錄嗎？",vbYesNo+vbQuestion,"確認(rèn)")Ifx=vbYesThenAdodc1.Recordset.Delete12沈陽理工大學(xué)課程設(shè)計(jì)專用紙Adodc1.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上顯示目前記錄號(hào)/記錄總數(shù)：Label7.Caption="記錄："&Adodc1.Recordset.AbsolutePosition&"/"&Adodc1.Recordset.RecordCountEndSubPrivateSubCmdPre_Click()Adodc1.Recordset.MovePrevious'記錄指針移到前一條記錄CmdNext.Enabled=TrueCmdLast.Enabled=True13沈陽理工大學(xué)課程設(shè)計(jì)專用紙IfAdodc1.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.RecordCountEndSub14沈陽理工大學(xué)課程設(shè)計(jì)專用紙PrivateSubCmdN_Click()DimnAsIntegern=Text7.TextAdodc1.Recordset.MovenLabel7.Caption="記錄："&Adodc1.Recordset.AbsolutePosition&"/"&Adodc1.Recordset.RecordCountEndSub3.4查問頁面對(duì)數(shù)據(jù)庫里的職工合同簽署、續(xù)簽、停止信息進(jìn)行查問。頁面設(shè)計(jì)以下：1、職工合同簽署信息查問頁面：15沈陽理工大學(xué)課程設(shè)計(jì)專用紙2、職工合同簽署信息詳盡設(shè)計(jì)代碼：PrivateSubCmdBack_Click()qdxx.ShowUnloadMeEndSubPrivateSubForm_Load()Combo1.AddItem"職員編號(hào)"'為組合列表框增添各選項(xiàng)Combo1.AddItem"合同名稱"Combo1.AddItem"合同編號(hào)"Combo1.Text="職員編號(hào)"'讓組合框初始選中"姓名"項(xiàng)Text1.Text=""'清空文本框EndSubPrivateSubCommand1_Click()DimstrAsStringstr="Select職工合同簽署信息.*From職工合同簽署信息"str=str&"Where職工合同簽署信息."&Combo1.Text&"Like'"&Text1&"%'"Adodc1.RecordSource=strAdodc1.RefreshEndSub3、職工合同續(xù)簽信息查問頁面：16沈陽理工大學(xué)課程設(shè)計(jì)專用紙4、職工合同續(xù)簽信息詳盡設(shè)計(jì)代碼:PrivateSubCmdBack_Click()xqxx.ShowUnloadMeEndSubPrivateSubForm_Load()Combo1.AddItem"職員編號(hào)"'為組合列表框增添各選項(xiàng)Combo1.AddItem"合同編號(hào)"Combo1.Text="職員編號(hào)"'讓組合框初始選中"姓名"項(xiàng)Text1.Text=""'清空文本框EndSubPrivateSubCommand1_Click()DimstrAsStringstr="Select職工合同續(xù)簽信息.*From職工合同續(xù)簽信息"str=str&"Where職工合同續(xù)簽信息."&Combo1.Text&"Like'"&Text1&"%'"Adodc1.RecordSource=strAdodc1.RefreshEndSub5、職工合同停止信息查問頁面：17沈陽理工大學(xué)課程設(shè)計(jì)專用紙6、職工合同停止信息詳盡設(shè)計(jì)代碼：PrivateSubCmdBack_Click()zzxx.ShowUnloadMeEndSubPrivateSubForm_Load()Combo1.AddItem"職員編號(hào)"'為組合列表框增添各選項(xiàng)Combo1.AddItem"合同編號(hào)"Combo1.Text="職員編號(hào)"'讓組合框初始選中"姓名"項(xiàng)Text1.Text=""'清空文本框EndSubPrivateSubCommand1_Click()DimstrAsStringstr="Select合同停止信息.*From合同停止信息"str=str&"Where合同停止信息."&Combo1.Text&"Like'"&Text1&"%'"Adodc1.RecordSource=strAdodc1.RefreshEndSub3.5注冊新用戶輸入用戶名、密碼及確認(rèn)密碼，即可注冊新用戶，否則會(huì)提示有關(guān)的警示信息，按“取消”則退回主窗體界面。1、注冊新用戶頁面：18沈陽理工大學(xué)課程設(shè)計(jì)專用紙2、詳盡設(shè)計(jì)代碼:PrivateSubCmdOk_Click()DimSQLStrAsStringIfText1=""ThenMsgBox"請輸入用戶名！",vbExclamation,"確認(rèn)用戶名"Text1.SetFocusExitSubElseSQLStr="Select*from密碼表where用戶名='"&Text1&"'"Adodc1.RecordSource=SQ