【正文】 27 For i = 0 To 1 If 0 Then For j = 0 To 1 (j, (i).ToString) (i) Next End If Next If = 0 Then = True = True = False = False End If End Select End Sub Private Sub Button4_Click(ByVal sender As , ByVal e As ) Handles Dim i, j As Integer Select Case DirectCast(sender, Button).Name Case For i = 0 To 1 ((i)) Next () = True = True = False = False End Select End Sub 28 End Class 系統(tǒng)管理中菜單編輯代碼運行的結果 點餐界面 主界面中選擇前臺餐飲管理中的點餐后出現(xiàn)的點餐界面，如圖： 點餐代碼 Public Class Form5 Private Sub Button1_Click(ByVal sender As , ByVal e As ) Handles Dim sum As String If = True Then 29 sum = 100 End If If = True Then sum = 100 + 80 End If If = True Then sum = 100 + 80 + 20 End If = sum End Sub End Class 前臺餐飲管理中點餐代碼運行的結果 主界面中選擇前臺餐飲管理中的訂單后出現(xiàn)的訂單界面，如圖： 30 前臺餐飲管理中訂單運行的結果 主界面中選擇前臺餐飲管理中的訂座后出現(xiàn)的訂單界面，如圖： 訂座代碼 Public Class Form2 Private Sub Form2_Load(ByVal sender As , ByVal e As ) Handles (就餐 ) (空閑 ) End Sub 31 End Class 前臺餐飲管理中訂座運行的結果 主界面中選擇員工管理中的個人信息后出現(xiàn)的訂單界面，如圖： 員工管理系統(tǒng)中個人信息代碼 Public Class Form3 Private Sub Form3_Load(ByVal sender As , ByVal e As ) Handles (男 ) (女 ) 32 End Sub Private Sub Button1_Click(ByVal sender As , ByVal e As ) Handles Dim a As String Dim b As Boolean Dim c As Boolean a = b = c = Select Case Case Is = 男 If a = 001 amp。 b = 張三 amp。 c = 經(jīng)理 Then = 恭喜您，添加成功！ = True Else = 非常遺憾，添加失?。? End If Case Is = 女 If a = 002 amp。 b = 李四 amp。 c = 員工 Then = 恭喜您，添加成功！ = True Else = 非常遺憾，添加失??！ End If End Select End Sub Private Sub Button2_Click(ByVal sender As , ByVal e As ) Handles () End Sub End Class 33 員工管理系統(tǒng)中個人信息運行結果 課程設計總結或結論 本系統(tǒng)在開發(fā)過程中，嘗試著包括運用 VB等多種數(shù)據(jù)庫連接技術。在系統(tǒng)開發(fā)的最后階段，不斷測試和調試系統(tǒng)，總結系統(tǒng)中存在的問題，最終在老師和同學的幫助下，完成整個系統(tǒng)的開發(fā)過程。 盡 管系統(tǒng)已經(jīng)開發(fā)完成，但由于經(jīng)驗不足和對實際生產(chǎn)生活不熟悉，在系統(tǒng)中仍然存在著許多的問題，還不能滿足實際需求，需要在功能方面繼續(xù)完善。 設計過程中，小組成員積極配合，商量軟件各方面存在的問題，并認真改正不好的地方，最終完成了本次課程設計的任務，增強了小組間的凝聚力。 參考文獻 [1] 權明富，齊佳音，舒華英 .客戶價值評價指標體系設計 [J].南開管理評論， 2021， 7(3):1718. [2] 劉小洪，鄒鵬 . 商業(yè)銀行客戶關系價值管理模型研究 [J].管理科學， 2021， 18(3):5760. [3] 劉 展，馮宗憲 . [J].系統(tǒng)工程理論與實踐，2021(2):7682. [4] 李純青，徐寅峰，張洋 . 基于知識管理的動態(tài)客戶關系管理研究 [J].中國管理科學， 2021， 12(2): 8894. [5] 呂延杰，尹濤，王琦 . 客戶關系管理與主題分析 [M].北京，中國郵電出版社， 2021. [6] 秦壽康等 . 綜合評價原理與應用 [M].北京：電子工業(yè)出版社， 2021. [7] 李捷等 ,Visual Basic 2021 程序設計教程 [M].機械工業(yè)出版社 . 小組成員分工說明： 系統(tǒng)分析： 劉睿 34 系統(tǒng)設計： 王銀柳 馬新蓮 實驗報告 ： 王銀柳