【正文】 在 系統(tǒng)開(kāi)發(fā)過(guò)程中，在潘老師的指導(dǎo)下，從頭做起，不斷學(xué)習(xí)，積累了寶貴的開(kāi)發(fā)經(jīng)驗(yàn)，學(xué)到了很多書(shū)本上沒(méi)有的知識(shí)。謝謝 。 39。 39。 39。 39。 39。 39。 39。 39。 amp。 and amp。and 登記日期 between amp。 ) Else = select * from dzxxtb where ( amp。 Chr(35) amp。 amp。, n, adOpenKeyset, adLockOptimistic = select * from sz If (0) + Val() (0) Then MsgBox 您的借書(shū)量已滿(mǎn)！！ , vbOKOnly 27 Exit Sub Else = select * from books where 條碼號(hào) =39。 Text2 amp。 Text4 amp。,39。,39。,39。,39。 y amp。 End Sub 12. 刪除記錄 Private Sub Command2_Click() If = False Then If = Then Exit Sub Else c = MsgBox(您確認(rèn)要?jiǎng)h除該記錄嗎 ?, 17) If c = vbOK Then Call Main Set adoRs = (delete from dzjstb where 讀者編號(hào) =39。 If 0 Then = True = (0) = (1) = (4) = (8) = (3) = (9) = (10) Else MsgBox 沒(méi)有此讀者的借書(shū)信息 , vbOKOnly = = End If End If End Subb 14. 記錄 丟失信息 Private Sub Command1_Click() c = MsgBox(該圖書(shū)確認(rèn)丟失了嗎 ?, 33) If c = vbOK Then Dim sql, sql1 As String Dim sql2 As Integer sql = insert into pstb values(39。,39。, amp。 Label15 amp。 Label13 amp。 amp。 amp。 amp。模糊查詢(xún) End If End If End Sub 16. 查詢(xún)圖書(shū)驗(yàn)收信息 Private Sub Command1_Click() Dim Num1, Num2 As Long = select * from rkb where 訂購(gòu)日期 between amp。 order by 訂購(gòu)日期 If 0 Then = select sum(復(fù)本數(shù) )as 復(fù)本數(shù) ,sum(訂購(gòu)價(jià)格 )as 訂購(gòu)價(jià)格 from rkb where 訂購(gòu)日期 between amp。 = (1) = (0) Else = = End If End Sub 17. 打印查詢(xún)結(jié)果 Private Sub Command3_Click() select * from rkb where 訂購(gòu)日期 between amp。 order by 訂購(gòu)日期 If 0 Then 1 Else 30 MsgBox 此日期段沒(méi)有記錄，請(qǐng)重新選擇！ , vbOKOnly End If End Sub 18. 窗體分割條的實(shí)現(xiàn) Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single) = RGB(79, 106, 161) End Sub Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single) On Error Resume Next If Button = 1 Then = + x End Sub Private Sub Picture1_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single) Dim plamp。 amp。 amp。 amp。 (sql1) End If End If 29 = select * from pstb End Sub 15. 查詢(xún)丟失信息 Private Sub Command4_Click() If = Or = Or = Then MsgBox 請(qǐng)輸入或選擇查詢(xún)條件 , vbInformation Else If i = 1 Then = select * from pstb where + + like 39。 (sql1) sql2 = Val() Val() sql1 = update dzjstb set 借書(shū)數(shù)量 =39。 If 0 Then sql1 = update books set 復(fù)本數(shù) =39。,39。,39。 ,39。 DTPicker1 amp。 Text1 amp。) End If End If Else MsgBox 當(dāng)前數(shù)據(jù)庫(kù)中已經(jīng)沒(méi)有可刪除的記錄 , 64 End If End Sub 13. 顯示讀者和圖書(shū)信息 Private Sub Text2_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyReturn Then End Sub Private Sub Text2_LostFocus() 28 If = Or = Then MsgBox 請(qǐng)輸入條碼號(hào)和讀者編號(hào) , vbInformation Exit Sub Else = select * from dzjstb where 條碼號(hào) =39。where 條碼號(hào) =39。)) x = Val((復(fù)本數(shù) )) Val() y = Val((借書(shū)數(shù)量 )) + Val() hs1 = update books set 復(fù)本數(shù) =39。 DTPicker1 amp。 Text9 amp。 Text7 amp。, amp。,39。 If 0 Then (insert into dzjstb values(39。 If 0 Then 26 = (1) Else MsgBox 沒(méi)有該讀者信息！ , vbOKOnly = End If End If End Sub 10. 示借閱信息 Private Sub Text3_LostFocus() = select * from books where 條碼號(hào) =39。 Chr(35) amp。 Combo6 amp。 amp。 amp。 + 39。 + + 39。 amp。 amp。 amp。 amp。 amp。 amp。 amp。設(shè)置 TreeView1控件的節(jié)點(diǎn) 文本 和 圖標(biāo)（另外： 1 為 ImageList 控件圖標(biāo)的索引值） = select * from Table_zcd_zcd where 主 菜 單 名 稱(chēng) =39。通過(guò)這次畢業(yè)設(shè)計(jì)， 19 使我對(duì)目前流行的軟件開(kāi)發(fā)方法和手段，有了更進(jìn)一步的認(rèn)識(shí)，豐富了軟件開(kāi)發(fā)的經(jīng)驗(yàn)，提高了編程的水平， 畢業(yè)設(shè)計(jì)已進(jìn)入尾聲，在畢業(yè)設(shè)計(jì)的這幾個(gè)月中，我增加了不少的工作經(jīng)驗(yàn)，增強(qiáng)了對(duì)軟件設(shè)計(jì)的信心，同時(shí)，我也感 覺(jué)到自己在計(jì)算機(jī)專(zhuān)業(yè)知識(shí)方面還有很多欠缺。用戶(hù)在主窗體中選擇“報(bào)表打印” /“圖書(shū)驗(yàn)收?qǐng)?bào)表”命令，即可進(jìn)入到圖書(shū)驗(yàn)收?qǐng)?bào)表模塊中。 15 圖 讀者信息管理窗體 讀書(shū)借書(shū)管 理模塊設(shè)計(jì) 讀者借書(shū)管理系統(tǒng)模塊的主要功能是將讀者的借書(shū)信息保存到數(shù)據(jù)庫(kù)中，并可以對(duì)讀者的借書(shū)信息進(jìn)行刪除操作。Persist Security Info=False End Function 主窗體設(shè)計(jì) 主窗體用于調(diào)用程序的所有功能。在本系統(tǒng)中，建數(shù)據(jù)庫(kù)連接的通用代碼就公共的全局變量等都集中存放在數(shù)據(jù)模塊中，總而節(jié)省代碼量，提高編程效率。 讀者還書(shū)實(shí)體包括條碼號(hào)、讀者編號(hào)、書(shū)籍名稱(chēng)、借書(shū)日期、還書(shū)日期、實(shí)際天數(shù)等屬性。下面將介紹幾個(gè)關(guān)鍵實(shí)體的 ER 圖。 （ 4）書(shū)目分類(lèi)統(tǒng)計(jì)，圖書(shū)驗(yàn)收?qǐng)?bào)表。 第三 章 系統(tǒng) 分析 需求分析 系統(tǒng)的特點(diǎn) 從讀者與圖書(shū)管理員的角度出發(fā)，本著以讀者借書(shū)、還書(shū)快捷和方便的原則，要求本系統(tǒng)應(yīng)具有以下特點(diǎn)： （ 1）確保系統(tǒng)具有良好的性能和有好的用戶(hù)界面。 在設(shè)計(jì) Visu