delphi課程設(shè)計(jì)-甜品店會(huì)員管理系統(tǒng)

1、目 錄123軟件的模塊結(jié)構(gòu)介紹333.2 商品信息操作模塊33.3 會(huì)員信息操作模塊33.4 打印報(bào)表功能模塊4456665.3 商品信息操作模塊代碼實(shí)現(xiàn)777785.4.1 會(huì)員查詢功能模塊代碼實(shí)現(xiàn)85.4.2 會(huì)員添加代碼實(shí)現(xiàn)9910101113136.3.2 商品添加1516176.4 會(huì)員操作模塊運(yùn)行窗口196.4.1 會(huì)員查詢192021個(gè)人心得與體會(huì)22 會(huì)員管理系統(tǒng)Member management system或者Vip Manages，是指企業(yè)用于對(duì)會(huì)員進(jìn)行有效管理的IT系統(tǒng)。通過(guò)會(huì)員管理系統(tǒng)，企業(yè)就可以記錄所有會(huì)員客戶的資料，了解用戶的興趣愛(ài)好、消費(fèi)特點(diǎn)、意向需求 等；同時(shí)

2、針對(duì)客戶的需求，為其提供優(yōu)質(zhì)的個(gè)性化效勞；會(huì)員管理系統(tǒng)還能為企業(yè)的產(chǎn)品開(kāi)發(fā)、事業(yè)開(kāi)展提供可靠的市場(chǎng)調(diào)研數(shù)據(jù)，是企業(yè)經(jīng)營(yíng)不可或缺的一個(gè)有利工具。會(huì)員系統(tǒng)管理的第一階段是實(shí)現(xiàn)對(duì)會(huì)員信息、交易的管理，能夠發(fā)行會(huì)員卡，分會(huì)員等級(jí)，返回積分等?，F(xiàn)在廣泛被使用的會(huì)員管理系統(tǒng)普遍是第一階段，比擬典型的有回頭客單機(jī)版。隨著互聯(lián)網(wǎng)技術(shù)的出現(xiàn)，新一代的會(huì)員管理系統(tǒng)不僅能實(shí)現(xiàn)管理和交易，而且開(kāi)始對(duì)會(huì)員進(jìn)行更精準(zhǔn)的分類，根據(jù)分類對(duì)不同的會(huì)員開(kāi)展針對(duì)性的營(yíng)銷和關(guān)心，真正提高會(huì)員忠誠(chéng)度，為企業(yè)創(chuàng)造價(jià)值。 我所設(shè)計(jì)的甜品店會(huì)員管理系統(tǒng)是一個(gè)基于delphi7.0和SQL server2005運(yùn)行的會(huì)員管理系統(tǒng)。甜品店會(huì)員管

3、理系統(tǒng)可以實(shí)現(xiàn)商品的添加、刪除、查詢、修改以及會(huì)員的登陸、注冊(cè)、添加、刪除、查詢、和會(huì)員信息的修改及消費(fèi)積分的查詢。除以上兩大重要功能外，還能實(shí)現(xiàn)打印報(bào)表等根本功能。甜品店會(huì)員管理系統(tǒng)有以下幾大優(yōu)勢(shì)： 1、建立長(zhǎng)期穩(wěn)定的消費(fèi)市場(chǎng) 2、培養(yǎng)大批品牌忠誠(chéng)者 3、加強(qiáng)企業(yè)與會(huì)員之間互動(dòng)交流，改良產(chǎn)品 4、提高新產(chǎn)品開(kāi)發(fā)能力和效勞能力 5、市場(chǎng)消費(fèi)的第一手資料 6、維護(hù)新客戶，留住回頭客 系統(tǒng)創(chuàng)立一個(gè)會(huì)員及商品信息數(shù)據(jù)庫(kù)，當(dāng)中包含有兩個(gè)數(shù)據(jù)表：表1 商品信息表、表2會(huì)員信息表。兩個(gè)表的結(jié)構(gòu)如下所示： 表1 商品信息表列名數(shù)據(jù)類型允許null值商品編號(hào)int否商品名稱nchar否商品價(jià)格float否 表

