【正文】 。連接 record表 tablename = record Set = rst End Sub Private Sub Form_Load() = 書(shū)號(hào) = 書(shū)名 = 出版社 = 作者 19 = = 1000 tablename = book Call connect_db open_connection (book) Set = rst (1) = 圖書(shū)信息瀏覽 (2) = 員工信息瀏覽 (3) = 圖書(shū)借閱情況瀏覽 = open_connection (book) Set = rst End Sub Private Sub Image1_Click() End Sub Private Sub Option1_Click() Select Case Case 圖書(shū)信息瀏覽 : sfield = [圖書(shū)編碼 ] Case 員工信息瀏覽 : sfield = [工號(hào) ] Case 圖書(shū)借閱情況瀏覽 : sfield = [圖書(shū)編碼 ] End Select End Sub Private Sub Option2_Click() 39。連接 book表 tablename = book = 書(shū)號(hào) = 書(shū)名 21 Set = rst Case 員工信息瀏覽 : If privilege = 1 Then 39。（默然讀者帳號(hào)； reader 密碼； 008） 代碼見(jiàn) code目錄下 : Private Sub Form_Load() 39。 amp。查找用戶登錄名 sql, con, adOpenDynamic, adLockOptimistic If = 0 Then = True = 用戶名不存在！ Exit Sub End If 39。該閱子模塊簡(jiǎn)單，計(jì)算機(jī)圖書(shū)綜合信息以圖書(shū)編號(hào)歸攏在一起，方便借閱。檢驗(yàn)工號(hào)及書(shū)號(hào)的合法性 With param1 .Direction = adParamInput .Type = adBSTR .Size = 8 .Value = End With param1 = sql1 = adCmdText Set = con Set rst = If = 0 Then = True = 沒(méi)有此工號(hào) ! Exit Sub End If With param2 .Direction = adParamInput .Type = adBSTR .Size = 8 .Value = End With param2 = sql2 28 = adCmdText Set = con Set rst1 = If = 0 Then = True = 沒(méi)有此圖書(shū)編號(hào) ! Exit Sub End If sql2 = select * from record where [圖書(shū)編碼 ]=? With param3 .Direction = adParamInput .Type = adBSTR .Size = 8 .Value = End With param3 = sql2 = adCmdText Set = con Set rst1 = 39。檢測(cè)用戶名及書(shū)號(hào)正確否 sql1 = select * from worker where [工號(hào) ]=? sql2 = select * from book where [圖書(shū)編碼 ]=? Dim param1, param2, param3 As Dim cmd1, cmd2, cmd3 As Set cmd1 = New Set cmd2 = New Set cmd3 = New Set param1 = New Set param2 = New Set param3 = New With param1 .Direction = adParamInput .Type = adBSTR .Size = 8 .Value = End With param1 = sql1 = adCmdText Set = con Set rst = If = 0 Then = True = 沒(méi)有此工號(hào) ! Exit Sub End If With param2 32 .Direction = adParamInput .Type = adBSTR .Size = 8 .Value = End With param2 = sql2 = adCmdText Set = con Set rst1 = If = 0 Then = True = 沒(méi)有此圖書(shū)編號(hào) ! Exit Sub End If sql1 = select * from record where [工號(hào) ]=? With param3 .Direction = adParamInput .Type = adBSTR .Size = 8 .Value = End With param1 = sql1 = adCmdText Set = con Set rst = If = 0 Then num = 0 33 = str(num) = True = 您沒(méi)有借閱此圖書(shū) ! Exit Sub Else num = 1 sql1 = select * from record where [圖書(shū)編碼 ]=39。 amp。 39。 39。向數(shù) 據(jù)庫(kù)中添加新的記錄、刪除不需要的記錄、修改錯(cuò)誤的記錄、對(duì)數(shù)據(jù)庫(kù)中的信息進(jìn)行查詢。 代碼如下： Private Sub xpcmdbutton7_Click() 36 open_connection (worker) tablename = worker Set = rst End Sub 窗體圖： 該窗體可供管理員增加、修改、刪除、顯示上一記錄、下一記錄員工信息等功能。 代碼見(jiàn)光盤(pán) code目錄下 : 7. 讀者信息 這一功能應(yīng)用在“ xpcmdbutton15”控件上， DataGrid1控件顯示 職工信息，如讀者的姓名，編號(hào)，地址，電話號(hào)碼等，任何人可以查閱直接添加信息。H00C0FFFFamp。其功能基本符合需求，能夠完成書(shū)籍錄入，借閱，查詢、統(tǒng)計(jì)、用戶管理。 43 參考文獻(xiàn) 《 Visual Basic 使用指南》 作者： BobReselman 等 出版社：電子工業(yè)出版社 《中文版 Microsoft Office 2021自學(xué)通》作者： Ned Snel編著 出版社：機(jī)械工業(yè)出版社 《 Visual Basic 中文版控件大全》作者： Microsoft 編著 出版社 :電子工業(yè)出版社 《 Visual Basic 完全自學(xué)手冊(cè)》 作者：仲維俊 編著 機(jī)械工業(yè)出版社出版 《 Visual Basic+Access數(shù)據(jù)庫(kù)開(kāi)發(fā)與實(shí)例》作者 : 劉文濤 編著 出版社 :清華大學(xué)出版社 《 SQL Server 2021 應(yīng)用與開(kāi)發(fā)范例寶典》作者：明日科技 編著 出版社 :人民郵電出版社 《數(shù)據(jù)庫(kù)系統(tǒng)概念 (原書(shū)第 5版》 作者：西爾伯沙茨 等著 出版社：機(jī)械工業(yè)出版社 另外參考 ； 百度知道 洪恩教育 中國(guó) VB eNet學(xué)院 網(wǎng)易學(xué)院 網(wǎng)站 44 致 謝 在本論文的選題、學(xué)習(xí)和撰寫(xiě)工作中，我衷心感謝我的導(dǎo)師呼克佑 老師幾個(gè)月以來(lái)對(duì)我的督促和指導(dǎo)。 。 同時(shí)也非常感謝應(yīng)用信息 技術(shù)系的各位老師長(zhǎng)期以來(lái)的關(guān)心和指導(dǎo)，老師們一直無(wú)微不至的關(guān)懷給予了我物質(zhì)和精神上的支持，再次對(duì)老師們的付出表示衷心的謝意，我會(huì)在以后的工作崗位用心把握每一次機(jī)會(huì)，用心學(xué)習(xí)提高自己的各方面的知識(shí)。 但是由于畢業(yè)設(shè)計(jì)時(shí)間較短，所以該系統(tǒng)還有許多不盡如人意的地方，比如聯(lián)機(jī)文檔比較少，用戶界面不夠美觀，出錯(cuò)處理不夠等多方面問(wèn)題。上一記錄 If Then = True = 已 經(jīng)到達(dá)記錄頂端 ! Exit Sub Else End If End Sub Private Sub Command*_Click() 39。 代碼如下： 37 Private Sub xpcmdbutton15_Click() open_connection reader tablename = reader Set = rst End Sub 窗體圖： 8. 使用幫助 該窗體顯示幫助信息 窗體圖： 9