(完整)合同管理系统

沈阳理工大学课程设计专用纸PAGEPAGEi成绩评定表学生姓名朱世诚班级学号1209010228专业信息与计算科学课程设计题目合同管理系统评语组长签字：成绩日期2014年12月18日课程设计任务书学院理学院专业信息与计算科学学生姓名朱世诚班级学号1209010228课程设计题目合同管理系统实践教学要求与任务:利用VB6.0及SQLServer2000设计一个员工合同管理系统，数据库里包括5个表：密码表、员工合同签订信息、员工合同续签信息以及合同终止信息。密码表用于记录用户名及密码；员工合同签订信息用于记录合同签订的基本信息；员工合同续签信息用于记录合同续签的基本信息；合同终止信息用于记录合同终止的基本信息。在主控窗体中（MID窗体）点击各菜单实现管理和查询企业和员工间的所有合同信息。具体功能包括：合同签订：用于管理企业与员工签定的劳动合同。包括职员编号、合同名称、合同编号、合同期限、合同签定日期、备注等。合同续签：用于处理已到期合同的续签事务，包括职员编号、合同编号、合同续签到日期、合同续签期限、新合同号、备注。合同终止：用于终止已签定的合同，包括职员编号、合同编号、合同终止时间、备注等。用户的登录和注册功能：工作计划与进度安排:第15周：数据库设计，利用SQLServer创建数据库及数据表。总体结构设计，设计调试系统首页、登陆窗体及MDI窗体。第16周：管理功能设计，设计调试各种数据管理功能窗体及打印报表功能。撰写课程设计报告，验收与答辩。指导教师：2014年11月27日专业负责人：2014年11月28日学院教学副院长：2014年11月28日摘要数据库技术是现代信息科学与技术的重要组成部分，是计算机数据处理与信息管理系统的核心。数据库技术研究和解决了计算机信息处理过程中大量数据有效地组织和存储的问题，在数据库系统中减少数据存储冗余、实现数据共享、保障数据安全以及高效地检索数据和处理数据。在企业经营管理中,采购是最重要的一个环节。它对于企业降低经营成本、确保产品质量、缩短生产周期具有非常重要的意义。采购管理为降低采购成本、提高采购效益提供了广阔的空间，但同时也为采购管理带来了新的机遇和挑战。目前,我国大多数企业仍然没有建立健全的供应链管理体系,物资的采购还存在机构设置分散,资源浪费严重,信息传递滞后等问题。本系统的主要功能是员工合同管理，对员工的合同签订信息、合同续签信息和合同终止信息进行管理和修改。本系统的数据库是用SQLserver2000软件进行创建与设计，分别包括签订信息表、续签信息表和合同终止信息表三个表。通过系统ODBC数据源管理工具把已创建的数据源与系统数据库相连。利用VB软件对系统的窗口进行设计，通过这些窗体进行登录操作，对输入的用户信息进行验证，和注册新用户操作，并可以对数据进行添加与删除、查询及修改等操作。关键词：合同管理系统；SQLserver2000；VB软件

目录286411系统功能概述 167511.1合同管理系统功能分析 1312971.2系统结构图 113392数据库设计 1190362.1需求分析 2222722.2E-R模型 2129112.3关系模型 471022.4表结构设计 4117593.1用户登录 726123.2主窗体界面 913583.3添加修改删除页面 10191853.4查询页面 15248643.5注册新用户 1814004课设总结 2020277参考文献 211系统功能概述1.1合同管理系统功能分析合同管理系统主要功能是用计算机对员工合同的签订、续签以及终止进行登记、查询、删除等操作以及对员工合同的签订、续签、终止信息进行记录以及打印报表等操作。本系统运用了VB6.0及SQLServer2000，主要设计了以下几大功能：对员工合同签订、续签以及终止信息进行修改、录入、浏览及删除。按查询条件对工合同签订、续签以及终止信息进行查询。1.2系统结构图图1合同管理管理系统总体结构合同管理系统合同管理系统注册新用户退出功能用户合同签订添加删除修改合同续签添加删除修改合同终止添加删除修改合同签订查询合同续签查询合同终止查询管理查询

