版權(quán)說明:本文檔由用戶提供并上傳,收益歸屬內(nèi)容提供方,若內(nèi)容存在侵權(quán),請進(jìn)行舉報或認(rèn)領(lǐng)
文檔簡介
1、<p><b> 目 錄</b></p><p><b> 1.系統(tǒng)介紹1</b></p><p> 2.數(shù)據(jù)庫表的結(jié)構(gòu)描述及其關(guān)系2</p><p> 3軟件的模塊結(jié)構(gòu)介紹3</p><p><b> 3.1登錄模塊3</b></p>
2、<p> 3.2 商品信息操作模塊3</p><p> 3.3 會員信息操作模塊3</p><p> 3.4 打印報表功能模塊4</p><p> 3.5退出系統(tǒng)功能模塊4</p><p> 4.主要功能模塊的流程圖5</p><p> 5.主要功能的實現(xiàn)代碼6</p>
3、<p> 5.1登陸實現(xiàn)代碼6</p><p> 5.2注冊實現(xiàn)代碼6</p><p> 5.3 商品信息操作模塊代碼實現(xiàn)7</p><p> 5.3.1商品查詢功能實現(xiàn)代碼7</p><p> 5.3.2商品添加功能實現(xiàn)代碼7</p><p> 5.3.3商品刪除功能實現(xiàn)代碼7&
4、lt;/p><p> 5.3.4商品信息修改實現(xiàn)代碼8</p><p> 5.4.1 會員查詢功能模塊代碼實現(xiàn)8</p><p> 5.4.2 會員添加代碼實現(xiàn)9</p><p> 5.4.3會員刪除代碼實現(xiàn)9</p><p> 6.程序運(yùn)行效果極其分析10</p><p>
5、6.1登陸窗口10</p><p> 6.2注冊窗口11</p><p> 6.3商品操作模塊13</p><p> 6.3.1商品查詢13</p><p> 6.3.2 商品添加15</p><p> 6.3.3商品刪除16</p><p> 6.3.4商品信息修改1
6、7</p><p> 6.4 會員操作模塊運(yùn)行窗口19</p><p> 6.4.1 會員查詢19</p><p> 6.4.2會員刪除20</p><p> 6.5打印報表21</p><p> 個人心得與體會22</p><p><b> 1.系統(tǒng)介紹<
7、/b></p><p> 會員管理系統(tǒng)(Member management system或者Vip Manages),是指企業(yè)用于對會員進(jìn)行有效管理的IT系統(tǒng)。通過會員管理系統(tǒng),企業(yè)就可以記錄所有會員客戶的資料,了解用戶的興趣愛好、消費特點、意向需求 等;同時針對客戶的需求,為其提供優(yōu)質(zhì)的個性化服務(wù);會員管理系統(tǒng)還能為企業(yè)的產(chǎn)品開發(fā)、事業(yè)發(fā)展提供可靠的市場調(diào)研數(shù)據(jù),是企業(yè)經(jīng)營不可或缺的一個有利工具。會員系
8、統(tǒng)管理的第一階段是實現(xiàn)對會員信息、交易的管理,能夠發(fā)行會員卡,分會員等級,返回積分等?,F(xiàn)在廣泛被使用的會員管理系統(tǒng)普遍是第一階段,比較典型的有回頭客單機(jī)版。隨著互聯(lián)網(wǎng)技術(shù)的出現(xiàn),新一代的會員管理系統(tǒng)不僅能實現(xiàn)管理和交易,而且開始對會員進(jìn)行更精準(zhǔn)的分類,根據(jù)分類對不同的會員開展針對性的營銷和關(guān)懷,真正提高會員忠誠度,為企業(yè)創(chuàng)造價值。</p><p> 我所設(shè)計的甜品店會員管理系統(tǒng)是一個基于delphi7.0和SQ
9、L server2005運(yùn)行的會員管理系統(tǒng)。甜品店會員管理系統(tǒng)可以實現(xiàn)商品的添加、刪除、查詢、修改以及會員的登陸、注冊、添加、刪除、查詢、和會員信息的修改及消費積分的查詢。除以上兩大重要功能外,還能實現(xiàn)打印報表等基本功能。甜品店會員管理系統(tǒng)有以下幾大優(yōu)勢:</p><p> 1、建立長期穩(wěn)定的消費市場 </p><p> 2、培養(yǎng)大批品牌忠誠者 </p><p&g
10、t; 3、加強(qiáng)企業(yè)與會員之間互動交流,改進(jìn)產(chǎn)品 </p><p> 4、提高新產(chǎn)品開發(fā)能力和服務(wù)能力 </p><p> 5、市場消費的第一手資料 </p><p> 6、維護(hù)新客戶,留住回頭客</p><p> 2.數(shù)據(jù)庫表的結(jié)構(gòu)描述及其關(guān)系</p><p> 系統(tǒng)創(chuàng)建一個會員及商品信息數(shù)據(jù)庫,當(dāng)中
11、包含有兩個數(shù)據(jù)表:表1 商品信息表、表2會員信息表。兩個表的結(jié)構(gòu)如下所示:</p><p><b> 表1 商品信息表</b></p><p><b> 表1</b></p><p><b> 表2 會員信息表</b></p><p><b> 表2</
12、b></p><p> 功能模塊圖如下圖3所示</p><p><b> 圖3</b></p><p> 3軟件的模塊結(jié)構(gòu)介紹</p><p><b> 3.1登錄模塊</b></p><p> 登錄模塊是管理系統(tǒng)的必要模塊之一,在用戶進(jìn)入主界面前必須進(jìn)行身份
13、驗證,用戶輸入用戶名和密碼,若輸入正確則用戶進(jìn)入主界面。當(dāng)你是一個新用戶時首先要進(jìn)行注冊,對個人信息注冊完畢后再登錄該系統(tǒng)。</p><p> 3.2 商品信息操作模塊</p><p> 商品信息操作模塊包括四個功能模塊:商品查詢模塊、商品添加模塊、商品刪除模塊、商品修改模塊。</p><p> 商品查詢模塊功能如下:當(dāng)用戶輸入商品編號和商品名稱時,點擊按鈕查
14、詢到商品的價格。</p><p> 商品添加模塊功能如下:當(dāng)有一種新的商品需要添加進(jìn)柜臺時,將它的商品編號,商品名稱,商品價格輸入信息框,點擊按鈕即可添加新的商品信息。</p><p> 商品刪除模塊功能如下:當(dāng)想要刪除某一種商品時,輸入商品的編號及名稱,點擊按鈕即可刪除掉此商品的所有信息。</p><p> 商品修改模塊功能如下:如果您想修改某一件商品的價格
15、,將它的編號及姓名輸入,新的商品價格輸入,點擊按鈕,就可以將商品的新信息導(dǎo)入。</p><p> 3.3 會員信息操作模塊</p><p> 會員信息操作模塊也包括四個功能模塊:會員查詢模塊、會員添加模塊、會員刪除模塊以及會員積分記錄模塊。</p><p> 會員查詢模塊功能如下:輸入會員的會員卡號與會員姓名,點擊按鈕,即可獲取此會員的所有個人信息,如聯(lián)系方式
16、和積分情況。</p><p> 會員添加模塊功能如下:如果管理員想添加新用戶,將新增的會員卡號與會員姓名輸入,若數(shù)據(jù)庫中無此會員,則會員輸入密碼,并再次輸入密碼,若兩次密碼相同,提示會員添加成功。否則提示會員已存在。</p><p> 會員刪除模塊功能如下:輸入會員的會員卡號與會員姓名,當(dāng)按確認(rèn)按鈕時刪除此會員所有信息;按取消按鈕則取消刪除操作。</p><p>
17、; 積分記錄模塊功能如下:積分記錄中有兩個重要操作,其一為積分查詢,其二為積分清零。輸入會員卡號與會員姓名,查詢其積分并選擇是否將用戶積分清零。</p><p> 3.4 打印報表功能模塊</p><p> 用戶可以將商品信息表或者會員信息表通過打印機(jī)打印出來。</p><p> 3.5退出系統(tǒng)功能模塊</p><p> 點擊按鈕,
18、管理員退出管理系統(tǒng)。</p><p> 4.主要功能模塊的流程圖</p><p><b> NO</b></p><p><b> YES</b></p><p><b> 圖4</b></p><p> 5.主要功能的實現(xiàn)代碼
19、</p><p> 5.1登陸實現(xiàn)代碼 </p><p> procedure TForm2.Button1Click(Sender: TObject);</p><p><b> begin</b></p><p> if datamodule16.ADOTable2.Locate('會員卡號;會員登錄
20、密碼',vararrayof([edit1.Text,edit2.Text]),[])then</p><p> form2.ModalResult:=10</p><p><b> else</b></p><p> showmessage('您輸入的密碼不正確,或者用戶不存在,請注冊,');</p>
21、<p><b> end;</b></p><p> procedure TForm2.Button2Click(Sender: TObject);</p><p><b> begin</b></p><p> application.CreateForm(tform9,form9);</p&
22、gt;<p> application.Run;</p><p><b> end;</b></p><p><b> 5.2注冊實現(xiàn)代碼</b></p><p><b> begin</b></p><p> if datamodule16.ADOTa
23、ble2.Locate('會員卡號;會員姓名',vararrayof([edit1.Text,edit2.Text ]),[]) then</p><p> showmessage('用戶已存在')</p><p> else if form9.Edit3.Text =form9.Edit4.Text then</p><p>
24、 showmessage('用戶注冊成功')</p><p><b> else</b></p><p><b> begin</b></p><p> showmessage('您兩次輸入的密碼不正確,請重新輸入');</p><p> datamodule
25、16.ADOTable2.Insert;</p><p> datamodule16.ADOTable2.FieldByName('會員卡號').Value:=(edit1.Text);</p><p> datamodule16.ADOTable2.FieldByName('會員姓名').Value:=(edit2.Text);</p>
26、<p> datamodule16.ADOTable2.FieldByName('會員登錄密碼').Value:=(edit3.Text);</p><p> datamodule16.ADOTable2.Post;</p><p> 5.3 商品信息操作模塊代碼實現(xiàn)</p><p> 5.3.1商品查詢功能實現(xiàn)代碼</p&g
27、t;<p><b> begin</b></p><p> if datamodule16.ADOTable1.Locate('商品編號;商品名稱',vararrayof([edit1.Text,edit3.Text]),[]) then</p><p> showmessage('您所查找的商品價格為'+intto
28、str(datamodule16.ADOTable1['商品價格']))</p><p><b> else</b></p><p><b> begin</b></p><p> showmessage('沒有找到您需要的商品');</p><p> dat
29、amodule16.ADOTable1.Delete;</p><p><b> end;</b></p><p> 5.3.2商品添加功能實現(xiàn)代碼 </p><p> procedure TForm11.Button1Click(Sender: TObject);</p><p><b> begi
30、n</b></p><p> if datamodule16.ADOTable1.Locate('商品編號;商品名稱',vararrayof([edit1.Text,edit2.Text]),[])then</p><p> showmessage('此商品已存在')</p><p><b> else&l
31、t;/b></p><p><b> begin</b></p><p> showmessage('已成功添加新商品');</p><p> datamodule16.ADOTable1.Insert;</p><p> datamodule16.ADOTable1.FieldByName
32、('商品編號').Value:=(edit1.Text);</p><p> datamodule16.ADOTable1.FieldByName('商品名稱').Value:=(edit2.Text);</p><p> datamodule16.ADOTable1.FieldByName('商品價格').Value:=(edit3.T
33、ext);</p><p> datamodule16.ADOTable1.Post;</p><p><b> end;</b></p><p><b> end;</b></p><p><b> end. </b></p><p> 5.
34、3.3商品刪除功能實現(xiàn)代碼</p><p> procedure TForm13.Button1Click(Sender: TObject);</p><p><b> begin</b></p><p> datamodule16.ADOTable1.Open;</p><p> if datamodule16
35、.ADOTable1.Locate('商品編號;商品名稱',vararrayof([edit1.Text,</p><p> edit2.Text]),[])then</p><p><b> begin</b></p><p> showmessage('查找到此商品,您確認(rèn)刪除此商品的所有信息么?');
36、</p><p> datamodule16.ADOTable1.Delete;</p><p><b> end</b></p><p><b> else</b></p><p> showmessage('此商品不存在');</p><p>&l
37、t;b> end;</b></p><p><b> end. </b></p><p> 5.3.4商品信息修改實現(xiàn)代碼</p><p> procedure TForm14.Button1Click(Sender: TObject);</p><p><b> begin&l
38、t;/b></p><p> if datamodule16.ADOTable1.Locate('商品編號;商品名稱',vararrayof([edit1.Text,edit2.Text]),[]) then</p><p> showmessage('您查找到此商品,商品價格修改成功')</p><p><b>
39、 else</b></p><p><b> begin</b></p><p> showmessage('沒有您所查找的商品');</p><p> datamodule16.ADOTable1.Open;</p><p> datamodule16.ADOTable1.Edit
40、;</p><p> datamodule16.ADOTable1.Delete;</p><p> datamodule16.ADOTable1.Insert;</p><p> datamodule16.ADOTable1.FieldByName('商品價格').Value:=(edit3.Text);</p><p&g
41、t; datamodule16.ADOTable1.Post;</p><p><b> end;</b></p><p><b> end;</b></p><p><b> end.</b></p><p><b> end.</b><
42、/p><p> 5.4會員信息操作模塊代碼實現(xiàn) </p><p> 5.4.1 會員查詢功能模塊代碼實現(xiàn) </p><p> procedure TForm6.Button1Click(Sender: TObject);</p><p><b> begin</b></p><p>
43、if datamodule16.ADOTable2.Locate('會員卡號;會員姓名',vararrayof([edit1.Text,edit2.Text]),[])then</p><p> showmessage('查找到此會員,是否獲取基本信息?');</p><p> form4:=tform4.Create(application);<
44、/p><p> form4.show;</p><p> form4.Edit1.Text:=datamodule16.ADOTable2['會員卡號'];</p><p> form4.Edit2.Text:=datamodule16.ADOTable2['會員姓名'];</p><p> form4.E
45、dit3.Text:=datamodule16.ADOTable2['會員積分'];</p><p> form4.Edit4.Text:=datamodule16.ADOTable2['聯(lián)系方式'];</p><p><b> end;</b></p><p><b> end. </b
46、></p><p> 5.4.2 會員添加代碼實現(xiàn) </p><p> procedure TForm9.Button1Click(Sender: TObject);</p><p><b> begin</b></p><p> if datamodule16.ADOTable2.Locate('
47、會員卡號;會員姓名',vararrayof([edit1.Text,edit2.Text ]),[]) then</p><p> showmessage('用戶已存在')</p><p> else if form9.Edit3.Text =form9.Edit4.Text then</p><p> showmessage('
48、;用戶注冊成功')</p><p><b> else</b></p><p><b> begin</b></p><p> showmessage('您兩次輸入的密碼不正確,請重新輸入');</p><p> datamodule16.ADOTable2.Inse
49、rt;</p><p> datamodule16.ADOTable2.FieldByName('會員卡號').Value:=(edit1.Text);</p><p> datamodule16.ADOTable2.FieldByName('會員姓名').Value:=(edit2.Text);</p><p> datamo
50、dule16.ADOTable2.FieldByName('會員登錄密碼').Value:=(edit3.Text);</p><p> datamodule16.ADOTable2.Post;</p><p><b> end;</b></p><p><b> end;</b></p>
51、<p><b> End.</b></p><p> 5.4.3會員刪除代碼實現(xiàn)</p><p> procedure TForm10.Button1Click(Sender: TObject);</p><p><b> begin</b></p><p> datamod
52、ule16.ADOTable2.Open;</p><p> if datamodule16.ADOTable2.Locate('會員卡號;會員姓名',vararrayof([edit1.Text,edit2.Text]),[])then</p><p><b> begin</b></p><p> showmessag
53、e('查找到此會員,您確認(rèn)刪除此會員的所有信息么?');</p><p> datamodule16.ADOTable2.Edit;</p><p> datamodule16.ADOTable2.Delete;</p><p><b> end</b></p><p><b> els
54、e</b></p><p> showmessage('此會員不存在');</p><p><b> end;</b></p><p> 6.程序運(yùn)行效果極其分析</p><p><b> 6.1登陸窗口</b></p><p><b
55、> 如圖5所示</b></p><p><b> 圖5</b></p><p><b> 6.2注冊窗口</b></p><p><b> 如圖6所示</b></p><p> 若數(shù)據(jù)庫中會員存在則顯示用戶已存在</p><p&g
56、t;<b> 圖6</b></p><p> 若用戶注冊過程中密碼輸入不一致,則顯示重新輸入,如圖7。</p><p><b> 圖7</b></p><p> 若數(shù)據(jù)庫中不存在此會員,兩次輸入的密碼相同,則注冊成功,顯示用戶注冊成功,如圖8所示。</p><p><b> 圖8
57、</b></p><p><b> 6.3商品操作模塊</b></p><p><b> 6.3.1商品查詢</b></p><p> 輸入商品的編號和名稱,若數(shù)據(jù)庫中存在此商品則顯示查詢到的價格,如圖9所示。</p><p><b> 、</b></
58、p><p><b> 圖9</b></p><p> 若數(shù)據(jù)庫中無此商品則顯示沒有找到您需要的商品,如圖10所示。</p><p> 圖10 </p><p> 6.3.2 商品添加</p><p> 將數(shù)據(jù)庫中沒有的新商品添加入柜臺,添加成功如下,如圖11所示。</p
59、><p><b> 圖11</b></p><p><b> 6.3.3商品刪除</b></p><p> 若想刪除商品信息,輸入商品的編號和名稱,若商品存在則顯示‘查找到此商品,您確認(rèn)刪除此商品的所有信息么?如圖12所示。</p><p><b> 圖12 </b>
60、;</p><p> 6.3.4商品信息修改 </p><p> 若想修改商品信息,正確輸入商品的名稱或者編號,可修改商品價格或者商品名稱。 如圖13所示。</p><p><b> 圖13</b></p><p> 若商品不存在則顯示‘沒有您所查找的商品’。如圖14所示。</p><p&
61、gt;<b> 圖14</b></p><p> 6.4 會員操作模塊運(yùn)行窗口</p><p> 6.4.1 會員查詢</p><p> 輸入會員卡號與會員姓名,點擊按鈕即可獲取會員基本信息。否則顯示‘此會員不存在’。如圖15所示。</p><p><b> 圖15</b></p&g
62、t;<p><b> 6.4.2會員刪除</b></p><p> 輸入會員卡號與會員姓名,若此會員存在則顯示‘查找到此會員,您確認(rèn)刪除此會員的所有信息么?’,點擊ok即可刪除相關(guān)信息。否則,顯示‘會員不存在’。</p><p><b> 如圖16所示。</b></p><p><b> 圖
63、16</b></p><p><b> 6.5打印報表</b></p><p> 點擊‘打印’或者‘打印預(yù)覽按鈕’,可查看打印效果。打印報表運(yùn)行窗體如下圖17所示。</p><p><b> 圖17</b></p><p><b> 個人心得與體會</b>&
64、lt;/p><p> 項目文件里的窗體是自動創(chuàng)建,用于主窗體之前的封面窗體和登陸窗體;而單元文件里的窗體不是自動創(chuàng)建,用于主窗體之后的窗體,若想創(chuàng)建窗體需要加入如下創(chuàng)建語句。刪除信息時,只需delete,不需要再post。</p><p> DataModule 本身就是一個類, 多了一個外觀而已, 這樣只是為了可視, 或者換句話說它跟 TFoo/TVeecile/TCar這些東西沒什么區(qū)
65、別, 所以沒必要再定義一個 class。 DataModule 上面可以放 Table/Query, 這個只是為了跟數(shù)據(jù)庫打交道也可以定義字典什么的, 目的在于讓對像的內(nèi)容保存/或者你說的持久化, 或者換句話說你完全可以把 TDataModule 當(dāng)作一個 TCar 來用(實際上這個派生類名已經(jīng)是由你起的), 可以定義無數(shù)個 DataModule 分別去實現(xiàn)業(yè)務(wù)邏輯/對像等等, 而不是只作為一個放 Table/Query 的容器
66、。 在存儲層中,用table實現(xiàn)insert、update和delete,個人覺得比較簡單。</p><p> 此外還有一些比較實用的代碼:</p><p> (1)主鍵: 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)裝載動態(tài)庫: LoadLibrary(Pchar(Appdir+'DataEncry.dll'))(
溫馨提示
- 1. 本站所有資源如無特殊說明,都需要本地電腦安裝OFFICE2007和PDF閱讀器。圖紙軟件為CAD,CAXA,PROE,UG,SolidWorks等.壓縮文件請下載最新的WinRAR軟件解壓。
- 2. 本站的文檔不包含任何第三方提供的附件圖紙等,如果需要附件,請聯(lián)系上傳者。文件的所有權(quán)益歸上傳用戶所有。
- 3. 本站RAR壓縮包中若帶圖紙,網(wǎng)頁內(nèi)容里面會有圖紙預(yù)覽,若沒有圖紙預(yù)覽就沒有圖紙。
- 4. 未經(jīng)權(quán)益所有人同意不得將文件中的內(nèi)容挪作商業(yè)或盈利用途。
- 5. 眾賞文庫僅提供信息存儲空間,僅對用戶上傳內(nèi)容的表現(xiàn)方式做保護(hù)處理,對用戶上傳分享的文檔內(nèi)容本身不做任何修改或編輯,并不能對任何下載內(nèi)容負(fù)責(zé)。
- 6. 下載文件中如有侵權(quán)或不適當(dāng)內(nèi)容,請與我們聯(lián)系,我們立即糾正。
- 7. 本站不保證下載資源的準(zhǔn)確性、安全性和完整性, 同時也不承擔(dān)用戶因使用這些下載資源對自己和他人造成任何形式的傷害或損失。
最新文檔
- delphi課程設(shè)計-甜品店會員管理系統(tǒng)
- 甜品店創(chuàng)業(yè)計劃書_甜品店創(chuàng)業(yè)計劃
- 甜品店創(chuàng)業(yè)計劃書_甜品店創(chuàng)業(yè)計劃
- “半糖主義”甜品店vi設(shè)計
- 甜品店計劃書
- 甜品店策劃書
- 校園甜品店策劃書
- 甜品店廣告語創(chuàng)意
- 甜品店創(chuàng)業(yè)計劃書
- 甜品店具體策劃方案
- 甜品店策劃書
- 甜品店商業(yè)計劃書
- 甜品店創(chuàng)業(yè)計劃書
- “半糖主義”甜品店VI設(shè)計_9646.pdf
- 甜品店創(chuàng)業(yè)計劃書答案
- 創(chuàng)業(yè)計劃書模板——甜品店
- 有家甜品店營銷方案
- 甜品店創(chuàng)業(yè)策劃書
- 甜品店消費調(diào)查問卷
- 商業(yè)策劃書甜品店
評論
0/150
提交評論