【正文】 錄入類別信息。（3）、完成圖書信息的添加、保存、小狗與刪除。（4）、使用ADOshuju控件瀏覽圖書信息。（5）、統(tǒng)購查詢樹狀列表中的類別信息，來瀏覽圖書信息。圖書信息管理運(yùn)行結(jié)果如圖所示、設(shè)計(jì)思路圖書目錄管理從開發(fā)過程上劃分為5部分，包括初始化過程、添加過程、修改過程和刪除過程。定義數(shù)據(jù)集變量：Public Sub Tree_change() 39。聲明樹狀瀏覽數(shù)據(jù)的過程 Dim key, text As String select * from tslbb order by 類別編號, Cnn, adOpenKeyset, adLockOptimistic If 0 Then With rs1 .MoveFirst Do While .EOF = False If Len(.Fields(類別編號)) = 2 Then key = Trim(.Fields(類別名稱)) text = ( amp。 Trim(.Fields(類別編號)) amp。 ) amp。 Trim(.Fields(類別名稱)) Set Node1 = (, , key, text, Val(.Fields(級別))) End If If Len(.Fields(類別編號)) = 5 Then key = Trim(.Fields(類別名稱)) text = ( amp。 Trim(.Fields(類別編號)) amp。 ) amp。 Trim(.Fields(類別名稱))39。39。 Set Node2 = (, tvwChild, key, text, Val(.Fields(級別))) End If If Len(.Fields(類別編號)) = 9 Then key = Trim(.Fields(類別名稱)) text = ( amp。 Trim(.Fields(類別編號)) amp。 ) amp。 Trim(.Fields(類別名稱))39。39。 Set Node3 = (, tvwChild, key, text, Val(.Fields(級別))) End If If Len(.Fields(類別編號)) = 14 Then key = Trim(.Fields(類別名稱)) text = ( amp。 Trim(.Fields(類別編號)) amp。 ) amp。 Trim(.Fields(類別名稱))39。39。 Set Node4 = (, tvwChild, key, text, Val(.Fields(級別))) End If If Len(.Fields(類別編號)) = 20 Then key = Trim(.Fields(類別名稱)) text = ( amp。 Trim(.Fields(類別編號)) amp。 ) amp。 Trim(.Fields(類別名稱)) Set Node5 = (, tvwChild, key, text, Val(.Fields(級別))) End If .MoveNext Loop End With End If End Sub初始化界面。Private Sub Form_Load() Tree_change 39。調(diào)用瀏覽數(shù)據(jù)的過程 39。設(shè)置Text1控件數(shù)組無效 For i = 1 To 10 Text1(i).Enabled = False Next i = FalseEnd Sub用戶數(shù)據(jù)錄入過程：Private Sub Text1_KeyDown(Index As Integer, KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyReturn And Index 8 Then Text1(Index + 1).SetFocus 39?；剀囀箍丶@得焦點(diǎn) If KeyCode = vbKeyReturn And Index = 8 Then Text1(10).SetFocus 39?；剀囀箍丶@得焦點(diǎn) If KeyCode = vbKeyReturn And Index = 10 Then If KeyCode = vbKeyUp And Index 1 Then Text1(Index 1).SetFocus 39。按向上鍵使控件獲得焦點(diǎn)End SubPrivate Sub TreeView1_NodeClick(ByVal Node As ) If = False Then Text1(9).text = 39。賦值給Text1(9) Else 39。按列表中的類別查詢記錄，并按序號排序 = select * from book where 類別=39。 + + 39。order by 序號 End IfEnd Sub用戶單擊[保存]后Private Sub CmdSave_Click() 39。判斷是否有空項(xiàng) If Text1(2).text = Then MsgBox 【書號】不允許為空！ Exit Sub End If If Text1(3).text = Then MsgBox 【書名】不允許為空！ Exit Sub End If If Text1(4).text = Then MsgBox 【作者】不允許為空！ Exit Sub End If If Text1(5).text = Then MsgBox 【出版社】不允許為空！ Exit Sub End If If Text1(6).text = Then MsgBox 【定價(jià)】不允許為空！ Exit Sub End If If Text1(7).text = Then MsgBox 【出版年月】不允許為空！ Exit Sub End If If Text1(8).text = Then MsgBox 【冊/包】不允許為空！ Exit Sub End If If Text1(9).text = Then MsgBox 請?jiān)谧筮叺牧斜碇羞x擇【類別】！ Exit Sub End If 39。更新記錄 39。設(shè)置控件不可用 For i = 1 To 10 Text1(i).Enabled = False Next i = False = True = True = TrueEnd Sub、圖書存放位置窗體設(shè)計(jì)【圖書存放位置】：單擊【添加】按鈕，系統(tǒng)自動生成3位數(shù)的位置編號，用戶在存放位置文本框中錄入圖書存放位置信息。單擊【保存】按鈕，保存圖書存放位置設(shè)置。單擊【取消】按鈕，取消本次添加操作。單擊下表中圖書存放位置信息單元格，單擊【刪除】按鈕，完成刪除當(dāng)前圖書類別信息的操作(當(dāng)前信息即表格指針?biāo)付ǖ挠涗浶畔?。單擊【退出】按鈕，關(guān)閉該界面，返回到系統(tǒng)主菜單、設(shè)計(jì)目標(biāo)（1）、自動生成3位數(shù)字圖書存放位置編號。（2）、完成圖書存放位置信息的添加、保存、修改、刪除。（3）、瀏覽圖書存放位置信息。圖書存放位置運(yùn)行結(jié)果如下圖所示、設(shè)計(jì)思路圖書存放位置模塊主要完成圖書存放位之欣喜的添加、保存于刪除，并可以表格形式瀏覽圖書存放位置信息。圖書存放位置模塊開發(fā)有4個(gè)過程。定義數(shù)據(jù)集變量對象。Dim rs1 As New 39。聲明數(shù)據(jù)集對象在錄入過程中，設(shè)置text1控件，text2控件在獲得焦點(diǎn)時(shí)的背景色。Private Sub Text1_GotFocus() 39。獲得焦點(diǎn)時(shí)，Text1顏色變化 = amp。HFFFF00End SubPrivate Sub Text1_LostFocus() 39。失去焦點(diǎn)時(shí)，Text1顏色變化 = amp。HFFFFFFEnd SubPrivate Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyReturn Then End SubPrivate Sub Text2_GotFocus() = amp。HFFFF00End SubPrivate Sub Text2_LostFocus() = amp。HFFFFFFEnd Sub、讀者類別管理窗體設(shè)計(jì)【讀者類別管理】：單擊【添加】按鈕，用戶需在類別名稱下拉列表框中選擇圖書類別，并設(shè)置收費(fèi)標(biāo)準(zhǔn)，即每年所付費(fèi)用。在期限下拉列表框中設(shè)置類別期限，同時(shí)可為讀者類別錄入備注信息。單擊【保存】按鈕，保存讀者類別信息的設(shè)置。單擊【取消】按鈕，取消本次添加操作。單擊下表中的單元格所對應(yīng)的讀者類別信息，單擊【刪除】按鈕，完成刪除當(dāng)前指針?biāo)付ǖ淖x者類別信息操作。、實(shí)現(xiàn)目標(biāo)（1）、通過列表選擇讀者類別和借書期限。（2）、完成讀者類別信息的添加、保存、刪除及瀏覽讀者類別管理運(yùn)行結(jié)果如下圖所示、設(shè)計(jì)思路讀者類別管理從開發(fā)過程上劃分為5部分，主要包括添加過程、錄入過程、保存過程、消費(fèi)過程、刪除過程。在錄入過程中，需要錄入數(shù)據(jù)的控件獲得焦點(diǎn)。Dim rs1 As New 39。聲明數(shù)據(jù)集對象Private Sub Combo1_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyReturn Then 39。Text1獲得焦點(diǎn)End SubPrivate Sub St1_PanelClick(ByVal Panel As )(1).text = Format(Date, long date) amp。 amp。 TimeEnd SubPrivate Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyReturn Then 39。Combo2獲得焦點(diǎn)End SubPrivate Sub Combo2_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyReturn Then 39。Text2獲得焦點(diǎn)End Sub當(dāng)單擊保存按鈕后Private Sub CmdSave_Click() 39。保存讀者類別信息 39。判斷讀者類別信息是否存在 select * from dzlbb where 類別名稱 =39。 amp。 Trim() amp。 39。, Cnn, adOpenKeyset, adLockOptimistic If 0 Then MsgBox 此類別已經(jīng)存在！ Else If = Then MsgBox (請輸入類別名稱！) Exit Sub End If If = Then MsgBox (請輸入收費(fèi)標(biāo)準(zhǔn)！) Exit Sub End If If = Then MsgBox (請輸入期限！) Exit Sub End If 39。添加讀者類別信息 (類別名稱) = (收費(fèi)標(biāo)準(zhǔn)) = Val() (期限) = (備注) = 39。更新數(shù)據(jù)庫 39。清空文本框中的數(shù)據(jù) = = = = 39。設(shè)置控件有效或無效 = False = False = False = False = False = False = True = True End If 、讀者信息管理窗體設(shè)計(jì)【讀者信息管理】：單擊【添加】按鈕，用戶需按界面提示完成讀者信息管理的錄入、實(shí)現(xiàn)目標(biāo)（1）、程序自動按順序生成6位書證號。（2）、列表選擇讀者性別、讀者類別，并自動顯示辦證價(jià)格和借書期限。（3）、默認(rèn)辦證日期為系統(tǒng)日期。（4）、玩車國內(nèi)讀者信息的添加、保存、修改和刪除。（5）、按任意字段查詢讀者的基本信息。讀者信息管理運(yùn)行結(jié)果如下圖所示。、設(shè)計(jì)思路讀者信息管理主要完成讀者信息的添加、保存、修改、刪除與查詢，并以卡片式和表格式兩種凡是瀏覽讀者信息。程序代碼設(shè)計(jì)如下聲明變量和數(shù)據(jù)集對象。Dim i, a, Mat