【正文】 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 【冊(cè)/包】不允許為空！ Exit Sub End If If Text1(9).text = Then MsgBox 請(qǐng)?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ì)【圖書存放位置】：?jiǎn)螕簟咎砑印堪粹o，系統(tǒng)自動(dòng)生成3位數(shù)的位置編號(hào)，用戶在存放位置文本框中錄入圖書存放位置信息。單擊【保存】按鈕，保存圖書存放位置設(shè)置。單擊【取消】按鈕，取消本次添加操作。單擊下表中圖書存放位置信息單元格，單擊【刪除】按鈕，完成刪除當(dāng)前圖書類別信息的操作(當(dāng)前信息即表格指針?biāo)付ǖ挠涗浶畔?。單擊【退出】按鈕，關(guān)閉該界面，返回到系統(tǒng)主菜單、設(shè)計(jì)目標(biāo)（1）、自動(dòng)生成3位數(shù)字圖書存放位置編號(hào)。（2）、完成圖書存放位置信息的添加、保存、修改、刪除。（3）、瀏覽圖書存放位置信息。圖書存放位置運(yùn)行結(jié)果如下圖所示、設(shè)計(jì)思路圖書存放位置模塊主要完成圖書存放位之欣喜的添加、保存于刪除，并可以表格形式瀏覽圖書存放位置信息。圖書存放位置模塊開發(fā)有4個(gè)過(guò)程。定義數(shù)據(jù)集變量對(duì)象。Dim rs1 As New 39。聲明數(shù)據(jù)集對(duì)象在錄入過(guò)程中，設(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ì)【讀者類別管理】：?jiǎn)螕簟咎砑印堪粹o，用戶需在類別名稱下拉列表框中選擇圖書類別，并設(shè)置收費(fèi)標(biāo)準(zhǔn)，即每年所付費(fèi)用。在期限下拉列表框中設(shè)置類別期限，同時(shí)可為讀者類別錄入備注信息。單擊【保存】按鈕，保存讀者類別信息的設(shè)置。單擊【取消】按鈕，取消本次添加操作。單擊下表中的單元格所對(duì)應(yīng)的讀者類別信息，單擊【刪除】按鈕，完成刪除當(dāng)前指針?biāo)付ǖ淖x者類別信息操作。、實(shí)現(xiàn)目標(biāo)（1）、通過(guò)列表選擇讀者類別和借書期限。（2）、完成讀者類別信息的添加、保存、刪除及瀏覽讀者類別管理運(yùn)行結(jié)果如下圖所示、設(shè)計(jì)思路讀者類別管理從開發(fā)過(guò)程上劃分為5部分，主要包括添加過(guò)程、錄入過(guò)程、保存過(guò)程、消費(fèi)過(guò)程、刪除過(guò)程。在錄入過(guò)程中，需要錄入數(shù)據(jù)的控件獲得焦點(diǎn)。Dim rs1 As New 39。聲明數(shù)據(jù)集對(duì)象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 (請(qǐng)輸入類別名稱！) Exit Sub End If If = Then MsgBox (請(qǐng)輸入收費(fèi)標(biāo)準(zhǔn)！) Exit Sub End If If = Then MsgBox (請(qǐng)輸入期限！) Exit Sub End If 39。添加讀者類別信息 (類別名稱) = (收費(fèi)標(biāo)準(zhǔn)) = Val() (期限) = (備注) = 39。更新數(shù)據(jù)庫(kù) 39。清空文本框中的數(shù)據(jù) = = = = 39。設(shè)置控件有效或無(wú)效 = False = False = False = False = False = False = True = True End If 、讀者信息管理窗體設(shè)計(jì)【讀者信息管理】：?jiǎn)螕簟咎砑印堪粹o，用戶需按界面提示完成讀者信息管理的錄入、實(shí)現(xiàn)目標(biāo)（1）、程序自動(dòng)按順序生成6位書證號(hào)。（2）、列表選擇讀者性別、讀者類別，并自動(dòng)顯示辦證價(jià)格和借書期限。（3）、默認(rèn)辦證日期為系統(tǒng)日期。（4）、玩車國(guó)內(nèi)讀者信息的添加、保存、修改和刪除。（5）、按任意字段查詢讀者的基本信息。讀者信息管理運(yùn)行結(jié)果如下圖所示。、設(shè)計(jì)思路讀者信息管理主要完成讀者信息的添加、保存、修改、刪除與查詢，并以卡片式和表格式兩種凡是瀏覽讀者信息。程序代碼設(shè)計(jì)如下聲明變量和數(shù)據(jù)集對(duì)象。Dim i, a, Mat As Integer 39。聲明整型變量Dim rs1 As New 39。聲明數(shù)據(jù)集對(duì)象聲明view_data過(guò)程，用于顯示讀者信息。Private Sub view_data() 39。聲明一個(gè)顯示reads表中數(shù)據(jù)的過(guò)程 With 39。將reads數(shù)據(jù)表中各字段的值賦給對(duì)應(yīng)的控件 If .Fields(書證號(hào)) Then = .Fields(書證號(hào)) If .Fields(姓名) Then = .Fields(姓名) If .Fields(性別) Then = .Fields(性別) If .Fields(身份證) Then = .Fields(身份證) If .Fields(單位) Then = .Fields(單位) If .Fields(家庭住址) Then = .Fields(家庭住址) If .Fields(聯(lián)系電話) Then = .Fields(聯(lián)系電話) If .Fields(讀者類別) Then = .Fields(讀者類別) If .Fields(收費(fèi)標(biāo)準(zhǔn)) Then = .Fields(收費(fèi)標(biāo)準(zhǔn)) If .Fields(期限) Then = .Fields(期限) If .Fields(辦證價(jià)格) Then = .Fields(辦證價(jià)格) If .Fields(辦證日期) Then = .Fields(辦證日期) If .Fields(到期日期) Then = .Fields(到期日期) If .Fields(已借書數(shù)) Then = .Fields(已借書數(shù)) If .Fields(相片路徑) Then = .Fields(相片路徑) If Dir(.Fields(相片路徑)) Then = LoadPicture(.Fields(相片路徑)) Else MsgBox 此讀者相片路徑錯(cuò)誤，請(qǐng)更改！ = LoadPicture() End If Else = = LoadPicture() End If End WithEnd Sub聲明ena過(guò)程，用于設(shè)置界面中的控件有效或無(wú)效。Private Sub Ena() 39。聲明一個(gè)設(shè)置控件有效或無(wú)效的過(guò)程 If a = 0 Or a = 1 Then 39。當(dāng)變量a=0或a=1時(shí) 39。設(shè)置如下控件有效或無(wú)效 = True = True = True = True = True = True = True = True = True = True = True = True = True = True = False = False = False For i = 0 To 3 CmdMD(i).Enabled = False Next i End If If a = 2 Or a = 3 Then 39。當(dāng)變量a=2或a=3時(shí) 39。設(shè)置如下控件有效或無(wú)效 = False = False = False = False = False = False = False = False = False = False = False = False = False = False = True = True = True For i = 0 To 3 CmdMD(i).Enabled = True Next i End IfEnd Sub初始化過(guò)程。Private Sub Form_Load() 39。添加讀者類別列表 select 類別名稱 from dzlbb , Cnn, adOpenKeyset, adLockOptimistic If 0 Then If = False Then For i = 0 To 1 (Trim((類別名稱))) Next i End If If 0 Then = 0 39。添加性別列表 (男) (女) = 1 39。添加查詢字段列表 (書證號(hào)) (姓名) (身份證) (單位) (讀者類別) (期限) = 0 39。添加借書期限列表 (一年) (半年) (三個(gè)月) = select * from reads If 0 Then Call view_data 39。調(diào)用函數(shù) End IfEnd Sub用戶在錄入數(shù)據(jù)時(shí)，主要完成鍵盤控制焦點(diǎn)在控件中移動(dòng)、自動(dòng)顯示收費(fèi)標(biāo)準(zhǔn)及自動(dòng)計(jì)算辦證價(jià)格等功能。Private Sub Combo2_Click() 39。按類別名稱查詢 select * from dzlbb where 類別名稱=39。 + + 39。, Cnn, adOpenKeyset, adLockOptimistic If 0 Then 39。當(dāng)記錄大于零時(shí) =