4、1表2 會(huì)員信息表 列名數(shù)據(jù)類型允許null值會(huì)員卡號(hào)int否會(huì)員姓名nchar否會(huì)員登陸密碼nchar否會(huì)員消費(fèi)Float是會(huì)員積分int是聯(lián)系方式nchar否表2功能模塊圖如下列圖3所示 甜品店會(huì)員管理系統(tǒng) 商品修改商品刪除商品添加商品查詢會(huì)員添加會(huì)員刪除積分記錄會(huì)員信息操作商品信息操作會(huì)員查詢 圖33軟件的模塊結(jié)構(gòu)介紹登錄模塊是管理系統(tǒng)的必要模塊之一，在用戶進(jìn)入主界面前必須進(jìn)行身份驗(yàn)證，用戶輸入用戶名和密碼，假設(shè)輸入正確那么用戶進(jìn)入主界面。當(dāng)你是一個(gè)新用戶時(shí)首先要進(jìn)行注冊(cè)，對(duì)個(gè)人信息注冊(cè)完畢后再登錄該系統(tǒng)。3.2 商品信息操作模塊 商品信息操作模塊包括四個(gè)功能模塊：商品查詢模塊、商品添加

5、模塊、商品刪除模塊、商品修改模塊。 商品查詢模塊功能如下：當(dāng)用戶輸入商品編號(hào)和商品名稱時(shí)，點(diǎn)擊按鈕查詢到商品的價(jià)格。 商品添加模塊功能如下：當(dāng)有一種新的商品需要添加進(jìn)柜臺(tái)時(shí)，將它的商品編號(hào)，商品名稱，商品價(jià)格輸入信息框，點(diǎn)擊按鈕即可添加新的商品信息。 商品刪除模塊功能如下：當(dāng)想要?jiǎng)h除某一種商品時(shí)，輸入商品的編號(hào)及名稱，點(diǎn)擊按鈕即可刪除掉此商品的所有信息。 商品修改模塊功能如下：如果您想修改某一件商品的價(jià)格，將它的編號(hào)及姓名輸入，新的商品價(jià)格輸入，點(diǎn)擊按鈕，就可以將商品的新信息導(dǎo)入。3.3 會(huì)員信息操作模塊 會(huì)員信息操作模塊也包括四個(gè)功能模塊：會(huì)員查詢模塊、會(huì)員添加模塊、會(huì)員刪除模塊以及會(huì)員積分

6、記錄模塊。會(huì)員查詢模塊功能如下：輸入會(huì)員的會(huì)員卡號(hào)與會(huì)員姓名，點(diǎn)擊按鈕，即可獲取此會(huì)員的所有個(gè)人信息，如聯(lián)系方式和積分情況。會(huì)員添加模塊功能如下：如果管理員想添加新用戶，將新增的會(huì)員卡號(hào)與會(huì)員姓名輸入，假設(shè)數(shù)據(jù)庫(kù)中無(wú)此會(huì)員，那么會(huì)員輸入密碼，并再次輸入密碼，假設(shè)兩次密碼相同，提示會(huì)員添加成功。否那么提示會(huì)員已存在。會(huì)員刪除模塊功能如下：輸入會(huì)員的會(huì)員卡號(hào)與會(huì)員姓名，當(dāng)按確認(rèn)按鈕時(shí)刪除此會(huì)員所有信息；按取消按鈕那么取消刪除操作。積分記錄模塊功能如下：積分記錄中有兩個(gè)重要操作，其一為積分查詢，其二為積分清零。輸入會(huì)員卡號(hào)與會(huì)員姓名，查詢其積分并選擇是否將用戶積分清零。 3.4 打印報(bào)表功能模塊 用

