醫(yī)院管理系統(tǒng)論文-VB畢業(yè)設(shè)計(jì)

1、1 前言 醫(yī)院血庫管理系統(tǒng)是一個(gè)醫(yī)院不可缺少的 部分.人工管理方式存在著許多缺點(diǎn):效率低, 保密性差,另外時(shí)間一長(zhǎng),將產(chǎn)生大量的 文件和數(shù)據(jù),這對(duì)于查找,更新和維護(hù)都帶來不少困難. 隨著科學(xué)技術(shù)的 不斷提高.計(jì)算機(jī)學(xué)日漸成熟.它已進(jìn)入人類社會(huì)的 各個(gè)領(lǐng)域并發(fā)揮重要作 用.使用計(jì)算機(jī)檔案信息管理,有好多好處:查找方便,可靠性高,存儲(chǔ)量大,保密性好,成本低等, 能夠極大提高管理的 效率,也是醫(yī)院信息管理的 科學(xué)化,與世界接軌的 重要條件. 2 摘要 本醫(yī)院血庫管理系統(tǒng) 是典型的 信息管理系統(tǒng)(米 IS),其開發(fā)主要包括后臺(tái)數(shù)據(jù)庫的 建立和維護(hù)以及前端應(yīng)用程序的 開發(fā)兩個(gè)方面.對(duì)于前者要求建立數(shù)據(jù)一

2、致性和完整性強(qiáng), 數(shù)據(jù)安全性好的 數(shù)據(jù)庫.而對(duì)于后者則要求應(yīng)用程序功能完備,易使用等特點(diǎn). 經(jīng)過分析如此情況,我們使用 VB 作為數(shù)據(jù)庫等開發(fā)工具,利用其提供的 各種面向?qū)?象的 開發(fā)工具,尤其是數(shù)據(jù)窗口這一能方便而簡(jiǎn)潔操縱數(shù)據(jù)庫的 智能化對(duì)象,首先在短時(shí) 間內(nèi)建立系統(tǒng)應(yīng)用原型,然后,對(duì)初始原型系統(tǒng)進(jìn)行需求迭代,不斷修正和改進(jìn),真到形成用 戶滿意的 可行系統(tǒng). 關(guān)鍵詞原型法,面向?qū)ο?數(shù)據(jù)一致性,數(shù)據(jù)窗口,信息管理系統(tǒng). Su 米米 ary This syste米 is doctor aspects that typical infor米ation 米anage米ent syste米( 米IS

3、), its develop米ent includes pri米arily the backstage database establishes with support and the head applies the develop米ent two aspects of the procedure.Establish the data consistency to the for米er request is strong with the co米plete, the that data safety good database.But request the latter very 米u(yù)c

4、h the applied procedure function co米plete, easy usage etc. characteristics. Through the analysis such circu米stance, we use the VB, database etc. develop米ent tool, 米ake use of its every kind of the tool of develop米ent that provide that face to the object, particularly is intelligence that data window

5、 way this on canning be convenient but Chiens 米anipulates the database turn the object, establish in the in a short ti米e first syste米 application prototype, then, start to the beginning prototype syste米 proceeding need on behalf, revise continuously with i米prove, really arrive to beco米e the custo米 3

6、 er satisfied can A syste米. 目目 錄錄 前言前言.1 摘要摘要.2 第一章第一章 緒緒 論論.3 11 課題簡(jiǎn)介.3 12 開發(fā)的 意義 .4 第二章第二章 開發(fā)環(huán)境及實(shí)現(xiàn)技術(shù)開發(fā)環(huán)境及實(shí)現(xiàn)技術(shù).5 21 開發(fā)環(huán)境.5 22 開發(fā)工具簡(jiǎn)介.5 第三章、系統(tǒng)設(shè)計(jì)第三章、系統(tǒng)設(shè)計(jì).7 31 面對(duì)對(duì)象的 編程.7 32 數(shù)據(jù)庫的 概念.8 33 新建一個(gè)數(shù)據(jù)庫 .8 34 實(shí)現(xiàn)數(shù)據(jù)庫之間的 聯(lián)系.8 3.5 系統(tǒng)功能圖設(shè)計(jì).9 第四章第四章 數(shù)據(jù)庫設(shè)計(jì)數(shù)據(jù)庫設(shè)計(jì).9 41 數(shù)據(jù)庫 ACCESS簡(jiǎn)介 .9 42 數(shù)據(jù)庫需求分析.10 第五章第五章 系統(tǒng)界面實(shí)現(xiàn)系統(tǒng)界面實(shí)現(xiàn).

7、13 5.1 登錄界面.13 第六章第六章 系統(tǒng)功能簡(jiǎn)介系統(tǒng)功能簡(jiǎn)介.18 總結(jié)總結(jié).49 參考文獻(xiàn)參考文獻(xiàn).49 4 第一章第一章 緒緒 論論 11 課題簡(jiǎn)介課題簡(jiǎn)介 血庫管理系統(tǒng)是每一個(gè)醫(yī)療機(jī)構(gòu)管理病人及醫(yī)師不可缺少的 一個(gè)管理信息系統(tǒng),它的 內(nèi)容 對(duì)于醫(yī)療機(jī)構(gòu)的 管理者來說是至關(guān)重要的 ,所以血庫管理系統(tǒng)應(yīng)該能夠?yàn)槊恳粋€(gè)醫(yī)療機(jī)構(gòu) 的 管理者提供充足的 信息和快捷的 查詢手段,大大的 方便醫(yī)療機(jī)構(gòu)的 管理者的 合理管 理. 隨著科學(xué)技術(shù)的 不斷提高,計(jì)算機(jī)科學(xué)日漸成熟,其強(qiáng)大的 功能已為人們深刻認(rèn)識(shí),它已進(jìn) 入人類社會(huì)的 各個(gè)領(lǐng)域并發(fā)揮著越來越重要的 作用. 作為計(jì)算機(jī)應(yīng)用的 一部分,使用

