客户资料管理系统.doc

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

1、客户资料管理系统第一部分需求分析本系统用于企业的客户资料管理（专为陕西无线电通信服务中心专用）。主要是对客户的基本资料进行查询，录入，修改，删除等操作。且资料保密，要进行加密措施；还有订购产品的具体备注需进一步管理；客户资料管理的主要功能是将客户的联系方式及定货的具体情况进行管理，以便今后调用，方便即使的了解用户的最新情况。工作界面简洁明快，操作方便。第二部分数据库结构设计及数据词典根据需求分析，将数据库的结构设计为一库三表，数据库为ACCESS。客户资料管理系统密码表用户表备注表（1）密码表a、表结构：字段名数据类型字段

2、大小必须字段允许空字符串索引用户名文本15是否否密码文本20是否否b、数据词典：用户名=管理员随意起的名字可是汉字或字母或数字，定为1531密码=进入系统的口令，最长为20个字符（1）用户表：a、表结构：字段名数据类型字段大小必须字段允许空字符串索引序号长整形是否是名称文本30是否否行业类型文本15是否否级别文本10是否否地址文本50否是否联系人文本8否否否联系电话文本15否是否联系电话2文本15否是否手机文本15否是否b、数据字典：序号=记录所在的位置名称=客户所在的单位，1~15个字行业类型=客户所在单位的类别，1~7

3、个字级别=客户的分类，1~5个字地址=客户所在单位的具体地址，1~25个字联系人=负责人，1~4个字联系电话（联系电话2，手机）=联系方式，15个数字（2）备注表：31a、表结构：字段名数据类型字段大小必须字段允许空字符串索引序号长整型是否否日期文本20是否否设备名称文本30是否否单价文本8是否否数量文本10是否否频率文本15是否否b、数据词典：序号=和用户表相同，作为连接用日期=记录购买时间设备名称=允许1~15个字单价=从1到100000.00数量=购买产品的数量，1~1000000000频率=产品的频率第三部分数据流

4、分析本系统只是对客户资料进行管理，没有统计分析、数据汇总等操作要求，数据流图为：31查询记录录入记录通过验证用户表密码验证资料管理系统修改记录备注表密码表删除记录更改密码数据流程图第四部分系统总体设计通过以上分析，可以得到系统分析结构图如下：31启动用户登陆资料查询资料录入资料管理密码更改退出资料删除资料修改资料浏览系统总体结构设计图第五部分系统程序设计一、启动界面1、启动程序的设计要求这里对于启动程序的设计要求如下：（1）启动工作界面美观大方；（2）在启动界面进行用户类型判断；（3）对下级的调用方便；（4）关闭最大、最小

5、化按钮，以防止误操作；2、启动程序工作界面a、控件设置31控件名称作用Lable1~Lable2显示各项操作名称Text1~Text2输入密码相关数据Command1密码检测并进入下一级Command2退出系统Option1~Option2用户类别选择Data1与数据库连接a、控件主要属性控件名称属性值Lable1Caption用户名:EnabledFalseLable2Caption密码:EnabledFalseCommand1Caption确定EnabledFalseCommand2Caption退出Option1Ca

6、ption一般用户Option2Caption管理员Data1DatabasenameApp.path+”/”+”客户资料管理系统”DataSource密码表31Text1EnabledFalseText2EnabledFalse3﹑程序设计(1)关闭最大化﹑最小化按钮要关闭最大化最小化按钮只要将窗体的MaxButton属性和MinButton属性值设为False即可．(2)用户类别选择一般用户可直接进入查询界面,进行相关内容的查询,但不能修改.管理员可通过用户名,密码的正确输入进入主界面,可进行内容查询,资料录入,资料管

7、理,更改密码等操作.事件过程过程名类型执行条件作用Option1_Click事件过程单击窗体确定用户为一般用户Option2_Click事件过程单击窗体确定用户为管理员Option1_Keypress事件过程窗体有键按下Command1聚焦Option2_Keypress事件过程窗体有键按下Text1聚焦Text1_Keypress事件过程窗体有键按下Text2聚焦Text2_keypress事件过程窗体有键按下Command1聚焦Command1_Click事件过程单击窗体进行用户判断Command2_Click事件过程

8、单击窗体退出系统4﹑工作流程图:31本窗体装入用户登陆用户类型判断管理员一般用户查询界面显示各标签点击执行相应操作标签点击执行相应操作程序清单:ConstMAX_LOGON_ATTEMPTSAsInteger=3PrivateSubcmdok_Click()IfOption1.Value=TrueThe