管科mis課程設(shè)計-- 餐飲管理信息系統(tǒng)

上傳人：奔*** IP屬地：河北更新時間：2024-03-01 格式：docx 頁數(shù)：36 大?。?35.67KB 人氣指數(shù)：12 舉報 版權(quán)申訴

已閱讀1頁，還剩35頁未讀，繼續(xù)免費閱讀

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

文檔簡介

1、　　課程設(shè)計報告　　( 2013 -- 2014 年度第 2 學(xué)期)　　名稱：管理信息系統(tǒng)課程設(shè)計　　題目：餐飲管理信息系統(tǒng) 　　院系： &

2、lt;/p>　　班級： 　　目錄　　1.課程設(shè)計的目的與要求4　　2.設(shè)計正文4　　2．1 系統(tǒng)分析4<p&g

3、t;　　2.1.1系統(tǒng)開發(fā)背景、開發(fā)范圍、建設(shè)目標(biāo)與必要性4　　2.1.2業(yè)務(wù)流程分析5　　2.1.3數(shù)據(jù)流程圖6　　2.1.4數(shù)據(jù)字典7　　2.2 系統(tǒng)設(shè)計10　　2.2.1功能設(shè)計10<

4、;p>　　2.2.2系統(tǒng)運行環(huán)境與數(shù)據(jù)庫設(shè)計12　　2.2.3數(shù)據(jù)編碼設(shè)計13　　2.2.4、輸入/輸出設(shè)計14　　2.3 系統(tǒng)實施16　　2.3.1 登陸界面16　　2.3.2 餐廳系統(tǒng)管理主界面19</

5、p>　　2.3.3餐廳系統(tǒng)密碼修改界面22　　2.3.4用戶管理界面24　　2.3.5菜單編輯界面：25　　2.3.6點餐界面29　　2.3.7訂單界面30　　2.3.8訂座界面31<

6、/p>　　3.課程設(shè)計總結(jié)或結(jié)論35　　4.參考文獻(xiàn)35　　5.小組成員分工說明：35　　《餐飲信息管理信息系統(tǒng)》　　1、課程設(shè)計的目的與要求　　通過管理信息

7、系統(tǒng)課程設(shè)計，進(jìn)一步掌握管理信息系統(tǒng)的理論和方法。培養(yǎng)和鍛煉開發(fā)管理信息系統(tǒng)的能力。為今后信息系統(tǒng)開發(fā)打下良好的基礎(chǔ)。　　要求了解企業(yè)管理信息系統(tǒng)開發(fā)的全過程，理解信息系統(tǒng)課程相關(guān)的概念，掌握管理信息系統(tǒng)的開發(fā)方法。主要包括：系統(tǒng)調(diào)研方法；業(yè)務(wù)分析、數(shù)據(jù)分析、系統(tǒng)邏輯模型設(shè)計方法；數(shù)據(jù)庫設(shè)計、功能設(shè)計、物理模型設(shè)計方法；系統(tǒng)的實現(xiàn)等方法。完成一個小型系統(tǒng)的設(shè)計與開發(fā)。&l

8、t;p>　　2、設(shè)計正文　　2.1 系統(tǒng)分析　　2.1.1系統(tǒng)開發(fā)背景、開發(fā)范圍、建設(shè)目標(biāo)與必要性　　隨著社會經(jīng)濟(jì)水平的不斷提高，餐飲業(yè)也在不斷的發(fā)展。但是在快速發(fā)展的同時，大部分餐飲企業(yè)在日常經(jīng)營管理中仍普遍采用傳統(tǒng)的手工管理方式

9、，而傳統(tǒng)的手工操作管理又存在著許多無法避免的問題，如在人工結(jié)賬的時候金額容易出錯，收銀工作中跑單、漏單現(xiàn)象嚴(yán)重，客人消費單據(jù)難以保存和查詢等。這些都制約了整個餐飲業(yè)的規(guī)?；l(fā)展和整體服務(wù)水平的提升。為能有效地解決這些問題提高餐飲企業(yè)的經(jīng)濟(jì)效益，應(yīng)該建立一套餐飲業(yè)自身的管理信息系統(tǒng)。完善的餐飲管理系統(tǒng)的業(yè)務(wù)管理一般以飯店的前臺管理為核心，為用戶提供迅速、高效的服務(wù)，減免手工處理的繁瑣與誤差，及時、準(zhǔn)確地反映飯店的工作情況、經(jīng)營情況，從而提

