vb圖書管理系統(tǒng)課程設計

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

已閱讀1頁，還剩10頁未讀，繼續(xù)免費閱讀

版權說明：本文檔由用戶提供并上傳，收益歸屬內容提供方，若內容存在侵權，請進行舉報或認領

文檔簡介

1、　　VB課程設計報告　　題目：圖書管理系統(tǒng)　　學院：信息工程學院　　專業(yè)：信息工程（信息安全方向）　　班級： </b

2、>　　姓名： 　　學號: 　　指導老師： 　　目錄

3、　　摘要　　關鍵字　　一系統(tǒng)規(guī)劃　　1.1系統(tǒng)功能描述　　1.2功能模塊劃分

4、　　1.3 E-R圖　　二系統(tǒng)界面的開發(fā)　　2.1登錄界面　　2.2用戶管理界面

5、　　三系統(tǒng)的詳細設計　　3.1登錄界面代碼　　3.2各功能代碼　　四心得體會及認識　　致謝<

6、;/p>　　摘要　　隨著人類社會的發(fā)展，人類對知識的需求也不斷地增長。在這種形勢下，書籍就漸漸地成為人們獲取并增長知識的主要途徑，而圖書館就自然而然地在人們的生活中占據(jù)了一定的位置。如何科學地管理圖書館不但關系到讀者求知的方便程度，也關系到繪本館的發(fā)展，因此，開發(fā)一套完善的圖書管理系統(tǒng)就必不可少了，圖書管理系統(tǒng)是典型的信息管理系統(tǒng)

7、(MIS)，其開發(fā)主要包括后臺數(shù)據(jù)庫的建立和維護以及前端應用程序的開發(fā)兩個方面。　　經(jīng)過分析，使用 Microsoft公司的Visual Basic6.0為開發(fā)工具，利用其提供的各種面向對象的可視化開發(fā)平臺作為開發(fā)工具，采用面向對象技術，圖形化的應用開發(fā)環(huán)境，尤其是它有一個功能極其強大的集成環(huán)境提供給開發(fā)人員，使得開發(fā)人員可通過菜單、界面、圖形瀏覽工具、對話框以及嵌入的各種生成器來輕松地完成各種

8、復雜的操作。開發(fā)過程中不斷修正和改進，直到形成用戶滿意的可行系統(tǒng)。　　本文介紹了在Visual Basic6.0環(huán)境下采用"自上而下地總體規(guī)劃，自下而上地應用開發(fā)"的策略開發(fā)本系統(tǒng)的詳細過程，提出實現(xiàn)圖書信息管理、資源共享的基本目標，從而推動邁向數(shù)字化圖書館的步伐，并闡述系統(tǒng)結構設計和功能設計，從圖書的入庫登記、借閱登記到查詢?yōu)g覽，形成了一個整體自動化管理模式，從軟件工程的角

9、度進行了科學而嚴謹?shù)年U述。　　關鍵詞：圖書管理系統(tǒng)；借閱；瀏覽；編輯；Visual Basic 6.0　　一系統(tǒng)規(guī)劃　　1.1主要功能　　錄入、刪除、修改及查詢<p&

10、gt;　　1.2模塊結構劃分　　此功能分為幾個模塊讀者種類信息：　　讀者基本信息　　書籍信息　　借書信息</p&g

11、t;　　還書信息　　1.3建立如下E-R圖　　二系統(tǒng)界面的開發(fā)　　2.1 用戶登錄　　用戶登錄界面 </b&g

12、t;　　1、輸入賬號與密碼點擊“登錄” 直接登錄進入管理界面。　　2、輸入賬號與密碼，點擊“注冊”，獲得新的賬號和密碼，然后點擊“登錄”即可進入管理界面。　　2.2 用戶管理界面　　編輯圖書信息界面<p&

13、gt;　　查詢圖書信息界面：　　三系統(tǒng)的詳細設計　　3.1登錄界面代碼　　Private Sub Command1_Click()　　Dim cn As N

14、ew ADODB.Connection　　Dim rs As New ADODB.Recordset　　Dim flag As Boolean　　Dim cn_str As String, sql_str As String　　cn_str = "DRIVER=

15、{SQL SERVER};SERVER=WTOLSDRD7SHRABT;DATABASE=library"　　cn.Open cn_str　　sql_str = "select * from userinfo"　　rs.Open sql_str, cn<

16、p>　　While Not rs.EOF　　If Text1.Text = Trim(rs(0)) And Text2.Text = Trim(rs(1)) Then　　flag = True　　Form2.Show　　Exit Sub</b

17、>　　Else　　rs.MoveNext　　flag = False　　End If　　Wend</p&

18、gt;　　If flag = False Then　　MsgBox "輸入有誤，請輸入正確的密碼和賬號！", vbCritical + vbOKOnly, "錯誤"　　rs.Close　　End

19、If　　End Sub　　Private Sub Command2_Click()　　Dim cn As New ADODB.Connection　　Dim rs As New ADODB.Recordset<

