企业客户信息管理系统.docx
《企业客户信息管理系统.docx》由会员分享，可在线阅读，更多相关《企业客户信息管理系统.docx（24页珍藏版）》请在冰豆网上搜索。
企业客户信息管理系统
第一章 前言
目前市场上流行的专门针对中小型企业开发的客户营销关系管理系统,实现”以客户为中心”的信息化管理的经营理念。
它们辅助企业建立规范、高效的营销体系，提高企业整体营销竞争力；及时、准确、全面地把握营销动态，降低企业营销管理成本，提高企业的综合竞争力，适用于所有从事产品营销和服务营销的企业。
企业的外部资源：
客户资源、代理商资源、分销商资源，供应商资源和其他合作伙伴资源本质上与企业内部的其他资源一样需要人们的悉心经营。
客户是企业的利润资源，怎么样让公司的员工能对客户的各类请求和服务给出及时和完美的解决方案？
能不能让企业的客户资源有自动更新机制，去掉没有价值的客户，增加能带来利润的客户？
作为管理层能不能知道每一个销售人员管理的客户的状态？
能不能随时都能知道公司下个月潜在的销售额？
客户的增长率情况如何？
每个销售人员的表现如何？
所有这些都需要有一套系统来解决。
通过客户关系管理（CRM）可以将企业的客户集成到企业的服务组织、生产级织和销售组织中来。
通过这个CRM解决方案，企业可以管理关于客户、潜在客户、合伙伙伴、合同、通信、文档和需求的相关信息。
并为每一个客户，每一个代理商，每一个分销商和每一个供应商开放一个门户，通过客户门户，客户可以访问他们被允许访问的所有信息：
订单状况、信用额度、企业最新产品资讯、最新产品报价。
通过分销商门户，分销商们可以被赋予权限，访问共同客户的信息。
通过使用这套系统，企业可以大大提升客户管理的水平。
第二章方案的选定
2.1数据库系统简介
数据库系统提供了在某个集中的地方存储和维护数据信息的方法。
数据库系统主要由三大部分组成：
数据库管理系统（DBMS：
它是门负责组织和管理数据信息的程序）、数据库应用程序（它使我们能够获取、显示和更新由DBMS存储的数据）、数据库（按一定结构组织在一起的相关数据的集合）。
一般来说，DBMS和数据库应用程序驻留在同一台计算机上并在同一台计算机上运行，称为单机型数据库应用系统。
但是随着DBMS技术的发展和信息网络化、集成化的要求，目前的数据库系统正向客户/服务器模式和MIDAS（多层数据库应用系统）发展。
客户/服务器数据库将DBMS和数据库应用程序分开，从而提高了数据库系统的处理能力。
数据库应用程序运行在一个或多个用户工作站上，并且通过网络与运行在其他客户机或服务器上的一个或多个数据库管理系统进行通信。
2.2VisualBasic6.0语言简介
VisualBasicforWindows（以下简称VB）是Windows下的应用程序开发工具，它从根本上改变了传统的程序设计模式，可以处理文本、图像、动画、声音等多媒体数据，因而被计算机界称为“最富有创新精神的编程工具之一”。
2.3Access简介
在办公软件Office套件中，最为广大用户熟悉的是Word和Excel，因为它们功能强大且方便易用，更因为它们不仅可用于办公，还可用于个人写作和家庭记帐理财等。
同为Office套件中一部分的Access，虽然有着同样强大的功能，但使用的人却相对少些，不像Word和Excel那样广泛。
事实上，真正用过Access的用户，对其强大功能和灵活应用都有很好的口碑。
第三章数据库设计
本课题选用Access2000作为后台数据库。
3.1、数据库需求分析
针对企业客户信息管理系统的需求，通过对客户信息处理过程的内容和数据流程的分析。
为本系统设计如下的数据项和数据结构：
●公司基本信息表：
记录编号、国家、城市、经营领域、与本公司合作
领域、地址、电话、传真、备注。
●个人信息表：
记录编号、客户编号、客户姓名、性别、年龄、出生
年月、所属单位、职务、住址、邮编、电话、手机、传真、电子信箱。
●用户信息表：
用户名名称、用户密码。
3.2、数据库的实现
根据功能要求在Access2000里创建数据库，客户管理信息
系统的数据库中的各个表格的设计如下，这里的每个表格代表数据库中的一个独立的表。
公司基本信息表
字段名称
数据类型
说明
ID
数字
记录编号
ComName
文本
国家
Country
文本
城市
DealDomain
文本
经营领域
Symbiosis
文本
与本公司合作领域
Address
文本
地址
Tel
文本
电话
Fax
文本
传真
Remark
备注
备注
个人信息表
字段名称
数据类型
说明
ID
数字
记录编号
ClientID
文本
客户编号
ClientName
文本
客户姓名
Gender
文本
性别
Age
数字
年龄
Brithday
日期/时间
生日
Company
文本
所属公司
Cposition
文本
职务
Address
文本
住址
Code
文本
邮编
Tel
文本
电话
MobileTel
文本
手机
FaxNumber
文本
传真
Email
文本
电子信箱
用户信息表
字段名称
数据类型
说明
UserID
文本
用户名称
UserPWD
文本
用户密码
第四章 系统设计（模块图）
4.1、功能分析
开发这个系统的目的就是帮助企业提高工作效率以及确保客户信息的准确性和实时性，实现企业客户信息管理的系统化、规范化和自动化。
根据这个系统所要实现的目的和任务，总结出这个系统最终实现的主要功能如下：
●系统管理部分：
包括添加系统用户和修改密码。
●个人信息管理部分：
包括添加个人信息，修改个人信息、查询个人信息。
●企业信息管理部分：
包括修改企业信息、查询企业信息和删除企业信息。
●工具部分：
包括发送电子邮件、数据导出等。
4.2、模块设计
（1）系统模块
系统启动的时候有一个管理员用户，使用这个用户登录后，可以添加其他用户，而且每一个用户都可以更改自己的密码。
（2）个人信息管理
A：
添加个人信息：
包括个人的编号、姓名、性别、年龄、生日、地址、电话、邮政编码、传真、手机、职务、Email。
B：
修改个人信息：
修改所有的个人信息。
C：
查询个人信息：
按照公司名称、客户名称查询个人的信息。
（3）企业信息管理
A：
修改企业信息：
包括企业记录编号、公司名称、所属国家、所在城市、经营领域、合作领域、地址、电话、传真、备注。
B：
查询企业信息：
根据企业名称、经营领域查询企业信息。
C：
删除企业信息：
删除不作为客户的企业信息。
（4）工具
A：
发送电子邮件：
发送电子邮件给客户。
B：
导出客户信息。
根据系统需要实现的主要功能，可以得到企业客户信息管理系统的功能模块图如下
企业客户管理系统
企业客户管理系统
个人信息表
系
统
工
具
企业信息表
数据导出
发送电子邮件
删除企业信息
查询企业信息
修改企业信息
查询个人信息
修改个人信息
添加个人信息
修改密码
添加用户
第五章 程序设计
运行VisualBasic后，选择“文件”→“新建工程”菜单，然后从工程模板中选择“标准EXE”项，单击“确定”按钮。
VisualBasic就会自动生成一个窗体，这个窗体的属性采用的都是默认设置。
在本课题中，先删除这个窗体，然后选择“文件”→“保存工程”菜单，在出现的“文件另存为”对话框中输入这个工程项目的名称Client_MIS,并且选择要保存这个工程的目录，单击“保存”按钮，保存工程。
为了提高代码的效率方便维护，可以用共用模块来存放工程中经常使用的函数、过程和全局变量等。
在这个系统中，每个功能模块都要使用数据库，因此可以使用一个共用的数据操作函数，执行一系列的SQL语句。
在项目资源管理器中为这个工程添加一个模块，保存为Mclient.bas。
添加的方法和添加窗体的方法一样，只不过这里选择的不是MDI窗体，而是选择模块。
在这个模块中添加如下代码：
首先定义几个变量:
OptionExplicit
PublicstrUserNameAsString '用户名称
PubliciflagAsInteger '是否连接成功标志
PublicichangeFlagAsInteger '修改标志
PublicstrPublicSQLAsString '传递SQL字符串
添加返回记录集的函数：
PublicFunctiongetRS（ByValsqlAsString）_ AsADODB.Recordset
DimconAsADODB.Connection
DimrsAsADODB.Recordset
DimstrConnectionAsString
DimstrArray（）AsString
Setcon=NewADODB.Connection '创建连接
Setrs=NewADODB.Recordset '创建记录集
OnErrorGoTogetRS_Error
strConnection="Provider=Microsoft.jet.oledb.4.0;DataSource="&App.Path&"\"
strConnection=strConnection&"Client.mdb"
strArray=Split（sql）
con.OpenstrConnection '打开连接
rs.OpenTrim$（sql）,con,adOpenKeyset,adLockOptimistic
SetgetRS=rs '返回记录集
iflag=1
getRS_Exit:
Setrs=Nothing
Setcon=Nothing
ExitFunction
getRS_Error:
MsgBox"查询错误：
"&Err.Description
iflag=2
ResumegetRS_Exit
EndFunction
添加执行SQL语句的函数：
PublicSubTransactSQL（ByValsqlAsString）
DimconAsADODB.Connection
DimstrConnectionAsString
DimstrArray（）AsString
Setcon=NewADODB.Connection '创建连接
OnErrorGoToTransactSQL_Error
strConnection="Provider=Microsoft.jet.oledb.4.0;DataSource="&App.Path&"\"
strConnection=strConnection&"Client.mdb"
strArray=Split（sql）
con.OpenstrConnection '打开连接
con.Executesql '执行命令
iflag=1
TransactSQL_Exit:
Setcon=Nothing
ExitSub
TransactSQL_Error:
MsgBox"查询错误：
"&Err.Description
iflag=2
ResumeTransactSQL_Exit
EndSub
添加一个转换回车键的函数：
PublicSubTabToEnter（KeyAsInteger）
IfKey=13Then '判断是否为回车键
SendKeys"{TAB}" '转换为Tab键
EndIf
EndSub
添加系统启动时，第一个出现的窗体的函数：
Submain（）
DimfLoginAsNewfrmLogin
fLogin.Show '显示窗体
EndSub
在企业信息列表中，填写好企业名称，按“查找”按钮，就可以查找企业信息。
PublicSubshowComTopic（）
DimiAsInteger
WithMe.MSFlexGrid1 '设置表头
.TextMatrix（0,0）="记录编号"
.TextMatrix（0,1）="公司名称"
.TextMatrix（0,2）="所属国家"
.TextMatrix（0,3）="所在城市"
.TextMatrix（0,4）="经营领域"
.TextMatrix（0,5）="合作领域"
.TextMatrix（0,6）="地 址"
.TextMatrix（0,7）="电 话"
.TextMatrix（0,8）="传 真"
.TextMatrix（0,9）="备 注"
Fori=0To9 '设置所有表格对齐方式
.ColAlignment（i）=4
Nexti
.ColWidth（0）=1000
Fori=1To9 '设置每列宽9
.ColWidth（i）=1500
Nexti
EndWith
Me.MSFlexGrid1.Width=15000
EndSub
PublicSubshowComData（strQueryAsString） '显示数据
DimrsAsNewADODB.Recordset
Setrs=getRS（strQuery）
Ifrs.EOF=FalseThen
WithMe.MSFlexGrid1
.Rows=1
WhileNotrs.EOF
.Rows=.Rows+1
.TextMatrix（.Rows-1,0）=rs（0）
.TextMatrix（.Rows-1,1）=rs
（1）
.TextMatrix（.Rows-1,2）=rs
（2）
.TextMatrix（.Rows-1,3）=rs（3）
.TextMatrix（.Rows-1,4）=rs（4）
.TextMatrix（.Rows-1,5）=rs（5）
.TextMatrix（.Rows-1,6）=rs（6）
.TextMatrix（.Rows-1,7）=rs（7）
.TextMatrix（.Rows-1,8）=rs（8）
.TextMatrix（.Rows-1,9）=rs（9）
rs.MoveNext
Wend
EndWith
rs.Close
EndIf
EndSub
在修改企业信息时，填写好所要修改的资料，按“修改”按钮，可以把新的资料保存在里面，代码如下：
ptionExplicit
PrivateiNumAsInteger '记录编号
PrivateSubcmdCancel_Click（）
UnloadMe
ExitSub
EndSub
PrivateSubcmdOK_Click（）
DimsqlAsString
sql="updateCompanysetComName='"&Me.textComName&"',Country='"&Me.textCountry
sql=sql&"',City='"&Me.textCity&"',DealDomain='"&Me.textDomain&"',"
sql=sql&"Symbiosis='"&Me.textSymbiosis&"',Address='"&Me.textComAddress
sql=sql&"',Tel='"&Me.textComTel&"',Fax='"&Me.textComFax
sql=sql&"',Remark='"&Me.textRemark&"'whereID="&iNum
CallTransactSQL（sql） '修改记录
MsgBox"已经更改信息！
",vbOKOnly+vbExclamation,"提示"
sql="select*fromCompanywhereID="&iNum
CallfrmComResult.showComTopic '显示修改结果
CallfrmComResult.showComData（sql）
frmComResult.Show
frmComResult.ZOrder0
UnloadMe
EndSub
PrivateSubForm_Load（） '初始化
DimrsAsNewADODB.Recordset
Setrs=getRS（strPublicSQL）
Ifrs.EOF=FalseThen
iNum=rs（0）
Me.textComName=rs
（1）
Me.textCountry=rs
（2）
Me.textCity=rs（3）
Me.textDomain=rs（4）
Me.textSymbiosis=rs（5）
Me.textComAddress=rs（6）
Me.textComTel=rs（7）
Me.textComFax=rs（8）
Me.textRemark=rs（9）
EndIf
rs.Close
EndSub
在查询企业信息时，填写好可以按企业名称和经营领域，两种方面查找。
代码如下：
PrivateSubcmdCancel_Click（）
UnloadMe
ExitSub
EndSub
PrivateSubcmdOK_Click（）
DimsqlAsString
IfMe.checkComName.Value=vbCheckedAndMe.checkDomain.Value=vbCheckedThen
sql="select*fromCompanywhereComName='"&Me.textComName&"'and"
sql=sql&"DealDomain='"&Me.textDomain&"'"
ElseIfMe.checkComName.Value=vbCheckedThen
sql="select*fromCompanywhereComName='"&Me.textComName&"'"
ElseIfMe.checkDomain.Value=vbCheckedThen
sql="select*fromCompanywhereDealDomainlike'%"&Me.textDomain&"%'"
Else
sql="select*fromCompanyorderbyID"
EndIf
CallfrmComResult.showComTopic '显示查询结果
CallfrmComResult.showComData（sql）
frmComResult.Show
frmComResult.ZOrder0
UnloadMe
EndSub
发送电子邮件，数据导出代码如下：
OptionExplicit
PublicstrFilepathAsString
PrivateSubcmdCancel_Click（）
UnloadMe
ExitSub
EndSub
PrivateSubcmdOK_Click（）
DimiAsInteger
DimrsobjAsNewADODB.Recordset
DimsqlAsString
DimfirstdayAsString
DimdaysAsInteger
DimlastdayAsString
DimoExcelAsObject
DimoBookAsObject
DimoSheetAsObject
OnErrorGoToCommand1_Click_Error
升级会员 