課程設(shè)計--超市銷售系統(tǒng)管理-wenkub.com
2025-01-10 19:16 本頁面
【正文】 也學(xué)到了很多東西。終于功夫不負(fù)有心人，我也成功地讓這些按鈕能夠運(yùn)行。這讓我想起了平常的很多登錄界面，比如登錄。設(shè)計時，最初想到的是界面如何更加美觀。If ThenMsgBox 沒有你所找人!ElseMsgBox 合您查找條件的人為 amp。If ThenMsgBox 沒有你所找商品!Else“退出”Private Sub Command5_Click()Form4 .HideEnd Sub“上一個”Private Sub Command6_Click()If ThenMsgBox (已經(jīng)是第一條記錄了!)End IfEnd Sub “下一個”Private Sub Command7_Click()If ThenMsgBox (已經(jīng)是最后一條記錄了!)End IfEnd Sub對員工信息進(jìn)行操作的代碼 “添加”Private Sub Command1_Click()vb_msg = MsgBox(請輸入要添加的數(shù)據(jù), vbOKCancel)If vb_msg = vbCancel ThenExit SubEnd If(員工號) = Val()(姓名) = (性別) = (籍貫) = Val()End Sub “刪除”Private Sub Command2_Click()Dim X As IntegerX = MsgBox(你確定要刪除記錄嗎?, vbYesNo)If X = vbYes ThenIf ThenEnd IfEnd IfEnd Sub “修改”Private Sub Command3_Click()areturn = MsgBox(你確定要修改記錄嗎?, vbYesNo)If areturn = vbYes Then(員工號) = Val()(姓名) = Val()(性別) = Val()(籍貫) = Val()End Sub “查詢”Private Sub Command4_Click()msg = InputBox(請輸入員工號, 查找記錄) 銷售記錄號為=39。 (1)End IfEnd Sub“退出”的代碼Private Sub Co
黨政相關(guān)相關(guān)推薦
鄂ICP備17016276號-1