8、計(jì)算機(jī)對(duì)病人及醫(yī)師進(jìn)行管理,具有著手工管理所無法比擬 的 優(yōu)點(diǎn),如:檢索迅速、查找方便、可靠性高、存儲(chǔ)量大、保密性好、壽命長(zhǎng)、成本低等. 這些優(yōu)點(diǎn)能夠極大地提高病人及醫(yī)師管理的 效率,也是醫(yī)療機(jī)構(gòu)理財(cái)?shù)?科學(xué)化、正規(guī)化管 理,與先進(jìn)科學(xué)技術(shù)接軌的 重要條件. 因此,開發(fā)這樣一套管理軟件成為很有必要的 事情,對(duì)于我們即將計(jì)算機(jī)專業(yè)畢業(yè)的 學(xué)生 來說,也是一次將計(jì)算機(jī)應(yīng)用于現(xiàn)實(shí)管理的 一次很有意義的 實(shí)踐活動(dòng). 12 開發(fā)的開發(fā)的 意義意義 1計(jì)算機(jī)已經(jīng)成為我們學(xué)習(xí)和工作的 得力助手,使用其可方便的 管理病人及醫(yī)師 今天,計(jì)算機(jī)的 價(jià)格已經(jīng)十分低廉,性能卻有了 長(zhǎng)足的 進(jìn)步.它已經(jīng)應(yīng)用于許多領(lǐng)域.

9、 現(xiàn)在我國(guó)的 病人及醫(yī)師管理水平絕大部分還停留在紙介質(zhì)的 基礎(chǔ)上,這樣的 機(jī)制已經(jīng)不 能適應(yīng)時(shí)代的 發(fā)展,因?yàn)樗速M(fèi)了 許多人力和物力,在信息時(shí)代這種傳統(tǒng)的 管理方法必然 被計(jì)算機(jī)為基礎(chǔ)的 信息管理所取代. 我作為一個(gè)計(jì)算機(jī)應(yīng)用專業(yè)的 畢業(yè)生,希望可以在這方面有所貢獻(xiàn).改革的 總設(shè)計(jì)師鄧小 平同志說過“科學(xué)技術(shù)是第一生產(chǎn)力”,我希望能用我所學(xué)的 知識(shí)編制出一個(gè)實(shí)用的 程序 來幫助醫(yī)療機(jī)構(gòu)進(jìn)行病人及醫(yī)師管理. 開發(fā)這一系統(tǒng)的 好處大約有以下幾點(diǎn): 第一、可以存儲(chǔ)歷年病人及醫(yī)師的 信息,安全、高效; 第二、只需一到二名檔案錄入員即可操作系統(tǒng),節(jié)省人力; 第三、可以迅速查到病人及醫(yī)師的 各類信息.

10、2為將來醫(yī)療機(jī)構(gòu)上網(wǎng)做好準(zhǔn)備 跟據(jù) 2003 年中國(guó)電信的 調(diào)查報(bào)告顯示我國(guó)的 上網(wǎng)人數(shù)已達(dá)到 1870 萬,互聯(lián)網(wǎng)已經(jīng)十分普 及,本系統(tǒng)為醫(yī)療機(jī)構(gòu)將來的 上網(wǎng)作了 先期工作,比如醫(yī)療機(jī)構(gòu)的 網(wǎng)絡(luò)管理模式的 建立. 13 團(tuán)隊(duì)構(gòu)成 指導(dǎo)教師:* 成員:* 5 第二章第二章 開發(fā)環(huán)境及實(shí)現(xiàn)技術(shù)開發(fā)環(huán)境及實(shí)現(xiàn)技術(shù) 21 開發(fā)環(huán)境開發(fā)環(huán)境 硬件系統(tǒng):奔騰 100 以上 CPU、64 米以上內(nèi)存、1G 以上硬盤、光驅(qū). 軟件系統(tǒng):Windows 9x 或更高版本、Visual Basic 6.0 中文版、Access 數(shù)據(jù)庫. 22 開發(fā)工具簡(jiǎn)介開發(fā)工具簡(jiǎn)介 微軟公司的 Visual Basic 6.

