【正文】 gShow 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 Me End Sub Private Sub Form_Load Dim sql1 sql2 As String sql1 select from book sql2 select from worker Set rst New ADODBRecordset Set rst1 New ADODBRecordset Call connect_db rstOpen sql2 con adOpenDynamic adLockOptimistic rst1Open sql1 con adOpenDynamic adLockOptimistic End Sub Private Sub Image1_Click End Sub Private Sub xptopbuttons1_Click Unload Me End Sub Private Sub xptopbuttons2_Click MeWindowState 1 End Sub 4 圖書查詢 點擊 xpcmdbutton5 控件按紐數(shù)據(jù)控件將顯示 當(dāng)前 表 BOOK 信息如管理員圖書編碼圖書名稱作者出版社等一目了然無權(quán)限 程序代碼 Private Sub xpcmdbutton5_Click open_connection book tablename record Set DataGrid1DataSource rst End 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 worker Set DataGrid1DataSource rst End 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 目錄下 workertxt 7 讀者信息 這一功能應(yīng)用在 xpcmdbutton15控件上 DataGrid1控件顯示職工信息如讀者的姓名編號地址電話號碼等 任何人可以查閱直接添加信息數(shù)據(jù)出于 reader 表中 代碼如下 Private Sub xpcmdbutton15_Click open_connection reader tablename reader Set DataGrid1DataSource rst End 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 所以上面圖片不見 Text1 12 關(guān)于軟件 顯示軟件學(xué)校編制人指導(dǎo)老師等信息 窗體圖 說明運行系統(tǒng)信息將會打開電腦的詳細(xì)信息 如圖 11．其他功能設(shè)計 無標(biāo)題窗體移動 新件一個控件定義為 xp_canvas 添加一個圖片項 然后在 控件代碼視圖添加代碼 代碼如下見光盤 code 目錄下 xp_canvastxt 4 應(yīng)用到所需的窗體中 最大化最小化按鈕 5 我的建議是加載控件 上一條 下一條按鈕 顯示功能代碼 Private Sub Command_Click 上一記錄 If rstBOF Then frmMsgShow frmMsginfoVisible True frmMsgText1Text 已經(jīng)到達(dá)記錄頂端 Exit Sub Else rstMovePrevious End If End Sub Private Sub Command_Click 下一記錄 If rstEOF Then frmMsgShow frmMsginfoVisible True frmMsgText1Text 已經(jīng)到達(dá)記錄底端 Exit Sub Else rstMoveNext End If End Sub 來者信息 也添加一個 Label 在 form 也增加一行代碼 代碼 LabelCaption frmLoginText1Text 顯示時間 1 先在被動窗體添加一個 Timer Labe 控件 2 在 Timer 添加代碼 LabelCaption Now 3 在窗體代碼 form 項 增加一行代碼 Timer1Interval 1000 五軟件測試分析報告 一 軟件信息 軟件名稱 計算機(jī)圖書管理系統(tǒng) v2021 語言類型 簡體中文 授權(quán)類型 測試版 Windows 98NTMe2021XP cpuIntel Pentium以上 內(nèi)存 64M硬盤或以上 100M 空閑空間硬件環(huán)境服務(wù)器 PII266 64M 2G 以上 客戶機(jī) PII133 16M 網(wǎng)卡等 網(wǎng)絡(luò)帶寬 10M 以上 服務(wù)器端 NT6 以上 IIS60 以上 客戶端 IE60 以上 軟件大小 233 MB 建議空間 10MB 以上不包括數(shù)據(jù)庫 指導(dǎo)老師 張曉玲 軟件作者 胡廷國 班主任 劉紅 聯(lián)系信箱 hutingguo51126 開發(fā)日期 2021 年 10 月 2021 年 11 月 六 結(jié)束語 經(jīng)過一個月的設(shè)計和開發(fā)計算機(jī)圖書館管理系統(tǒng)基本開發(fā)完畢其功能基本符合需求能夠完成書籍錄入借閱查詢統(tǒng)計用戶管理并提供部分系統(tǒng)維護(hù)功能使管理員能夠方便進(jìn)行數(shù)據(jù)添加和修改數(shù)據(jù)刪除等功能 但是由于畢業(yè)設(shè)計時間較短所以該系統(tǒng)還有 許多不盡如人意的地方比如聯(lián)機(jī)文檔比較少用戶界面不夠美觀出錯處理不夠等多方面問題這些都有待進(jìn)一步改善 參考文獻(xiàn) 《 Visual Basic 60 使用指南》 作者 BobReselman 等 出版社電子工業(yè)出版社 《中文版 Microsoft Office 2021 自學(xué)通》作者 Ned Snel 編著 出版社機(jī)械工業(yè)出版社 《 Visual Basic 60 中文版控件大全》作者 Microsoft 編著 出版社電子工業(yè)出版社 《 Visual Basic 60 完全自學(xué)手冊》 作者仲維俊 編著 機(jī)械工業(yè)出版社出版 《 Visual BasicAccess 數(shù)據(jù)庫開發(fā)與實例》作者 劉文濤 編著 出版社清華大學(xué)出版社 《 SQL Server 2021 應(yīng)用與開發(fā)范例寶典》作者明日科技 編著 出版社人民郵電出版社 《數(shù)據(jù)庫系統(tǒng)概念 原書第 5 版》 作者西爾伯沙茨 等著 出版社機(jī)械工業(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ì)和精神上的支持再次對老師們的付出表示衷心的謝意我會在以后的工作崗位用心把握每一次機(jī)會用心學(xué)習(xí)提高自己的各方面的知識 最后在百忙之中對論文進(jìn)行評審工作的老師們表示誠摯的謝意各位老師你們辛苦了 2 運行環(huán)境 。