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