【正文】 功時可以更改密碼。如圖 41所示： 圖 41 用戶登記界面 部分代碼實現(xiàn) 如下： //登錄 if trim() = 39。39。 then msg(請輸入用戶編碼！ ) = 39。39。 () 23 (1, len()) return else if trim() = 39。39。 then msg(請輸入密碼！ ) ( ) return end if end if long ll_yhzid string ls_yhzmc ll_yhzid= ( ( ) , yhz) if not () then (登錄提示 , 不存在該用戶，請重新輸入 !) () (1,len()) return end if if not trim((, ll_yhzid)) = then (系統(tǒng)提示 , 密碼輸入錯誤 ,請重新輸入 !) () (1,200) return end if select , 24 into :,:,:gnv_RightM from xt_ks, xt_yhz where = and = :ll_yhzid and isnull(tybz,0)= 0。 if then //登陸成功時更改密碼 () open(w_chgpwd) end if () ib_exit = true closewithreturn(parent, ) 2．門診收費界面 門診收 費窗口首先顯示的是普通的收費項目，如果不是顯示普通的收費，按下 F5鍵即可。普通收費窗口分為三屏，窗口的上方顯示病人信息和掛號信息。在掛號編碼處選擇掛號單號碼，在醫(yī)生處選擇病人就診的醫(yī)生。窗口就會中間顯示病人就診信息，中的左邊顯示就診和領用藥物信息以及所需要的費用；單擊一行信息，就會在窗口中間的右邊顯示出這些信息的明細。窗口下方顯示發(fā)票信息和收費信息。發(fā)票號和合計系統(tǒng)已自動給出。在支付方式處選擇支付方式，折扣方式處選擇折扣方式。在收取處輸入所收到的費用，備注處可以添加備注。單擊 ，出現(xiàn)一個窗口，將收費信息保存 。如圖42 所示： 25 圖 42 門診收費 部分代碼實現(xiàn) 如下： //收費 if ( ) = 0 then msg(無收費項目！ ) return end if //進行收費 if dec() 0 then msg(請輸入正確的收取金額！ ) = = return end if if dec() 0 or =39。39。 then msg(收取的金額不足！ ) = 26 = return end if //保存數(shù)據 nvoc_update data datastore ds_temp[] ds_temp[1]=ids_fyd ds_temp[2]=ids_fydmx ds_temp[3]=ids_sf ds_temp[4]=ids_zfxx ds_temp[5]=ids_yzxx if ()0 then ds_temp[6]= ids_grzh end if if (ds_temp)=false then MessageBox(錯誤 ,保存失敗！ ,StopSign!) messagebox(錯誤原因 , , StopSign!) //窗口初始化 // if not =2 then () //如果不是特殊門診就初始化 setfocus() end if = true //可以保存 ibl_cansave=true (0) datawindowchild dwc_child (ghid,dwc_child) ( sqlca) ( ) 27 ue_clearhj() 3．醫(yī)生工作站 — 保存 醫(yī)囑 界面 進入醫(yī)生工作站，醫(yī)生給病人就診時給病人開醫(yī)囑。 選擇藥 品分 類，輸入藥品的代碼，發(fā)藥量、藥品的用法、單次的劑量、給藥的時間 ； 保存數(shù)據—— 保存醫(yī)囑，首先保存治療信息和注射信息；更新醫(yī)囑中的處方號，因為處方號直接跟收費掛鉤，（同一類項目得到同一個處方號），然后調用存儲過程進行醫(yī)囑計價；將處方醫(yī)囑信息加入病歷中，判斷是否打印單據。如圖 43所示： 圖 43 醫(yī)生工作站 — 保存醫(yī)囑 部分 代碼 實現(xiàn) 如下： //醫(yī)生 long ll_yzh, ll_yzxh, ll_row, ll_yzrow //醫(yī)囑序號、醫(yī)囑以及子囑的行號 long ll_yzhsl //醫(yī)囑號數(shù)量 string ls_yzh, ls_yzh2, ls_yzh3, ls_yzh4 //醫(yī)囑號列表 long ll_yzfzh ,ll_zssl= 0 ,ll_zlsl =0 //醫(yī)囑分組號 , 數(shù)量 boolean lb_ypbz //藥品醫(yī)囑標志 integer li_yzxmid,li_temp //處理超額劑量 datetime t Boolean ll_pdzl = false, lb_pdzld= false //處理是否能開注射單 , 初 28 始值 false integer ll_derow, ni string ls_yzh_zs, ls_yz_zl t= datetime(gf_getserverdatetime()) //取得當前時間 if ( )= 1 then messageBox(提示 ,你的輸入有誤 !) return end if //保存數(shù)據 = false if (true, false)=1 then //注意 true,false rollback。 = true MessageBox(錯誤 ,醫(yī)囑保存失??！ ) return end if long ll_zldh, ll_zsdh integer li //產生治療號 if ll_zlsl 0 then ll_zldh= long(gf_gethmb(mzzldh, ll_zlsl)) ll_zlsl for ll_row =1 to () ll_zldh ++。 (ll_row, zldh,ll_zldh) //觸發(fā)器插入 mys_zld_zx next if (true, false)=1 then //注意 true,false rollback。 29 = true MessageBox(錯誤 ,治療保存失?。?) return end if end if //自動插入門診病歷 wf_yztobl() MessageBox(提示 ,保存成功 !) //判斷有無打印單據 datastore ds_print ds_print= create datastore = d_mys_yzlr_dydj (sqlca) (ls_yzh) if () 0 then openwithparm(w_mys_yzlr_dydj, ls_yzh) end if //刷新 () () ue_retrieve_yz() 30 參考文獻 [1]薩師煊，王珊：《數(shù)據庫系統(tǒng)概論》 [M]，高等教育出版社， 1991： 459500. [2]王冬等， 2021?，F(xiàn)代醫(yī)院管理理路與方法，上?？茖W技術文獻出版社。 [3]袁先鳴 . 醫(yī)院的信息化管理與資金合理使用 [J]，中國衛(wèi)生經濟 , 1995,(04) [4] 傅征 , 任連仲 . 醫(yī)院信息系統(tǒng)建設與應用 , 北京 : 人民軍醫(yī)出版社 , 2021 [5]李曉春等， 1999。多窗口住院管理系統(tǒng)的設計，上海生物醫(yī)學工程。 [6]潘鋒， 2021。醫(yī)院信息管理系統(tǒng)的開發(fā)，航空計算技術。 [7]郭瑞軍：《 ASP數(shù)據庫開發(fā)實例精粹》 [M]，電子工業(yè)出版社 2021： 6084. [8]袁鵬飛， 1998。 SQLServer數(shù)據庫應用開發(fā)技術，人民郵電出版社。 [9]吳秀英等， 2021。醫(yī)院信息管理系統(tǒng) — 住院管理子系統(tǒng)嘗試，中國知網。 [10]鞠華秋 ,姚子杰 . ?？漆t(yī)院信息系統(tǒng)構建模式的探索 [J]. 中國醫(yī)院管理 , 2021 (07) [11]周勝軍等 ， 2021，計算機數(shù)據庫管理在醫(yī)學中的應用 ， 北京生物醫(yī)學工程 。 [12]彭琿： SQL Server安 全性 [M]，北京 :清華大學出版社 ,2021： 222251. [13]Hans Van Vliet． Software EngineeringPrinciples and Practice， Second Editon[J]， New York： John Wiley amp。 Sons． 2021. [14] (美 )David M. Kroenke， 2021， 數(shù)據庫處理基礎、設計與實現(xiàn) ， 北京 電子工業(yè)出版社 。 [15] Dustin, E.,2021,Automated Software Testing: Introduction, Management, and Performance, Publishing House of Electronics Industry. 31