企业合同管理系统的设计与实现(1).docx

《企业合同管理系统的设计与实现(1).docx》由会员分享，可在线阅读，更多相关《企业合同管理系统的设计与实现(1).docx（23页珍藏版）》请在三一办公上搜索。

1、企业合同管理系统的设计与实现目 录 1.前言 . 1 2.需求分析 . 1 3.系统设计 . 1 3.1模块设计 . 1 3.2数据库设计 . 3 4.系统实现 . 4 4.1启动模块 . 4 4.2登陆模块 . 5 4.3主模块 . 5 4.4员工信息管理 . 7 4.5客户信息管理 . 11 4.6合同信息管理 . 14 结束语 . 18 参考文献 . 19 致谢 . 20 摘要：随着信息技术在管理上越来越深入而广泛的应用，管理信息系统的实施在技术上已逐步成熟。管理信息系统是一个不断发展的新型学科，企业要生存要发展，要高效率地把企业活动有机地组织起来，就必须加强企业管理，即加强对企业内部的

2、各种资源的有效管理，建立与自身特点相适应的管理信息系统。 本文介绍了在VB6.0环境下采用“自上而下地总体规划，自下而上地应用开发”的策略开发一个企业合同管理信息系统的过程。通过分析传统的人工管理合同的不足，创建了一套行之有效的计算机管理合同的方案。论文详细介绍了合同信息系统的需求分析、系统设计和系统实现。系统设计部分主要介绍了系统功能设计和数据库设计；系统实现部分列出主要模块的窗口界面和程序。 本系统界面友好，操作简单，比较实用。 关键词：Visual Basic6.0；员工信息；客户信息；合同管理 ABSTRACT：Along with the information technology

3、 in the management of more and more depth and a wide range of applications, information management system in the implementation of technology has gradually matured. Management information system is a continuous development of new disciplines, enterprise to survive is to develop and efficient busines

4、s activities organized organically, to strengthen enterprise management, namely, to strengthen enterprise internal various resources (human, financial, material, etc.), the effective management of the establishment and its own characteristics in line with the management information system. This pape

5、r introduces the environment in, VB6.0 to overall planning, top-down bottom-up application development strategy to develop a enterprise contract management information system process. Through the analysis of the traditional manual administration contract insufficiency, created a set of effective com

6、puter management library scheme. This paper introduces in detail the books management information system of analysis parts, including the feasibility analysis, organization analysis, management function analysis, business process analysis, data flow analysis, processing description, etc.; System des

7、ign part mainly introduced the system function design and database design; System realizing section of several major program diagram, and with some of the main window and procedures. This system friendly interface, the operation is simple, is more practical. KEY WORDS: Visual Basic6.0；employee infor

8、mation；customer information ；contract management 潍坊学院本科毕业论文 1.前言 企业合同管理系统是建立在信息技术基础上，利用现代企业的先进管理思想，为企业提供决策、计划、控制与经营绩效评估的全方位、系统化的合同管理平台。 合同信息作为企业的一项非常重要的数据资源，因其复杂性而难以单纯依靠人工进行管理。采用手工管理合同，由于涉及的部门众多，需要管理的合同要素也各不相同，因此造成信息不集中，实时性不强，导致各部门协作，业务流程组建，监控制度执行方面效率不高，费时费力等问题，具体表现在如下方面： 文档管理困难：传统纸质合同与电子版合同共存，但对于不同

9、的人员想阅读参考合同时，存在查找不方便的问题。尤其是领导需要了解合同文本时需要耗费很多时间。 进度控制困难：由于合同数目多，参与人员多，合同进度的控制基本靠手工和普通Word、Excel管理已很难满足公司发展需要，并且当领导想全局或全程了解合同情况时存在很大障碍。财务人员的付款依据也与进度密切相关，但同样存在障碍。 信息汇总困难：采用手工或Excel管理时，由于不同部门的数据格式不统一，采集也不能够及时继续，汇总工作需要耗费大量时间还不一定准确。对于领导的决策时间有一定的影响。 缺少预警机制：缺少对合同进度、结款等关键节点的预警，不能准确地预测近期可能的收支项目，不能帮助公司进行财务规划，掌控