2数据库设计注册新用户退出功能用户合同签订添加删除修改合同续签添加删除修改合同终止添加删除修改合同签订查询合同续签查询合同终止查询管理查询2.1需求分析在主控窗体中（MID窗体）点击各菜单实现管理和查询企业和员工间的所有合同信息。具体功能包括：合同签定：用于管理企业与员工签定的劳动合同。包括职员编号、合同名称、合同编号、合同期限、合同签定日期、备注等。合同续签：用于处理已到期合同的续签事务，包括职员编号、合同编号、合同续签到日期、合同续签期限、新合同号、备注。合同终止：用于终止已签定的合同，包括职员编号、合同编号、合同终止时间、备注等。用户的登录和注册功能：2.2E-R模型1.实体及属性图本系统有合同签订，合同续签。合同终止三个实体，三个实体相对独立且相互之间不存在联系。（1）合同签订实体及属性图如下：合同签订合同签订职员编号备注职员编号备注合同名称合同签订日期合同名称合同签订日期合同编号合同期限合同编号合同期限图2合同签订实体及属性（2）合同续签实体及属性图如下：合同续签合同续签备注职员编号备注职员编号新合同号合同编号新合同号合同编号合同续签期限合同续签到日期合同续签期限合同续签到日期图3合同续签实体及属性（3）合同终止实体及属性图如下：合同终止合同终止备注职员编号备注职员编号合同终止时间合同编号合同终止时间合同编号图4合同终止实体及属性（4）密码表实体及属性如下：密码表密码表密码用户名密码用户名图5密码表实体及属性2.3关系模型合同签订（职员编号，合同名称，合同编号，合同期限，合同签定日期，备注）合同续签（职员编号，合同编号，合同续签到日期，合同续签期限，新合同号，备注）合同终止（职员编号，合同编号，合同终止时间，备注）密码表(用户名，密码)用于记录注册过的用户名及密码2.4表结构设计本系统在SQLServer2000数据库里共设计了4个数据表来记录数据：用户表、员工合同签订信息、员工合同续签信息、员工合同终止信息。1.合同签订信息的建立与基本数据：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.合同续签信息的建立与基本数据：SQL语句如下：CREATETABLE[dbo].[员工合同续签信息]( [职员编号][int]NOTNULL, [合同编号][char](10)COLLATEChinese_PRC_CI_ASNULL, [合同续签到日期][char](20)COLLATEChinese_PRC_CI_ASNULL, [合同续签期限][char](20)COLLATEChinese_PRC_CI_ASNULL, [新合同号][char](10)COLLATEChinese_PRC_CI_ASNULL, [备注][int]NULL)ON[PRIMARY]员工合同续签信息表3.合同终止信息的建立与基本数据：SQL语句如下：CREATETABLE[dbo].[合同终止信息]( [职员编号][int]NOTNULL, [合同编号][char](10)COLLATEChinese_PRC_CI_ASNULL, [合同终止时间][char](20)COLLATEChinese_PRC_CI_ASNULL, [备注][int]NULL,)ON[PRIMARY]员工合同终止信息表5.密码表的建立与基本数据：SQL语句如下：createtable用户(用户名CHAR(10),密码CHAR(8));密码表