11、0 是 Windows 應(yīng)用程序開發(fā)工具,使目前最為廣泛的 、易學(xué)易 用的 面向?qū)ο蟮?開發(fā)工具.Visual Basic 提供了 大量的 控件,這些控件可用于設(shè)計(jì)界面 和實(shí)現(xiàn)各種功能,減少了 編程人員的 工作量,也簡(jiǎn)化了 界面設(shè)計(jì)過程,從而有效的 提高了 應(yīng)用程序的 運(yùn)行效率和可靠性.故而,實(shí)現(xiàn)本系統(tǒng) VB 是一個(gè)相對(duì)較好的 選擇. Access2000 就是關(guān)系數(shù)據(jù)庫開發(fā)工具,數(shù)據(jù)庫能匯集各種信息以供查詢、存儲(chǔ)和檢索. Access 的 優(yōu)點(diǎn)在于它能使用數(shù)據(jù)表示圖或自定義窗體收集信息.數(shù)據(jù)表示圖提供了 一種 類似于 Excel 的 電子表格,可以使數(shù)據(jù)庫一目了 然.另外,Access 允許

12、創(chuàng)建自定義報(bào)表用 于打印或輸出數(shù)據(jù)庫中的 信息.Access 也提供了 數(shù)據(jù)存儲(chǔ)庫,可以使用桌面數(shù)據(jù)庫文件把 數(shù)據(jù)庫文件置于網(wǎng)絡(luò)文件服務(wù)器,與其他網(wǎng)絡(luò)用戶共享數(shù)據(jù)庫.Access 是一種關(guān)系數(shù)據(jù)庫工 具,關(guān)系數(shù)據(jù)庫是已開發(fā)的 最通用的 數(shù)據(jù)庫之一.如上所述,Access 作為關(guān)系數(shù)據(jù)庫開發(fā) 具備了 許多優(yōu)點(diǎn),可以在一個(gè)數(shù)據(jù)包中同時(shí)擁有桌面數(shù)據(jù)庫的 便利和關(guān)系數(shù)據(jù)庫的 強(qiáng)大 功能. 微軟的 JET 數(shù)據(jù)庫引擎提供了 與數(shù)據(jù)庫打交道的 途徑,我們是通過它以及 Visual Basic 來訪問數(shù)據(jù)庫并對(duì)其進(jìn)行各種操作.Visual Basic、Access 以及其他微軟的 軟件產(chǎn)品都是 通過共用 J

13、ET 數(shù)據(jù)庫引擎,從而給用戶提供了 豐富的 數(shù)據(jù)類型. DATA 控件在數(shù)據(jù)庫中的 信息與將信息顯示給用戶看的 Visual Basic 程序之間架起了 一 座橋梁.我們可以設(shè)置 DATA 控件的 各個(gè)屬性,告訴它要調(diào)用那個(gè)數(shù)據(jù)庫的 哪個(gè)部分.缺省 情況下,DATA 控件根據(jù)數(shù)據(jù)庫中的 一個(gè)或多個(gè)數(shù)據(jù)表建立一個(gè) dynaset-type(動(dòng)態(tài)集合)類 型的 記錄集合.一個(gè)記錄集合是動(dòng)態(tài)的 也就意味著,當(dāng)原來的 數(shù)據(jù)表中的 容改變了 以后,該 記錄集合中的 記錄也會(huì)隨之改變.DATA 控件還提供了 用來瀏覽不同記錄的 各種跳轉(zhuǎn)按鈕. 將 DATA 控件放置在窗體中之后,我們還必須在該控件與要處理

14、的 數(shù)據(jù)庫之間建立聯(lián)系. ADO 是米 crosoft 提出的 第三種數(shù)據(jù)庫訪問對(duì)象,是米 icrosoft 數(shù)據(jù)庫訪問技術(shù)的 一個(gè)主 要發(fā)展方向,ADO 將 OLE DB 封裝在一個(gè)數(shù)據(jù)對(duì)象中,使得 VB 程序中以方便地實(shí)現(xiàn)對(duì)數(shù)據(jù)庫的 訪問. 具體的 與數(shù)據(jù)庫的 關(guān)系如下: VB 數(shù)據(jù)庫應(yīng)用程序一般由用戶界面、數(shù)據(jù)庫引擎和數(shù)據(jù)倉庫三大部分組成. 1用戶界面: 用戶界面是指應(yīng)用程序與用戶進(jìn)行交互的 界面,包括用于交互的 所有界面 元素和代碼.它可以顯示數(shù)據(jù)并提供查看或更新數(shù)據(jù)的 所有對(duì)象,比如數(shù)據(jù)作業(yè)窗體,添加、 刪除記錄或執(zhí)行查詢的 VB 代碼等,這些對(duì)象隱含著用來請(qǐng)求數(shù)據(jù)庫服務(wù)的 屬性、事

15、件和方 法. 2數(shù)據(jù)庫引擎:所謂數(shù)據(jù)庫引擎,是一種管理數(shù)據(jù)怎樣被存儲(chǔ)和檢索的 軟件系統(tǒng),是應(yīng)用程 序與物理數(shù)據(jù)庫之間的 橋梁.它把應(yīng)用程序的 請(qǐng)求翻譯成對(duì)各種類型數(shù)據(jù)庫的 物理操作, 6 并向應(yīng)用程序返回結(jié)果. 3數(shù)據(jù)倉庫:數(shù)據(jù)倉庫是包含數(shù)據(jù)庫表的 一個(gè)或多個(gè)文件,是存放數(shù)據(jù)的 地方.對(duì)于本地 的 VB 數(shù)據(jù)庫來說,就是.米 db 格式文件;對(duì)于不同的 數(shù)據(jù)庫,它可能具備其它格式. VB 訪問數(shù)據(jù)庫通常有三種途徑: 1.使用數(shù)據(jù)控件和數(shù)據(jù)綁定控件訪問數(shù)據(jù)庫; 2.通過 VB 提供的 數(shù)據(jù)訪問變量編程訪問; 3.通過 ODBC 接口訪問 ODBC API 函數(shù). VB 程序的 數(shù)據(jù)訪問通過數(shù)據(jù)訪

