【正文】 t Find it , vbOKOnly + vbInformation, Notice End If End If End If End Sub Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer) ‘窗體關(guān)閉按鈕觸發(fā)事件 Unload Form2 Set xlSheet = Nothing ‘關(guān)閉 Sheet ‘關(guān)閉調(diào)用 的 excel文件 Set XlBook = Nothing ‘釋放 xlBook Set xlApp = Nothing ‘釋放 Excel對象 End Sub 門診預(yù)約 界面代碼 以及注解 Public xlApp As ‘定義 EXCEL類 Public XlBook As ‘定義工件簿類 Public xlSheet As ‘定義工作表類 Dim rr As ‘把 i定義為 Range類型的對象 Private Sub Command2_Click() ‘退出 門診 預(yù)約 窗體按鈕 Unload Form4 ‘退出 門診預(yù)約 窗體 ‘用戶功能界面 End Sub Private Sub Command1_Click() ‘保存當(dāng)前工作表按鈕 ( amp。t Find it , vbOKOnly + vbInformation, Notice ‘MsgBox提示“ Can’t Find it” End If End If End If End Sub Private Sub Text4_Keydown(Keycode As Integer, Shift As Integer) ’在 Text4回車時觸發(fā)事件 ，對聯(lián)系電話進(jìn)行模糊搜索 ‘Listbox清空 If Keycode = 13 Then Dim telno As String telno = (D:D).Activate Set rr = (D:D).Find(What:=telno, After:=ActiveCell, LookIn:=xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False, MatchByte:=False, SearchFormat:=False) If Not rr Is Nothing Then firstAddress = Do ((False, False, xlA1)).Offset(, 0) ‘將模糊搜索所得聯(lián)系電話，輸入 listbox Set rr = (rr) Loop While Not rr Is Nothing And firstAddress Else If rr Is Nothing Then MsgBox Can39。 \) ‘打開已經(jīng)存在的 EXCEL工件簿文件 = False ‘設(shè)置 EXCEL對象不可見 Set xlSheet = (Sheet1) ‘設(shè)置活動工作表， sheet1表示表名，可以使用字符型變量代替。 \) ‘圖片框 加載圖片 End Sub 用戶功能界面代碼 以及注解 Private Sub Command1_Click() ‘進(jìn)入 病人信息管理 模塊按鈕 ‘病人信息管理 模塊顯示 ‘用戶功能界面 隱藏 End Sub Private Sub Command2_Click() ‘進(jìn)入 病人信息管理 模塊按鈕 ‘進(jìn)入 門診預(yù)約 模塊按鈕 ‘用戶功能界面 隱藏 End Sub Private Sub Command3_Click() ‘進(jìn)入 病人信息管理 模塊按鈕 ‘進(jìn)入 數(shù)據(jù)統(tǒng)計(jì) 模塊按鈕 ‘用戶功能界面 隱藏 End Sub 病人信息管理 界面代碼 以及注 解 Public xlApp As ‘在通用對象的聲明過程中定義 EXCEL對象 Public XlBook As Public xlSheet As Dim rr As Private Sub clear_Click() ‘清除所有文本框內(nèi)容 = ‘清除姓名文本框內(nèi)容 = ‘清除年齡文本框內(nèi)容 畢業(yè)設(shè)計(jì)（論文）報(bào)告紙 共 26 頁 第 13 頁 ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ 裝 ┊ ┊ ┊ ┊ ┊ 訂 ┊ ┊ ┊ ┊ ┊ 線 ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ = ‘清除醫(yī)?？ㄌ栁谋究騼?nèi)容 = ‘清除聯(lián)系電話文本框內(nèi)容 = ‘清除姓名文本框內(nèi)容 ‘清除搜索選項(xiàng)列表框內(nèi)容 End Sub Private Sub cmdel_Click() ‘刪除選中病人信息 Dim id As String ‘定義變量 Dim add As Integer id = ‘將 id (E:E).Activate ‘在 EXCEL中選中 Columns E Set rr = (E:E).Find(What:=id, After:=ActiveCell, LookIn:=xlFormulas, LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False, MatchByte:=False, SearchFormat:=False) ‘在 Excel表中搜索與 id相符的值 If Not rr Is Nothing Then ‘判斷 rr對象變量代表的對象 是否 存在 firstAddress = ‘記錄單元格地址 Do ((False, False, xlA1)).Offset(, 4) = ((False, False, xlA1)).Offset(, 3) = ((False, False, xlA1)).Offset(, 2) = ((False, False, xlA1)).Offset(, 1) = ((False, False, xlA1)).Offset(, 0) = ((False, False, xlA1)).Offset(, 1) = ((False, False, xlA1)).Offset(, 2) = ((False, False, xlA1)).Offset(, 3) = ‘清除對應(yīng)與搜索結(jié)果相匹配單元格中內(nèi)容 Set rr = (rr) On Error Resume Next Loop While Not rr Is Nothing And firstAddress ‘先 進(jìn)行 判斷 ，然 后 進(jìn)行 執(zhí)行 Else If rr Is Nothing Then ‘如果搜索不到相匹配的結(jié)果，進(jìn)行判斷 MsgBox 搜索無結(jié)果 , vbOKOnly + vbInformation, 注意 ‘MsgBox提示“搜索結(jié)果” End If End If End Sub Private Sub cmdsave_Click() ‘將在文本框的內(nèi)容，保存至 Excel文件中 Dim id As String id = ‘將 id (E:E).Activate ‘在 EXCEL中選中 Columns E Set rr = (E:E).Find(What:=id, After:=ActiveCell, LookIn:=xlFormulas, 畢業(yè)設(shè)計(jì)（論文）報(bào)告紙 共 26 頁 第 14 頁 ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ 裝 ┊ ┊ ┊ ┊ ┊ 訂 ┊ ┊ ┊ ┊ ┊ 線 ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False, MatchByte:=False, SearchFormat:=False) ‘在 Excel表中搜索與 id相符的值 If Not rr Is Nothing Then ‘判斷 rr對象變量代表的對象 是否 存在 firstAddress = ‘記錄單元格地址 Do ((False, False, xlA1)).Offset(, 4) = ((False, False, xlA1)).Offset(, 3) = ((False, False, xlA1)).Offset(, 2) = ((False, False, xlA1)).Offset(, 1) = ‘搜索到 id相匹配單元格，修改 與之相關(guān)的內(nèi)容 Set rr = (rr) Loop While Not rr Is Nothing And firstAddress ‘先 進(jìn)行 判斷 ，然 后 進(jìn)行 執(zhí)行 End If End Sub Private Sub Command1_Click() ‘保存修改的 Excel表 ( amp。 數(shù)據(jù)統(tǒng)計(jì)可以迅速了解病人總數(shù)以及分布，而數(shù)據(jù)圖表可以更形象的顯示數(shù)據(jù)，直觀的表現(xiàn)初診與