【正文】 讀者類別、家庭住址、相片等； ⑤讀者類別信息：讀者類別編號、讀者類別、可借書數(shù)、可續(xù)借次數(shù)等 ⑥圖書信息：條形碼、圖書 ID、圖書名稱、狀態(tài)、作者、圖書類型、借出量、現(xiàn)存量、操作員、內(nèi)容簡介等； ⑦圖書類型信息：類型編號、圖書類型、可借天數(shù)等； ⑧圖書借閱信息：借書編號、圖書 ID、借書證號、備注等 。 ⑨圖書丟失信息：丟失編號、圖書 ID、讀者編號、操 作員、是否賠償?shù)龋? ⑩用戶信息：用戶名、密碼、用戶權(quán)限、備注等。 數(shù)據(jù)庫邏輯結(jié)構(gòu)設(shè)計 根據(jù)數(shù)據(jù)庫需求分析，本 系統(tǒng) 的數(shù)據(jù)庫邏輯結(jié)構(gòu)設(shè)計如下。 ①讀者信息設(shè)計 ②讀者類別信息設(shè)計 ③圖書注銷信息設(shè)計 ④圖書征訂信息設(shè)計 ⑤圖書借閱信息設(shè)計 ⑥圖書信息設(shè)計 [10] ... SQL+VB 圖書信息管理 系統(tǒng) 論文 ⑦用戶信息設(shè)計 ⑧圖書歸還信息設(shè)計 界面設(shè)計 系統(tǒng) 主界面設(shè)計 圖書征訂設(shè)置界面設(shè)計 其中“新增”記錄和“修改”記錄界面相同，設(shè)計如下： 注：出版社設(shè)置界面設(shè)計、圖書注銷設(shè)置界面設(shè)計與圖書征訂設(shè)置界面設(shè)計類似，在此略。 圖書信息管理界面設(shè)計 查詢 選項界面與 查詢 結(jié)果顯示界面設(shè)計 注：其中，“讀者信息 查詢 ”與此界面相似，故在此略。 注：其中，“讀者信息修改與刪除”界面與此界面相似，故在此略。 其中“新增”記錄界面相同，設(shè)計如下： 注：其中，“讀者信息新增”界面與此界面相似，故在此略。 圖書借閱界面設(shè)計 查詢 界面設(shè)計 [10] ... SQL+VB圖書管理 系統(tǒng) (數(shù)據(jù)庫 +源代碼 +論文 ) 注 ：其中圖書逾期罰款 查詢 、圖書丟失罰款 查詢 界面設(shè)計和圖書借閱信息 查詢 界面設(shè)計相同，故在此略。 其中，“借書新增”和“續(xù)借新增”界面相同，界面設(shè)計如下： 注： “歸還新增”界面與其相似，故在此略。 讀者管理界面設(shè)計 “讀者類別 查詢 ”界面設(shè)計如下： 注：其中，“圖書類型 查詢 ”界面 與此界面公用，故在此略。 用戶信息界面設(shè)計 代碼設(shè)計 標(biāo)準(zhǔn)模塊代碼設(shè)計 Public strn As String Public strfind As String Public adon As New Public adorst As New Type Login yhqx As String yhm As String End Type Public yh_login As Login Public Sub ShowData(sql As String, ctr As Control) Dim n As New Dim rst As New Dim i As Integer, j As Integer, k As Integer strn sql, n, adOpenStatic, adLockReadOnly With ctr .Rows = + 1 .Cols = For i = 0 To .Cols 1 .TextMatrix(0, i) = (i).Name Next i For j = 1 To .Rows 1 For k = 0 To .Cols 1 .TextMatrix(j, k) = (k).Value amp。 Next k Next j End With End Sub Public Function Update(sql As String) As Long Dim n As New Dim cmd As New On Error GoTo lab strn = n = adCmdText = sql Update = Err Exit Function lab: If = 1 Then End If MsgBox Update = Err End Function Public Sub PanDuan() Dim sql As String, sql1 As String, strSql1 As String Dim strSql2 As String, strSql3 As String, strSql4 As String If And And _ And And And Then If = 借出此書 Then If MsgBox(是否借出此書 ?, vbOKCancel + vbQuestion, 詢問 ) = vbOK Then sql = select * from 圖書借閱 where 借書證號 =39。39。 + Trim() + 39。39。 ShowData sql, (1).Text = 總共有 amp。 1 amp。 條記錄 strSql1 = select 狀態(tài) from 圖書信息 where 圖書 ID=39。39。 + Trim() + 39。39。 ShowData strSql1, If Trim((, 0)) = 借出 Then MsgBox 此書籍庫存量為 0 不可借！ , vbOKOnly + vbInformation, 信息 Exit Sub End If = 2 = 2 strSql2 = select * from 圖書罰款 where 圖書 ID=39。39。 + Trim() + 39。39。 ShowData strSql2, [10] ... SQL+VB圖書管理 系統(tǒng) (數(shù)據(jù)庫 +源代碼 +論文 ) If Trim((, 6)) = 否 Then MsgBox 此書籍逾期欠款，請先交款！ , vbOKOnly + vbInformation, 信息 1 Exit Sub End If = 2 = 2 strSql3 = select * from 圖書丟失 where 圖書 ID=39。39。 + Trim() + 39。39。 ShowData strSql3, If Trim((, 7)) = 否 Then MsgBox 此書籍丟失未賠償，請先賠償！ , vbOKOnly + vbInformation, 信息 1 Exit Sub End If = 2 = 2 strSql4 = select * from 讀者信息 where 借書證號 =39。39。 + Trim() + 39。39。 ShowData strSql4, If Trim((, 7)) = 普通讀者 And = 4 Then MsgBox 該讀者借書數(shù)量已達到上限！ , vbOKOnly + vbInformation, 信息 Exit Sub ElseIf Trim((, 7)) = 高級讀者 And = 6 Then MsgBox 該讀者借書數(shù)量已達到上限！ ,