【正文】 eyReturn And Index 3 Then Text1(Index + 1).SetFocus If KeyCode = vbKeyReturn And Index = 3 Then 39。關(guān)閉表 Call Tree_change 39。打開表 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。添加級(jí)別列表 For i = 1 To 5 (i) amp。 ) amp。 Set Node4 = (, tvwChild, key, text, Val(.Fields(級(jí)別))) End If If Len(.Fields(類別編號(hào))) = 20 Then key = Trim(.Fields(類別名稱)) text = ( amp。 Trim(.Fields(類別名稱))39。 Trim(.Fields(類別編號(hào))) amp。39。 ) amp。Set Node2 = (, tvwChild, key, text, Val(.Fields(級(jí)別))) End If If Len(.Fields(類別編號(hào))) = 9 Then key = Trim(.Fields(類別名稱)) text = ( amp。 Trim(.Fields(類別名稱)) 39。 Trim(.Fields(類別編號(hào))) amp。 ) amp。聲明一個(gè)樹狀顯示數(shù)據(jù)的過程 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。定義數(shù)據(jù)集對(duì)象聲明Tree_change過程，用于以樹狀形式顯示圖書類別信息。聲明變量過程Dim i As Integer 39。圖書類別管理窗體運(yùn)行結(jié)果如下；、設(shè)計(jì)思路圖書類別管理模塊主要完成圖書類別信息的添加、保存、刪除與查詢，并以卡片式和樹狀結(jié)構(gòu)的形式瀏覽圖書類別信息。 、實(shí)現(xiàn)目標(biāo)（1）、自動(dòng)生成本級(jí)編號(hào)、類別編號(hào)。單擊【取消】按鈕，取消本次添加操作。、圖書類別窗體的功能及設(shè)計(jì)【圖書類別管理】：單擊【添加】按鈕，系統(tǒng)自動(dòng)生成3位數(shù)的類別編號(hào)，用戶在類別名稱文本框中錄入類別信息。密碼錯(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í)施事半功倍。 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。代碼如下：Private Sub cmdOK_Click() = select * from qxb where 操作員 = 39。 = .Fields(操作員) = .Fields(編號(hào)) If .Fields(操作員級(jí)別) Then = .Fields(操作員級(jí)別) End If End With End IfEnd Sub確認(rèn)過程（1）賦予操作員權(quán)限按用戶選定的操作員查詢。 + + 39。代碼如下：If 0 Then 39。其代碼如下39。操作員由listview控件以大圖標(biāo)的形式顯示。只有合法的用戶在輸入正確的操作員和密碼后，才可以進(jìn)入，下面是系統(tǒng)登錄船體開發(fā)中的3個(gè)過程。（4）、以系統(tǒng)管理員級(jí)別登錄的用戶可以擁有訪問圖書信息管理系統(tǒng)的最大權(quán)限。（2）、操作員錯(cuò)誤后密碼錯(cuò)誤提醒并返回錯(cuò)誤點(diǎn)，3次口令錯(cuò)誤，退出系統(tǒng)。加載權(quán)限管理窗體 Case Is = help help_Click 39。加載還書窗體 Case Is = kccx kccx_Click 39。加載圖書入庫窗體 Case Is = tsjy js_Click 39。加載關(guān)于窗體 Load main_About = FalseEnd SubPrivate Sub Toolbar1_ButtonClick(ByVal Button As ) Select Case Case Is = tslb tslb_Click 39。加載數(shù)據(jù)恢復(fù)窗體 Load main_xtwh_sjhf = FalseEnd SubPrivate Sub help_Click() 39。加載系統(tǒng)初始化窗體 Load main_xtwh_xtcsh = FalseEnd SubPrivate Sub sjbf_Click() 39。主程序運(yùn)行結(jié)果如下圖所示、編寫程序代碼住窗體、主程序菜單、工具欄及狀態(tài)欄創(chuàng)建完成后，還需要在代碼窗口中添加如下代碼加以實(shí)現(xiàn)。（3）、顯示當(dāng)前操作員、版權(quán)信息及系統(tǒng)日期。、實(shí)現(xiàn)目標(biāo)（1）、根據(jù)操作員全縣范圍，設(shè)置相應(yīng)菜單、工具欄是否有效。、主程序窗體設(shè)計(jì)主程序窗體設(shè)計(jì)的好壞往往會(huì)影響系統(tǒng)的整體形象，因此應(yīng)首要設(shè)計(jì)好主程序。利用VB中AOD控件為我們提供的CRe類可以很方便的對(duì)數(shù)據(jù)庫進(jìn)行訪問。銷售表的結(jié)構(gòu)如下表所示字段名數(shù)據(jù)類型字段大小是書號(hào)字符型(vchar)10是條形碼字符型(vchar)20是書名字符型(vchar)200是作者字符型(vchar)20是出版社字符型(vchar)30是圖書類別字符型(vchar)20是存放位置字符型(vchar)10是單價(jià)貨幣型(money)8是銷售數(shù)量整型(int)2是金額貨幣型(money)8是經(jīng)手人字符型(vchar)10是票號(hào)字符型(vchar)30是操作員字符型(vchar)10是日期日期型(datetime)8是 權(quán)限表（qxb）權(quán)限表用來保存用戶信息。入庫票號(hào)表的結(jié)構(gòu)如下表所示字段名數(shù)據(jù)類型字段大小是否為空票號(hào)字符型(vchar)30是入庫品種字符型(vchar)10是入庫數(shù)量整型(int)2是合計(jì)金額貨幣型(money)8是經(jīng)手人字符型(vchar)10是操作員字符型(vchar)10是日期日期型(datetime)8是 庫存表（kcb）庫存表用來保存庫存圖書信息。讀者信息表的結(jié)構(gòu)如下表所示字段名數(shù)據(jù)類型字段大小是否為空書證號(hào)字符型(vchar)20是姓名字符型(vchar)10是性別位型(bit)1是身份證字符型(vchar)25是單位字符型(vchar)30是家庭住址字符型(vchar)30是聯(lián)系電話字符型(vchar)40是讀者類別字符型(vchar)4是辦證價(jià)格貨幣型(money)8是期限字符型(vchar)6是辦證日期日期型(datetime)8是已借書數(shù)整型(int)2是相片路徑字符型(vchar)200是收費(fèi)標(biāo)準(zhǔn)貨幣型(money)8是到期日期日期型(datetime)8是 入庫表（rkb）入庫表用來保存圖書入庫信息。圖書類別表結(jié)構(gòu)如下表所示字段名數(shù)據(jù)類型字段大小是否為空級(jí)別字符型(vchar)4是本級(jí)編號(hào)字符型(vchar)50是類別編號(hào)字符型(vchar)50是類別名稱字符型(vchar)50是 圖書位置表（tswzb） 圖書位置表用來保存圖書存放位置信息。 讀者類別表（dzlbb）讀者類別表用來保存讀者類別信息。各實(shí)體的ER圖及關(guān)系描述如下圖書實(shí)體ER圖圖書存放位置實(shí)體ER圖圖書類別本級(jí)編號(hào)圖書類別信息……類別圖書ER圖圖書序號(hào)書號(hào)書名……存放位置位置編號(hào)圖書類別讀者類別實(shí)體ER圖讀者列別類別名稱收費(fèi)標(biāo)準(zhǔn)期限……讀者實(shí)體ER圖讀者讀者基本信息書證號(hào)以借書數(shù)……操作員實(shí)體ER圖操作員操作員信息密碼權(quán)限借書登記實(shí)體ER圖銷售登記實(shí)體ER圖銷售登記圖書基本信息銷售票號(hào)銷售數(shù)量……入庫登記實(shí)體ER圖入庫登記圖書基本信息入庫票號(hào)入庫數(shù)量…… 借書登記圖書基本信息書證號(hào)借書數(shù)量……庫存查詢實(shí)體ER圖還書登記實(shí)體ER圖還書登記圖書基本信息書證號(hào)還書數(shù)量……庫存查詢圖書基本信息庫存數(shù)量庫存金額……、數(shù)據(jù)邏輯結(jié)構(gòu)設(shè)計(jì)系統(tǒng)數(shù)據(jù)庫名稱為books。形式如：C000001入庫票號(hào)以此記錄依次入庫登記，唯一標(biāo)識(shí)每次入庫登記，形式如：20071108rk001銷售票號(hào)以此記錄一次銷售登記，唯一標(biāo)識(shí)每次銷售登記，形式如：20071108sh0023借書票號(hào)以此記錄一次借書登記，唯一標(biāo)識(shí)每次借書登記，形式如：20071112js0007還書票號(hào)以此記錄一次還書登記，唯一標(biāo)識(shí)每次還書登記，形式如：20080304hs0008庫存上限現(xiàn)庫存數(shù)量的最高限庫存下限現(xiàn)庫存數(shù)量的最低限書證到期提示借書證到期，提醒用戶不能繼續(xù)借書操作員級(jí)別根據(jù)操作員級(jí)別，設(shè)置操作員的權(quán)限范圍系統(tǒng)初始化清空所選表中的數(shù)據(jù)數(shù)據(jù)存儲(chǔ)表名稱說明Tslbb記錄圖書類別的信息Book記錄圖書的基本信息Tswzb記錄圖書存放位置的基本信息Reads記錄讀者的基本信息Rkb記錄圖書入庫的基本信息Rkph記錄圖書入庫的票號(hào)信息Xsb記錄圖書銷售的基本信息Xsph記錄松圖書銷售的票號(hào)信息Kcb記錄圖書庫存的基本信息Jsb記錄讀者借書的基本信息Hsb記錄讀者還書的基本信息qxb記錄操作員基本信息及操作員權(quán)限信息dzlbb記錄讀者類別的基本信息jsqxb記錄讀者借書的期限基本信息處理過程名稱說明銷售登記與客戶進(jìn)行銷售交易，即出庫入庫登記與供應(yīng)商進(jìn)行入庫小交易，也可以稱之為采購登記借書登記與讀者進(jìn)行借書交易還書登記與讀者進(jìn)行還書交易庫存查詢對(duì)庫存圖書節(jié)女性查詢核對(duì)銷量分析通過圖表對(duì)圖書銷量進(jìn)行分析庫存分析通過圖表對(duì)庫存