管科mis課程設(shè)計--餐飲管理信息系統(tǒng)(編輯修改稿)
2025-07-13 02:05 本頁面
【文章內(nèi)容簡介】 盡量縮短代碼的長度，以便于輸入，提高處理效率，并且要便于識別和記憶。 ：代碼要盡量反映編碼對象的特點，以便于識別和記憶；要同時適用于計算機和人工處理。 ：代碼的結(jié)構(gòu)、類型、編碼格式必須嚴格統(tǒng)一，以便于計算機處理。 。 。 輸入 /輸出設(shè)計 輸出項目 發(fā)貨單、 到貨通知單、采購合同、商品信息： 商品編號、商品名稱、商品單價、購買數(shù)量、 購買 日期、總計 。 13 輸出要求 主要輸入數(shù)據(jù)類型、來源、所用設(shè)備、介質(zhì)、格式、數(shù)值范圍、精度等如表 26 所示。 表 26輸出數(shù)據(jù)描述 字段名 類型 數(shù)值范圍 所用設(shè)備 來源 是否為空 說明 商品編號 字符型 10 電腦，鍵盤，鼠標 廠商 否 商品名稱 字符型 電腦，鍵盤，鼠標 廠商 否 商品單價 字符型 電腦，鍵盤，鼠標 廠商 否 購買數(shù)量 字符型 電腦，鍵盤，鼠標 超市 否 購買日期 字符型 電腦，鍵盤，鼠標 超 市 否 總計 字符型 電腦，鍵盤，鼠標 否 輸出界面： 該界面簡單，大方，可以為使用者提供及時、準確和全面的信息服務(wù)。標注清晰，很容易使用，新增加的商品代碼，及規(guī)格爭得了使用人員的同意，其它方面沒有大的改動，上手快，方便操作。驗收較為滿意。 輸入項目 訂貨單、發(fā)貨單、過期商品單、到貨通知 、 商品編號 輸入界面設(shè)計： 14 該輸入界面簡單易懂，操作人員容易輸入數(shù)據(jù)，便于存檔，而且數(shù)據(jù)位置清晰，不易出錯。我們對輸入數(shù)據(jù)采用了糾錯措施，能夠可靠準確的進行輸入。驗收較為滿意。 系統(tǒng)實施 實施 方案說明 系統(tǒng)名稱：餐飲 管理信息系統(tǒng) 程序語言： VB 使用的設(shè)備：計算機和打印機 實施的總計劃 系統(tǒng)測試包括：模塊測試，子系統(tǒng)測試，系統(tǒng)測試和用戶驗收測試。測試的同時進行了調(diào)試。各個進度的時間安排妥當，費用適當 ,所以實施方案通過。 當用戶首次進入系統(tǒng)時，必須要驗證用戶身份，及用戶必須有自己的用戶名和密碼。 在窗體中添加 2個 TextBox控件、 2個 Button控件和 2個 Label控件，調(diào)節(jié)他們的大小和位置； 在【屬性】設(shè)置窗體中分別對這些控件和窗體設(shè)置相應(yīng)的屬性，設(shè)置結(jié)果如表所示。 控件類別 控件名稱 屬性 button Button1 Button2 Text text label Label1 Label2 Text text 15 Label1 textbox Textbox1 Textbox2 Text text 登錄界面的代碼 Public Class Form1 39。 Dim user As String Dim password As String Dim sqlstr As String Dim username As String Dim pepdom As String Dim mod1 As String Dim mod2 As String Dim mod3 As String Dim mod4 As String Private Sub Button1_Click(ByVal sender As , ByVal e As ) Handles user = password = sqlstr = SELECT * FROM Userinfo WHERE User_Id= amp。 39。 amp。 user amp。 39。 and User_pwd=39。 amp。 password amp。 39。 Dim objdatarow As DataRow Try objdatarow = objdatarow(sqlstr).Tables(0). = 0 Catch MsgBox(口令和賬號不符 ,請重試 ,并檢查該賬號是否存在。 , + , 系統(tǒng)登錄失敗 ) 16 = Exit Sub End Try username = user pepdom = (2) mod1 = CBool((3)) mod2 = CBool((4)) mod3 = CBool((5)) mod4 = CBool((6)) Dim frmmain As New Form1() () () End Sub Private Sub Button2_Click(ByVal sender As , ByVal e As ) Handles If MsgBox(您真的不登錄餐飲管理系統(tǒng)嗎 ?, + , 退出登錄系統(tǒng) ) = Then () Else Exit Sub End If End Sub End Class 登錄代碼運行的結(jié)果 17 登錄后出現(xiàn)的餐廳的主界面 18 19 總界面的代碼 Public Class Form2 Private Sub 修改用戶名 ToolStripMenuItem_Click(ByVal sender As , ByVal e As ) Handles 修改用戶名 Dim newform As New Form3 = Me () End Sub Private Sub 用戶管理 ToolStripMenuItem_Click(ByVal sender As , ByVal e As ) Handles 用戶管理 Dim newform As New Form4 = Me () End Sub Private Sub 菜單 編輯管理 ToolStripMenuItem_Click(ByVal sender As , ByVal e As ) Handles 菜單編輯管理 Dim newform As New Form5 20 = Me () End Sub Private Sub 點餐 ToolStripMenuItem_Click(ByVal sender As , ByVal e As ) Handles 點餐 Dim newform As New Form6 = Me () End Sub Private Sub 訂單 ToolStripMenuItem_Click(ByVal sender As , ByVal e As ) Handles 訂單 Dim newform As New Form7 = Me () End Sub Private Sub 訂座 ToolStripMenuItem_Click(ByVal
畢業(yè)設(shè)計相關(guān)推薦
鄂ICP備17016276號-1