VB 圖書管理系統設計

VB 簡單圖書管理系統設計

VB 圖書管理系統 源代碼下載 (包含源代碼、資料庫、設計報告)

我的博客

一、基本概述

1. 基於VB,mysql資料庫

2. 擁有可操作界面

3. 實現基本圖書管理功能

二、資料庫的概念設計

1. 圖書信息

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

2. 讀者用戶信息

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

3. 管理員信息

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

4. 借閱信息

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

系統E-R圖

部分代碼--登陸頁Private Sub Command1_Click()Dim conn As ADODB.ConnectionDim rs As ADODB.RecordsetDim stru$, strp$, strsql$Static count As Bytestru = Text1.textstrp = Text2.textusername = Text1.textIf stru = "" ThenMsgBox "用戶名不能為空，請輸入用戶名！", , "登陸錯誤"Text1.SetFocusExit SubElseIf strp = "" ThenMsgBox "密碼不能為空，請輸入密碼！", , "登陸錯誤"Text2.SetFocusExit SubEnd IfSet conn = New ADODB.ConnectionSet 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 Thencount = count + 1MsgBox "用戶名不存在或者密碼錯誤！", , "登錄失敗"Text1.text = ""Text2.text = ""Text1.SetFocusElselogins = Trueusername = rs("ruser").Valuepass = rs("rpsw").ValueF_index.ShowMe.HideEnd Ifrs.Closeconn.CloseSet rs = NothingSet conn = NothingIf count >= 3 ThenMsgBox "超過登錄次數，無權登錄本系統！", , "登錄失敗"EndEnd IfEnd SubPrivate Sub Command2_Click()Dim conn As ADODB.ConnectionDim rs As ADODB.RecordsetDim stru$, strp$, strsql$Static count As Bytestru = Text1.textstrp = Text2.textIf stru = "" ThenMsgBox "用戶名不能為空，請輸入用戶名！", , "登陸錯誤"Text1.SetFocusExit SubElseIf strp = "" ThenMsgBox "密碼不能為空，請輸入密碼！", , "登陸錯誤"Text2.SetFocusExit SubEnd IfSet conn = New ADODB.ConnectionSet 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 Thencount = count + 1MsgBox "用戶名不存在或者密碼錯誤！", , "登錄失敗"Text1.text = ""Text2.text = ""Text1.SetFocusElselogins = Trueusername = rs("auser").Valuepass = rs("apsw").ValueF_a_index.ShowMe.HideEnd Ifrs.Closeconn.CloseSet rs = NothingSet conn = NothingIf count >= 3 ThenMsgBox "超過登錄次數，無權登錄本系統！", , "登錄失敗"EndEnd IfEnd SubPrivate Sub Command3_Click()Text1.text = ""Text2.text = ""Text1.SetFocusEnd Sub

部分運行截圖