1、基于Access的醫學生數據庫語言學習討論基于Aess的醫學生數據庫語言學習討論隨著計算機技術的不斷開展及普及，計算機已經成為人們工作中不可缺少的工具，與此同時，信息技術在醫院也被全面應用，醫院信息化管理為醫院的各項業務管理帶來了極大的方便。在醫學領域，醫院信息管理系統、醫學專家系統、數字人體分析以及大量醫學數據分析管理等都毫不例外地是以數據庫技術為根底的。數據庫語言是高校非計算機專業計算機教學普遍開設的課程，在醫學院校開設數據庫語言是醫學生掌握計算機知識、熟悉數據庫操作最實在可行的途徑。數據庫語言Aess是功能較強、易于掌握的數據庫管理軟件，也是醫學生今后工作和科研所必須掌握的一門計算機編程

2、語言。該課程的學習以培養醫學生面向對象程序設計的理念為宗旨，通過教學，從根底到理論，使學生掌握數據庫語言Aess的根本功能，培養初步開發信息系統的才能，根本具備解決實際應用問題的才能，更為培養醫學生具有數字技術與醫學結合的思維方式打下良好的基矗irsft公司開發的數據庫管理系統軟件Aess作為ffie的重要組件之一，是一個面向對象的、采用事件驅動的關系型數據庫環境。Aess在關系數據模型的理論根底上結合了先進的面向對象思想，同時提本文由論文聯盟搜集整理供了大量適用于面向對象開發思想和方法的各種軟件工具，為用戶開發基于inds環境的數據庫應用軟件系統創造了條件。本課程所采用的數據庫系統是Aess

3、2022。系統構造與設計教育形式是做中學和基于工程教育和學習的集中概括和抽象表達，按照學科穿插浸透、理論結合理論的教學理念，按照根底知識應用進步才能創新三個階段來改善學生的學習效果，進步學生的學習才能。所以，我們采用工程開發為任務，詳細實現要手段的方式來綜合學習Aess。1.確定所需要的表本系統有4個實體，即醫生、患者、床位和住院管理信息。系統的維護需要明確使用者的身份，因此，在系統登錄時對使用者要進展身份確實認，通過一個表來存儲系統所有的用戶名及密碼。2.確定表的構造及主鍵關系模型如下：醫生編號、姓名、性別、出生日期、職稱、所屬科室、擅長診斷、個人簡介，見表1?；颊卟v號、姓名、性別、出生日

4、期、身份證號、聯絡方式、病史，見下頁表2。床位床位號、類別、所屬科室名、說明，見下頁表3。出入院信息編號、主管醫生編號、患者病歷號、床位號、住院日期、出院日期、病由，見下頁表4。3.轉換并標準將E-R圖轉換成關系模型并對關系形式進展標準化，至少到達3NF。醫院住院管理信息系統E-R圖如圖1所示。4.功能模塊根據需求分析，系統功能設計包括以下特點，即分層管理、業務功能模塊化管理、業務流程嚴格控制等。住院管理信息系統主要由兩大功能模塊構成。一類功能模塊是基于根本信息管理，包括醫生根本信息管理模塊、患者根本信息管理模塊和床位根本信息管理模塊，另一類是基于出入院登記管理，包括入院登記管理、出院登記管理

5、和住院情況統計。系統功能模塊如圖2所示。關鍵技術舉例雖然Aess的六大對象為表、窗體、查詢、報表、宏和模塊VBA編程，有些簡單的功能可以通過向導直接完成，但是有些數據關聯著比擬復雜的功能，就需要借助VBA代碼實現。本文以入院登記窗體實現為例。入院登記窗體的操作過程是：翻開窗體后可看到患者的信息，通過患者信息區域的記錄選擇器可以查看第一條/上一條/下一條/最后一條記錄，通過查找患者可以找到相應的患者。找到患者后最下面的住院信息子窗體中會顯示該患者以往的住院記錄，如住院日期有值，而出院日期沒有值，那么說明該患者已住院，不能再辦理入院手續了。如患者沒有正在住院，在1.選擇科室的列表中選擇科室后，系統

