《客户信息管理系统_设计报告》由会员分享，可在线阅读，更多相关《客户信息管理系统_设计报告（19页珍藏版）》请在金锄头文库上搜索。
1、华点致注大学全日制本科生课程设计题目：客户信息管理系统学院：刑事司法学院专业：计算机科学与技术班级：0759 学号：0711220066姓名：夏梦指导教师：王学光2010年5月 日1、设计题目客户信息管理系统2、设计目的和要求目的：利用Visual Basic和Access实现客户信息管理系统。要求：使系统能运行正确，完成基本的功能如客户类型的增加、删除、查询和修改等。3、设计内容（包括设计思路、设计实现）3.1需求分析客户信息系统需要完成的功能有：客户类型的建立与维护，包括客户类型的新建、修改和删除等。客户信息的输入，详细全面记录并管理客户信息和联系人信息，客户信息包括客户的基本信息，一般的
2、 通讯方式及客户其他信息，如爱好、禁忌、生口等。客户信息的修改和删除，包括启动与取消客户的生口提醒等。方便实用的数据查询功能，根据不同条件查询客户，可以查看客户信息。3. 2总体设计本系统采用三层结构设计，即程序逻辑结构分为用户界面层、业务逻辑处理层和数据存储层。三层在 实际的物理结构上也是独立的，业务逻辑处理层采用ActiveX DLL实现，用户界面与业务逻辑分离，系 统的安全性、可维护性、重要性和扩展性都大大提高。本系统也采用面向对彖的设计，系统中将客户类型、客户等都封装成相应的类，同时每个类都有自己 对应的集合类，从而再次提高了对数据库操作系统的安全性和程序的可扩展性。根据对系统功能的分
3、析，我们可以把系统划分成客户类型管理模块、客户管理模块和提醒管理模块。 系统的物理结构也分为三层，即用户界面、组件和数据库。3. 3程序界面及核心代码3.1需求分析客户信息系统需要完成的功能有：1、客户类型的建立与维护，包括客户类型的新建、修改和删除等。2、客户信息的输入，客户信息包括客户的基本信息，一般的通讯方式及客户其他信息，如爱好、禁忌、 生日等。3、客户信息的修改和删除，包括启动与取消客户的生口提醒等。4、根据不同条件查询客户，可以查看客户信息。3. 2概念设计本系统采用三层结构设计，即程序逻辑结构分为用户界面层、业务逻辑处理层和数据存储层。三层在 实际的物理结构上也是独立的，业务逻辑
4、处理层采用ActiveX DLL实现，用户界面与业务逻辑分离，系 统的安全性、可维护性、重要性和扩展性都人大提高。本系统也采用面向对彖的设计，系统中将客户类型、客户等都封装成相应的类，同时每个类都有自己 对应的集合类，从而再次提高了对数据库操作系统的安全性和程序的可扩展性。根据对系统功能的分析，我们可以把系统划分成客户类型管理模块、客户管理模块和提醒管理模块。 系统的物理结构也分为三层，即用户界面、组件和数据库。添加客户类型修改客户类型系统功能模块图各实体间关系的E-R图客户类型类型名砂）史级类型客户类型信息实体E-R图3. 3逻辑设计（1）模式转换（E/R to Relational）Cli
5、entType字段名称数据类型Typeld自动编号递増，主键SuperId上级类型IDTypeName客户类型名ClientType 表:Clientinfo 表:Clientinfo字段名称数据类型ClientldNameSexAge Birthday OfficePhoneMobileFax HomePhone日文二 Cooperate字崩祢 丹 CooperateldClientldDateSatisfaction数据类型自动编号主键，递増数字客户ID,外码日期/时间合作日期数字满意度（0-255）Remark备注Cooperate 衣：3WarnType字麟探数据类型VTypeldWT
6、ypeName自动编号提醉类型编号文本提罄类型名称WarnTvpe 表:字段名称数据类型Warnld自更编号ClientldShowDate日更/时间TypeldMsgWarning 表:I 3 Warning主键，递増客户ID,为0时表示全体客户 提醍显示日期提萼类型ID，外码提配消息（2）模式规范化ClientType 表、Clientinfo 表、Cooperate 表、WarnType 表、Warning 表均己经为 BCNF 范式（3）完整性约束设计实体完整性约束：ClientType表主键为TypeldClientinfo 表主键为 ClientldCooperate 衣主键为 C
7、ooperateldWarnType 表主键为 WTvpeldWarning 表主键为 Warnld参照完整性约束：Cooperate表的Clientld参照Clientinfo表主键Clientld Warning 表的 Typeld 参照 ClientType 表主键 Typeld（4）外模式设计建立了一张Client视图，用于显示每位客户的合作、提醒信息，语句如下： Create view Client select Cooperateld, Clientld, Warnld, Clientld, TypeName, Namefrom Cli己ntType, ClientInfo, Co
8、operate, Warningwhere Cooperate. Clientld=Clientlnfo. Clientld and WarningTypeld二ClientType .Typeld（5）典型应用设计客户类型管理模块：添加客户类型，修改客户类型，删除客户类型客户管理模块：客户信息管理，客户评价管理，客户合作管理提醒管理模块：查看今口提醒，提醒设置管理3. 4物理设计内模式设计：主要包拾索引、散列、簇集设计ClientType表：索引字段为Typeld,索引表达式为Typeld,索引类型为主索引 Clientinfo表：索引字段为Clientld,索引表达式为Clientld,索
9、引类型为主索引 Cooperate表：索引字段为Cooperateld,索引表达式为Cooperateld,索引类型为主索引 WarnType表：索引字段为WTypeld,索引表达式为WTypeld,索引类型为主索引 Warning表：索引字段为Warnld,索引表达式为Warnld,索引类型为主索引3. 5系统实现 主要模块及其核心代码如下：（1）客户类型管理模块：添加客户类型界面：核心代码：Public Function AddNew(Optional strName As String =_Optional IngSuperlD As Long = 1) As gxcAddNew If
10、ExistByName (Cli 己 nt Type, ，/TypeName，/, st rName) ThenAddNew = Dup1i c at eName_AddNewExit FunctionEnd IfIf IngSuperlD 0 ThenIf ExistBylD(ClientType, Typeld, IngSuperlD) = False Then AddNew = SuperNotExistExit FunctionEnd IfEnd IfIf strName Then He. TypeName = strNameIf IngSuperlD 一1 Then Me. Supe
11、rlD = IngSuperlD *Dim strSQL As StringDim ErrMsg As StringstrSQL 二INSERT INTO ClientType(Superld, TypeName) ”strSQL 二 strSQL & ” VALUESC & IngSuperlDstrSQL 二 strSQL & ”、& strName &strSQL = strSQL & ”、”If RunSql (strSQL, ErrMsg) ThenMe. ID = MaxIDCClientType, TypeId)AddNew = AddNewOKElseAddNew = AddN
12、ewFailEnd IfEnd Function（2）客户管理模块: 客户信息管理模块： 添加客户界面：核心代码：Public Function AddNew(Optional ByVai strName As String =Optional ByVai intAge As Integer = 0,Optional varSex As gxcSex = 一1, Optional IngTypeld As Long = 0) As BooleanOn Error Resume Next如果参数为缺省值，即未传入，则直接调用类中的参数，否则调用传入的参数If strName Then Me. N
13、ame = strNameIf intAge 0 Then Me. Age = intAgeIf varSex 1 Then Me. Sex = varSexIf IngTypeld 0 Then Me. TypelD = IngTypeldDim strSQL As Stringg_Conn. BeginTrans开始一个事务，以免费得到的ID值已被其它客户端所使用此处调用Next ID方法，得到该类对应的数据表的下一个ID,即最人ID+1Me. ID 二 NextlDClientlnfo, ClientId)Me. Typ eName = GetValueBylD (，ZC1 ie nt
14、Type, Typeld, Me. TypelD, TypeName)构造SQL语句，注意需调用RealString去除字符串中的单引号，以及一些SQL语法的关键词加strSQL strSQL strSQL strSQL strSQL strSQL strSQL strSQL strSQL strSQL strSQL strSQL strSQL strSQL strSQL strSQL strSQL strSQL strSQL strSQL strSQL strSQL strSQL strSQL strSQL strSQL strSQL strSQL strSQL/zInser t into Client Info (Name, Age, Sex, Typeld, Mobile, Email, OfficePhone,HomePhone, Fax, HomeAddress, MailAddress, ZipCode, Birthday,BirthdayWarn, Work, Position, Company,Likes, Hate, Remark, ImportancE, Friendly,VALUES C& RealString(mvarN
