【正文】 If rstRecordCount 0 Then num 0 Label3Caption str num frmMsgShow frmMsgnoticeVisible True frmMsgText1Text 您沒有借閱此圖書 Exit Sub Else num rstRecordCount 1 sql1 select from record where [圖書編碼] Trim Text2Text and [工號] Trim Text1Text Set rst1 New ADODBRecordset rst1Open sql1 con adOpenDynamic adLockOptimistic If rst1RecordCount 0 Then frmMsgShow frmMsgnoticeVisible True frmMsgText1Text 您沒有借閱此圖書 Exit Sub End If sql1 delete from record where [圖書編碼] Trim Text2Text Set rst New ADODBRecordset rstOpen sql1 con adOpenDynamic adLockOptimistic frmMsgShow frmMsgnoticeVisible True frmMsgText1Text 還書成功 Label3Caption str num End If End Sub Private Sub Command2_Click Unload MeEnd SubPrivate Sub Form_Load Dim sql1 sql2 As Stringsql1 select from booksql2 select from workerSet rst New ADODBRecordsetSet rst1 New ADODBRecordsetCall connect_dbrstOpen sql2 con adOpenDynamic adLockOptimisticrst1Open sql1 con adOpenDynamic adLockOptimisticEnd SubPrivate Sub Image1_Click End SubPrivate Sub xptopbuttons1_Click Unload MeEnd SubPrivate Sub xptopbuttons2_Click MeWindowState 1End Sub4 圖書查詢 點擊 xpcmdbutton5控件按紐數(shù)據(jù)控件將顯示 當(dāng)前 表BOOK信息如管理員圖書編碼圖書名稱作者出版社等一目了然無權(quán)限程序代碼Private Sub xpcmdbutton5_Click open_connection book tablename recordSet DataGrid1DataSource rstEnd Sub窗體圖5 圖書錄入新書錄入窗口中顯示的是員工必要信息可供用戶增加修改刪除顯示上一記錄下一記錄等功能向數(shù)據(jù)庫中添加新的記錄刪除不需要的記錄修改錯誤的記錄對數(shù)據(jù)庫中的信息進(jìn)行查詢當(dāng)用戶想修改某條記錄時只要雙擊修改記錄安扭控件中修改要修改的記錄就會自動彈出詳細(xì)信息窗體該窗體已經(jīng)顯示了你要得信息你就可以對其該條記錄進(jìn)行修改了本系統(tǒng)的一大特點可以直接在TEXT文本框進(jìn)行數(shù)據(jù)修改修改后按ENTER鍵即可完成修改并保存在數(shù)據(jù)庫book表中代碼見光盤code目錄下 Entrytxt窗體圖5 職工查詢 這一功能應(yīng)用在xpcmdbutton7控件上DataGrid1控件顯示職工信息如職工的工號姓名地址等讀者沒有查詢權(quán)限代碼如下Private Sub xpcmdbutton7_Click open_connection worker tablename workerSet DataGrid1DataSource rstEnd Sub窗體圖6職工錄入該窗體可供管理員增加修改刪除顯示上一記錄下一記錄員工信息等功能也同樣向數(shù)據(jù)庫中添加新的記錄刪除不需要的記錄修改錯誤的記錄對數(shù)據(jù)庫中的信息進(jìn)行查詢當(dāng)管理員想修改某條記錄時只要雙擊修改記錄安扭控件中修改要修改的記錄就會自動彈出詳細(xì)信息窗體該窗體已經(jīng)顯示了你要得信息你就可以對其該條記錄進(jìn)行修改了也可以直接在TEXT文本框進(jìn)行數(shù)據(jù)修改修改后按ENTER鍵即可完成修改并保存在數(shù)據(jù)庫worker表中代碼見光盤code目錄下 workertxt7 讀者信息這一功能應(yīng)用在xpcmdbutton15控件上DataGrid1控件顯示職工信息如讀者的姓名編號地址電話號碼等任何人可以查閱直接添加信息數(shù)據(jù)出于reader 表中代碼如下Private Sub xpcmdbutton15_Click open_connection readertablename readerSet DataGrid1DataSource rstEnd Sub窗體圖8 使用幫助 該窗體顯示幫助信息窗體圖9． 帳號管理 帳戶管理即可以添加權(quán)限帳戶又可以對權(quán)限帳戶進(jìn)行修改或者刪除這里用戶權(quán)限級別分4種關(guān)鍵字1 2 3 4 1代表數(shù)據(jù)瀏覽者2借書管理員3還書管理員4系統(tǒng)管理員修改后數(shù)據(jù)將保存在user_table表中代碼見code目錄下usertxt 10友情提示窗體中Text1顯示所有錯誤信息窗體圖說明Text1 屬性 borderstyle為0None backclor屬性跟窗體顏色一樣 H00C0FFFF 所以上面圖片不見Text112關(guān)于軟件 顯示軟件學(xué)校編制人指導(dǎo)老師等信息窗體圖說明運行系統(tǒng)信息將會打開電腦的詳細(xì)信息如圖11．其他功能設(shè)計無標(biāo)題窗體移動新件一個控件定義為xp_canvas添加一個圖片項然后在控件代碼視圖添加代碼代碼如下見光盤code目錄下xp_canvastxt4應(yīng)用到所需的窗體中最大化最小化按鈕5我的建議是加載控件上一條 下一條按鈕 顯示功能代碼Private Sub Command_Click 上一記錄If rstBOF ThenfrmMsgShowfrmMsginfoVisible TruefrmMsgText1Text 已經(jīng)到達(dá)記錄頂端Exit SubElserstMovePreviousEnd IfEnd SubPrivate Sub Command_Click 下一記錄If rstEOF Then frmMsgShowfrmMsginfoVisible TruefrmMsgText1Text 已經(jīng)到達(dá)記錄底端 Exit Sub ElserstMoveNextEnd IfEnd Sub來者信息也添加一個Label在form也增加一行代碼代碼LabelCaption frmLoginText1Text顯示時間1先在被動窗體添加一個 Timer Labe控件2在Timer添加代碼LabelCaption Now3在窗體代碼 form 項 增加一行代碼Timer1Interval 1000 五軟件測試分析報告一 軟件信息軟件名稱 計算機圖書管理系統(tǒng)v2010 語言類型 簡體中文 授權(quán)類型 測試版 Windows 98NTMe2000XP cpuIntel Pentium以上 內(nèi)存64M硬盤或以上100M空閑空間硬件環(huán)境服務(wù)器PII266 64M 2G以上客戶機PII133 16M 網(wǎng)卡等網(wǎng)絡(luò)帶寬10M以上服務(wù)器端NT6以上IIS60以上客戶端 IE60以上 軟件大小 233 MB 建議空間10MB以上不包括數(shù)據(jù)庫 指導(dǎo)老師 張曉玲 軟件作者 胡廷國 班主任 劉紅 聯(lián)系信箱 hutingguo51126 開發(fā)日期 2010年10月2010年11月 六 結(jié)束語經(jīng)過一個月的設(shè)計和開發(fā)計算機圖書館管理系統(tǒng)基本開發(fā)完畢其功能基本符合需求能夠完成書籍錄入借閱查詢統(tǒng)計用戶管理并提供部分系統(tǒng)維護(hù)功能使管理員能夠方便進(jìn)行數(shù)據(jù)添加和修改數(shù)據(jù)刪除等功能 但是由于畢業(yè)設(shè)計時間較短所以該系統(tǒng)還有許多不盡如人意的地方比如聯(lián)機文檔比較少用戶界面不夠美觀出錯處理不夠等多方面問題這些都有待進(jìn)一步改善參考文獻(xiàn)《Visual Basic 60 使用指南》 作者BobReselman 等 出版社電子工業(yè)出版社 《中文版Microsoft Office 2003自學(xué)通》作者Ned Snel編著 出版社機械工業(yè)出版社 《Visual Basic 60 中文版控件大全》作者M(jìn)icrosoft 編著 出版社電子工業(yè)出版社《Visual Basic 60 完全自學(xué)手冊》 作者仲維俊 編著 機械工業(yè)出版社出版《Visual BasicAccess數(shù)據(jù)庫開發(fā)與實例》作者 劉文濤 編著 出版社清華大學(xué)出版社 《SQL Server 2003 應(yīng)用與開發(fā)范例寶典》作者明日科技 編著 出版社人民郵電出版社《數(shù)據(jù)庫系統(tǒng)概念 原書第5版》 作者西爾伯沙茨 等著 出版社機械工業(yè)出版社另外參考 百度知道 洪恩教育 中國VB eNet學(xué)院 網(wǎng)易學(xué)院 網(wǎng)站致 謝在本論文的選題學(xué)習(xí)和撰寫工作中我衷心感謝我的導(dǎo)師劉勃家老師幾個月以來對我的督促和指導(dǎo)他認(rèn)真的態(tài)度一直鼓勵我用心鉆研所選擇的課題資料是我能順利暗示的完成畢業(yè)論文 同時也非常感謝應(yīng)用信息技術(shù)系的各位老師長期以來的關(guān)心和指導(dǎo)老師們一直無微不至的關(guān)懷給予了我物質(zhì)和精神上的支持再次對老師們的付出表示衷心的謝意我會在以后的工作崗位用心把握每一次機會用心學(xué)習(xí)提高自己的各方面的知識 最后在百忙之中對論文進(jìn)行評審工作的老師們表示誠摯的謝意各位老師你們辛苦了2運行環(huán)境