管理信息系统专业课程设计方案报告指导书.doc

目录
一、课程设计规定········································1
二、系统功能与应用背景··································2
三、系统设计············································2
（一）系统设计思想······································2
（二）系统功能模快划分································3
（三）系统设计分工······································4
四、数据库设计··········································4
（一）数据库需求分析···································5
（二）数据库构造设计···································7
（三）数据库表·········································8
五、程序模块设计·································8
（一）系统主程序设计和主界面····························8
（二）资料管理模块······································11
（三）投诉管理模块······································16
（四）日程管理模块······································24
（五）报表记录模块······································26
（六）系统和数据维护模块································28
六、课程设计总结········································33
七、参照文献············································34
八、道谢················································35
附：经济管理学院课程设计鉴定表

管理信息系统课程设计报告

一、 课程设计规定
(一)总体规定
1、要充分结识课程设计对培养自己重要性，认真做好设计前各项准备工作。
2、既要虚心接受教师指引，又要充分发挥主观能动性。结合课题，独立思考,努力钻研，勤于实践，敢于创新。
3、独立准时完毕规定工作任务，不得弄虚作假，不准抄袭她人内容，否则成绩以不及格计。
4、无论在校外、校内，都要严格遵守学校和所在单位学习和劳动纪律、规章制度，学生有事离校必要请假。课程设计期间，无端缺席按旷课解决；缺席时间达四分之一以上者，其成绩按不及格解决。
5、在设计过程中，要严格规定自己，树立严肃、严密、严谨科学态度，必要准时、按质、按量完毕课程设计。
(二) 设计规定
1、要充分结识课程设计对培养自己重要性，认真做好设计前各项准备工作。
2、既要虚心接受教师指引，又要充分发挥主观能动性。结合课题，独立思考,努力钻研，勤于实践，敢于创新。
3、独立准时完毕规定工作任务，不得弄虚作假，不准抄袭她人内容，否则成 绩以不及格计。
4、无论在校外、校内，都要严格遵守学校和所在单位学习和劳动纪律、章制度，学生有事离校必要请假。课程设计期间，无端缺席按旷课解决；缺席时间达四分之一以上者，其成绩按不及格解决。
5、在设计过程中，要严格规定自己，树立严肃、严密、严谨科学态度，必要准时、按质、按量完毕课程设计。
6、小构成员之间，分工明确，但要保持联系畅通，密切合伙，培养良好互相协助和团队协作精神。
（三）课程设计普通环节
课程设计大体分五个阶段：
1、选题与收集资料：进行系统调查，收集资料。
2、分析与设计：依照收集资料，进行功能与数据分析，并进行数据库、系统功能等设计。
3、程序设计：运用掌握语言，结合选取数据库，编写程序，实现所设计模块功能。
4、调试与测试：自行调试程序，成员交叉测试程序，并记录测试状况。
5、验收与评分：指引教师对每个小组开发系统，及每个成员开发模块进行综合验收，结合设计报告，依照课程设计成绩评估办法，评出成绩。

二、系统功能与应用背景
客户管理核心是公司与客户关系。在老式经济时代，公司不做市场和客户需求分析，盲目生产，产品单一且供不应求，物质极度缺少，客户对商品无法选取，整个市场处在买方市场。此时客户管理仅是公司与客户表面上维持一种适度、有限关系，事实上就是一种简朴、短期买卖关系或者是一种交易关系，制约了公司和社会发展。而在网络经济时代，公司完全按照市场和客户需求生产各种产品。产品品种规格繁多且更新换代快，商品极为丰富，客户选取商品具备很大自主权，整个市场处在买方市场。此时客户管理以公司获取利润最大化为目的，不但要强调以市场为导向，以客户需求为中心基本思想，并且还努力提高服务质量和客户满意度，力求在公司和客户之间建立和保护=持一种长期、良好合伙关系，加速公司和社会发展。
考虑到客户管理分析数据类型多，数量大，系统应用品备强大空间空间查询和检索功能，支持多条件数据迅速提取和可视化显示，还应具备较强专项分析和成图功能。
客户管理系统涉及如下功能。
1、资料管理功能。在客户关系管理中可以实现客户信息增长、删除、修改和查找功能，同步也可以打印某客户范畴内客户资料信息。
2、投诉管理功能。在投诉管理可以实现客户投诉信息增长、删除、修改和查找功能，还可以对系统中客户投诉信息进行总结。
3、日程管理功能。日程管理模块管理公司筹划事物，可以完毕建立和浏览筹划，并且可以将每天筹划状况通过每天“今日提示”来表达。

