- 1、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。。
- 2、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 3、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
- 4、该文档为VIP文档,如果想要下载,成为VIP会员后,下载免费。
- 5、成为VIP后,下载本文档将扣除1次下载权益。下载后,不支持退款、换文档。如有疑问请联系我们。
- 6、成为VIP后,您将拥有八大权益,权益包括:VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
- 7、VIP文档为合作方或网友上传,每下载1次, 网站将根据用户上传文档的质量评分、类型等,对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档
查看更多
客户信息管理系统课程设计(非论文)
数据库及其应用Ⅱ 课程设计报告
客户信息管理系统
指导老师:
报告撰写:
一、设计的主要目的1. 通过实践,使学生建立对数据库设计的认知; 2. 通过对某小型信息系统的数据库的设计,使学生掌握数据库设计的主要步骤和方法,提升学生解决实际问题的能力; 3. 使学生学会在一个实际的RDBMS软件平台上创建数据库; 4. 培养学生的团队合作精神。
二、主要内容和要求 1. 根据所选择题目,进行调查分析 2. 在调查分析的基础上,进行数据库设计 3. 在SQL?Server?2000上创建数据库,并结合VB 6.0实现设计结果 4. 撰写数据库设计各个阶段的详细设计报告 5. 写出收获和体会,包括以解决和尚未解决的问题,进一步完善的设想与建议
三、设计组织安排 设计时间: 设计班级:???????????
设计分组: 设计报告提交:
四、成员情况
五、数据库分析与设计
需求说明
要实现一个客户信息管理系统,在此系统中只涉及到对客户和管理员两个实体的管理,此系统要求能够记录客户的基本信息和信息的查询。通过对客户的具体数据的管理,这样能够更好地实现任何企业及活动单位VIP会员的加入并确保其身份的真实、安全性。其系统的具体要求如下:
1.客户基本信息的录入、添加或删去
2.对客户基本信息任意条件查找
3.客户基本信息表的打印
4.系统用户的设置
5.系统初始化
数据库结构设计
(1)概念结构设计
现在对上述需求做进一步的分析,产生概念结构设计的E—R模型。由于这个系统比较简单,因此就采用自顶向下的设计方法,就是首先确定系统的核心活动:查询功能。对于管理员和客户之间,便是通过查询发生联系的。至此,本系统包含的实体有:
客户——用于描述一名客户的基本信息,以姓名来标识
管理员——用于描述一名管理员的基本信息,以用户名来标识
由于一名管理员能查找多名客户信息,并且一名客户信息能被多个管理员查找。因此,管理员和客户之间的联系是多对多的。
其基本E—R模型如下图:
(2)逻辑结构设计
根据转换规则,这个E—R模型转换的关系模式为:
客户(姓名,性别,生日,年龄,手机号码,职务,所在单位,家庭住址,固定电话,兴趣爱好)
管理员(用户名、管理级别)
最后根据关系模式建立相应的kh表和oper表
(3)数据库行为设计
安全设置:其管理员具有操作系统的全部权限
数据操作功能:包括对数据的录入、删除、修改功能
生成报表:kh表(姓名,性别……), oper表(用户名……)
六、设计答辩部分
(1)系统结构流程图:
(2)设计方法
首先通过登录窗口
主要代码部分:
Private Sub Command1_Click()
Dim mrc As Adodb.Recordset
txtsql select * from oper where 用户名= Trim$(Text1(0).Text) and 口令= Trim$(Text1(1).Text) +
Set mrc = exesql(txtsql)
If mrc.RecordCount = 0 Then
n = n + 1
If n 3 Then
MsgBox 没有这个用户,继续登录, vbOKOnly + vbExclamation, 信息提示
Text1(0).Text =
Text1(1).Text =
Text1(0).Set focus
Else
MsgBox 登录失败三次,退出系统, vbOKOnly + vbExclamation, 信息提示
mrc.Close
Unload Me
End If
Else
userlevel = tram(mrc.Fields(级别))
mrc.Close
Unload Me
main.Show vbModal
End If
End Sub
其中有不满足登录条件重新登录,失败三次退出系统的设计
登录后即进入主菜单
Private Sub Form_Load()
If userlevel 系统管理员 Then
Command3.Enabled = False
Command4.Enabled = False
End If
End Sub
Private Sub Command1_Click()
edkh.Show vbModal “编辑客户按钮”连接edkh编辑窗体
End Sub
Private Sub command2_click()
qukh.Show vbModal “查询客户按钮”连接qukh查询
文档评论(0)