vb圖書管理系統(tǒng)課程設(shè)計(jì)-展示頁
2025-06-17 11:08本頁面
【正文】 End Sub 圖書信息的查詢： Private Sub Command1_Click() = select * from bookinfo where book_id=39。DATABASE=library _str sql_str = select * from userinfo sql_str, While Not If = Trim(rs(0)) And = Trim(rs(1)) Then flag = True Exit Sub Else flag = False End If 8 Wend If flag = False Then MsgBox 輸入有誤，請(qǐng)輸入正確的密碼和賬號(hào)！ , vbCritical + vbOKOnly, 錯(cuò)誤 End If End Sub Private Sub Command2_Click() Dim As New Dim rs As New Dim flag As Boolean Dim _str As String, sql_str As String _str = DRIVER={SQL SERVER}。 用戶 管理界面 6 編輯圖書信息界面 7 查詢圖書信息界面： 三 系統(tǒng)的詳細(xì)設(shè)計(jì) 登錄界面代碼 Private Sub Command1_Click() Dim As New Dim rs As New Dim flag As Boolean Dim _str As String, sql_str As String _str = DRIVER={SQL SERVER}。
畢業(yè)設(shè)計(jì)相關(guān)推薦
鄂ICP備17016276號(hào)-1