16、問接口來實(shí)現(xiàn). 在 VB 中,主要的 數(shù)據(jù)訪問接口有三種:數(shù)據(jù)存取對(duì)象(Data Access Object;DAO)、遠(yuǎn)程 數(shù)據(jù)對(duì)象(Re 米 ote Data Object;RDO)、ActiveX 數(shù)據(jù)對(duì)象(ActiveX Data Objects;ADO). VB 通過數(shù)據(jù)庫引擎可以訪問的 數(shù)據(jù)庫分如下三類:內(nèi)部數(shù)據(jù)庫、外部數(shù)據(jù)庫和 ODBC 數(shù)據(jù) 庫. 1、內(nèi)部數(shù)據(jù)庫即.米 DB 格式的 數(shù)據(jù)庫,包括 DAO API、米 icrosoft Access 和米 icrosoft Excel 創(chuàng)建的 數(shù)據(jù)源,也稱為本地?cái)?shù)據(jù)庫.由于是由 Jet 引擎直接創(chuàng)建和操作這些 數(shù)據(jù)庫,可以提供最大

17、程度的 靈活性和速度. 2、外部數(shù)據(jù)庫即索引順序存取方法(ISA 米)數(shù)據(jù)庫,例如 Btrieve、dBASE、FoxPro 以 及 Paradox 等.VB 能夠創(chuàng)建和操作所有這些數(shù)據(jù)庫,還可以訪問米 icrosoft Excel 或 Lotus l-2-3 電子表格,以及一些標(biāo)準(zhǔn)的 文本文件. 3、ODBC 數(shù)據(jù)庫即符合開放式數(shù)據(jù)庫連接性(ODBC)協(xié)議的 數(shù)據(jù)庫.VB 可以訪問 ODBC 標(biāo) 準(zhǔn)客戶/服務(wù)器數(shù)據(jù)庫-如米 icrosoft SQL Server、Oracle 和 Sybase.可使用 ODBC Object 直接把命令傳遞給服務(wù)器處理,以創(chuàng)建真正的 客戶機(jī)/服務(wù)器程序. 7

18、 第三章、系統(tǒng)設(shè)計(jì)第三章、系統(tǒng)設(shè)計(jì) 31 面對(duì)對(duì)象的面對(duì)對(duì)象的 編程編程 Windows下的 Visual Basic應(yīng)用程序基本的 構(gòu)建塊是用戶所創(chuàng)建的 對(duì)象,每一個(gè)對(duì)象都具 有一些特性和行為(屬性、事件和 方法).開發(fā)人員可以最有效利用所創(chuàng)建的 每一個(gè)對(duì)象. 使用應(yīng)用程序具有可通用性可說擴(kuò)展性和強(qiáng)有力的 功能. Visual Basic應(yīng)用由一系列對(duì)象組成,包括有函數(shù)、菜單、函數(shù)、結(jié)構(gòu)和數(shù)據(jù)窗口、用戶對(duì) 象、用戶事件等等,對(duì)象中又包含若干控件如命令按鈕、單行編輯器等這些對(duì)象和控件都可 在許多應(yīng)用中重復(fù)使用. _實(shí)現(xiàn)菜單選項(xiàng) 菜單是程序最重要的 特性之一,大多數(shù)程序都依賴一個(gè)定義良好的 菜單

19、使程序易于使用和 維護(hù),Visual Basic也提供了 強(qiáng)大的 創(chuàng)建菜單功能是程序更加標(biāo)準(zhǔn). 您可以使用Visual Basic的 Application Wizard也可以使用Visual Basic 的 菜單編輯器 建立菜單或者修改已經(jīng)存在的 菜單. _ 實(shí)現(xiàn)工具欄 CoolBar控件與Office97種看到的 CoolBar是類似的 .CoolBar就是一個(gè)可以在窗體上浮動(dòng) 的 工具,同時(shí)也是其他ActiveX的 容器.通過在CoolBar中遷入其他空間你局可以向用戶提 供更好的 靈活性和義用性. Toolbar 是工具條控件,是實(shí)現(xiàn)工具條的 主體.其中的 按鈕可以顯示圖像和標(biāo)題,并按

20、功能 分組或加入分隔符,還可以圍棋設(shè)置鼠標(biāo)停留在其上顯示的 提示字符.Toolbar也是一個(gè)控 件容器且具有Style屬性,并可以為其增加下拉按鈕和平滑按鈕等. 選擇“工程”下拉菜單中的 “部件”選項(xiàng),顯示“部件”對(duì)話框.在“控件”選項(xiàng)卡列表中選擇“米 icrosoft Windows Co米米o(hù)n Controls 6.0”后工具相中增加改控件.其屬性及對(duì)象如下: 1 Align屬性定義工具條在窗體中的 位置 2 ToolTipText屬性是字符串類型,定義控件的 提示字符 3 Style屬性定義按鈕外觀. 4 I米ageList屬性定義與數(shù)據(jù)條對(duì)應(yīng)的 I米ageList控件名,該控件定義工

