【正文】 失 敗 登錄成功 酒店菜單登錄系統 登錄認證 菜式管理系統 菜式瀏覽系統 點菜系統 返回酒店菜單登錄系統 VB 語言課程設計 5 （ 2）各模塊流程圖 a：菜式管理系統 b：點菜系統 菜式管理系統 添加菜式 刪除菜式 返回主界面 點菜系統 點 菜 退 菜 返回管理界面 VB 語言課程設計 6 c：菜式瀏覽系統 菜式瀏覽系統 按菜名瀏覽 按價格瀏覽 按菜系瀏覽 返回點菜系統 VB 語言課程設計 7 三 .詳細設計 Public i As Integer Public sum As Single Type caidan cm As String cx As String jg As Integer yl As String zk As Single End Type Public s() As caidan Function chazhao(ByVal n As String) As Integer Dim j As Integer For j = 1 To i If n = s(j).cm Then chazhao = j If n = s(j).cx Then chazhao = j If n = Str(s(j).jg) Then chazhao = j If n = s(j).yl Then chazhao = j If n = Str(s(j).zk) Then chazhao = j Next j End Function （ form1） Private Sub Command1_Click() Dim mes% VB 語言課程設計 8 If = jane And = 123456 Then Else mes = MsgBox(用戶名或密碼錯誤，請重新輸入！ ) = = End If End Sub Private Sub Command2_Click() End End Sub Private Sub Form_Load() = * End Sub （ form2） Private Sub mnufileadd_Click() ReDim Preserve s(1 To (i + 1)) As caidan i = i + 1 s(i).cm = InputBox(請輸入菜名 , 新增 ) s(i).cx = InputBox(請輸入菜系 , 新增 ) s(i).jg = InputBox(請輸入價格 , 新增 ) s(i).yl = InputBox(請輸入原料 , 新增 ) s(i).zk = InputBox(請輸入折扣 , 新增 ) End Sub VB 語言課程設計 9 Private Sub mnufiledel_Click() Dim j As Integer Dim k As Integer Dim n As String n = InputBox(請輸入查找的關鍵字 , 查找 ) j = chazhao(n) For k = j To i 1 s(k) = s(k + 1) Next k i = i 1 End Sub Private Sub mnufileqiute_Click() End End Sub Public Function chazhao(ByVal n As String) As Integer Dim j As Integer For j = 1 To i If n = s(j).cm Then chazhao = j If n = s(j).cx Then chazhao = j If n = Str(s(j).jg) Then chazhao = j If n = s(j).yl Then chazhao = j If n = Str(s(j).zk) Then chazhao = j Next j End Function （ form3） Private Sub Command1_Click() For j = 0 To 1 VB 語言課程設計 10 If (j) Then (j) sum = sum + s(j + 1).jg * s(j + 1).zk End If Next j = sum End Sub Private Sub Command2_Click() If = 0 Then For j = 0 To 1 If (j) Then n = (j) End If Next j j = chazhao(n) sum = sum s(j).jg * s(j).zk = sum End If = sum End Sub Private Sub Command3_Click() Label5 = 謝謝使 用！ End Sub Private Sub Command4_Click() Unload Form3 End Sub VB 語言課程設計 11 Private Sub Form_Load() Dim j As Integer For j = 1 To i s(j).cm