10、高飯店的服務(wù)質(zhì)量，并配合現(xiàn)代化的餐飲管理，獲得更好的經(jīng)濟(jì)效益。　　面對服務(wù)行業(yè)的高速發(fā)展和餐飲企業(yè)信息發(fā)展的過程中出現(xiàn)的各種情況，結(jié)合XX餐館自身的特點及業(yè)務(wù)流程，該餐飲管理系統(tǒng)在實施后應(yīng)能達(dá)到以下目標(biāo)：　　(1)采用漢字圖形用戶界面，系統(tǒng)界面友好美觀，操作簡單易行，查詢靈活方便。　　(2)業(yè)務(wù)管理信息化，可隨時

11、掌握進(jìn)貨、客人點單、掛賬等情況。　　(3)系統(tǒng)維護(hù)方便可靠，具有靈活性、通用性及安全性的特點。　　(4)該軟件應(yīng)盡可能地降低使用者的勞動強度，同時提高工作質(zhì)量和效率。　　(5)采用流行的客戶機/服務(wù)器方式，響應(yīng)速度快，安全性高，系統(tǒng)配置靈活，擴(kuò)充方便。　　(6)提高該企業(yè)

12、管理水平，提升酒店檔次，贏得競爭優(yōu)勢。　　本系統(tǒng)使用了VB.NET技術(shù)并采用了C/S架構(gòu)，餐廳服務(wù)人員使用它可以快速準(zhǔn)確地為客戶服務(wù)，人性化的系統(tǒng)界面設(shè)計使得軟件便于使用者的快速掌握，計算機幾乎為零的錯誤率和高效的處理能力使得原本繁瑣的餐飲管理變得更加科學(xué)、快捷以及人性化。　　使用本系統(tǒng)，員工將可以快速地編輯顧客資料信息，并且為客戶提供訂餐打折和充值服務(wù)

13、。管理員使用本系統(tǒng)，既可以完成員工的所有工作，又可以更好地管理員工，精準(zhǔn)地了解員工賬面的資金情況。除了這些，管理員還可以設(shè)定餐廳的菜單信息和折扣程度，從而使得管理員對餐廳的運營情況可以全面掌控。　　2.1.2業(yè)務(wù)流程分析　　現(xiàn)在的管理系統(tǒng)不僅要有漂亮的用戶界面，更要有嚴(yán)謹(jǐn)?shù)囊?guī)劃，注重每一個細(xì)小的環(huán)節(jié)。這樣才能使得在電子交易時避免不必要錯誤發(fā)生。本系統(tǒng)的設(shè)

14、計與實施迎合了二十一世紀(jì)經(jīng)濟(jì)高速發(fā)展、人們的生活節(jié)奏日益加快以及現(xiàn)代餐飲業(yè)越來越發(fā)達(dá)和便捷這一現(xiàn)狀。它將極大地方便食客的就餐，同時也有利于我們的管理和服務(wù)。同時，我們的餐飲信息管理系統(tǒng)還能幫助餐廳降低錯誤率，擴(kuò)大營業(yè)范圍，增加知名度等。　　為了使系統(tǒng)更加人性化，便于管理員管理，此系統(tǒng)的用戶將分為兩種類型，一個是針對員工的餐飲管理系統(tǒng)，另一個是針對管理員（店主）的餐飲管理系統(tǒng)。

15、　　員工使用本餐飲信息管理系統(tǒng)應(yīng)可以實現(xiàn)以下功能：　　添加修改查詢客戶會員信息(修改客戶信息需客戶確認(rèn))　　查詢菜單　　添加查詢預(yù)定信息，為老顧客打折　　客戶可以在自己的會員賬戶里充值&l

16、t;p>　　顧客可以用現(xiàn)金買單也可以從會員賬戶里扣取　　管理員使用本餐飲信息管理系統(tǒng)應(yīng)可以實現(xiàn)以下功能：　　添加修改查詢客戶會員信息(修改客戶信息需客戶確認(rèn))　　添加修改查詢菜單信息，最好能看到菜品圖片　　添加查詢預(yù)定信息，為老顧客打折<

