企业合同管理系统的设计与实现

企业合同管理系统的设计与实现PAGE目录TOC\o"1-2"\u1.前言 12.需求分析 13.系统设计 13.1模块设计 13.2数据库设计 34.系统实现 44.1启动模块 44.2登陆模块 54.3主模块 54.4员工信息管理 74.5客户信息管理 114.6合同信息管理 14结束语 18参考文献 19致谢 20摘要：随着信息技术在管理上越来越深入而广泛的应用，管理信息系统的实施在技术上已逐步成熟。管理信息系统是一个不断发展的新型学科，企业要生存要发展，要高效率地把企业活动有机地组织起来，就必须加强企业管理，即加强对企业内部的各种资源（人、财、物等）的有效管理，建立与自身特点相适应的管理信息系统。本文介绍了在VB6.0环境下采用“自上而下地总体规划，自下而上地应用开发”的策略开发一个企业合同管理信息系统的过程。通过分析传统的人工管理合同的不足，创建了一套行之有效的计算机管理合同的方案。论文详细介绍了合同信息系统的需求分析、系统设计和系统实现。系统设计部分主要介绍了系统功能设计和数据库设计；系统实现部分列出主要模块的窗口界面和程序。本系统界面友好，操作简单，比较实用。关键词：VisualBasic6.0；员工信息；客户信息；合同管理ABSTRACT：Alongwiththeinformationtechnologyinthemanagementofmoreandmoredepthandawiderangeofapplications,informationmanagementsystemintheimplementationoftechnologyhasgraduallymatured.Managementinformationsystemisacontinuousdevelopmentofnewdisciplines,enterprisetosurviveistodevelopandefficientbusinessactivitiesorganizedorganically,tostrengthenenterprisemanagement,namely,tostrengthenenterpriseinternalvariousresources(human,financial,material,etc.),theeffectivemanagementoftheestablishmentanditsowncharacteristicsinlinewiththemanagementinformationsystem.Thispaperintroducestheenvironmentin,VB6.0tooverallplanning,"top-down"bottom-upapplicationdevelopmentstrategytodevelopaenterprisecontractmanagementinformationsystemprocess.Throughtheanalysisofthetraditionalmanualadministrationcontractinsufficiency,createdasetofeffectivecomputermanagementlibraryscheme.Thispaperintroducesindetailthebooksmanagementinformationsystemofanalysisparts,includingthefeasibilityanalysis,organizationanalysis,managementfunctionanalysis,businessprocessanalysis,dataflowanalysis,processingdescription,etc.;Systemdesignpartmainlyintroducedthesystemfunctiondesignanddatabasedesign;Systemrealizingsectionofseveralmajorprogramdiagram,andwithsomeofthemainwindowandprocedures.Thissystemfriendlyinterface,theoperationissimple,ismorepractical.KEYWORDS:VisualBasic6.0；employeeinformation；customerinformation；contractmanagement潍坊学院本科毕业论文PAGE11.前言企业合同管理系统是建立在信息技术基础上，利用现代企业的先进管理思想，为企业提供决策、计划、控制与经营绩效评估的全方位、系统化的合同管理平台。合同信息作为企业的一项非常重要的数据资源，因其复杂性而难以单纯依靠人工进行管理。采用手工管理合同，由于涉及的部门众多，需要管理的合同要素也各不相同，因此造成信息不集中，实时性不强，导致各部门协作，业务流程组建，监控制度执行方面效率不高，费时费力等问题，具体表现在如下方面：（1）文档管理困难：传统纸质合同与电子版合同共存，但对于不同的人员想阅读参考合同时，存在查找不方便的问题。尤其是领导需要了解合同文本时需要耗费很多时间。（2）进度控制困难：由于合同数目多，参与人员多，合同进度的控制基本靠手工和普通Word、Excel管理已很难满足公司发展需要，并且当领导想全局或全程了解合同情况时存在很大障碍。财务人员的付款依据也与进度密切相关，但同样存在障碍。（3）信息汇总困难：采用手工或Excel管理时，由于不同部门的数据格式不统一，采集也不能够及时继续，汇总工作需要耗费大量时间还不一定准确。对于领导的决策时间有一定的影响。（4）缺少预警机制：缺少对合同进度、结款等关键节点的预警，不能准确地预测近期可能的收支项目，不能帮助公司进行财务规划，掌控现金流，更好地发挥资金运作。业务管理是合同管理的核心需求。企业合同管理系统可以保存和管理企业的日常合同及合同的相关信息，有效跟踪管理企业的日常合同，带动企业合同管理的信息化、科学化，同时也可以节省人力、物力、财力，提高工作效率，使企业合同管理更加科学，更加规范。2.需求分析该合同管理系统主要用于企业合同的日常管理，主要对合同涉及的员工信息、客户信息、合同信息进行管理，提高合同管理的有效性和规范性。本系统要求性能稳定，图形用户界面符合日常使用习惯，数据处理正确无误。通过对企业合同管理流程的调研分析，该系统应当实现对企业员工信息、客户信息、合同信息的维护和管理，能够完成对合同各项信息的添加、修改、删除和查询功能。主要功能包括：（1）员工管理：实现员工信息的添加、修改、删除和查询功能。（2）客户管理：实现客户信息的添加、修改、删除和查询功能。（3）合同管理：实现合同信息的添加、修改、删除和查询功能。3.系统设计3.1模块设计企业合同管理系统划分成员工信息管理、客户信息管理、合同信息管理三个模块。模块图如图3.1、3.2、3.3、3.4。登录模块企业合同管理系统登录模块企业合同管理系统员工信息管理客户信息管理合同信息管理图3.1总体框架员工管理员工管理添加修改删除查询图3.2员工管理客户管理客户管理添加修改删除查询图3.3客户管理合同管理合同管理添加修改删除查询图3.4合同管理3.2数据库设计根据系统的需求，利用ACCESS数据库管理系统，分别建立员工信息表、客户信息表、合同信息表，具体如下：（1）员工信息表，用于对员工信息的编号、姓名、部门、性别、生日、职务进行定义，如表3-1所示：表3-1员工信息表字段名（中文）数据类型宽度是否为空说明员工编号Text10no员工姓名Text10no部门Text50no性别Text10no生日Date职务Text50（2）客户信息表，用于保存客户有关的信息。如表3-2所示：表3-2客户信息表字段名数据类型宽度是否为空说明编号Text50no客户姓名Text50no联系人Text50no电话text50noE-mailText50no备注textno（3）合同信息表，用于管理合同信息。如表3-3所示：表3-3合同信息表中文字段名数据类型宽度是否为空说明合同编号text50no合同名称text50no合同描述Textno客户名称Textno合同金额数字50no签约人Textno合同起始日期Dateno合同终止日期Date已付款数字备注Text4.系统实现4.1启动模块本模块提供系统启动功能，点击“进入系统”按钮完成系统的启动，点击“退出系统”完成系统的退出，界面如图4.1所示。图4.1系统启动界面代码如下:PrivateSubLabel3_Click()Form2.ShowUnloadMeEndSubPrivateSubLabel4_Click()UnloadMeEndSubPrivateSubTimer1_Timer()Label1.Left=Label1.Left+30IfLabel1.Left>Form1.WidthThenLabel1.Left=-Label1.WidthEndIfEndSub4.2登陆模块本模块提供文本框输入用户信息，点击“确定”按钮完成用户登录，点击“退出”按钮退出系统，界面如图4.2所示。图4.2系统登陆界面代码如下：PrivateSubCommand1_Click(IndexAsInteger)IfText1.Text="11"AndText2.Text="11"ThenForm3.ShowUnloadMeElseresponse=MsgBox("ÇëÖØÐÂÊäÈë!")Text1.Text=""Text2.Text=""EndIfEndSubPrivateSubCommand2_Click()UnloadMeEndSubPrivateSubTimer1_Timer()Label1.Left=Label1.Left+36IfLabel1.Left>Form2.WidthThenLabel1.Left=-Label1.WidthEndIfEndSub4.3主模块本模块功能是在启动窗体的同时，进行数据库的连接操作。主窗体菜单设计的效果图如图4.3所示。图4.3系统主界面代码如下：PrivateSubADC_Click()Form10.ShowEndSubPrivateSubadd_Click()Form4.ShowEndSubPrivateSubaddc_Click()Form7.ShowEndSubPrivateSubCK_Click()Form14.ShowEndSubPrivateSubCS_Click()Form11.ShowEndSubPrivateSubEXIT_Click()UnloadMeEndSubPrivateSubKC_Click()Form13.ShowEndSubPrivateSubmend_Click()Form5.ShowEndSubPrivateSubmendc_Click()Form8.ShowEndSubPrivateSubMM_Click()Form12.ShowEndSubPrivateSubSC_Click()Form9.ShowEndSubPrivateSubsearch_Click()Form6.ShowEndSub4.4员工信息管理4.4.1员工信息添加本模块提供文本框输入员工相关基本信息，单击“添加”按钮完成员工信息的保存，单击“退出”按钮返回主菜单。具体设计效果图如图4.4所示。图4.4员工信息添加界面代码如下：PrivateSubCommand1_Click()OnErrorResumeNextIfCommand1.Caption="添加"ThenCommand1.Caption="确定"Adodc1.Recordset.AddNewText1.SetFocusElseCommand1.Caption="添加"Adodc1.Recordset.UpdateAdodc1.Recordset.MoveLastMsgBox"员工信息添加完成"EndIfEndSubPrivateSubCommand2_Click()UnloadMeEndSub4.4.2员工信息修改删除本模块可以选择相应员工的信息进行修改删除，点击修改、删除按钮分别完成员工信息修改、删除，点击退出按钮、返回主控界面，具体界面如图4.5所示。图4.5员工信息修改删除界面代码如下：PrivateSubCommand1_Click()OnErrorResumeNextIfCommand1.Caption="修改"ThenCommand1.Caption="确定"Adodc1.Recordset.UpdateText1.SetFocusElseCommand1.Caption="修改"Adodc1.Recordset.UpdateEndIfEndSubPrivateSubCommand2_Click()DimsakAsIntegerOnErrorResumeNextask=MsgBox("删除否?",vbYesNo)Ifask=6ThenAdodc1.Recordset.DeleteAdodc1.Recordset.MoveNextIfAdodc1.Recordset.EOFThenAdodc1.Recordset.MoveLastEndIfEndSubPrivateSubCommand3_Click()UnloadMeEndSubPrivateSubCommand4_Click()Adodc1.Recordset.MoveFirstCommand5.Enabled=FalseEndSubPrivateSubCommand5_Click()Adodc1.Recordset.MovePreviousIfAdodc1.Recordset.BOFThenAdodc1.Recordset.MoveFirstCommand6.Enabled=TrueEndSubPrivateSubCommand6_Click()Adodc1.Recordset.MoveNextIfAdodc1.Recordset.EOFThenAdodc1.Recordset.MoveLastCommand5.Enabled=TrueEndSubPrivateSubCommand7_Click()Adodc1.Recordset.MoveLastCommand6.Enabled=FalseEndSub4.4.3员工信息查询本模块提供了两种查询方式：编号查询、姓名查询，也可以点击查询全部按钮查询所有员工信息，具体界面如图4.6所示。图4.6员工信息查询界面代码如下：PrivateSubCommand1_Click()Adodc1.CommandType=adCmdTextAdodc1.RecordSource="select*from员工信息表"Adodc1.RefreshSetDataGrid1.DataSource=Adodc1EndSubPrivateSubCommand2_Click()UnloadMeEndSubPrivateSubCommand4_Click()IfOption1.Value=TrueThenAdodc1.CommandType=adCmdTextAdodc1.RecordSource="select*from员工信息表where员工编号='"&Trim(Text1.Text)&"'"Adodc1.RefreshSetDataGrid1.DataSource=Adodc1EndIfIfOption2.Value=TrueThenAdodc1.CommandType=adCmdTextAdodc1.RecordSource="select*from员工信息表where员工姓名='"&Trim(Text2.Text)&"'"Adodc1.RefreshSetDataGrid1.DataSource=Adodc1EndIfEndSub4.5客户信息管理4.5.1客户信息添加本模块提供文本框输入客户相关基本信息，单击“添加”按钮完成客户信息的保存，单击“退出”按钮返回主菜单。具体设计效果图如图4.7所示。图4.7客户添加界面代码如下：PrivateSubCommand1_Click()OnErrorResumeNextIfCommand1.Caption="添加"ThenCommand1.Caption="确定"Adodc1.Recordset.AddNewText1.SetFocusElseCommand1.Caption="添加"Adodc1.Recordset.UpdateAdodc1.Recordset.MoveLastMsgBox"客户信息添加完成"EndIfEndSubPrivateSubCommand2_Click()UnloadMeEndSub4.5.2客户信息修改删除本模块可以选择相应客户的信息进行修改删除，点击“修改”、“删除”按钮分别完成客户信息修改、删除，点击“退出”按钮、返回主控界面，具体界面如图4.8所示。图4.8客户信息修改删除界面代码如下：PrivateSubCommand1_Click()Adodc1.Recordset.MoveFirstCommand5.Enabled=FalseEndSubPrivateSubCommand2_Click()OnErrorResumeNextIfCommand2.Caption="修改"ThenCommand2.Caption="确定"Adodc1.Recordset.UpdateText1.SetFocusElseCommand2.Caption="修改"Adodc1.Recordset.UpdateEndIfEndSubPrivateSubCommand3_Click()DimsakAsIntegerOnErrorResumeNextask=MsgBox("删除否?",vbYesNo)Ifask=6ThenAdodc1.Recordset.DeleteAdodc1.Recordset.MoveNextIfAdodc1.Recordset.EOFThenAdodc1.Recordset.MoveLastEndIfEndSubPrivateSubCommand4_Click()UnloadMeEndSubPrivateSubCommand5_Click()Adodc1.Recordset.MovePreviousIfAdodc1.Recordset.BOFThenAdodc1.Recordset.MoveFirstCommand6.Enabled=TrueEndSubPrivateSubCommand6_Click()Adodc1.Recordset.MoveNextIfAdodc1.Recordset.EOFThenAdodc1.Recordset.MoveLastCommand5.Enabled=TrueEndSubPrivateSubCommand7_Click()Adodc1.Recordset.MoveLastCommand6.Enabled=FalseEndSub4.5.3客户信息查询本模块提供了两种查询方式：编号查询、姓名查询，也可以点击“查询全部”按钮查询所有客户信息，具体界面如图4.9所示。图4.9客户信息查询界面代码如下：PrivateSubCommand1_Click()Adodc1.CommandType=adCmdTextAdodc1.RecordSource="select*from客户信息表"Adodc1.RefreshSetDataGrid1.DataSource=Adodc1EndSubPrivateSubCommand2_Click()UnloadMeEndSubPrivateSubCommand3_Click()IfOption1.Value=TrueThenAdodc1.CommandType=adCmdTextAdodc1.RecordSource="select*from客户信息表where编号='"&Trim(Text1.Text)&"'"Adodc1.RefreshSetDataGrid1.DataSource=Adodc1EndIfIfOption2.Value=TrueThenAdodc1.CommandType=adCmdTextAdodc1.RecordSource="select*from客户信息表where客户姓名='"&Trim(Text2.Text)&"'"Adodc1.RefreshSetDataGrid1.DataSource=Adodc1EndIfEndSub4.6合同信息管理4.6.1合同信息添加本模块提供文本框输入合同相关基本信息，单击“添加”按钮完成合同信息的保存，单击“退出”按钮返回主菜单。具体设计效果图如图4.10所示。4.10合同添加界面代码如下：PrivateSubCommand1_Click()OnErrorResumeNextIfCommand1.Caption="添加"ThenCommand1.Caption="确定"Adodc1.Recordset.AddNewtxet1.SetFocusElseCommand1.Caption="添加"Adodc1.Recordset.UpdateAdodc1.Recordset.MoveLastMsgBox"合同信息添加已完成"EndIfEndSubPrivateSubCommand2_Click()UnloadMeEndSub4.6.2合同信息修改删除本模块可以选择相应合同的信息进行修改删除。点击“修改”、“删除”按钮分别完成合同信息修改、删除，点击“退出”按钮、返回主控界面，具体界面如图4.11所示。4.11合同信息修改删除界面代码如下：PrivateSubCommand1_Click()OnErrorResumeNextIfCommand1.Caption="修改"ThenCommand1.Caption="确定"Adodc1.Recordset.UpdateText1.SetFocusElseCommand1.Caption="修改"Adodc1.Recordset.UpdateEndIfEndSubPrivateSubCommand2_Click()Adodc1.Recordset.MoveFirstCommand3.Enabled=FalseEndSubPrivateSubCommand3_Click()Adodc1.Recordset.MovePreviousIfAdodc1.Recordset.BOFThenAdodc1.Recordset.MoveFirstCommand4.Enabled=TrueEndSubPrivateSubCommand4_Click()Adodc1.Recordset.MoveNextIfAdodc1.Recordset.EOFThenAdodc1.Recordset.MoveLastCommand3.Enabled=TrueEndSubPrivateSubCommand5_Click()DimsakAsIntegerOnErrorResumeNextask=MsgBox("删除否?",vbYesNo)Ifask=6ThenAdodc1.Recordset.DeleteAdodc1.Recordset.MoveNextIfAdodc1.Recordset.EOFThenAdodc1.Recordset.MoveLastEndIfEndSubPrivateSubCommand6_Click()UnloadMeEndSubPrivateSubCommand7_Click()Adodc1.Recordset.MoveLastCommand4.Enabled=FalseEndSub4.6.3合同信息查询本模块提供了两种查询方式：合同编号查询、合同签约人查询，也可以点击“查询全部”按钮查询所有合同信息，具体界面如图4.12所示。4.12合同查询界面代码如下：PrivateSubCommand1_Click()Adodc1.CommandType=adCmdTextAdodc1.RecordSource="select*from合同信息表"Adodc1.RefreshSetDataGrid1.DataSource=Adodc1EndSubPrivateSubCommand2_Click()UnloadMeEndSubPrivateSubCommand3_Click()IfOption1.Value=TrueThenAdodc1.CommandType=adCmdTextAdodc1.RecordSource="select*from合同信息表where合同编号='"&Trim(Text1.Text)&"'"Adodc1.RefreshSetDataGrid1.DataSource=Adodc1EndIfIfOption2.Value=TrueThenAdodc1.CommandType=adCmdTextAdodc1.RecordSource="select*from合同信息表where签约人='"&Trim(Text2.Text)&"'"Adodc1.RefreshSetDataGrid1.DataSource=Adodc1EndIfEndSub结束语通过毕业设计，我进一步理解了软件开发的思想和过程。从选择毕业设计题目到系统的实现，再到报告的完成，每走一步对我来说都是新的尝试与挑战，这也是我在大学期间独立完成的最大的实践项目。在这段时间里，我学到了很多知识也有很多感受，从对合同信息管理的模糊认识开始，查看相关的资料和书籍，让自己头脑中模糊的概念逐渐清晰，使自己非常稚嫩的作品一步步完善起来。这次毕业设计中最难的一点就是数据库的设计，因为一个系统的合理性与健壮性的基础就在于数据库的设计上，开始的时候没意识到这一点，导致在此后的系统开发中做了很多无用功，浪费了很多时间。本系统基本上包含了合同管理中常用的功能，基本能够满足日常的工作需求。但是，为了提高系统的运行效率，完善系统的功能，增强企业的信息安全，还可以从以下几个方面对系统进行改进和扩展：（1）添加对合同进行分类管理的功能。（2）完善用户管理和权限设置功能。（3）增加合同的分类汇总和提醒功能。随