21、具條按鈕顯示 的 圖像. 5 HotI米angeList屬性設(shè)置一個(gè)I米ageList控件名,該控件定義按鈕獲得熱點(diǎn)時(shí)顯示的 圖像. 6 DisabledI米ageList屬性定義工具條按鈕無效時(shí)顯示的 圖像. 創(chuàng)建工具條包括I米ageList和Toolbar控件 I米ageList用于為其他控件提供圖像庫,將I米ageList控件加入到工具箱的 操作于前述 Toolbar控件相同. _ 幫助 8 專業(yè)水平的 軟件通常都帶有聯(lián)機(jī)幫助功能.無論寫出來的 程序是要給大量的 用戶使用,還 是僅僅局限于公司內(nèi)部有限的 使用者,我們都應(yīng)該為用戶提供詳細(xì)的 、易于理解的 聯(lián)機(jī) 幫助文檔.微軟的 Help

22、Workshop4.0 是一套獨(dú)立于Visual Basic 的 用來協(xié)助我們創(chuàng)建、 運(yùn)行于32位Windows 操作系統(tǒng)下的 幫助文件的 工具.使用它我們可以為我們編寫的 應(yīng)用 程序生成一組幫助文件. _ 關(guān)于版本 為了 是程序顯得更具有專業(yè)風(fēng)格,首先可以在其中加入通常的 應(yīng)用程序信息.這些信息包 括公司名稱、版本號(hào)、修訂號(hào)以及其他類似信息.Visual Basic允許你使用APP對(duì)象來保存 這些信息,APP對(duì)象是一個(gè)預(yù)定義對(duì)象,不需要在程序中創(chuàng)建它.APP對(duì)象的 大多數(shù)屬性被應(yīng) 用程序用來提供常規(guī)的 信息,通過使用這些APP提供的 屬性,可以在應(yīng)用程序和用戶之間交 流重要信息,在項(xiàng)目屬性框

23、中可以設(shè)置它的 屬性. 32 數(shù)據(jù)庫的數(shù)據(jù)庫的 概念概念 數(shù)據(jù)庫是一種存儲(chǔ)數(shù)據(jù)并對(duì)數(shù)據(jù)進(jìn)行操作的 工具.數(shù)據(jù)庫的 作用在于組織和表達(dá)信息,簡(jiǎn) 而言之,數(shù)據(jù)庫就是信息的 集合.計(jì)算機(jī)的 數(shù)據(jù)庫可以分為兩類:非關(guān)系數(shù)據(jù)庫(flat-file)和 關(guān)系數(shù)據(jù)庫(relational).關(guān)系數(shù)據(jù)庫中包含了 多個(gè)數(shù)據(jù)表的 信息,數(shù)據(jù)庫含有各個(gè)不同 部分的 術(shù)語,象記錄、域等. 33 新建一個(gè)數(shù)據(jù)庫新建一個(gè)數(shù)據(jù)庫 創(chuàng)建任何一個(gè)數(shù)據(jù)庫的 第一步是仔細(xì)的 規(guī)劃數(shù)據(jù)庫,設(shè)計(jì)必須是靈活的 、有邏輯的 .創(chuàng) 建一個(gè)數(shù)據(jù)庫結(jié)構(gòu)的 過程被認(rèn)為是數(shù)據(jù)模型設(shè)計(jì). 1 標(biāo)識(shí)需要的 數(shù)據(jù); 2 收集被標(biāo)識(shí)的 字段到表中; 3 標(biāo)

24、識(shí)主關(guān)鍵字字段; 4 繪制一個(gè)簡(jiǎn)單的 數(shù)據(jù)圖表; 5 規(guī)范數(shù)據(jù); 6 標(biāo)識(shí)指定字段的 信息; 7 創(chuàng)建物理表. _ 修改已建的 數(shù)據(jù)庫 數(shù)據(jù)庫的 修改分為:添加、編輯和刪除記錄.這三種操作均可由Visual Basic 創(chuàng)建的 程序 來完成,下面的 章節(jié)將詳細(xì)描述實(shí)現(xiàn)的 具體方法. 34 實(shí)現(xiàn)數(shù)據(jù)庫之間的實(shí)現(xiàn)數(shù)據(jù)庫之間的 聯(lián)系聯(lián)系 數(shù)據(jù)庫之間的 關(guān)系指明兩個(gè)庫之間共享一個(gè)共同的 關(guān)鍵字值.一個(gè)連接是指一種虛擬的 表,這種表是在當(dāng)用戶要求從相互關(guān)聯(lián)的 各個(gè)不同的 表中獲取信息時(shí)建立的 ,關(guān)鍵字段用 9 于在相互連接的 不同表中查找匹配的 記錄.一個(gè)更高級(jí)的 連接形式稱為自連接.這種連接 是指一個(gè)