17、;p>　　客戶可以在自己的會員賬戶里充值　　顧客可以用現(xiàn)金買單也可以從會員賬戶里扣取　　設(shè)定具體的打折方法　　添加職員信息，權(quán)限也可以定為管理員。　　可以查詢使用者的現(xiàn)金收款金額　　除了

18、實現(xiàn)以上功能外，本系統(tǒng)還需要方便用戶地使用，使得用戶可以很快地熟練掌握，從而可以讓用戶快速的投入工作。并且要避免邏輯錯誤的出現(xiàn)。　　業(yè)務(wù)流程如圖1-21　　圖1-21 業(yè)務(wù)流程圖　　2.1.3數(shù)據(jù)流程圖　　數(shù)據(jù)是系統(tǒng)要處理的主要對象，因此全面、準(zhǔn)確的收集、整理、分析數(shù)據(jù)和

19、數(shù)據(jù)流程成為系統(tǒng)分析階段的重要任務(wù)。通過對餐飲系統(tǒng)的調(diào)查和可行性分析，畫出餐飲管理系統(tǒng)的高層數(shù)據(jù)流程圖。如圖1-31所示　　2.1.4數(shù)據(jù)字典　　數(shù)據(jù)字典是將數(shù)據(jù)元素、數(shù)據(jù)結(jié)構(gòu)、數(shù)據(jù)流、數(shù)據(jù)存儲功能和外部實體等的詳細(xì)情況加以記錄，并按照一定方式進(jìn)行排列所形成的一部關(guān)于數(shù)據(jù)的字典。數(shù)據(jù)字典是進(jìn)一步定義和描述所有數(shù)據(jù)項的

20、工具，是關(guān)于數(shù)據(jù)的數(shù)據(jù)。它包括一切動態(tài)數(shù)據(jù)、靜態(tài)數(shù)據(jù)和數(shù)據(jù)結(jié)構(gòu)以及相互關(guān)系等的說明，是數(shù)據(jù)分析和數(shù)據(jù)管理的重要工具。　　數(shù)據(jù)項的定義　　數(shù)據(jù)結(jié)構(gòu)的定義　　數(shù)據(jù)流的定義<p

21、>　　處理邏輯的定義　　數(shù)據(jù)存儲的定義　　外部實體的定義　　2．2 系統(tǒng)設(shè)計　　2.2.1功能設(shè)

22、計　　結(jié)構(gòu)化設(shè)計方法的基本思想是：使系統(tǒng)模塊化，即把一個系統(tǒng)自上而下逐步分解為若干個彼此獨立而又有一定聯(lián)系的組成部分。對于任何一個系統(tǒng)都可以按功能逐步由上而下，由抽象到具體，逐層將其分解為一個多層次的，具有相對獨立功能的模塊組成的系統(tǒng)。　　系統(tǒng)設(shè)計的任務(wù)是以分析為依據(jù)確定新系統(tǒng)在計算機內(nèi)應(yīng)有哪些程序模塊組成，各模塊用什么連接在一起可以

23、構(gòu)成最好的系統(tǒng)機內(nèi)結(jié)構(gòu)，使用某些工具將設(shè)計成果表達(dá)出來，并對各個細(xì)節(jié)進(jìn)行設(shè)計。系統(tǒng)總體結(jié)構(gòu)設(shè)計如圖2-11所示。　　圖2-2系統(tǒng)總體設(shè)計結(jié)構(gòu)圖　　模塊設(shè)計：　　對以上管理，系統(tǒng)管理、前臺餐飲管理、員工管理模塊進(jìn)一步分解。　　2.2．2

24、系統(tǒng)運行環(huán)境與數(shù)據(jù)庫設(shè)計　　1. 主機　　奔騰4以上機型。　　2. 外存儲器　　主存512MB，外存至少80G磁盤。