三、系统设计
（一）系统设计思想
当今世界市场竞争焦点已成产品竞争转向品牌竞争、服务竞争和客户竞争，特别是谁能与客户建立和保持一种长期、合伙关系，掌握客户资源、赢得客户信任、分析客户需求，谁就能制定出科学公司发展战略和市场营销战略，生产出适销对路产品，提供满意客户服务，从而迅速提高市场占有率，获得最大利润。
客户管理作为当代公司重要管理之一，已经被越来越多公司逐渐结识。客户管理重要涉及：资料管理、客户投诉管理、日程管理、报表管理。
系统设计阶段应当依照顾客需求，明确描述数据库（数据库服务端）和应用界面（客户端）实现功能，即决定哪些功能由服务器实现，哪些功能由客户端实现。对于客户∕服务器应用程序，许多功能既可以在服务器端实现又可以在客户端实现，例如一种复杂数学变换功能既可以由客户端应用程序实现，又可以由服务器端存储过程实现。服务器和客户端应用程序功能划分往往取决于应用程序硬件环境。例如，如果客户端低档PC，服务器端是高档工作站，那么由服务器完毕大量计算是比较抱负。
（二）系统功能模快划分
依照上述系统功能分析，可以得出如下系统功能模块图，数据流程图，业务流程图。

系统启动
权限认证界面
系统主界面
日程管理
投诉管理
资料管理
报表管理
系统管理

系统总体功能设计
客户
数据添加查询
数据添加查询
数据管理
数据管理
数据管理
客户信息数据
日程信息数据
客户投诉信息数据
授权顾客数据
数据操作员员
系统管理员
数据管理
数据管理
数据管理
数据管理

业务流程图
客户
P1
数据查询
客户信息
P1
数据查询
日程信息
客户投诉信息
授权顾客信息
P1
数据管理
数据流程图
（三）小组设计分工
客户关系管理系统是分工合伙完毕。其中，系统启动，权限认证界面，菜单设计及数据库和表设计，以及系统连编及运营由吴珺同窗完毕；在安全登录模块，主窗口模块及系统维护模块中，共有四张表单，这由舒用建同窗完毕。本系统资料管理模块包括客户信息输入，客户信息修改，客户信息删除，客户信息查询，客户标签打印五张表单，这由邓虎子同窗完毕，此外，她在完毕好自己任务之余，她还尽心竭力地协助本人写报告，做报表，在此非常感谢她。可以说，投诉管理模块是本系统重要功能亮点，它有效地将员工工作业绩和客户投诉反馈联系在一起，这样有助于加强对员工监督和对客户反馈信息解决，进而可以巩固客户源，这某些由李洪涛同窗完毕。最后，日程管理模块，报表管理模块及本次报告书写由本人——李论基完毕。

四、数据库设计
数据库在一种信息管理系统中占有非常重要地位，数据库构造世纪好坏将直接相应用系统效率，以及实现效果产生影响。合理数据库构造设计可以提高数据存储效率，保证数据完整和一致。
设计数据库系统时应当一方面充分理解顾客各方面需求，涉及既有及将来也许增长需求。数据库设计普通涉及如下几种环节。
1. 数据库需要分析。
2. 数据库概念构造设计。
3. 数据库逻辑构造设计。
（一）数据库需求分析
顾客需求详细体当前各种信息提供、保存、更新和查询，这就是规定数据库构造功能充分满足各种信息输入和输出。收集基本数据、构造数据，以及数据解决流程，构成一份详尽数据字典，为背面详细设计打下良好基本。
通过上述系统功能分析，针对普通客户管理信息系统需求，总结如下需求信息。
1. 客户信息数据：涉及各方面信息数据。
2. 客户投诉信息数据：涉及客户投诉信息数据。
3. 日程数据信息：涉及公司每天任务信息数据。
4. 授权顾客数据：涉及授权使用该数据库管理人员数据。
在上面需求分析、数据构造分析、数据向分析基本上，下面开始数据库概念构造设计。
（二）数据库概念构造设计
得到上面数据项和数据构造后，就可以设计出可以满足顾客需求各种实体，以及它们之间关系，为背面逻辑构造设计打下基本。这些尸体包括各种信息，通过互相之间作用形成数据流动。
依照上面设计规划出实体有：客户信息实体、日程信息实体、授权顾客信息实体。各个实体详细描述E-R图如下。
实体之间关系E-R图：

