vb課程設(shè)計(jì)報(bào)告書(shū)(飯店點(diǎn)菜系統(tǒng))-wenkub
2023-04-07 00:35:53 本頁(yè)面
【正文】 ick()EndEnd Sub 酒店主頁(yè)界面及其代碼Private Sub Command1_Click()End SubPrivate Sub Command2_Click()End SubPrivate Sub Command3_Click()End Sub 點(diǎn)菜界面及其代碼Private Sub Command1_Click() = select * from 酒水 = LoadPicture( + )End SubPrivate Sub Command10_Click()End SubPrivate Sub Command11_Click()If Val() = 300 Then = TrueEnd IfEnd SubPrivate Sub Command12_Click() If Then End If = LoadPicture( + )End SubPrivate Sub Command13_Click() If Then End If = LoadPicture( + )End SubPrivate Sub Command2_Click() = select * from 湯類 = LoadPicture( + )End SubPrivate Sub Command3_Click() = select * from 主食 = LoadPicture( + )End SubPrivate Sub Command4_Click() = select * from 葷菜 = LoadPicture( + )End SubPrivate Sub Command5_Click() = select * from 素菜 = LoadPicture( + )End SubPrivate Sub Command6_Click()Dim a As Long amp。 = amp。 Now aEnd SubPrivate Sub Command2_Click()End SubPrivate Sub Command3_Click() = = End SubPrivate Sub Command4_Click()End Sub 抽獎(jiǎng)界面及其代碼Dim a As Integer, b As Integer, c As Integer, d As IntegerPrivate Sub Command1_Click() = True = FalseEnd SubPrivate Sub Command2_Click() = False = FalseIf a = b And b = c And c = d Then = 恭喜您獲得一等獎(jiǎng) ElseIf a = b And b = c And c d Or
環(huán)評(píng)公示相關(guān)推薦
鄂ICP備17016276號(hào)-1