25、　　3. 終端與外部設(shè)備配置　　顯示器及顯示卡：彩色VGA，分辨率不低于1024x768，64位PCI接口，緩存1MB以上；通訊口：至少一個RS232串行通訊口和一個并行接口；網(wǎng)絡(luò)接口板：16或32位接口,有RJ45接口(雙絞線網(wǎng))；CD-ROM光盤驅(qū)動器: 40倍速以上　　4. 其它輔助設(shè)備

26、　　備份設(shè)備：CD-R光盤刻錄機一臺，寫速度8倍以上，讀速度24倍以上；U盤，容量1G以上。　　硬件配置圖如圖3-1所示。　　軟件配置　　1. 操作系統(tǒng)（OS）　　服務(wù)器操作系統(tǒng) Windows2003</p&

27、gt;　　客戶端操作系統(tǒng) Windows7　　2. 數(shù)據(jù)庫管理系統(tǒng)（DBMS）　　SQL Server 2003　　3. 使用的編程語言　　VB　　4.

28、軟件工具　　office辦公軟件　　這里選用DBMS支持的關(guān)系模型，所以設(shè)計邏輯結(jié)構(gòu)的步驟如下：　　1.將概念結(jié)構(gòu)轉(zhuǎn)換為關(guān)系模型。　　2.將轉(zhuǎn)換來的關(guān)系模型向DBMS支持下的數(shù)據(jù)模型轉(zhuǎn)換。　　3.對數(shù)據(jù)模型進(jìn)

29、行優(yōu)化。　　數(shù)據(jù)庫物理設(shè)計　　現(xiàn)在將上面的數(shù)據(jù)庫概念結(jié)構(gòu)轉(zhuǎn)化為數(shù)據(jù)庫系統(tǒng)所支持的實際數(shù)據(jù)模型，也就是數(shù)據(jù)庫的邏輯結(jié)構(gòu)。在上面的實體以及實體之間關(guān)系的基礎(chǔ)上，形成數(shù)據(jù)庫中的表格以及各個表格之間的關(guān)系。　　餐飲管理系統(tǒng)數(shù)據(jù)庫中每個表格表示在數(shù)據(jù)庫中的一個表，各個表格的設(shè)計如下所示

30、。　　在SQL server 2005 中建立數(shù)據(jù)庫food，在food數(shù)據(jù)庫中建立表userinfo，如圖：　　2.2.3數(shù)據(jù)編碼設(shè)計　　將系統(tǒng)中具有某些共同屬性或特征的信息歸并在一起，并通過一些便于計算機或人進(jìn)行識別和處理的符號來表示各類信息；在數(shù)據(jù)庫中的關(guān)鍵字?jǐn)?shù)據(jù)元素通常其代碼都有特定含義。代碼設(shè)計應(yīng)遵循唯

31、一性，合理性、可擴(kuò)充性和穩(wěn)定性、簡單性、適用性、規(guī)范性、易于修改性的原則。　　1.惟一性：雖然編碼對象有不同的名稱、不同的描述，但每一個代碼代表惟一的實體或?qū)傩?，而每一個實體或?qū)傩杂晌┮坏拇a來標(biāo)識，如商品的編碼。 　　2.合理性：編碼設(shè)計必須與編碼對象的分類體系相適應(yīng)，以使代碼對編碼對象的分類具有標(biāo)識作用。

32、　　3.可擴(kuò)充和穩(wěn)定性：編碼時要留有足夠的備用代碼，以便將來擴(kuò)充。另外，還要考慮系統(tǒng)的發(fā)展和變化，要考慮它的使用期限，一般來說，應(yīng)該是3到5年。　　4.簡單性：代碼結(jié)構(gòu)要簡單，盡量縮短代碼的長度，以便于輸入，提高處理效率，并且要便于識別和記憶。　　5.使用性：代碼要盡量反映編碼對象的特點，以便于識別和記憶；要同時適用于計算機和人工處

33、理。　　6.規(guī)范性：代碼的結(jié)構(gòu)、類型、編碼格式必須嚴(yán)格統(tǒng)一，以便于計算機處理。　　7.易于修改。　　8.標(biāo)準(zhǔn)化和通用型。　　2.2.4輸入/輸出設(shè)計　　輸出項目</b&

