基于vb實現(xiàn)的超市銷售管理課程設(shè)計報告word格式-文庫吧資料
2024-09-21 09:17本頁面
【正文】 se = False = False = False MsgBox 您還未輸入完成，請補充完整！ End If = True = True = True = True = True End Select End Sub Private Sub Cancel_Click() ‘ 實現(xiàn)取消添加和修改功能 ‘ 顯示第一條數(shù)據(jù) = 添加 = 修改 End Sub Private Sub Delet_Click() ‘ 實現(xiàn)商品信息刪除功能 Dim i% i = MsgBox(確認要刪除此記錄？ , vbYesNo + vbExclamation, 提示：) If i = vbYes Then ‘ 刪除當前的數(shù)據(jù)庫記錄 End If 11 End Sub Private Sub Edit_Click() ‘ 實現(xiàn)商品信息修改功能 Select Case Case 修改 = False = False = False = False = False ‘ 編輯當前數(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)計 _Click() ‘ 彈出統(tǒng)計窗體 End Sub 17 Private Sub 注銷 _Click() ‘ 返回登錄界面 Unload Me End Sub 查詢 的 功能 與實現(xiàn) ： 18 核心代碼： Private Sub Command1_Click() Dim sql$ If
公司管理相關(guān)推薦
鄂ICP備17016276號-1