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