vb課程設(shè)計(jì)--酒店點(diǎn)菜系統(tǒng)-文庫吧
2025-01-01 03:36 本頁面
【正文】 失 敗 登錄成功 酒店菜單登錄系統(tǒng) 登錄認(rèn)證 菜式管理系統(tǒng) 菜式瀏覽系統(tǒng) 點(diǎn)菜系統(tǒng) 返回酒店菜單登錄系統(tǒng) VB 語言課程設(shè)計(jì) 5 （ 2）各模塊流程圖 a：菜式管理系統(tǒng) b：點(diǎn)菜系統(tǒng) 菜式管理系統(tǒng) 添加菜式 刪除菜式 返回主界面 點(diǎn)菜系統(tǒng) 點(diǎn) 菜 退 菜 返回管理界面 VB 語言課程設(shè)計(jì) 6 c：菜式瀏覽系統(tǒng) 菜式瀏覽系統(tǒng) 按菜名瀏覽 按價(jià)格瀏覽 按菜系瀏覽 返回點(diǎn)菜系統(tǒng) VB 語言課程設(shè)計(jì) 7 三 .詳細(xì)設(shè)計(jì) 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 語言課程設(shè)計(jì) 8 If = jane And = 123456 Then Else mes = MsgBox(用戶名或密碼錯(cuò)誤，請重新輸入！ ) = = 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(請輸入價(jià)格 , 新增 ) s(i).yl = InputBox(請輸入原料 , 新增 ) s(i).zk = InputBox(請輸入折扣 , 新增 ) End Sub VB 語言課程設(shè)計(jì) 9 Private Sub mnufiledel_Click() Dim j As Integer Dim k As Integer Dim n As String n = InputBox(請輸入查找的關(guān)鍵字 , 查找 ) 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 語言課程設(shè)計(jì) 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 語言課程設(shè)計(jì) 11 Private Sub Form_Load() Dim j As Integer For j = 1 To i s(j).cm
環(huán)評公示相關(guān)推薦
鄂ICP備17016276號-1