醫(yī)院信息系統(tǒng)his設(shè)計(jì)-資料下載頁(yè)
2025-06-05 14:17本頁(yè)面
【正文】 功時(shí)可以更改密碼。如圖 41所示： 圖 41 用戶(hù)登記界面 部分代碼實(shí)現(xiàn) 如下： //登錄 if trim() = 39。39。 then msg(請(qǐng)輸入用戶(hù)編碼！ ) = 39。39。 () 23 (1, len()) return else if trim() = 39。39。 then msg(請(qǐng)輸入密碼！ ) ( ) return end if end if long ll_yhzid string ls_yhzmc ll_yhzid= ( ( ) , yhz) if not () then (登錄提示 , 不存在該用戶(hù)，請(qǐng)重新輸入 !) () (1,len()) return end if if not trim((, ll_yhzid)) = then (系統(tǒng)提示 , 密碼輸入錯(cuò)誤 ,請(qǐ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 //登陸成功時(shí)更改密碼 () open(w_chgpwd) end if () ib_exit = true closewithreturn(parent, ) 2．門(mén)診收費(fèi)界面 門(mén)診收 費(fèi)窗口首先顯示的是普通的收費(fèi)項(xiàng)目，如果不是顯示普通的收費(fèi)，按下 F5鍵即可。普通收費(fèi)窗口分為三屏，窗口的上方顯示病人信息和掛號(hào)信息。在掛號(hào)編碼處選擇掛號(hào)單號(hào)碼，在醫(yī)生處選擇病人就診的醫(yī)生。窗口就會(huì)中間顯示病人就診信息，中的左邊顯示就診和領(lǐng)用藥物信息以及所需要的費(fèi)用；單擊一行信息，就會(huì)在窗口中間的右邊顯示出這些信息的明細(xì)。窗口下方顯示發(fā)票信息和收費(fèi)信息。發(fā)票號(hào)和合計(jì)系統(tǒng)已自動(dòng)給出。在支付方式處選擇支付方式，折扣方式處選擇折扣方式。在收取處輸入所收到的費(fèi)用，備注處可以添加備注。單擊 ，出現(xiàn)一個(gè)窗口，將收費(fèi)信息保存 。如圖42 所示： 25 圖 42 門(mén)診收費(fèi) 部分代碼實(shí)現(xiàn) 如下： //收費(fèi) if ( ) = 0 then msg(無(wú)收費(fèi)項(xiàng)目！ ) return end if //進(jìn)行收費(fèi) if dec() 0 then msg(請(qǐng)輸入正確的收取金額！ ) = = return end if if dec() 0 or =39。39。 then msg(收取的金額不足！ ) = 26 = return end if //保存數(shù)據(jù) 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(錯(cuò)誤 ,保存失敗！ ,StopSign!) messagebox(錯(cuò)誤原因 , , StopSign!) //窗口初始化 // if not =2 then () //如果不是特殊門(mén)診就初始化 setfocus() end if = true //可以保存 ibl_cansave=true (0) datawindowchild dwc_child (ghid,dwc_child) ( sqlca) ( ) 27 ue_clearhj() 3．醫(yī)生工作站 — 保存 醫(yī)囑 界面 進(jìn)入醫(yī)生工作站，醫(yī)生給病人就診時(shí)給病人開(kāi)醫(yī)囑。 選擇藥 品分 類(lèi)，輸入藥品的代碼，發(fā)藥量、藥品的用法、單次的劑量、給藥的時(shí)間 ； 保存數(shù)據(jù)—— 保存醫(yī)囑，首先保存治療信息和注射信息；更新醫(yī)囑中的處方號(hào)，因?yàn)樘幏教?hào)直接跟收費(fèi)掛鉤，（同一類(lèi)項(xiàng)目得到同一個(gè)處方號(hào)），然后調(diào)用存儲(chǔ)過(guò)程進(jìn)行醫(yī)囑計(jì)價(jià)；將處方醫(yī)囑信息加入病歷中，判斷是否打印單據(jù)。如圖 43所示： 圖 43 醫(yī)生工作站 — 保存醫(yī)囑 部分 代碼 實(shí)現(xiàn) 如下： //醫(yī)生 long ll_yzh, ll_yzxh, ll_row, ll_yzrow //醫(yī)囑序號(hào)、醫(yī)囑以及子囑的行號(hào) long ll_yzhsl //醫(yī)囑號(hào)數(shù)量 string ls_yzh, ls_yzh2, ls_yzh3, ls_yzh4 //醫(yī)囑號(hào)列表 long ll_yzfzh ,ll_zssl= 0 ,ll_zlsl =0 //醫(yī)囑分組號(hào) , 數(shù)量 boolean lb_ypbz //藥品醫(yī)囑標(biāo)志 integer li_yzxmid,li_temp //處理超額劑量 datetime t Boolean ll_pdzl = false, lb_pdzld= false //處理是否能開(kāi)注射單 , 初 28 始值 false integer ll_derow, ni string ls_yzh_zs, ls_yz_zl t= datetime(gf_getserverdatetime()) //取得當(dāng)前時(shí)間 if ( )= 1 then messageBox(提示 ,你的輸入有誤 !) return end if //保存數(shù)據(jù) = false if (true, false)=1 then //注意 true,false rollback。 = true MessageBox(錯(cuò)誤 ,醫(yī)囑保存失??！ ) return end if long ll_zldh, ll_zsdh integer li //產(chǎn)生治療號(hào) 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(錯(cuò)誤 ,治療保存失??！ ) return end if end if //自動(dòng)插入門(mén)診病歷 wf_yztobl() MessageBox(提示 ,保存成功 !) //判斷有無(wú)打印單據(jù) 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 參考文獻(xiàn) [1]薩師煊，王珊：《數(shù)據(jù)庫(kù)系統(tǒng)概論》 [M]，高等教育出版社， 1991： 459500. [2]王冬等， 2021。現(xiàn)代醫(yī)院管理理路與方法，上?？茖W(xué)技術(shù)文獻(xiàn)出版社。 [3]袁先鳴 . 醫(yī)院的信息化管理與資金合理使用 [J]，中國(guó)衛(wèi)生經(jīng)濟(jì) , 1995,(04) [4] 傅征 , 任連仲 . 醫(yī)院信息系統(tǒng)建設(shè)與應(yīng)用 , 北京 : 人民軍醫(yī)出版社 , 2021 [5]李曉春等， 1999。多窗口住院管理系統(tǒng)的設(shè)計(jì)，上海生物醫(yī)學(xué)工程。 [6]潘鋒， 2021。醫(yī)院信息管理系統(tǒng)的開(kāi)發(fā)，航空計(jì)算技術(shù)。 [7]郭瑞軍：《 ASP數(shù)據(jù)庫(kù)開(kāi)發(fā)實(shí)例精粹》 [M]，電子工業(yè)出版社 2021： 6084. [8]袁鵬飛， 1998。 SQLServer數(shù)據(jù)庫(kù)應(yīng)用開(kāi)發(fā)技術(shù)，人民郵電出版社。 [9]吳秀英等， 2021。醫(yī)院信息管理系統(tǒng) — 住院管理子系統(tǒng)嘗試，中國(guó)知網(wǎng)。 [10]鞠華秋 ,姚子杰 . 專(zhuān)科醫(yī)院信息系統(tǒng)構(gòu)建模式的探索 [J]. 中國(guó)醫(yī)院管理 , 2021 (07) [11]周勝軍等 ， 2021，計(jì)算機(jī)數(shù)據(jù)庫(kù)管理在醫(yī)學(xué)中的應(yīng)用 ， 北京生物醫(yī)學(xué)工程 。 [12]彭琿： SQL Server安 全性 [M]，北京 :清華大學(xué)出版社 ,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ù)據(jù)庫(kù)處理基礎(chǔ)、設(shè)計(jì)與實(shí)現(xiàn) ， 北京 電子工業(yè)出版社 。 [15] Dustin, E.,2021,Automated Software Testing: Introduction, Management, and Performance, Publishing House of Electronics Industry. 31
畢業(yè)設(shè)計(jì)相關(guān)推薦
鄂ICP備17016276號(hào)-1