日程
投诉
日程信息
投诉信息
客户类型
客户

实体之间关系E-R图

客户信息实体之间E-R图：
客户信息
客户编号
客户姓名
客户电话
客户地址
…….

客户信息实体之间E-R图

客户投诉信息尸体E-R图：
投诉信息
投诉编号
投诉日期
投诉成果
投诉因素
……

客户投诉信息实体E-R图：

日程信息尸体E-R图：
日程信息
开始日期
结束日期
日程内容

日程信息实体E-R图：
（三）数据库逻辑构造设计
数据库概念构造设计完毕后，当前可以上面数据构造转化为某种数据库系统所支持实际数据模型，也就是数据库逻辑构造。客户关系管理系统中使用各个数据表字段设立如下所示。

表1 客户投诉信息表
字段名称
数据类型
长度
容许空
索引类型
投诉编号
字符型
5

普通索引
投诉日期
日期型
8

普通索引
投诉客户姓名
字符型
10

投诉因素
备注型
4

投诉电话
字符型
12

投诉成果
备注型
4

表2 客户信息表
字段名称
数据类型
长度
容许空
索引类型
编号
字符型
8

普通索引
姓名
字符型
10

系别
逻辑型
1

认证号码
字符型
20

地址
字符型
20

电话
字符型
15

电子邮件
字符型
15

表3 日程信息表
字段名称
数据类型
长度
容许空
索引类型
结束日期
日期型
8

结束日期
日期型
8

日程内容
字符型
100

表4 授权顾客表
字段名称
数据类型
长度
容许空
索引类型
顾客名称
字符型
10

普通索引
授权密码
字符型
15

Dom
数值型

五、程序模块设计
（一）系统主程序设计和主界面：
1、本系统先显示系统封面，进行顾客身份确认后，直接运营系统主菜单。程序代码：
SET TALK OFF
SET DELE ON
SET SAFE OFF
_SCREEN.Visible=.F.
oldpath=SYS(5)+SYS()
newpath=SYS(16)
newpath=getpath(newpath)
SET DEFAULT TO (newpath)
OPEN DATA 客户管理信息
SELE 0
USE 客户信息表
SELE 0
USE 客户投诉信息表
SELE 0
USE 日程信息表
SELE 0
USE 核心词表
SELE 0
USE 授权顾客表
PUBLIC g_uid,g_time,g_dom(19)
g_uid=''
g_time=TTOC(DATETIME())
g_dom=1
DO FORM 顾客登录
READ EVENT

