客户信息管理系统课程设计

《客户信息管理系统课程设计》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、内蒙古招聘网（www.zp_nmg.com）为您亲情提供数据库及其应用Ⅱ课程设计报告客户信息管理系统指导老师：报告撰写：一、设计的主要目的1.通过实践，使学生建立对数据库设计的认知；2.通过对某小型信息系统的数据库的设计，使学生掌握数据库设计的主要步骤和方法，提升学生解决实际问题的能力；3.使学生学会在一个实际的RDBMS软件平台上创建数据库；4.培养学生的团队合作精神。二、主要内容和要求1.根据所选择题目，进行调查分析2.在调查分析的基础上，进行数据库设计3.在SQL Server 2000上创建数据库，并结合VB6.0实现设计结果4.撰写数据库设计各个阶段的详细设计报告5.写出收获和体

2、会，包括以解决和尚未解决的问题，进一步完善的设想与建议三、设计组织安排设计时间：设计班级：           设计分组：设计报告提交：四、成员情况五、数据库分析与设计需求说明要实现一个客户信息管理系统，在此系统中只涉及到对客户和管理员两个实体的管理，此系统要求能够记录客户的基本信息和信息的查询。通过对客户的具体数据的管理，这样能够更好地实现任何企业及活动单位VIP会员的加入并确保其身份的真实、安全性。其系统的具体要求如下：1.客户基本信息的录入、添加或删去2.对客户基本信息任意条件查找3.客户基本信息表的打印4.系统用户的设置5.系统初始化数据库结构设计（1）概念结构设计内蒙古招聘网ww

3、w.zp_nmg.com内蒙古招聘网（www.zp_nmg.com）为您亲情提供现在对上述需求做进一步的分析，产生概念结构设计的E—R模型。由于这个系统比较简单，因此就采用自顶向下的设计方法，就是首先确定系统的核心活动：查询功能。对于管理员和客户之间，便是通过查询发生联系的。至此，本系统包含的实体有：客户——用于描述一名客户的基本信息，以姓名来标识管理员——用于描述一名管理员的基本信息，以用户名来标识由于一名管理员能查找多名客户信息，并且一名客户信息能被多个管理员查找。因此，管理员和客户之间的联系是多对多的。其基本E—R模型如下图：（2）逻辑结构设计根据转换规则，这个E—R模型转换的关系模

4、式为：客户（姓名，性别，生日，年龄，手机号码，职务，所在单位，家庭住址，固定电话，兴趣爱好）管理员（用户名、管理级别）最后根据关系模式建立相应的kh表和oper表（3）数据库行为设计1.安全设置：其管理员具有操作系统的全部权限2.数据操作功能：包括对数据的录入、删除、修改功能3.生成报表：kh表（姓名，性别……），oper表（用户名……）,计算机范文网www.jsjfw.net,六、设计答辩部分（1）系统结构流程图：（2）设计方法首先通过登录窗口内蒙古招聘网www.zp_nmg.com内蒙古招聘网（www.zp_nmg.com）为您亲情提供主要代码部分：PrivateSubCommand1

5、_Click()DimmrcAsAdodb.Recordsettxtsql"select*fromoperwhere用户名='"&Trim$(Text1(0).Text)&"'"&"and口令='"&Trim$(Text1(1).Text)+"'"Setmrc=exesql(txtsql)Ifmrc.RecordCount=0Thenn=n+1Ifn<3ThenMsgBox"没有这个用户，继续登录",vbOKOnly+vbExclamation,"信息提示"Text1(0).Text=""Text1(1).Text=""Text1(0).SetfocusElseMsgBox"登录失败三次，

6、退出系统",vbOKOnly+vbExclamation,"信息提示"mrc.CloseUnloadMeEndIfElseuserlevel=tram(mrc.Fields("级别"))mrc.CloseUnloadMemain.ShowvbModalEndIfEndSub其中有不满足登录条件重新登录，失败三次退出系统的设计登录后即进入主菜单内蒙古招聘网www.zp_nmg.com内蒙古招聘网（www.zp_nmg.com）为您亲情提供PrivateSubForm_Load()Ifuserlevel<>"系统管理员"ThenCommand3.Enabled=FalseCommand4.En

7、abled=FalseEndIfEndSubPrivateSubCommand1_Click()edkh.ShowvbModal“编辑客户按钮”连接edkh编辑窗体EndSubPrivateSubcommand2_click()qukh.ShowvbModal“查询客户按钮”连接qukh查询窗体EndSubPrivateSubCommand3_Click()setuser.ShowvbModalEndSub以下为“系统初