【文章內(nèi)容簡(jiǎn)介】 oad main_xtgl_qxgl = FalseEnd SubPrivate Sub xtcsh_Click() 39。加載系統(tǒng)初始化窗體 Load main_xtwh_xtcsh = FalseEnd SubPrivate Sub sjbf_Click() 39。加載數(shù)據(jù)備份窗體 Load main_xtwh_sjbf = FalseEnd SubPrivate Sub sjhf_Click() 39。加載數(shù)據(jù)恢復(fù)窗體 Load main_xtwh_sjhf = FalseEnd SubPrivate Sub help_Click() 39。加載幫助窗體 Load main_help = FalseEnd SubPrivate Sub about_Click() 39。加載關(guān)于窗體 Load main_About = FalseEnd SubPrivate Sub Toolbar1_ButtonClick(ByVal Button As ) Select Case Case Is = tslb tslb_Click 39。加載圖書類別設(shè)置窗體 Case Is = mlgl tsmlgl_Click Case Is = tsrk xztsrk_Click 39。加載圖書入庫(kù)窗體 Case Is = tsjy js_Click 39。加載借書窗體 Case Is = tsgh hs_Click 39。加載還書窗體 Case Is = kccx kccx_Click 39。加載庫(kù)存查詢窗體 Case Is = qxgl qxsz_Click 39。加載權(quán)限管理窗體 Case Is = help help_Click 39。加載幫助窗體 Case Is = about about_Click Case Is = end End End SelectEnd SubPrivate Sub exit_Click() EndEnd Sub、系統(tǒng)登錄窗體設(shè)計(jì)、實(shí)現(xiàn)目標(biāo)（1）、以形象地圖標(biāo)顯示草原元，通過(guò)輸入正確的用戶口令進(jìn)入圖書信息管理系統(tǒng)。（2）、操作員錯(cuò)誤后密碼錯(cuò)誤提醒并返回錯(cuò)誤點(diǎn)，3次口令錯(cuò)誤，退出系統(tǒng)。（3）、用不同的圖標(biāo)代表不同級(jí)別的操作員。（4）、以系統(tǒng)管理員級(jí)別登錄的用戶可以擁有訪問(wèn)圖書信息管理系統(tǒng)的最大權(quán)限。系統(tǒng)運(yùn)行結(jié)果如下圖所示、設(shè)計(jì)思路系統(tǒng)登錄窗體主要對(duì)進(jìn)入系統(tǒng)地用戶進(jìn)行安全性檢查，防止非法用戶進(jìn)入系統(tǒng)。只有合法的用戶在輸入正確的操作員和密碼后，才可以進(jìn)入，下面是系統(tǒng)登錄船體開(kāi)發(fā)中的3個(gè)過(guò)程。初始化過(guò)程添加操作員列表。操作員由listview控件以大圖標(biāo)的形式顯示。完成此列表主要運(yùn)用循環(huán)語(yǔ)句和listitems稽核中的add方法實(shí)現(xiàn)的。其代碼如下39。添加操作員 = select * from qxb If 0 Then With .MoveFirst = .Fields(操作員) = .Fields(編號(hào)) = .Fields(操作員級(jí)別) Do While .EOF = False text = .Fields(操作員) MyIcon = Val(Right(.Fields(頭像), Val(Len(.Fields(頭像)) 2))) Set itmX = (, , text, MyIcon) .MoveNext Loop End With End IfEnd Sub錄入過(guò)程根據(jù)用戶選擇的操作員，查詢并顯示此操作員相關(guān)的信息。代碼如下：If 0 Then 39。查詢操作員信息 = select * from qxb where 操作員=39。 + + 39。 With If .RecordCount 0 Then 39。 = .Fields(操作員) = .Fields(編號(hào)) If .Fields(操作員級(jí)別) Then = .Fields(操作員級(jí)別) End If End With End IfEnd Sub確認(rèn)過(guò)程（1）賦予操作員權(quán)限按用戶選定的操作員查詢。若記錄大于零，將權(quán)限表[qxb]中字段值賦給對(duì)應(yīng)的菜單項(xiàng)（2）、驗(yàn)證操作員及其密碼如上面的情況，加入用戶輸入的密碼等于密碼字段的值，那么運(yùn)用load的語(yǔ)句載入主程序：否則，記錄用戶輸入的錯(cuò)誤密碼的次數(shù)，到第三次時(shí)，提示用戶并自動(dòng)退出系統(tǒng)。代碼如下：Private Sub cmdOK_Click() = select * from qxb where 操作員 = 39。 + Trim() + 39。 If 0 Then With = .Fields(基礎(chǔ)信息管理) (1).Enabled = .Fields(基礎(chǔ)信息管理) = .Fields(圖書管理) (5).Enabled = .Fields(圖書管理) (11).Enabled = .Fields(圖書管理) = .Fields(借閱管理) (7).Enabled = .Fields(借閱管理) (9).Enabled = .Fields(借閱管理) = .Fields(決策分析) = .Fields(系統(tǒng)維護(hù)) = .Fields(系統(tǒng)管理) (13).Enabled = .Fields(系統(tǒng)管理) End With 39。驗(yàn)證操作員及密碼 If = (密碼) Then Load frm_main (3).text = Unload Me Else If = Then MsgBox (請(qǐng)選擇操作員！) Else If (密碼) Then MsgBox (密碼錯(cuò)誤,請(qǐng)重新輸入密碼！) = Val() + 1 End If End If If = 3 Then 39。密碼錯(cuò)誤3次，退出系統(tǒng) MyMsg = MsgBox(密碼輸入錯(cuò)誤,請(qǐng)向系統(tǒng)管理員查詢！, , ) If MyMsg = vbOK Then End End If End If End IfEnd Sub第四章、基礎(chǔ)信息管理模塊設(shè)計(jì)基礎(chǔ)信息管理模塊式圖書信息管理系統(tǒng)的基礎(chǔ)模塊，其設(shè)置是否合理將影響整個(gè)系統(tǒng)的運(yùn)行效果，如果基礎(chǔ)細(xì)細(xì)設(shè)置得合理，會(huì)使該項(xiàng)目的實(shí)施事半功倍。同時(shí)，基礎(chǔ)信息管理也是企業(yè)管理如見(jiàn)罪基礎(chǔ)、最重要的數(shù)據(jù)處理功能之一，主要完成數(shù)據(jù)的新增、修改和刪除工作。、圖書類別窗體的功能及設(shè)計(jì)【圖書類別管理】：?jiǎn)螕簟咎砑印堪粹o，系統(tǒng)自動(dòng)生成3位數(shù)的類別編號(hào)，用戶在類別名稱文本框中錄入類別信息。單擊【保存】按鈕，保存類別信息設(shè)置。單擊【取消】按鈕，取消本次添加操作。單擊下表中的單元格所對(duì)應(yīng)的圖書類別信息，單擊【刪除】按鈕，完成刪除圖書類別信息的操作。 、實(shí)現(xiàn)目標(biāo)（1）、自動(dòng)生成本級(jí)編號(hào)、類別編號(hào)。（2）、完成圖書類別信息的添加、保存、刪除；（3）以樹(shù)狀形式瀏覽圖書類別信息。圖書類別管理窗體運(yùn)行結(jié)果如下；、設(shè)計(jì)思路圖書類別管理模塊主要完成圖書類別信息的添加、保存、刪除與查詢，并以卡片式和樹(shù)狀結(jié)構(gòu)的形式瀏覽圖書類別信息。下面是圖書類別管理模塊開(kāi)發(fā)的主要過(guò)程。聲明變量過(guò)程Dim i As Integer 39。定義整型變量Dim rs1 As New 39。定義數(shù)據(jù)集對(duì)象聲明Tree_change過(guò)程，用于以樹(shù)狀形式顯示圖書類別信息。Public Sub Tree_change() 39。聲明一個(gè)樹(shù)狀顯示數(shù)據(jù)的過(guò)程 Dim key, text As String select * from tslbb order by 類別編號(hào), Cnn, adOpenKeyset, adLockOptimistic If 0 Then With rs1 .MoveFirst Do While .EOF = False If Len(.Fields(類別編號(hào))) = 2 Then key = Trim(.Fields(類別名稱)) text = ( amp。 Trim(.Fields(類別編號(hào))) amp。 ) amp。 Trim(.Fields(類別名稱)) Set Node1 = (, , key, text, Val(.Fields(級(jí)別))) End If If Len(.Fields(類別編號(hào))) = 5 Then key = Trim(.Fields(類別名稱)) text = ( amp。 Trim(.Fields(類別編號(hào))) amp。 ) amp。 Trim(.Fields(類別名稱)) 39。39。Set Node2 = (, tvwChild, key, text, Val(.Fields(級(jí)別))) End If If Len(.Fields(類別編號(hào))) = 9 Then key = Trim(.Fields(類別名稱)) text = ( amp。 Trim(.Fields(類別編號(hào))) amp。 ) amp。 Trim(.Fields(類別名稱)) 39。39。Set Node3 = (, tvwChild, key, text, Val(.Fields(級(jí)別))) End If If Len(.Fields(類別編號(hào))) = 14 Then key = Trim(.Fields(類別名稱)) text = ( amp。 Trim(.Fields(類別編號(hào))) amp。 ) amp。 Trim(.Fields(類別名稱))39。39。 Set Node4 = (, tvwChild, key, text, Val(.Fields(級(jí)別))) End If If Len(.Fields(類別編號(hào))) = 20 Then key = Trim(.Fields(類別名稱)) text = ( amp。 Trim(.Fields(類別編號(hào))) amp。 ) amp。 Trim(.Fields(類別名稱)) Set Node5 = (, tvwChild, key, text, Val(.Fields(級(jí)別))) End If .MoveNext Loop End With End If End Sub窗體啟動(dòng)時(shí)，初始化窗體控件Private Sub Form_Activate() 39。添加級(jí)別列表 For i = 1 To 5 (i) amp。 級(jí) Next i = 0 39。打開(kāi)表 select * from tslbb order by 類別編號(hào), Cnn, adOpenKeyset, adLockOptimistic If 0 Then For i = 1 To 3 If (i) Then Text1(i).text = (i) 39。將字段值賦給Text1控件數(shù)組 Text1(i).Enabled = False Next i = (級(jí)別) End If 39。關(guān)閉表 Call Tree_change 39。調(diào)用顯示數(shù)據(jù)過(guò)程 = False = FalseEnd SubPrivate Sub Form_Unloa