20、;/p>　　Dim flag As Boolean　　Dim cn_str As String, sql_str As String　　cn_str = "DRIVER={SQL SERVER};SERVER=WTOLSDRD7SHRABT;DATABASE=library"<

21、p>　　cn.Open cn_str　　sql_str = "select *from userinfo"　　rs.Open sql_str, cn, adOpenDynamic, adLockOptimistic　　rs.AddNew</p&

22、gt;　　rs("username") = Trim(Text1.Text)　　rs("userpassword") = Trim(Text2.Text)　　rs.Update　　rs.Close

23、　　MsgBox "注冊成功!", vbExclamation + vbOKOnly, "提示"　　End Sub　　Private Sub Label1_Click()&l

24、t;b>　　End Sub　　3.2各功能代碼　　圖書信息的編輯：　　Private Sub Command1_Click()　　Adodc1.Recordset.Add

25、New　　Adodc1.Refresh　　MsgBox "錄入信息成功!", vbExclamation + vbOKOnly, "提示"　　End Sub　　Private Sub Comma

26、nd2_Click()　　Adodc1.Recordset.Delete　　Adodc1.Refresh　　MsgBox "刪除信息成功!", vbExclamation + vbOKOnly, "提示"　　End

27、 Sub　　Private Sub Command3_Click()　　Adodc1.Recordset.Update　　Adodc1.Refresh　　MsgBox "修改信息成功!", vbExclamation + vbOKO

28、nly, "提示"　　End Sub　　Private Sub Command4_Click()　　Text1.Text = ""　　Text2.Text = ""</

29、p>　　Text3.Text = ""　　Text4.Text = ""　　Text5.Text = ""　　Text6.Text = ""　　Text7.Text

30、 = ""　　Text8.Text = ""　　End Sub　　圖書信息的查詢：　　Private Sub Command1_Click()</p&

31、gt;　　Adodc1.RecordSource = " select * from bookinfo where book_id='" & Trim(Text1) & " ' "　　Adodc1.Refresh　　End Sub</b

32、>　　借閱信息的編輯：　　Private Sub Command1_Click()　　Adodc1.Recordset.AddNew　　Adodc1.Refresh　　MsgBox &q

33、uot;錄入信息成功!", vbExclamation + vbOKOnly, "提示"　　End Sub　　Private Sub Command2_Click()　　Adodc1.Recordset.Update<

34、;p>　　Adodc1.Refresh　　MsgBox "修改信息成功!", vbExclamation + vbOKOnly, "提示"　　End Sub　　Private Sub Command3_Click()</p&

35、gt;　　Adodc1.Recordset.Delete　　Adodc1.Refresh　　MsgBox "刪除信息成功!", vbExclamation + vbOKOnly, "提示"　　End Sub<

36、/p>　　Private Sub Command4_Click()　　text1.Text = ""　　Text2.Text = ""　　Text3.Text = ""　　Text4.

37、Text = ""　　Text5.Text = ""　　Text6.Text = ""　　Text7.Text = ""　　Text8.Text = ""

38、;　　End Sub　　借閱信息的查詢：　　Private Sub Command2_Click()　　Text1.Text = ""　　Text2.Te

39、xt = ""　　Text3.Text = ""　　Text4.Text = ""　　Text5.Text = ""　　Text6.Text = ""

40、　　Text7.Text = ""　　Text8.Text = ""　　End Sub　　Private Sub Command1_Click()　　Adodc1.Recor

41、dSource = " select * from personinfo where card_number='" & Trim(Text1) & " ' "　　Adodc1.Refresh　　End Sub<p&

42、gt;　　還書信息的編輯：　　Private Sub Command1_Click()　　Adodc1.Recordset.AddNew　　Adodc1.Refresh　　MsgBox "登記信息成功!", vbE

43、xclamation + vbOKOnly, "提示"　　End Sub　　Private Sub Command2_Click()　　Text1.Text = ""　　Text2.Text =

44、 ""　　Text3.Text = ""　　Text4.Text = ""　　Text5.Text = ""　　End Sub&l

45、t;p>　　四心得體會及認識　　要想做出一個好的圖書管理系統(tǒng)，我們首先具備的是扎實的專業(yè)知識，和較強的邏輯思維，通過多多編寫程序來增強自己的能力。在這次的課程設計中遇到了很多困難。在學習的過程中要善于思考，學會發(fā)現(xiàn)問題并解決問題。Sql和vb在我們編寫程序時是不可分割的，要熟練的掌握數(shù)據(jù)庫與vb的鏈接方法。Vb是當今最流行的軟件開發(fā)之一，他的主要特點

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

溫馨提示

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

vb圖書管理系統(tǒng)課程設計

文檔簡介

溫馨提示

最新文檔

評論

vb圖書管理系統(tǒng)課程設計

文檔簡介

溫馨提示

最新文檔

評論

免費下載