3系统各功能模块的详细设计3.1用户登录输入用户名及对应密码，即可登录，否则会提示相关的警告信息，按“取消”则退回主窗体界面。页面设计如下：1、登录页面2、详细设计代码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次，则关闭窗体EndSubPrivateSubCommand2_Click()UnloadMeEndSub3.2主窗体界面用户菜单可以实现注册新用户和退出功能；数据管理菜单可对数据库里的员工合同签订、续签、终止信息进行修改、添加、删除和查询。页面设计如下：主窗体页面详细设计代码PrivateSubMDIForm_Load()mDataMng.Enabled=FalseEndSubPrivateSubmFDenglu_Click()Denglu.ShowEndSubPrivateSubmDzhuce_Click()zcxyh.ShowEndSubPrivateSubmDqdxx_Click()qdxx.ShowEndSubPrivateSubmDxqxx_Click()xqxx.ShowEndSubPrivateSubmDzzxx_Click()zzxx.ShowEndSubPrivateSubmFExit_Click()EndEndSub3.3添加修改删除页面对数据库里的员工合同签订、续签、终止信息进行修改、添加、删除，并且可以进入查询界面。页面设计如下：员工合同签订、续签、终止信息的添加修改删除页面：详细设计代码：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()'单击[确认]按钮Adodc1.Recordset.UpdateCmdAdd.Enabled=TrueCmdDel.Enabled=TrueCmdOk.Enabled=FalseCmdEsc.Enabled=FalseEndSubPrivateSubCmdDel_Click()'单击[删除]按钮x=MsgBox("确实要删除当前记录吗？",vbYesNo+vbQuestion,"确认")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上显示当前记录号/记录总数：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查询页面对数据库里的员工合同签订、续签、终止信息进行查询。页面设计如下：员工合同签订信息查询页面：员工合同签订信息详细设计代码：PrivateSubCmdBack_Click()qdxx.ShowUnloadMeEndSubPrivateSubForm_Load()Combo1.AddItem"职员编号"'为组合列表框添加各选项Combo1.AddItem"合同名称"Combo1.AddItem"合同编号"Combo1.Text="职员编号"'让组合框初始选中"姓名"项Text1.Text=""'清空文本框EndSubPrivateSubCommand1_Click()DimstrAsStringstr="Select员工合同签定信息.*From员工合同签定信息"str=str&"Where员工合同签定信息."&Combo1.Text&"Like'"&Text1&"%'"Adodc1.RecordSource=strAdodc1.RefreshEndSub员工合同续签信息查询页面：员工合同续签信息详细设计代码:PrivateSubCmdBack_Click()xqxx.ShowUnloadMeEndSubPrivateSubForm_Load()Combo1.AddItem"职员编号"'为组合列表框添加各选项Combo1.AddItem"合同编号"Combo1.Text="职员编号"'让组合框初始选中"姓名"项Text1.Text=""'清空文本框EndSubPrivateSubCommand1_Click()DimstrAsStringstr="Select员工合同续签信息.*From员工合同续签信息"str=str&"Where员工合同续签信息."&Combo1.Text&"Like'"&Text1&"%'"Adodc1.RecordSource=strAdodc1.RefreshEndSub员工合同终止信息查询页面：员工合同终止信息详细设计代码：PrivateSubCmdBack_Click()zzxx.ShowUnloadMeEndSubPrivateSubForm_Load()Combo1.AddItem"职员编号"'为组合列表框添加各选项Combo1.AddItem"合同编号"Combo1.Text="职员编号"'让组合框初始选中"姓名"项Text1.Text=""'清空文本框EndSubPrivateSubCommand1_Click()DimstrAsStringstr="Select合同终止信息.*From合同终止信息"str=str&"Where合同终止信息."&Combo1.Text&"Like'"&Text1&"%'"Adodc1.RecordSource=strAdodc1.RefreshEndSub3.5注册新用户输入用户名、密码及确认密码，即可注册新用户，否则会提示相关的警告信息，按“取消”则退回主窗体界面。1、注册新用户页面：详细设计代码:PrivateSubCmdOk_Click()DimSQLStrAsStringIfText1=""ThenMsgBox"请输入用户名！",vbExclamation,"确认用户名"Text1.SetFocusExitSubElseSQLStr="Select*from密码表where用户名='"&Text1&"'"Adod