

版權說明:本文檔由用戶提供并上傳,收益歸屬內容提供方,若內容存在侵權,請進行舉報或認領
文檔簡介
1、<p><b> 畢業(yè)論文(設計)</b></p><p> 題 目 基于VB的圖書管理系統(tǒng) </p><p> 專 業(yè) 計算機科學與技術(新教務)(本科) </p><p><b> 摘要</b></p><p> 本世紀以來,由于社會生產力的迅速
2、發(fā)展和科學技術的突飛猛進,人們進行信息交流的深度和廣度不斷增加,管理所需要的信息量急劇增長,同時對信息的處理要求及時、準確,這導致了傳統(tǒng)的信息處理方法和手段已不能適應現(xiàn)代管理的需要;電子計算機的誕生和在信息處理中的應用,標志著一個嶄新時代——“信息時代”的開始,它使圖書管理現(xiàn)代化成為可能。在一定意義上說,管理信息系統(tǒng)的產生和發(fā)展是建立在電子計算機基礎之上的。</p><p> 圖書管理系統(tǒng)是典型的信息管理系統(tǒng)(
3、MIS),其開發(fā)主要包括后臺數(shù)據庫的建立和維護以及前端應用程序的開發(fā)兩個方面。對于前者要求建立起數(shù)據一致性和完整性強、數(shù)據安全性好的庫。而對于后者則要求應用程序功能完備,易使用等特點。</p><p> 經過分析,我使用 MICROSOFT公司的 VISUAL BASIC開發(fā)工具,利用其提供的各種面向對象的開發(fā)工具,尤其是數(shù)據窗口這一能方便而簡潔操縱數(shù)據庫的智能化對象,首先在短時間內建立系統(tǒng)應用原型,然后對初始
4、原型系統(tǒng)進行需求迭代,不斷修正和改進,直到形成滿意的可行系統(tǒng)。</p><p> 關鍵詞:圖書管理 數(shù)據庫 Visual Basic.NET 模塊</p><p><b> 目錄</b></p><p> 引言......................................................1&l
5、t;/p><p> 一、概述..................................................2</p><p> ?。ㄒ唬┸浖榻B............................................2</p><p> ?。ǘ﹫D書管理的現(xiàn)狀....................................
6、..2</p><p> 二、系統(tǒng)分析..............................................3</p><p> (一)系統(tǒng)產生的背景.......................................3</p><p> ?。ǘ┫到y(tǒng)性能要求....................................
7、....3</p><p> 三、系統(tǒng)設計...............................................4</p><p> ?。ㄒ唬┫到y(tǒng)模塊圖..........................................4</p><p> ?。ǘ┫到y(tǒng)的代碼設計...............................
8、........5</p><p> ?。ㄈ?shù)據庫設計..........................................8</p><p> 四、系統(tǒng)實現(xiàn)...............................................9</p><p> ?。ㄒ唬┏绦蜻\行..............................
9、..............9</p><p> 五、結論.................................................19</p><p> 致謝.....................................................20</p><p> 參考文獻....................
10、.............................20</p><p><b> 引言</b></p><p> 當今時代是飛速發(fā)展的的信息時代。在各行各業(yè)中離不開信息處理,這正是計算機被廣泛應用于信息管理系統(tǒng)的原因。計算機的最大好處在于利用它能夠進行信息管理。使用計算機進行信息控制,不僅提高了工作效率,而且大大的提高了其安全性。尤其對于復雜的信息管理,計
11、算機能夠充分發(fā)揮它的優(yōu)越性。計算機進行信息管理與信息管理系統(tǒng)的開發(fā)密切相關,系統(tǒng)的開發(fā)是系統(tǒng)管理的前提。本系統(tǒng)就是為了管理好圖書館信息而設計的。</p><p> 圖書館作為一種信息資源的集散地,圖書和用戶借閱資料繁多,包含很多的信息數(shù)據的管理,現(xiàn)今,有很多的圖書館都是初步開始使用,甚至尚未使用計算機進行信息管理。根據調查得知,他們以前對信息管理的主要方式是基于文本,表格等紙介質的手工處理,對于圖書借閱情況(如
12、借書天數(shù),超過限定借書時間的天數(shù))的統(tǒng)計和核實等往往采用對借書卡的人工檢查進行,對借閱者的借閱權限,以及借閱天數(shù)等用人工計算,手抄進行。數(shù)據處理工作量大,容易出錯。由于數(shù)據繁多,容易丟失,且不易查找。總的來說,缺乏系統(tǒng)規(guī)范的信息管理手段。盡管有的圖書館有計算機,但是尚未用于信息管理,沒有發(fā)揮它的效力,資源閑置比較突出,這就是管理信息系統(tǒng)的開發(fā)的基于環(huán)境。</p><p> 基于這個問題,我認為有必要建立一個圖書
13、管理系統(tǒng),使圖書管理工作規(guī)范化,系統(tǒng)化,程序化,避免圖書管理的隨意性,提高信息處理的速度和準確性,能夠及時,準確,有效的查詢和修改圖書情況。</p><p><b> 一、概述</b></p><p><b> ?。ㄒ唬┸浖榻B</b></p><p> 本系統(tǒng)所采用的編程語言為visual basic 6.0與 微軟
14、的 access作為操作數(shù)據庫。</p><p> Visual Basic 6.0是Micrsoft公司出品的開發(fā)工具,Visual Basic是一種可視化的,面向對象的Windows開發(fā)語言,它具有易用、通用和開發(fā)效率高的特點。隨著微軟對它不斷地改進以及計算機本身性能的提高,使得Visual Basic越來越適合一般的應用程序開發(fā)。</p><p> 在VisualBasic環(huán)境下
15、,利用事件驅動的編程機制、新穎易用的可視化設計工具,使用Windows內部的廣泛應用程序接口函數(shù),以用動態(tài)鏈接庫、對象的鏈接與世隔嵌入、開放式數(shù)據連接等技術,可以高效、快速地開發(fā)Windows環(huán)境下功能強大、圖形界面豐富的應用軟件系統(tǒng)。</p><p> 正如Bill Gate所說,世界上絕大多數(shù)的Windows應用程序是用Visual Basic編寫的。在眾多的開發(fā)工具中,我們?yōu)槭裁匆x擇Visual Bas
16、ic6.0呢?因為VB具有眾多其它開發(fā)工具所沒有的優(yōu)點:開發(fā)的高效、語言的高效、編譯的高效、執(zhí)行的高效、維護的高效。</p><p> (二)圖書管理的現(xiàn)狀</p><p> 隨著計算機技術的飛速發(fā)展,其應用方面已滲透到社會生活的各個領域。它已經成為我們學習和工作的得力助手。在學校,尤其是在一些高校,圖書是學校的一項重要資源,圖書的管理也是學校的一項常規(guī)性的重要工作。而長期以來,學生圖
17、書管理都是依賴人工進行的?,F(xiàn)今,有很多的學校都已經開始使用計算機進行圖書信息管理,并且起得良好的效果。近年來我校招生情況越來越好,所以圖書管理工作越來越繁重,但由于種種原因,管理人員并沒有增加,因此原有的人工管理工作已不能適應現(xiàn)行的工作需要。同時,陳舊的人工管理也不利于推廣計算機應用。為使圖書管理工作科學化、規(guī)范化,就必須采用計算機輔助管理。</p><p> 當今時代是飛速發(fā)展的的信息時代。在各行各業(yè)中離不開
18、信息處理,這正是計算機被廣泛應用于信息管理系統(tǒng)的原因。計算機的最大好處在于利用它能夠進行信息管理。使用計算機進行信息控制,不僅提高了工作效率,而且大大的提高了其安全性。尤其對于復雜的信息管理,計算機能夠充分發(fā)揮它的優(yōu)越性。計算機進行信息管理與信息管理系統(tǒng)的開發(fā)密切相關,系統(tǒng)的開發(fā)是系統(tǒng)管理的前提。本系統(tǒng)就是為了管理好圖書館信息而設計的。</p><p><b> 二、系統(tǒng)分析</b><
19、;/p><p> ?。ㄒ唬┫到y(tǒng)產生的背景</p><p> 圖書管理系統(tǒng)是典型的信息管理系統(tǒng)(MIS),其開發(fā)主要包括后臺數(shù)據庫的建立和維護以及前端應用程序的開發(fā)兩個方面。對于前者要求建立起數(shù)據一致性和完整性強、數(shù)據安全性好的庫。而對于后者則要求應用程序功能完備,易使用等特點。</p><p> 經過分析,我使用 MICROSOFT公司的 VISUAL BASIC開
20、發(fā)工具,利用其提供的各種面向對象的開發(fā)工具,尤其是數(shù)據窗口這一能方便而簡潔操縱數(shù)據庫的智能化對象,首先在短時間內建立系統(tǒng)應用原型,然后對初始原型系統(tǒng)進行需求迭代,不斷修正和改進,直到形成滿意的可行系統(tǒng)。</p><p><b> ?。ǘ┫到y(tǒng)性能要求</b></p><p> 除了滿足用戶要求外,系統(tǒng)的性能也很重要。如果新系統(tǒng)不能為用戶提高工作效率和使用方便,那么,
21、用戶是絕對不能接受的。</p><p> 系統(tǒng)的性能要求一般包括:計算或查詢響應時間、處理容量、存儲容量、人機交互的友好性,系統(tǒng)的安全性、可靠性以及容錯能力等,如果是網絡系統(tǒng),還應包括系統(tǒng)傳輸(交換)能力。例如:對資料查詢的性能要求是:常用資料檢索響應時間,非常用資料檢索響應時間,資料信息存儲容量,后備存儲容量,可以打印報表的類型、數(shù)量。</p><p> 系統(tǒng)性能一般由以下幾個方面確
22、定:</p><p> 容量要求:確定系統(tǒng)的容量要求,如處理的記錄和處理數(shù)據的最大容量等。</p><p> 精度要求:確定系統(tǒng)的精度要求。如數(shù)據或數(shù)值計算的精度要求、數(shù)據傳輸?shù)木纫蟮取?lt;/p><p> 時間特性要求:確定系統(tǒng)的時間特性要求。如處量時間、響應時間及其峰值負載期間允許偏離范圍,系統(tǒng)各項功能的順序關系,由于輸入類型的不同和操作方式的變化而引起
23、的優(yōu)先順序的變化等。</p><p> 適應性要求:必須指明反映系統(tǒng)環(huán)境變化和系統(tǒng)適應能力的各種參數(shù)。說明當需求發(fā)生某些變化時系統(tǒng)的適應能力,指出為適應這些變化而需要設計的軟件和過程。</p><p> 人機交互友好性:要有適用于用戶特點和智能化人機交互界面,便于用戶操作使用。</p><p> 系統(tǒng)的可靠性:為提高系統(tǒng)的可靠性采用了模塊化、結構化設計,對于需
24、要容錯處理的模塊提供備份,以減少系統(tǒng)故障。</p><p> 根據用戶的需求,應具有如下性能:</p><p> 數(shù)據庫和網絡擴充的能力。</p><p> 快速的信息交換能力及響應能力。</p><p> 具有較大的數(shù)據存儲能力。</p><p><b> 系統(tǒng)快速恢復能力。</b>&
25、lt;/p><p> 保障數(shù)據庫系統(tǒng)和網絡系統(tǒng)的安全。</p><p><b> 三、系統(tǒng)設計</b></p><p><b> ?。ㄒ唬┫到y(tǒng)模塊圖</b></p><p><b> 圖3-1系統(tǒng)模塊圖</b></p><p> 本系統(tǒng)主要包括:圖書
26、管理模塊、讀者管理模塊、圖書借閱管理模塊、系統(tǒng)管理模塊。</p><p> 圖書管理模塊包括:圖書類別管理(首先是以圖書類別的編號為依據,來達到添加、修改、查詢圖書類別記錄。同時,也對數(shù)據庫中的圖書類別表的編號進行檢查);圖書信息管理(以圖書編號為流動方向的依據,來達到添加、修改、記錄、刪除圖書記錄)。</p><p> 讀者管理模塊包括:讀者管理(以讀者類別編號為流動方向的依據,來達
27、到添加、修改、記錄讀者類別記錄。);讀者信息管理(以讀者的編號為依據,來達到添加、修改、查詢、刪除讀者信息的記錄。同時,也對數(shù)據庫中的讀者信息表的編號進行檢查)。</p><p> 圖書借閱管理模塊包括:借書管理(以借閱編號為流動方向的依據,來達到添加、查詢借書記錄);還書管理(是實現(xiàn)對各部分數(shù)據內容的添加和查詢操作,在借閱信息中包括借閱編號、讀者編號、讀者姓名、書籍名稱、出借日期和還書日期。并通過添加功能來達
28、到借閱信息表的數(shù)據的更新,通過查詢可使管理員很快地了解借閱信息,從而避免書籍的丟失現(xiàn)象產生)。</p><p> 系統(tǒng)管理包括:添加管理員,修改密碼,退出系統(tǒng)。</p><p> ?。ǘ┫到y(tǒng)的代碼設計</p><p> 本系統(tǒng)的查詢功能代碼(例舉實例)如下:</p><p> 功能介紹:用于顯示(當讀者借書/還書時)該讀者已借閱的所有
29、書籍,方便管理員及讀者了解信息</p><p> Private Sub about_Click()</p><p> Form3.Show</p><p><b> End Sub</b></p><p><b> '數(shù)據查詢的實現(xiàn)</b></p><p>
30、 Private Sub start_Click()</p><p> '對應不同的選項進行查詢</p><p> On Error GoTo wrong</p><p> Dim LibName As String</p><p> If combo1.ListIndex = -1 Or Text1.Text = &quo
31、t;" Then</p><p> MsgBox "你沒有輸入查詢內容或選擇查詢項"</p><p><b> Else</b></p><p> a = Text1.Text</p><p> Adodc1.CommandType = adCmdText</p>&l
32、t;p> i = combo1.ListIndex</p><p> b = combo1.List(i)</p><p> Set DataGrid1.DataSource = Adodc1</p><p> Select Case SSTab1.Tab</p><p><b> Case 2</b>&
33、lt;/p><p> If i <> 6 Then</p><p> Adodc1.RecordSource = "select * from libary where " & b & " like '%" & a & "%'" '借閱信息查詢</p>
34、<p> Adodc1.Refresh</p><p><b> Else</b></p><p> Adodc1.RecordSource = "select * from libary "</p><p> Adodc1.Refresh</p><p><b>
35、End If</b></p><p><b> Case 3</b></p><p> If i <> 7 Then</p><p> Adodc1.RecordSource = "select * from S_book where " & b & " like
36、39;%" & a & "%'" '書籍查詢</p><p> Adodc1.Refresh</p><p><b> Else</b></p><p> Adodc1.RecordSource = "select * from S_book "</p
37、><p> Adodc1.Refresh</p><p><b> End If</b></p><p><b> Case 4</b></p><p> If i <> 5 Then</p><p> Adodc1.RecordSource = "
38、;select * from S_no where " & b & " like '%" & a & "%'" '學號查詢</p><p> Adodc1.Refresh</p><p><b> Else</b></p><p>
39、Adodc1.RecordSource = "select * from S_no "</p><p> Adodc1.Refresh</p><p><b> End If</b></p><p> End Select</p><p><b> End If</b>&
40、lt;/p><p> L1.名稱 = "共找到" & Adodc1.Recordset.RecordCount & "條記錄"</p><p><b> Exit Sub</b></p><p><b> wrong:</b></p><p>
41、; MsgBox Err.Description</p><p><b> End Sub</b></p><p> Private Sub book_Click()</p><p> SSTab1.Tab = 3</p><p> With combo1</p><p><b&g
42、t; .Clear</b></p><p> .Text = "請選擇類別"</p><p> .AddItem "名稱", 0</p><p> .AddItem "作者", 1</p><p> .AddItem "書號", 2</
43、p><p> .AddItem "名稱", 3</p><p> .AddItem "出版社", 4</p><p> .AddItem "出版時間", 5</p><p> .AddItem "內容介紹", 6</p><p> .
44、AddItem "所有記錄", 7</p><p><b> End With</b></p><p> Adodc1.Refresh</p><p><b> End Sub</b></p><p><b> ?。ㄈ?shù)據庫設計</b></p&
45、gt;<p> 圖書管理系統(tǒng)的數(shù)據庫采用SQLServer2000 ,系統(tǒng)數(shù)據庫的名稱為“MIScar”。數(shù)據庫中包含了多張數(shù)據表。下面分別給出數(shù)據表概要說明和主要數(shù)據表的結構。</p><p> ?。?)讀者類別:用于查詢讀者類別的基本信息。見表3-1所示:</p><p> 表3-1讀者類別信息表</p><p> (2)借閱:用來存儲借閱圖
46、書的信息。見表3-2所示:</p><p><b> 表3-2借閱信息表</b></p><p> ?。?)讀者信息:存儲讀者的信息。表3-3所示:</p><p><b> 表3-3讀者信息表</b></p><p> ?。?)系統(tǒng)管理:用于儲存系統(tǒng)用戶的基本信息。見表3-4所示:</p
47、><p><b> 表3-4系統(tǒng)管理表</b></p><p><b> 四、系統(tǒng)實現(xiàn)</b></p><p><b> ?。ㄒ唬┏绦蜻\行</b></p><p><b> 1.系統(tǒng)登錄窗體</b></p><p><b&g
48、t; 圖4-1 系統(tǒng)登錄</b></p><p><b> 系統(tǒng)登錄窗體代碼:</b></p><p> Option Explicit</p><p> Dim cnt As Integer '記錄確定次數(shù)</p><p> Private Sub
49、Command1_Click()</p><p> Dim sql As String</p><p> Dim rs_login As New ADODB.Recordset</p><p> If Trim(txtuser.Text) = "" Then '判斷輸入的用戶名是否為空</p>&
50、lt;p> MsgBox "沒有這個用戶", vbOKOnly + vbExclamation, ""</p><p> txtuser.SetFocus</p><p><b> Else</b></p><p> sql = "select * from 系統(tǒng)管理 where
51、用戶名='" & txtuser.Text & "'"</p><p> rs_login.Open sql, conn, adOpenKeyset, adLockPessimistic</p><p> If rs_login.EOF = True Then</p><p> MsgBox &qu
52、ot;沒有這個用戶", vbOKOnly + vbExclamation, ""</p><p> txtuser.SetFocus</p><p> Else '檢驗密碼是否正確</p><p> If Trim(rs_login.Fields(1)) =
53、 Trim(txtpwd.Text) Then</p><p> userID = txtuser.Text</p><p> userpow = rs_login.Fields(2)</p><p> rs_login.Close</p><p><b> Unload Me</b></p>&l
54、t;p> Form1.Show</p><p><b> Else</b></p><p> MsgBox "密碼不正確", vbOKOnly + vbExclamation, ""</p><p> txtpwd.SetFocus</p><p><b>
55、 End If</b></p><p><b> End If</b></p><p><b> End If</b></p><p> cnt = cnt + 1</p><p> If cnt = 3 Then</p><p><b>
56、Unload Me</b></p><p><b> End If</b></p><p><b> Exit Sub</b></p><p><b> End Sub</b></p><p> Private Sub Command2_Click()<
57、;/p><p><b> Unload Me</b></p><p><b> End Sub</b></p><p> Private Sub Form_Load()</p><p> Dim connectionstring As String</p><p> c
58、onnectionstring = "provider=Microsoft.Jet.oledb.4.0;" & _</p><p> "data source=book.mdb"</p><p> conn.Open connectionstring</p><p><b> cnt = 0</b
59、></p><p><b> End Sub</b></p><p> 本界面適用于用戶登錄</p><p> 用戶登錄時, 在“用戶名”位置輸入正確的用戶名,然后填寫自己的密碼,最后點擊“確定”按鈕,如果密碼正確,則直接進入圖書管理系統(tǒng),如果密碼或用戶名不正確,則會提示“沒有這個用戶名”。</p><p>
60、 2. 系統(tǒng)主界面窗體</p><p> 圖4-2 系統(tǒng)主界面</p><p> 系統(tǒng)主界面窗體代碼:</p><p> Private Sub add_admin_Click()</p><p> frmadduser.Show</p><p><b> End Sub</b><
61、;/p><p> Private Sub add_back_book_Click()</p><p> frmbackbookinfo.Show</p><p><b> End Sub</b></p><p> Private Sub add_book_info_Click()</p><p&g
62、t; frmaddbookinfo.Show</p><p><b> End Sub</b></p><p> Private Sub add_book_style_Click()</p><p> frmaddbookstyle.Show</p><p><b> End Sub</b>
63、;</p><p> Private Sub add_lend_book_Click()</p><p> frmfindbook.Show</p><p><b> End Sub</b></p><p> Private Sub add_reader_info_Click()</p><p
64、> frmaddreaderinfo.Show</p><p><b> End Sub</b></p><p> Private Sub add_reader_style_Click()</p><p> frmaddreaderstyle.Show</p><p><b> End Sub&
65、lt;/b></p><p> Private Sub change_pwd_Click()</p><p> frmchangepwd.Show</p><p><b> End Sub</b></p><p> Private Sub del_book_info_Click()</p>&
66、lt;p> frmmodifybookinfo.Show</p><p><b> End Sub</b></p><p> Private Sub del_book_style_Click()</p><p> frmmodifybookstyle.Show</p><p><b> End
67、Sub</b></p><p> Private Sub del_reader_info_Click()</p><p> frmreaderinfo.Show</p><p><b> End Sub</b></p><p> Private Sub del_reader_style_Click()
68、</p><p> frmmodifyreaderstyle.Show</p><p><b> End Sub</b></p><p> Private Sub exit_sys_Click()</p><p><b> End</b></p><p><b&
69、gt; End Sub</b></p><p> Private Sub find_book_info_Click()</p><p> frmfindbook.Show</p><p><b> End Sub</b></p><p> Private Sub find_lend_book_Cli
70、ck()</p><p> frmfindborrowinfo.Show</p><p><b> End Sub</b></p><p> Private Sub find_reader_info_Click()</p><p> frmfindreader.Show</p><p>&
71、lt;b> End Sub</b></p><p> Private Sub Form_Load()</p><p><b> End Sub</b></p><p> Private Sub modify_book_info_Click()</p><p> frmmodifybookinf
72、o.Show</p><p><b> End Sub</b></p><p> Private Sub modify_book_style_Click()</p><p> frmmodifybookstyle.Show</p><p><b> End Sub</b></p>
73、<p> Private Sub modify_reader_info_Click()</p><p> frmreaderinfo.Show</p><p><b> End Sub</b></p><p> Private Sub modify_reader_style_Click()</p><p
74、> frmmodifyreaderstyle.Show</p><p><b> End Sub</b></p><p> 系統(tǒng)主界面窗體主要有四大模塊:圖書管理、讀者管理、圖書借閱管理、系統(tǒng)管理</p><p> 進入該界面后可以進行自己想要進行的操作。圖書管理模塊包括:圖書類別管理(添加、修改、查詢圖書類別記錄),圖書信息管理
75、(以添加、修改、記錄、刪除圖書記錄)。</p><p> 讀者管理模塊包括:讀者管理(添加、修改、記錄讀者類別記錄),讀者信息管理(添加、修改、查詢、刪除讀者信息的記錄)。</p><p> 圖書借閱管理模塊包括:借書管理(添加、查詢借書記錄),還書管理(是實現(xiàn)對各部分數(shù)據內容的添加和查詢操作,在借閱信息中包括借閱編號、讀者編號、讀者姓名、書籍名稱、出借日期和還書日期。并通過添加功能來
76、達到借閱信息表的數(shù)據的更新,通過查詢可使管理員很快地了解借閱信息,從而避免書籍的丟失現(xiàn)象產生)。</p><p> 系統(tǒng)管理包括:添加管理員,修改密碼,退出系統(tǒng)。</p><p> 3.添加圖書類別窗體</p><p> 圖4-3添加圖書類別界面</p><p> 添加圖書類別界面代碼:</p><p> O
77、ption Explicit</p><p> Private Sub Command1_Click()</p><p> Dim rs_bookstyle As New ADODB.Recordset</p><p> Dim sql As String</p><p> If Trim(Text1.Text) = "&q
78、uot; Then</p><p> MsgBox "圖書種類不能為空", vbOKOnly + vbExclamation, ""</p><p> Text1.SetFocus</p><p><b> Exit Sub</b></p><p><b> En
79、d If</b></p><p> If Trim(Text2.Text) = "" Then</p><p> MsgBox "種類編號不能為空", vbOKOnly + vbExclamation, ""</p><p> Text2.SetFocus</p><p
80、><b> Exit Sub</b></p><p><b> End If</b></p><p> sql = "select * from 圖書類別 where 類別名稱='" & Text1.Text & "'"</p><p>
81、 rs_bookstyle.Open sql, conn, adOpenKeyset, adLockPessimistic</p><p> If rs_bookstyle.EOF Then</p><p> rs_bookstyle.AddNew</p><p> rs_bookstyle.Fields(0) = Trim(Text1.Text)</p
82、><p> rs_bookstyle.Fields(1) = Trim(Text2.Text)</p><p> rs_bookstyle.Update</p><p> MsgBox "添加圖書類別成功!", vbOKOnly, ""</p><p> rs_bookstyle.Close<
83、/p><p><b> Else</b></p><p> MsgBox "讀者類別重復!", vbOKOnly + vbExclamation, ""</p><p> Text1.SetFocus</p><p> Text1.Text = ""<
84、/p><p> rs_bookstyle.Close</p><p><b> Exit Sub</b></p><p><b> End If</b></p><p><b> End Sub</b></p><p> Private Sub C
85、ommand2_Click()</p><p><b> Unload Me</b></p><p><b> End Sub</b></p><p> Private Sub Form_Load()</p><p><b> End Sub</b></p>
86、<p> 本界面主要用于添加圖書類別</p><p> 點擊“圖書管理”,出現(xiàn)圖書類別的窗體,然后在“圖書類別”中填入要添加的圖書的類別名稱,并輸寫圖書編號,點擊“確定”按鈕,則彈出另一個窗體,顯示“添加圖書類別成功”。</p><p> 4.添加讀者類別窗體</p><p> 圖4-4添加讀者類別界面</p><p>
87、 添加讀者類別窗體代碼:</p><p> Option Explicit</p><p> Dim rs_readerstyle As New ADODB.Recordset</p><p> Private Sub Command1_Click()</p><p> Dim sql As String</p>&l
88、t;p> If Trim(Text1.Text) = "" Then</p><p> MsgBox "讀者種類不能為空", vbOKOnly + vbExclamation, ""</p><p> Text1.SetFocus</p><p><b> Exit Sub</
89、b></p><p><b> End If</b></p><p> If Trim(Text2.Text) = "" Then</p><p> MsgBox "借書數(shù)量不能為空", vbOKOnly + vbExclamation, ""</p><
90、;p> Text2.SetFocus</p><p><b> Exit Sub</b></p><p><b> End If</b></p><p> If Trim(Text3.Text) = "" Then</p><p> MsgBox "借書
91、期限不能為空", vbOKOnly + vbExclamation, ""</p><p> Text3.SetFocus</p><p><b> Exit Sub</b></p><p><b> End If</b></p><p> If Trim(Te
92、xt4.Text) = "" Then</p><p> MsgBox "有限期限不能為空", vbOKOnly + vbExclamation, ""</p><p> Text4.SetFocus</p><p><b> Exit Sub</b></p>&l
93、t;p><b> End If</b></p><p> sql = "select * from 讀者類別 where 種類名稱='" & Text1.Text & "'"</p><p> rs_readerstyle.Open sql, conn, adOpenKeyset, a
94、dLockPessimistic</p><p> If rs_readerstyle.EOF Then</p><p> rs_readerstyle.AddNew</p><p> rs_readerstyle.Fields(0) = Trim(Text1.Text)</p><p> rs_readerstyle.Fields(
95、1) = CInt(Text2.Text)</p><p> rs_readerstyle.Fields(2) = CInt(Text3.Text)</p><p> rs_readerstyle.Fields(3) = CInt(Text4.Text)</p><p> rs_readerstyle.Update</p><p>
96、MsgBox "添加讀者類別成功!", vbOKOnly, ""</p><p> rs_readerstyle.Close</p><p><b> Else</b></p><p> MsgBox "讀者類別重復!", vbOKOnly + vbExclamation, &q
97、uot;"</p><p> Text1.SetFocus</p><p> Text1.Text = ""</p><p> rs_readerstyle.Close</p><p><b> Exit Sub</b></p><p><b>
98、End If</b></p><p><b> End Sub</b></p><p> Private Sub Command2_Click()</p><p><b> Unload Me</b></p><p><b> End Sub</b><
99、/p><p> Private Sub Form_Load()</p><p><b> End Sub</b></p><p> 本界面用于添加讀者類別</p><p> 在系統(tǒng)主界面窗體中點擊“讀者管理”,然后點擊“讀者類別管理”,最后點擊“添加讀者類別”按鈕,就會蹦出另一個“添加讀者類別”的窗體。在相應的位置填
100、上相關的信息,最后點擊“確定”按鈕,則顯示“添加成功”。</p><p><b> 五、結論</b></p><p> 在這次畢業(yè)設計過程中,使我受到了一次用專業(yè)知識、專業(yè)技能分析和解決問題的全面的、系統(tǒng)的鍛煉。使我在綜合知識的選用方面,在應用軟件開發(fā)的基本思想、方法方面,以及在程序設計的掌握方面都能向前邁了一大步。為日后成為合格的應用型人才打下良好的基礎。
101、 本設計完成了需求分析,設計代碼,以及幾個模塊的數(shù)據庫設計。提高了我的程序編寫水平,并加深理解了許多課程中、書本上學到的知識和理論。同時,通過編寫畢業(yè)設計論文,我還基本掌握了軟件文檔的書寫方法和書寫格式。 通過畢業(yè)設計,我學會了如何去了解一種新型的技術,去掌握一種技術。以及軟件開發(fā)的基本流程。在學習過程中,我們遇到問題經常上網求助,去書店查詢資料,擴大了自己的知識面。 總之,這次畢業(yè)設計為我今后繼續(xù)學習、深造奠定了基礎
102、,我非常感謝各位老師、同學的支持與幫助。</p><p><b> 致謝</b></p><p> 設計的結束,也宣告了我在廣播電視大學學習生涯的結束,心里雖然充滿了期待,但也有點不舍,想想自己走過來的一步一步,一點一滴,心中感慨萬千,希望自己帶著那份對未來社會的憧憬和希望,順利通過畢業(yè)答辯,繼續(xù)學習新的專業(yè)知識。</p><p> 在論
103、文完稿之際,我特別要感謝我的指導老師**老師。他在我整個系統(tǒng)開發(fā)和論文撰寫的整個過程中給了我很多建議和及時的幫助。從研究方向,構造框架,直到具體開發(fā)研究,甚至語法等等細微的工作,都一絲不茍、嚴格要求。在我今后的學習、工作,甚至生活的方方面面,都要把*老師的這種精神貫徹始終,從而不辜負朱志凌老師對我的悉數(shù)關懷和耐心指導!</p><p> 此外,我還要感謝與我一起在機房學習Visual Basic.NET編程軟件
104、的同學和朋友,在他們的幫助與共同探討下,我解決了許多難題,也使我的論文能夠順利完成。感謝他們在我學習和生活上的幫助。</p><p><b> 參考文獻</b></p><p> [1]閃四清,《數(shù)據庫系統(tǒng)原理與應用》清華大學出版社,1999</p><p> [2]羅光春《Visual Basic 6.0從入門到精通》電子科技大學出版社
溫馨提示
- 1. 本站所有資源如無特殊說明,都需要本地電腦安裝OFFICE2007和PDF閱讀器。圖紙軟件為CAD,CAXA,PROE,UG,SolidWorks等.壓縮文件請下載最新的WinRAR軟件解壓。
- 2. 本站的文檔不包含任何第三方提供的附件圖紙等,如果需要附件,請聯(lián)系上傳者。文件的所有權益歸上傳用戶所有。
- 3. 本站RAR壓縮包中若帶圖紙,網頁內容里面會有圖紙預覽,若沒有圖紙預覽就沒有圖紙。
- 4. 未經權益所有人同意不得將文件中的內容挪作商業(yè)或盈利用途。
- 5. 眾賞文庫僅提供信息存儲空間,僅對用戶上傳內容的表現(xiàn)方式做保護處理,對用戶上傳分享的文檔內容本身不做任何修改或編輯,并不能對任何下載內容負責。
- 6. 下載文件中如有侵權或不適當內容,請與我們聯(lián)系,我們立即糾正。
- 7. 本站不保證下載資源的準確性、安全性和完整性, 同時也不承擔用戶因使用這些下載資源對自己和他人造成任何形式的傷害或損失。
最新文檔
- 基于vb圖書管理系統(tǒng)畢業(yè)論文
- 基于vb圖書管理系統(tǒng)畢業(yè)論文
- 基于vb圖書管理系統(tǒng)畢業(yè)論文
- 基于vb的圖書管理系統(tǒng)畢業(yè)論文
- 基于vb的圖書管理系統(tǒng)設計畢業(yè)論文
- 基于vb的圖書管理系統(tǒng)-電大畢業(yè)論文
- 畢業(yè)論文(圖書管理系統(tǒng))基于vb+acess
- 畢業(yè)論文----基于vb+acc圖書管理系統(tǒng)
- 基于vb的圖書管理系統(tǒng)的設計畢業(yè)論文
- vb+sql畢業(yè)論文----圖書管理系統(tǒng)
- vb圖書管理系統(tǒng)(論文)
- vb圖書管理系統(tǒng)畢業(yè)設計論文
- 畢業(yè)設計---vb圖書管理系統(tǒng)_論文
- 畢業(yè)論文--圖書管理系統(tǒng)
- 畢業(yè)論文-圖書管理系統(tǒng)
- 基于delphi的圖書管理系統(tǒng)畢業(yè)論文
- 基于jsp的圖書管理系統(tǒng)畢業(yè)論文
- 基于jsp的圖書管理系統(tǒng)畢業(yè)論文
- 圖書管理系統(tǒng)畢業(yè)論文
- 圖書管理系統(tǒng)畢業(yè)論文
評論
0/150
提交評論