數(shù)據(jù)庫課程設(shè)計(jì)--圖書管理

上傳人：奔*** IP屬地：河北更新時間：2024-03-01 格式：doc 頁數(shù)：34 大?。?.46MB 人氣指數(shù)：12 舉報 版權(quán)申訴

已閱讀1頁，還剩33頁未讀，繼續(xù)免費(fèi)閱讀

版權(quán)說明：本文檔由用戶提供并上傳，收益歸屬內(nèi)容提供方，若內(nèi)容存在侵權(quán)，請進(jìn)行舉報或認(rèn)領(lǐng)

文檔簡介

1、　　目錄　　第1章緒論2　　1.1系統(tǒng)開發(fā)背景介紹2　　1.2開發(fā)工具的選擇2　　1.3系統(tǒng)主要內(nèi)容簡介 2　　第2章需求分

2、析3　　2.1 總體需求3　　2.2 管理員的需求分析3　　2.3 借閱/還書的需求分析3　　2.4 借閱者的需求分析3　　2.5 圖書信息的需求分析3　　2.6 實(shí)際功能

3、4　　第3章概念結(jié)構(gòu)設(shè)計(jì)5　　3.1 E-R圖簡介5　　3.2本系統(tǒng)的總體E-R圖6　　第4章數(shù)據(jù)庫設(shè)計(jì)7　　4.1數(shù)據(jù)庫表7　　4.1

4、.1 圖書表7　　4.1.2 日期限定表7　　4.1.3 年級表8　　4.1.4學(xué)院表8　　4.1.5管理員表8　　4.1.6借閱者表9　　4.1.7書種表9</p&g

5、t;　　第5章數(shù)據(jù)庫的實(shí)現(xiàn)與程序10　　5.1登錄界面設(shè)計(jì)10　　5.2管理員信息設(shè)計(jì)12　　5.3借閱/還書管理設(shè)計(jì)21　　課程設(shè)計(jì)總結(jié)31

6、;　　學(xué)習(xí)體會32　　致謝33　　參考文獻(xiàn)34　　緒論　　1.1系統(tǒng)開發(fā)背景介紹　　現(xiàn)在隨

7、著人們生活質(zhì)量的提高，人們對圖書的需求越來越來豐富，并且需要圖書的數(shù)量也日趨增加。隨著人們對圖書需求的增加，圖書管理者對圖書的管理就日趨的困難，傳統(tǒng)的純手工記錄圖書記錄已經(jīng)發(fā)揮不了它原有的功能，反之，還會影響圖書管理的功能，使用效率極低。在這樣的人們對圖書需求日趨增加的情況下，電子記錄管理圖書就被廣泛應(yīng)用起來。所以圖書管理系統(tǒng)就應(yīng)用而生。　　1.2系統(tǒng)開發(fā)工具

8、;　　系統(tǒng)運(yùn)行平臺：Windows7。　　系統(tǒng)前臺開發(fā)平臺即：VisualBasic6.0。　　系統(tǒng)后臺開發(fā)平臺即數(shù)據(jù)庫管理系統(tǒng)軟件：SQLServer2000。　　1.3系統(tǒng)主要內(nèi)容簡介　　本系統(tǒng)主要是針對圖書管理中出現(xiàn)的一些問

9、題提供一些解決方法，并且應(yīng)運(yùn)計(jì)算機(jī)信息管理系統(tǒng)結(jié)合。其開發(fā)主要包括后臺數(shù)據(jù)庫的建立和維護(hù)以及前端應(yīng)用程序的開發(fā)兩個方面。前臺我們采用功能強(qiáng)大的可視化開發(fā)軟件VB開發(fā)設(shè)計(jì)主界面，利用SQLServer做為后臺數(shù)據(jù)庫。主要分成登錄信息管理、管理員信息管理、借閱/還書信息管理、借閱者信息管理、圖書信息管理等功能模塊。　　需求分析<p&

10、gt;　　2.1總體需求　　這一章將介紹本系統(tǒng)的各個部分的需求。　　2.2管理員的需求分析　　管理者基本信息，包括管理者編號，管理者姓名，登陸密碼，電話號碼。　　其中本系統(tǒng)中還包含管理者信息的修改，增加，刪除等功能。并且這個系統(tǒng)管理員

