基于vb實現(xiàn)的超市銷售管理課程設(shè)計報告word格式(編輯修改稿)
2024-10-19 09:17 本頁面
【文章內(nèi)容簡介】 則顯示窗體 2 Unload Me ‘然后自我卸載 Else ‘用戶名或者密碼錯誤的情況下： MsgBox 用戶或密碼錯誤，請重新輸入！ , , 提示： = = End If End Sub Private Sub Command2_Click() Unload Me End Sub 主界面 的設(shè)計與功能 ： 9 使用一個 data 控件與數(shù)據(jù)庫連接在文本框上一一將數(shù)據(jù)庫里的內(nèi)容顯示出來。 核心代碼： Private Sub Form_Load() ‘ 初始化設(shè)置 = ( ) / 4 = ( ) / 4 = 200 = vbRed = 銷售管理 = True = True = True = True = True = 商品名稱 = 商品價格 = 商 品記錄號 = 銷售情況 = 商品庫存 End Sub Private Sub Addnew_Click() ‘ 實現(xiàn)商品添加功能 10 Select Case Case 添加 = False ‘ 解除文本框鎖定，進行添加 = False = False = False = False ‘ 商品信息加入數(shù)據(jù)庫 = 確定 Case 確定 If And And Then ‘ 數(shù)據(jù)庫更新 = 添加 Else = False = False = 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 ‘ 刪除當(dāng)前的數(shù)據(jù)庫記錄 End If 11 End Sub Private Sub Edit_Clic
公司管理相關(guān)推薦
鄂ICP備17016276號-1