醫(yī)院病歷管理系統(tǒng)—計算機畢業(yè)設計-資料下載頁
2025-08-07 11:11本頁面
【正文】 OFF ELSE =messagebox(打印機沒有準備好！,0+48,警告)ENDIF查詢銨鈕代碼：do form 醫(yī)院病歷管理系統(tǒng)\關(guān)閉銨鈕代碼：醫(yī)務人員查詢表單1）、表單運行時的窗體如下：2）、表單構(gòu)成相關(guān)控件和事件新建一表單，保存在醫(yī)院病歷管理系統(tǒng)\，修改表單的caption屬性為“醫(yī)務人員查詢表單”；為表單引入醫(yī)務人員基本情況表數(shù)據(jù)表數(shù)據(jù)環(huán)境，拖放醫(yī)務人員基本情況表數(shù)據(jù)表字段到表單中，形成一個grd醫(yī)務人員基本情況表；在表單上放置一個選項按鈕組控件，用它的生成器選項生成兩個選項銨鈕，修改其caption屬性為“按姓名查找”、“按工號查找”；在表單上放置一個標簽控件，一個文本框控件，一個命令銨鈕組控件生成的兩個命令選項銨鈕，分別修改其caption屬性為“請輸入工號或姓名”，“查找”、“結(jié)束查找”。3）、表單構(gòu)成相關(guān)源代碼：查找銨鈕源代碼：do casecase =1locate all for alltrim()==alltrim()if found()y=reo()go ymessagebox(醫(yī)務人員已經(jīng)找到!)elsemessagebox(未找到此醫(yī)務人員,請確認!)endifcase =2locate all for alltrim()==alltrim()if found()y=reo()go ymessagebox(醫(yī)務人員已經(jīng)找到!)elsemessagebox(未找到此醫(yī)務人員,請確認!)endifendcase結(jié)束查找銨鈕代碼：系統(tǒng)主表單1）、表單運行時的窗體如下：2）表單構(gòu)成相關(guān)事件和控件：新建一表單，保存在醫(yī)院病歷管理系統(tǒng)\，修改表單的caption屬性為“醫(yī)院病歷管理系統(tǒng)”；在表單上放置一個標簽控件，3個命令銨鈕控件，分別修改其caption屬性為“醫(yī)務人員管理”、“病人管理”、“關(guān)閉”。3）、表單構(gòu)成相關(guān)源代碼：醫(yī)務人員管理系統(tǒng)銨鈕代碼：set path to 醫(yī)院病歷管理系統(tǒng)do form 病人管理銨鈕代碼：set path to 醫(yī)院病歷管理系統(tǒng)do form 關(guān)閉銨鈕代碼：()密碼表單1）、表單運行時的窗體如下：2）、表單構(gòu)成相關(guān)控件和事件：新建一表單，保存在醫(yī)院病歷管理系統(tǒng)\，修改表單的caption屬性為“用戶權(quán)限驗證窗口”；為表單引入密碼表數(shù)據(jù)表作為數(shù)據(jù)環(huán)境，在表單上放置兩個標簽控件，修改其Caption屬性為“用戶名”、“密碼”；放置兩個命令銨鈕，修改其Caption屬性為“確認”、“退出”；在表單上放置一個組合框控件bo1,一個文本框控件TEXT1，文本框控件用于輸入系統(tǒng)登錄時的密碼；在組合框控件bo1的生成器選項中設置數(shù)據(jù)庫和表為密碼表，可用字段為密碼，選定字段為用戶名，列選項中選擇用戶名作為返回值。并自行調(diào)整表單布局，使其美觀。3）、表單構(gòu)成相關(guān)源代碼：確認按鈕源代碼：locate all for alltrim()==alltrim() if found()if alltrim()==alltrim()x=1do 醫(yī)院病歷管理系統(tǒng)\do form 醫(yī)院病歷管理系統(tǒng)\ else =+1if =3messagebox(對不起，密碼錯誤你不能進入！)quitendifmessagebox(口令不正確!請重新輸入!,48 ,登錄信息)= endifendif退出銨鈕源代碼：()quit啟動表單1）、表單運行時的窗體如下：2）、表單構(gòu)成相關(guān)控件和事件：新建一表單，保存在醫(yī)院病歷管理系統(tǒng)\，修改表單的caption屬性為“醫(yī)院病歷管理系統(tǒng)”；設置表單的Picture屬性為表單引入一圖片作背景，在表單上放置兩個標簽控件，一個計時器控件，修改表單的標簽控件caption屬性為“醫(yī)院病歷管理系統(tǒng)”，“畢業(yè)設計”字樣；3）、表單構(gòu)成相關(guān)源代碼：表單的keypress事件代碼：LPARAMETERS nKeyCode, nShiftAltCtrldo form 醫(yī)院病歷管理系統(tǒng)\密碼表單計時器控件代碼：do form 醫(yī)院病歷管理系統(tǒng)\系統(tǒng)主程序新建一程序文件，保存在醫(yī)院病歷管理系統(tǒng)\，其相關(guān)代碼設置為：SET TALK offset sysmenu off set cent on SET TALK offset sysmenu off set cent on =2=icons\ =0=1=.f.=RGB(50,100,128) amp。amp。設置窗口的背景色 modify window screen nocloseMODIFY WINDOW SCREEN TITLE 醫(yī)院病歷管理系統(tǒng) ZOOM WINDOW SCREEN MAX do form 醫(yī)院病歷管理系統(tǒng)\read eventsclearclose allreturnendif至此，醫(yī)院病歷管理系統(tǒng)的設計已經(jīng)全部完成，系統(tǒng)經(jīng)編譯成exe執(zhí)行文件后測試運行正常?？偨Y(jié)經(jīng)過一個月的設計和開發(fā)，《醫(yī)院病歷管理系統(tǒng)》基本開發(fā)完畢。其功能基本符合需求。但是由于畢業(yè)設計時間較短，所以該系統(tǒng)還有許多不盡如人意的地方，比如功能模塊較少，出錯處理不夠等多方面問題。這些都有待進一步改善。通過這次畢業(yè)設計，我掌握了一種新的數(shù)據(jù)庫系統(tǒng)開發(fā)工具Visual 。它使用面向?qū)ο蟮拈_發(fā)技術(shù)，能夠輕松開發(fā)出功能強大的專門針對用戶的應用程序。使用結(jié)構(gòu)化的查詢技術(shù)，能夠從大量的數(shù)據(jù)中快速查詢需要的信息。能夠快速、隨意地制作出用戶需要的各種形式的報表和標簽。另外，通過這次畢業(yè)設計，提高了自己運用所學的基礎知識和技能，獨立解決一般的計算機工程問題的能力。致 謝在本次畢業(yè)設計的過程中，我的指導老師給了我很大的幫助。不僅使我在規(guī)定的時間內(nèi)完成了系統(tǒng)的設計，同時還使我學到了很多有益的經(jīng)驗。在此， 我謹向他表示最衷心的感謝。同時，學校給了我這次畢業(yè)設計的機會，使我得到了很好的鍛煉，在此，我也向?qū)W校的各位老師表示最誠摯的感謝。主要參考文獻作者. 書名. 出版社. 出版日期李加福Visual 北京清華大學出版社1999年6月周建成北京人們郵電出版社1994年7月梁杰、效英、殷咸青Foxpro 西安西安電子科技大學出版社1995年5月
規(guī)章制度相關(guān)推薦
鄂ICP備17016276號-1