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

上傳人：奔*** IP屬地：河北更新時(shí)間：2024-03-01 格式：doc 頁(yè)數(shù)：24 大?。?.99MB 人氣指數(shù)：12 舉報(bào) 版權(quán)申訴

2023年全國(guó)碩士研究生考試考研英語(yǔ)一試題真題（含答案詳解+作文范文）_第1頁(yè)

已閱讀1頁(yè)，還剩23頁(yè)未讀，繼續(xù)免費(fèi)閱讀

版權(quán)說明：本文檔由用戶提供并上傳，收益歸屬內(nèi)容提供方，若內(nèi)容存在侵權(quán)，請(qǐng)進(jìn)行舉報(bào)或認(rèn)領(lǐng)

文檔簡(jiǎn)介

1、　　目錄　　1.系統(tǒng)介紹1　　2.數(shù)據(jù)庫(kù)表的結(jié)構(gòu)描述及其關(guān)系2　　3軟件的模塊結(jié)構(gòu)介紹3　　3.1登錄模塊3

2、　　3.2 商品信息操作模塊3　　3.3 會(huì)員信息操作模塊3　　3.4 打印報(bào)表功能模塊4　　3.5退出系統(tǒng)功能模塊4　　4.主要功能模塊的流程圖5　　5.主要功能的實(shí)現(xiàn)代碼6

3、　　5.1登陸實(shí)現(xiàn)代碼6　　5.2注冊(cè)實(shí)現(xiàn)代碼6　　5.3 商品信息操作模塊代碼實(shí)現(xiàn)7　　5.3.1商品查詢功能實(shí)現(xiàn)代碼7　　5.3.2商品添加功能實(shí)現(xiàn)代碼7　　5.3.3商品刪除功能實(shí)現(xiàn)代碼7&

4、lt;/p>　　5.3.4商品信息修改實(shí)現(xiàn)代碼8　　5.4.1 會(huì)員查詢功能模塊代碼實(shí)現(xiàn)8　　5.4.2 會(huì)員添加代碼實(shí)現(xiàn)9　　5.4.3會(huì)員刪除代碼實(shí)現(xiàn)9　　6.程序運(yùn)行效果極其分析10

5、6.1登陸窗口10　　6.2注冊(cè)窗口11　　6.3商品操作模塊13　　6.3.1商品查詢13　　6.3.2 商品添加15　　6.3.3商品刪除16　　6.3.4商品信息修改1

6、7　　6.4 會(huì)員操作模塊運(yùn)行窗口19　　6.4.1 會(huì)員查詢19　　6.4.2會(huì)員刪除20　　6.5打印報(bào)表21　　個(gè)人心得與體會(huì)22　　1.系統(tǒng)介紹<

7、/b>　　會(huì)員管理系統(tǒng)（Member management system或者Vip Manages），是指企業(yè)用于對(duì)會(huì)員進(jìn)行有效管理的IT系統(tǒng)。通過會(huì)員管理系統(tǒng)，企業(yè)就可以記錄所有會(huì)員客戶的資料，了解用戶的興趣愛好、消費(fèi)特點(diǎn)、意向需求等；同時(shí)針對(duì)客戶的需求，為其提供優(yōu)質(zhì)的個(gè)性化服務(wù)；會(huì)員管理系統(tǒng)還能為企業(yè)的產(chǎn)品開發(fā)、事業(yè)發(fā)展提供可靠的市場(chǎng)調(diào)研數(shù)據(jù)，是企業(yè)經(jīng)營(yíng)不可或缺的一個(gè)有利工具。會(huì)員系

8、統(tǒng)管理的第一階段是實(shí)現(xiàn)對(duì)會(huì)員信息、交易的管理，能夠發(fā)行會(huì)員卡，分會(huì)員等級(jí)，返回積分等。現(xiàn)在廣泛被使用的會(huì)員管理系統(tǒng)普遍是第一階段，比較典型的有回頭客單機(jī)版。隨著互聯(lián)網(wǎng)技術(shù)的出現(xiàn)，新一代的會(huì)員管理系統(tǒng)不僅能實(shí)現(xiàn)管理和交易，而且開始對(duì)會(huì)員進(jìn)行更精準(zhǔn)的分類，根據(jù)分類對(duì)不同的會(huì)員開展針對(duì)性的營(yíng)銷和關(guān)懷，真正提高會(huì)員忠誠(chéng)度，為企業(yè)創(chuàng)造價(jià)值。　　我所設(shè)計(jì)的甜品店會(huì)員管理系統(tǒng)是一個(gè)基于delphi7.0和SQ

