2020年合同管理中的難點(diǎn)和重點(diǎn)-合同管理系統(tǒng)

摘要

數(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)營管理中，采購是最重要

的一個(gè)環(huán)節(jié)。它對于企業(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)的主要功能是員工合同管理，對員工的合同簽訂信息、合同續(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軟

件對系統(tǒng)的窗口進(jìn)行設(shè)計(jì)，通過這些窗體進(jìn)行登錄操作，對輸入的用戶信息進(jìn)行

驗(yàn)證，和注冊新用戶操作，并可以對數(shù)據(jù)進(jìn)行添加與刪除、查詢及修改等操作。

關(guān)鍵詞合同管理系統(tǒng)；SQLserver2005;VB軟件

目錄

1系統(tǒng)功能概述1

1合同管理系統(tǒng)功能分析......................12系統(tǒng)結(jié)構(gòu)

圖..........................12數(shù)據(jù)庫設(shè)

計(jì)............................1

1需求分析...........................22E-R模

型...........................23關(guān)系模型...........................

44表結(jié)構(gòu)設(shè)計(jì)..........................41用戶登

錄...........................72主窗體界

面..........................93添加修改刪除頁

面......................104查詢頁面............................15

5注冊新用戶..........................184課設(shè)總

結(jié).............................20參考文

獻(xiàn)..............................21

1系統(tǒng)功能概述

1合同管理系統(tǒng)功能分析

企業(yè)合同管理系統(tǒng)主要功能是用計(jì)算機(jī)對員工合同的簽訂、續(xù)簽以及終止進(jìn)

行登記、查詢、刪除等操作以及對員工合同的簽訂、續(xù)簽、終止信息進(jìn)行記錄以

及打印報(bào)表等操作。

本系統(tǒng)運(yùn)用了VB0及SQLServer2005,主要設(shè)計(jì)了以下幾大功能（1）對員

工合同簽訂、續(xù)簽以及終止信息進(jìn)行修改、錄入、瀏覽及刪除。（2）按查詢條件

對工合同簽訂、續(xù)簽以及終止信息進(jìn)行查詢。

2系統(tǒng)結(jié)構(gòu)圖

圖1企業(yè)合同管理管理系統(tǒng)總體結(jié)構(gòu)

2數(shù)據(jù)庫設(shè)計(jì)

1需求分析

在主控窗體中（MID窗體）點(diǎn)擊各菜單實(shí)現(xiàn)管理和查詢企業(yè)和員工間的所

有合同信息。具體功能包括

合同簽定用于管理企業(yè)與員工簽定的勞動合同。包括職員編號、合同名稱、

合同編號、合同期限、合同簽定日期、備注等。

合同續(xù)簽用于處理已到期合同的續(xù)簽事務(wù)，包括職員編號、合同編號、合同

續(xù)簽到日期、合同續(xù)簽期限、新合同號、備注。

合同終止用于終止已簽定的合同，包括職員編號、合同編號、合同終止時(shí)間、

備注等。

用戶的登錄和注冊功能

2E-R模型

實(shí)體及屬性圖

本系統(tǒng)有合同簽訂，合同續(xù)簽。合同終止三個(gè)實(shí)體，三個(gè)實(shí)體相對獨(dú)立且相

互之間不存在聯(lián)系。

(1)合同簽訂實(shí)體及屬性圖如下

圖2合同簽訂實(shí)體及屬性

(2)合同續(xù)簽實(shí)體及屬性圖如下

(3)合同終止實(shí)體及屬性圖如下

圖4合同終止實(shí)體及屬性

圖3合同續(xù)簽實(shí)體及屬性

（4）密碼表實(shí)體及屬性如下

圖5密碼表實(shí)體及屬性

3關(guān)系模型

合同簽訂（職員編號，合同名稱，合同編號，合同期限，合同簽定日期，備

注）合同續(xù)簽（職員編號，合同編號，合同續(xù)簽到日期，合同續(xù)簽期限，新合

同號，備注）合同終止（職員編號，合同編號，合同終止時(shí)間，備注）密碼

表（用戶名，密碼）用于記錄注冊過的用戶名及密碼

4表結(jié)構(gòu)設(shè)計(jì)

本系統(tǒng)在SQLServer2000數(shù)據(jù)庫里共設(shè)計(jì)了4個(gè)數(shù)據(jù)表來記錄數(shù)據(jù)用戶

表、員工合同簽訂信息、員工合同續(xù)簽信息、員工合同終止信息。

合同簽訂信息的建立與基本數(shù)據(jù)SQL語句如下

CREATETABLE[db。].[員工合同簽定信息]([職員編號][int]NOTNULL,

[合同名稱][char](10)COLLATEChinese_PRC_CI_ASNULL,[合同編號]

[char](10)COLLATEChinese_PRC_CI_ASNULL,[合同期限][char](10)

COLLATEChinese_PRC_CI_ASNULL,[合同簽定日期][char](20)COLLATE

Chinese_PRC_CI_ASNULLJ備注][int]NULL

)ON[PRIMARY]

