【導讀】醫(yī)院信息化建設已經(jīng)成為醫(yī)院管理現(xiàn)代化的要求。醫(yī)療、教學、科研活動。在對管理系統(tǒng)的業(yè)務進行詳細分析后，確定了系統(tǒng)以。PowerBuilder作為前臺開發(fā)工具，Oracle數(shù)據(jù)庫作為系統(tǒng)后臺開發(fā)工具。醫(yī)?？ü芾?、醫(yī)療帳戶管理等多種業(yè)務的界面設計。

　　

【正文】 主窗口界面 ， 如下圖 ： 重慶大學本科學生畢業(yè)設計 3 醫(yī)療管理子系統(tǒng)的設計過程 15 圖 創(chuàng)建 layout 畫板 至此，就可以在主窗口中設計界面了。 第五步：點擊主菜單上的添加組件按鈕，如下圖所示： 圖 創(chuàng)建組件按鈕 紅圈代表數(shù)據(jù)窗口控件，可以在里面添加表格，數(shù)據(jù)等。 第六步：在主窗口中設計界面時，需要建立 PowerBuilder 與數(shù)據(jù)庫的連接，具體步驟如下： 點擊 PowerBuilder 菜單上的圖標，如下圖的紅圈處。 重慶大學本科學生畢業(yè)設計 3 醫(yī)療管理子系統(tǒng)的設計過程 16 自動的彈出一個窗口，如 下： 圖 創(chuàng)建數(shù)據(jù) 點擊“ ”，點擊“ New”彈出一個窗口，如下： 圖 數(shù)據(jù)庫系統(tǒng)配置 然后在 Connection 頁中填寫 重慶大學本科學生畢業(yè)設計 3 醫(yī)療管理子系統(tǒng)的設計過程 17 Profile Name： (隨便填，如 “DBTest”) Server： | local | | …… Login ID： sa | 其他合法用戶名 Password： (不填 ) Database： (你數(shù)據(jù)庫的名字，不要有空格減號中文等字符） Commit on disconnect： (不選 ) 在 System 頁中 的 PowerBuilder Catalog table Owner 處填寫與 Login ID 處相同的用戶名。然后，就可以點擊“ connect”按鈕了。 注意的是：當連接數(shù)據(jù)庫時，要雙擊打開 Application 對象，如我們上面新建的 myarticle 對象，雙擊它，編寫 Open 腳本程序，如下： = MSS Microsoft SQL Server = DBSample = . = sa = False = CommitOnDisconnect=39。No39。 connect using sqlca。 if 0 then MessageBox(“錯誤 ”， “連接數(shù)據(jù)庫失?。?)。 Return end if open(w_main) 其中“ w_main”是我們設計的主窗口的名稱。 在系統(tǒng)設計之前可以創(chuàng)建一些系統(tǒng)基類按鈕，在各界面的設計中可以復用，在本次設計中比較常用的是以下幾種： 首先創(chuàng)建一個 uo_button_base 按鈕，其腳本語言為： ib_mousewithin = False ib_mousecaptured = False 而后可以在此基礎上，按其大小和屬性創(chuàng)建其他常用按鈕 ① 在 uo_button_base 基礎上創(chuàng)建該按鈕，命名為 uo_button_cancle，腳本為 Window lw_ParentWindow of_GetParentWindow( This， lw_ParentWindow) 重慶大學本科學生畢業(yè)設計 3 醫(yī)療管理子系統(tǒng)的設計過程 18 event ue_cancel() ② 在 uo_button_base 基礎上創(chuàng)建該按鈕，命名為 uo_button_delete，腳本為 integer i for i=1 to upperbound(idw) If IsValid ( idw[i] ) Then idw[i].dynamic event ue_delete_row() End if。 next ③ 在 uo_button_base 基礎上創(chuàng)建該按鈕，命名為 uo_button_insert，腳本為 integer i //數(shù)組下標 for i=1 to upperbound(idw) If IsValid ( idw[i] ) Then idw[i].dynamic event ue_insert_row () End if。 next ④ 在 uo_button_base 基礎上創(chuàng)建該按鈕，命名為 uo_button_print，腳本為 Window lw_ParentWindow of_GetParentWindow( This， lw_ParentWindow) event ue_print() ⑤ 在 uo_button_base 基礎上創(chuàng)建該按鈕，命名為 uo_button_retrieve，腳本為 integer i for i=1 to upperbound(idw) If IsValid ( idw[i] ) Then idw[i].dynamic uf_Retrieve() End if。 Next ⑥ 在 uo_button_base 基礎上創(chuàng)建該按鈕，命名為 uo_button_save，腳本為 integer i il_Val = 0 重慶大學本科學生畢業(yè)設計 3 醫(yī)療管理子系統(tǒng)的設計過程 19 for i=1 to upperbound(idw) If IsValid ( idw[i] ) Then il_Val=idw[i].dynamic event ue_Update () If il_Val 0 Then Return il_Val End If End if。 next Return il_val ⑦ 在 layout 上設計 uo_datelimite nvo_ctl_datetime lnvoDateTime datetime ldtSelected string lsSelectedDate date ld_date IF IsValid ( uo_2 ) THEN ( lnvoDateTime ) ldtSelected = () IF IsNull( ldtSelected ) THEN lsSelectedDate = [NONE] ELSE lsSelectedDate = String( ldtSelected ， yyyymmdd ) END IF END IF ld_date = RelativeDate ( date ( ldtSelected ) ， 30 ) IF IsValid( uo_1 ) THEN ( lnvoDateTime ) IF ( datetime(ld_date ) ) THEN END IF END IF ⑧ 設計打印窗口的基類，命名為 w_print_base 圖 創(chuàng)建 w_print_base ⑨ 設計打印設置窗口的基類，命名為 w_print_set 重慶大學本科學生畢業(yè)設計 3 醫(yī)療管理子系統(tǒng)的設計過程 20 圖 創(chuàng)建 w_print_set 打印機設置按鈕的腳本為 ： PrintSetup () 確定按鈕的腳本為 ： nvo_printSet lnvo_PrintSet lnvo_PrintSet = create nvo_PrintSet //確定打印范圍 if then = 39。39。 end if if then = end if //確定打印奇、偶頁 = ii_item //確定打印份數(shù) = integer ( ) //確定打印縮放比例 = integer ( ) //確定是否打印 = true closeWithReturn ( parent， lnvo_PrintSet ) 取消按鈕的腳本為 nvo_printSet lnvo_PrintSet lnvo_PrintSet = create nvo_PrintSet = false closeWithReturn ( parent ， lnvo_PrintSet) ⑩ 設計查詢窗口的基類，命名為 w_pub_condition 圖 創(chuàng)建 w_pub_condition 至此，就可以對醫(yī)療管理字系統(tǒng)進行界面設計了． 用戶登陸界面的設計 圖 用戶登陸界面設計 為各按鈕編寫腳本語言 ， 右鍵單擊 “登陸 ”按鈕 ， 在 scrip 區(qū)編寫如下腳本語言 ： String ls_msg gi_appid = Integer ( () ) 重慶大學本科學生畢業(yè)設計 3 醫(yī)療管理子系統(tǒng)的設計過程 21 (39。正在驗證用戶口令 39。) IFwf_cert () 0 THEN s_password = (39。用戶口令驗證成功 39。) SetProfileString(gs_ini， USER， Name， ) ii_canexit = 0 (39。正在登錄系統(tǒng)主應用 39。) If (String(gi_optid)+39。|39。+gs_username+39。|39。+String(gi_sysflat)+39。|39。， ls_msg) 0 Then gf_msg(ls_msg， 111) Return End If closeWithReturn (parent， 39。OK39。 ) else (39。用戶口令驗證失敗 39。) gf_msg ( 登錄失敗！ ， 211) () end if “退出”按鈕的腳本語言如下： (39。正在退出系統(tǒng) 39。) ii_canexit = 0 Disconnect Using sqlca。 CloseWithReturn(Parent， 39。EXIT39。) “修改口令”按鈕腳本語言如下： if 1062 then = 修改口令 =39。39。 () ( ， 1060 ) else = 放棄修改 =39。39。 () ( ， 1522 ) end if “確定”按鈕腳本語言如下： 重慶大學本科學生畢業(yè)設計 3 醫(yī)療管理子系統(tǒng)的設計過程 22 string ls_password， ls_str if wf_cert () 0 then if = then ls_str = ls_password=gf_encrypt_string ( ， len( ) ) update t_OperatorInfo set password = :ls_password where Upper(login_name) = Upper(:)。 if = 1 then gf_db_operate () return end if mit using sqlca。 event clicked() else gf_msg ( 修改口令需要輸入兩次，并 且兩次相同 ， 111) end if else gf_msg ( 您沒有權(quán)限修改口令！ ， 211 ) end if 醫(yī)療費用審批 — 異地人員審批界面設計 圖 異地人員審批界面設計 醫(yī)療費用審批主要實現(xiàn)的功能是將報銷登記生成的就診資料信息和處方明細信息進行審批操作，沒有審批的報銷登記信息不允許進行報銷。另外報銷登記審批模塊可以添加處方信息，并將其保存到處方明細信息表中。 因為一些按鈕功能可以在其 genaral 屬性中選擇設定，有些按鈕功能可以從其父類中繼承過來，故不需寫腳 本語言，只需對 “明細 ”和“刪除”按鈕寫腳本語言。“明細 ”按鈕的腳本如下： if () = 0 then return int li_i FOR li_i = 1 TO integer() (39。39。 + string(li_i) + 39。.TabSequence=039。) (39。39。+string(li_i) + 39。.=39。+string(backcolor)+39。39。) ((39。39。 + string(li_i) + 39。.name39。) + 39。=039。) NEXT 重慶大學本科學生畢業(yè)設計 3 醫(yī)療管理子系統(tǒng)的設計過程 23 if =true or = True then return if =true then =false re