VB 圖書管理系統

VB 簡單圖書管理系統設計

圖書管理系統原始碼下載（包含原始碼、資料庫、設計報告）

一、基本概述

1. 基於VB,mysql資料庫
2. 擁有可操作介面
3. 實現基本圖書管理功能

二、資料庫的概念設計

1. 圖書資訊

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

2. 讀者使用者資訊

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

3. 管理員資訊

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

4. 借閱資訊

   借閱資訊：{借閱編號，讀者號（使用者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.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.Recordset

conn.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 & "'; ", conn

If 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 Sub


Private 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.Recordset

conn.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 & "'; ", conn

If 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 Sub

Private Sub Command3_Click()
Text1.text = ""
Text2.text = ""
Text1.SetFocus
End Sub