10、现金流，更好地发挥资金运作。 业务管理是合同管理的核心需求。企业合同管理系统可以保存和管理企业的日常合同及合同的相关信息，有效跟踪管理企业的日常合同，带动企业合同管理的信息化、科学化，同时也可以节省人力、物力、财力，提高工作效率，使企业合同管理更加科学，更加规范。 2.需求分析 该合同管理系统主要用于企业合同的日常管理，主要对合同涉及的员工信息、客户信息、合同信息进行管理，提高合同管理的有效性和规范性。本系统要求性能稳定，图形用户界面符合日常使用习惯，数据处理正确无误。 通过对企业合同管理流程的调研分析，该系统应当实现对企业员工信息、客户信息、合同信息的维护和管理，能够完成对合同各项信息的添加

11、、修改、删除和查询功能。主要功能包括： 员工管理：实现员工信息的添加、修改、删除和查询功能。 客户管理：实现客户信息的添加、修改、删除和查询功能。 合同管理：实现合同信息的添加、修改、删除和查询功能。 3.系统设计 3.1模块设计 企业合同管理系统划分成员工信息管理、客户信息管理、合同信息管理三个模块。模块图如图3.1、3.2、3.3、3.4。 1 潍坊学院本科毕业论文 登录模块 企业合同管理系统 员工信息管理客户信息管理图3.1 总体框架 员工管理 合同信息管理 添加 添加 修改 删除 查询 图3.2 员工管理 客户管理 修改删除 查询 图3.3 客户管理 2 潍坊学院本科毕业论文 合同管理

12、 添加 修改删除 查询 图 3.4 合同管理 3.2数据库设计 根据系统的需求，利用ACCESS数据库管理系统，分别建立员工信息表、客户信息表、合同信息表，具体如下： 员工信息表，用于对员工信息的编号、姓名、部门、性别、生日、职务进行定义，如表3-1所示： 表3-1员工信息表 字段名 数据类型 宽度 是否为空 员工编号 Text 10 no 员工姓名 部门 性别 生日 职务 Text Text Text Date Text 10 50 10 50 no no no 说明 客户信息表，用于保存客户有关的信息。如表3-2所示： 表3-2 客户信息表 字段名 编号 客户姓名 联系人 电话 E-mai

13、l 备注 数据类型 Text Text Text text Text text 宽度 50 50 50 50 50 是否为空 no no no no no no 说明 合同信息表，用于管理合同信息。如表3-3所示： 表3-3 合同信息表 中文字段名 合同编号 合同名称 合同描述 客户名称 数据类型 text text Text Text 宽度 50 50 3 是否为空 no no no no 说明 潍坊学院本科毕业论文 合同金额 签约人 合同起始日期 合同终止日期 已付款 备注 数字 Text Date Date 数字 Text 50 no no no 4.系统实现 4.1启动模块 本模块提供

14、系统启动功能，点击“进入系统”按钮完成系统的启动，点击“退出系统”完成系统的退出，界面如图4.1所示。 图 4.1 系统启动界面 代码如下: Private Sub Label3_Click Form2.Show Unload Me End Sub Private Sub Label4_Click Unload Me End Sub Private Sub Timer1_Timer Label1.Left = Label1.Left + 30 If Label1.Left Form1.Width Then Label1.Left = -Label1.Width End If End Sub 4

15、 潍坊学院本科毕业论文 4.2登陆模块 本模块提供文本框输入用户信息，点击“确定”按钮完成用户登录，点击“退出”按钮退出系统，界面如图4.2所示。 图4.2系统登陆界面 代码如下： Private Sub Command1_Click(Index As Integer) If Text1.Text = 11 And Text2.Text = 11 Then Form3.Show Unload Me Else response = MsgBox(!) Text1.Text = Text2.Text = End If End Sub Private Sub Command2_Click Unloa

16、d Me End Sub Private Sub Timer1_Timer Label1.Left = Label1.Left + 36 If Label1.Left Form2.Width Then Label1.Left = -Label1.Width End If End Sub 4.3主模块 本模块功能是在启动窗体的同时，进行数据库的连接操作。主窗体菜单设计的效果图如图4.3所示。 5 潍坊学院本科毕业论文 图4.3 系统主界面 代码如下： Private Sub ADC_Click Form10.Show End Sub Private Sub add_Click Form4.Sho

17、w End Sub Private Sub addc_Click Form7.Show End Sub Private Sub CK_Click Form14.Show End Sub Private Sub CS_Click Form11.Show End Sub Private Sub EXIT_Click Unload Me End Sub Private Sub KC_Click Form13.Show End Sub Private Sub mend_Click Form5.Show 6 潍坊学院本科毕业论文 End Sub Private Sub mendc_Click Form8