員工合同簽訂信息表

合同續(xù)簽信息的建立與基本數(shù)據(jù)SQL語句如下

CREATETABLE[dbo].[員工合同續(xù)簽信息]([職員編號][int]NOTNULL,

[合同編號][char](lO)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ù)簽信息表

合同終止信息的建立與基本數(shù)據(jù)SQL語句如下

CREATETABLE[dbo].[合同終止信息]([職員編號][int]NOTNULL,

[合同編號][char](10)COLLATEChinese_PRC_CI_ASNULL,[合同終止時(shí)

間][char](20)COLLATEChinese_PRC_CI_ASNULL,[備注][int]NULL,

)ON[PRIMARY]

員工合同終止信息表

密碼表的建立與基本數(shù)據(jù)SQL語句如下

createtable用戶(用戶名CHAR(10),密碼CHAR(8)

)；

密碼表

3系統(tǒng)各功能模塊的詳細(xì)設(shè)計(jì)

1用戶登錄

輸入用戶名及對應(yīng)密碼，即可登錄，否則會提示相關(guān)的警告信息，按"取消"

則退回主窗體界面。頁面設(shè)計(jì)如下1、登錄頁面

2、詳細(xì)設(shè)計(jì)代碼

PrivateSubCommandl_Click()StaticmiCountAsIntegerDimSQLStr

AsString

SQLStr="Select*from密碼表Where用戶名&Textl&"""

AdodcRecordSource=SQLStrAdodcRefresh

IfAdodcRecordset.BOFThen

MsgBox"用戶名錯(cuò)誤，重新輸入",vbExclamation,"警告"TextText="":

TextSetFocus日se"判斷密碼是否正確

IfAdodcRecordset.Fields("密召馬")=Text2Then

MDIFormmDataMng.Enabled=TrueUnloadMe日se

MsgBox"密碼錯(cuò)誤，重新輸入",vbExclamation,"警告"TextText=

TextSetFocusEndIfEndIf

miCount=miCount+1

IfmiCount=3ThenUnloadMe"若已輸入3次，則關(guān)閉窗體EndSub

PrivateSubCommand2_Click()UnloadMeEndSub

2主窗體界面

用戶菜單可以實(shí)現(xiàn)注冊新用戶和退出功能；數(shù)據(jù)管理菜單可對數(shù)據(jù)庫里的員

工合同簽訂、續(xù)簽、終止信息進(jìn)行修改、添加、刪除和查詢。頁面設(shè)計(jì)如下1、

主窗體頁面

2、詳細(xì)設(shè)計(jì)代碼

PrivateSubMDIForm_Load()mDataMng.Enabled=FalseEndSub

PrivateSubmFDenglu_Click()Denglu.ShowEndSub

PrivateSubmDzhuce_Click()zcxyh.ShowEndSub

PrivateSubmDqdxx_Click()

qdxx.ShowEndSub

PrivateSubmDxqxx_Click()xqxx.ShowEndSub

