客户信息管理系统课程设计Word文档下载推荐.docx
- 文档编号:14096558
- 上传时间:2022-10-18
- 格式:DOCX
- 页数:11
- 大小:101.23KB
客户信息管理系统课程设计Word文档下载推荐.docx
《客户信息管理系统课程设计Word文档下载推荐.docx》由会员分享,可在线阅读,更多相关《客户信息管理系统课程设计Word文档下载推荐.docx(11页珍藏版)》请在冰豆网上搜索。
三、设计组织安排
设计时间:
设计班级:
设计分组:
设计报告提交:
四、成员情况
五、数据库分析与设计
需求说明
要实现一个客户信息管理系统,在此系统中只涉及到对客户和管理员两个实体的管理,此系统要求能够记录客户的基本信息和信息的查询。
经过对客户的具体数据的管理,这样能够更好地实现任何企业及活动单位VIP会员的加入并确保其身份的真实、安全性。
其系统的具体要求如下:
1.客户基本信息的录入、添加或删去
2.对客户基本信息任意条件查找
3.客户基本信息表的打印
4.系统用户的设置
5.系统初始化
数据库结构设计
(1)概念结构设计
现在对上述需求做进一步的分析,产生概念结构设计的E—R模型。
由于这个系统比较简单,因此就采用自顶向下的设计方法,就是首先确定系统的核心活动:
查询功能。
对于管理员和客户之间,便是经过查询发生联系的。
至此,本系统包含的实体有:
客户——用于描述一名客户的基本信息,以姓名来标识
管理员——用于描述一名管理员的基本信息,以用户名来标识
由于一名管理员能查找多名客户信息,而且一名客户信息能被多个管理员查找。
因此,管理员和客户之间的联系是多对多的。
其基本E—R模型如下图:
(2)逻辑结构设计
根据转换规则,这个E—R模型转换的关系模式为:
客户(姓名,性别,生日,年龄,手机号码,职务,所在单位,家庭住址,固定电话,兴趣爱好)
管理员(用户名、管理级别)
最后根据关系模式建立相应的kh表和oper表
(3)数据库行为设计
1.安全设置:
其管理员具有操作系统的全部权限
2.数据操作功能:
包括对数据的录入、删除、修改功能
3.生成报表:
kh表(姓名,性别……),oper表(用户名……)
六、设计答辩部分
(1)系统结构流程图:
(2)设计方法
首先经过登录窗口
主要代码部分:
PrivateSubCommand1_Click()
DimmrcAsAdodb.Recordset
txtsql"
select*fromoperwhere用户名='
"
&
Trim$(Text1(0).Text)&
"
'
and口令='
Trim$(Text1
(1).Text)+"
Setmrc=exesql(txtsql)
Ifmrc.RecordCount=0Then
n=n+1
Ifn<
3Then
MsgBox"
没有这个用户,继续登录"
vbOKOnly+vbExclamation,"
信息提示"
Text1(0).Text="
Text1
(1).Text="
Text1(0).Setfocus
Else
登录失败三次,退出系统"
mrc.Close
UnloadMe
EndIf
Else
userlevel=tram(mrc.Fields("
级别"
))
main.ShowvbModal
EndIf
EndSub
其中有不满足登录条件重新登录,失败三次退出系统的设计
登录后即进入主菜单
PrivateSubForm_Load()
Ifuserlevel<
>
系统管理员"
Then
Command3.Enabled=False
Command4.Enabled=False
edkh.ShowvbModal”编辑客户按钮”连接edkh编辑窗体
PrivateSubcommand2_click()
qukh.ShowvbModal”查询客户按钮”连接qukh查询窗体
PrivateSubCommand3_Click()
setuser.ShowvbModal
以下为”系统初始化”设计
PrivateSubCommand4_Click()
IfMsgBox("
本功能要清除系统中所有的数据,真的要初始化吗?
vbYesNo,"
确认初始化操作"
)=vbYesThen
Calldeldata("
khb"
)清除客户表中全部信息
oper"
)清除oper表中全部信息
系统初始化完毕,下次只能显示以1234/1234(用户名/口令)进入本系统"
vbOKOnly,"
PrivateSubCommand5_Click()
编辑窗体设计
以客户表为例进行说明,为了编辑其记录,设计了edkh(编辑客户)窗体,在DataGrid中显示所有以输入的客户记录。
用户能够经过”设置记录”框查找相应的客户记录,然后单击”修改”或”删除”按钮,对客户记录进行修改或删除的操作,或单击”添加”按钮输入新的客户记录。
点击”添加会员”
此部分由李健完成设计
任意条件查询代码设计
以qukh表为例,用户输入的客户部分信息对客户进行查找。
只需在qukh窗体中输入个别经过构造条件表示式,实现在VB中输入的数据信息由Ado连接到数据库中的客户表进行查找,即
Adodc1.RecordSourse=”select*fromkhbwhere”+str‘输入查找条件
并使用多次if语句完成对多重条件输入的选择查询;
另外,若不需要任何条件的输入,则可直接调出所有客户的全部信息,即
Adodc1.RecordSourse=”select*fromkhb”此部分由黄先恩完成设计
主要代码如下:
PrivateSubCommand3_Click(indexAsInteger)
IfTrim(Text3.Text)<
IfNotIsDate(Trim(Text3.Text))Then
出生日期错误,应为yyy-mm-dd型"
Text3.TextSetFocus
ExitSub
EndIf此部分为规范日期格式
str="
IfTrim(Text1.Text)<
Ifstr="
str="
姓名='
+Trim(Text1.Text)+"
'
str=str+"
and姓名='
EndIf
IfTrim(Text3.Text)<
Then
出生日期='
+Format(Trim(Text3.Text),"
yyyy.mm.dd"
)+"
and出生日期='
EndIf将生日作为查询条件,以便在客户表中以select语句查找满足条件的客户信息
IfOption1.Value=TrueThen
性别='
男'
and性别='
ElseIfOption2.Value=TrueThen
女'
EndIf此为将性别作查询条件进行查找
EndSub另外还有很多其它条件的输入,这里就不再列举
系统用户设计
IfTrim(Text1(0).Text)="
OrTrim(Text1
(1).Text)="
OrTrim(Combo1.Text)="
数据项不全,请重新设置"
Text1(0).Text.SetFocus
Ifflag=iThen'
添加操作
Ifsetuser.Adodc1.Recordset.RecordCount>
0Then'
源记录个数大于零
cond="
级别='
+Trim(Text1(0).Text)+"
setuser.Adodc1.Recordset.MoveFirst'
每次从头开始查找
setuser.Adodc1.Recordset.Find(cond)
IfNotsetuser.Adodc1.Recordset.EOF()Then
存在完全相同的记录"
Text1(0).SetFocus
EndIf在此设计中,管理员只需在VB窗体中输入
EndIf需要添加的其它注册人信息,此代码能将信息
setuser.Adodc1.Recordset.AddNew直接录入数据库oper表中,过程如下
setuser.Adodc1.Recordset.Field("
用户名"
)=Trim(Text1(0).Text)
口令"
)=Val(Trim(Text1
(1).Text))
用户类型"
)=Trim(Combo1.Text)
setuser.Adodc1.Recordset.Update
recs=recs+1
IfNotsetuser.Adodc1.Recordset.EOF()Andse
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 客户 信息管理 系统 课程设计
![提示](https://static.bdocx.com/images/bang_tan.gif)