VB 簡單圖書管理系統設計

圖書管理系統源代碼下載（包含源代碼、數據庫、設計報告）

一、基本概述

基于VB,mysql數據庫

擁有可操作界面

實現基本圖書管理功能

二、數據庫的概念設計

圖書信息

圖書信息：{書號，書名，作者，分類號，出版社，價格，摘要，入館日期，是否在架}

讀者用戶信息

讀者用戶信息：{讀者號（用戶ID），密碼，姓名，性別，單位，類型，身份證號，罰款金額，辦理日期，住址，電話，郵箱}

管理員信息

管理員信息：{賬號，密碼，姓名，性別是否刪除}

借閱信息

借閱信息：{借閱編號，讀者號（用戶ID），書號，借書時間，還書時間，是否已歸還}

系統E-R圖

三．部分運行截圖

'登陸頁代碼 Private Sub Command1_Click()Dim conn As ADODB.Connection Dim rs As ADODB.Recordset Dim stru$, strp$, strsql$ Static count As Byte stru = Text1.text strp = Text2.text username = Text1.textIf stru = "" Then MsgBox "用戶名不能為空，請輸入用戶名！", , "登陸錯誤" Text1.SetFocus Exit Sub ElseIf strp = "" Then MsgBox "密碼不能為空，請輸入密碼！", , "登陸錯誤" Text2.SetFocus Exit Sub End If Set conn = New ADODB.Connection Set rs = New ADODB.Recordsetconn.Open "provider=SQLOLEDB.1;datasource=(local);persist security info=false;integrated security=sspi;database=bms"rs.Open "select * from ruser where ruser='" & stru & " 'and rpsw='" & strp & "'; ", connIf rs.EOF Then count = count + 1 MsgBox "用戶名不存在或者密碼錯誤！", , "登錄失敗" Text1.text = "" Text2.text = "" Text1.SetFocus Else logins = True username = rs("ruser").Value pass = rs("rpsw").Value F_index.Show Me.Hide End If rs.Close conn.Close Set rs = Nothing Set conn = Nothing If count >= 3 Then MsgBox "超過登錄次數，無權登錄本系統！", , "登錄失敗" End End If End SubPrivate Sub Command2_Click()Dim conn As ADODB.Connection Dim rs As ADODB.Recordset Dim stru$, strp$, strsql$ Static count As Byte stru = Text1.text strp = Text2.text If stru = "" Then MsgBox "用戶名不能為空，請輸入用戶名！", , "登陸錯誤" Text1.SetFocus Exit Sub ElseIf strp = "" Then MsgBox "密碼不能為空，請輸入密碼！", , "登陸錯誤" Text2.SetFocus Exit Sub End If Set conn = New ADODB.Connection Set rs = New ADODB.Recordsetconn.Open "provider=SQLOLEDB.1;datasource=(local);persist security info=false;integrated security=sspi;database=bms"rs.Open "select * from auser where auser='" & stru & " 'and apsw='" & strp & "'; ", connIf rs.EOF Then count = count + 1 MsgBox "用戶名不存在或者密碼錯誤！", , "登錄失敗" Text1.text = "" Text2.text = "" Text1.SetFocus Else logins = True username = rs("auser").Value pass = rs("apsw").Value F_a_index.Show Me.Hide End If rs.Close conn.Close Set rs = Nothing Set conn = Nothing If count >= 3 Then MsgBox "超過登錄次數，無權登錄本系統！", , "登錄失敗" End End If End SubPrivate Sub Command3_Click() Text1.text = "" Text2.text = "" Text1.SetFocus End Sub

總結

以上是生活随笔為你收集整理的VB 图书管理系统的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。