..中醫藥大學醫學信息工程專業實驗報告課程名稱：醫院信息系統教程實驗題目：門診醫生工作站系統實驗日期：2013年5月日起至2013年6月24日止班級：11級醫學信息工程一班實驗成績：指導教師：二○一三年五月第1章概述門診醫生工作站系統是為醫院提升管理水平，為患者提供更加高效快捷的醫療效勞而提供的一套穩定、完善的數字化醫院解決方案。實施本系統后將給醫院管理和臨床醫生提供極大的方便，提高患者就診的效率，減少患者排隊和來回跑診室的現象，使醫院迅速走向數字化管理的新臺階。1.2系統開發目的與意義門診醫生工作站系統以電子病歷為中心，支持醫院建立門診病歷庫，為醫生提供高效的電子病歷和電子處方管理平臺，并為以后的病歷統計分析提供有效的手段，對提高醫院管理和醫生的醫療水平作用重大。同時支持醫院醫卡通〔推薦高性價比的條形碼醫卡通系統〕或醫保卡的使用，為患者建立起連續的就醫資料，提高對患者的診療與效勞水平，從而提高患者的忠誠度；電子處方單符合衛生部最新標準。在實施門診醫生工作站系統后，醫生可以方便的獲取患者既往的就診記錄、既往病史、用藥記錄、檢查檢驗報告、當前病情開展情況、各種檢驗檢查結果等，通過計算機下達處方和各種檢驗檢查申請，記錄患者病情及開展變化情況，在診斷時遇到疑難雜癥利用計算機進展輔助分析。同時方便的獲取相關醫療知識，查閱各種疾病的診療常規、藥物信息、檢驗信息等醫學數據。第2章系統需求分析2.1組織管理調查2.1.1組織構造門診部門診部掛號室病理科藥劑科中心功能檢查室檢驗科中心手術室麻醉科入院衛生處理室門診醫生收費室分診臺2.1.2主要職能醫生：接診病人；問診、查體，收集病史資料和病情信息；提出必要的輔助檢驗檢查申請，查閱檢驗檢查結果；確定門診診斷，提出治療方案；開具處方、治療處置單等；必要時將病人收入院治療，或及時為病人聯系轉診醫院，指導病人辦理轉診手續獲取患者既往的就診記錄、既往病史、用藥記錄、檢查檢驗報告、當前病情開展情況、各種檢驗檢查結果等，通過計算機下達處方、各種檢驗檢查申請，記錄患者病情及開展變化情況。同時方便的獲取相關醫療知識，對各種疾病的診療常規、藥物手冊、檢驗手冊、醫學信息資源進展檢索。與門急診管理、檢驗檢查、手術麻醉等系統一體化集成。2.2業務流程調查YYNNNYNY門診醫囑、病歷相應的治療、用藥等住院通知單是否需要住院完畢是否啟用分診呼叫病人就診檢驗、檢查寫主訴、病史問診調取病人資料當天復診病人診斷明確是否退診下診斷開檢驗、檢查完畢就診開場繳費Y業務流程業務流程圖門診醫生門診醫生病人資料掛號表復診病人調閱病人病史問診病人主訴、病史病歷初步診斷主訴、病癥、檢驗檢查目的提出檢驗檢查申請檢驗檢查申請單檢驗檢查結果確診診斷記錄開處方、寫門診病歷處方/病歷住院登記住院登記記錄手術申請手術申請單2.3現行系統存在的主要問題和薄弱環節a.系統運行中途發生重大錯誤的數據恢復b.門診規模擴大后系統的適應性c.病人轉診機制2.4系統需求說明2.4.1功能需求1、抽取就診的病人信息。2、為醫生提供輔助診斷分析功能。3、為病人下達檢查單。4、為病人下達處方、注射單。5、為病人生成病歷。6、醫生病歷模板、處方模板的建立和管理。醫生根據病種定義相應可用的協定處方、自選處方、門診病歷模板。7、門診病人檔案信息查詢，包括完整的處方、費用、病歷、檢驗結果、檢查報告、圖像報告。8、門診病歷統計分析表，根據醫院的需求自定義統計表。用一覽表及框圖的形式說明本系統的系統元素〔各層模塊、子程序、公用程序等〕的劃分，扼要說明每個系統元素的標識符和功能，分層次地給出各元素之間的控制與被控制關系。整個系統按功能劃分，可分為5個模塊編號模塊名稱模塊功能功能說明1患者信息患者信息錄入添加、刪除、更新、查詢2檢驗檢查檢驗檢查申請及調閱結果添加、刪除、更新、查詢3藥物醫囑藥物醫囑錄入添加、刪除、更新、查詢4中醫處方處方錄入添加、刪除、更新、查詢5手術輸血手術輸血申請添加、刪除、更新、查詢2.4.2性能需求1)精度對軟件的輸入輸出數據應該做到正確無誤，并能對操作人員的誤操作給予提示，且能對垃圾數據進展有效制止，防止器進入系統數據源。2〕整個系統運行于網絡環境下，數據源與數據庫應用分布于不同的主機上，應保證在不出現數據阻塞、數據喪失的情況下，快速準確地響應系統操作人員所提出的各種合法請求。3〕靈活性所開發的系統應能適應于以下幾種所述情況的變化：運行環境的變化；操作方式上的變化；精度和有效時限的變化；輸入輸出要求系統應能支持多種形式的數據輸入輸出方式，比方對于業務量處理大的時候，系統可以支持鍵盤、鼠標、語音、掃描儀等輸入形式。2.4.3輸入輸出需求新系統實現后，凡需要填寫病人根本信息的地方均可直接由系統自動填充。主要存在以下輸入需求：需要提供就診卡讀卡器，自動讀取就診卡信息，并調閱病人根本信息。a.病人掛號信息：掛號單編號由系統直接生成，其他信息由門診收費員輸入b.病歷單信息：主要記錄病人的病史，由醫生給出，門診收費員輸入c.診斷信息：醫生診斷信息，記錄在診斷單d.醫生信息：醫院所有醫務人員的根本信息，包括新建，管理，刪除，由人事管理人員負責。門診藥房藥品庫存情況。輸出需求：新系統直接將檢驗檢查申請單、手術申請單、住院申請、藥品處方等信息以紙質文檔形式打印輸出，同時存儲至數據庫，供門診檢驗檢查科室、手術室、門診收費系統等訪問。打印輸出門診病歷。2.4.4運行環境需求本系統適行在MicrosoftWindows的各個版本下，包括Windows9X(win95需要升級系統文件〕WindowsXP等平臺下,奔騰512MHz或更快,1G存或更多,250G磁盤空間。第3章系統邏輯設計3.1系統開發目標門診醫生工作站系統的開發主要效勞對象是門診醫生，所以系統開發的目標主要是方便醫生，簡潔而快速的使用系統，到達節約時間節約人力物力的成效。旨在便于處理患者信息，檢驗檢查申請，手術申請輸血申請，處方醫囑等功能。3.2系統數據流程3.2.1數據流程分析門診醫生工作站主要負責存儲醫囑、處方明細信息，存儲的主要數據為醫生在開處方、下醫囑等過程產生的臨床數據。主要數據如下表：序號業務類型主要數據備注1病人信息病歷記錄病人病史及是否欠費等信息2檢查申請信息檢查申請表記錄檢查申請情況/時間/醫生/主訴/科室/診斷等信息3檢驗申請信息檢驗申請表記錄檢驗申請情況/時間/醫生/主訴/科室/診斷等信息4處方信息處方表記錄包括處方工程/次數/天數/用法/數量等處方信息5手術申請信息手術申請表記錄手術申請情況/時間/醫生/主訴/科室/診斷等信息6輸血申請信息輸血申請表記錄輸血申請情況/時間/血型/數量等信息7醫囑信息醫囑表記錄醫囑工程/次數/天數/用法等醫囑信息3.2.2數據流程圖手術申請單手術申請單住院登記記錄處方/病歷診斷記錄檢驗檢查結果檢驗檢查申請單檢驗檢查申請目的主訴、病史病人病史復診病人信息掛號表門診醫生呼叫病人就診手術申請住院登記開處方寫病歷確診檢驗檢查申請申請檢查問診讀復診病人信息病人3.4系統數據模型〔E-R圖〕〔1〕掛號處理11N門診醫生掛號門診病人科室編號醫生**IC號**主治醫師〔2〕醫生診斷111111NN1N11111N1N1門診醫生發出出處理方案掛號掛號單門診病人掛號包括包括2包括3包括4住院申請檢查工程檢驗工程門診處方包括5門診病歷對應3.5系統數據字典3.5.1數據元素編號名稱別名數據類型長度備注A01診療卡號ID號varchar12首次就診，建立索引，分配ID號復診病人，調用或檢索ID號A02掛號流水號IC號varchar17病人當日在醫院就診時分配的流水號A03科室編碼科室char7A04主治大夫醫師char10就診醫生的名字A05char10病人描述A06年齡int病人年齡描述A07性別char2病人性別描述A08出生日期datetime病人出生日期A09婚姻狀況char4病人已婚或未婚A10名族varchar8病人所屬名族名稱A11國籍varchar8病人的國籍A12籍貫varchar6病人所來自的省份A13單位或住址varchar8現住址或是單位所在地A14聯系varchar12病人聯系A15門診病案號病案號varchar12病人門診病案的唯一編號，在門診系統共享3.5.2數據構造編號名稱別名構成簡述B01門診病歷病歷門診病案號+病人ID號++性別+年齡+日期+就診次數+修改人+病歷容+歸檔人+歸檔時間+歸檔標志+金額++籍貫+國籍+單位或住址+黑標志科室是數據構造B02科室科室編號+科室名稱科室的根本信息B03病人信息ID號+IC號+主治醫師+醫保類別+黑標志B04藥物醫囑醫囑序號+ID號+科室編碼+開醫囑醫生+醫囑時間+停頓醫囑醫生+藥品名稱+藥品規格+單次劑量+劑量單位+給藥途徑+執行頻率+滴速+滴塑單位+天數+藥物數量+數量單位+備注病人病情和考前須知B05中醫處方處方序號+ID號+就診次數+處方類型+處方序號+明細序號+工程序號+工程規格+草藥副數+給藥方式+次數代碼+用量+用量單位+天數+注釋+皮試標志+開單科室+開單醫生+打印名稱B06檢查申請表檢查申請號+ID號+就診次數+檢查目的+檢查描述+檢查影像+醫囑序號+申請科室+申請醫生+申請時間+申請狀態+記賬序號+收費標志+執行科室+執行人工號+檢查號+檢查方法+影像所見+影像意見+影像號+申請人員+檢查部位+急檢標志+備注B07檢驗申請表檢驗申請號+ID號+就診次數+申請科室+申請醫生+申請時間+申請狀態+執行科室+執行人工號+執行時間+申請人員+急檢標志+診斷名稱+檢驗工程+檢驗標本+備注B08手術申請表手術申請號+ID號+申請科室+申請醫生+申請時間+申請狀態+手術前主診斷+擬行手術名稱+擬行麻醉名稱+擬行手術時間+手術類型+備注手術類型包括急診和傳染B09門診醫生醫生編號+醫生+科室編號所有門診醫生根本信息表B10輸血申請表輸血申請號+ID號+申請科室+申請醫生+申請時間+申請狀態+西醫主診斷+預定輸血日期+輸血工程+輸血方法+血型+RH陰或陽+申請血量+血量單位+既往輸血情況B11病人就診記錄ID號+就診次數+就診科室+就診醫生編碼+就診日期+主要診斷+次要診斷+掛號科別+就診標志3.5.3數據流編號名稱簡述來源去向構成流通量C01病人信息描述病人掛號時提供的根本信息病人掛號ID號+IC號+主治醫師+醫保類別+黑標志180次/小時C02病歷醫生為病人開的取藥單主治大夫各科室病人病歷信息100分/天C03化驗單醫生為病人開的化驗通知單主治大夫化驗室病人所需化驗信息50分/天C04檢驗單醫生為病人開的檢驗通知單主治大夫各科室病人所得檢驗信息50分/天C05手術單手術通知單主治大夫手術室病人所需手術信息50分/天C06掛號單掛號室主治大夫掛號信息180次/時C07住院單住院通知單門診科室住院部住院信息50分/每天3.5.4數據存儲編號名稱簡述構成D01病人就診記錄病人就診記錄ID號+就診次數+就診科室+就診醫生編碼+就診日期+主要診斷+次要診斷+掛號科別+就診標志D02診斷信息病人的主訴、病史記錄ID號+臨床病癥+西醫診斷+中醫診斷D03檢查申請單醫生為病人開的檢驗申請單檢查申請號+ID號+就診次數+檢查目的+檢查描述+檢查影像+醫囑序號+申請科室+申請醫生+申請時間+申請狀態+記賬序號+收費標志+執行科室+執行人工號+檢查號+檢查方法+影像所見+影像意見+影像號+申請人員+檢查部位+急檢標志+備注D04檢驗申請單醫生為病人開的檢驗申請單檢驗申請號+ID號+就診次數+申請科室+申請醫生+申請時間+申請狀態+執行科室+執行人工號+執行時間+申請人員+急檢標志D05手術申請單手術申請號+ID號+申請科室+申請醫生+申請時間+申請狀態+手術前主診斷+擬行手術名稱+擬行麻醉名稱+擬行手術時間+手術類型+備注D06門診病歷病人病案信息門診病案號+病人ID號++性別+年齡+日期+就診次數+修改人+病歷容+歸檔人+歸檔時間+歸檔標志+金額++籍貫+國籍+單位或住址D07藥物醫囑病人用藥醫囑序號+ID號+科室編碼+開醫囑醫生+醫囑時間+停頓醫囑醫生+藥品名稱+藥品規格+單次劑量+劑量單位+給藥途徑+執行頻率+滴速+滴塑單位+天數+藥物數量+數量單位+備注D08中醫處方中醫用藥ID號+就診次數+處方類型+處方序號+明細序號+工程序號+工程規格+草藥副數+給藥方式+次數代碼+用量+用量單位+天數+注釋+皮試標志+開單科室+開單醫生+打印名稱D09輸血申請表輸血申請輸血申請號+ID號+申請科室+申請醫生+申請時間+申請狀態+西醫主診斷+預定輸血日期+輸血工程+輸血方法+血型+RH陰或陽+申請血量+血量單位+既往輸血情況D10住院申請申請號+ID+申請科室+申請醫生+申請時間+病人根本病情+住院要求3.5.5數據加工編號名稱簡述輸入數據流輸出數據流部處理邏輯E01檢查單醫生為病人開的檢查通知單病人所需檢查信息檢查申請單E02檢驗單醫生為病人開的化驗通知單病人所需檢驗信息檢驗申請單E03病人信息病人信息確認病人信息掛號信息如果病人信息與其掛號信息不符，那么取消就診，否那么，繼續就診。E04手術單手術申請的完成手術信息手術單E05輸血單輸血申請的完成輸血信息輸血單E06住院單住院申請的完成住院申請信息住院單3.5.6外部實體編號名稱簡述有關數據流實體個數F01病人到本院就診的病人。病人根本信息掛號信息4000人/天F02門診醫生病人的主治醫師醫師根本信息第4章系統物理設計4.1系統功能構造圖門診醫生工作站門診醫生工作站電子處方門診病歷檢驗檢查門診手術初診病歷復診病歷4.2模塊說明書〔IPO〕系統名稱醫生工作站模塊編號模塊名稱登陸設計人設計日期2013年5—6月上層調用模塊無下層調用模塊無模塊文件名全局和局部變量輸入數據醫生編號、登陸密碼輸出數據無處理邏輯描述輸入醫生編號、登陸密碼IF輸入正確THENForm1.show〔顯示醫生工作站主界面〕Else提示輸入錯誤end注釋系統名稱醫生工作站模塊編號模塊名稱患者信息設計人設計日期2013年5—6月上層調用模塊掛號信息系統、電子病歷系統下層調用模塊電子病歷系統模塊文件名全局和局部變量輸入數據病人病歷信息輸出數據候診患者信息、病人根本信息處理邏輯描述選擇候診病人患者信息顯示輸入臨床診斷、西醫診斷、中醫診斷信息點擊保存——信息存入病人電子病歷數據庫點擊退出——form2.show〔顯示登陸界面〕注釋系統名稱醫生工作站模塊編號模塊名稱檢查申請表/檢驗申請表設計人設計日期2013年5—6月上層調用模塊無下層調用模塊檢查信息系統/檢驗信息系統、電子病歷系統模塊文件名全局和局部變量輸入數據檢查/驗申請表信息輸出數據檢查/驗結果處理邏輯描述輸入檢查/驗申請表信息點擊添加——提交申請表到檢查/驗信息系統點擊刪除——刪除申請表信息、輸入全置為空點擊修改——點擊保存——注釋系統名稱醫生工作站模塊編號模塊名稱藥品醫囑、中醫處方設計人設計日期2013年5—6月上層調用模塊無下層調用模塊護士工作站、電子病歷系統、藥品管理信息系統模塊文件名全局和局部變量輸入數據醫囑信息輸出數據藥品信息處理邏輯描述輸入醫囑信息點擊添加——添加藥品到醫囑點擊刪除——刪除輸入的藥品名稱點擊修改——點擊保存——提交到醫囑到護士工作站注釋系統名稱醫生工作站模塊編號模塊名稱手術申請表/輸血申請表設計人設計日期2013年5—6月上層調用模塊無下層調用模塊手術麻醉信息系統/輸血管理信息系統、電子病歷系統模塊文件名全局和局部變量輸入數據手術/輸血申請表信息輸出數據處理邏輯描述輸入手術/輸血申請表信息點擊添加——提交申請表到手術麻醉信息系統點擊刪除——刪除申請表信息、輸入全置為空點擊修改——點擊保存——注釋4.3數據庫構造4.3.1邏輯構造〔關系數據模型〕科室〔科室編號，科室名稱〕門診醫生〔醫生編號，醫生，科室編號,口令〕門診病歷〔門診病案號，病人ID號，，性別，年齡，日期，就診次數，修改人，病歷容，歸檔人，歸檔時間，歸檔標志，金額，，籍貫，國籍，單位或住址，黑標志〕病人信息〔ID號，IC號，主治醫師，醫保類別，黑標志〕藥物醫囑〔醫囑序號，ID號，科室編碼，開醫囑醫生，醫囑時間，停頓醫囑醫生，藥品名稱，藥品規格，單次劑量，劑量單位，給藥途徑，執行頻率，滴速，滴速單位，天數，藥物數量，數量單位，備注〕中藥處方〔處方序號，ID號，就診次數，處方類型，明細序號，工程序號，工程規格，草藥副數，給藥方式，次數代碼，用量，用量單位，天數，注釋，皮試標志，開單科室，開單醫生，打印名稱〕檢查申請表〔檢查申請號，ID號，就診次數，檢查目的，檢查描述，檢查影像，醫囑序號，申請科室，申請醫生，申請時間，申請狀態，記賬序號，收費標志，執行科室，執行人工號，檢查號，檢查方法，影像所見，影像意見，影像號，申請人員，檢查部位，急檢標志，備注〕檢驗申請表〔檢驗申請號，ID號，就診次數，申請科室，申請醫生，申請時間，申請狀態，執行科室，執行人工號，執行時間，申請人員，急檢標志〕手術申請表〔手術申請號，ID號，申請科室，申請醫生，申請時間，申請狀態，手術前主診斷，擬行手術名稱，擬行麻醉名稱，擬行手術時間，手術類型，備注〕輸血申請表〔輸血申請號，ID號，申請科室，申請醫生，申請時間，申請狀態，西醫主診斷，預定輸血日期，輸血工程，輸血方法，血型，RH陰或陽，申請血量，血量單位，既往輸血情況〕病人就診記錄〔ID號，就診次數，就診科室，就診醫生編碼，就診日期，主要診斷，次要診斷，掛號科別，就診標志〕住院申請〔申請號，ID，申請科室，申請醫生，申請時間，病人根本病情，住院要求〕4.3.2物理構造〔二維表構造〕Ks科室字段名字段中文名數據類型長度是否為空備注dept_code科室編號varchar7否dept_name科室名稱varchar32是Mzys門診醫生字段名字段中文名數據類型長度是否為空備注dept_code科室編號varchar7否doctor_code醫生編號varchar7是doctor_name醫生varchar10否password口令varchar20是Mzbl門診病歷字段名字段中文名數據類型長度能否為空備注file_no門診病案號varchar12否patient_id病人ID號varchar12否patient_name病人varchar10否sex病人性別char2是age病人年齡int是date日期datetime否times就診次數int否modifier修改人varchar10是bl_content病歷容varchar1000否guidang_man歸檔人varchar10否guidang_time歸檔時間datetime否guidang_flag歸檔標志varchar2否sumofmoney金額float是patient_tel病人varchar16是patient_jg病人籍貫varchar10是patient_gj病人國籍varchar10是address病人住址varchar50是black_flag黑標志varchar2否Br**病人信息字段名字段中文名數據類型長度能否為空備注patient_id病人ID號varchar12否patient_ic病人IC號varchar12否patient_name病人varchar10是main_doctor主治醫師varchar7是yibao_type醫保類別varchar8是black_flag黑標志varchar2否Ywyz藥物醫囑字段名字段中文名數據類型長度能否為空備注order_no醫囑序號varchar12否patient_id病人ID號varchar12否dept_code科室編碼varchar7否order_doctor開醫囑醫生編碼varchar7是order_time開醫囑時間datetime否stop_doctor停醫囑醫生編碼varchar7是drug_name藥品名稱varchar20是drug_standard藥品規格varchar50是dosage單次劑量float是dosage_unit劑量單位varchar4是supply_way給藥途徑varchar5是frequence執行頻率varchar10是drip_speed滴速float是drip_speed_unit滴速單位varchar4是days天數smallint是drug_amount藥物數量float是drug_amount_unit數量單位varchar4是ment備注text是Zycf中醫處方字段名字段中文名數據類型長度能否為空備注chufang_no處方序號smallint否patient_id病人ID號varchar12否times就診次數int否chufang_type處方類型varchar10否detail_no明細序號smallint否charge_code工程序號varchar2否serial_no工程規格varchar2否herbal_amount草藥副數decimal〔8,2〕supply_way給藥方式varchar10否frequence次數代碼varchar10否dosage用量decimal〔12,4〕否dosage_unit用量單位varchar10否days天數smallintment注釋varchar150是skin_test_flag皮試標志char2是apply_dept開單科室varchar10否apply_doctor開單醫生varchar10否p_name打印名稱varchar10是Jcsqb檢查申請表字段名字段中文名數據類型長度能否為空備注jc_no檢查申請號int否patient_id病人ID號varchar12否times就診次數int否exam_objective檢查目的varchar50是exam_add_info檢查描述varchar50是image檢查影像image是order_no醫囑序號varchar12是apply_dept申請科室varchar7是apply_doctor申請醫生varchar10是apply_date申請時間datetime是charge_sn記賬序號int是charge_flag收費標志varchar2是charge_dept_no執行科室varchar7是manual_no執行人工號varchar50是check_no檢查號varchar20是check_way檢查方法varchar100是image_desc影像所見varchar1000是image_mind影像意見varchar1000是image_no影像號varchar18是record_opera申請人員varchar10是jc_location檢查部位varchar20是urgent_flag急檢標志varchar2是ment備注varchar50是Jysqb檢驗申請表字段名字段中文名數據類型長度能否為空備注jy_no檢驗申請號int否patient_id病人ID號varchar12否times就診次數int否apply_dept申請科室varchar7是apply_doctor申請醫生varchar10是apply_date申請時間datetime是apply_status申請狀態varchar2是charge_dept_no執行科室varchar7是manual_no執行人工號varchar50是exec_date執行時間datetime是record_opera申請人員varchar10是urgent_flag急檢標志varchar2是diagnose_name診斷名稱varchar20是check_item檢驗工程varchar8是如鈉，鉀check_sample檢驗標本varchar10是如全血ment備注varchar50是Sssqb手術申請表字段名字段中文名數據類型長度能否為空備注ss_no手術申請號int否patient_id病人ID號varchar12否apply_dept申請科室varchar10是apply_doctor申請醫生varchar10是apply_date申請時間datetime是apply_status申請狀態varchar2是zhuzhenduan手術前主診斷varchar20是opera_name手術名稱varchar20是narcosis_name麻醉名稱varchar10是opera_time手術時間datetime是opera_type手術類型varchar8是ment備注varchar150是Sxsqb輸血申請表字段名字段中文名數據類型長度能否為空備注sx_no輸血申請號int否patient_id病人ID號varchar12否apply_dept申請科室varchar10是apply_doctor申請醫生varchar10是apply_date申請時間datetime是apply_status申請狀態varchar2是zhuzhenduan西醫主診斷varchar20是predict_date預定輸血日期datetime否transfusion_item輸血工程varchar20否transfusion_way輸血方法varchar8是blood_type血型varchar5否RHRH為陰或陽varchar2是amount申請血量float是amount_unit血量單位varchar8是tran_history既往輸血情況varchar100是Brjzjl病人就診記錄字段名字段中文名數據類型長度能否為空備注patient_id病人ID號varchar12否主鍵times就診次數int否主鍵visit_dept就診科室varchar10是doctor_code就診醫生編碼varchar7是visit_date就診日期datetime是main_diagnose主要診斷varchar16是second_diagnose次要診斷varchar16是gh_dept掛號科別varchar10是visit_flag就診標志varchar2是Zysq住院申請字段名字段中文名數據類型長度能否為空備注zy_no申請號varchar12否patient_id病人ID號varchar12否apply_dept申請科室varchar10是apply_doctor申請醫生varchar10是apply_date申請時間datetime是patient_condition病人根本病情varchar100是patient_demand住院要求varchar100是4.4界面設計：代碼：//登陸unitUnit2;interfaceusesWindows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,Dialogs,StdCtrls,jpeg,ExtCtrls,DB,ADODB;typeTForm2=class(TForm)Image1:TImage;Label1:TLabel;Edit1:TEdit;Label2:TLabel;Edit2:TEdit;Button1:TButton;Button2:TButton;Image2:TImage;ADOConnection1:TADOConnection;ADOQuery1:TADOQuery;DataSource1:TDataSource;procedureButton1Click(Sender:TObject);procedureButton2Click(Sender:TObject);private{Privatedeclarations}public{Publicdeclarations}end;varForm2:TForm2;implementationusesUnit1;{$R*.dfm}procedureTForm2.Button1Click(Sender:TObject);beginadoquery1.Close;adoquery1.SQL.Clear;adoquery1.Sql.Add('selectdoctor_code,passwordfrommzyswheredoctor_code='+''''+edit1.Text+''''+'andpassword='+''''+edit2.Text+'''');adoquery1.Open;ifadoquery1.RecordCount=0thenbeginapplication.MessageBox('密碼錯誤，請重新輸入','提示',mb_ok);edit1.SetFocus;endelsebeginform1.Show;form2.hide;end;end;procedureTForm2.Button2Click(Sender:TObject);beginclose;end;End.//主業務unitUnit1;interfaceusesWindows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,Dialogs,StdCtrls,Ctrls,Menus,Mask,DB,ADODB,Grids,DBGrids,ExtCtrls,DBCtrls,RpCon,RpConDS,RpBase,RpSystem,RpDefine,RpRave;typeTForm1=class(TForm)MainMenu1:TMainMenu;N1:TMenuItem;N2:TMenuItem;N3:TMenuItem;N4:TMenuItem;N5:TMenuItem;N6:TMenuItem;N7:TMenuItem;N8:TMenuItem;N9:TMenuItem;PageControl1:TPageControl;TabSheet2:TTabSheet;GroupBox1:TGroupBox;Label1:TLabel;Label2:TLabel;Label4:TLabel;Label6:TLabel;Label7:TLabel;Label8:TLabel;Label10:TLabel;Edit1:TEdit;Edit4:TEdit;Edit5:TEdit;Edit7:TEdit;GroupBox2:TGroupBox;GroupBox4:TGroupBox;PageControl3:TPageControl;TabSheet9:TTabSheet;Label15:TLabel;Label16:TLabel;Label17:TLabel;Label18:TLabel;Label19:TLabel;Label20:TLabel;Label21:TLabel;Label22:TLabel;Label23:TLabel;Label24:TLabel;Label25:TLabel;Label26:TLabel;Label27:TLabel;Label28:TLabel;Label29:TLabel;Edit11:TEdit;Edit12:TEdit;Edit13:TEdit;Edit14:TEdit;Edit15:TEdit;Edit16:TEdit;Edit17:TEdit;Edit18:TEdit;Edit19:TEdit;Edit20:TEdit;TabSheet10:TTabSheet;Label30:TLabel;Label31:TLabel;Edit21:TEdit;CheckBox1:TCheckBox;TabSheet11:TTabSheet;Button3:TButton;Button4:TButton;TabSheet3:TTabSheet;Button7:TButton;Button8:TButton;Button9:TButton;TabSheet4:TTabSheet;Button13:TButton;Button15:TButton;Button17:TButton;TabSheet5:TTabSheet;TabSheet6:TTabSheet;TabSheet7:TTabSheet;Memo2:TMemo;TabSheet15:TTabSheet;DBGrid1:TDBGrid;Button10:TButton;Button11:TButton;Button12:TButton;DBGrid2:TDBGrid;ADOConnection1:TADOConnection;ADOQuery1:TADOQuery;ADOQuery2:TADOQuery;ADOQuery3:TADOQuery;ADOQuery4:TADOQuery;ADOQuery5:TADOQuery;ADOQuery6:TADOQuery;ADOQuery7:TADOQuery;ADOQuery8:TADOQuery;ADOQuery9:TADOQuery;DataSource1:TDataSource;DataSource2:TDataSource;DataSource3:TDataSource;DataSource4:TDataSource;DataSource5:TDataSource;DataSource6:TDataSource;DataSource7:TDataSource;DBGrid3:TDBGrid;Button19:TButton;Button25:TButton;Button26:TButton;DBGrid4:TDBGrid;DBGrid5:TDBGrid;Button18:TButton;Button22:TButton;DataSource8:TDataSource;DataSource9:TDataSource;Label12:TLabel;Edit8:TEdit;Label13:TLabel;Label14:TLabel;Edit9:TEdit;Label32:TLabel;Label33:TLabel;Label34:TLabel;Label35:TLabel;MaskEdit2:TMaskEdit;Edit10:TEdit;Edit22:TEdit;Edit23:TEdit;Label36:TLabel;Edit24:TEdit;Label38:TLabel;Edit26:TEdit;CheckBox2:TCheckBox;Label39:TLabel;Memo1:TMemo;Label40:TLabel;Memo4:TMemo;Label41:TLabel;Memo5:TMemo;Label42:TLabel;Edit27:TEdit;Label43:TLabel;Edit28:TEdit;Label44:TLabel;Edit29:TEdit;Label45:TLabel;Edit30:TEdit;Label46:TLabel;Edit31:TEdit;Label48:TLabel;Label49:TLabel;Edit34:TEdit;CheckBox3:TCheckBox;Label50:TLabel;Edit35:TEdit;Label51:TLabel;Edit36:TEdit;Label52:TLabel;Memo6:TMemo;Label11:TLabel;Label3:TLabel;Label53:TLabel;Label54:TLabel;Label56:TLabel;Label57:TLabel;Edit37:TEdit;Edit38:TEdit;Edit39:TEdit;Edit43:TEdit;Label58:TLabel;Edit44:TEdit;Label59:TLabel;Edit45:TEdit;Label60:TLabel;Edit46:TEdit;Label61:TLabel;Memo7:TMemo;DBGrid6:TDBGrid;Label62:TLabel;Edit47:TEdit;Label63:TLabel;Edit48:TEdit;Label64:TLabel;Edit49:TEdit;Label65:TLabel;Label67:TLabel;Edit52:TEdit;Label68:TLabel;MaskEdit3:TMaskEdit;Label69:TLabel;Edit53:TEdit;Label70:TLabel;Edit54:TEdit;Label71:TLabel;boBox1:TboBox;Label72:TLabel;boBox2:TboBox;Label73:TLabel;Edit55:TEdit;Label74:TLabel;Edit56:TEdit;Label75:TLabel;Memo8:TMemo;Button14:TButton;Button16:TButton;Button23:TButton;Label76:TLabel;Edit57:TEdit;Label77:TLabel;Edit58:TEdit;Label78:TLabel;Edit59:TEdit;Label79:TLabel;Edit60:TEdit;Label80:TLabel;Edit61:TEdit;Label81:TLabel;Edit62:TEdit;Label82:TLabel;Edit63:TEdit;Label83:TLabel;Edit64:TEdit;Label84:TLabel;Edit65:TEdit;Label85:TLabel;Edit66:TEdit;Label86:TLabel;Edit67:TEdit;Label87:TLabel;Edit68:TEdit;CheckBox4:TCheckBox;Label88:TLabel;Edit69:TEdit;Label89:TLabel;Edit70:TEdit;Label90:TLabel;Memo9:TMemo;Label91:TLabel;Edit71:TEdit;Label92:TLabel;Edit72:TEdit;Label93:TLabel;Edit73:TEdit;Label94:TLabel;Edit74:TEdit;Label95:TLabel;Edit75:TEdit;Label96:TLabel;Edit76:TEdit;Label97:TLabel;Edit77:TEdit;Label98:TLabel;Edit78:TEdit;Label99:TLabel;Edit79:TEdit;Label100:TLabel;Edit80:TEdit;Label101:TLabel;Edit81:TEdit;Label102:TLabel;Edit82:TEdit;Label103:TLabel;Edit83:TEdit;Label104:TLabel;Edit84:TEdit;Label105:TLabel;Edit85:TEdit;Label106:TLabel;Memo10:TMemo;Label107:TLabel;Button24:TButton;Button27:TButton;MaskEdit4:TMaskEdit;Button28:TButton;Label108:TLabel;MaskEdit5:TMaskEdit;MaskEdit6:TMaskEdit;MaskEdit7:TMaskEdit;MaskEdit8:TMaskEdit;MaskEdit9:TMaskEdit;Button29:TButton;CheckBox5:TCheckBox;Label37:TLabel;Edit3:TEdit;Label47:TLabel;Edit25:TEdit;Button30:TButton;Button21:TButton;Label55:TLabel;Edit32:TEdit;Button31:TButton;Label66:TLabel;Label109:TLabel;Label5:TLabel;Edit2:TEdit;Label110:TLabel;Edit33:TEdit;Label111:TLabel;Edit40:TEdit;Panel1:TPanel;Label116:TLabel;Label117:TLabel;Label118:TLabel;Label119:TLabel;Label120:TLabel;Edit41:TEdit;Edit42:TEdit;Edit50:TEdit;Button1:TButton;Button2:TButton;DataSource10:TDataSource;ADOQuery10:TADOQuery;Label9:TLabel;Edit6:TEdit;Edit51:TEdit;Edit86:TEdit;TabSheet12:TTabSheet;Label121:TLabel;Memo11:TMemo;Label122:TLabel;Memo12:TMemo;Label123:TLabel;Edit87:TEdit;Label124:TLabel;Edit88:TEdit;Label125:TLabel;ADOQuery11:TADOQuery;DataSource11:TDataSource;Button5:TButton;DBGrid7:TDBGrid;Button6:TButton;Button32:TButton;Button33:TButton;Label126:TLabel;Edit90:TEdit;GroupBox3:TGroupBox;Label112:TLabel;Label113:TLabel;Memo3:TMemo;RvProject1:TRvProject;RvSystem1:TRvSystem;RvDataSetConnection1:TRvDataSetConnection;Button20:TButton;Label114:TLabel;MaskEdit1:TMaskEdit;RvProject2:TRvProject;RvSystem2:TRvSystem;RvDataSetConnection2:TRvDataSetConnection;Button34:TButton;Button35:TButton;procedureButton19Click(Sender:TObject);procedureButton25Click(Sender:TObject);procedureButton26Click(Sender:TObject);procedureButton24Click(Sender:TObject);procedureButton14Click(Sender:TObject);procedureButton23Click(Sender:TObject);procedureButton27Click(Sender:TObject);procedureButton16Click(Sender:TObject);procedureButton13Click(Sender:TObject);procedureButton15Click(Sender:TObject);procedureButton28Click(Sender:TObject);procedureButton17Click(Sender:TObject);procedureButton7Click(Sender:TObject);procedureButton8Click(Sender:TObject);procedureButton29Click(Sender:TObject);procedureButton9Click(Sender:TObject);procedureButton18Click(Sender:TObject);procedureButton22Click(Sender:TObject);procedureButton30Click(Sender:TObject);procedureButton21Click(Sender:TObject);procedureButton10Click(Sender:TObject);procedureButton11Click(Sender:TObject);procedureButton31Click(Sender:TObject);procedureButton12Click(Sender:TObject);procedureButton3Click(Sender:TObject);procedureButton4Click(Sender:TObject);procedureButton5Click(Sender:TObject);procedureButton6Click(Sender:TObject);procedureButton32Click(Sender:TObject);procedureButton33Click(Sender:TObject);procedureFormCreate(Sender:TObject);procedureButton1Click(Sender:TObject);procedureButton20Click(Sender:TObject);procedureButton35Click(Sender:TObject);procedureButton2Click(Sender:TObject);private{Privatedeclarations}public{Publicdeclarations}end;varForm1:TForm1;implementationusesUnit3;{$R*.dfm}//中醫處方//添加procedureTForm1.Button19Click(Sender:TObject);varpishi:string;beginifcheckbox1.Checkedthenpishi:='是'elsepishi:='否';withadoquery3dobeginclose;sql.Clear;sql.Add('insertintozycfvalues(:a1,:a2,:a3,:a4,:a5,:a6,:a7,:a8,:a9,:a10,:a11,:a12,:a13,:a14,:a15,:a16,:a17)');parameters.ParamByName('a1').Value:=edit57.Text;//處方序號parameters.ParamByName('a2').Value:=label107.Caption;//病人IDparameters.ParamByName('a3').Value:=edit58.Text;//就診次數parameters.ParamByName('a4').Value:=edit59.Text;//處方類型parameters.ParamByName('a5').Value:=edit60.Text;//明細序號parameters.ParamByName('a6').Value:=edit61.Text;//工程序號parameters.ParamByName('a7').Value:=edit62.Text;//工程規格parameters.ParamByName('a8').Value:=edit63.Text;//草藥副數parameters.ParamByName('a9').Value:=edit64.Text;//給藥方式parameters.ParamByName('a10').Value:=edit65.Text;//次數代碼parameters.ParamByName('a11').Value:=edit66.Text;//用量parameters.ParamByName('a12').Value:=edit67.Text;//用量單位parameters.ParamByName('a13').Value:=edit68.Text;//天數parameters.ParamByName('a14').value:=memo9.Text;//注釋parameters.ParamByName('a15').Value:=pishi;//皮試標志parameters.ParamByName('a16').Value:=edit69.Text;//開單科室parameters.ParamByName('a17').Value:=edit70.Text;//開單醫生execsql;close;sql.Clear;sql.Add('select*frommzcf');open;end;end;//刪除procedureTForm1.Button25Click(Sender:TObject);beginwithadoquery3dobeginclose;sql.Clear;sql.Add('deletefrommzcfwherechufang_no=:a1');parameters.ParamByName('a1').Value:=edit57.Text;execsql;close;sql.Clear;sql.Add('select*frommzcf');open;end;end;//保存procedureTForm1.Button26Click(Sender:TObject);beginadoquery3.Post;end;//修改procedureTForm1.Button24Click(Sender:TObject);beginadoquery3.Edit;end;//輸血申請表//添加procedureTForm1.Button14Click(Sender:TObject);beginwithadoquery9dobeginclose;sql.Clear;sql.Add('insertintosxsqbvalues(:a1,:a2,:a3,:a4,:a5,:a6,:a7,:a8,:a9,:a10,:a11,:a12,:a13,:a14,:a15)');parameters.ParamByName('a1').Value:=edit47.Text;//輸血申請號parameters.ParamByName('a2').Value:=label107.Caption;//病人IDparameters.ParamByName('a3').Value:=edit48.Text;//申請科室parameters.ParamByName('a4').Value:=edit49.Text;//申請醫生parameters.ParamByName('a5').Value:=maskedit4.Text;//申請時間parameters.ParamByName('a6').Value:=edit3.Text;//申請狀態parameters.ParamByName('a7').Value:=edit52.Text;//西醫主診斷parameters.ParamByName('a8').Value:=maskedit3.text;//預定輸血日期parameters.ParamByName('a9').Value:=edit54.Text;//輸血工程parameters.ParamByName('a10').Value:=edit53.Text;//輸血方法parameters.ParamByName('a11').Value:=bobox1.Text;//血型parameters.ParamByName('a12').Value:=bobox2.Text;//RH陰或陽parameters.ParamByName('a13').Value:=edit55.Text;//申請血量parameters.ParamByName('a14').Value:=edit56.Text;//血量單位parameters.ParamByName('a15').value:=memo8.Text;//既往輸血情況execsql;close;sql.Clear;sql.Add('select*fromsxsqb');open;end;end;//刪除procedureTForm1.Button23Click(Sender:TObject);beginwithadoquery9dobeginclose;sql.Clear;sql.Add('deletefromsxsqbwheresx_no=:a1');parameters.ParamByName('a1').Value:=edit47.Text;execsql;close;sql.Clear;sql.Add('select*fromsxsqb');open;end;end;//修改procedureTForm1.Button27Click(Sender:TObject);beginadoquery9.Edit;end;//保存procedureTForm1.Button16Click(Sender:TObject);beginadoquery9.Post;end;//藥物醫囑//保存procedureTForm1.Button13Click(Sender:TObject);beginwithadoquery8dobeginclose;sql.Clear;sql.Add('insertintoywyzvalues(:a1,:a2,:a3,:a4,:a5,:a6,:a7,:a8,:a9,:a10,:a11,:a12,:a13,:a14,:a15,:a16,:a17,:a18)');parameters.ParamByName('a1').Value:=edit71.Text;//醫囑序號parameters.ParamByName('a2').Value:=label107.Caption;//病人IDparameters.ParamByName('a3').Value:=edit72.Text;//科室編號parameters.ParamByName('a4').Value:=edit73.Text;//開醫囑醫生編碼parameters.ParamByName('a5').Value:=maskedit5.Text;//開醫囑時間parameters.ParamByName('a6').Value:=edit74.Text;//停醫囑醫生編碼parameters.ParamByName('a7').Value:=edit75.Text;//藥品名稱parameters.ParamByName('a8').Value:=edit76.Text;//藥品規格parameters.ParamByName('a9').Value:=edit77.Text;//單次劑量parameters.ParamByName('a10').Value:=edit78.Text;//劑量單位parameters.ParamByName('a11').Value:=edit79.Text;//給藥途徑parameters.ParamByName('a12').Value:=edit80.Text;//執行頻率parameters.ParamByName('a13').Value:=edit81.Text;//滴速parameters.ParamByName('a14').value:=edit82.Text;//滴速單位parameters.ParamByName('a15').Value:=edit83.Text;//天數parameters.ParamByName('a16').Value:=edit84.Text;//藥物數量parameters.ParamByName('a17').Value:=edit85.Text;//數量單位parameters.ParamByName('a18').Value:=memo10.Text;//備注execsql;close;sql.Clear;sql.Add('select*fromywyz');open;end;end;//刪除procedureTForm1.Button15Click(Sender:TObject);beginwithadoquery8dobeginclose;sql.Clear;sql.Add('deletefromywyzwhereorder_no=:a1');parameters.ParamByName('a1').Value:=edit71.Text;