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