客户信息管理系统-设计报告
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
客户信息管理系统-
设计报告
题目：客户信息管理系统
专业： .nte网页1班
学号： 1303110112
姓名：刘冰涛指导教师：胡迎久
3.3逻辑设计
（1）模式转换（E/R to Relational)
ClientType表：
ClientInfo表：
Cooperate表：
WarnType表：
Warning表：
（2）模式规范化
ClientType表、ClientInfo表、Cooperate表、WarnType表、Warning表均已经为BCNF范式
（3）完整性约束设计
实体完整性约束：ClientType表主键为TypeId
ClientInfo表主键为ClientId
Cooperate表主键为CooperateId
WarnType表主键为WTypeId
Warning表主键为WarnId
参照完整性约束：Cooperate表的ClientId参照ClientInfo表主键ClientId
Warning表的TypeId参照ClientType表主键TypeId
（4）外模式设计
建立了一张Client视图，用于显示每位客户的合作、提醒信息，语句如下：Create view Client
as
select CooperateId，ClientId，WarnId，ClientId，TypeName，Name
from ClientType，ClientInfo，Cooperate，Warning
where Cooperate.ClientId=ClientInfo.ClientId and Warning.TypeId=ClientType.TypeId
（5）典型应用设计
客户类型管理模块：添加客户类型，修改客户类型，删除客户类型
客户管理模块：客户信息管理，客户评价管理，客户合作管理
提醒管理模块：查看今日提醒，提醒设置管理
3.4物理设计
内模式设计：主要包括索引、散列、簇集设计
ClientType表：索引字段为TypeId，索引表达式为TypeId，索引类型为主索引ClientInfo表：索引字段为ClientId，索引表达式为ClientId，索引类型为主索引
Cooperate表：索引字段为CooperateId，索引表达式为CooperateId，索引类型为主索引
WarnType表：索引字段为WTypeId，索引表达式为WTypeId，索引类型为主索引Warning表：索引字段为WarnId，索引表达式为WarnId，索引类型为主索引
3.5系统实现
主要模块及其核心代码如下：
（1）客户类型管理模块：
添加客户类型界面：
核心代码：
Public Function AddNew(Optional strName As String = "", _
Optional lngSuperID As Long = -1) As gxcAddNew
If ExistByName("ClientType", "TypeName", strName) Then
AddNew = DuplicateName_AddNew
Exit Function
End If
If lngSuperID <> 0 Then
If ExistByID("ClientType", "TypeId", lngSuperID) = False Then AddNew = SuperNotExist
Exit Function
End If
End If
If strName <> "" Then Me.TypeName = strName
If lngSuperID <> -1 Then Me.SuperID = lngSuperID '
Dim strSQL As String
Dim ErrMsg As String
strSQL = "INSERT INTO ClientType(SuperId, TypeName) "
strSQL = strSQL & " VALUES(" & lngSuperID
strSQL = strSQL & ",'" & strName & "'"
strSQL = strSQL & ")"
If RunSql(strSQL, ErrMsg) Then
Me.ID = MaxID("ClientType", "TypeId")
AddNew = AddNewOK
Else
AddNew = AddNewFail
End If
End Function
（2）客户管理模块：
客户信息管理模块：
添加客户界面：
核心代码：
Public Function AddNew(Optional ByVal strName As String = "", _
Optional ByVal intAge As Integer = 0, _
Optional varSex As gxcSex = -1, _
Optional lngTypeId As Long = 0) As Boolean
On Error Resume Next
'如果参数为缺省值，即未传入，则直接调用类中的参数，否则调用传入的参数