11、經(jīng)過登陸窗口才可進(jìn)入。管理員在整個系統(tǒng)中起到統(tǒng)籌全局的功能，管理員可以對系統(tǒng)中各個部分起到控制的作用，可以增加、修改、刪除借閱者信息，增加、修改圖書信息，并且可以查詢借閱與還書情況，在本系統(tǒng)中貫穿整個系統(tǒng)。　　2.3借閱/還書的需求分析　　借閱基本信息包括借閱者信息，借閱者已借閱書籍，借書日期，借書編號等信息。

12、　還書基本信息包括借閱者編號，借閱者還書的編號，并且附帶有查詢功能，查看借閱者借閱的圖書是否過期。　　2.4借閱者的需求分析　　借閱者基本信息包括借閱者借閱卡號，借閱者姓名，借閱者學(xué)號，所在院校，電話號碼等基本信息。其中本系統(tǒng)中還包含借閱者的增添與刪除，可以實(shí)現(xiàn)新生入學(xué)借閱的增加，畢業(yè)生的借閱信息的刪除功能。

13、2.5圖書信息的需求分析　　圖書基本信息包括圖書編號，圖書姓名，圖書作者，圖書ISBN，圖書種類，圖書數(shù)量等基本信息。　　本系統(tǒng)中增加了圖書庫存管理功能，可以查看圖書所在庫存的狀態(tài)，看是否可以借閱。并且增加了圖書增加功能，圖書修改功能，圖書查詢功能，可以查詢圖書在庫各種信息，與借閱者的聯(lián)系也一目了然。<b&

14、gt;　　2.6 實(shí)際功能　　圖2-1. 圖書管理系統(tǒng)結(jié)構(gòu)圖　　概念結(jié)構(gòu)設(shè)計(jì)　　3.1 E-R圖簡介　　實(shí)體-聯(lián)系圖(Entity-RelationDiagram)用來建立數(shù)據(jù)模型,在數(shù)據(jù)庫系統(tǒng)概論中屬于概念設(shè)計(jì)階

15、段，形成一個獨(dú)立于機(jī)器，獨(dú)立于DBMS的ER圖模型。通常將它簡稱為ER圖，相應(yīng)地可把用ER圖描繪的數(shù)據(jù)模型稱為ER模型。ER圖提供了表示實(shí)體（即數(shù)據(jù)對象）、屬性和聯(lián)系的方法，用來描述現(xiàn)實(shí)世界的概念模型。　　構(gòu)成E-R圖的基本要素是實(shí)體、屬性和聯(lián)系，其表示方法為：　　實(shí)體型：用矩形表示，矩形框內(nèi)寫明實(shí)體名；　　屬性

16、：用橢圓形或圓角矩形表示，并用無向邊將其與相應(yīng)的實(shí)體連接起來；多值屬性由雙線連接；主屬性名稱下加下劃線；　　聯(lián)系：用菱形表示，菱形框內(nèi)寫明聯(lián)系名，并用無向邊分別與有關(guān)實(shí)體連接起來，同時在無向邊旁標(biāo)上聯(lián)系的類型　　在E-R圖中要明確表明1對多關(guān)系，1對1關(guān)系和多對多關(guān)系。　　1對1關(guān)系在兩個實(shí)體連線方向?qū)?；<

17、;/p>　　1對多關(guān)系在1的一方寫1，多的一方寫N；　　多對多關(guān)系則是在兩個實(shí)體連線方向各寫N,M。　　實(shí)體與屬性之間并沒有形式上可以截然劃分的界限，但可以給出兩條準(zhǔn)則：　　作為“屬性”不能再具有描述的性質(zhì)；　　“屬性”不能與其他實(shí)體具有聯(lián)系。

18、　　3.2 本系統(tǒng)的E-R圖　　mn　　nm　　nm　　nm</

19、p>　　圖3-1. 圖書管理系統(tǒng)總E-R圖　　數(shù)據(jù)庫設(shè)計(jì)　　4.1數(shù)據(jù)庫表　　圖書管理數(shù)據(jù)庫含7個表，它們分別為：圖書表（Book）;日期限定表（DataResrict）；年級表（Grade）；學(xué)院表（Ins

