【導讀】施與技術支撐環(huán)境。其開發(fā)主要包括后臺數(shù)據(jù)庫的建立和維護以及前端應用程序。的開發(fā)兩個方面。對于前者要求建立數(shù)據(jù)一致性和完整性強，數(shù)據(jù)安全性好的數(shù)。據(jù)庫，而對于后者則要求應用程序功能完備，易使用等特點。利用PowerBuilder數(shù)據(jù)窗口這一能方便而簡潔操縱數(shù)據(jù)庫的智能化對象，建。用戶滿意的可行系統(tǒng)。

　　

【正文】 行效率。 然后進行綜合調(diào)試。以下簡要介紹幾個典型的調(diào)試中發(fā)現(xiàn)的問題。 權限 設置 此模塊中， 采用的是 TreeView 控件， 菜單層次樹 有函數(shù) wf_createmenutv 生成 。 權限設置分成父節(jié)點和數(shù)個子節(jié)點 。 在設置父項權限時，若 同層所有子節(jié)點都沒有權限則其父節(jié)點也沒有權限 ；若 同層 子 節(jié)點有一個有權限則其父節(jié)點就 有權限 。 所以當用戶 鼠標右鍵單擊子節(jié)點時， 由無權限變到有權限時，父節(jié)點也隨之變成有權限。但 調(diào)試過程中發(fā)現(xiàn) 父節(jié)點未隨之改變，后來在查看設置父項權限函數(shù) wf_setparentright 時 發(fā)現(xiàn)返回值出錯，于是，修改 代碼得到正確的 返回值 實現(xiàn)功能， 修正 了 缺陷。 綜合調(diào)試 綜合調(diào)試是對系統(tǒng)的各個功能進行系統(tǒng)測試。 由系統(tǒng)管理員 建立用戶 組，導20 入用戶并分配 用戶 權限 ，以及 不同權限 用戶登陸到 系統(tǒng)后 的一系列操作，測試權限設置是否起作用等，同時還包括系統(tǒng)提示和系統(tǒng)界面是否友好等。軟件是人智慧的 產(chǎn)品，不可避免的存在缺陷，而我們需要很多時間去發(fā)現(xiàn)軟件存在的缺陷，并去改正它，這無疑需要大量的時間。 調(diào)試結(jié)果 經(jīng)過系統(tǒng)的調(diào)試，使得軟件的缺陷得以改正，使軟件越來越完善。系統(tǒng)中也無發(fā)現(xiàn)嚴重的缺陷，系統(tǒng)運行正常，基本功能已經(jīng)實現(xiàn)。但是不可否認系統(tǒng)仍然存在缺陷，只是現(xiàn)在還沒有發(fā)現(xiàn)，軟件需要不斷完善。 21 第 6 章 結(jié)束語 大學 時 專業(yè)知識的積累和在公司兩個多月的實習 工作 ，使我深入了解了PowerBuilder 和 SQL Server 2021 的 開發(fā) 特點 ,為我這次畢業(yè)設計打下 了基礎。畢業(yè)設計過程中，經(jīng)過詳細的數(shù)據(jù)庫分析及系統(tǒng)功能設計和開發(fā)，使我理論聯(lián)系實際，進一步提升了我的實踐能力，使我學到了很多知識。 從開始接到 論文題目到系統(tǒng)的實現(xiàn)，再到論文文章的完成，都讓我獲益良多。雖然時間倉促 ， 設計中還存在 很多不足之處，但我可以自豪的說，這是我 努力的成果 。當看著 設計的功能模塊一個個 實現(xiàn)，是 我莫大的 欣慰。 本次醫(yī)院病人信息系統(tǒng)的設計與實現(xiàn)的過程中 ，使我學習并加強了PowerBuilder 編程技術，同時 SQL 語句也得到了鞏固 ，這對我今后進入公司工作打下了良好的基礎。 但由于 目前所學 知識有限， 系統(tǒng) 有些功能模塊的 實現(xiàn)方法 欠佳， 需要我在以后的實踐中不斷提升自己的能力。 22 致謝 首先要 感謝我的指導老師 在畢業(yè)設計中給我的悉心指導和幫助。 在整個畢業(yè)設計過程中，他給予我很多的支持和幫助，使我能夠順利得完成畢業(yè)設計。 同時要 感謝 我的校外指導老師 公司 項目經(jīng)理 在畢業(yè)設計過程中對我的指導和幫助，使我克服了技術上的難題，學到了更多東西。 同時要感謝大學四年中 曾 教過我 的 老師 們 。是你們的無私教導為我打下了扎實的專業(yè)基礎。 感謝同學四年來對的關懷。有了你們，我的大學生活才會如此精彩。我會永遠記住我們一起走過的日子。 感謝我的 父母對我的關愛，讓我能夠安心在大學的殿堂里學習知識。 感謝所有關心、幫助和支持過我的人。 23 參考文獻 [1] 周航 ,芮廣海 . 計算機信息系統(tǒng)在醫(yī)院管理中的應用 [J].遼寧石油化工大學學報 , 2021,(01):4547 [2] 王謙 ,劉元濤 . 醫(yī)院住院管理信息系統(tǒng)的研究開發(fā) [J].微型電腦應用 ,2021, (01):99102 [3] 李良 ,王永縣 ,宋廣峰 . 縣級醫(yī)院管理信息系統(tǒng)的設計與實現(xiàn) [J].管理信息系統(tǒng) , 1997, (05):2327 [4] 何勇 . 醫(yī)院信息系統(tǒng)設計與 開發(fā) [D].重慶大學 ,2021 . [5] 葉建江 .醫(yī)院信息管理系統(tǒng) (HIS)開發(fā)模式 [J].廣東藥學院學報 , 2021,(03):78 [6] 李偉紅 . SQL Server 2021 數(shù)據(jù)庫及應用 [M].北京 :中國水利水電出版社 ,2021 [7] 張勇毅 ,姚華 . PowerBuilder + SQL Server 數(shù)據(jù)庫應用系統(tǒng)開發(fā)與實例 [M].北京 : 人民郵電出版社 ,2021 [8] 王艷青 . PowerBuilder 程序設計基礎 [M].北京 :中國水利水電出版社 ,2021 [9] 盧守東 . PowerBuilde 數(shù)據(jù)庫應用開發(fā)技術 [M].北京 :清華大學出版社 ,2021 [10] Haux, R, Winter, A, Ammenwerth, E. Strategic Information Management in Hospitals[J].Springer, New York (2021) [11] Benbasat, I, and Taylor, . Behavioral aspects of information processing for the design of management information systems[J].IEEE Transactions on Systems, Man, and Cyberic,1982,(4):439450 24 附錄 源代碼 1. 權限設置窗口 open 時間代碼： long ll_parts[2] ll_parts[1]=500 ll_parts[2]=1 (ll_parts) (0,0,點擊鼠標左鍵展開菜單，點擊鼠標右鍵改變菜單權限 !) = False = False = False = False io_parm = trans_working = gf_center_window(this) string ls_system_name ii_SystemID = [1] SELECT XTMC into :ls_system_name FROM SS_INSTALL WHERE XTSB = :ii_SystemID USING trans_working。 = ls_system_name = 系統(tǒng)用戶組權限設置 + ls_system_name wf_CreateMenuTV(,0) ((RootTreeItem!, 0)) = False (trans_working) = d_group_list (trans_working) (Hand!) 25 (ii_SystemID) IF () = 0 THEN = False 2. 權限設置窗口中生成菜單層次樹 wf_createmenutv 函數(shù)： Long ll_Pos Long ll_Handle Long ll_MenuItem Long ll_TotalItems Long ll_MenuItemNumber String ls_MenuItemName String ls_MenuItemText TreeViewItem ltvi_Item ll_TotalItems = UpperBound([]) IF ll_TotalItems = 0 THEN RETURN FOR ll_MenuItem = 1 TO ll_TotalItems ii_MenuLevel ++ ls_MenuItemName = [ll_MenuItem].ClassName() ls_MenuItemText = [ll_MenuItem].Text ll_Pos = Pos(ls_MenuItemText,amp。) IF ll_Pos 0 THEN ll_Pos = Pos(ls_MenuItemText,() IF ll_Pos 0 THEN ls_MenuItemText = Left(ls_MenuItemText,ll_Pos 1) ELSE ls_MenuItemText = Mid (ls_MenuItemText,4) END IF END IF IF NOT [ll_MenuItem].Visible THEN GOTO Process_Next IF ls_MenuItemText = THEN GOTO Process_Next IF [ll_MenuItem].Tag = AlwaysEnabled THEN GOTO Process_Next 26 ll_MenuItemNumber ++ = ls_MenuItemName = String(ll_MenuItemNumber) + . + ls_MenuItemText IF ii_MenuLevel = 1 THEN = 1 = 1 ELSE = 3 = 3 END IF ll_Handle = (al_Handle,ltvi_Item) wf_CreateMenuTV([ll_MenuItem],ll_Handle) Process_Next: ii_MenuLevel NEXT