企业合同管理系统的设计与实现.docx
- 文档编号:13252313
- 上传时间:2023-06-12
- 格式:DOCX
- 页数:27
- 大小:1.88MB
企业合同管理系统的设计与实现.docx
《企业合同管理系统的设计与实现.docx》由会员分享,可在线阅读,更多相关《企业合同管理系统的设计与实现.docx(27页珍藏版)》请在冰点文库上搜索。
企业合同管理系统的设计与实现
摘要:
随着信息技术在管理上越来越深入而广泛的应用,管理信息系统的实施在技术上已逐步成熟。
管理信息系统是一个不断发展的新型学科,企业要生存要发展,要高效率地把企业活动有机地组织起来,就必须加强企业管理,即加强对企业内部的各种资源〔人、财、物等〕的有效管理,建立与自身特点相适应的管理信息系统。
本文介绍了在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
1.前言
企业合同管理系统是建立在信息技术基础上,利用现代企业的先进管理思想,为企业提供决策、计划、控制与经营绩效评估的全方位、系统化的合同管理平台。
合同信息作为企业的一项非常重要的数据资源,因其复杂性而难以单纯依靠人工进行管理。
采用手工管理合同,由于涉及的部门众多,需要管理的合同要素也各不相同,因此造成信息不集中,实时性不强,导致各部门协作,业务流程组建,监控制度执行方面效率不高,费时费力等问题,具体表现在如下方面:
〔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职工信息表
字段名〔中文〕
数据类型
宽度
是否为空
说明
职工编号
Text
10
no
职工
Text
10
no
部门
Text
50
no
性别
Text
10
no
生日
Date
职务
Text
50
〔2〕客户信息表,用于保存客户有关的信息。
如表3-2所示:
表3-2客户信息表
字段名
数据类型
宽度
是否为空
说明
编号
Text
50
no
客户
Text
50
no
联系人
Text
50
no
text
50
no
Text
50
no
备注
text
no
〔3〕合同信息表,用于管理合同信息。
如表3-3所示:
表3-3合同信息表
中文字段名
数据类型
宽度
是否为空
说明
合同编号
text
50
no
合同名称
text
50
no
合同描述
Text
no
客户名称
Text
no
合同金额
数字
50
no
签约人
Text
no
合同起始日期
Date
no
合同终止日期
Date
已付款
数字
备注
Text
4.系统实现
4.1启动模块
本模块提供系统启动功能,点击“进入系统”按钮完成系统的启动,点击“退出系统”完成系统的退出,界面如图4.1所示。
图4.1系统启动界面
代码如下:
PrivateSubLabel3_Click()
Form2.Show
UnloadMe
EndSub
PrivateSubLabel4_Click()
UnloadMe
EndSub
PrivateSubTimer1_Timer()
Label1.Left=Label1.Left+30
IfLabel1.Left>Form1.WidthThen
Label1.Left=-Label1.Width
EndIf
EndSub
4.2登陆模块
本模块提供文本框输入用户信息,点击“确定”按钮完成用户登录,点击“退出”按钮退出系统,界面如图4.2所示。
图4.2系统登陆界面
代码如下:
PrivateSubCommand1_Click(IndexAsInteger)
IfText1.Text="11"AndText2.Text="11"Then
Form3.Show
UnloadMe
Else
response=MsgBox("ÇëÖØÐÂÊäÈë!
")
Text1.Text=""
Text2.Text=""
EndIf
EndSub
PrivateSubCommand2_Click()
UnloadMe
EndSub
PrivateSubTimer1_Timer()
Label1.Left=Label1.Left+36
IfLabel1.Left>Form2.WidthThen
Label1.Left=-Label1.Width
EndIf
EndSub
4.3主模块
本模块功能是在启动窗体的同时,进行数据库的连接操作。
主窗体菜单设计的效果图如图4.3所示。
图4.3系统主界面
代码如下:
PrivateSubADC_Click()
Form10.Show
EndSub
PrivateSubadd_Click()
Form4.Show
EndSub
PrivateSubaddc_Click()
Form7.Show
EndSub
PrivateSubCK_Click()
Form14.Show
EndSub
PrivateSubCS_Click()
Form11.Show
EndSub
PrivateSubEXIT_Click()
UnloadMe
EndSub
PrivateSubKC_Click()
Form13.Show
EndSub
PrivateSubmend_Click()
Form5.Show
EndSub
PrivateSubmendc_Click()
Form8.Show
EndSub
PrivateSubMM_Click()
Form12.Show
EndSub
PrivateSubSC_Click()
Form9.Show
EndSub
PrivateSubsearch_Click()
Form6.Show
EndSub
4.4职工信息管理
4.4.1职工信息添加
本模块提供文本框输入职工相关基本信息,单击“添加”按钮完成职工信息的保存,单击“退出”按钮返回主菜单。
具体设计效果图如图4.4所示。
图4.4职工信息添加界面
代码如下:
PrivateSubCommand1_Click()
OnErrorResumeNext
IfCommand1.Caption="添加"Then
Command1.Caption="确定"
Adodc1.Recordset.AddNew
Text1.SetFocus
Else
Command1.Caption="添加"
Adodc1.Recordset.Update
Adodc1.Recordset.MoveLast
MsgBox"职工信息添加完成"
EndIf
EndSub
PrivateSubCommand2_Click()
UnloadMe
EndSub
4.4.2职工信息修改删除
本模块可以选择相应职工的信息进行修改删除,点击修改、删除按钮分别完成职工信息修改、删除,点击退出按钮、返回主控界面,具体界面如图4.5所示。
图4.5职工信息修改删除界面
代码如下:
PrivateSubCommand1_Click()
OnErrorResumeNext
IfCommand1.Caption="修改"Then
Command1.Caption="确定"
Adodc1.Recordset.Update
Text1.SetFocus
Else
Command1.Caption="修改"
Adodc1.Recordset.Update
EndIf
EndSub
PrivateSubCommand2_Click()
DimsakAsInteger
OnErrorResumeNext
ask=MsgBox("删除否?
",vbYesNo)
Ifask=6Then
Adodc1.Recordset.Delete
Adodc1.Recordset.MoveNext
IfAdodc1.Recordset.EOFThenAdodc1.Recordset.MoveLast
EndIf
EndSub
PrivateSubCommand3_Click()
UnloadMe
EndSub
PrivateSubCommand4_Click()
Adodc1.Recordset.MoveFirst
Command5.Enabled=False
EndSub
PrivateSubCommand5_Click()
Adodc1.Recordset.MovePrevious
IfAdodc1.Recordset.BOFThenAdodc1.Recordset.MoveFirst
Command6.Enabled=True
EndSub
PrivateSubCommand6_Click()
Adodc1.Recordset.MoveNext
IfAdodc1.Recordset.EOFThenAdodc1.Recordset.MoveLast
Command5.Enabled=True
EndSub
PrivateSubCommand7_Click()
Adodc1.Recordset.MoveLast
Command6.Enabled=False
EndSub
4.4.3职工信息查询
本模块提供了两种查询方式:
编号查询、查询,也可以点击查询全部按钮查询所有职工信息,具体界面如图4.6所示。
图4.6职工信息查询界面
代码如下:
PrivateSubCommand1_Click()
Adodc1mandType=adCmdText
Adodc1.RecordSource="select*from职工信息表"
Adodc1.Refresh
SetDataGrid1.DataSource=Adodc1
EndSub
PrivateSubCommand2_Click()
UnloadMe
EndSub
PrivateSubCommand4_Click()
IfOption1.Value=TrueThen
Adodc1mandType=adCmdText
Adodc1.RecordSource="select*from职工信息表where职工编号='"&Trim(Text1.Text)&"'"
Adodc1.Refresh
SetDataGrid1.DataSource=Adodc1
EndIf
IfOption2.Value=TrueThen
Adodc1mandType=adCmdText
Adodc1.RecordSource="select*from职工信息表where职工='"&Trim(Text2.Text)&"'"
Adodc1.Refresh
SetDataGrid1.DataSource=Adodc1
EndIf
EndSub
4.5客户信息管理
4.5.1客户信息添加
本模块提供文本框输入客户相关基本信息,单击“添加”按钮完成客户信息的保存,单击“退出”按钮返回主菜单。
具体设计效果图如图4.7所示。
图4.7客户添加界面
代码如下:
PrivateSubCommand1_Click()
OnErrorResumeNext
IfCommand1.Caption="添加"Then
Command1.Caption="确定"
Adodc1.Recordset.AddNew
Text1.SetFocus
Else
Command1.Caption="添加"
Adodc1.Recordset.Update
Adodc1.Recordset.MoveLast
MsgBox"客户信息添加完成"
EndIf
EndSub
PrivateSubCommand2_Click()
UnloadMe
EndSub
4.5.2客户信息修改删除
本模块可以选择相应客户的信息进行修改删除,点击“修改”、“删除”按钮分别完成客户信息修改、删除,点击“退出”按钮、返回主控界面,具体界面如图4.8所示。
图4.8客户信息修改删除界面
代码如下:
PrivateSubCommand1_Click()
Adodc1.Recordset.MoveFirst
Command5.Enabled=False
EndSub
PrivateSubCommand2_Click()
OnErrorResumeNext
IfCommand2.Caption="修改"Then
Command2.Caption="确定"
Adodc1.Recordset.Update
Text1.SetFocus
Else
Command2.Caption="修改"
Adodc1.Recordset.Update
EndIf
EndSub
PrivateSubCommand3_Click()
DimsakAsInteger
OnErrorResumeNext
ask=MsgBox("删除否?
",vbYesNo)
Ifask=6Then
Adodc1.Recordset.Delete
Adodc1.Recordset.MoveNext
IfAdodc1.Recordset.EOFThenAdodc1.Recordset.MoveLast
EndIf
EndSub
PrivateSubCommand4_Click()
UnloadMe
EndSub
PrivateSubCommand5_Click()
Adodc1.Recordset.MovePrevious
IfAdodc1.Recordset.BOFThenAdodc1.Recordset.MoveFirst
Command6.Enabled=True
EndSub
PrivateSubCommand6_Click()
Adodc1.Recordset.MoveNext
IfAdodc1.Recordset.EOFThenAdodc1.Recordset.MoveLast
Command5.Enabled=True
EndSub
PrivateSubCommand7_Click()
Adodc1.Recordset.MoveLast
Command6.Enabled=False
EndSub
4.5.3客户信息查询
本模块提供了两种查询方式:
编号查询、查询,也可以点击“查询全部”按钮查询所有客户信息,具体界面如图4.9所示。
图4.9客户信息查询界面
代码如下:
PrivateSubCommand1_Click()
Adodc1mandType=adCmdText
Adodc1.RecordSource="select*from客户信息表"
Adodc1.Refresh
SetDataGrid1.DataSource=Adodc1
EndSub
PrivateSubCommand2_Click()
UnloadMe
EndSub
PrivateSubCommand3_Click()
IfOption1.Value=TrueThen
Adodc1mandType=adCmdText
Adodc1.RecordSource="select*from客户信息表where编号='"&Trim(Text1.Text)&"'"
Adodc1.Refresh
SetDataGrid1.DataSource=Adodc1
EndIf
IfOption2.Value=TrueThen
Adodc1mandType=adCmdText
Adodc1.RecordSource="select*from客户信息表where客户='"&Trim(Text2.Text)&"'"
Adodc1.Refresh
SetDataGrid1.Data
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 企业 合同 管理 系统 设计 实现