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

1、1. 系統(tǒng)介紹 12. 數(shù)據(jù)庫(kù)表的結(jié)構(gòu)描述及其關(guān)系 23軟件的模塊結(jié)構(gòu)介紹 23.1登錄模塊 23.2商品信息操作模塊 33.3會(huì)員信息操作模塊 33.4打印報(bào)表功能模塊 43.5退出系統(tǒng)功能模塊 44. 主要功能模塊的流程圖 45. 主要功能的實(shí)現(xiàn)代碼 65.1登陸實(shí)現(xiàn)代碼 65.2注冊(cè)實(shí)現(xiàn)代碼 65.3商品信息操作模塊代碼實(shí)現(xiàn) 75.3.1商品查詢功能實(shí)現(xiàn)代碼 75.3.2商品添加功能實(shí)現(xiàn)代碼 75.3.3商品刪除功能實(shí)現(xiàn)代碼 75.3.4商品信息修改實(shí)現(xiàn)代碼 85.4.1會(huì)員查詢功能模塊代碼實(shí)現(xiàn) 85.4.2會(huì)員添加代碼實(shí)現(xiàn) 95.4.3會(huì)員刪除代碼實(shí)現(xiàn) 96. 程序運(yùn)行效果極其分析 1

2、06.1登陸窗口 106.2注冊(cè)窗口 116.3商品操作模塊 136.3.1商品查詢 136.3.2商品添加 156.3.3商品刪除 166.3.4商品信息修改 176.4會(huì)員操作模塊運(yùn)行窗口 196.4.1 會(huì)員查詢 196.4.2會(huì)員刪除 206.5打印報(bào)表 21個(gè)人心得與體會(huì) 221. 系統(tǒng)介紹會(huì)員管理系統(tǒng)（Membermanagementsystem或者 Vip ManageS，是指企業(yè)用于對(duì)會(huì)員進(jìn)行有效管理的IT系統(tǒng)。通過(guò)會(huì)員管理系統(tǒng)，企業(yè)就可以記錄所有會(huì) 員客戶的資料，了解用戶的興趣愛(ài)好、消費(fèi)特點(diǎn)、意向需求等；同時(shí)針對(duì)客戶的需求，為其提供優(yōu)質(zhì)的個(gè)性化服務(wù)；會(huì)員管理系統(tǒng)還能為企業(yè)的產(chǎn)

3、品開(kāi)發(fā)、事 業(yè)發(fā)展提供可靠的市場(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ì)員管理系統(tǒng)可以實(shí)現(xiàn)商品的添加、刪除、查詢、 修改以及會(huì)員的登

