【導(dǎo)讀】應(yīng)用計(jì)算機(jī)軟件來對(duì)各項(xiàng)工作進(jìn)行管理以發(fā)揮最大的功效。這次設(shè)計(jì)的目的就是。也是現(xiàn)代化管理的必然要求。此次研究是創(chuàng)建了一個(gè)具備數(shù)據(jù)庫維護(hù)功能,能根。據(jù)用戶需求進(jìn)行數(shù)據(jù)的查詢、添加、修改的管理系統(tǒng)。管理系統(tǒng)的開發(fā)過程···························································6

　　

【正文】 圖 11 ： 醫(yī)院病房管理系統(tǒng)功能模塊結(jié)構(gòu)圖 開發(fā)與運(yùn)行環(huán)境 開發(fā)與運(yùn)行環(huán)境的選擇會(huì)影響數(shù)據(jù)庫設(shè)計(jì) ,本系統(tǒng)開發(fā)與運(yùn)行的環(huán)境為 : 開發(fā)環(huán)境 : Windows 98 開 發(fā)工具 : Visual 創(chuàng)建數(shù)據(jù)庫和數(shù)據(jù)表 數(shù)據(jù)庫結(jié)構(gòu)設(shè)計(jì)要求根據(jù)數(shù)據(jù)字典、使用的數(shù)據(jù)庫管理系統(tǒng)和系統(tǒng)開發(fā)具設(shè)計(jì)出數(shù)據(jù)庫以及各個(gè)數(shù)據(jù)表的結(jié)構(gòu)。 （ 4） 病人入住情況數(shù)據(jù)表。病人入住情況表主要包括：病房號(hào) 姓名，性別，年齡，聯(lián)系電話，入院日期，出院日期，身份證號(hào)，值班人員號(hào)，病房單價(jià)，命名為表 1 登陸界面 主界面 查詢界面 登記界面 病房查詢界面 整理病房界面 系統(tǒng)維護(hù)界面 費(fèi)用界面 歡迎界面 界面 （ 5） 病房情況數(shù)據(jù)表。病房情況數(shù)據(jù)表用于保存病房的狀態(tài)的，主要包括病房號(hào)，病房單價(jià)，病房位置，病人上限，病房狀態(tài)，已住病人數(shù)，數(shù)據(jù)表命名為“表 2”。 （ 6） 系統(tǒng)用戶數(shù)據(jù)表。系統(tǒng)用戶數(shù)據(jù)表用于保存系統(tǒng)用戶的帳號(hào)信息，包括用戶名，密碼，數(shù)據(jù)表命名為“表 3”。 第四章 醫(yī)院管理主界面的實(shí)現(xiàn) 創(chuàng)建系統(tǒng) 啟動(dòng) Visual 。并創(chuàng)建一個(gè)項(xiàng)目管理器。如圖 12 在項(xiàng)目管理器中建立數(shù)據(jù)庫并建立數(shù)據(jù)表 病房管理系統(tǒng)的主界面 系統(tǒng)主界面： 其中主界面各個(gè)按鈕名稱為： 查詢 住院登記 轉(zhuǎn)房登記 費(fèi)用合計(jì) 系統(tǒng)更新 病房查詢 整理病房 進(jìn)入 退出 功能： 選擇各個(gè)按鈕并點(diǎn)擊進(jìn)入，可以進(jìn)入相應(yīng)的界面 ， 點(diǎn)擊退出，在菜單出現(xiàn)退出按鈕，點(diǎn)擊退出本系統(tǒng) 第五章 用戶管理模塊的創(chuàng)建 歡迎界面的創(chuàng)建 歡迎界面： 用戶登錄界面的創(chuàng)建 系統(tǒng)登陸功能指在啟動(dòng)病房管理系統(tǒng)之前，顯示一個(gè)登陸對(duì)話框，要求操作員輸入用戶名和登陸口令，并可以請(qǐng)求驗(yàn)證或退出登陸。 功能：輸入用 戶名和密碼后，單擊確定后進(jìn)入本系統(tǒng)。 第六章 系統(tǒng)界面的創(chuàng)建 查詢界面的創(chuàng)建： 查詢界面的創(chuàng)建： 功能： 本界面主要是查詢病人住院的情況，可以按照病房號(hào)，姓名，身份證號(hào)，進(jìn)行查詢 登記界面的創(chuàng)建 登記界面的創(chuàng)建： 功能： 本界面可以按姓名，性別，年齡，聯(lián)系電話，病房單價(jià)，入院日期，病房號(hào)，身份證號(hào)，值班人員號(hào)將新入住的病人的情況登記并保存到數(shù)據(jù)表中 病房查詢界面的創(chuàng)建 2. 病房查詢界面的創(chuàng)建： 功能：本界面可以通過病房位置，病房狀態(tài)來查詢病房的情況 病房整理界面的創(chuàng)建 病房整理界面的創(chuàng)建： 功能： 本界面是用來對(duì)已出院的人所住病房進(jìn)行整理的過程。 費(fèi)用界面的創(chuàng)建 費(fèi)用界面的創(chuàng)建： 功能 ：通過輸入的姓名，病房號(hào)，和入院及出院日期，顯示出所用的費(fèi)用。 轉(zhuǎn)房登記界面的創(chuàng)建 轉(zhuǎn)房登記界面的創(chuàng)建： 功能：通過對(duì)表的修改來 實(shí)現(xiàn)病人房間的遷移。 系統(tǒng)維護(hù)界面的創(chuàng)建 系統(tǒng)維護(hù)界面的創(chuàng)建： 功能：通過對(duì)舊密碼的檢驗(yàn)，修改新密碼，保證系統(tǒng)安全。 結(jié)束語 我用了 對(duì)畢業(yè)設(shè)計(jì)進(jìn)行開發(fā)。我真正感覺到了 的強(qiáng)大功能。 在開發(fā)環(huán)境中 Visual Foxpro 編程語言。 Visual Foxpro 還可以編寫程序以及Windows 下的許多應(yīng)用程序 ,如 Microsoft Excel 的 Applications Edit 和 Microsoft Access 等。 Visual Foxpro 提供了曾強(qiáng)的 Active 功能，可以使用其他 Active 的應(yīng)用程序。 Visual Foxpro 有很好的升級(jí)性，最新 Visual 集成了最先進(jìn)的互連網(wǎng)功能，使程序開發(fā)者很容易在應(yīng)用程序內(nèi) Inter/Intrance 訪問文檔和應(yīng)用程序，并創(chuàng)建 Inter 服務(wù)器應(yīng)用程序。 從開發(fā)個(gè)人使用到大型的企業(yè)應(yīng)用程序，甚至通過 Inter 遍及全球的分布式系統(tǒng)都可以在 VF 中各取所需。 通過設(shè)計(jì)和開發(fā) 病房管理 系統(tǒng)，使我學(xué)到了許多有關(guān)數(shù)據(jù)庫方面和軟件開發(fā)的知識(shí)，對(duì)軟件工程和軟件開發(fā)有了進(jìn)一步的 了解，通過這次課程設(shè)計(jì)，鞏固了我所學(xué)到的課本知識(shí)，提高了我思考和解決問題的能力，做到了學(xué)以致用。 但是 VF 功能強(qiáng)大，我對(duì)它的掌握還不夠，加上時(shí)間緊迫和我的經(jīng)驗(yàn)不足，本系統(tǒng)難免有不足之處，還請(qǐng) 老師 批評(píng)指正。 我更要感謝 老師 在這畢業(yè)設(shè)計(jì)中對(duì)我的指 導(dǎo)。 謝 辭 在進(jìn)行系統(tǒng)功能實(shí)現(xiàn)的整個(gè)過程中，指導(dǎo)老師都給予的我很大的幫助， 老師認(rèn)真負(fù)責(zé)的工作態(tài)度，嚴(yán)謹(jǐn)?shù)闹螌W(xué)精神和深厚的理論水平都使我收益匪淺。他論在理論上還是在實(shí)踐中，都給與我很大的幫助，使我得到不少的提高這對(duì)于我以后的工作和學(xué)習(xí)都有一種巨大的幫助，感謝他耐心 的輔導(dǎo)。 也給了我許多鼓勵(lì)，再此謝謝老師在這段時(shí)間里幫助我，支持我，使我的系統(tǒng)能更加完善，操作起來更加方便；在此一并表示感謝！我的系統(tǒng)才可以順利完成。 參考文獻(xiàn) 1.《 Visual Foxpro 數(shù)據(jù)庫開發(fā)關(guān)鍵技術(shù)與實(shí)例應(yīng)用》 出版社：人民郵電出版社 作 者：周恒 張雨等 2.《 Visual Foxpro 程序設(shè)計(jì)教程》 出版社：電子工業(yè)出版社 作 者：孫淑霞等 3. 《 Visual Foxpro 數(shù)據(jù)庫系統(tǒng)開發(fā)應(yīng)用教程》 出版社：清華大學(xué)出版社 作 者 ：李軍 4. 《 Visual Foxpro 程序設(shè)計(jì)》 出版社：中國水利水電出版社 作 者：程玉民 附錄 :系統(tǒng)詳細(xì)代碼設(shè)計(jì) 主界面代碼 ： 進(jìn)入按鈕的 click 事件代碼如下： do case case =1 do form 查詢界面 .scx case =1 do form 登記界面 .scx case =1 do form 轉(zhuǎn)房登記界面 .scx case =1 do form 費(fèi)用界面 .scx case =1 do form 系統(tǒng)維護(hù)界面 .scx case =1 do form 病房查詢界面 .scx case =1 do form 整理病房界面 .scx endcase 退出按鈕的 click 事件代碼： close all 歡迎界面代碼 |： 其 labell 的 click 事件代碼： do form 登錄界面 .scx 登錄界面代碼： 確定按鈕的 click 事件代碼： private upassword select 表 3 upassword=alltrim() locate for alltrim(用戶名 )=alltrim() if found() and upassword=alltrim(密碼 ) =.f. do form d:\劉海青 \主界面 .scx else =messagebox(用戶名或密碼錯(cuò)誤，請(qǐng)重新輸入！ ) endif 取消按鈕的 click 事件代碼： = = 查詢界面代碼 ： optiongroup1 的 click 事件代碼： if =1 =.T. =.F. =.F. endif if =1 =.F. =.T. =.F. endif if =1 =.F. =.F. =.T. endif 確定按鈕的 click 事件代碼： *use 表 1 excl IF =1 =select * from 表 1 where 表 =alltrim() into cursor temp endif IF =1 =select * from 表 1 where 表 =alltrim() into cursor temp endif IF =1 =select * from 表 1 where 表 =alltrim() into cursor temp endif 取消按鈕的 click 事件代碼： 登記界面代碼 ： 確定按鈕的 click 事件代碼： if empty() or empty() or empty() 。 or empty() or empty() or empty()。 or empty() or empty() or empty() messagebox(信息添加不完整 ,48,提示信息 ) else use 表 1 go bottom append blank replace 姓名 with replace 性別 with replace 年齡 with val() replace 聯(lián)系電話 with replace 入院日期 with replace 病房號(hào) with replace 身份證號(hào) with replace 值班人員號(hào) with replace 病房單價(jià) with messagebox(登記成功 !!!) endif = = = = = = = = = 重置按鈕的 click 事件代碼： = = = = = = = = 取消按鈕的 click 事件代碼： 病房查詢代碼： optiongroup1 的 click 事件代碼： if =1 =.T. =.F. endif if =1 =.F. =.T. endif 確定按鈕的 click 事件代碼： *use 表 2 excl IF =1 =select * from 表 2 where 表 =alltrim() into cursor temp endif IF =1 =select * from 表 2 where 表 =alltrim() into cursor temp endif 取消按鈕的 click 事件代碼： 病房整理界面代碼 ： 退房按鈕的 click 事件代碼： use 表 2 * =.f. locate for 病房號(hào) = if found() replace 表 with allt() replace 表 with allt() messagebox(整理成功 !) endif 取消按鈕的 click 事件代碼： 費(fèi)用界面代碼： 合計(jì)按鈕的 click 事件代碼： select 表 1 locate all for 病房號(hào) =alltrim()。 and 姓名 =alltrim() if found() =病房單價(jià) *() else messagebox(病房號(hào)和姓名輸入有誤！ ,48,警告 ) endif 取消代碼： 轉(zhuǎn)房代碼： 確定按鈕的 click 事件代碼： use 表 1 * =.f. if empty() or empty() or empty() 。 or empty() or empty() or empty()。 or empty() or empty() messagebox(信息添加不完整 ,48,提示信息 ) else locate for 姓名 =allt() if found() replace 表 with allt() replace 表 with replace 表 with allt() replace 表 with replace 表 with allt() replace 表 with replace 表 with messagebox(轉(zhuǎn)房成功 !) else message (信息不全，請(qǐng)重新填寫??！ ) endif endif 重置按鈕的 click 事件代碼： = = = = = = = 取消按鈕的 click 事件代碼： 系統(tǒng)維護(hù)界面代碼： 確定按鈕的 click 事件代碼： SELE 表 3 GO top if empty() MESSAGEBOX(用 戶名不能為空，請(qǐng)重新輸入！ ) else LOCATE for 表 =allt() and 表 =allt() IF found() DO case CASE empty() MESSAGEBOX(密碼不能為空，請(qǐng)重新輸入！ ) CASE != MESSAGEBOX(兩次輸入結(jié)果不同！請(qǐng)重新輸入！ ,1+48,提示窗口 ) = = CASE allt()=allt() REPL 表 with allt() MESSAGEBOX(修改成功！ ) ENDCASE ELSE MESSAGEBOX(您的原始密碼不正確，請(qǐng)重新輸入！ ) = = = = ENDIF Endif 取消按鈕的 click 事件代碼： “ Easy, now,” said Ted Tonks, placing a hand on Harry?s shoulder and pushing him back against the cushions. “That was a nasty crash you just had. What happened, anyway? Something go wrong with the bike? Arthur Weasley overstretch himself again, him and his Muggle contraptions?” “ No,” said Harry, as his scar pulsed like an open wound. “Death Eaters, loads of them – we were chased – ” “ Death Eaters?” said Ted sharply. “What d?you mean, Death Eaters? I thought they didn?t know you were being moved tonight, I thought – ” “ They knew,” said Harry. Ted Tonks looked up at the ceiling as though he could see through it to the sky above. “ Well, we know our protective charms hold, then, don?t we? They shouldn?t be able to get within a hundred yards of the place in any direction.” Now Harry understood why Voldemort had vanished。 it had been at the point when the motorbike crossed the barrier of the Order?s charms. He only hoped they would continue to wor k: He imagined Voldemort, a hundred yards above them as they spoke, looking for a way to perate what Harry visualized as a great transparent bubble. He swung his legs off the sofa。 he needed to see Hagrid with his own eyes before he would believe that he was alive. He had barely stood up, however, when a door opened and Hagrid squeezed through it, his face covered in mud and blood, limping a little but miraculously alive. “ Harry!” Knocking over tw o delicate tables and an aspidistra, he covered the floor between them in two strides and pulled Harry into a hug that nearly cracked his newly repaired ribs. “Blimey, Harry, how did yeh get out o? that? I thought we were both goners.” “ Yeah, me too. I can?t believe –