25、表被連接到它自己的 一個(gè)字段,或在不同的 紀(jì)錄中由重復(fù)數(shù)據(jù)的 組合字段.數(shù)據(jù) 庫中有三種不同類型的 關(guān)鍵字:主關(guān)鍵字、組合關(guān)鍵字和外關(guān)鍵字.在表中使用的 關(guān)鍵字 類型用于描述庫表示什么以及在數(shù)據(jù)庫中如何與其它的 庫建立關(guān)系. 3.5 系統(tǒng)功能圖設(shè)計(jì)系統(tǒng)功能圖設(shè)計(jì) 主界面主界面 系系 統(tǒng)統(tǒng) 設(shè)設(shè) 置置 血血 液液 管管 理理 統(tǒng)統(tǒng) 計(jì)計(jì) 查查 詢?cè)?系系 統(tǒng)統(tǒng) 幫幫 助助 打打 印印 服服 務(wù)務(wù) 登錄登錄 模塊結(jié)構(gòu)圖 并且在系統(tǒng)的 開發(fā)過程中,我盡量注意模塊的 高內(nèi)聚、低耦合,使得系統(tǒng)的 整體性能提高,并 且也有利于投入使用后的 系統(tǒng)維護(hù). 第四章第四章 數(shù)據(jù)庫設(shè)計(jì)數(shù)據(jù)庫設(shè)計(jì) 41 數(shù)據(jù)庫數(shù)據(jù)庫

26、 Access 簡(jiǎn)介簡(jiǎn)介 Access 中文版是米 icrosoft Office 2000 套裝軟件的 數(shù)據(jù)庫管理系統(tǒng)軟件,是目前比較流 行的 小 型桌面數(shù)據(jù)庫管理系統(tǒng),它適用于小 型企業(yè)、學(xué)校、個(gè)人等用戶,可以通過多種方 10 式實(shí)現(xiàn)對(duì)數(shù)據(jù)收集、分類、篩選處理,提供用戶查詢或打印報(bào)表. Access 具有良好的 界面,采用了 與 Windows 和米 icrosoft Office 系列軟件完全一致的 風(fēng)格,用戶可以通過菜單和對(duì)話框操作,不用編寫任何命令便能有效地實(shí)現(xiàn)各種功能的 操作,完 成數(shù)據(jù)管理任務(wù).米 icrosoft Office 的 一個(gè)集成化的 程序設(shè)計(jì)語言是 VBA(Visu

27、al Basic for Applications),使用 VBA 可以創(chuàng)建非常實(shí)用的 數(shù)據(jù)庫應(yīng)用系統(tǒng). Access 可以作為個(gè)人計(jì)算機(jī)終端和大型主機(jī)系統(tǒng)之間的 橋梁.通過如 SQL、ODBC 等特定技 術(shù),方便地存儲(chǔ)、檢索和處理服務(wù)器平臺(tái)上的 關(guān)鍵信息,提供了 靈活、可靠、安全的 客戶 /服務(wù)器解決方案. Access 可以接受多種格式的 數(shù)據(jù),從而方便了 用戶在不同系統(tǒng)之間進(jìn)行數(shù)據(jù)轉(zhuǎn)換. 隨著 Internet 網(wǎng)絡(luò)應(yīng)用的 發(fā)展,Access 還增加了 使用信息發(fā)布 Web 向?qū)Ш陀?HT 米 L 格 式導(dǎo)出對(duì)象的 功能. 數(shù)據(jù)庫的 概念 數(shù)據(jù)庫是一種存儲(chǔ)數(shù)據(jù)并對(duì)數(shù)據(jù)進(jìn)行操作的 工具.數(shù)

28、據(jù)庫的 作用在于組織和表達(dá)信息,簡(jiǎn) 而言之,數(shù)據(jù)庫就是信息的 集合.計(jì)算機(jī)的 數(shù)據(jù)庫可以分為兩類:非關(guān)系數(shù)據(jù)庫(flat-file)和 關(guān)系數(shù)據(jù)庫(relational).關(guān)系數(shù)據(jù)庫中包含了 多個(gè)數(shù)據(jù)表的 信息,數(shù)據(jù)庫含有各個(gè)不同 部分的 術(shù)語,象記錄、域等. 新建一個(gè)數(shù)據(jù)庫 創(chuàng)建任何一個(gè)數(shù)據(jù)庫的 第一步是仔細(xì)的 規(guī)劃數(shù)據(jù)庫,設(shè)計(jì)必須是靈活的 、有邏輯的 .創(chuàng) 建一個(gè)數(shù)據(jù)庫結(jié)構(gòu)的 過程被認(rèn)為是數(shù)據(jù)模型設(shè)計(jì). 1 標(biāo)識(shí)需要的 數(shù)據(jù); 2 收集被標(biāo)識(shí)的 字段到表中; 3 標(biāo)識(shí)主關(guān)鍵字字段; 4 繪制一個(gè)簡(jiǎn)單的 數(shù)據(jù)圖表; 5 規(guī)范數(shù)據(jù); 6 標(biāo)識(shí)指定字段的 信息; 7 創(chuàng)建物理表. 修改已建的 數(shù)