PrivateSubmDzzxx_Click()zzxx.ShowEndSub

PrivateSubmFExit_Click()EndEndSub

3添加修改刪除頁面

對數(shù)據(jù)庫里的員工合同簽訂、續(xù)簽、終止信息進(jìn)行修改、添加、刪除，并且

可以進(jìn)入查詢界面。頁面設(shè)計(jì)如下

1、員工合同簽訂、續(xù)簽、終止信息的添加修改刪除頁面

2、詳細(xì)設(shè)計(jì)代碼

PrivateSubCommandl_Click()FormShowEndSub

PrivateSubForm_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"［取消胺鈕無效

LabelCaption=ni己錄"&AdodcRecordset.AbsolutePosition&7"&

AdodcRecordset.RecordCount

EndSub

PrivateSubCmdAdd_Click()"［添加］按鈕的單擊事件

AdodcRecordset.AddNewCmdAdd.Enabled=False

CmdDel.Enabled=FalseCmdOk.Enabled=TrueCmdEsc.Enabled=TrueEnd

Sub

PrivateSubCmdOk_Click()"單擊［確認(rèn)］按鈕AdodcRecordset.Update

CmdAdd.Enabled=TrueCmdDel.Enabled=TrueCmdOk.Enabled=False

CmdEsc.Enabled=FalseEndSub

PrivateSubCmdDel_Click()"單擊［刪除］按鈕

x=MsgBox("確實(shí)要?jiǎng)h除當(dāng)前記錄嗎？",vbYesNo+vbQuestion,"確認(rèn)")

Ifx=vbYesThenAdodcRecordset.Delete

AdodcRecordset.MoveNextIfAdodcRecordset.EOFThen

AdodcRecordset.MoveLastEndIfElse

AdodcRefreshEndIfEndSub

PrivateSubCmdEsc_Click()"取消按鈕AdodcRefresh

CmdAdd.Enabled=TrueCmdDel.Enabled=TrueCmdOk.Enabled=False

CmdEsc.Enabled=FalseEndSub

PrivateSubCmdFirst_Click()

AdodcRecordset.MoveFirst"記錄指針移到首記錄(顯示首記錄)

CmdFirst.Enabled=False"讓［首i己錄］按鈕無效CmdPre.Enabled=False"讓

［前移］按鈕無效CmdNext.Enabled=True"讓后移］按鈕有效

CmdLast.Enabled=True"讓沫記錄］按鈕有效"在Label6上顯示當(dāng)前記錄號

/記錄總數(shù)

LabelCaption="i己錄"&AdodcRecordset.AbsolutePosition&&

AdodcRecordset.RecordCount

EndSub

PrivateSubCmdPre_Click()

AdodcRecordset.MovePrevious"記錄指針移到前一條記錄

CmdNext.Enabled=TrueCmdLast.Enabled=True

IfAdodcRecordset.BOFThen"如果記錄指針移到首記錄之前，

AdodcRecordset.MoveFirst"則記錄指針移到首記錄上

CmdFirst.Enabled=FalseCmdPre.Enabled=FalseEndIf

LabelCaption="記錄"&AdodcRecordset.AbsolutePosition&&

AdodcRecordset.RecordCount

EndSub

PrivateSubCmdNext_Click()

AdodcRecordset.MoveNext"記錄指針移到下一條記錄

CmdFirst.Enabled=TrueCmdPre.Enabled=True

IfAdodcRecordset.EOFThen"如果記錄指針移到了末記錄之后

AdodcRecordset.MoveLast"則記錄指針移到末記錄上

CmdNext.Enabled=FalseCmdLast.Enabled=FalseEndIf

LabelCaption="記錄"&AdodcRecordset.AbsolutePosition&7"&

AdodcRecordset.RecordCount

EndSub

PrivateSubCmdLast_Click()

AdodcRecordset.MoveLast"移到末記錄CmdFirst.Enabled=True

CmdPre.Enabled=TrueCmdNext.Enabled=FalseCmdLast.Enabled=False