20、titute）；管理員表（Lidrarian）；借閱者表（Borrower）；書種表（Title）。　　我們來看一下表的結(jié)構(gòu)：　　4.1.1圖書表　　圖書表包括圖書編號、書名、狀態(tài)、借閱卡號、被借閱時間屬性，各個屬性的類型、長度、約束條件如表示<

21、p>　　表4-1. 圖書表　　4.1.2日期限定表　　日期限定表包括書種、天數(shù)屬性，各個屬性的類型、長度、約束條件如表示　　表4-2. 日期限定表　　4.1.3 年級表

22、　　年級表包括年級編號、名稱屬性，各個屬性的類型、長度、約束條件如表示　　表4-2. 年級表　　4.1.4學(xué)院表　　學(xué)院表包括學(xué)院編號、名稱屬性，各個屬性的類型、長度、約束條件如表示<p&

23、gt;　　表4-4. 學(xué)院表　　4.1.5管理員表　　管理員包括編號、ID、密碼、工作時間、電話屬性，各個屬性的類型、長度、約束條件如表示　　表4-5. 管理員表　　4.1.6借

24、閱者表　　借閱者包括借閱卡編號、學(xué)院編號、年級編號、姓名、學(xué)號、電話、已借書數(shù)目等屬性，各個屬性的類型、長度、約束條件如表示　　表4-6. 借閱者表　　4.1.7書種表　　書種表包括書名、作者、ISBSN、種類、數(shù)

25、目等屬性，各個屬性的類型、長度、約束條件如表示　　表4-7. 書種表　　數(shù)據(jù)庫的實(shí)現(xiàn)與程序　　5.1登陸界面設(shè)計(jì)　　輸入“用戶名”，“密碼”，點(diǎn)擊“確認(rèn)”進(jìn)入

26、主題框；　　圖5-1登陸　　該登陸界面代碼如下所示：　　源代碼：　　Public OK As Boolean　　Private Sub cmdCancel

27、_Click()　　OK = False　　Me.Hide　　End Sub　　Private Sub cmdLogin_Click()

28、　　'檢驗(yàn)數(shù)據(jù)的有效性　　If Trim(txtUserName.Text = "") Then　　MsgBox "請輸入用戶名！"　　txtUserName.SetFocus　　Exi

29、t Sub　　ElseIf Trim(txtPassword = "") Then　　MsgBox "請輸入密碼!"　　txtPassword.SetFocus　　Exit Sub</b&

30、gt;　　Else　　Dim myDbOper As New DbOperation　　Dim rst As ADODB.Recordset　　Dim sql As String<b&g

31、t;　　'建立連接　　myDbOper.DB_Connect　　'定義查詢語句　　sql = "SELECT * FROM Librarian WHERE Id='" + txtUserName + "

32、' AND Password='" + txtPassword + "'"　　Set rst = myDbOper.querySQL(sql)　　If (Not rst.EOF) Then　　OK = True</p

33、>　　Me.Hide　　FrmMain.Show 0　　Else　　MsgBox "用戶名和密碼錯誤,請重新輸入."　　End I

34、f　　rst.Close　　'關(guān)閉連接　　myDbOper.DB_DisConnect　　End If&l

35、t;p>　　End Sub　　Private Sub Form_Load()　　End Sub　　Private Sub Label1_Click()　　End Sub&l

36、t;/b>　　5.2管理員管理設(shè)計(jì)　　管理員窗口的設(shè)計(jì)主要包括“修改”、“添加”、“刪除”，“刷新”等功能。　　添加管理員是依照窗口的信息依次填寫，點(diǎn)擊“提交”即可；　　圖5-2進(jìn)入管理員信息欄　　圖5-3. 添加管理者&l

37、t;/p>　　該管理者添加的代碼如下：　　源代碼：　　Private Sub cmdExit_Click()　　Me.Hide　　End Sub<

38、;/b>　　Private Sub cmdSubmit_Click()　　'檢驗(yàn)數(shù)據(jù)的有效性　　If Trim(txtId) = "" Then　　MsgBox "請輸入登錄Id"

39、　　Exit Sub　　End If　　If Trim(txtPwd) = "" Then　　MsgBox "請輸入登錄密碼"<

40、;p>　　Exit Sub　　End If　　Dim myDbOper As New DbOperation　　Dim rst As ADODB.Recordset　　Dim sql As

41、String　　'建立連接　　myDbOper.DB_Connect　　'定義查詢語句　　sql = "SELECT * FROM Librarian WHERE seq