18、.Show End Sub Private Sub MM_Click Form12.Show End Sub Private Sub SC_Click Form9.Show End Sub Private Sub search_Click Form6.Show End Sub 4.4员工信息管理 4.4.1员工信息添加 本模块提供文本框输入员工相关基本信息，单击“添加”按钮完成员工信息的保存，单击“退出”按钮返回主菜单。具体设计效果图如图4.4所示。 图4.4 员工信息添加界面 代码如下： Private Sub Command1_Click On Error Resume Next If C

19、ommand1.Caption = 添加 Then Command1.Caption = 确定 7 潍坊学院本科毕业论文 Adodc1.Recordset.AddNew Text1.SetFocus Else Command1.Caption = 添加 Adodc1.Recordset.Update Adodc1.Recordset.MoveLast MsgBox 员工信息添加完成 End If End Sub Private Sub Command2_Click Unload Me End Sub 4.4.2员工信息修改删除 本模块可以选择相应员工的信息进行修改删除，点击修改、删除按钮分别完

20、成员工信息修改、删除，点击退出按钮、返回主控界面，具体界面如图4.5所示。 图4.5 员工信息修改删除界面 代码如下： Private Sub Command1_Click On Error Resume Next If Command1.Caption = 修改 Then Command1.Caption = 确定 Adodc1.Recordset.Update Text1.SetFocus Else Command1.Caption = 修改 Adodc1.Recordset.Update End If End Sub 8 潍坊学院本科毕业论文 Private Sub Command2_C

21、lick Dim sak As Integer On Error Resume Next ask = MsgBox(删除否?, vbYesNo) If ask = 6 Then Adodc1.Recordset.Delete Adodc1.Recordset.MoveNext If Adodc1.Recordset.EOF Then Adodc1.Recordset.MoveLast End If End Sub Private Sub Command3_Click Unload Me End Sub Private Sub Command4_Click Adodc1.Recordset.Mo

22、veFirst Command5.Enabled = False End Sub Private Sub Command5_Click Adodc1.Recordset.MovePrevious If Adodc1.Recordset.BOF Then Adodc1.Recordset.MoveFirst Command6.Enabled = True End Sub Private Sub Command6_Click Adodc1.Recordset.MoveNext If Adodc1.Recordset.EOF Then Adodc1.Recordset.MoveLast Comman

23、d5.Enabled = True End Sub Private Sub Command7_Click Adodc1.Recordset.MoveLast Command6.Enabled = False End Sub 4.4.3员工信息查询 本模块提供了两种查询方式：编号查询、姓名查询，也可以点击查询全部按钮查询所有员工信息，具体界面如图4.6所示。 9 潍坊学院本科毕业论文 图4.6 员工信息查询界面 代码如下： Private Sub Command1_Click Adodc1.CommandType = adCmdText Adodc1.RecordSource = select

24、* from 员工信息表 Adodc1.Refresh Set DataGrid1.DataSource = Adodc1 End Sub Private Sub Command2_Click Unload Me End Sub Private Sub Command4_Click If Option1.Value = True Then Adodc1.CommandType = adCmdText Adodc1.RecordSource = select * from 员工信息表 where 员工编号 = & Trim(Text1.Text) & Adodc1.Refresh Set Dat

25、aGrid1.DataSource = Adodc1 End If If Option2.Value = True Then Adodc1.CommandType = adCmdText Adodc1.RecordSource = select * from 员工信息表 where 员工姓名= & Trim(Text2.Text) & Adodc1.Refresh Set DataGrid1.DataSource = Adodc1 End If End Sub 10 潍坊学院本科毕业论文 4.5客户信息管理 4.5.1客户信息添加 本模块提供文本框输入客户相关基本信息，单击“添加”按钮完成客户

26、信息的保存，单击“退出”按钮返回主菜单。具体设计效果图如图4.7所示。 图4.7 客户添加界面 代码如下： Private Sub Command1_Click On Error Resume Next If Command1.Caption = 添加 Then Command1.Caption = 确定 Adodc1.Recordset.AddNew Text1.SetFocus Else Command1.Caption = 添加 Adodc1.Recordset.Update Adodc1.Recordset.MoveLast MsgBox 客户信息添加完成 End If End Sub

27、 Private Sub Command2_Click Unload Me End Sub 4.5.2客户信息修改删除 本模块可以选择相应客户的信息进行修改删除，点击“修改”、“删除”按钮分别完成客户信息修改、删除，点击“退出”按钮、返回主控界面，具体界面如图4.8所示。 11 潍坊学院本科毕业论文 图4.8 客户信息修改删除界面 代码如下： Private Sub Command1_Click Adodc1.Recordset.MoveFirst Command5.Enabled = False End Sub Private Sub Command2_Click On Error Resu

