客户信息管理系统课程设计(数据库及其应用)

客户信息管理系统课程设计(数据库及其应用)

ID:28187359

大小:402.29 KB

页数:11页

时间:2018-12-07

客户信息管理系统课程设计(数据库及其应用)_第1页
客户信息管理系统课程设计(数据库及其应用)_第2页
客户信息管理系统课程设计(数据库及其应用)_第3页
客户信息管理系统课程设计(数据库及其应用)_第4页
客户信息管理系统课程设计(数据库及其应用)_第5页
资源描述:

《客户信息管理系统课程设计(数据库及其应用)》由会员上传分享,免费在线阅读,更多相关内容在学术论文-天天文库

1、数据库及其应用II课程设计报告客户信息管理系统指导老师:报告撰写:一、设计的主要目的1.通过实践,使学生建立对数据库设计的认知;2.通过对某小型信息系统的数据库的没计,使学生掌握数据库设计的主要步骤和方法,提升学生解决实际问题的能力;3.使学生学会在一个实际的RDBMS软件平台上创建数据库;4.培养学生的团队合作精祌。二、主要内容和要求1.根据所选择题目,进行调查分析2.在调查分析的基础上,进行数据库设计3.在SQLServer2000上创建数据库,并结合VB6.0实现设计结果4.撰写数据库设计各个阶段的详细设计报告5.写出收获和体会

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

3、1)概念结构设计现在对上述需求做进一步的分析,产生概念结构设计的E—R模型。由于这个系统比较简单,因此就采用自顶14下的设计方法,就是首先确定系统的核心活动:查询功能。对于管理员和客户之间,便是通过查询发生联系的。至此,本系统包含的实体有:客户一一用于描述一名客户的基本信息,以姓名来标识管理员一一用于描述一名管理员的基本信息,以用户名來标识由于一名管理员能查找多名客户信息,并且一名客户信息能被多个管理员查找。因此,管理员和客户之间的联系是多对多的。其基本E—R模型如下图:(2)逻辑结构设计根据转换规则,这个E—R模型转换的关系模式为:

4、客户(姓名,性别,生日,年龄,手机号码,职务,所在单位,家庭住址,固定电话,兴趣爱好)管理员(用户名、管理级别)最后根据关系模式建立相应的kh表和oper表(3)数据库行为设计1.安全设置:其管理员具有操作系统的全部权限2.数据操作功能:包括对数据的录入、删除、修改功能3.生成报表:kh表(姓名,性别……),oper表(用户名……)六、设计答辩部分(1)系统结构流程图:(2)设计方法首先通过登录窗口会员信息管理系统确定取消主要代码部分:PrivateSubCommandl_Click()DimmrcAsAdodb.Recordsett

5、xtsql"select*fromoperwhere用户名=’"&Trim$(Textl(O).Text)&’…’&"and口令&Trim$(Textl(l).Text)+"•"Setmrc=exesql(txtsql)Ifmrc.RecordCount=0Thenn=n+1Ifn<3ThenMsgBox”没有这个用户,继续登录",vbOKOnly+vbExclamation,n信息提示”Textl(O).Text="”Textl(l).Text=,H,Text1(0).SetfocusElseMsgBoxM登录失败三次,退出系统",

6、vbOKOnly+vbExclamation,n信息提示”mrc.CloseUnloadMeEndIfElseuserlevel=tram(mrc.Fields("级别”))mrc.CloseUnloadMemain.ShowvbModalEndIfEndSub其中有不满足登录条件重新登录,失败三次退山系统的设ir登录后即进入主菜甲PrivateSubForm_Load()Ifuserlevel<>n系统管理员nThenCommand3.Enabled=FalseCommand4.Enabled=FalseEndIfEndSub“编辑

7、客户按钮”连接edkh编辑窗体“査询客户按钮”连接qukh査询窗体以下为“系统初始化”设计PrivateSubCommandl_Click()edkh.ShowvbModalEndSubPrivateSubcommand2_click()qukh.ShowvbModalEndSubPrivateSubCommand3_Click()setuser.ShowvbModalEndSubPrivateSubCommand4_Click()IfMsgBox("本功能要清除系统巾所有的数据,真的要初始化吗?",vbYesNo,"确认初始化操作n

8、)=vbYesThenCalldeldatafkhb”)清除客户表中全部信息CalldeldataC'oper")清除oper表中全部信息MsgBox”系统初始化完毕,下次只能显示以1234/1234(用户名/门令)进入

当前文档最多预览五页,下载文档查看全文

此文档下载收益归作者所有

当前文档最多预览五页,下载文档查看全文
温馨提示:
1. 部分包含数学公式或PPT动画的文件,查看预览时可能会显示错乱或异常,文件下载后无此问题,请放心下载。
2. 本文档由用户上传,版权归属用户,天天文库负责整理代发布。如果您对本文档版权有争议请及时联系客服。
3. 下载前请仔细阅读文档内容,确认文档内容符合您的需求后进行下载,若出现内容与标题不符可向本站投诉处理。
4. 下载文档时可能由于网络波动等原因无法下载或下载错误,付费完成后未能成功下载的用户请联系客服处理。