管科mis課程設(shè)計(jì)--餐飲管理信息系統(tǒng)-在線瀏覽
2025-03-02 16:28本頁(yè)面
【正文】 enuItem_Click(ByVal sender As , ByVal e As ) Handles Dim newform As New Form3 = Me () End Sub Private Sub 用戶管理ToolStripMenuItem_Click(ByVal sender As , ByVal e As ) Handles Dim newform As New Form4 = Me () End Sub Private Sub 菜單編輯管理ToolStripMenuItem_Click(ByVal sender As , ByVal e As ) Handles Dim newform As New Form5 20 = Me () End Sub Private Sub 點(diǎn)餐ToolStripMenuItem_Click(ByVal sender As , ByVal e As ) Handles Dim newform As New Form6 = Me () End Sub Private Sub 訂單ToolStripMenuItem_Click(ByVal sender As , ByVal e As ) Handles Dim newform As New Form7 = Me () End Sub Private Sub 訂座ToolStripMenuItem_Click(ByVal sender As , ByVal e As ) Handles Dim newform As New Form8 = Me () End Sub Private Sub 個(gè)人信息ToolStripMenuItem_Click(ByVal sender As , ByVal e As ) Handles Dim newform As New Form9 = Me () 21 End SubEnd Class 餐廳系統(tǒng)密碼修改界面主界面中選擇系統(tǒng)管理中的修改用戶名口令后出現(xiàn)的口令修改界面，在窗體中添加 3 個(gè) TextBox 控件、2 個(gè) Button 控件和 3 個(gè) Label 控件，調(diào)節(jié)他們的大小和位置；在【屬性】設(shè)置窗體中分別對(duì)這些控件和窗體設(shè)置相應(yīng)的屬性，設(shè)置結(jié)果如表所示。 39。 username amp。 and user_pwd = 39。 oldpassword amp。 Dim objdatarow As DataRow Try objdatarow = objdatarow(sqlstr).Tables(0). = 0 Catch MsgBox(舊密碼和賬號(hào)不符,請(qǐng)重新輸入密碼, + , 更改密碼失敗) = Exit Sub End Try sqlstr = update userinfo set user_pwd = amp。 amp。 39。 amp。 39。 newpassword, + , 密碼修改成功) End Sub Private Sub Button2_Click(ByVal sender As , ByVal e As ) Handles () End SubEnd Class系統(tǒng)管理中口令修改代碼運(yùn)行的結(jié)果 23 用戶管理界面主界面中選擇系統(tǒng)管理中的用戶管理后出現(xiàn)的用戶管理界面，如圖： 24 系統(tǒng)管理中用戶管理代碼運(yùn)行的結(jié)果 菜單編輯界面主界面中選擇系統(tǒng)管理中的菜單編輯后出現(xiàn)的菜單編輯界面，如圖： 25 菜單編輯代碼Public Class Form4 Private Sub Form4_Load(ByVal sender As , ByVal e As ) Handles (泡椒魚頭 100) (醬骨架 80) (米粉 20) (炒肉 50) (鵝肝 80) (填鴨 70) (米飯 10) End Sub Private Sub Button1_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 If 0 Then For j = 0 To 1 (j, (i).ToString) 26 (i) Next End If Next If = 0 Then = False = False End If = True = True End Select End Sub Private Sub Button2_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 () = False = False = True = True End Select End Sub Private Sub Button3_Click(ByVal sender As , ByVal e As )
法律信息相關(guān)推薦
鄂ICP備17016276號(hào)-1