42、='" + Trim(txtSeq) + "'"　　Set rst = myDbOper.querySQL(sql)　　If rst.EOF = True Then　　With rst&l

43、t;b>　　.AddNew　　!seq = Me.txtSeq　　!id = Me.txtId　　!Password = Me.txtPwd　　!onJobTime = Me.txtTime　　!tele

44、phone = Me.txtPhone　　.Update　　End With　　MsgBox "信息添加成功."　　Else</p&

45、gt;　　MsgBox "該編號已經(jīng)存在,請重新輸入."　　End If　　rst.Close　　'關(guān)閉連接

46、　　myDbOper.DB_DisConnect　　End Sub　　Private Sub Form_Load()　　End Sub　　Private Sub Frame1_DragDrop(S

47、ource As Control, X As Single, Y As Single)　　End Sub　　Private Sub Label1_Click()　　End Sub　　Private

48、 Sub txtId_Change()　　End Sub　　Private Sub txtPwd_Change()　　End Sub　　刪除圖書管理員是在管理員列表中點(diǎn)擊要刪除的那一行，點(diǎn)擊“刪除

49、”即可；　　圖5-4刪除管理者　　修改管理員首先在管理員列表中點(diǎn)擊要修改的管理員信息，在編輯區(qū)填寫要修改的信息，點(diǎn)擊“修改”即可；　　圖5-5修改管理者　　圖5-6 刷新管理員列表</p&g

50、t;　　該管理者的修改、刪除代碼如下所示：　　源代碼：　　Private Sub cmdAdd_Click()　　FrmAddManager.Show 1　　End Sub&

51、lt;/p>　　Private Sub cmdDelete_Click()　　Dim tmpSeq As String　　If Adodc1.Recordset.BOF = True Then　　MsgBox "請選擇記錄"

52、　　Exit Sub　　End If　　p = Adodc1.Recordset.AbsolutePosition　　tmpSeq = Trim(Adodc1.Recordset.Fields(0))<p&g

53、t;　　'確認(rèn)刪除　　If MsgBox("是否刪除當(dāng)前行?", vbYesNo, "確認(rèn)") = vbYes Then　　Dim myDbOper As New DbOperation　　Dim rst As ADODB.Re

54、cordset　　Dim sql As String　　'建立連接　　myDbOper.DB_Connect　　'定義查詢語句　　sql

55、= "SELECT * FROM Librarian WHERE seq='" + Trim(txtSeq) + "'"　　Set rst = myDbOper.querySQL(sql)　　If (Not rst.EOF) Then　　W

56、ith rst　　.Delete adAffectCurrent　　.Update　　End With　　Else

57、　　MsgBox "發(fā)生錯誤,請重新操作."　　End If　　Refresh_DataList　　If p - 1 > 0 Then　　Adodc1.Recordset.Move 0<

58、;/p>　　Adodc1.Recordset.Move p - 1　　End If　　End If　　End Sub　　Priva

59、te Sub cmdEdit_Click()　　'檢驗(yàn)數(shù)據(jù)的有效性　　If Trim(txtId) = "" Then　　MsgBox "請輸入登錄Id"　　Exit

60、Sub　　End If　　If Trim(txtPwd) = "" Then　　MsgBox "請輸入登錄密碼"　　Exit Sub&l

61、t;/p>　　End If　　Dim myDbOper As New DbOperation　　Dim rst As ADODB.Recordset　　Dim sql As String

62、　'建立連接　　myDbOper.DB_Connect　　'定義查詢語句　　sql = "SELECT * FROM Librarian WHERE seq='" + Trim(txtSeq) + "&

63、#39;"　　Set rst = myDbOper.querySQL(sql)　　If (Not rst.EOF) Then　　rst!id = Me.txtId　　rst!Password = Me.txtPwd　　r

64、st!onJobTime = Me.txtTime　　rst!telephone = Me.txtPhone　　rst.Update　　MsgBox "信息修改成功."　　Else<p

65、>　　MsgBox "發(fā)生錯誤,請重新輸入."　　End If　　rst.Close　　'關(guān)閉連接　　myDbOper.DB

66、_DisConnect　　Refresh_DataList　　End Sub　　Private Sub cmdExit_Click()　　Me.Hide&

