vb課程設計--酒店點菜系統(tǒng)-展示頁
2025-01-25 03:36本頁面
【正文】 菜式管理系統(tǒng) 添加菜式 刪除菜式 返回主界面 點菜系統(tǒng) 點 菜 退 菜 返回管理界面 VB 語言課程設計 6 c：菜式瀏覽系統(tǒng) 菜式瀏覽系統(tǒng) 按菜名瀏覽 按價格瀏覽 按菜系瀏覽 返回點菜系統(tǒng) 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 Next j End Sub Private Sub cm_Click() For j = 1 To i 1 For k = i To j + 1 Step 1 If s(k).cm s(k 1).cm Then m = s(k).cm: s(k).cm = s(k 1).cm: s(k 1).cm = m m = s(k).cx: s(k).cx = s(k 1).cx: s(k 1).cx = m m = s(k).jg: s(k).jg = s(k 1).jg: s(k 1).jg = m m = s(k).yl: s(k).yl = s(k 1).yl: s(k 1).yl = m m = s(k).zk: s(k).zk = s(k 1).zk: s(k 1).zk = m End If Next k Next j Cls Print Chr(13), C
環(huán)評公示相關推薦
鄂ICP備17016276號-1