9、L server2005運(yùn)行的會(huì)員管理系統(tǒng)。甜品店會(huì)員管理系統(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)者　<p&g

10、t;　　3、加強(qiáng)企業(yè)與會(huì)員之間互動(dòng)交流，改進(jìn)產(chǎn)品　　　4、提高新產(chǎn)品開發(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)中

11、包含有兩個(gè)數(shù)據(jù)表：表1 商品信息表、表2會(huì)員信息表。兩個(gè)表的結(jié)構(gòu)如下所示：　　表1 商品信息表　　表1　　表2 會(huì)員信息表　　表2</

12、b>　　功能模塊圖如下圖3所示　　圖3　　3軟件的模塊結(jié)構(gòu)介紹　　3.1登錄模塊　　登錄模塊是管理系統(tǒng)的必要模塊之一，在用戶進(jìn)入主界面前必須進(jìn)行身份

13、驗(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)擊按鈕查

14、詢到商品的價(jià)格。　　商品添加模塊功能如下：當(dāng)有一種新的商品需要添加進(jìn)柜臺(tái)時(shí)，將它的商品編號(hào)，商品名稱，商品價(jià)格輸入信息框，點(diǎn)擊按鈕即可添加新的商品信息。　　商品刪除模塊功能如下：當(dāng)想要?jiǎng)h除某一種商品時(shí)，輸入商品的編號(hào)及名稱，點(diǎn)擊按鈕即可刪除掉此商品的所有信息。　　商品修改模塊功能如下：如果您想修改某一件商品的價(jià)格

15、，將它的編號(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)系方式

16、和積分情況。　　會(huì)員添加模塊功能如下：如果管理員想添加新用戶，將新增的會(huì)員卡號(hào)與會(huì)員姓名輸入，若數(shù)據(jù)庫(kù)中無此會(huì)員，則會(huì)員輸入密碼，并再次輸入密碼，若兩次密碼相同，提示會(huì)員添加成功。否則提示會(huì)員已存在。　　會(huì)員刪除模塊功能如下：輸入會(huì)員的會(huì)員卡號(hào)與會(huì)員姓名，當(dāng)按確認(rèn)按鈕時(shí)刪除此會(huì)員所有信息；按取消按鈕則取消刪除操作。

17、;　　積分記錄模塊功能如下：積分記錄中有兩個(gè)重要操作，其一為積分查詢，其二為積分清零。輸入會(huì)員卡號(hào)與會(huì)員姓名，查詢其積分并選擇是否將用戶積分清零。　　3.4 打印報(bào)表功能模塊　　用戶可以將商品信息表或者會(huì)員信息表通過打印機(jī)打印出來。　　3.5退出系統(tǒng)功能模塊　　點(diǎn)擊按鈕，

18、管理員退出管理系統(tǒng)。　　4.主要功能模塊的流程圖　　NO　　YES　　圖4　　5.主要功能的實(shí)現(xiàn)代碼