67、lt;b>　　End Sub　　Private Sub cmdRefresh_Click()　　Refresh_DataList　　End Sub　　Private Sub DataGrid1_Click()

68、　　If Adodc1.Recordset.BOF = True Then　　MsgBox "請選擇記錄"　　Exit Sub　　End If<p

69、>　　'保存光標(biāo)位置　　p = Adodc1.Recordset.AbsolutePosition　　'讀取當(dāng)前記錄的各列數(shù)據(jù)　　Me.txtSeq = Trim(Adodc1.Recordset.Fields(0))<p&

70、gt;　　Me.txtId = Trim(Adodc1.Recordset.Fields(1))　　Me.txtPwd = Trim(Adodc1.Recordset.Fields(2))　　Me.txtTime = Trim(Adodc1.Recordset.Fields(3))　　Me.txtPhone =

71、Trim(Adodc1.Recordset.Fields(4))　　Refresh_DataList　　'恢復(fù)光標(biāo)位置　　Adodc1.Recordset.Move 0　　Adodc1.Recordset.Move p - 1

72、　　End Sub　　Private Sub Refresh_DataList()　　'刷新管理員列表　　Adodc1.RecordSource = "SELECT * FROM

73、 Librarian ORDER BY seq"　　Adodc1.Refresh　　End Sub　　Private Sub Form_Load()　　End Sub

74、　　Private Sub Frame1_DragDrop(Source As Control, X As Single, Y As Single)　　End Sub　　Private Sub Label4_Click()　　End S

75、ub　　5.3 借閱/還書管理設(shè)計(jì)　　借閱圖書時首先要輸入“借書卡號”，點(diǎn)擊“確定”，就會出來借閱者的一些的基本信息，再在“借書登記欄”中輸入書刊編號查詢，如果在庫是，點(diǎn)擊“提交”即可；　　圖5-7 借閱<b

76、>　　借閱其代碼如下；　　源代碼：　　Private Sub cmdExit_Click()　　Me.Hide　　End Sub&l

77、t;/p>　　Private Sub cmdEnter_Click()　　'檢驗(yàn)數(shù)據(jù)的有效性　　If Trim(txtBorrId) = "" Then　　MsgBox "請輸入借書卡號"</p

78、>　　Exit Sub　　End If　　Dim myDbOper As New DbOperation　　Dim rst As ADODB.Recordset　　Di

79、m sql As String　　'建立連接　　myDbOper.DB_Connect　　'定義查詢語句　　sql = "SELECT b.StudentNum,b.na

80、me,i.Institute,g.Grade,b.teleNumber,b.borrowBookNum " _　　+ "FROM Borrower b,Institute i,Grade g " _　　+ "WHERE b.InstituteID=i.InstituteID AND b.GradeID=g.Grad

81、eID " _　　+ "AND BorrowerId='" + txtBorrId + "'"　　Set rst = myDbOper.querySQL(sql)　　If (Not rst.EOF) Then

82、;　　With rst　　lblStuNum.Caption = .Fields(0)　　lblName.Caption = .Fields(1)　　lblInstitute.Caption = .Fields(2)　　lblGrad

83、e.Caption = .Fields(3)　　lblPhone.Caption = .Fields(4)　　End With　　Refresh_DataList1　　Else

84、　　MsgBox "用戶不存在,請重新操作."　　End If　　rst.Close　　'關(guān)閉連接　　myD

85、bOper.DB_DisConnect　　End Sub　　Private Sub cmdQuery_Click()　　'檢驗(yàn)數(shù)據(jù)的有效性　　If Trim(txtBookId) = &q

86、uot;" Then　　MsgBox "請輸入書刊編號"　　Exit Sub　　End If　　Dim myDbOper As New DbOperation<

87、/p>　　Dim rst As ADODB.Recordset　　Dim sql As String　　'建立連接　　myDbOper.DB_Connect　　'定義查詢語

88、句　　sql = "SELECT b.BookID as 書刊編號,b.name as 名稱,b.loan as 狀態(tài)," _　　+ "t.author as 作者,t.isbsn as isbsn,t.type as 類型,b.BorrowDate as 借書日期 " _

89、　　+ "FROM Book b , Title t WHERE b.name=t.name AND b.BookID='" _　　+ Trim(txtBookId) + "'"　　Set rst = myDbOper.querySQL(sql)<p