34、gt;　　發(fā)貨單、到貨通知單、采購合同、商品信息：商品編號、商品名稱、商品單價、購買數(shù)量、購買日期、總計。　　輸出要求　　主要輸入數(shù)據(jù)類型、來源、所用設(shè)備、介質(zhì)、格式、數(shù)值范圍、精度等如表2-6所示。　　表2-6輸出數(shù)據(jù)描述</

35、p>　　輸出界面：　　該界面簡單，大方，可以為使用者提供及時、準(zhǔn)確和全面的信息服務(wù)。標(biāo)注清晰，很容易使用，新增加的商品代碼，及規(guī)格爭得了使用人員的同意，其它方面沒有大的改動，上手快，方便操作。驗收較為滿意。　　輸入項目<p

36、>　　訂貨單、發(fā)貨單、過期商品單、到貨通知、商品編號　　輸入界面設(shè)計：　　該輸入界面簡單易懂，操作人員容易輸入數(shù)據(jù)，便于存檔，而且數(shù)據(jù)位置清晰，不易出錯。我們對輸入數(shù)據(jù)采用了糾錯措施，能夠可靠準(zhǔn)確的進(jìn)行輸入。驗收較為滿意。　　2.3 系統(tǒng)實施</

37、b>　　實施方案說明　　系統(tǒng)名稱：餐飲管理信息系統(tǒng)　　程序語言：VB　　使用的設(shè)備：計算機和打印機　　實施的總計劃</b&g

38、t;　　系統(tǒng)測試包括：模塊測試，子系統(tǒng)測試，系統(tǒng)測試和用戶驗收測試。測試的同時進(jìn)行了調(diào)試。各個進(jìn)度的時間安排妥當(dāng)，費用適當(dāng),所以實施方案通過。　　2.3.1系統(tǒng)登錄界面　　當(dāng)用戶首次進(jìn)入系統(tǒng)時，必須要驗證用戶身份，及用戶必須有自己的用戶名和密碼。　　在窗體中添加2個Tex

39、tBox控件、2個Button控件和2個Label控件，調(diào)節(jié)他們的大小和位置；　　在【屬性】設(shè)置窗體中分別對這些控件和窗體設(shè)置相應(yīng)的屬性，設(shè)置結(jié)果如表所示。 　　登錄界面的代碼　　Public Class Form1

40、　　'login.vb　　Dim user As String　　Dim password As String　　Dim sqlstr As String　　Dim username As String

41、　　Dim pepdom As String　　Dim mod1 As String　　Dim mod2 As String　　Dim mod3 As String　　Dim mod4 As String　　Private Sub

42、 Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click　　user = Me.TextBox1.Text.Trim　　password = Me.TextBox2.Text.Trim<p&

43、gt;　　sqlstr = "SELECT * FROM Userinfo WHERE User_Id=" & "'" & user & " ' and User_pwd='" & password & "'"　　Dim objdatarow A

44、s DataRow　　Try　　objdatarow = objdatarow(sqlstr).Tables(0).Row.count = 0　　Catch　　MsgBox("口令和賬號

45、不符,請重試,并檢查該賬號是否存在。", MsgBoxStyle.Information + MsgBoxStyle.OkOnly, "系統(tǒng)登錄失敗")　　Me.TextBox2.Text = ""　　Exit Sub<

46、b>　　End Try　　username = user　　pepdom = objdatarow.Item(2)　　mod1 = CBool(objdatarow.Item(3))　　mod2 = CBool(objdatarow.Item(4

47、))　　mod3 = CBool(objdatarow.Item(5))　　mod4 = CBool(objdatarow.Item(6))　　Dim frmmain As New Form1()　　frmmain.Show()

48、　Me.Finalize()　　End Sub　　Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click　　If M

49、sgBox("您真的不登錄餐飲管理系統(tǒng)嗎?", MsgBoxStyle.YesNo + MsgBoxStyle.Question, "退出登錄系統(tǒng)") = MsgBoxResult.Yes Then　　Application.Exit()　　Else&l

50、t;p>　　Exit Sub　　End If　　End Sub　　End Class　　登錄代碼

51、運行的結(jié)果　　2.3.2主界面　　登錄后出現(xiàn)的餐廳的主界面　　總界面的代碼　　Public Class Form2　　Private

52、Sub 修改用戶名ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 修改用戶名ToolStripMenuItem.Click　　Dim newform As New Form3　　newform.MdiParent = M

53、e　　newform.Show()　　End Sub　　Private Sub 用戶管理ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 用戶

54、管理ToolStripMenuItem.Click　　Dim newform As New Form4　　newform.MdiParent = Me　　newform.Show()　　End Sub<p

55、>　　Private Sub 菜單編輯管理ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 菜單編輯管理ToolStripMenuItem.Click　　Dim newform As New Form5　　newfo

56、rm.MdiParent = Me　　newform.Show()　　End Sub　　Private Sub 點餐ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventAr

57、gs) Handles 點餐ToolStripMenuItem.Click　　Dim newform As New Form6　　newform.MdiParent = Me　　newform.Show()　　End Sub</