28、me Next If Command2.Caption = 修改 Then Command2.Caption = 确定 Adodc1.Recordset.Update Text1.SetFocus Else Command2.Caption = 修改 Adodc1.Recordset.Update End If End Sub Private Sub Command3_Click Dim sak As Integer On Error Resume Next ask = MsgBox(删除否?, vbYesNo) If ask = 6 Then Adodc1.Recordset.Delete

29、Adodc1.Recordset.MoveNext If Adodc1.Recordset.EOF Then Adodc1.Recordset.MoveLast End If End Sub Private Sub Command4_Click Unload Me 12 潍坊学院本科毕业论文 End Sub Private Sub Command5_Click Adodc1.Recordset.MovePrevious If Adodc1.Recordset.BOF Then Adodc1.Recordset.MoveFirst Command6.Enabled = True End Sub

30、Private Sub Command6_Click Adodc1.Recordset.MoveNext If Adodc1.Recordset.EOF Then Adodc1.Recordset.MoveLast Command5.Enabled = True End Sub Private Sub Command7_Click Adodc1.Recordset.MoveLast Command6.Enabled = False End Sub 4.5.3客户信息查询 本模块提供了两种查询方式：编号查询、姓名查询，也可以点击“查询全部”按钮查询所有客户信息，具体界面如图4.9所示。 图4.9

31、 客户信息查询界面 代码如下： Private Sub Command1_Click Adodc1.CommandType = adCmdText Adodc1.RecordSource = select * from 客户信息表 Adodc1.Refresh Set DataGrid1.DataSource = Adodc1 End Sub 13 潍坊学院本科毕业论文 Private Sub Command2_Click Unload Me End Sub Private Sub Command3_Click If Option1.Value = True Then Adodc1.Comma

32、ndType = adCmdText Adodc1.RecordSource = select * from 客户信息表 where 编号 = & Trim(Text1.Text) & Adodc1.Refresh Set DataGrid1.DataSource = Adodc1 End If If Option2.Value = True Then Adodc1.CommandType = adCmdText Adodc1.RecordSource = select * from 客户信息表 where 客户姓名= & Trim(Text2.Text) & Adodc1.Refresh S

33、et DataGrid1.DataSource = Adodc1 End If End Sub 4.6合同信息管理 4.6.1合同信息添加 本模块提供文本框输入合同相关基本信息，单击“添加”按钮完成合同信息的保存，单击“退出”按钮返回主菜单。具体设计效果图如图4.10所示。 4.10 合同添加界面 代码如下： Private Sub Command1_Click On Error Resume Next 14 潍坊学院本科毕业论文 If Command1.Caption = 添加 Then Command1.Caption = 确定 Adodc1.Recordset.AddNew txet1.

34、SetFocus Else Command1.Caption = 添加 Adodc1.Recordset.Update Adodc1.Recordset.MoveLast MsgBox 合同信息添加已完成 End If End Sub Private Sub Command2_Click Unload Me End Sub 4.6.2合同信息修改删除 本模块可以选择相应合同的信息进行修改删除。点击“修改”、“删除”按钮分别完成合同信息修改、删除，点击“退出”按钮、返回主控界面，具体界面如图4.11所示。 4.11 合同信息修改删除界面 代码如下： Private Sub Command1_Cl

35、ick On Error Resume Next If Command1.Caption = 修改 Then Command1.Caption = 确定 Adodc1.Recordset.Update Text1.SetFocus Else Command1.Caption = 修改 Adodc1.Recordset.Update 15 潍坊学院本科毕业论文 End If End Sub Private Sub Command2_Click Adodc1.Recordset.MoveFirst Command3.Enabled = False End Sub Private Sub Comma

36、nd3_Click Adodc1.Recordset.MovePrevious If Adodc1.Recordset.BOF Then Adodc1.Recordset.MoveFirst Command4.Enabled = True End Sub Private Sub Command4_Click Adodc1.Recordset.MoveNext If Adodc1.Recordset.EOF Then Adodc1.Recordset.MoveLast Command3.Enabled = True End Sub Private Sub Command5_Click Dim s

37、ak As Integer On Error Resume Next ask = MsgBox(删除否?, vbYesNo) If ask = 6 Then Adodc1.Recordset.Delete Adodc1.Recordset.MoveNext If Adodc1.Recordset.EOF Then Adodc1.Recordset.MoveLast End If End Sub Private Sub Command6_Click Unload Me End Sub Private Sub Command7_Click Adodc1.Recordset.MoveLast Com