7、戶可以將商品信息表或者會(huì)員信息表通過(guò)打印機(jī)打印出來(lái)。 點(diǎn)擊按鈕，管理員退出管理系統(tǒng)。 開(kāi)始 登錄窗口 NO信息正確確？確 YES 退出系統(tǒng)打印報(bào)表會(huì)員操作商品操作 進(jìn)入主界面 圖45.主要功能的實(shí)現(xiàn)代碼 5.1登陸實(shí)現(xiàn)代碼 procedure TForm2.Button1Click(Sender: TObject);beginif datamodule16.ADOTable2.Locate('會(huì)員卡號(hào);會(huì)員登錄密碼',vararrayof(edit1.Text,edit2.Text),)then form2.ModalResult:=10 else showmessage(&#

8、39;您輸入的密碼不正確，或者用戶不存在，請(qǐng)注冊(cè)，');end;procedure TForm2.Button2Click(Sender: TObject);beginapplication.CreateForm(tform9,form9);application.Run;end;beginif datamodule16.ADOTable2.Locate('會(huì)員卡號(hào);會(huì)員姓名',vararrayof(edit1.Text,edit2.Text ),) then showmessage('用戶已存在') else if form9.Edit3.Text =

9、form9.Edit4.Text then showmessage('用戶注冊(cè)成功') else begin showmessage('您兩次輸入的密碼不正確，請(qǐng)重新輸入'); datamodule16.ADOTable2.Insert; datamodule16.ADOTable2.FieldByName('會(huì)員卡號(hào)').Value:=(edit1.Text); datamodule16.ADOTable2.FieldByName('會(huì)員姓名').Value:=(edit2.Text); datamodule16.ADOTabl

10、e2.FieldByName('會(huì)員登錄密碼').Value:=(edit3.Text); datamodule16.ADOTable2.Post;5.3 商品信息操作模塊代碼實(shí)現(xiàn)beginif datamodule16.ADOTable1.Locate('商品編號(hào);商品名稱',vararrayof(edit1.Text,edit3.Text),) thenshowmessage('您所查找的商品價(jià)格為'+inttostr(datamodule16.ADOTable1'商品價(jià)格')elsebeginshowmessage('

11、;沒(méi)有找到您需要的商品');datamodule16.ADOTable1.Delete;end;5.3.2商品添加功能實(shí)現(xiàn)代碼 procedure TForm11.Button1Click(Sender: TObject);beginif datamodule16.ADOTable1.Locate('商品編號(hào);商品名稱',vararrayof(edit1.Text,edit2.Text),)then showmessage('此商品已存在') else begin showmessage('已成功添加新商品'); datamodule16

12、.ADOTable1.Insert; datamodule16.ADOTable1.FieldByName('商品編號(hào)').Value:=(edit1.Text); datamodule16.ADOTable1.FieldByName('商品名稱').Value:=(edit2.Text); datamodule16.ADOTable1.FieldByName('商品價(jià)格').Value:=(edit3.Text); datamodule16.ADOTable1.Post; end; end; end. procedure TForm13.But

13、ton1Click(Sender: TObject);begin datamodule16.ADOTable1.Open; if datamodule16.ADOTable1.Locate('商品編號(hào);商品名稱',vararrayof(edit1.Text, edit2.Text),)then begin showmessage('查找到此商品，您確認(rèn)刪除此商品的所有信息么？'); datamodule16.ADOTable1.Delete; end else showmessage('此商品不存在'); end; end. procedure

14、TForm14.Button1Click(Sender: TObject);beginif datamodule16.ADOTable1.Locate('商品編號(hào);商品名稱',vararrayof(edit1.Text,edit2.Text),) thenshowmessage('您查找到此商品，商品價(jià)格修改成功')elsebegin showmessage('沒(méi)有您所查找的商品'); datamodule16.ADOTable1.Open; datamodule16.ADOTable1.Edit; datamodule16.ADOTable1.

15、Delete; datamodule16.ADOTable1.Insert; datamodule16.ADOTable1.FieldByName('商品價(jià)格').Value:=(edit3.Text); datamodule16.ADOTable1.Post;end;end;end.end. 5.4會(huì)員信息操作模塊代碼實(shí)現(xiàn) 5.4.1 會(huì)員查詢功能模塊代碼實(shí)現(xiàn) procedure TForm6.Button1Click(Sender: TObject);beginif datamodule16.ADOTable2.Locate('會(huì)員卡號(hào);會(huì)員姓名',vara

16、rrayof(edit1.Text,edit2.Text),)then showmessage('查找到此會(huì)員，是否獲取根本信息？'); form4:=tform4.Create(application); form4.show; form4.Edit1.Text:=datamodule16.ADOTable2'會(huì)員卡號(hào)' form4.Edit2.Text:=datamodule16.ADOTable2'會(huì)員姓名' form4.Edit3.Text:=datamodule16.ADOTable2'會(huì)員積分' form4.Edit4

17、.Text:=datamodule16.ADOTable2'聯(lián)系方式'end;end. 5.4.2 會(huì)員添加代碼實(shí)現(xiàn) procedure TForm9.Button1Click(Sender: TObject);beginif datamodule16.ADOTable2.Locate('會(huì)員卡號(hào);會(huì)員姓名',vararrayof(edit1.Text,edit2.Text ),) then showmessage('用戶已存在') else if form9.Edit3.Text =form9.Edit4.Text then showmessa

18、ge('用戶注冊(cè)成功') else begin showmessage('您兩次輸入的密碼不正確，請(qǐng)重新輸入'); datamodule16.ADOTable2.Insert; datamodule16.ADOTable2.FieldByName('會(huì)員卡號(hào)').Value:=(edit1.Text); datamodule16.ADOTable2.FieldByName('會(huì)員姓名').Value:=(edit2.Text); datamodule16.ADOTable2.FieldByName('會(huì)員登錄密碼'

19、).Value:=(edit3.Text); datamodule16.ADOTable2.Post; end; end; Ecedure TForm10.Button1Click(Sender: TObject);begin datamodule16.ADOTable2.Open;if datamodule16.ADOTable2.Locate('會(huì)員卡號(hào);會(huì)員姓名',vararrayof(edit1.Text,edit2.Text),)then begin showmessage('查找到此會(huì)員，您確認(rèn)刪除此會(huì)員的所有信息么？'); datamo

20、dule16.ADOTable2.Edit; datamodule16.ADOTable2.Delete; end else showmessage('此會(huì)員不存在'); end;如圖5所示圖5 如圖6所示假設(shè)數(shù)據(jù)庫(kù)中會(huì)員存在那么顯示用戶已存在 圖6假設(shè)用戶注冊(cè)過(guò)程中密碼輸入不一致，那么顯示重新輸入，如圖7。圖7假設(shè)數(shù)據(jù)庫(kù)中不存在此會(huì)員，兩次輸入的密碼相同，那么注冊(cè)成功，顯示用戶注冊(cè)成功，如圖8所示。 圖8輸入商品的編號(hào)和名稱，假設(shè)數(shù)據(jù)庫(kù)中存在此商品那么顯示查詢到的價(jià)格，如圖9所示。 、 圖9 假設(shè)數(shù)據(jù)庫(kù)中無(wú)此商品那么顯示沒(méi)有找到您需要的商品，如圖10所示。 圖10 6.3.2

21、 商品添加將數(shù)據(jù)庫(kù)中沒(méi)有的新商品添參加柜臺(tái)，添加成功如下，如圖11所示。 圖11假設(shè)想刪除商品信息，輸入商品的編號(hào)和名稱，假設(shè)商品存在那么顯示查找到此商品，您確認(rèn)刪除此商品的所有信息么？如圖12所示。 圖12 6.3.4商品信息修改 假設(shè)想修改商品信息，正確輸入商品的名稱或者編號(hào)，可修改商品價(jià)格或者商品名稱。 如圖13所示。 圖13假設(shè)商品不存在那么顯示沒(méi)有您所查找的商品。如圖14所示。圖146.4 會(huì)員操作模塊運(yùn)行窗口6.4.1 會(huì)員查詢輸入會(huì)員卡號(hào)與會(huì)員姓名，點(diǎn)擊按鈕即可獲取會(huì)員根本信息。否那么顯示此會(huì)員不存在。如圖15所示。圖15輸入會(huì)員卡號(hào)與會(huì)員姓名，假設(shè)此會(huì)員存在那么顯示查找到此會(huì)員，您確認(rèn)刪除此會(huì)員的所有信息么？，點(diǎn)擊ok即可刪除相關(guān)信息。否那么，顯示會(huì)員不存在。如圖16所示。圖16點(diǎn)擊打印或者打印預(yù)覽按鈕，可查看打印效果。打印報(bào)表運(yùn)行窗體如下列圖17所示。圖17 個(gè)人心得與體會(huì) 工程文件里的窗體是自動(dòng)創(chuàng)立，用于主窗體之前的封面窗體和登陸窗體；而單元文件里的窗體不是自動(dòng)創(chuàng)立，用于主窗體之后的窗體，假設(shè)想創(chuàng)立窗體需要參加如下創(chuàng)立語(yǔ)句。刪除信息時(shí)，只需delete，不需要再post。 DataModule 本身就是一個(gè)類, 多了一個(gè)外觀而已, 這樣只是為了可視, 或者換句話說(shuō)它跟 TFoo/TVeecile/TCar這些東西沒(méi)什么區(qū)