合同管理系统

合同管理系统合同管理系统合同管理系统沈阳理工大学课程设计专用纸成绩评定表学生姓名朱世诚班级学号1209010228专业信息与计算科学课程设计题目合同管理系统评语组长署名：成绩日期2014年12月18日i沈阳理工大学课程设计专用纸课程设计任务书学院理学院专业信息与计算科学学生姓名朱世诚班级学号1209010228课程设计题目合同管理系统实践授课要求与任务:利用VB6.0及SQLServer2000设计一个职工合同管理系统，数据库里包括5个表：密码表、职工合同签署信息、职工合同续签信息以及合同停止信息。密码表用于记录取户名及密码；职工合同签署信息用于记录合同签署的基本信息；职工合同续签信息用于记录合同续签的基本信息；合同停止信息用于记录合同停止的基本信息。在主控窗体中（MID窗体）点击各菜单实现管理和查问公司和职工间的所有合同信息。详尽功能包括：合同签署：用于管理公司与职工签署的劳动合同。包括职员编号、合同名称、合同编号、合同限时、合同签署日期、备注等。合同续签：用于办理已到期合同的续签事务，包括职员编号、合同编号、合同续签到日期、合同续签限时、新合同号、备注。合同停止：用于停止已签署的合同，包括职员编号、合同编号、合同停止时间、备注等。用户的登录和注册功能：工作计划与进度安排:第15周：数据库设计，利用SQLServer创办数据库及数据表。整体构造设计，设计调试系统首页、登岸窗体及MDI窗体。第16周：管理功能设计，设计调试各样数据管理功能窗体及打印报表功能。撰写课程设计报告，查收与争论。指导教师：专业负责人：学院授课副院长：2014年11月27日2014年11月28日2014年11月28日ii沈阳理工大学课程设计专用纸大纲数据库技术是现代信息科学与技术的重要组成部分，是计算机数据办理与信息管理系统的核心。数据库技术研究和解决了计算机信息办理过程中大量数据有效地组织和储藏的问题，在数据库系统中减少许据储藏冗余、实现数据共享、保障数据安全以及高效地检索数据和办理数据。在公司经营管理中,采买是最重要的一个环节。它关于公司降低经营成本、保证产质量量、缩短生产周期拥有特别重要的意义。采买管理为降低采买成本、提高采买效益供给了广阔的空间，但同时也为采买管理带来了新的机遇和挑战。目前,我国大部分公司仍旧没有成立健全的供给链管理体系,物质的采买还存在机构设置分别,资源浪费严重,信息传达滞后等问题。本系统的主要功能是职工合同管理，对职工的合同签署信息、合同续签信息和合同停止信息进行管理和改正。本系统的数据库是用SQLserver2000软件进行创办与设计，分别包括签署信息表、续签信息表和合同停止信息表三个表。经过系统ODBC数据源管理工具把已创办的数据源与系统数据库相连。利用VB软件对系统的窗口进行设计，经过这些窗体进行登录操作，对输入的用户信息进行考证，和注册新用户操作，并能够对数据进行增添与删除、查问及改正等操作。重点词：合同管理系统；SQLserver2000；VB软件iii沈阳理工大学课程设计专用纸目录1系统功能概括.........................................................11.1合同管理系统功能分析.............................................11.2系统构造图......................................................12数据库设计...........................................................12.1需求分析.........................................................22.2E-R模型.........................................................22.3关系模型.........................................................42.4表构造设计.......................................................43.1用户登录.........................................................73.2主窗体界面.......................................................93.3增添改正删除页面................................................103.4查问页面........................................................153.5注册新用户......................................................184课设总结.............................................................20参照文件...............................................................21iv沈阳理工大学课程设计专用纸系统功能概括1.1合同管理系统功能分析合同管理系统主要功能是用计算机对职工合同的签署、续签以及停止进行登记、查问、删除等操作以及对职工合同的签署、续签、停止信息进行记录以及打印报表等操作。本系统运用了VB6.0及SQLServer2000，主要设计了以下几大功能：对职工合同签署、续签以及停止信息进行改正、录入、阅读及删除。按查问条件对工合同签署、续签以及停止信息进行查问。1.2系统构造图用户注退册出新功用能户

