2020年合同管理中的難點(diǎn)和重點(diǎn)-合同管理系統(tǒng)_第1頁
2020年合同管理中的難點(diǎn)和重點(diǎn)-合同管理系統(tǒng)_第2頁
2020年合同管理中的難點(diǎn)和重點(diǎn)-合同管理系統(tǒng)_第3頁
2020年合同管理中的難點(diǎn)和重點(diǎn)-合同管理系統(tǒng)_第4頁
2020年合同管理中的難點(diǎn)和重點(diǎn)-合同管理系統(tǒng)_第5頁
已閱讀5頁,還剩18頁未讀, 繼續(xù)免費(fèi)閱讀

下載本文檔

版權(quán)說明:本文檔由用戶提供并上傳,收益歸屬內(nèi)容提供方,若內(nèi)容存在侵權(quán),請進(jìn)行舉報(bào)或認(rèn)領(lǐ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

溫馨提示

  • 1. 本站所有資源如無特殊說明,都需要本地電腦安裝OFFICE2007和PDF閱讀器。圖紙軟件為CAD,CAXA,PROE,UG,SolidWorks等.壓縮文件請下載最新的WinRAR軟件解壓。
  • 2. 本站的文檔不包含任何第三方提供的附件圖紙等,如果需要附件,請聯(lián)系上傳者。文件的所有權(quán)益歸上傳用戶所有。
  • 3. 本站RAR壓縮包中若帶圖紙,網(wǎng)頁內(nèi)容里面會有圖紙預(yù)覽,若沒有圖紙預(yù)覽就沒有圖紙。
  • 4. 未經(jīng)權(quán)益所有人同意不得將文件中的內(nèi)容挪作商業(yè)或盈利用途。
  • 5. 人人文庫網(wǎng)僅提供信息存儲空間,僅對用戶上傳內(nèi)容的表現(xiàn)方式做保護(hù)處理,對用戶上傳分享的文檔內(nèi)容本身不做任何修改或編輯,并不能對任何下載內(nèi)容負(fù)責(zé)。
  • 6. 下載文件中如有侵權(quán)或不適當(dāng)內(nèi)容,請與我們聯(lián)系,我們立即糾正。
  • 7. 本站不保證下載資源的準(zhǔn)確性、安全性和完整性, 同時(shí)也不承擔(dān)用戶因使用這些下載資源對自己和他人造成任何形式的傷害或損失。

評論

0/150

提交評論