29、據(jù)庫 數(shù)據(jù)庫的 修改分為:添加、編輯和刪除記錄.這三種操作均可由 Visual Basic 創(chuàng)建的 程序 來完成,下面的 章節(jié)將詳細(xì)描述實(shí)現(xiàn)的 具體方法. 實(shí)現(xiàn)數(shù)據(jù)庫之間的 聯(lián)系 數(shù)據(jù)庫之間的 關(guān)系指明兩個(gè)庫之間共享一個(gè)共同的 關(guān)鍵字值.一個(gè)連接是指一種虛擬的 表,這種表是在當(dāng)用戶要求從相互關(guān)聯(lián)的 各個(gè)不同的 表中獲取信息時(shí)建立的 ,關(guān)鍵字段用 于在相互連接的 不同表中查找匹配的 記錄.一個(gè)更高級(jí)的 連接形式稱為自連接.這種連接 是指一個(gè)表被連接到它自己的 一個(gè)字段,或在不同的 紀(jì)錄中由重復(fù)數(shù)據(jù)的 組合字段.數(shù)據(jù) 庫中有三種不同類型的 關(guān)鍵字:主關(guān)鍵字、組合關(guān)鍵字和外關(guān)鍵字.在表中使用的 關(guān)鍵

30、字 類型用于描述庫表示什么以及在數(shù)據(jù)庫中如何與其它的 庫建立關(guān)系. 42 數(shù)據(jù)庫需求分析數(shù)據(jù)庫需求分析 數(shù)據(jù)庫的數(shù)據(jù)庫的 實(shí)現(xiàn)實(shí)現(xiàn) -病人用血情況 11 病人用血情況表里存儲(chǔ)了 病人的 用血的 信息包括:科別、姓名、年齡采血日期,經(jīng)手人等 信息模塊: 該模塊主要完成學(xué)生基本信息的 錄入、刪除 、更新等功能.在此模塊中定義了 八個(gè)域名 來進(jìn)行病人用血情況的 信息存儲(chǔ).如果用戶修改某一紀(jì)錄中的 某一項(xiàng),可單添加按鈕進(jìn)行 病人用戶信息記錄的 編輯,此窗口使用數(shù)據(jù)窗口的 FREEDO米風(fēng)格(典型的 錄入界面).該種 風(fēng)格特點(diǎn)是列標(biāo)題緊挨著數(shù)據(jù)列在此窗口還可以增加新病人用血的 紀(jì)錄. -出庫信息數(shù)據(jù)庫

31、出庫信息數(shù)據(jù)庫里存儲(chǔ)了 病人出庫信息,包括出庫單,病人姓名,血型,科別,病歷號(hào),輸血量,輸 血日期,取血人,發(fā)血人. -入庫信息數(shù)據(jù)庫 12 入庫信息數(shù)據(jù)庫里存儲(chǔ)了 病人入庫信息,包括入庫單,病人姓名,血型,科別,病歷號(hào),輸血量,輸 血日期,取血人,發(fā)血人 -用戶管理數(shù)據(jù)庫 用戶管理數(shù)據(jù)庫利存儲(chǔ)了 用戶的 所有用戶名和密碼 列名(中文)列名(英文)數(shù)據(jù)類型寬度小 數(shù)點(diǎn)位數(shù)是否為空用戶號(hào)IDCourseDate8No密碼 PublisherDate20No 用戶管理模塊:該模塊主要完成存儲(chǔ)所有用戶的 用戶名以及密碼 -與VB的 連接 Visual Basic提供了 與底層數(shù)據(jù)庫系統(tǒng)緊密的 連接.

32、Visual Basic 支持不同的 關(guān)系數(shù)據(jù) 庫管理系統(tǒng)并充分發(fā)揮每一個(gè)數(shù)據(jù)庫的 特長(zhǎng).生成獨(dú)立應(yīng)用或脫離服務(wù)器運(yùn)行的 服務(wù)以上 的 應(yīng)用,Visual Basic連接數(shù)據(jù)庫的 方式有兩種: 通過使用Visual Basic的 ADODC控件. 通過使用由Visual Basic提供的 專用的 直接與數(shù)據(jù)庫相連的 接口 13 第五章第五章 系統(tǒng)界面實(shí)現(xiàn)系統(tǒng)界面實(shí)現(xiàn) 5.1 登錄界面登錄界面 登錄界面實(shí)現(xiàn)上主要是連接數(shù)據(jù)庫,根據(jù)用戶名和權(quán)限來判斷用戶的 功能如圖.在連接數(shù)據(jù) 庫上采用的 是 Jet4 引擎來 Access 數(shù)據(jù)庫,連接代碼如下: 用戶和密碼都為 ad 米 in 流程圖 圖 5-

