圖書庫存管理系統(tǒng)計(jì)算機(jī)畢業(yè)設(shè)計(jì)sub,msg,庫存管理系統(tǒng),private,ifend,出庫,密碼,text,窗體,圖書(編輯修改稿)
2025-01-04 11:11 本頁面
【文章內(nèi)容簡介】 dmark = msg = Trim(InputBox(請輸入用戶密碼 : , 權(quán)限認(rèn)證 )) msg = 密碼 like 39。 amp。 msg amp。 39。 msg If Then MsgBox (你無權(quán)進(jìn)入系統(tǒng)操作！ ) Else 圖書出庫 .Show End If End Sub 5 “權(quán)限維護(hù)”標(biāo)簽的過程代碼： Private Sub Label3_Click() End Sub “入庫結(jié)存”標(biāo)簽的過程代碼： Private Sub Label4_Click() Dim msg oldmark = msg = Trim(InputBox(請輸入用戶密碼 : , 權(quán)限認(rèn)證 )) msg = 密碼 like 39。 amp。 msg amp。 39。 msg If Then MsgBox (你無權(quán)進(jìn)入系統(tǒng)操作！ ) Else 入庫統(tǒng)計(jì) .Show End If End Sub “出庫結(jié)存”標(biāo)簽的過程代碼： Private Sub Label5_Click() Dim msg oldmark = msg = Trim(InputBox(請輸入 用戶密碼 : , 權(quán)限認(rèn)證 )) msg = 密碼 like 39。 amp。 msg amp。 39。 msg If Then MsgBox (你無權(quán)進(jìn)入系統(tǒng)操作！ ) Else 出庫統(tǒng)計(jì) .Show End If End Sub “返回到啟動(dòng)封面”標(biāo)簽的過程代碼： Private Sub Label6_Click() Unload Me End Sub 6 c、圖書入、出庫管理窗體： d、圖書出庫結(jié)存窗體： 相關(guān)代碼如下： “添加”按鈕的過程代碼： Private Sub Command1_Click() On Error GoTo AddErr Exit Sub AddErr: MsgBox End Sub “更新”按鈕的過程代碼： Private Sub Command2_Click() 7 On Error GoTo UpdateErr adAffectAll Exit Sub UpdateErr: MsgBox End Sub “刪除”按鈕的過程代碼： Private Sub Command3_Click() On Error GoTo DeleteErr With .Delete .MoveNext If .EOF Then .MoveLast End With Exit Sub DeleteErr: MsgBox End Sub “刷新”按鈕的過程代碼： Private Sub Command4_Click() 39。只有多用戶應(yīng)用程序需要 On Error GoTo RefreshErr Exit Sub RefreshErr: MsgBox End Sub
公司管理相關(guān)推薦
鄂ICP備17016276號-1