6、就會將該科室的出診醫生和空閑床位分別顯示在對應的列表框中。單擊選擇醫生和空閑床位后，這時生成入院信息的按鈕才被激活。填寫住院病由后，單擊生成入院信息按鈕，那么可以辦理該患者的住院手續，下方的住院信息子窗體里會顯示當前參加的住院記錄，此時住院日期為當前日期及時間，而出院日期為空。入院登記的運行界面如圖3所示。1.技術要點分析1選擇科室后，要自動顯示醫生和空床位列表信息。建立自動關聯是一技術要點。2醫生和空床位兩個列表信息，采用了多列方式來展示相關信息。多列的列表的賦值和讀取是一難點。3只有醫生和空床位兩個列表都進展了選擇后，生成入院信息的按鈕才被激活。要記錄這兩個列表的選擇狀態，就要采用全局變量

7、來做標志。4從界面上獲取患者的HID、醫生的DID、床位的ID和病由后，將相關信息添加到住院表中，并刷新界面，從而最終完成入院登記。5數據庫操作前，先要進展連接，操作完成后要釋放數據庫連接。2.關鍵技術的VBA代碼實現1查看信息按鈕單擊事件中的VBA代碼。PrivateSubkxx_lik-進展列表框初始化-e.ys.lununt=3e.lununt=2Fri=0Te.ys.Listunt-1e.ys.RevEite0NextiFri=0Te.Listunt-1e.ReveIte0NextiDinAsNeADDB.nnetinDirsAsNeADDB.RerdsetDifielAsADDB.F

8、ieldDistrsql，a，b，dAsString-建立數據庫連接-Setn=urrentPrjet.nnetinSetrs=NeADDB.Rerdset-將符合條件的醫生信息參加列表框-strsql=selet*fr醫生here所屬科室=e.keshirs.penstrsql，urrentPrjet.Aessnnetin，adpenKeysetIfrs.EFThensgBx此類型號源已用完e.keshi.SetFusElsers.veFirstDhileNtrs.EFa=rsDIDb=rs姓名=rs職稱d=a，b，將符合條件的醫生姓名參加列表框ys.AddItedrs.veNextLpEn

9、dIf-將符合條件的空床位名參加列表框-rs.lseSetrs=Nthingstrsql=SELET床位.ID，類別FR床位，住院HERE床位.ID=住院.IDand出院日期=nand所屬科室=e.keshiUNINSELETID，類別FR床位HERE所屬科室=e.keshiandIDntinseletIDfr住院sgBxstrsql=strsqlrs.penstrsql，urrentPrjet.Aessnnetin，adpenKeysetIfrs.EFThensgBx無空床位e.keshi.SetFusElsers.veFirstDhileNtrs.EFa=rsIDb=rs類別d=a，b將符

10、合條件的醫生姓名參加列表框.AddItedrs.veNextLpEndIf-關閉數據庫連接-rs.lsen.lseSetrs=NthingSetn=NthingEndSub2生成入院信息按鈕單擊事件中的VBA代碼。PrivateSubruyuan_likIfIsNulle.bingyure.bingyu=ThenDd.BeepsgBx請輸入入院病由！e.bingyu.SetFusExitSubEndIfDinAsNeADDB.nnetinDirsAsNeADDB.Rerdset-建立數據庫連接-Setn=urrentPrjet.nnetinSetrs=NeADDB.RerdsetDistrsqlAsStringstrsql=selet*fr住院rs.penstrsql，urrentPrjet.Aessnnetin，adpenKeyset，adLkptiisti，addText-添加新記錄-rs.AddNe準備添加新記錄rsHID=e.HIDrsDID=e.ys.IteDatae.ys.ListIndexrsID=e.lun0rs住院日期=Nrs病由=e.bingyurs.Update記錄集更新e.R