19、　　5.1登陸實(shí)現(xiàn)代碼 　　procedure TForm2.Button1Click(Sender: TObject);　　begin　　if datamodule16.ADOTable2.Locate('會(huì)員卡號(hào);會(huì)員登錄

20、密碼',vararrayof([edit1.Text,edit2.Text]),[])then　　form2.ModalResult:=10　　else　　showmessage('您輸入的密碼不正確，或者用戶不存在，請(qǐng)注冊(cè)，');

21、　　end;　　procedure TForm2.Button2Click(Sender: TObject);　　begin　　application.CreateForm(tform9,form9);</p&

22、gt;　　application.Run;　　end;　　5.2注冊(cè)實(shí)現(xiàn)代碼　　begin　　if datamodule16.ADOTa

23、ble2.Locate('會(huì)員卡號(hào);會(huì)員姓名',vararrayof([edit1.Text,edit2.Text ]),[]) then　　showmessage('用戶已存在')　　else if form9.Edit3.Text =form9.Edit4.Text then

24、　showmessage('用戶注冊(cè)成功')　　else　　begin　　showmessage('您兩次輸入的密碼不正確，請(qǐng)重新輸入');　　datamodule

25、16.ADOTable2.Insert;　　datamodule16.ADOTable2.FieldByName('會(huì)員卡號(hào)').Value:=(edit1.Text);　　datamodule16.ADOTable2.FieldByName('會(huì)員姓名').Value:=(edit2.Text);

26、　　datamodule16.ADOTable2.FieldByName('會(huì)員登錄密碼').Value:=(edit3.Text);　　datamodule16.ADOTable2.Post;　　5.3 商品信息操作模塊代碼實(shí)現(xiàn)　　5.3.1商品查詢功能實(shí)現(xiàn)代碼</p&g

27、t;　　begin　　if datamodule16.ADOTable1.Locate('商品編號(hào);商品名稱',vararrayof([edit1.Text,edit3.Text]),[]) then　　showmessage('您所查找的商品價(jià)格為'+intto

28、str(datamodule16.ADOTable1['商品價(jià)格']))　　else　　begin　　showmessage('沒有找到您需要的商品');　　dat

29、amodule16.ADOTable1.Delete;　　end;　　5.3.2商品添加功能實(shí)現(xiàn)代碼 　　procedure TForm11.Button1Click(Sender: TObject);　　begi

30、n　　if datamodule16.ADOTable1.Locate('商品編號(hào);商品名稱',vararrayof([edit1.Text,edit2.Text]),[])then　　showmessage('此商品已存在')　　else&l

31、t;/b>　　begin　　showmessage('已成功添加新商品');　　datamodule16.ADOTable1.Insert;　　datamodule16.ADOTable1.FieldByName

32、('商品編號(hào)').Value:=(edit1.Text);　　datamodule16.ADOTable1.FieldByName('商品名稱').Value:=(edit2.Text);　　datamodule16.ADOTable1.FieldByName('商品價(jià)格').Value:=(edit3.T

33、ext);　　datamodule16.ADOTable1.Post;　　end;　　end;　　end. 　　5.

34、3.3商品刪除功能實(shí)現(xiàn)代碼　　procedure TForm13.Button1Click(Sender: TObject);　　begin　　datamodule16.ADOTable1.Open;　　if datamodule16

35、.ADOTable1.Locate('商品編號(hào);商品名稱',vararrayof([edit1.Text,　　edit2.Text]),[])then　　begin　　showmessage('查找到此商品，您確認(rèn)刪除此商品的所有信息么？');

36、　　datamodule16.ADOTable1.Delete;　　end　　else　　showmessage('此商品不存在');&l

37、t;b>　　end;　　end. 　　5.3.4商品信息修改實(shí)現(xiàn)代碼　　procedure TForm14.Button1Click(Sender: TObject);　　begin&l

38、t;/b>　　if datamodule16.ADOTable1.Locate('商品編號(hào);商品名稱',vararrayof([edit1.Text,edit2.Text]),[]) then　　showmessage('您查找到此商品，商品價(jià)格修改成功')

39、　　else　　begin　　showmessage('沒有您所查找的商品');　　datamodule16.ADOTable1.Open;　　datamodule16.ADOTable1.Edit

40、;　　datamodule16.ADOTable1.Delete;　　datamodule16.ADOTable1.Insert;　　datamodule16.ADOTable1.FieldByName('商品價(jià)格').Value:=(edit3.Text);<p&g

41、t;　　datamodule16.ADOTable1.Post;　　end;　　end;　　end.　　end.<

42、/p>　　5.4會(huì)員信息操作模塊代碼實(shí)現(xiàn) 　　5.4.1 會(huì)員查詢功能模塊代碼實(shí)現(xiàn) 　　procedure TForm6.Button1Click(Sender: TObject);　　begin

43、if datamodule16.ADOTable2.Locate('會(huì)員卡號(hào);會(huì)員姓名',vararrayof([edit1.Text,edit2.Text]),[])then　　showmessage('查找到此會(huì)員，是否獲取基本信息？');　　form4:=tform4.Create(application);<

44、/p>　　form4.show;　　form4.Edit1.Text:=datamodule16.ADOTable2['會(huì)員卡號(hào)'];　　form4.Edit2.Text:=datamodule16.ADOTable2['會(huì)員姓名'];　　form4.E

45、dit3.Text:=datamodule16.ADOTable2['會(huì)員積分'];　　form4.Edit4.Text:=datamodule16.ADOTable2['聯(lián)系方式'];　　end;　　end. </b

46、>　　5.4.2 會(huì)員添加代碼實(shí)現(xiàn) 　　procedure TForm9.Button1Click(Sender: TObject);　　begin　　if datamodule16.ADOTable2.Locate('

47、會(huì)員卡號(hào);會(huì)員姓名',vararrayof([edit1.Text,edit2.Text ]),[]) then　　showmessage('用戶已存在')　　else if form9.Edit3.Text =form9.Edit4.Text then　　showmessage('

48、;用戶注冊(cè)成功')　　else　　begin　　showmessage('您兩次輸入的密碼不正確，請(qǐng)重新輸入');　　datamodule16.ADOTable2.Inse

49、rt;　　datamodule16.ADOTable2.FieldByName('會(huì)員卡號(hào)').Value:=(edit1.Text);　　datamodule16.ADOTable2.FieldByName('會(huì)員姓名').Value:=(edit2.Text);　　datamo

50、dule16.ADOTable2.FieldByName('會(huì)員登錄密碼').Value:=(edit3.Text);　　datamodule16.ADOTable2.Post;　　end;　　end;

51、　　End.　　5.4.3會(huì)員刪除代碼實(shí)現(xiàn)　　procedure TForm10.Button1Click(Sender: TObject);　　begin　　datamod

52、ule16.ADOTable2.Open;　　if datamodule16.ADOTable2.Locate('會(huì)員卡號(hào);會(huì)員姓名',vararrayof([edit1.Text,edit2.Text]),[])then　　begin　　showmessag

53、e('查找到此會(huì)員，您確認(rèn)刪除此會(huì)員的所有信息么？');　　datamodule16.ADOTable2.Edit;　　datamodule16.ADOTable2.Delete;　　end　　els

54、e　　showmessage('此會(huì)員不存在');　　end;　　6.程序運(yùn)行效果極其分析　　6.1登陸窗口<b

55、>　　如圖5所示　　圖5　　6.2注冊(cè)窗口　　如圖6所示　　若數(shù)據(jù)庫(kù)中會(huì)員存在則顯示用戶已存在<p&g

56、t;　　圖6　　若用戶注冊(cè)過程中密碼輸入不一致，則顯示重新輸入，如圖7。　　圖7　　若數(shù)據(jù)庫(kù)中不存在此會(huì)員，兩次輸入的密碼相同，則注冊(cè)成功，顯示用戶注冊(cè)成功，如圖8所示。　　圖8

57、　　6.3商品操作模塊　　6.3.1商品查詢　　輸入商品的編號(hào)和名稱，若數(shù)據(jù)庫(kù)中存在此商品則顯示查詢到的價(jià)格，如圖9所示。　　、</

58、p>　　圖9　　若數(shù)據(jù)庫(kù)中無此商品則顯示沒有找到您需要的商品，如圖10所示。　　圖10 　　6.3.2 商品添加　　將數(shù)據(jù)庫(kù)中沒有的新商品添加入柜臺(tái)，添加成功如下，如圖11所示。</p

59、>　　圖11　　6.3.3商品刪除　　若想刪除商品信息，輸入商品的編號(hào)和名稱，若商品存在則顯示‘查找到此商品，您確認(rèn)刪除此商品的所有信息么？如圖12所示。　　圖12

60、;　　6.3.4商品信息修改 　　若想修改商品信息，正確輸入商品的名稱或者編號(hào)，可修改商品價(jià)格或者商品名稱。如圖13所示。　　圖13　　若商品不存在則顯示‘沒有您所查找的商品’。如圖14所示。<p&

61、gt;　　圖14　　6.4 會(huì)員操作模塊運(yùn)行窗口　　6.4.1 會(huì)員查詢　　輸入會(huì)員卡號(hào)與會(huì)員姓名，點(diǎn)擊按鈕即可獲取會(huì)員基本信息。否則顯示‘此會(huì)員不存在’。如圖15所示。　　圖15</p&g

62、t;　　6.4.2會(huì)員刪除　　輸入會(huì)員卡號(hào)與會(huì)員姓名，若此會(huì)員存在則顯示‘查找到此會(huì)員，您確認(rèn)刪除此會(huì)員的所有信息么？’，點(diǎn)擊ok即可刪除相關(guān)信息。否則，顯示‘會(huì)員不存在’。　　如圖16所示。　　圖

63、16　　6.5打印報(bào)表　　點(diǎn)擊‘打印’或者‘打印預(yù)覽按鈕’，可查看打印效果。打印報(bào)表運(yùn)行窗體如下圖17所示。　　圖17　　個(gè)人心得與體會(huì)&

64、lt;/p>　　項(xiàng)目文件里的窗體是自動(dòng)創(chuàng)建，用于主窗體之前的封面窗體和登陸窗體；而單元文件里的窗體不是自動(dòng)創(chuàng)建，用于主窗體之后的窗體，若想創(chuàng)建窗體需要加入如下創(chuàng)建語(yǔ)句。刪除信息時(shí)，只需delete，不需要再post。　　DataModule 本身就是一個(gè)類, 多了一個(gè)外觀而已, 這樣只是為了可視, 或者換句話說它跟 TFoo/TVeecile/TCar這些東西沒什么區(qū)

65、別, 所以沒必要再定義一個(gè) class。 DataModule 上面可以放 Table/Query, 這個(gè)只是為了跟數(shù)據(jù)庫(kù)打交道也可以定義字典什么的, 目的在于讓對(duì)像的內(nèi)容保存/或者你說的持久化, 或者換句話說你完全可以把 TDataModule 當(dāng)作一個(gè) TCar 來用(實(shí)際上這個(gè)派生類名已經(jīng)是由你起的), 可以定義無數(shù)個(gè) DataModule 分別去實(shí)現(xiàn)業(yè)務(wù)邏輯/對(duì)像等等, 而不是只作為一個(gè)放 Table/Query 的容器

66、。在存儲(chǔ)層中，用table實(shí)現(xiàn)insert、update和delete，個(gè)人覺得比較簡(jiǎn)單。　　此外還有一些比較實(shí)用的代碼：　?。?）主鍵： ALTER TABLE VersionControlInformation Drop CONSTRAINT PRIMARYKEY Alter table VersionControlInformation

67、 add primary key (ModulePath) （2）修改表結(jié)構(gòu)： Alter Table SB04_2008_CONFIG Add Column ND_B_YNSDSE Varchar(20) Alter Table SB04_2008_CONFIG drop Column DE_YNSDSE（3）裝載動(dòng)態(tài)庫(kù): LoadLibrary(Pchar(Appdir+'DataEncry.dll'))（

眾賞文庫(kù)> 全部分類> 畢業(yè)設(shè)計(jì)

溫馨提示

1. 本站所有資源如無特殊說明，都需要本地電腦安裝OFFICE2007和PDF閱讀器。圖紙軟件為CAD,CAXA,PROE,UG,SolidWorks等.壓縮文件請(qǐng)下載最新的WinRAR軟件解壓。
2. 本站的文檔不包含任何第三方提供的附件圖紙等，如果需要附件，請(qǐng)聯(lián)系上傳者。文件的所有權(quán)益歸上傳用戶所有。
3. 本站RAR壓縮包中若帶圖紙，網(wǎng)頁(yè)內(nèi)容里面會(huì)有圖紙預(yù)覽，若沒有圖紙預(yù)覽就沒有圖紙。
4. 未經(jīng)權(quán)益所有人同意不得將文件中的內(nèi)容挪作商業(yè)或盈利用途。
5. 眾賞文庫(kù)僅提供信息存儲(chǔ)空間，僅對(duì)用戶上傳內(nèi)容的表現(xiàn)方式做保護(hù)處理，對(duì)用戶上傳分享的文檔內(nèi)容本身不做任何修改或編輯，并不能對(duì)任何下載內(nèi)容負(fù)責(zé)。
6. 下載文件中如有侵權(quán)或不適當(dāng)內(nèi)容，請(qǐng)與我們聯(lián)系，我們立即糾正。
7. 本站不保證下載資源的準(zhǔn)確性、安全性和完整性, 同時(shí)也不承擔(dān)用戶因使用這些下載資源對(duì)自己和他人造成任何形式的傷害或損失。

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

文檔簡(jiǎn)介

溫馨提示

最新文檔

評(píng)論

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

文檔簡(jiǎn)介

溫馨提示

最新文檔

評(píng)論

免費(fèi)下載