LabelCaption="記錄"&AdodcRecordset.AbsolutePosition&7"&

AdodcRecordset.RecordCount

EndSub

PrivateSubCmdN_Click()DimnAsIntegern=TextText

AdodcRecordset.Moven

LabelCaption="記錄"&AdodcRecordset.AbsolutePosition&&

AdodcRecordset.RecordCount

EndSub

4查詢頁面

對數(shù)據(jù)庫里的員工合同簽訂、續(xù)簽、終止信息進(jìn)行查詢。頁面設(shè)計(jì)如下1、

員工合同簽訂信息杳詢頁面

2、員工合同簽訂信息詳細(xì)設(shè)計(jì)代碼PrivateSubCmdBack_Click()

qdxx.ShowUnloadMeEndSub

PrivateSubForm_Load()

ComboAddltem"職員編號""為組合列表框添加各選項(xiàng)

ComboAddltem"合同名稱"ComboAddltem"合同編號"

ComboText="職員編號""讓組合框初始選中"姓名"項(xiàng)TextText="""

清空文本框EndSub

PrivateSubCommandl_Click()DimstrAsString

str="Select員工合同簽定信息.*From員工合同簽定信息"

str=str&"Where員工合同簽定信息&ComboText&"Like""&

Textl&"%""

AdodcRecordSource=strAdodcRefreshEndSub

3、員工合同續(xù)簽信息查詢頁面

4、員工合同續(xù)簽信息詳細(xì)設(shè)計(jì)代碼:PrivateSubCmdBack_Click()

xqxx.ShowUnloadMeEndSub

PrivateSubForm_Load()

ComboAddltem"職員編號""為組合列表框添加各選項(xiàng)

ComboAddltem"合同編號"

ComboText="職員編號""讓組合框初始選中"姓名"項(xiàng)TextText="""

清空文本框EndSub

PrivateSubCommandl_Click()DimstrAsString

str="Select員工合同續(xù)簽信息.*From員工合同續(xù)簽信息"

str=str&"Where員工合同續(xù)簽信息&ComboText&"Like""&

Textl&"%""

AdodcRecordSource=strAdodcRefreshEndSub

5、員工合同終止信息查詢頁面

6、員工合同終止信息詳細(xì)設(shè)計(jì)代碼PrivateSubCmdBack_Click()

zzxx.ShowUnloadMeEndSub

PrivateSubForm_Load()

ComboAddltem"職員編號""為組合列表框添加各選項(xiàng)

ComboAddltem"合同編號"

ComboText="職員編號""讓組合框初始選中"姓名"項(xiàng)TextText="""

清空文本框EndSub

PrivateSubCommandl_Click()DimstrAsString

str="Select合同終止信息.*From合同終止信息"

str=str&"Where合同終止信息&ComboText&"Like""&Textl&

"%""AdodcRecordSource=strAdodcRefreshEndSub

5注冊新用戶

輸入用戶名、密碼及確認(rèn)密碼，即可注冊新用戶，否則會提示相關(guān)的警告信

息，按"取消"則退回主窗體界面。1、注冊新用戶頁面

2、詳細(xì)設(shè)計(jì)代碼：

PrivateSubCmdOk_Click()

DimSQLStrAsString

IfTextl=""Then

MsgBox"請輸入用戶名！",vbExclamation,"確認(rèn)用戶名

TextSetFocus

ExitSub

日se

SQLStr="Select*from密碼表where用戶名&Textl&"""

AdodcRecordSource=SQLStr

AdodcRefresh

IfAdodcRecordset.EOF=FalseThen

MsgBox"用戶名已存在，請重新輸入！",vbExclamation,"檢驗(yàn)用戶名"

Textl=

TextSetFocus

ExitSub

EndIf

EndIf

IfText2Text3Then

MsgBox"二次輸入的密碼不一致，請重新輸入",vbExclamation,"檢驗(yàn)密碼

Text2="":Text3=

TextSetFocus