58、p>　　Private Sub 訂單ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 訂單ToolStripMenuItem.Click　　Dim newform As New Form7　　n

59、ewform.MdiParent = Me　　newform.Show()　　End Sub　　Private Sub 訂座ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.Eve

60、ntArgs) Handles 訂座ToolStripMenuItem.Click　　Dim newform As New Form8　　newform.MdiParent = Me　　newform.Show()　　End Sub&

61、lt;/p>　　Private Sub 個人信息ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 個人信息ToolStripMenuItem.Click　　Dim newform As New Form9<

62、p>　　newform.MdiParent = Me　　newform.Show()　　End Sub　　End Class　　2.3.2餐廳系統(tǒng)密碼修改界面<

63、p>　　主界面中選擇系統(tǒng)管理中的修改用戶名口令后出現(xiàn)的口令修改界面，　　在窗體中添加3個TextBox控件、2個Button控件和3個Label控件，調(diào)節(jié)他們的大小和位置；　　在【屬性】設(shè)置窗體中分別對這些控件和窗體設(shè)置相應(yīng)的屬性，設(shè)置結(jié)果如表所示。　　如圖：</

64、p>　　修改密碼代碼　　Public Class Form2　　Dim newpassword As String　　Dim oldpassword As String　　Dim sqlstr As Str

65、ing　　Dim username As String　　Dim updatedata As String　　Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.

66、Click　　If Me.TextBox2.Text.CompareTo(Me.TextBox3.Text) <> 0 Then　　MsgBox(",", MsgBoxStyle.Exclamation + MsgBoxStyle.OkOnly, "")　　Me

67、.TextBox2.Text = ""　　Me.TextBox3.Text = ""　　Exit Sub　　Else　　newpassword = Me.T

68、extBox2.Text.Trim　　End If　　oldpassword = Me.TextBox1.Text.Trim　　sqlstr = "select * from userinfo where user_id = " & "&

69、#39;" & username & "' and user_pwd = '" & oldpassword & "'"　　Dim objdatarow As DataRow　　Try<