4、陸、注冊(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)交流，改進(jìn)產(chǎn)品4、提高新產(chǎn)品開(kāi)發(fā)能力和服務(wù)能力5、市場(chǎng)消費(fèi)的第一手資料6、維護(hù)新客戶，留住回頭客2. 數(shù)據(jù)庫(kù)表的結(jié)構(gòu)描述及其關(guān)系系統(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:否商品名稱n char否商品價(jià)格float否表1表2會(huì)員信息表列名數(shù)據(jù)類型允許nu

5、ll值會(huì)員卡號(hào)int:否會(huì)員姓名n char否會(huì)員登陸密碼n char否會(huì)員消費(fèi)Float是會(huì)員積分int是聯(lián)系方式n char否表2功能模塊圖如下圖3所示圖33軟件的模塊結(jié)構(gòu)介紹3.1登錄模塊登錄模塊是管理系統(tǒng)的必要模塊之一，在用戶進(jìn)入主界面前必須進(jìn)行身份驗(yàn)證, 用戶輸入用戶名和密碼，若輸入正確則用戶進(jìn)入主界面。當(dāng)你是一個(gè)新用戶時(shí)首 先要進(jìn)行注冊(cè)，對(duì)個(gè)人信息注冊(cè)完畢后再登錄該系統(tǒng)。3.2商品信息操作模塊商品信息操作模塊包括四個(gè)功能模塊：商品查詢模塊、商品添加模塊、商品刪除模塊、商品修改模塊。商品查詢模塊功能如下：當(dāng)用戶輸入商品編號(hào)和商品名稱時(shí)，點(diǎn)擊按鈕查詢到商品的價(jià)格。商品添加模塊功能如下：

6、當(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ì)員積分記錄模塊。會(huì)員查詢模塊功能如下：輸入會(huì)員的會(huì)員卡號(hào)與會(huì)員姓名，點(diǎn)擊按鈕，即可獲取 此會(huì)員的所有個(gè)人信息，如聯(lián)系方式和積分情況。會(huì)員添加模塊功能如下

7、：如果管理員想添加新用戶，將新增的會(huì)員卡號(hào)與會(huì)員姓 名輸入，若數(shù)據(jù)庫(kù)中無(wú)此會(huì)員，則會(huì)員輸入密碼，并再次輸入密碼，若兩次密碼 相同，提示會(huì)員添加成功。否則提示會(huì)員已存在。會(huì)員刪除模塊功能如下：輸入會(huì)員的會(huì)員卡號(hào)與會(huì)員姓名，當(dāng)按確認(rèn)按鈕時(shí)刪除 此會(huì)員所有信息；按取消按鈕則取消刪除操作。積分記錄模塊功能如下：積分記錄中有兩個(gè)重要操作，其一為積分查詢，其二為 積分清零。輸入會(huì)員卡號(hào)與會(huì)員姓名，查詢其積分并選擇是否將用戶積分清零。3.4打印報(bào)表功能模塊用戶可以將商品信息表或者會(huì)員信息表通過(guò)打印機(jī)打印出來(lái)3.5退出系統(tǒng)功能模塊點(diǎn)擊按鈕，管理員退出管理系統(tǒng)。4.主要功能模塊的流程圖135.主要功能的實(shí)現(xiàn)代碼

8、5.1登陸實(shí)現(xiàn)代碼procedure TForm2.Butt on 1Click(Se nder: TObject);beginif datamodule16.ADOTable2.Locate('會(huì)員 卡號(hào)；會(huì) 員 登 錄密 碼',vararrayof(edit1.Text,edit2.Text),)the nform2.ModalResult:=10elseshowmessage(您輸入的密碼不正確，或者用戶不存在，請(qǐng)注冊(cè)，');en d;procedure TForm2.Butt on 2Click(Se nder: TObject);beginapplicatio

9、 n. CreateForm(tform9,form9);applicati on.Run;en d;5.2注冊(cè)實(shí)現(xiàn)代碼beginif datamodule16.ADOTable2.Locate('會(huì)員卡號(hào)；會(huì)員姓名',vararrayof(edit1.Text,edit2.Text ),) the nshowmessage(用戶已存在')else if form9.Edit3.Text =form9.Edit4.Text the nshowmessage(用戶注冊(cè)成功')elsebeginshowmessage(您兩次輸入的密碼不正確，請(qǐng)重新輸入');

10、datamodule16.ADOTable2.I nsert;datamodule16.ADOTable2.FieldByName('會(huì)員卡號(hào)').Value:=(edit1.Text);datamodule16.ADOTable2.FieldByName('會(huì)員姓名').Value:=(edit2.Text);datamodule16.ADOTable2.FieldByName('會(huì)員登錄密碼').Value:=(edit3.Text); datamodule16.ADOTable2 .P ost;5.3商品信息操作模塊代碼實(shí)現(xiàn)531商品查詢功

11、能實(shí)現(xiàn)代碼beginif datamodule16.ADOTable1.Locate('商品編號(hào)；商品名稱',vararrayof(edit1.Text,edit3.Text),) the nshowmessage(您所查找的商品價(jià)格為'+inttostr(datamodule16.ADOTable1'商品價(jià)格')elsebeginshowmessage(沒(méi)有找到您需要的商品 ');datamodule16.ADOTable1.Delete;en d;5.3.2商品添加功能實(shí)現(xiàn)代碼procedure TForm11.Butt on 1Click(

12、Se nder: TObject);beginifdatamodule16.ADOTable1 .L ocate('商 品 編 號(hào) ； 商 品 名 稱',vararrayof(edit1.Text,edit2.Text),)the nshowmessage(此商品已存在')elsebeginshowmessage(已成功添加新商品');datamodule16.ADOTable1.I nsert;datamodule16.ADOTable1.FieldByName('商品編號(hào)').Value:=(edit1.Text);datamodule16.

13、ADOTable1.FieldByName('商品名稱').Value:=(edit2.Text);datamodule16.ADOTable1.FieldByName('商品價(jià)格').Value:=(edit3.Text);datamodule16.ADOTable1 .P ost;en d;en d;en d.5.3.3商品刪除功能實(shí)現(xiàn)代碼procedure TForm13.Butt on 1Click(Se nder: TObject);begindatamodule16.ADOTable1.Ope n;if datamodule16.ADOTable1.

14、Locate('商品編號(hào)；商品名稱',vararrayof(edit1.Text,edit2.Text),)thenbeginshowmessage(查找到此商品，您確認(rèn)刪除此商品的所有信息么？');datamodule16.ADOTable1.Delete;endelseshowmessage(此商品不存在');en d;en d.5.3.4商品信息修改實(shí)現(xiàn)代碼procedure TForm14.Butt on 1Click(Se nder: TObject);beginif datamodule16.ADOTable1.Locate('商品編號(hào)；商品

15、名稱',vararrayof(edit1.Text,edit2.Text),) the nshowmessage(您查找到此商品，商品價(jià)格修改成功')elsebeginshowmessage(沒(méi)有您所查找的商品');datamodule16.ADOTable1.Ope n;datamodule16.ADOTable1.Edit;datamodule16.ADOTable1.Delete;datamodule16.ADOTable1.I nsert;datamodule16.ADOTable1.FieldByName('商品價(jià)格').Value:=(edi

16、t3.Text);datamodule16.ADOTable1 .P ost;en d;en d;en d.en d.5.4會(huì)員信息操作模塊代碼實(shí)現(xiàn)5.4.1會(huì)員查詢功能模塊代碼實(shí)現(xiàn)procedure TForm6.Butt on 1Click(Se nder: TObject);beginif datamodule16.ADOTable2.Locate(' 會(huì) 員 卡 號(hào) ； 會(huì) 員 姓 名',vararrayof(edit1.Text,edit2.Text),)the nshowmessage(查找到此會(huì)員，是否獲取基本信息？');form4:=tform4.Cre

17、ate(applicatio n);form4.show;form4.Edit1.Text:=datamodule16.ADOTable2'會(huì)員卡號(hào)'form4.Edit2.Text:=datamodule16.ADOTable2'會(huì)員姓名'form4.Edit3.Text:=datamodule16.ADOTable2'會(huì)員積分'form4.Edit4.Text:=datamodule16.ADOTable2'聯(lián)系方式'en d;end.5.4.2會(huì)員添加代碼實(shí)現(xiàn)procedure TForm9.Butt on 1Click(S

18、e nder: TObject);beginif datamodule16.ADOTable2.Locate('會(huì)員卡號(hào)；會(huì)員姓名',vararrayof(edit1.Text,edit2.Text ),) the nshowmessage(用戶已存在')else if form9.Edit3.Text =form9.Edit4.Text the nshowmessage(用戶注冊(cè)成功')elsebeginshowmessage(您兩次輸入的密碼不正確，請(qǐng)重新輸入');datamodule16.ADOTable2.I nsert;datamodule16

19、.ADOTable2.FieldByName('會(huì)員卡號(hào)').Value:=(edit1.Text);datamodule16.ADOTable2.FieldByName('會(huì)員姓名').Value:=(edit2.Text);datamodule16.ADOTable2.FieldByName('會(huì)員登錄密碼').Value:=(edit3.Text);datamodule16.ADOTable2 .P ost;en d;en d;End.5.4.3會(huì)員刪除代碼實(shí)現(xiàn)procedure TForm10.Butt on 1Click(Se nder

20、: TObject);begindatamodule16.ADOTable2.Ope n;if datamodule16.ADOTable2.Locate(' 會(huì) 員 卡 號(hào) ； 會(huì) 員 姓 名 ',vararrayof(edit1.Text,edit2.Text),)the nbeginshowmessage(查找到此會(huì)員，您確認(rèn)刪除此會(huì)員的所有信息么？)；datamodule16.ADOTable2.Edit;datamodule16.ADOTable2.Delete;endelseshowmessage(此會(huì)員不存在');en d;6.1登陸窗口6.程序運(yùn)行效果極

21、其分析如圖5所示圖56.2注冊(cè)窗口如圖6所示若數(shù)據(jù)庫(kù)中會(huì)員存在則顯示用戶已存在新增會(huì)員卡號(hào)會(huì)員姓名Project 1月戶已薦在0K圖6若用戶注冊(cè)過(guò)程中密碼輸入不一致，則顯示重新輸入，如圖7245002會(huì)員盞加怒兩r 請(qǐng)堇SfffiA逹冊(cè)會(huì)E添力R若數(shù)據(jù)庫(kù)中不存在此會(huì)員，兩次輸入的密碼相同，則注冊(cè)成功，顯示用戶注冊(cè)成 功，如圖8所示。新增會(huì)員卡號(hào)2S會(huì)員姓名會(huì)員密碼再次礎(chǔ)認(rèn)密碼(25圖9176.3商品操作模塊631 商品查詢輸入商品的編號(hào)和名稱，若數(shù)據(jù)庫(kù)中存在此商品則顯示查詢到的價(jià)格，如圖9所示。商品查詢&丨回I_生1怒所衛(wèi)的商品價(jià)梧子OK若數(shù)據(jù)庫(kù)中無(wú)此商品則顯示沒(méi)有找到您需要的商品，如

22、圖10所示?；夭胶凡樵兩唐肪幪?hào)商品名稱克莉絲汀點(diǎn)擊查詢商品價(jià)格圖10632商品添加將數(shù)據(jù)庫(kù)中沒(méi)有的新商品添加入柜臺(tái)，添加成功如下，如圖11所示圖1119633商品刪除若想刪除商品信息，輸入商品的編號(hào)和名稱，若商品存在則顯示查找到此商品, 您確認(rèn)刪除此商品的所有信息么？如圖 12所示。商品測(cè)尊0回點(diǎn)擊確認(rèn)刪除商品信息634商品信息修改若想修改商品信息，正確輸入商品的名稱或者編號(hào)，可修改商品價(jià)格或者商品名 稱。如圖13所示。圖13叵 S3若商品不存在則顯示沒(méi)有您所查找的商品。如圖14所示。券有品信亙燼改0KProjectl”手機(jī)中“ CNMO.cor沒(méi)有怒新查找貯商品商品編號(hào)點(diǎn)擊確認(rèn)修改商品價(jià)格

23、圖1427-才I .端“6.4會(huì)員操作模塊運(yùn)行窗口 6.4.1 會(huì)員查詢 輸入會(huì)員卡號(hào)與會(huì)員姓名，點(diǎn)擊按鈕即可獲取會(huì)員基本信息。否則顯示此會(huì)員 不存在。如圖15所示。3 SW6)1'涉會(huì)員輕-BL氐pa請(qǐng)輸入會(huì)員卡號(hào)|'66i'_請(qǐng)輸入會(huì)員姓名二i點(diǎn)擊獲取會(huì)員塞轉(zhuǎn)信息A匚1遍匹nd/會(huì)員基本信息會(huì)員代會(huì)員姓名薛會(huì)員積分fo聯(lián)系方式|997646E21圖15642會(huì)員刪除輸入會(huì)員卡號(hào)與會(huì)員姓名，若此會(huì)員存在則顯示查找到此會(huì)員，您確認(rèn)刪除此 會(huì)員的所有信息么？，點(diǎn)擊ok即可刪除相關(guān)信息。否則，顯示會(huì)員不存在 如圖16所示。會(huì)員卡號(hào)657會(huì)融名三三確認(rèn)刪除此會(huì)員所有信息確認(rèn)取消圖166.5打印報(bào)表點(diǎn)擊打印或者打印預(yù)覽按鈕，可查看打印效果。打印報(bào)表運(yùn)行窗體如下 圖17所示。當(dāng) FormlS二三匸宣善旻馴 *區(qū)商品編號(hào)商品名稱商品們格檯果撞擁S10書(shū)檸撞則611陽(yáng)華田612香芋西米辰313訛糧銀耳8圖17個(gè)人心得與體會(huì)項(xiàng)目文件里的窗體是自動(dòng)創(chuàng)建，用于主窗體之前的封面窗體和登陸窗體； 而單 元文件里的窗體不是自動(dòng)創(chuàng)建，用于主窗體之后的窗體，若想創(chuàng)建窗體需要加入 如下創(chuàng)建語(yǔ)句。刪除信息時(shí)，只需 delete，不需要再post。Data