90、>　　If (Not rst.EOF) Then　　Refresh_DataList2 (sql)　　Else　　MsgBox "該書刊不存在,請重新操作."　　End If</b&g

91、t;　　rst.Close　　'關(guān)閉連接　　myDbOper.DB_DisConnect　　End Sub

92、　Private Sub Refresh_DataList1()　　Dim sql As String　　sql = "SELECT bo.BookID as 書刊編號,bo.name as 名稱,bo.BorrowDate as 借書日期 " _　　+ "From Borrower

93、 b,Book bo " _　　+ "WHERE b.BorrowerID=bo.borrowerID and b.BorrowerID='" _　　+ Trim(txtBorrId) + "'"　　Adodc1.RecordSource = sq

94、l　　Adodc1.Refresh　　Set DataGrid1.DataSource = Adodc1　　DataGrid1.ReBind　　End Sub　　Private Sub Ref

95、resh_DataList2(sql As String)　　Adodc2.RecordSource = sql　　Adodc2.Refresh　　Set DataGrid2.DataSource = Adodc2　　DataGrid2.ReBind

96、　　End Sub　　Private Sub cmdSubmit_Click()　　'檢驗(yàn)數(shù)據(jù)的有效性　　If Trim(txtBorrId) = "" Then&l

97、t;p>　　MsgBox "請輸入借書卡號"　　Exit Sub　　End If　　If Trim(txtBookId) = "" Then　　Msg

98、Box "請輸入書刊編號"　　Exit Sub　　End If　　Dim nowDate As New BookDate　　Dim myDbOper As New DbOper

99、ation　　Dim rst As ADODB.Recordset　　Dim sql As String　　Dim update1_sql As String　　Dim update2_sql As String

100、　　'建立連接　　myDbOper.DB_Connect　　'定義查詢語句　　sql = "SELECT loan FROM Book WHERE BookId='" + Trim(txtBookId) + &q

101、uot;'"　　Set rst = myDbOper.querySQL(sql)　　If Trim(rst.Fields(0)) = "在庫" Then　　'更新數(shù)據(jù)庫表　　update1

102、_sql = "UPDATE Book SET loan='借出',borrowerID='" _　　+ Trim(txtBorrId) + "',BorrowDate='" _　　+ nowDate.getDate + "' WHERE BookID=&#

103、39;" _　　+ Trim(txtBookId) + "'"　　myDbOper.executeSQL (update1_sql)　　update2_sql = "UPDATE Borrower SET borrowBookNum=borrowBookNum+1

104、WHERE BorrowerId='" _　　+ Trim(txtBorrId) + "'"　　myDbOper.executeSQL (update2_sql)　　Refresh_DataList1　　MsgBox &quo

105、t;操作成功."　　Else　　MsgBox "該書刊已經(jīng)借出,請重新操作."　　End If　　rst.Close</p

106、>　　'關(guān)閉連接　　myDbOper.DB_DisConnect　　End Sub　　Private Sub DataGrid1_Click()

107、;　　End Sub　　Private Sub DataGrid2_Click()　　End Sub　　Private Sub Label5_Click()　　End Sub&

108、lt;/p>　　還書時輸入書刊編號查詢，確認(rèn)無誤后點(diǎn)擊“還書提交”即可；　　圖5-8. 還書　　還書的代碼如下；　　源代碼：　　P

109、rivate Sub cmdExit_Click()　　Me.Hide　　End Sub　　Private Sub cmdQuery_Click()　　'檢驗(yàn)數(shù)據(jù)的有效性

110、　　If Trim(txtBookId) = "" Then　　MsgBox "請輸入書刊編號"　　Exit Sub　　End If&l

111、t;/p>　　Dim myDbOper As New DbOperation　　Dim rst As ADODB.Recordset　　Dim sql As String　　'建立連接　　myDbO

112、per.DB_Connect　　'定義查詢語句　　sql = "SELECT * FROM Book WHERE BookID='" + Trim(txtBookId) + "'"　　Set rst = myDb

113、Oper.querySQL(sql)　　If (Not rst.EOF) Then　　Refresh_DataList　　'顯示書刊類別以及借用期限　　Dim type_rst As ADODB.Recordset　　Di