图1合同管理管理系统整体构造合同管理系统管理查问合合合合合合同同同同同同签续终签续终订签止订签止添添添查查查加加加询询询删删删除除除修修修改改改1沈阳理工大学课程设计专用纸数据库设计2.1需求分析在主控窗体中（MID窗体）点击各菜单实现管理和查问公司和职工间的所有合同信息。详尽功能包括：合同签署：用于管理公司与职工签署的劳动合同。包括职员编号、合同名称、合同编号、合同限时、合同签署日期、备注等。合同续签：用于办理已到期合同的续签事务，包括职员编号、合同编号、合同续签到日期、合同续签限时、新合同号、备注。合同停止：用于停止已签署的合同，包括职员编号、合同编号、合同停止时间、备注等。用户的登录和注册功能：2.2E-R模型实体及属性图本系统有合同签署，合同续签。合同停止三个实体，三个实体相对独立且相互之间不存在联系。（1）合同签署实体及属性图以下：合同签署职员编号备注合同名称合同签署日合同编号合同限时图2合同签署实体及属性2沈阳理工大学课程设计专用纸（2）合同续签实体及属性图以下：合同续签职员编号备注合同编号新合同号合同续签到日期合同续签限时图3合同续签实体及属性（3）合同停止实体及属性图以下：合同停止职员编号备注合同编号合同停止时间图4合同停止实体及属性（4）密码表实体及属性以下：密码表用户名密码图5密码表实体及属性3沈阳理工大学课程设计专用纸2.3关系模型合同签署（职员编号，合同名称，合同编号，合同限时，合同签署日期，备注）合同续签（职员编号，合同编号，合同续签到日期，合同续签限时，新合同号，备注）合同停止（职员编号，合同编号，合同停止时间，备注）密码表(用户名，密码)用于记录注册过的用户名及密码2.4表构造设计本系统在SQLServer2000数据库里共设计了4个数据表来记录数据：用户表、职工合同签署信息、职工合同续签信息、职工合同停止信息。合同签署信息的成立与基本数据：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]4沈阳理工大学课程设计专用纸职工合同签署信息表合同续签信息的成立与基本数据：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]职工合同续签信息表合同停止信息的成立与基本数据：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));密码表6沈阳理工大学课程设计专用纸系统各功能模块的详尽设计3.1用户登录输入用户名及对应密码，即可登录，否则会提示有关的警示信息，按“取消”则退回主窗体界面。页面设计以下：1、登录页面2、详尽设计代码PrivateSubCommand1_Click()StaticmiCountAsIntegerDimSQLStrAsStringSQLStr="Select*from密码表Where用户名='"&Text1&"'"Adodc1.RecordSource=SQLStrAdodc1.RefreshIfAdodc1.Recordset.BOFThenMsgBox"用户名错误，从头输入",vbExclamation,"警示"Text1.Text="":Text1.SetFocusElse'判断密码可否正确7沈阳理工大学课程设计专用纸IfAdodc1.Recordset.Fields("密码")=Text2ThenMDIForm1.mDataMng.Enabled=TrueUnloadMeElseMsgBox"密码错误，从头输入",vbExclamation,"警示"Text2.Text="":Text2.SetFocusEndIfEndIfmiCount=miCount+1IfmiCount=3ThenUnloadMe'若已输入3次，则封闭窗体EndSubPrivateSubCommand2_Click()UnloadMeEndSub8沈阳理工大学课程设计专用纸3.2主窗体界面用户菜单能够实现注册新用户和退出功能；数据管理菜单可对数据库里的职工合同签订、续签、停止信息进行改正、增添、删除和查问。页面设计以下：1、主窗体页面2、详尽设计代码PrivateSubMDIForm_Load()mDataMng.Enabled=FalseEndSubPrivateSubmFDenglu_Click()Denglu.ShowEndSubPrivateSubmDzhuce_Click()zcxyh.ShowEndSubPrivateSubmDqdxx_Click()9沈阳理工大学课程设计专用纸qdxx.ShowEndSubPrivateSubmDxqxx_Click()xqxx.ShowEndSubPrivateSubmDzzxx_Click()zzxx.ShowEndSubPrivateSubmFExit_Click()EndEndSub3.3增添改正删除页面对数据库里的职工合同签署、续签、停止信息进行改正、增添、删除，并且能够进入查问界面。页面设计以下：1、职工合同签署、续签、停止信息的增添改正删除页面：10沈阳理工大学课程设计专用纸2、详尽设计代码：PrivateSubCommand1_Click()Form1.ShowEndSubPrivateSubForm_Load()11沈阳理工大学课程设计专用纸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.Delete12沈阳理工大学课程设计专用纸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上显示目前记录号/记录总数：Label7.Caption="记录："&Adodc1.Recordset.AbsolutePosition&"/"&Adodc1.Recordset.RecordCountEndSubPrivateSubCmdPre_Click()Adodc1.Recordset.MovePrevious'记录指针移到前一条记录CmdNext.Enabled=TrueCmdLast.Enabled=True13沈阳理工大学课程设计专用纸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沈阳理工大学课程设计专用纸PrivateSubCmdN_Click()DimnAsIntegern=Text7.TextAdodc1.Recordset.MovenLabel7.Caption="记录："&Adodc1.Recordset.AbsolutePosition&"/"&Adodc1.Recordset.RecordCountEndSub3.4查问页面对数据库里的职工合同签署、续签、停止信息进行查问。页面设计以下：1、职工合同签署信息查问页面：15沈阳理工大学课程设计专用纸2、职工合同签署信息详尽设计代码：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.RefreshEndSub3、职工合同续签信息查问页面：16沈阳理工大学课程设计专用纸4、职工合同续签信息详尽设计代码: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.RefreshEndSub5、职工合同停止信息查问页面：17沈阳理工大学课程设计专用纸6、职工合同停止信息详尽设计代码：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、注册新用户页面：18沈阳理工大学课程设计专用纸2、详尽设计代码:PrivateSubCmdOk_Click()DimSQLStrAsStringIfText1=""ThenMsgBox"请输入用户名！",vbExclamation,"确认用户名"Text1.SetFocusExitSubElseSQLStr="Select*from密码表where用户名='"&Text1&"'"Adodc1.RecordSource=SQ