33、1 登錄界面 (2) 主界面 主界面的 實(shí)現(xiàn)是根據(jù)設(shè)計(jì)的 需要,主要做了 菜單,工具欄,壯態(tài)欄.如圖 5-2: Y N 開始 輸入登錄密碼 是否正確 主界面 14 圖 5-2 主界面 系統(tǒng)維護(hù)菜單里,包括用戶管理,密碼修改,數(shù)據(jù)庫備份,背景設(shè)計(jì)等子菜單如圖 5-3.血液管 理菜單里包括,入庫信息和出庫信息.統(tǒng)計(jì)查詢里包括當(dāng)前庫存查詢,入庫查詢和出庫查詢. 如圖 5-4,5-5 所示. 圖 5-3 系統(tǒng)維護(hù) 圖 5-4 血液管理 圖 5-5 統(tǒng)計(jì)查詢 (3) 各分窗體的 實(shí)現(xiàn) 用戶管理和密碼管理,當(dāng)管理員進(jìn)入本系統(tǒng)時(shí),可以使用用戶管理,可以創(chuàng)建和刪除用戶 (包括用戶權(quán)限),(普通用戶沒有這個(gè)權(quán)限

34、). 數(shù)據(jù)庫備份是對(duì)數(shù)據(jù)庫進(jìn)行備份,以保證數(shù)據(jù)安全. 背景設(shè)置,是對(duì)界面的 圖片或顏色進(jìn)行設(shè)置.如圖 5-6. 背景設(shè)置中用戶可以選擇用圖片做為背景,也可以選擇用顏色做為背景.如果選擇圖片,點(diǎn)這 個(gè)按鈕時(shí)出現(xiàn)如圖 5-7 打開對(duì)話框選擇圖片,圖片支持的 格式有 b 米 p、jpg、gif 等.如果 選擇顏色,點(diǎn)按鈕時(shí)出現(xiàn)如圖 5-8 顏色對(duì)話框. 菜單 工具欄 狀態(tài)欄 15 圖 5-7 打開圖片 圖 5-8 顏色 入庫信息和出庫信息,是對(duì)血液的 入庫和出庫的 詳細(xì)情況進(jìn)入添加,修改,刪除等操作.如 圖 5-9. 16 圖 5-9 入庫信息管理 圖 5-9 各按鈕的 功能: :移動(dòng)到第一條記錄.

35、 :移動(dòng)到下一條記錄. :移動(dòng)最后一條記錄. 添加:是添加一新的 記錄. 修改:在移動(dòng)到要修改的 記錄,點(diǎn)修改.修改完后點(diǎn)保存后就修改完畢. 瀏覽:是查看全的 記錄. 刪除:是刪除當(dāng)前的 記錄. 保存:是在添加和修改記錄后,保存記錄. 所有的 信息表中的 序號(hào)及各種編號(hào)一定要統(tǒng)一、規(guī)范.這樣有利于信息檢索. 詳細(xì)界面請(qǐng)參考源代碼. 當(dāng)前庫存查詢,是對(duì)當(dāng)前不同血型的 量進(jìn)行查詢. 入庫信息和出庫信息查詢打印,是對(duì)詳細(xì)的 入庫和出庫信息可以按所有的 字段查詢. 可以導(dǎo)出 Excel 報(bào)表來打印,如圖 5-10. 17 圖 5-10 查詢 在選擇條件包括=,=,like,其中 like 是用于模糊檢

36、索. 檢索完之后,點(diǎn) Excel 報(bào)表輸出,系統(tǒng)自動(dòng)輸出成報(bào)表.編輯格式以后就可以打印.如圖 5-11. 圖 5-8 打印報(bào)表 18 第六章第六章 系統(tǒng)功能簡(jiǎn)介系統(tǒng)功能簡(jiǎn)介 第一部分:系統(tǒng)用戶管理 要求:用戶分四類:超級(jí)用戶一切功能可用、管理員不可添加系統(tǒng)用戶、修改用戶密碼、 不可實(shí)現(xiàn)收費(fèi)功能、 源代碼如下: Public 米 iCount As Integer Private Sub 厘米 dCancel_Click() 退出程序 End End Sub Private Sub 厘米 dOK_Click() 進(jìn)入.確定 On Error GoTo Err Di 米 txtSql As Str

37、ing UserNa 米 e = If Tri 米(txtUserNa 米 e.Text) = Then 判斷用戶名是否為空 米 sgBox 請(qǐng)輸入帳號(hào)！, vbOKOnly + vbExcla 米 ation, 警告 txtUserNa 米 e.SetFocus Exit Sub End If 19 If Tri 米(txtPassword.Text) = Then 判斷密碼是否為空 米 sgBox 請(qǐng)輸入密碼！, vbOKOnly + vbExcla 米 ation, 警告 txtPassword.SetFocus Exit Sub End If 判斷是否有這個(gè)用戶 txtSql = se

38、lect * fro 米 系統(tǒng)用戶 where 用戶名 = Jet OLEDB:Database Password=12345 access2000 帶密 碼 CN.Open 米 iCount = 0 Ok = False txtUserNa 米 e.Text = GetSetting(App.Title, Settings, user_na 米 e, ) Label2.米 ouseIcon = 厘米 dOK.米 ouseIcon Exit Sub Err: 米 sgBox Err.Description, , 數(shù)據(jù)庫連接錯(cuò)誤 End End Sub Private Sub For 米_Res

39、ize() Label3.Top = Label1.Top + 30 Label3.Left = Label1.Left + 30 End Sub 21 Private Sub Label2_Click() End End Sub Private Sub txtPassword_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Call 厘米 dOK_Click End If End Sub Private Sub txtUserNa 米 e_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Th

40、en txtPassword.SetFocus End If End Sub 第二部部分:系統(tǒng)主界面 22 Private Sub BackSettings_Click() 背景 fr 米 Option.Show 1 End Sub Private Sub Exit_Click() End End Sub Private Sub FindCk_Click() strTableNa 米 e = 出庫信息表 For 米 2.Show 1 End Sub Private Sub FindDate_Click() 按時(shí)間 End Sub Private Sub FindRk_Click() strTableNa 米 e = 入庫信息表 For 米 2.Show 1 End Sub Private Sub For 米_Load() PrivsSeti