【正文】 最后，在百忙之中對(duì)論文進(jìn)行評(píng)審工作的老師們表示誠(chéng)摯的謝意，各位老師你們辛苦了。這些都有待進(jìn)一步改善。下一記錄 If Then = True = 已經(jīng)到達(dá)記錄底端 ! Exit Sub Else End If End Sub 來(lái)者信息 1. 也添加一個(gè) Label 2. 在 form也 增加一行代碼 代碼： Label*.Caption = 顯示時(shí)間 Timer 、 Labe、控件 Timer添加代碼 Label*.Caption = Now 3，在窗體代碼 form 項(xiàng) 增加一行代碼 = 1000 41 五、軟件測(cè)試分析報(bào)告 （一） 軟件信息 六 軟件名稱： 計(jì)算機(jī)圖書管理系統(tǒng) v2021 語(yǔ)言類型： 簡(jiǎn)體中文 授權(quán)類型： 測(cè)試版 Windows 98/NT/Me/2021/XP cpu： Intel Pentium 以上 內(nèi)存： 64M 硬盤或以上： 100M空閑空間 硬件環(huán)境：服務(wù)器： PII266 64M 2G以上 客戶機(jī)： PII133 16M 網(wǎng)卡等 網(wǎng)絡(luò)帶寬： 10M以上 服務(wù)器端： NT6以上， IIS60以上 客戶端： 軟件大?。? MB （建議空間： 10MB以上，不包括數(shù)據(jù)庫(kù)） 指導(dǎo)老師： 張曉玲 軟件作者： 胡廷國(guó) 班主任： 劉紅 聯(lián)系信箱： 開發(fā)日期： 2021年 10月 2021年 11月 運(yùn)行環(huán)境 42 結(jié)束語(yǔ) 經(jīng)過一個(gè)月的設(shè)計(jì)和開發(fā)，計(jì)算機(jī)圖書館管理系統(tǒng)基本開發(fā)完畢。 修改后，數(shù)據(jù)將保存在“ user_table’ 表中 代碼見 code目錄下 : 窗體中 Text1顯示所有錯(cuò)誤信息 . 窗體圖： 說(shuō)明； Text1 屬性 borderstyle為 0None backclor屬性跟窗體顏色一樣 amp。 也可以直接在 TEXT文本框進(jìn)行數(shù)據(jù)修改，修改后，按 ENTER鍵即可完成修改，并保存在數(shù)據(jù)庫(kù) ” worker” 表中。 代碼見光盤 code目錄下 : 窗體圖： 5. 職工查詢 這一功能應(yīng)用在“ xpcmdbutton7”控件上， DataGrid1控件顯示 職工信息，如職工的工號(hào)，姓名，地址等，讀者沒有查詢權(quán)限?？晒┯脩粼黾印⑿薷?、刪除、顯示上一記錄、下一記錄等功能。 Trim() amp。 Trim() amp。 39。代碼見 code目錄下 : Option Explicit Private Sub Command1_Click() 31 Dim sql1, sql2 As String Dim num As Integer 39。工號(hào)及書號(hào)檢測(cè) 39。退出系統(tǒng) End End Sub Private Sub xptopbuttons1_Click() End End Sub Private Sub xptopbuttons2_Click(Index As Integer) = 1 End Sub 如果用戶名錯(cuò)誤或者密碼錯(cuò)誤 ” 友情提示 ” 窗體就會(huì)響應(yīng)，傳送信息給用戶 提示 1 提示 2 26 該窗體主要完成讀者借閱功能，也是最重要的一項(xiàng)功能，讀者借閱圖書與職工人員，管理人員才能完成借閱功能，借閱后系統(tǒng)信息將保存，以便管理員能核對(duì)一下，以免出錯(cuò)，假如你已經(jīng)超過最大的借閱量，系統(tǒng)還會(huì)自動(dòng)提醒管理員該讀者已經(jīng)不能繼續(xù)借書了。 39。如果文本框?yàn)榭?，則給出提示 = True = 請(qǐng)輸入用戶登錄賬號(hào) ! Exit Sub Else sql = select * from user_table where [登錄名 ]=39。連接 record表 = 書號(hào) = 工號(hào) tablename = record Set = rst End Select End Sub Private Sub Timer1_Timer() = Now End Sub Private Sub xpcmdbutton1_Click() End Sub Private Sub xpcmdbutton12_Click() End Sub Private Sub xpcmdbutton13_Click() 22 End Sub Private Sub xpcmdbutton14_Click() Unload Me End Sub Private Sub xpcmdbutton15_Click() open_connection reader tablename = reader Set = rst End Sub Private Sub xpcmdbutton2_Click() End Sub Private Sub xpcmdbutton3_Click() End Sub Private Sub xpcmdbutton4_Click() End Sub Private Sub xpcmdbutton5_Click() open_connection (book) tablename = record Set = rst End Sub Private Sub xpcmdbutton6_Click() open_connection (record) tablename = record Set = rst End Sub Private Sub xpcmdbutton7_Click() 23 open_connection (worker) tablename = worker Set = rst End Sub Private Sub xpcmdbutton8_Click() End Sub Private Sub xpmin_Click() = 1 End Sub Private Sub xpclose_Click() Unload Me End Sub Private Sub xptopbuttons1_Click() Unload Me End Sub Private Sub xptopbuttons2_Click() = 1 End Sub 1. 用戶登陸 該窗體主要完成用戶管理登陸功能，也是進(jìn)入系統(tǒng)的一 個(gè)重要的門檻，該門檻是有權(quán)限限制，根據(jù)不同的用戶帳號(hào)，功能也截然不同，這就是本系統(tǒng)的一個(gè)關(guān)鍵點(diǎn)。選擇查詢的字段 Select Case Case 圖書信息瀏覽 : sfield = [作者 ] End Select End Sub Private Sub Text2_Change() = Time End Sub Private Sub TabStrip1_Click() Call connect_db Select Case Case 圖書信息瀏覽 : open_connection (book) 39。連接 worker表 tablename = worker open_connection (record) 39。連接 record表 tablename = record Set = rst End Sub Private Sub Command4_Click() Dim ret As Integer If = 查 詢 Then = 確 定 17 Else If = False And = False And = False And = False Then = True = 請(qǐng)選擇查詢項(xiàng) ! Exit Sub End If If = Then = True = 請(qǐng)輸入查詢內(nèi)容！ Exit Sub End If seachtext = Trim() ret = open_seach(tablename, sfield, seachtext) If ret = 0 Then = True = 對(duì)不起，沒有你要的記錄 ! = False = False = Set rst = Nothing Set = rst = False 39。后一記錄 If = True Then = True = 已經(jīng)到達(dá)最后一條記錄了！ Exit Sub Else End If End Sub Private Sub DataGrid2_Click() Call connect_db open_connection (book) 39。 End If str, con, adOpenDynamic, adLockOptimistic If 0 Then open_seach = 1 39。 Trim( % amp。 where amp。 seachtext amp。 where amp。 %) amp。 like 39。 Else str = select * from amp。 =39。 查詢辦法選擇 If = True Then str = select * from amp。按書名查詢則采用模糊查詢辦法 Function open_seach(table_name As String, sfield As String, seachtext As String) As Integer Dim sqlstr As String Dim str As String 39。定義查詢的字段窗體變量 Dim sfield As String 39。所有系統(tǒng)用戶擁有相似的主界面。開發(fā)會(huì)遇到什么問題，怎樣去解決 . 2. 繪圖 即將遐想的，用圖象勾畫