【正文】 新建一程序文件，保存在 醫(yī)院 病歷 管理系統(tǒng) \ 中，其相關(guān)代碼設(shè)臵為： SET TALK off set sysmenu off set cent on SET TALK off set sysmenu off set cent on e=2 =icons\ =0 on=1 ble=.f. =RGB(50,100,128) amp。 3）、表單構(gòu)成相關(guān)源代碼： 醫(yī)務(wù)人員管理系統(tǒng)銨鈕代碼： set path to 醫(yī)院 病歷 管理系統(tǒng) do form 醫(yī)務(wù)人員基本情況表單 .scx 病人管理銨鈕代碼： set path to 醫(yī)院 病歷 管理系統(tǒng) do form 病人就診情況表單 .scx 關(guān)閉銨鈕代碼： () 密碼表單 1）、表單運行時的窗體如下： 2）、表單構(gòu)成相關(guān)控件和事件： 新建一表單，保存在 醫(yī)院 病歷 管理系統(tǒng) \密碼表單 .scx 下，修改表單的 caption 屬性為“用戶權(quán)限驗證窗口”；為 表單引入密碼表數(shù)據(jù)表作為數(shù)據(jù)環(huán)境，在表單上放臵兩個標(biāo)簽控件，修改其 Caption 屬性為“用戶名”、“密碼”；放臵兩個命令銨鈕，修改其 Caption 屬性為“確認(rèn)”、“退出”；在表單上放臵一個組合框控件 bo1,一個文本框控件 TEXT1，文本框控件用于輸入系統(tǒng)登錄時的密碼；在組合框控件 bo1 的生成器選項中設(shè)臵數(shù)據(jù)庫和表為密碼表，可用字段為密碼，選定字段為用戶名，列選項中選擇用戶名作為返回值，字段名為密碼表 .用戶名。 醫(yī)務(wù)人員基本情況表 .readonly=.t. =.t. =.t. endif 醫(yī)務(wù)人員基本情況表 .setfocus 醫(yī)務(wù)人員基本情況表 .refresh 刪除銨鈕代碼： sele 醫(yī)務(wù)人員基本情況表 醫(yī)務(wù)人員基本情況表 .setfocus if messagebox(是否刪除當(dāng)前記錄 ! ,32+4+256,刪除記錄 )=6 = 醫(yī)務(wù)人員基本情況表 .recordsource delete next 1 pack 醫(yī)務(wù)人員基本情況表 .recordsource= endif 刪除銨鈕代碼： IF sys(102)!=OFF ELSE =messagebox(打印機沒有準(zhǔn)備好！ ,0+48,警告 ) ENDIF 打印銨鈕代碼： IF sys(102)!=OFF ELSE =messagebox(打印機沒有準(zhǔn)備好！ ,0+48,警告 ) ENDIF 查詢銨鈕代碼： do form 醫(yī)院 病歷 管理系統(tǒng) \醫(yī)務(wù)人員查詢表單 .scx 關(guān)閉銨鈕代碼： 醫(yī)務(wù)人員查詢表單 1）、表單運行時的窗體如下： 2）、表單構(gòu)成相關(guān)控件和事件 新建一表單，保存在 醫(yī)院 病歷 管理系統(tǒng) \醫(yī)務(wù)人員查詢表單 .scx 下，修改表單的 caption 屬性為“醫(yī)務(wù)人員查詢表單”；為表單引入醫(yī)務(wù)人員基本情況表數(shù)據(jù)表數(shù)據(jù)環(huán)境，拖放醫(yī)務(wù)人員基本情況表數(shù)據(jù)表字段到表單中，形成一個 grd 醫(yī)務(wù)人員基本情況表；在表單上放臵一個選項按鈕組控件，用它的生成器選項生成 兩個選項銨鈕，修改其caption 屬性為“按姓名查找”、“按工號查找”；在表單上放臵一個標(biāo)簽控件，一個文本框控件，一個命令銨鈕組控件生成的兩個命令選項銨鈕，分別修改其 caption 屬性為“請輸入工號或姓名”，“查找”、“結(jié)束查找”。 =.f. =.f. else =39。 醫(yī)務(wù)人員基本情況表 .readonly=.f. =39。 醫(yī)務(wù)人員基本情況表 .readonly=.t. =.t. =.t. endif 醫(yī)務(wù)人員基本情況表 .setfocus 醫(yī)務(wù)人員基本情況表 .refresh 編輯銨鈕代碼： if =39。 =.f. =.f. appe blan else =39。 醫(yī)務(wù)人員基本情況表 .readonly=.f. =39。) 添加按鈕代碼： if =39。, 0 , 39。) endif 最后一條記錄代碼： 醫(yī)務(wù)人員基本情況表 .setfocus go bottom messagebox(39。, 0 ,39。) endif 下一條記錄代碼： 醫(yī)務(wù)人員基本情況表 .setfocus if not eof() skip else messagebox(39。, 0 ,39。) 前一條記錄代碼： 醫(yī)務(wù)人員基本情況表 .setfocus if reo()1 skip 1 else messagebox(39。, 0 ,39。 3）、表單構(gòu)成相關(guān)源代碼： 第一條記錄代碼： 醫(yī)務(wù)人員基本情況表 .setfocus go top messagebox(39。 3）、表單構(gòu)成相關(guān)源代碼： 查找銨鈕源代碼： 病人就診情況表 .setfocus do case case =1 locate all for alltrim( 病 人 就 診 情 況 表 . 姓名 )==alltrim() if found() y=reo() go y messagebox(病人已經(jīng)找到 !) else messagebox(未找到此病人 ,請確認(rèn) !) endif case =2 locate all for alltrim( 病人就診 情況表 . 就診科室 )==alltrim() if found() y=reo() go y messagebox(病人已經(jīng)找到 !) else messagebox(未找到此病人 ,請確認(rèn) !) endif endcase 結(jié)束查找銨鈕代碼： 醫(yī)務(wù)人員基本情況表 1）、表單運行時的窗體界面如下： 2）、表單構(gòu)成相關(guān)事件和控件： 新建一表單，保存在 醫(yī)院 病歷 管理系統(tǒng) 下，命名為 醫(yī)務(wù)人員基本情況表 .scx,修改表單的 Caption 屬性為“醫(yī)務(wù)人員基本情況 表 ”；為表單引入醫(yī)務(wù)人員基本情況 表 數(shù)據(jù)表數(shù)據(jù)環(huán)境，拖放醫(yī)務(wù)人員基本情況 表數(shù)據(jù)表字段到表單中，形成一個 grd 醫(yī)務(wù)人員基本情況 表 。編輯 39。保存 39。編輯 39。添加 39。保存 39。添加 39。記錄信息 39。記錄在未尾了 39。記錄信息 39。記錄已經(jīng)在未尾了 39。記錄信息 39。記錄已經(jīng)在第一條了 39。記錄信息 39。記錄已經(jīng)在第一條 39。在表單上放臵兩個命令銨鈕組選項銨鈕控件，并用它的生成器選項生成 10 個命令銨鈕，分別修改命令銨鈕的 Caption 屬性為“第一條記錄”、“下一條記錄”、“前一條記錄”、“最后一條記錄”、“添加”、“編輯”、“刪除”、“打印”、“查詢”、“關(guān)閉”。 第四章 醫(yī)院 病歷 管理系統(tǒng)的實現(xiàn) 按結(jié)構(gòu)化的程序設(shè)計思想，在完成了系統(tǒng)分析、系統(tǒng)設(shè)計后，就可以 進行系統(tǒng)實現(xiàn)階段了，系統(tǒng)實現(xiàn)是每指把系統(tǒng)的物理模型轉(zhuǎn)換成實際運行系統(tǒng)的全過程。在上一章的系統(tǒng)分析和前面的設(shè)計中，系統(tǒng)的功能模塊已經(jīng)較為清楚了： 1〃 醫(yī)務(wù)人員管理 模塊 2 〃 病人管理模塊 在實際的菜單設(shè)計中，這些功能模塊可以于不同的菜單項出現(xiàn)。 該模塊可以實現(xiàn)病人就診的信息包括姓名 ,性別 ,年齡 ,就診科室 ,診療方法 ,就診日期 ,診斷結(jié)果 ,病歷 (規(guī)定用備 注字段 )等的查詢 ,插入 ,刪除 ,和打印 ,修改等。 系統(tǒng)功能模塊設(shè)計 對上述各項功能進行集中，分塊，按照結(jié)構(gòu)化程序設(shè)計的要 求，得到如圖所示的系統(tǒng)功能模塊圖： 通過以上的系統(tǒng)功能模塊結(jié)構(gòu)圖我們可以看出系統(tǒng)分為兩大模塊：醫(yī)務(wù)人員基本情況管理管理模塊和病人就診信息情況模塊下面我將對每個模塊的總體設(shè)計作簡要說明。 ● 病人信息的修改。 ● 有關(guān)病人基本信息的錄入。 ● 醫(yī)務(wù)人員信息的修改。醫(yī)療信息管理系統(tǒng)需要完成的功能主要有： ● 有關(guān)醫(yī)務(wù)人員基本信息的錄入。 系統(tǒng)功能分析 系統(tǒng)開發(fā)的總體任務(wù)是實現(xiàn)醫(yī)療信息管理的系統(tǒng)化、規(guī)范化、自動化。 ● 系統(tǒng)采用模塊化程序設(shè)計方法，既便于系統(tǒng)功能的各種組合和修改，又便于未參與開發(fā)的技術(shù)維護人員補充、維護。 本系統(tǒng)開發(fā)設(shè)計思想： ● 盡量采用醫(yī)院現(xiàn)有的軟硬件環(huán)境，及先進的管理系統(tǒng)開發(fā)方案，從而達到充分利用醫(yī)院現(xiàn)有資源，提高系統(tǒng)開發(fā)水平和應(yīng)用效果的目的。在手工管理的時代或者數(shù)據(jù)庫管理系統(tǒng)設(shè)計不科學(xué)的話就會造成管理數(shù)據(jù)混亂，數(shù)據(jù)庫相關(guān)數(shù)據(jù)的沒有很好的關(guān)聯(lián)，造成數(shù)據(jù)的不一致性時有發(fā)生。 系統(tǒng)目標(biāo)分析 系統(tǒng)開發(fā)的總體任務(wù)是實現(xiàn)醫(yī)療信息管理的系統(tǒng)化、規(guī)范化和自動化，從而達到提高醫(yī)院對醫(yī)療信息管理的效率的目的。 病人 增刪實現(xiàn)了對數(shù)據(jù)庫中 病人患者 信息的增加和刪除 。 病人管理 模塊 病人管理 模塊具有 對 病 人 患者 信息輸入、 編輯、 刪 除、 查詢 、瀏覽五 個功能。 醫(yī)務(wù)人員 增刪實現(xiàn)了對數(shù)據(jù)庫中 醫(yī)務(wù)人員 信息的增加和刪除。該管理系統(tǒng)的主要功能如圖 所示： 醫(yī)院病歷管理系統(tǒng) 醫(yī)務(wù)人員管理 病人管理 圖 系統(tǒng)功能模塊圖 功能需求描述 醫(yī)務(wù)人員管理 模塊 醫(yī)務(wù)人員管理 模塊具有 對 醫(yī)務(wù) 人 員 信息輸入、 編輯、 刪 除、 查詢 、瀏覽五 個功能。 針對的是醫(yī)務(wù) 人員和患者 比較少 的情況而設(shè)計的 ，人員結(jié)構(gòu)比較簡單，部門劃分也很清晰，而且人員的流動性不高，所以 對該系統(tǒng) 的要求并不高。 第三章 醫(yī)院 病歷 管理系統(tǒng)分析與設(shè)計 系統(tǒng)功能需求簡介 醫(yī)院 病歷 管理系統(tǒng) 對 醫(yī)院 加強 醫(yī)務(wù)人員和患者 管理有著極其重要的作用，就一般的大型 醫(yī)院 來說，它的設(shè)計內(nèi)容非常復(fù)雜而且繁多，比如擁有 計算功能， 統(tǒng)計功能，報表輸出功能，而且設(shè)計的模塊也很多，比如管理模塊，統(tǒng)計模塊，報表設(shè)計模塊，打印輸出模塊，模糊查詢模塊等等 。 系統(tǒng)評價主要是指系統(tǒng)建成后，經(jīng)過一 段時間的運行后，要對系統(tǒng)目標(biāo)與功能的實現(xiàn)情況進行檢查，并與系統(tǒng)開發(fā)中設(shè)立的系統(tǒng)預(yù)期目標(biāo)進行對比，及時寫出系統(tǒng)評價報告。 管理信息系統(tǒng)是一個復(fù)雜的人機系統(tǒng)。 在進行以上各個環(huán)節(jié)的同時展 開人員培訓(xùn)工作，包括管理信息系統(tǒng)只是的普及教育、新制度的學(xué)習(xí)、計算機操作訓(xùn)練等。 數(shù)據(jù)準(zhǔn)備與錄入工作主要是指由手工操作轉(zhuǎn)入計算機處理所需的各種數(shù)據(jù)的整理、錄入及計算機系統(tǒng)中為新系統(tǒng)所用數(shù)據(jù)的轉(zhuǎn)換工作?？梢詰?yīng)用各種項目管理的軟件和方法進行管理，實行項目經(jīng)理負(fù)責(zé)制，保證系統(tǒng)實施工作的順利進行和成功。 系統(tǒng)實施與轉(zhuǎn)換 系統(tǒng)實施階段的主要工作包括：系統(tǒng)硬件的購臵與安裝、程序的編寫 (購買 )與調(diào)試、系統(tǒng)操作人員的培訓(xùn)、系統(tǒng)有關(guān)數(shù)據(jù)的準(zhǔn)備和錄入、系統(tǒng)調(diào)試和轉(zhuǎn)換。這一階段的重點是設(shè)計好系統(tǒng)的總體結(jié)構(gòu)，選擇最經(jīng)濟合理的技術(shù)手段。系統(tǒng)設(shè)計要根據(jù)系統(tǒng)分析報告中的系統(tǒng)邏輯模型綜合考慮各種約束，利用一切可利用的技術(shù)手段和方法進行各種具體設(shè)計，確定新系統(tǒng)的實施方案，解決“系統(tǒng)怎么做”的問題。用戶可以對新系統(tǒng)的邏輯模型提出意見，雙方經(jīng)過討論、修改，最后達成共識，并完成系統(tǒng)分析報告 (系統(tǒng)邏輯設(shè)計說明書 )，經(jīng)有關(guān)領(lǐng)導(dǎo)審批通過之后，轉(zhuǎn)入系統(tǒng)設(shè)計 (又稱系統(tǒng)物理設(shè)計 )階段。在系統(tǒng)設(shè)計階段要做認(rèn)真、細(xì)致的分析、研究工作，避免新系統(tǒng)在 功能上存在先天不足或缺陷。最后要完成系統(tǒng)分析報告 (也稱為系統(tǒng)邏輯設(shè)計說明書 )。 （ 6）新系統(tǒng)的功能和目標(biāo)：了解各級領(lǐng)導(dǎo)和各類業(yè)務(wù)工作人員對新系統(tǒng)功能的要求，系統(tǒng)分析 (又稱邏輯設(shè)計 )是管理信息系統(tǒng)開 發(fā)的關(guān)鍵環(huán)節(jié)，要求在系統(tǒng)調(diào)查的基礎(chǔ)上，對新系統(tǒng)的功能進行細(xì)致的分析，并建立一個新系統(tǒng)的邏輯模型。 （ 5）問題：現(xiàn)行系統(tǒng)中存在的主要問題和薄弱環(huán)節(jié)，可以按照嚴(yán)重程度分成不同的等級。調(diào)查中要注意定性與定量相結(jié)合，注意人、財、物、信息的流向、規(guī)格、頻率、要求以及需要解決的問題等。 （ 2）組織機構(gòu)：畫出組織的組織結(jié)構(gòu)圖，弄清組織的行政關(guān)系、人員編制、工作范圍、地理位臵等，發(fā)現(xiàn)不合理問題及新系統(tǒng)啟動后可能對現(xiàn)有組織的影響。 調(diào)研的主要內(nèi)容有： （ 1）現(xiàn)行系統(tǒng)概況：該組織的發(fā)展歷史、目前組織的規(guī)模、工作狀況、管理水平、與外界的主要聯(lián)系等。 系統(tǒng)開發(fā)準(zhǔn)備 系統(tǒng)開發(fā)準(zhǔn)備工作主要包括提出系統(tǒng)開發(fā)要求、成立系統(tǒng)開發(fā)小組、制訂系統(tǒng)開發(fā)計劃等工作。 管理信息系統(tǒng)的開發(fā)過程 管理信息系統(tǒng)的開發(fā)過程一般包括系統(tǒng)開發(fā)準(zhǔn)備、系統(tǒng)調(diào)查、系統(tǒng)分析、系統(tǒng)設(shè)計、系統(tǒng)實現(xiàn)、系統(tǒng)轉(zhuǎn)換、系統(tǒng)運行與維護、系統(tǒng)評價等步驟。缺點是雙方在合作中溝通易出現(xiàn)問題，需要雙方及時達成共識，進行協(xié)調(diào)和檢查。雙方共享開發(fā)成果，實際上是一種半委托性質(zhì)的開發(fā)工作。此種開發(fā)方式需要使用單位的業(yè)務(wù)骨干參與系統(tǒng)的論證工作，開發(fā)過程中需要開發(fā)單位和使用單位雙方及時溝通，進行 協(xié)調(diào)和檢查。委