delphi课程设计甜品店会员管理系统Word文件下载.docx
- 文档编号:18693985
- 上传时间:2022-12-31
- 格式:DOCX
- 页数:25
- 大小:2.90MB
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
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- delphi 课程设计 甜品 会员 管理 系统