畢業(yè)設(shè)計(jì)－vb+sql圖書(shū)管理系統(tǒng)-預(yù)覽頁(yè)
【正文】 MsgBox 此書(shū)籍丟失未賠償，請(qǐng)先賠償！ , vbOKOnly + vbInformation, 信息 1 Exit Sub End If = 2 = 2 strSql4 = select * from 讀者信息 where 借書(shū)證號(hào) =39。 ShowData sql, (1).Text = 總共有 amp。 ShowData strSql1, If (, 0) = 借書(shū)編號(hào) Then MsgBox 您未借閱此圖書(shū)！ , vbOKOnly + vbInformation, 信息 = 2 = 2 (1).Text = 總共有 0 條記錄 Exit Sub Else 1 End If End If End If If = 續(xù)借此書(shū) Then If = Then MsgBox 請(qǐng)輸入身份用戶名！ Exit Sub End If If InStr(1, Trim(), ,) 0 Then MsgBox 請(qǐng)不要輸入單引號(hào)等非法字符！ = Exit Sub End If sql = select * from 用戶 where 用戶名 =39。 strn sql, n, 3, adLockOptimistic If 0 Then MsgBox 密 碼 輸 入 正 確 ！ 歡 迎 登 錄 !, vbOKOnly + vbInformation, 信息 = rst!用戶權(quán)限 = rst!用戶名 Unload Me 1 Else MsgBox 密 碼 錯(cuò) 誤 ！ 請(qǐng) 重 新 輸 入 ！ , vbOKOnly + vbExclamation, 信息 = End If End Sub Private Sub Command2_Click() If MsgBox(你確定要退出嗎？ , vbQuestion + vbOKCancel, 提示 ) = vbOK Then End End If End Sub Private Sub Form_Load() 管理員 操作員 End Sub 論文網(wǎng) Private Sub Frame1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) = vbBlack = False End Sub Private Sub lblfj_Click() Dim n As New Dim cmd As New Dim sql As String sql = exec sp_attach_db 39。, _ +
環(huán)評(píng)公示相關(guān)推薦
鄂ICP備17016276號(hào)-1