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

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

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

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

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

5、模塊、商品刪除模塊、商品修改模塊。 商品查詢模塊功能如下：當用戶輸入商品編號和商品名稱時，點擊按鈕查詢到商品的價格。 商品添加模塊功能如下：當有一種新的商品需要添加進柜臺時，將它的商品編號，商品名稱，商品價格輸入信息框，點擊按鈕即可添加新的商品信息。 商品刪除模塊功能如下：當想要刪除某一種商品時，輸入商品的編號及名稱，點擊按鈕即可刪除掉此商品的所有信息。 商品修改模塊功能如下：如果您想修改某一件商品的價格，將它的編號及姓名輸入，新的商品價格輸入，點擊按鈕，就可以將商品的新信息導入。3.3 會員信息操作模塊 會員信息操作模塊也包括四個功能模塊：會員查詢模塊、會員添加模塊、會員刪除模塊以及會員積分

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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