delphi课程设计甜品店会员管理系统Word文件下载.docx
《delphi课程设计甜品店会员管理系统Word文件下载.docx》由会员分享，可在线阅读，更多相关《delphi课程设计甜品店会员管理系统Word文件下载.docx（25页珍藏版）》请在冰豆网上搜索。
6.3.4商品信息修改17
6.4会员操作模块运行窗口19
6.4.1会员查询19
6.4.2会员删除20
6.5打印报表21
个人心得与体会22
1.系统介绍
会员管理系统（Membermanagementsystem或者VipManages），是指企业用于对会员进行有效管理的IT系统。
通过会员管理系统，企业就可以记录所有会员客户的资料，了解用户的兴趣爱好、消费特点、意向需求等；
同时针对客户的需求，为其提供优质的个性化服务；
会员管理系统还能为企业的产品开发、事业发展提供可靠的市场调研数据，是企业经营不可或缺的一个有利工具。
会员系统管理的第一阶段是实现对会员信息、交易的管理，能够发行会员卡，分会员等级，返回积分等。
现在广泛被使用的会员管理系统普遍是第一阶段，比较典型的有回头客单机版。
随着互联网技术的出现，新一代的会员管理系统不仅能实现管理和交易，而且开始对会员进行更精准的分类，根据分类对不同的会员开展针对性的营销和关怀，真正提高会员忠诚度，为企业创造价值。
我所设计的甜品店会员管理系统是一个基于delphi7.0和SQLserver2005运行的会员管理系统。
甜品店会员管理系统可以实现商品的添加、删除、查询、修改以及会员的登陆、注册、添加、删除、查询、和会员信息的修改及消费积分的查询。
除以上两大重要功能外，还能实现打印报表等基本功能。
甜品店会员管理系统有以下几大优势：
1、建立长期稳定的消费市场
2、培养大批品牌忠诚者
3、加强企业与会员之间互动交流，改进产品
4、提高新产品开发能力和服务能力
5、市场消费的第一手资料
6、维护新客户，留住回头客
2.数据库表的结构描述及其关系
系统创建一个会员及商品信息数据库，当中包含有两个数据表：
表1商品信息表、表2会员信息表。
两个表的结构如下所示：
表1商品信息表
列名
数据类型
允许null值
商品编号
int
否
商品名称
nchar
商品价格
float
表1
表2会员信息表
会员卡号
会员姓名
会员登陆密码
会员消费
Float
是
会员积分
联系方式
表2
功能模块图如下图3所示
图3
3软件的模块结构介绍
3.1登录模块
登录模块是管理系统的必要模块之一，在用户进入主界面前必须进行身份验证，用户输入用户名和密码，若输入正确则用户进入主界面。
当你是一个新用户时首先要进行注册，对个人信息注册完毕后再登录该系统。
3.2商品信息操作模块
商品信息操作模块包括四个功能模块：
商品查询模块、商品添加模块、商品删除模块、商品修改模块。
商品查询模块功能如下：
当用户输入商品编号和商品名称时，点击按钮查询到商品的价格。
商品添加模块功能如下：
当有一种新的商品需要添加进柜台时，将它的商品编号，商品名称，商品价格输入信息框，点击按钮即可添加新的商品信息。
商品删除模块功能如下：
当想要删除某一种商品时，输入商品的编号及名称，点击按钮即可删除掉此商品的所有信息。
商品修改模块功能如下：
如果您想修改某一件商品的价格，将它的编号及姓名输入，新的商品价格输入，点击按钮，就可以将商品的新信息导入。
3.3会员信息操作模块
会员信息操作模块也包括四个功能模块：
会员查询模块、会员添加模块、会员删除模块以及会员积分记录模块。
会员查询模块功能如下：
输入会员的会员卡号与会员姓名，点击按钮，即可获取此会员的所有个人信息，如联系方式和积分情况。
会员添加模块功能如下：
如果管理员想添加新用户，将新增的会员卡号与会员姓名输入，若数据库中无此会员，则会员输入密码，并再次输入密码，若两次密码相同，提示会员添加成功。
否则提示会员已存在。
会员删除模块功能如下：
输入会员的会员卡号与会员姓名，当按确认按钮时删除此会员所有信息；
按取消按钮则取消删除操作。
积分记录模块功能如下：
积分记录中有两个重要操作，其一为积分查询，其二为积分清零。
输入会员卡号与会员姓名，查询其积分并选择是否将用户积分清零。
3.4打印报表功能模块
用户可以将商品信息表或者会员信息表通过打印机打印出来。
3.5退出系统功能模块
点击按钮，管理员退出管理系统。
4.主要功能模块的流程图
NO
YES
图4
5.主要功能的实现代码
5.1登陆实现代码
procedureTForm2.Button1Click（Sender:
TObject）;
begin
ifdatamodule16.ADOTable2.Locate（'
会员卡号;
会员登录密码'
vararrayof（[edit1.Text,edit2.Text]）,[]）then
form2.ModalResult:
=10
else
showmessage（'
您输入的密码不正确，或者用户不存在，请注册，'
）;
end;
procedureTForm2.Button2Click（Sender:
application.CreateForm（tform9,form9）;
application.Run;
5.2注册实现代码
会员姓名'
vararrayof（[edit1.Text,edit2.Text]）,[]）then
用户已存在'
）
elseifform9.Edit3.Text=form9.Edit4.Textthen
用户注册成功'
begin
您两次输入的密码不正确，请重新输入'
datamodule16.ADOTable2.Insert;
datamodule16.ADOTable2.FieldByName（'
会员卡号'
）.Value:
=（edit1.Text）;
=（edit2.Text）;
=（edit3.Text）;
datamodule16.ADOTable2.Post;
5.3商品信息操作模块代码实现
5.3.1商品查询功能实现代码
ifdatamodule16.ADOTable1.Locate（'
商品编号;
商品名称'
vararrayof（[edit1.Text,edit3.Text]）,[]）then
showmessage（'
您所查找的商品价格为'
+inttostr（datamodule16.ADOTable1['
商品价格'
]））
else
没有找到您需要的商品'
datamodule16.ADOTable1.Delete;
5.3.2商品添加功能实现代码
procedureTForm11.Button1Click（Sender:
此商品已存在'
已成功添加新商品'
datamodule16.ADOTable1.Insert;
datamodule16.ADOTable1.FieldByName（'
商品编号'
datamodule16.ADOTable1.Post;
end;
end.
5.3.3商品删除功能实现代码
procedureTForm13.Button1Click（Sender:
datamodule16.ADOTable1.Open;
ifdatamodule16.ADOTable1.Locate（'
vararrayof（[edit1.Text,
edit2.Text]）,[]）then
查找到此商品，您确认删除此商品的所有信息么？
'
datamodule16.ADOTable1.Delete;
end
此商品不存在'
5.3.4商品信息修改实现代码
procedureTForm14.Button1Click（Sender:
vararrayof（[edit1.Text,edit2.Text]）,[]）then
您查找到此商品，商品价格修改成功'
没有您所查找的商品'
datamodule16.ADOTable1.Edit;
end.
5.4会员信息操作模块代码实现
5.4.1会员查询功能模块代码实现
procedureTForm6.Button1Click（Sender:
查找到此会员，是否获取基本信息？
form4:
=tform4.Create（application）;
form4.show;
form4.Edit1.Text:
=datamodule16.ADOTable2['
];
form4.Edit2.Text:
form4.Edit3.Text:
会员积分'
form4.Edit4.Text:
联系方式'
end.
5.4.2会员添加代码实现
procedureTForm9.Button1Click（Sender:
End.
5.4.3会员删除代码实现
procedureTForm10.Button1Click（Sender:
datamodule16.ADOTable2.Open;
查找到此会员，您确认删除此会员的所有信息么？
datamodule16.ADOTable2.Edit;
datamodule16.ADOTable2.Delete;
此会员不存在'
6.程序运行效果极其分析
6.1登陆窗口
如图5所示
图5
6.2注册窗口
如图6所示
若数据库中会员存在则显示用户已存在
图6
若用户注册过程中密码输入不一致，则显示重新输入，如图7。
图7
若数据库中不存在此会员，两次输入的密码相同，则注册成功，显示用户注册成功，如图8所示。
图8
6.3商品操作模块
6.3.1商品查询
输入商品的编号和名称，若数据库中存在此商品则显示查询到的价格，如图9所示。
、
图9
若数据库中无此商品则显示没有找到您需要的商品，如图10所示。
图10
6.3.2商品添加
将数据库中没有的新商品添加入柜台，添加成功如下，如图11所示。
图11
6.3.3商品删除
若想删除商品信息，输入商品的编号和名称，若商品存在则显示‘查找到此商品，您确认删除此商品的所有信息么？
如图12所示。
图12
6.3.4商品信息修改
若想修改商品信息，正确输入商品的名称或者编号，可修改商品价格或者商品名称。
如图13所示。
图13
若商品不存在则显示‘没有您所查找的商品’。
如图14所示。
图14
6.4会员操作模块运行窗口
6.4.1会员查询
输入会员卡号与会员姓名，点击按钮即可获取会员基本信息。
否则显示‘此会员不存在’。
如图15所示。
图15
6.4.2会员删除
输入会员卡号与会员姓名，若此会员存在则显示‘查找到此会员，您确认删除此会员的所有信息么？
’，点击ok即可删除相关信息。
否则，显示‘会员不存在’。
如图16所示。
图16
6.5打印报表
点击‘打印’或者‘打印预览按钮’，可查看打印效果。
打印报表运行窗体如下图17所示。
图17
个人心得与体会
项目文件里的窗体是自动创建，用于主窗体之前的封面窗体和登陆窗体；
而单元文件里的窗体不是自动创建，用于主窗体之后的窗体，若想创建窗体需要加入如下创建语句。
删除信息时，只需delete，不需要再post。
DataModule本身就是一个类,多了一个外观而已,这样只是为了可视,或者换句话说它跟TFoo/TVeecile/TCar这些东西没什么区别,所以没必要再定义一个class。
DataModule上面可以放Table/Query,这个只是为了跟数据库打交道也可以定义字典什么的,目的在于让对像的内容保存/或者你说的持久化,或者换句话说你完全可以把TDataModule当作一个TCar来用（实际上这个派生类名已经是由你起的）,可以定义无数个DataModule分别去实现业务逻辑/对像等等,而不是只作为一个放Table/Query的容器。
在存储层中，用table实现insert、update和delete，个人觉得比较简单。
此外还有一些比较实用的代码：
（1）主键：
ALTERTABLEVersionControlInformationDropCONSTRAINTPRIMARYKEY
AltertableVersionControlInformationaddprimarykey（ModulePath）
（2）修改表结构：
AlterTableSB04_2008_CONFIGAddColumnND_B_YNSDSEVarchar（20）
AlterTableSB04_2008_CONFIGdropColumnDE_YNSDSE
（3）装载动态库:
LoadLibrary（Pchar（Appdir+'
DataEncry.dll'
））
（4）如何删除表中的重复记录？
（这里指记录的每个字段都要相同）
selectdistinct*into#tempfromtab
deletefromtab
insertintotabselect*from#temp
droptable#temp
升级会员 