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

2、致性和完整性強, 數(shù)據(jù)安全性好的 數(shù)據(jù)庫.而對于后者則要求應用程序功能完備,易使用等特點. 經(jīng)過分析如此情況,我們使用 VB 作為數(shù)據(jù)庫等開發(fā)工具,利用其提供的 各種面向對 象的 開發(fā)工具,尤其是數(shù)據(jù)窗口這一能方便而簡潔操縱數(shù)據(jù)庫的 智能化對象,首先在短時 間內建立系統(tǒng)應用原型,然后,對初始原型系統(tǒng)進行需求迭代,不斷修正和改進,真到形成用 戶滿意的 可行系統(tǒng). 關鍵詞原型法,面向對象,數(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 米uc

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 課題簡介.3 12 開發(fā)的 意義 .4 第二章第二章 開發(fā)環(huán)境及實現(xiàn)技術開發(fā)環(huán)境及實現(xiàn)技術.5 21 開發(fā)環(huán)境.5 22 開發(fā)工具簡介.5 第三章、系統(tǒng)設計第三章、系統(tǒng)設計.7 31 面對對象的 編程.7 32 數(shù)據(jù)庫的 概念.8 33 新建一個數(shù)據(jù)庫 .8 34 實現(xiàn)數(shù)據(jù)庫之間的 聯(lián)系.8 3.5 系統(tǒng)功能圖設計.9 第四章第四章 數(shù)據(jù)庫設計數(shù)據(jù)庫設計.9 41 數(shù)據(jù)庫 ACCESS簡介 .9 42 數(shù)據(jù)庫需求分析.10 第五章第五章 系統(tǒng)界面實現(xiàn)系統(tǒng)界面實現(xiàn).

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

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

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

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

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

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

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

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

15、件和方 法. 2數(shù)據(jù)庫引擎:所謂數(shù)據(jù)庫引擎,是一種管理數(shù)據(jù)怎樣被存儲和檢索的 軟件系統(tǒng),是應用程 序與物理數(shù)據(jù)庫之間的 橋梁.它把應用程序的 請求翻譯成對各種類型數(shù)據(jù)庫的 物理操作, 6 并向應用程序返回結果. 3數(shù)據(jù)倉庫:數(shù)據(jù)倉庫是包含數(shù)據(jù)庫表的 一個或多個文件,是存放數(shù)據(jù)的 地方.對于本地 的 VB 數(shù)據(jù)庫來說,就是.米 db 格式文件;對于不同的 數(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、問接口來實現(xiàn). 在 VB 中,主要的 數(shù)據(jù)訪問接口有三種:數(shù)據(jù)存取對象(Data Access Object;DAO)、遠程 數(shù)據(jù)對象(Re 米 ote Data Object;RDO)、ActiveX 數(shù)據(jù)對象(ActiveX Data Objects;ADO). VB 通過數(shù)據(jù)庫引擎可以訪問的 數(shù)據(jù)庫分如下三類:內部數(shù)據(jù)庫、外部數(shù)據(jù)庫和 ODBC 數(shù)據(jù) 庫. 1、內部數(shù)據(jù)庫即.米 DB 格式的 數(shù)據(jù)庫,包括 DAO API、米 icrosoft Access 和米 icrosoft Excel 創(chuàng)建的 數(shù)據(jù)源,也稱為本地數(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 電子表格,以及一些標準的 文本文件. 3、ODBC 數(shù)據(jù)庫即符合開放式數(shù)據(jù)庫連接性(ODBC)協(xié)議的 數(shù)據(jù)庫.VB 可以訪問 ODBC 標 準客戶/服務器數(shù)據(jù)庫-如米 icrosoft SQL Server、Oracle 和 Sybase.可使用 ODBC Object 直接把命令傳遞給服務器處理,以創(chuàng)建真正的 客戶機/服務器程序. 7

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

37、ing UserNa 米 e = If Tri 米(txtUserNa 米 e.Text) = Then 判斷用戶名是否為空 米 sgBox 請輸入帳號！, vbOKOnly + vbExcla 米 ation, 警告 txtUserNa 米 e.SetFocus Exit Sub End If 19 If Tri 米(txtPassword.Text) = Then 判斷密碼是否為空 米 sgBox 請輸入密碼！, vbOKOnly + vbExcla 米 ation, 警告 txtPassword.SetFocus Exit Sub End If 判斷是否有這個用戶 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ù)庫連接錯誤 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() 按時間 End Sub Private Sub FindRk_Click() strTableNa 米 e = 入庫信息表 For 米 2.Show 1 End Sub Private Sub For 米_Load() PrivsSeti