基于vb實(shí)現(xiàn)的超市銷售管理課程設(shè)計(jì)報(bào)告word格式(文件)
【正文】 Case 確定 If And And Then ‘ 數(shù)據(jù)庫更新 = 添加 Else = False = False = False = False = False MsgBox 您還未輸入完成，請(qǐng)補(bǔ)充完整！ End If = True = True = True = True = True End Select End Sub Private Sub Cancel_Click() ‘ 實(shí)現(xiàn)取消添加和修改功能 ‘ 顯示第一條數(shù)據(jù) = 添加 = 修改 End Sub Private Sub Delet_Click() ‘ 實(shí)現(xiàn)商品信息刪除功能 Dim i% i = MsgBox(確認(rèn)要?jiǎng)h除此記錄？ , vbYesNo + vbExclamation, 提示：) If i = vbYes Then ‘ 刪除當(dāng)前的數(shù)據(jù)庫記錄 End If 11 End Sub Private Sub Edit_Click() ‘ 實(shí)現(xiàn)商品信息修改功能 Select Case Case 修改 = False = False = False = False = False ‘ 編輯當(dāng)前數(shù)據(jù)記錄 = 確定 Case 確定 = True = True = True = True = True = 修改 End Select End Sub Private Sub First_Click() ‘ 顯示第一條 End Sub 12 Private Sub Last_Click() ‘ 顯示最后一條 End Sub 13 Private Sub Next_Click() ‘ 顯示下一條 If Then End Sub 14 Private Sub Previous_Click() ‘ 顯示上一條 If Then End Sub 15 Private Sub 查詢 _Click() ‘ 彈出查詢體 End Sub 16 Private Sub 統(tǒng)計(jì) _Click() ‘ 彈出統(tǒng)計(jì)窗體 End Sub 17 Private Sub 注銷 _Cl
公司管理相關(guān)推薦
鄂ICP備17016276號(hào)-1