2023年全國碩士研究生考試考研英語一試題真題(含答案詳解+作文范文)_第1頁
已閱讀1頁,還剩23頁未讀, 繼續(xù)免費閱讀

下載本文檔

版權(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)用戶因使用這些下載資源對自己和他人造成任何形式的傷害或損失。

評論

0/150

提交評論