38、mand4.Enabled = False End Sub 4.6.3合同信息查询 本模块提供了两种查询方式：合同编号查询、合同签约人查询，也可以点击“查询全部”按钮查询所有合同信息，具体界面如图4.12所示。 16 潍坊学院本科毕业论文 4.12合同查询界面 代码如下： Private Sub Command1_Click Adodc1.CommandType = adCmdText Adodc1.RecordSource = select * from 合同信息表 Adodc1.Refresh Set DataGrid1.DataSource = Adodc1 End Sub Privat

39、e Sub Command2_Click Unload Me End Sub Private Sub Command3_Click If Option1.Value = True Then Adodc1.CommandType = adCmdText Adodc1.RecordSource = select * from 合同信息表 where 合同编号 = & Trim(Text1.Text) & Adodc1.Refresh Set DataGrid1.DataSource = Adodc1 End If If Option2.Value = True Then Adodc1.Comman

40、dType = adCmdText Adodc1.RecordSource = select * from 合同信息表 where 签约人= & Trim(Text2.Text) & Adodc1.Refresh Set DataGrid1.DataSource = Adodc1 End If End Sub 17 潍坊学院本科毕业论文 结束语 通过毕业设计，我进一步理解了软件开发的思想和过程。从选择毕业设计题目到系统的实现，再到报告的完成，每走一步对我来说都是新的尝试与挑战，这也是我在大学期间独立完成的最大的实践项目。在这段时间里，我学到了很多知识也有很多感受，从对合同信息管理的模糊认识开始

41、，查看相关的资料和书籍，让自己头脑中模糊的概念逐渐清晰，使自己非常稚嫩的作品一步步完善起来。 这次毕业设计中最难的一点就是数据库的设计，因为一个系统的合理性与健壮性的基础就在于数据库的设计上，开始的时候没意识到这一点，导致在此后的系统开发中做了很多无用功，浪费了很多时间。 本系统基本上包含了合同管理中常用的功能，基本能够满足日常的工作需求。但是，为了提高系统的运行效率，完善系统的功能，增强企业的信息安全，还可以从以下几个方面对系统进行改进和扩展： 添加对合同进行分类管理的功能。 完善用户管理和权限设置功能。 增加合同的分类汇总和提醒功能。 随着计算机技术的迅猛发展，企业合同管理前景将更加广阔。

42、由于时间紧迫以及本人学识有限，系统仍有一些需要改进和扩展的地方。今后将进一步加深对该技术的研究，对系统进行改进。 18 潍坊学院本科毕业论文 参考文献 1刘韬.Visual Basic6.0数据库系统开发实例导航M.北京:人民邮电出版社,2002.2 2毕超,何丽艳,冯雪,胡海鹰.Access课程设计案例精编M.北京:中国水利水电出版社,2006.2 3黄明,梁旭,石兴民.Visual Basic课程设计M.北京:电子工业出版社,2006.3 4龚沛曾,陆慰民,杨志强.Visual Basic程序设计教程M.北京:高等教育出版社,2006.6 5谭浩强,苏颖,张跃华.Visual Basic数

43、据库开发应用技术M.北京:中国铁道出版社,2006.5 6张基温,姚晓玲,孙波.Visual Basic程序开发教程M.北京:清华大学出版社,2004 7黄梯云.管理信息系统M.北京:高等教育出版社,2002.12,36-62 8李东.管理信息系统的理论与应用M.北京:北京大学山版社,2002.3, 28-37 9赵俊岚.Visual Basic6.0循序渐进教程M.北京:红旗出版社,2005.2,26-48 10崔武子.界面设计与Visual BasicM.北京:清华大学出版社,2004.8,57-71 11黄明.Visual Basic课程设计M.北京:电子工业出版社,2006.6, 16

44、3-186 12刘新民.Visual Basic程序设计教程M.北京:清华大学出版社,2004.3,38-62 13麻新旗.Visual Basic大学基础教程M.北京:电子工业出版社,2005.12,18-34 14武新华.Visual Basic管理信息系统开发案例M.西安:西安电子科技大学出版社,2004.7,24-39 15明日科技.Visual Basic应用开发完全手册M.北京:人民邮电出版社,2006.12,28-34 16陈联斌.SQL SerVer2000实用教程M.北京：电子工业出版社,2005.2,54-76 17陆永祯.SQL SerVer2000数据库管理和程序开发M