【正文】 …………………………………………………………………… 13 關(guān)系圖 … ………………………………………………………………… 14 存儲(chǔ)過程的創(chuàng)建…………………………………………………………… 14 觸發(fā)器的創(chuàng)建……………………………………………………………… 15 規(guī)則的建立………………………………………………………………… 16 第五章 數(shù)據(jù)庫(kù)應(yīng)用開發(fā)……………………………………………………… 17 主窗體設(shè)計(jì)………………………………………………………………… 17 讀者功能模塊……………………………………………………………… 17 管理員功能模 塊…………………………………………………………… 22 系統(tǒng)管理員模塊…………………………………………………………… 23 第六章 數(shù)據(jù)錄入與上機(jī)測(cè)試………………………………………………… 26 第七章 結(jié)論…………………………………………………………………… 29 3 參考文獻(xiàn)………………………………………………………………………… 30 4 摘要 本文是應(yīng)用 vb、 sqlserver2021 開發(fā)一個(gè)小型的圖書館管理系統(tǒng)，主要包括前臺(tái)（ vb 實(shí)現(xiàn)）與后臺(tái)（ sqlserver2021 實(shí)現(xiàn)）的設(shè)計(jì)。系統(tǒng)運(yùn)行結(jié)果說(shuō)明本系統(tǒng)能夠?qū)崿F(xiàn)基本的圖書館功能。管理員的功能僅限于對(duì)圖書，而系統(tǒng)管理員可以對(duì)管理員與讀者進(jìn)行操作。前臺(tái)窗體的建 立包括標(biāo)簽、文本框、按鈕、表格等。通過圖書館管理系統(tǒng)實(shí)現(xiàn)讀者的借書、還書等功能，及圖書的數(shù)目分類管理等功能。 用例圖 根據(jù)上面的需求概述，得出程序的主要用例圖，如圖 1 所示。反映了讀者的一些基本的信息。反映了某讀者的借閱信息。由于關(guān)系模型所具有的優(yōu)點(diǎn)，邏輯設(shè)計(jì)可以充分運(yùn)用關(guān)系數(shù)據(jù)庫(kù)規(guī)范化理論，使設(shè)計(jì)過程形式化地進(jìn)行。在前臺(tái)中用 execute 存儲(chǔ)工程名 （參數(shù)）來(lái)調(diào)用存儲(chǔ)過程。 create trigger t1 on borrow for insert, delete as begin if exists(select * from inserted)and not exists(select * from deleted) begin update book set bookcount=bookcount1 where ISBN in (select ISBN from inserted) end if not exists(select * from inserted)and exists(select * from deleted) begin update book set bookcount=bookcount+1 where ISBN in (select ISBN from deleted) end end create trigger t2 on borrow for insert, delete as begin if exists(select * from inserted)and not exists(select * from deleted) begin update reader set borrownum=borrownum+1 where readerid in (select readerid from inserted) end if not exists(select * from inserted)and exists(select * from deleted) begin update reader set borrownum=borrownum1 where readerid in (select readerid from deleted) end end 16 規(guī)則的建立 規(guī)則可以對(duì)表的屬性進(jìn)行限制 create rule rule_sex as sex=39。 create rule rule_num as num=8 建立了兩個(gè)規(guī)則，分別設(shè)置性別輸入男或女時(shí)才有效，數(shù)目小于等于八。 主窗體的設(shè)計(jì) 主窗體的界面如下所示 在主窗體中設(shè)計(jì)了一個(gè)下拉式菜單有讀者登錄、管理員登錄、系統(tǒng)管理員登錄。Integrated Security=SSPI。 amp。Persist Security Info=False。 39。 39。Integrated Security=SSPI。 UserName amp。 UserName amp。 amp。 UserName amp。 amp。 UserName amp。 amp。 UserName amp。 amp。 UserName amp。 (0) amp。 amp。 (1) amp。)) MsgBox 借閱成功！ , 64, 信息 If = 1 Then End If 六、圖書查詢功能的實(shí)現(xiàn) 此處用到模糊查詢和 vb 中的 checkbox 選項(xiàng) str1 = select * from book where bookname like 39。 str1 = select * from book where ISBN like 39。 str1 = select * from book where writer like 39。 管理員功能模塊 一、管理員個(gè)人信息查詢與圖書的添加刪除主要代碼 str1 = select * from book where ISBN=39。 If = 1 Then End If str1, conn, 1, 3 If Then (insert into book values(39。,39。,39。,39。,39。,39。,39。)) MsgBox 新添加圖書成功！ , 64, 信息 Else (update book set total=total+ amp。 ) MsgBox 數(shù)量增加成功 , 64, 信息 End If 二、讀者信息查詢功能的實(shí)現(xiàn) 這里用到了存儲(chǔ)過程 p1 與 p2 代碼如下 If Check1(0).Value Then If Trim() = Then MsgBox 學(xué)號(hào)不能為空！ , 48, 警告 Else str1 = execute p1 39。 End If End If If Check1(1).Value Then If Trim() = Then MsgBox 姓名不能為空！ , 48, 警告 23 Else str1 = execute p2 39。 End If End If If Check1(2).Value Then If Trim() = Then MsgBox 請(qǐng)輸入住址 , 48, 警告 Else str1 = execute p3 39。 End If End If 這里的用到 vb 中的控件 checkbox 其功能實(shí)現(xiàn)代碼如下： Option Explicit Dim IsBusy As Boolean Private Sub Check1_Click(Index As Integer) If Check1(Index).Value = 0 Or IsBusy Then Exit Sub Dim i As Integer IsBusy = True For i = 0 To If i Index Then Check1(i).Value = 0 Next IsBusy = False End Sub 系統(tǒng)管理員功能的實(shí)現(xiàn) 一、添加讀者與管理員 添加讀者 Private Sub Command1_Click() str1 = select * from reader where readerid=39。 If = 1 Then End If str1, conn, 1, 3 If Then