【正文】
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)管理中菜單編輯代碼運(yùn)行的結(jié)果 點(diǎn)餐界面主界面中選擇前臺(tái)餐飲管理中的點(diǎn)餐后出現(xiàn)的點(diǎn)餐界面,如圖:點(diǎ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 SubEnd Class前臺(tái)餐飲管理中點(diǎn)餐代碼運(yùn)行的結(jié)果 訂單界面主界面中選擇前臺(tái)餐飲管理中的訂單后出現(xiàn)的訂單界面,如圖: 30 前臺(tái)餐飲管理中訂單運(yùn)行的結(jié)果 訂座界面主界面中選擇前臺(tái)餐飲管理中的訂座后出現(xiàn)的訂單界面,如圖:訂座代碼Public Class Form2 Private Sub Form2_Load(ByVal sender As , ByVal e As ) Handles (就餐) (空閑) End Sub 31 End Class前臺(tái)餐飲管理中訂座運(yùn)行的結(jié)果主界面中選擇員工管理中的個(gè)人信息后出現(xiàn)的訂單界面,如圖:?jiǎn)T工管理系統(tǒng)中個(gè)人信息代碼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 SubEnd Class 33 員工管理系統(tǒng)中個(gè)人信息運(yùn)行結(jié)果課程設(shè)計(jì)總結(jié)或結(jié)論本系統(tǒng)在開(kāi)發(fā)過(guò)程中,嘗試著包括運(yùn)用 VB 等多種數(shù)據(jù)庫(kù)連接技術(shù)。在系統(tǒng)開(kāi)發(fā)的最后階段,不斷測(cè)試和調(diào)試系統(tǒng),總結(jié)系統(tǒng)中存在的問(wèn)題,最終在老師和同學(xué)的幫助下,完成整個(gè)系統(tǒng)的開(kāi)發(fā)過(guò)程。盡管系統(tǒng)已經(jīng)開(kāi)發(fā)完成,但由于經(jīng)驗(yàn)不足和對(duì)實(shí)際生產(chǎn)生活不熟悉,在系統(tǒng)中仍然存在著許多的問(wèn)題,還不能滿足實(shí)際需求,需要在功能方面繼續(xù)完善。設(shè)計(jì)過(guò)程中,小組成員積極配合,商量軟件各方面存在的問(wèn)題,并認(rèn)真改正不好的地方,最終完成了本次課程設(shè)計(jì)的任務(wù),增強(qiáng)了小組間的凝聚力。參考文獻(xiàn)[1] 權(quán)明富,齊佳音,[J].南開(kāi)管理評(píng)論,2022,7(3):1718.[2] 劉小洪,鄒鵬. 商業(yè)銀行客戶關(guān)系價(jià)值管理模型研究[J].管理科學(xué),2022,18(3):5760.[3] 劉展,馮宗憲. 模型在我國(guó)上市公司信用評(píng)估中的應(yīng)用研究[J].系統(tǒng)工程理論與實(shí)踐,2022(2):7682.[4] 李純青,徐寅峰,張洋. 基于知識(shí)管理的動(dòng)態(tài)客戶關(guān)系管理研究[J].中國(guó)管理科學(xué),2022,12(2): 8894.[5] 呂延杰,尹濤,王琦. 客戶關(guān)系管理與主題分析[M].北京,中國(guó)郵電出版社,2022. [6] 秦壽康等. 綜合評(píng)價(jià)原理與應(yīng)用[M].北京:電子工業(yè)出版社,2022.[7] 李捷等,Visual Basic 2022 程序設(shè)計(jì)教程[M].機(jī)械工業(yè)出版社.小組成員分工說(shuō)明:系統(tǒng)分析:劉睿 34 系統(tǒng)設(shè)計(jì):王銀柳 馬新蓮 實(shí)驗(yàn)報(bào)告:王銀柳