【正文】 If 0 Then Do While = False Key = Trim((子菜單名稱 )) Text = (子菜單名稱 ) Set Node2 = (, tvwChild, Key, Text, 1) Loop End If Loop End If End Sub （ 2） 向 ListView 中加載 TreeView 節(jié)點(diǎn)對應(yīng)的子菜單 (以借閱管理為例 )： Private Sub TreeView1_NodeClick(ByVal Node As ) If = 借閱管理 Then Set itemX = (, , 讀者借書管理 , 8) Set itemX = (, , 讀者還書管理 , 9) Set itemX = (, , 讀者續(xù)借管理 , 10) Set itemX = (, , 圖書丟失管理 , 11) Set itemX = (, , 超期提醒 , 12) End If End Sub （ 3） 在圖片上添加透明 Label 控件，利用鼠標(biāo)移動事件來改變對應(yīng)控件中文字的顏色， ，通過 Label 的點(diǎn)擊事件調(diào)用其他框體， 達(dá)到實(shí)現(xiàn)類似工具欄的按鈕。 Private Sub Picture2_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single) On Error Resume Next If Button = 1 Then = + x End Sub Private Sub Picture2_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single) Dim plamp。 Private Sub Timer1_Timer() 圖書管理系統(tǒng) (Visual Basic + Access ) 18 / 43 (2).Text = Format(Now, yyyy 年 mm 月 dd日 hh 點(diǎn) mm 分 ss 秒 ) End Sub 功能模塊設(shè)計(jì) 讀者 管理模塊 讀者管理模塊主要功能是對讀者信息進(jìn)行管理，可以對讀者的信息進(jìn)行錄入、保存、修改、刪除等操作。 圖 .(1) 讀者信息管理 技術(shù) 分析 ： 該框體通過 SSTab 控件 實(shí)現(xiàn)讀者信息添加、修改、查詢等選項(xiàng)。修改選項(xiàng)卡中利用數(shù)據(jù)集對象執(zhí)行 SQL 語句來查詢數(shù)據(jù)庫中的數(shù)據(jù) ，輸入讀者編號獲得讀者的其他信息 。并且通過 Progress 控件來顯示當(dāng)前的查詢進(jìn)度。 Private Sub Command1_Click() Dim temp1 temp1 = 100000 圖書管理系統(tǒng) (Visual Basic + Access ) 19 / 43 = select * from dzxxtb order by 讀者編號 If 0 Then = Val((讀者編號 )) + 1 Else = temp1 + 000001 End If = select * from dzxxtb order by 讀者編號 clear1 = True End Sub (2) 保存讀者信息。 amp。 39。 amp。 39。 amp。 39。 amp。 39。 amp。 39。 amp。 39。 amp。 39。 amp。 39。 amp。 39。 amp。 39。 amp。 39。 amp。 39。 amp。 39。 amp。 39。 amp。 39。 Private Sub Command7_Click() Dim Counter As Integer Dim workarea(100) As String Counter = 0 On Error Resume Next = For Counter = LBound(workarea) To UBound(workarea) If = 1 And = 0 Then 圖書管理系統(tǒng) (Visual Basic + Access ) 20 / 43 If = like Then = select * from dzxxtb where dzxxtb. amp。 like + 39。 Else = select * from dzxxtb where dzxxtb. amp。 Combo6 amp。 + + 39。 Chr(35) amp。 Chr(35) amp。 Chr(35) amp。 Chr(35) amp。 amp。% + + %39。 Chr(35) amp。 Chr(35) amp。 Chr(35) amp。 Chr(35) amp。 amp。 + 39。 and 登記日期 between amp。 amp。 and amp。 amp。 ) End If End If = Counter Next Counter = End Sub (4) 修改讀者信息時，根據(jù)查詢的讀者編號獲得對應(yīng)的讀者其他信息。 + + 39。 主要技術(shù)： 框體中利用 DTPicker 控件的 Value 屬性返回當(dāng)前日期，利用 TextBox控件的 LostFocus 事件來觸發(fā)更新驗(yàn)證和確認(rèn)等相關(guān)操作。 圖書管理系統(tǒng) (Visual Basic + Access ) 22 / 43 圖 .(2) 借書管理 (1) 利用 ADO 控件來實(shí)現(xiàn)查詢讀者信息。 amp。 39。 Private Sub Text3_LostFocus() = select * from books where 條碼號 =39。 amp。 If 0 Then 圖書管理系統(tǒng) (Visual Basic + Access ) 23 / 43 = (訂購價格 ) = (出版社 ) = (書籍名稱 ) = (規(guī)定天數(shù) ) = (作者 ) = (類別代碼 ) = + Val() Else MsgBox 沒有該書籍信息！ , vbOKOnly, 提示！ = : = : = : = = : = : = : = End If End Sub (3) 借出圖書時驗(yàn)證借書數(shù)量是否超出限制，如果沒有則將借書信息寫入借書表，同時修改圖書表中的“復(fù)本數(shù)”和“借書數(shù)量”兩個字段，借書成功。 + + 39