70、;p>　　objdatarow = objdatarow(sqlstr).Tables(0).Row.count = 0　　Catch　　MsgBox("舊密碼和賬號不符,請重新輸入密碼", MsgBoxStyle.Information + MsgBoxStyle.OkOnly, &quo

71、t;更改密碼失敗")　　Me.TextBox1.Text = ""　　Exit Sub　　End Try　　sqlstr = "update userinf

72、o set user_pwd = " & "'" & newpassword & "' where user_id ='" & username & "'"　　updatedata = updatedata(sqlstr)<p

73、>　　MsgBox("密碼修改成功,修改后的密碼為: " & newpassword, MsgBoxStyle.Information + MsgBoxStyle.OkOnly, "密碼修改成功")　　End Sub　　Private Sub Button2_Cl

74、ick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click　　Me.Close()　　End Sub　　End Class&l

75、t;/p>　　系統(tǒng)管理中口令修改代碼運行的結(jié)果　　2.3.4用戶管理界面　　主界面中選擇系統(tǒng)管理中的用戶管理后出現(xiàn)的用戶管理界面，如圖：　　系統(tǒng)管理中用戶管理代碼運行的結(jié)果　　2.3.5菜單編輯界面

76、主界面中選擇系統(tǒng)管理中的菜單編輯后出現(xiàn)的菜單編輯界面，如圖：　　菜單編輯代碼　　Public Class Form4　　Private Sub Form4_Load(ByVal sender As System.Object, ByVal e As System.EventA

77、rgs) Handles MyBase.Load　　CheckedListBox1.Items.Add("泡椒魚頭 100")　　CheckedListBox1.Items.Add("醬骨架 80")　　CheckedListBox1.Items.Add("米粉

78、20")　　CheckedListBox1.Items.Add("炒肉 50")　　CheckedListBox1.Items.Add("鵝肝 80")　　CheckedListBox1.Items.Add("填鴨 70")

79、　　CheckedListBox1.Items.Add("米飯 10")　　End Sub　　Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handl

80、es Button1.Click　　Dim i, j As Integer　　Select Case DirectCast(sender, Button).Name　　Case Button1.Name　　For i = 0 To CheckedListBox1.Chec

81、kedItems.Count - 1　　If CheckedListBox1.CheckedItems.Count <> 0 Then　　For j = 0 To CheckedListBox1.CheckedItems.Count - 1　　CheckedListBox2.Items.Insert(

82、j, CheckedListBox1.CheckedItems(i).ToString)　　CheckedListBox1.Items.RemoveAt(i)　　Next　　End If<b

83、>　　Next　　If CheckedListBox1.Items.Count = 0 Then　　Button1.Enabled = False　　Button2.Enabled = False　　End If</b&g

84、t;　　Button3.Enabled = True　　Button4.Enabled = True　　End Select　　End Sub　　Private Sub Button2_Cli

85、ck(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click　　Dim i, j As Integer　　Select Case DirectCast(sender, Button).Name　　Case

86、Button2.Name　　For i = 0 To CheckedListBox1.CheckedItems.Count - 1　　CheckedListBox2.Items.Add(CheckedListBox1.Items.Item(i))　　Next

87、;　　CheckedListBox1.Items.Clear()　　Button1.Enabled = False　　Button2.Enabled = False　　Button3.Enabled = True　　Button4.Enabled =

88、 True　　End Select　　End Sub　　Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click<

89、;/p>　　Dim i, j As Integer　　Select Case DirectCast(sender, Button).Name　　Case Button3.Name　　For i = 0 To CheckedListBox2.CheckedItems.Count - 1&

90、lt;/p>　　If CheckedListBox2.CheckedItems.Count <> 0 Then　　For j = 0 To CheckedListBox2.CheckedItems.Count - 1　　CheckedListBox1.Items.Insert(j, CheckedListBox2.

91、CheckedItems(i).ToString)　　CheckedListBox2.Items.RemoveAt(i)　　Next　　End If　　Next

92、;　　If CheckedListBox2.Items.Count = 0 Then　　Button1.Enabled = True　　Button2.Enabled = True　　Button3.Enabled = False

93、　　Button4.Enabled = False　　End If　　End Select　　End Sub　　Private Sub Button4_Click(ByVal sender As

94、System.Object, ByVal e As System.EventArgs) Handles Button4.Click　　Dim i, j As Integer　　Select Case DirectCast(sender, Button).Name　　Case Button4.Name</p&

95、gt;　　For i = 0 To CheckedListBox2.CheckedItems.Count - 1　　CheckedListBox1.Items.Add(CheckedListBox2.Items.Item(i))　　Next　　Check

96、edListBox2.Items.Clear()　　Button1.Enabled = True　　Button2.Enabled = True　　Button3.Enabled = False　　Button4.Enabled = False&l

97、t;p>　　End Select　　End Sub　　End Class　　系統(tǒng)管理中菜單編輯代碼運行的結(jié)果　　2.3.6點餐界面

98、　　主界面中選擇前臺餐飲管理中的點餐后出現(xiàn)的點餐界面，如圖：　　點餐代碼　　Public Class Form5　　Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As Sy

99、stem.EventArgs) Handles Button1.Click　　Dim sum As String　　If CheckBox1.Checked = True Then　　sum = 100　　End I

100、f　　If CheckBox1.Checked = True Then　　sum = 100 + 80　　End If　　If CheckBox1.Checked = True Then&l

101、t;p>　　sum = 100 + 80 + 20　　End If　　TextBox1.Text = sum　　End Sub　　End Class&l

102、t;/p>　　前臺餐飲管理中點餐代碼運行的結(jié)果　　2.3.7訂單界面　　主界面中選擇前臺餐飲管理中的訂單后出現(xiàn)的訂單界面，如圖：　　前臺餐飲管理中訂單運行的結(jié)果　　2.3.8訂座界面<

103、;/b>　　主界面中選擇前臺餐飲管理中的訂座后出現(xiàn)的訂單界面，如圖：　　訂座代碼　　Public Class Form2　　Private Sub Form2_Load(ByVal sender As System.Object

104、, ByVal e As System.EventArgs) Handles MyBase.Load　　ComboBox1.Items.Add("就餐")　　ComboBox1.Items.Add("空閑")　　End Sub</

105、p>　　End Class　　前臺餐飲管理中訂座運行的結(jié)果　　主界面中選擇員工管理中的個人信息后出現(xiàn)的訂單界面，如圖：　　員工管理系統(tǒng)中個人信息代碼　　Public Class Form3

106、;　　Private Sub Form3_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load　　ComboBox1.Items.Add("男")　　ComboBox1.Items.Add(&quo

107、t;女")　　End Sub　　Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click　　Dim a As

108、 String　　Dim b As Boolean　　Dim c As Boolean　　a = TextBox1.Text　　b = TextBox2.Text　　c = TextBox3.Text<

109、;p>　　Select Case ComboBox1.SelectedItem　　Case Is = "男"　　If a = "001" & b = "張三" & c = "經(jīng)理" Then　　Label5.Te

110、xt = "恭喜您，添加成功！"　　Label5.Visible = True　　Else　　Label5.Text = "非常遺憾，添加失??！"　　End If</b&

111、gt;　　Case Is = "女"　　If a = "002" & b = "李四" & c = "員工" Then　　Label5.Text = "恭喜您，添加成功！"&

112、lt;p>　　Label5.Visible = True　　Else　　Label5.Text = "非常遺憾，添加失??！"　　End If　　End Select<

113、;/p>　　End Sub　　Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click　　Me.Close()

114、　　End Sub　　End Class　　員工管理系統(tǒng)中個人信息運行結(jié)果　　3、課程設(shè)計總結(jié)或結(jié)論　　本系統(tǒng)在開發(fā)過程中，嘗試著包括運用VB等多種數(shù)據(jù)庫連接技術(shù)。在系統(tǒng)開發(fā)的

115、最后階段，不斷測試和調(diào)試系統(tǒng)，總結(jié)系統(tǒng)中存在的問題，最終在老師和同學(xué)的幫助下，完成整個系統(tǒng)的開發(fā)過程。　　盡管系統(tǒng)已經(jīng)開發(fā)完成，但由于經(jīng)驗不足和對實際生產(chǎn)生活不熟悉，在系統(tǒng)中仍然存在著許多的問題，還不能滿足實際需求，需要在功能方面繼續(xù)完善。　　設(shè)計過程中，小組成員積極配合，商量軟件各方面存在的問題，并認(rèn)真改正不好的地方，最終完成了本次課程設(shè)計的任務(wù)，增強

116、了小組間的凝聚力。　　4、參考文獻(xiàn)　　[1] 權(quán)明富，齊佳音，舒華英.客戶價值評價指標(biāo)體系設(shè)計[J].南開管理評論，2004，7(3):17-18.　　[2] 劉小洪，鄒鵬. 商業(yè)銀行客戶關(guān)系價值管理模型研究[J].管理科學(xué)，2005，18(3):57-60.</p&g

117、t;　　[3] 劉展，馮宗憲. M.H.DIS模型在我國上市公司信用評估中的應(yīng)用研究[J].系統(tǒng)工程理論與實踐，2004(2):76-82.　　[4] 李純青，徐寅峰，張洋. 基于知識管理的動態(tài)客戶關(guān)系管理研究[J].中國管理科學(xué)，2004，12(2): 88-94.　　[5] 呂延杰，尹濤，王琦. 客戶關(guān)系管理與主題分析[M].北

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

溫馨提示

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

管科mis課程設(shè)計-- 餐飲管理信息系統(tǒng)

文檔簡介

溫馨提示

最新文檔

評論

免費下載