FUNCTION getpath
PARA mpath
rm=RAT('\',mpath)
lm=AT('\',mpath)
IF(rm=lm)
result=SUBSTR(mpath,1,lm)
ELSE
result=SUBSTR(mpath,1,rm-1)
ENDIF
RETURN result
ENDFUNC
2、程序运营后进入登入表单，登录表单如下：

登录表单
3、若输入顾客名和密码对的,则进入系统主界面即主表单：

客户关系管理系统主表单
时钟控件timer事件代码：
thisform.caption='客户关系管理系统（工管0901班）'+str(year(date()),4)+'年'+str(month(date()),2)+'月'+str(day(date()),2)+'日';
+time()
4.客户管理菜单如下：

（二）资料管理模块
1、资料管理模块实现如下功能：
1）客户信息输入；2）客户信息删除；3）客户信息更改；4、客户信息查询；5）标签打印。
2、客户信息查询

【开始查找】click事件代码：
dime m_qry(2)
m_qry(1)='编号'
m_qry(2)='姓名'
IF THISFORM.combo1.VALUE=m_qry(1)
SELECT 编号,姓名,认证号码,地址,电话,电子邮件 FROM 客户信息表 INTO CURSOR cur
ELSE
SELECT 编号,姓名,认证号码,地址,电话,电子邮件 FROM 客户信息表 INTO CURSOR cur
endif
COUNT TO m_no
IF m_no>0
m_message='搜寻成果：为您找到'+ALLT(STR(m_no))+'条记录'
ELSE
m_message='很抱歉，没有找到有关记录'
ENDIF
THISFORM.grid1.RECORDSOURCE='cur'
THISFORM.grid1.VISIBLE=.T.
THISFORM.label3.CAPTION=m_message
THISFORM.label3.VISIBLE=.T.
THISFORM.grid1.REFRESH
THISFORM.grid1.doscroll(2)
3、客户信息输入对话框如下：

【保存】click事件代码：
m_no=ALLTRIM(THISFORM.txtno.VALUE)
SELE 客户投诉信息表
LOCATE FOR 投诉编号=m_no
IF FOUND()
MESSAGEBOX('编号为'+m_no+'投诉记录已经存在！',16,'记录重复')
RETURN
ENDIF
m_time=CTOD(THISFORM.txttime.VALUE)
m_name=ALLTRIM(THISFORM.txtname.VALUE)
m_content=ALLTRIM(THISFORM.edtcontent.VALUE)
m_contact=ALLTRIM(THISFORM.txtcontact.VALUE)
m_result=ALLTRIM(THISFORM.edtresult.VALUE)
INSERT INTO 客户投诉信息表 VALUES(m_no,m_time,m_name,m_content,m_contact,m_result)
m_keyword=ALLTRIM(THISFORM.txtkeyword.VALUE)
FOR i=1 TO LEN(m_keyword)
kw=''
DO WHILE SUBSTR(m_keyword,i,1)<>' ' AND i<=LEN(m_keyword)
kw=kw+SUBSTR(m_keyword,i,1)
i=i+1
ENDDO
IF NOT EMPTY(kw)
INSERT INTO 核心词表 VALUES(m_no,kw)
ENDIF
ENDFOR
THISFORM.SETALL('value','','textbox')
THISFORM.SETALL('value','','editbox')
THISFORM.txtno.SETFOCUS
【退出】click事件代码：
Thisform .release
4、客户信息更改对话框如下：

【查找】click事件代码：
m_no=ALLTRIM(THISFORM.txtno.VALUE)
IF EMPTY(m_no)
MESSAGEBOX('对不起，客户编号不能为空！',16,'错误')
THISFORM.txtno.SETFOCUS
RETURN
ENDIF
SELE 客户信息表
LOCATE FOR 编号=m_no
IF NOT FOUND()
MESSAGEBOX('没有找到您所输入编号。',16,'错误')
THISFORM.txtno.SETFOCUS
RETURN
ENDIF
THISFORM.txtname.VALUE=客户信息表.姓名
THISFORM.opgsex.VALUE=IIF(客户信息表.性别,1,2)
THISFORM.txtid.VALUE=客户信息表.认证号码
THISFORM.txtaddress.VALUE=客户信息表.地址
THISFORM.txtphone.VALUE=客户信息表.电话
THISFORM.txtemail.VALUE=客户信息表.电子邮件
【还原】click事件代码：
THISFORM.txtno.VALUE=客户信息表.编号
THISFORM.txtname.VALUE=客户信息表.姓名
THISFORM.opgsex.VALUE=IIF(客户信息表.性别,1,2)
THISFORM.txtid.VALUE=客户信息表.认证号码
THISFORM.txtaddress.VALUE=客户信息表.地址
THISFORM.txtphone.VALUE=客户信息表.电话
THISFORM.txtemail.VALUE=客户信息表.电子邮件
【退出】click事件代码：
Thisform .release
5.客户信息删除对话框如下：

【删除】click事件代码：
m_no=alltrim(thisform.txtno.value)
if empty(m_no)
messagebox('对不起，编号不能为空！',16,'错误！')
thisform.txtno.setfocus
return
endif
nAnswer=messagebox('记录一旦被删除，将无法恢复。请确认您要删除记录！'+chr(13)+'您真要删除该记录吗？',4+48+256,'警告！')
if nAnswer=6 &&yes
delete from tblcustom where no=m_no
thisform.setall('value','','textbox')
thisform.setall('value','','editbox')
thisform.txtno.setfocus
endif
m_no=alltrim(thisform.txtno.value)
【退出】click事件代码：
Thisform .release
6.标签打印对话框如下：

【打印预览】click事件代码：
m_noinf=val(thisform.txtnoinf.value)
m_nosup=val(thisform.txtnosup.value)
select tblcustom
locate for val(no)>=m_noinf and val(no)<=m_nosup
if found()
label form lblcustom for val(no)>=m_noinf and val(no)<=m_nosup preview
else
messagebox('没有符合条件记录可以打印！',16,'错误！')
endif
【退出】click事件代码：
Thisform .release
（三）投诉管理模块
1、投诉管理模块实现如下功能：
1）投诉信息输入；2）投诉信息更改；3）投诉信息删除；4）投诉信息查询；5）
数据记录
2、投诉信息输入对话框如下：

【保存】click事件代码：
m_no=alltrim(thisform.txtno.value)
if empty(thisform.txtno.value)
messagebox('投诉编号不能为空！',48,'错误提示')
thisform.txtno.setfocus
return
endif
sele tblcomplain
locate for no=m_no
if found()
messagebox('编号为'+m_no+'投诉记录已经存在！',16,'记录重复！')
return
endif
m_time=ctod(thisform.txttime.value)
m_name=alltrim(thisform.txtname.value)
m_content=alltrim(thisform.edtcontent.value)
m_contact=alltrim(thisform.txtcontact.value)
m_result=alltrim(thisform.edtresult.value)
insert into tblcomplain values(m_no,m_time,m_name,m_content,m_contact,m_result)
m_keyword=alltrim(thisform.txtkeyword.value)
for i=1 to len(m_keyword)
kw=''
do while substr(m_keyword,i,1)<>''and i<=len(m_keyword)
kw=kw+substr(m_keyword,i,1)
i=i+1
enddo
if not empty(kw)
insert into tblkeyword values(m_no,kw)
endif
endfor
thisform.setall('value','','textbox')
thisform.setall('value','','editbox')
thisform.txtno.setfocus
【退出】click事件代码：Thisform .release
3、客户投诉信息更改对话框如下：

【保存】click事件代码：
m_time=ctod(thisform.txttime.value)
m_name=alltrim(thisform.txtname.value)
m_content=alltrim(thisform.edtcontent.value)
m_contact=alltrim(thisform.txtcontact.value)
m_result=alltrim(thisform.edtresult.value)

if empty(thisform.txtno.value)
messagebox('投诉编号不能为空！',48,'错误提示')
thisform.txtno.setfocus
return
endif

update tblcomplain set date=m_time,name=m_name,content=m_content,contact=m_contact,result=m_result where no=m_no
delete from tblkeyword where no=m_no
m_keyword=alltrim(thisform.txtkeyword.value)
for i=1 to len(m_keyword)
kw=''
do while substr(m_keyword,i,1)<>''and i<=len(m_keyword)
kw=kw+substr(m_keyword,i,1)
i=i+1
enddo
if not empty(kw)
insert into tblkeyword values(m_no,kw)
endif
endfor
messagebox('记录已成功更改。',64,'更改！')
thisform.setall('value','','textbox')
thisform.setall('value','','editbox')
thisform.txtno.setfocus
【还原】click事件代码：
thisform.cmdfind.click
【退出】click事件代码：
Thisform .release
【查找】click事件代码：
m_no=alltrim(thisform.txtno.value)
if empty(m_no)
messagebox('对不起，投诉编号不能为空！',16,'错误！')
thisform.txtno.setfocus
return
endif
sele tblcomplain
locate for no=m_no
if not found()
messagebox('编号为'+m_no+'投诉记录不存在！',16,'记录号错误！')
return
endif
thisform.txtno.value=tblcomplain.no
thisform.txttime.value=dtoc(tblcomplain.date)
thisform.txtname.value=tblcomplain.name
thisform.edtcontent.value=tblcomplain.content
thisform.txtcontact.value=tblcomplain.contact
thisform.edtresult.value=tblcomplain.result
select keyword from tblkeyword where no=m_no into cursor cur
kw=''
scan
kw=kw+space(4)+keyword
endscan
kw=ltrim(kw)
thisform.txtkeyword.value=kw
4、客户投诉信息查询对话框如下：

【开始查找】click事件代码：
a="no"
b="date"
c="name"
m_content=alltrim(thisform.text1.value)
if thisform.Combo1.value=b
select no AS 投诉编号,date AS 投诉时间,name AS 投诉人;
from tblcomplain
where and ctod(m_content)=(&m_query)
else
select no AS 投诉编号,date AS 投诉时间,name AS 投诉人;
from tblcomplain
endif
count to m_no
if m_no>0
m_message='搜寻成果：为您找到'+allt(str(m_no))+'条记录'
else
m_message='很抱歉,没有找到有关记录！'
endif
thisform.grid1.recordsource='cur'
thisform.grid1.visible=.t.
thisform.label3.caption=m_message
thisform.label3.visible=.t.
thisform.grid1.refresh
thisform.grid1.doscroll(2)
【退出】click事件代码：
Thisform .release
5.客户投诉信息删除对话框如下：

【查找】click事件代码：
m_no=alltrim(thisform.txtno.value)
if empty(m_no)
messagebox('对不起，投诉编号不能为空！',16,'错误！')
thisform.txtno.setfocus
return
endif
sele tblcomplain
locate for no=m_no
if not found()
messagebox('编号为'+m_no+'投诉记录不存在！',16,'记录号错误！')
return
endif
thisform.txttime.value=dtoc(tblcomplain.date)
thisform.txtname.value=tblcomplain.name
thisform.edtcontent.value=tblcomplain.content
thisform.txtcontact.value=tblcomplain.contact
thisform.edtresult.value=tblcomplain.result
select keyword from tblkeyword where no=m_no into cursor cur
kw=''
scan
kw=kw+space(4)+keyword
endscan
kw=ltrim(kw)
thisform.txtkeyword.value=kw
【删除】click事件代码：
m_no=alltrim(thisform.txtno.value)
nAnswer=messagebox('记录一旦被删除，将无法恢复。请确认您要删除记录！'+chr(13)+'您真要删除该记录吗？',4+48+256,'警告！')
if nAnswer=6 &&yes
delete from tblcomplain where no=m_no
delete from tblkeyword where no=m_no
thisform.setall('value','','textbox')
thisform.setall('value','','editbox')
thisform.txtno.setfocus
endif
【退出】click事件代码：
Thisform .release
6、客户投诉数据记录对话框如下：

此表单init事件代码：
SELECT 核心词,COUNT(*) AS num FROM 核心词表 GROUP BY 核心词 INTO CURSOR cur ORDER BY num DESC TOP 10
COUNT TO num
GO TOP
IF num>0
FOR i=1 TO num
cap='lblsum'+STR(i,1)
THISFORM.&cap..CAPTION=核心词+STR(num)+'件'
SKIP
ENDFOR
ENDIF
USE
【拟定】click事件代码：
Thisform. Release
（四）日程管理模块
1、日程管理模块实现如下功能：
1）新建筹划；2）浏览筹划；3）今日提示。
2、新建筹划对话框如下：

【保存】click事件代码：
if empty(thisform.olecontrol1.value)
messagebox('开始日期时间不能为空！',48,'错误提示')
thisform.olecontrol1.setfocus
return
endif

if empty(thisform.olecontrol2.value)
messagebox('结束日期时间不能为空！',48,'错误提示')
thisform.olecontrol2.setfocus
return
endif

mbegindate=ctod(thisform.olecontrol1.value)

menddate=ctod(thisform.olecontrol2.value)
mcontent=thisform.edit1.value
insert into tbldiary values(mbegindate,menddate,mcontent)
thisform.edit1.value=''
messagebox("日程安排以及保存。")
【退出】click事件代码：
Thisform .release
3、浏览筹划对话框如下：

【查看】click事件代码：
if empty(thisform.olecontrol1.value)
messagebox('查看日期不能为空！',48,'错误提示')
thisform.olecontrol1.setfocus
return
endif
mdate=ctod(thisform.olecontrol1.value)
select begindate as 开始时间,enddate as 结束时间,content as 筹划内容;
from