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