delph i课程设计甜品店会员管理系统

目 录1.系统介绍 .12.数据库表的结构描述及其关系 .23 软件的模块结构介绍 .33.1 登录模块 .33.2 商品信息操作模块 .33.3 会员信息操作模块 .33.4 打印报表功能模块 .43.5 退出系统功能模块 .44.主要功能模块的流程图 .55.主要功能的实现代码 .65.1 登陆实现代码 .65.2 注册实现代码 .65.3 商品信息操作模块代码实现 .75.3.1 商品查询功能实现代码 .75.3.2 商品添加功能实现代码 .75.3.3 商品删除功能实现代码 .75.3.4 商品信息修改实现代码 .85.4.1 会员查询功能模块代码实现 .85.4.2 会员添加代码实现 .95.4.3 会员删除代码实现 .96.程序运行效果极其分析 .106.1 登陆窗口 .106.2 注册窗口 .116.3 商品操作模块 .136.3.1 商品查询 .136.3.2 商品添加 .156.3.3 商品删除 .166.3.4 商品信息修改 .176.4 会员操作模块运行窗口 .196.4.1 会员查询 .196.4.2 会员删除 .206.5 打印报表 .21个人心得与体会 .221.系统介绍会员管理系统（Member management system 或者 Vip Manages） ，是指企业用于对会员进行有效管理的 IT 系统。通过会员管理系统，企业就可以记录所有会员客户的资料，了解用户的兴趣爱好、消费特点、意向需求 等；同时针对客1户的需求，为其提供优质的个性化服务；会员管理系统还能为企业的产品开发、事业发展提供可靠的市场调研数据，是企业经营不可或缺的一个有利工具。会员系统管理的第一阶段是实现对会员信息、交易的管理，能够发行会员卡，分会员等级，返回积分等。现在广泛被使用的会员管理系统普遍是第一阶段，比较典型的有回头客单机版。随着互联网技术的出现，新一代的会员管理系统不仅能实现管理和交易，而且开始对会员进行更精准的分类，根据分类对不同的会员开展针对性的营销和关怀，真正提高会员忠诚度，为企业创造价值。我所设计的甜品店会员管理系统是一个基于 delphi7.0 和 SQL server2005运行的会员管理系统。甜品店会员管理系统可以实现商品的添加、删除、查询、修改以及会员的登陆、注册、添加、删除、查询、和会员信息的修改及消费积分的查询。除以上两大重要功能外，还能实现打印报表等基本功能。甜品店会员管理系统有以下几大优势：1、建立长期稳定的消费市场 2、培养大批品牌忠诚者 3、加强企业与会员之间互动交流，改进产品 4、提高新产品开发能力和服务能力 5、市场消费的第一手资料 6、维护新客户，留住回头客2.数据库表的结构描述及其关系系统创建一个会员及商品信息数据库，当中包含有两个数据表：表 1 商品信息表、表 2 会员信息表。两个表的结构如下所示：表 1 商品信息表2列名 数据类型 允许 null 值商品编号 int 否商品名称 nchar 否商品价格 float 否表 1表 2 会员信息表列名 数据类型 允许 null 值会员卡号 int 否会员姓名 nchar 否会员登陆密码 nchar 否会员消费 Float 是会员积分 int 是联系方式 nchar 否表 2功能模块图如下图 3 所示图 33 软件的模块结构介绍3.1 登录模块登录模块是管理系统的必要模块之一，在用户进入主界面前必须进行身份验证，甜品店会员管理系统商品信息操作 会员信息操作商品查询商品添加商品删除商品修改会员查询积分记录会员删除会员添加3用户输入用户名和密码，若输入正确则用户进入主界面。当你是一个新用户时首先要进行注册，对个人信息注册完毕后再登录该系统。3.2 商品信息操作模块商品信息操作模块包括四个功能模块：商品查询模块、商品添加模块、商品删除模块、商品修改模块。商品查询模块功能如下：当用户输入商品编号和商品名称时，点击按钮查询到商品的价格。商品添加模块功能如下：当有一种新的商品需要添加进柜台时，将它的商品编号，商品名称，商品价格输入信息框，点击按钮即可添加新的商品信息。商品删除模块功能如下：当想要删除某一种商品时，输入商品的编号及名称，点击按钮即可删除掉此商品的所有信息。商品修改模块功能如下：如果您想修改某一件商品的价格，将它的编号及姓名输入，新的商品价格输入，点击按钮，就可以将商品的新信息导入。3.3 会员信息操作模块会员信息操作模块也包括四个功能模块：会员查询模块、会员添加模块、会员删除模块以及会员积分记录模块。会员查询模块功能如下：输入会员的会员卡号与会员姓名，点击按钮，即可获取此会员的所有个人信息，如联系方式和积分情况。会员添加模块功能如下：如果管理员想添加新用户，将新增的会员卡号与会员姓名输入，若数据库中无此会员，则会员输入密码，并再次输入密码，若两次密码相同，提示会员添加成功。否则提示会员已存在。会员删除模块功能如下：输入会员的会员卡号与会员姓名，当按确认按钮时删除此会员所有信息；按取消按钮则取消删除操作。积分记录模块功能如下：积分记录中有两个重要操作，其一为积分查询，其二为积分清零。输入会员卡号与会员姓名，查询其积分并选择是否将用户积分清零。43.4 打印报表功能模块用户可以将商品信息表或者会员信息表通过打印机打印出来。3.5 退出系统功能模块点击按钮，管理员退出管理系统。4.主要功能模块的流程图5NOYES图 4开始登录窗口信息正确确？确进入主界面商品操作会员操作打印报表退出系统65.主要功能的实现代码 5.1 登陆实现代码 procedure TForm2.Button1Click(Sender: TObject);beginif datamodule16.ADOTable2.Locate(会员卡号; 会员登录密码 ,vararrayof(edit1.Text,edit2.Text),)thenform2.ModalResult:=10elseshowmessage(您输入的密码不正确，或者用户不存在，请注册，);end;procedure TForm2.Button2Click(Sender: TObject);beginapplication.CreateForm(tform9,form9);application.Run;end;5.2 注册实现代码beginif datamodule16.ADOTable2.Locate(会员卡号;会员姓名,vararrayof(edit1.Text,edit2.Text ),) thenshowmessage(用户已存在 )else if form9.Edit3.Text =form9.Edit4.Text thenshowmessage(用户注册成功 )elsebeginshowmessage(您两次输入的密码不正确，请重新输入 );datamodule16.ADOTable2.Insert;datamodule16.ADOTable2.FieldByName(会员卡号).Value:=(edit1.Text);datamodule16.ADOTable2.FieldByName(会员姓名).Value:=(edit2.Text);datamodule16.ADOTable2.FieldByName(会员登录密码).Value:=(edit3.Text);datamodule16.ADOTable2.Post;75.3 商品信息操作模块代码实现5.3.1 商品查询功能实现代码beginif datamodule16.ADOTable1.Locate(商品编号;商品名称,vararrayof(edit1.Text,edit3.Text),) thenshowmessage(您所查找的商品价格为 +inttostr(datamodule16.ADOTable1商品价格)elsebeginshowmessage(没有找到您需要的商品 );datamodule16.ADOTable1.Delete;end;5.3.2 商品添加功能实现代码 procedure TForm11.Button1Click(Sender: TObject);beginif datamodule16.ADOTable1.Locate(商品编号;商品名称,vararrayof(edit1.Text,edit2.Text),)thenshowmessage(此商品已存在 )elsebeginshowmessage(已成功添加新商品 );datamodule16.ADOTable1.Insert;datamodule16.ADOTable1.FieldByName(商品编号).Value:=(edit1.Text);datamodule16.ADOTable1.FieldByName(商品名称).Value:=(edit2.Text);datamodule16.ADOTable1.FieldByName(商品价格).Value:=(edit3.Text);datamodule16.ADOTable1.Post;end;end;end. 5.3.3 商品删除功能实现代码procedure TForm13.Button1Click(Sender: TObject);begindatamodule16.ADOTable1.Open;if datamodule16.ADOTable1.Locate(商品编号; 商品名称,vararrayof(edit1.Text,edit2.Text),)thenbeginshowmessage(查找到此商品，您确认删除此商品的所有信息么？);8datamodule16.ADOTable1.Delete;endelseshowmessage(此商品不存在 );end;end. 5.3.4 商品信息修改实现代码procedure TForm14.Button1Click(Sender: TObject);beginif datamodule16.ADOTable1.Locate(商品编号;商品名称,vararrayof(edit1.Text,edit2.Text),) thenshowmessage(您查找到此商品，商品价格修改成功 )elsebeginshowmessage(没有您所查找的商品 );datamodule16.ADOTable1.Open;datamodule16.ADOTable1.Edit;datamodule16.ADOTable1.Delete;datamodule16.ADOTable1.Insert;datamodule16.ADOTable1.FieldByName(商品价格).Value:=(edit3.Text);datamodule16.ADOTable1.Post;end;end;end.end.5.4 会员信息操作模块代码实现 5.4.1 会员查询功能模块代码实现 procedure TForm6.Button1Click(Sender: TObject);beginif datamodule16.ADOTable2.Locate(会员卡号;会员姓名,vararrayof(edit1.Text,edit2.Text),)thenshowmessage(查找到此会员，是否获取基本信息？ );form4:=tform4.Create(application);form4.show;form4.Edit1.Text:=datamodule16.ADOTable2会员卡号;form4.Edit2.Text:=datamodule16.ADOTable2会员姓名;form4.Edit3.Text:=datamodule16.ADOTable2会员积分;form4.Edit4.Text:=datamodule16.ADOTable2联系方式;end;9end. 5.4.2 会员添加代码实现 procedure TForm9.Button1Click(Sender: TObject);beginif datamodule16.ADOTable2.Locate(会员卡号;会员姓名,vararrayof(edit1.Text,edit2.Text ),) thenshowmessage(用户已存在 )else if form9.Edit3.Text =form9.Edit4.Text thenshowmessage(用户注册成功 )elsebeginshowmessage(您两次输入的密码不正确，请重新输入 );datamodule16.ADOTable2.Insert;datamodule16.ADOTable2.FieldByName(会员卡号).Value:=(edit1.Text);datamodule16.ADOTable2.FieldByName(会员姓名).Value:=(edit2.Text);datamodule16.ADOTable2.FieldByName(会员登录密码).Value:=(edit3.Text);datamodule16.ADOTable2.Post;end;end;End.5.4.3 会员删除代码实现proce