114、m type_sql As String　　type_sql = "SELECT t.type,d.Dates_restrict " _　　+ "FROM Title t,DatesRestrict d,Book b " _　　+ "WHERE d.type=t.

115、type and t.name=b.name and b.BookID='" _　　+ Trim(txtBookId) + "'"　　Set type_rst = myDbOper.querySQL(type_sql)　　With type_rst

116、　　lblBookType = .Fields(0)　　lblDateRestrict = .Fields(1)　　End With　　Else　　MsgBox "

117、該書刊不存在,請重新操作."　　End If　　rst.Close　　'關(guān)閉連接　　myDbOper.DB_DisConnect</p

118、>　　End Sub　　Private Sub Refresh_DataList()　　Dim sql As String　　'定義查詢語句　　sql = &q

119、uot;SELECT b.BorrowerID as 借閱者編號,b.BorrowDate as 借書日期,b.BookID as 書刊編號,b.name as 名稱," _　　+ "b.loan as 狀態(tài),t.author as 作者,t.isbsn as isbsn,t.type as 類型 " _　　+ "

120、FROM Book b , Title t WHERE b.name=t.name AND b.BookID='" _　　+ Trim(txtBookId) + "'"　　Adodc1.RecordSource = sql　　Adodc1.Refresh</p&

121、gt;　　Set DataGrid1.DataSource = Adodc1　　DataGrid1.ReBind　　End Sub　　Private Sub cmdSubmit_Click()

122、　'檢驗(yàn)數(shù)據(jù)的有效性　　If Trim(txtBookId) = "" Then　　MsgBox "請輸入書刊編號"　　Exit Sub　　End

123、If　　Dim nowDate As New BookDate　　Dim myDbOper As New DbOperation　　Dim rst As ADODB.Recordset　　Dim sql As String<

124、;p>　　Dim update1_sql As String　　Dim update2_sql As String　　'建立連接　　myDbOper.DB_Connect　　'定義查詢語句<

125、;/b>　　sql = "SELECT loan,borrowerID FROM Book WHERE BookId='" + Trim(txtBookId) + "'"　　Set rst = myDbOper.querySQL(sql)　　If Tr

126、im(rst.Fields(0)) = "借出" Then　　'定義更新語句　　update1_sql = "UPDATE Book SET loan='在庫',borrowerID=Null,BorrowDate=Null " _

127、　　+ " WHERE BookID='" + Trim(txtBookId) + "'"　　myDbOper.executeSQL (update1_sql)　　update2_sql = "UPDATE Borrower SET borrowBookNum=borr

128、owBookNum-1 WHERE BorrowerId='" _　　+ rst.Fields(1) + "'"　　myDbOper.executeSQL (update2_sql)　　Refresh_DataList　　Ms

129、gBox "操作成功."　　Else　　MsgBox "該書刊還未借出,請重新操作."　　End If　　rst.Close</b&

130、gt;　　'關(guān)閉連接　　myDbOper.DB_DisConnect　　End Sub　　Private Sub Form_Load()<b

131、>　　End Sub　　課程設(shè)計(jì)總結(jié)　　本系統(tǒng)為圖書管理系統(tǒng)，由于時間原因，數(shù)據(jù)庫的大部分功能只得到了很小的體現(xiàn)，有點(diǎn)部分沒能體現(xiàn)出來，只是最為基礎(chǔ)的部分在本系統(tǒng)中體現(xiàn)出來。其中實(shí)際功能包括管理員操控功能，借閱者信息修改功能，借閱/還書功能，圖書管理功能。<p&

132、gt;　　在借閱卡掛失部分沒能具體的體現(xiàn)出來是本系統(tǒng)最大的缺點(diǎn)，還有最基本的逾期扣費(fèi)功能等都沒能具體體現(xiàn)出來。　　學(xué)習(xí)體會　　通過本次數(shù)據(jù)庫課程設(shè)計(jì)，深深的體會到數(shù)據(jù)庫在日常生活的體現(xiàn)，以前沒有接觸數(shù)據(jù)庫這門課程的時候，沒有感受到數(shù)據(jù)庫在我們生活的重要性。數(shù)據(jù)庫在日常生活中的應(yīng)用那時候覺得是理所當(dāng)然，就該存在的。不知

133、道一個數(shù)據(jù)庫的建立需要多道步驟，一步一步的實(shí)施下去，才能完成。　　本次數(shù)據(jù)庫的設(shè)計(jì)雖是一個小的系統(tǒng)，但是它也包含了數(shù)據(jù)庫設(shè)計(jì)的所有步驟：需求分析，概念結(jié)構(gòu)設(shè)計(jì)，邏輯結(jié)構(gòu)設(shè)計(jì)，物理設(shè)計(jì)，實(shí)施，運(yùn)行與維護(hù)。這些我們在課堂上也都學(xué)習(xí)了，但印象不是特別的深刻。本次課程設(shè)計(jì)充分的聯(lián)合書本知識，充分體現(xiàn)了理論聯(lián)合實(shí)際的。　　這次的課程設(shè)計(jì)不僅讓我學(xué)習(xí)到了數(shù)據(jù)庫的一些

134、實(shí)際的知識，還讓我學(xué)習(xí)了一些有用的開發(fā)工具例如Delphi，VB等可視的開發(fā)工具，學(xué)習(xí)它們是我更加確定了以后自己的發(fā)展方向，因?yàn)槲野l(fā)現(xiàn)我個人在軟件方面比較感興趣，如果自己在軟件部分發(fā)展會比在硬件方面更有發(fā)展前景。以后我會更加的專注于軟件方面的學(xué)習(xí)與實(shí)際的開發(fā)，把我所學(xué)知識運(yùn)用在生活中，并且為我以后的工作打基礎(chǔ)。　　致謝

135、;　　在這次數(shù)據(jù)庫課程設(shè)計(jì)中，感謝學(xué)校給我們提供了機(jī)房，感謝學(xué)院給我們一次動手操作的機(jī)會。在這次課程設(shè)計(jì)中，感謝劉中華、劉旭陽老師對我們的精心指導(dǎo)和諄諄教誨，使我在本次課程設(shè)計(jì)中順利完成在小組中的任務(wù)！同時感謝小組成員乃至同班同學(xué)的幫助，在此致以衷心的感謝！　　參考文獻(xiàn)：　　[1]劉大瑋·馬傳寶·

136、孫穎潔·SQL Server 數(shù)據(jù)庫項(xiàng)目案例導(dǎo)航·北京：清華大學(xué)出版社·2005　　[2]薩師煊·王珊·數(shù)據(jù)庫系統(tǒng)概論·高等教育出版社·2006　　[3]李濤·劉凱奎·王永皎·《數(shù)據(jù)庫開發(fā)與實(shí)例》·北京·清華大學(xué)出版社·201

眾賞文庫> 全部分類> 畢業(yè)設(shè)計(jì)

溫馨提示

1. 本站所有資源如無特殊說明，都需要本地電腦安裝OFFICE2007和PDF閱讀器。圖紙軟件為CAD,CAXA,PROE,UG,SolidWorks等.壓縮文件請下載最新的WinRAR軟件解壓。
2. 本站的文檔不包含任何第三方提供的附件圖紙等，如果需要附件，請聯(lián)系上傳者。文件的所有權(quán)益歸上傳用戶所有。
3. 本站RAR壓縮包中若帶圖紙，網(wǎng)頁內(nèi)容里面會有圖紙預(yù)覽，若沒有圖紙預(yù)覽就沒有圖紙。
4. 未經(jīng)權(quán)益所有人同意不得將文件中的內(nèi)容挪作商業(yè)或盈利用途。
5. 眾賞文庫僅提供信息存儲空間，僅對用戶上傳內(nèi)容的表現(xiàn)方式做保護(hù)處理，對用戶上傳分享的文檔內(nèi)容本身不做任何修改或編輯，并不能對任何下載內(nèi)容負(fù)責(zé)。
6. 下載文件中如有侵權(quán)或不適當(dāng)內(nèi)容，請與我們聯(lián)系，我們立即糾正。
7. 本站不保證下載資源的準(zhǔn)確性、安全性和完整性, 同時也不承擔(dān)用戶因使用這些下載資源對自己和他人造成任何形式的傷害或損失。

數(shù)據(jù)庫課程設(shè)計(jì)--圖書管理

文檔簡介

溫馨提示

最新文檔

評論

數(shù)據(jù)庫課程設(shè)計(jì)--圖書管理

文檔簡介

溫馨提示

最新文檔

評論

免費(fèi)下載