【精品畢業(yè)設(shè)計(jì)】基于VB和MS SQL Server的HIS醫(yī)院管理信息系統(tǒng)設(shè)計(jì)

1、引言11 醫(yī)院信息管理系統(tǒng)現(xiàn)狀近年來(lái)，隨著我國(guó)信息產(chǎn)業(yè)的飛速開(kāi)展，計(jì)算機(jī)的開(kāi)發(fā)應(yīng)用已滲透到各個(gè)領(lǐng)域，而且日趨普及。在醫(yī)學(xué)領(lǐng)域內(nèi)，計(jì)算機(jī)的應(yīng)用已經(jīng)十分廣泛，各種智能診斷設(shè)備都與計(jì)算機(jī)緊密結(jié)合在一起，主要應(yīng)用于兩個(gè)方面：一是醫(yī)療設(shè)備智能化，以硬件為主，如彩色B超、CT等。另一種是醫(yī)院信息管理系統(tǒng)HIS的軟件建設(shè)，不僅可以提高醫(yī)院的工作效率，同時(shí)，也提升了醫(yī)院的現(xiàn)代化管理形象。我國(guó)醫(yī)院信息管理系統(tǒng)的開(kāi)展形勢(shì)十分令人鼓舞，無(wú)論是國(guó)家、醫(yī)院還是軟件公司，都投入了大量的人力、物力、財(cái)力。大中型醫(yī)院根本上都建設(shè)了自己的醫(yī)院信息管理系統(tǒng)，這說(shuō)明醫(yī)院本身在對(duì)HIS建設(shè)的認(rèn)識(shí)上都有了很大的提高。信息管理系統(tǒng)的建設(shè)

2、對(duì)醫(yī)院帶來(lái)的效率、效益以及管理水平的提高，使醫(yī)院管理層對(duì)信息管理系統(tǒng)建設(shè)的重要性和必要性有了更深一步的認(rèn)識(shí)。12 開(kāi)發(fā)系統(tǒng)意義隨著我國(guó)醫(yī)療衛(wèi)生體制改革的逐步深入，國(guó)家將大力開(kāi)展城市社區(qū)和農(nóng)村鄉(xiāng)鎮(zhèn)衛(wèi)生效勞事業(yè)，但從目前的開(kāi)展現(xiàn)狀看，這些小型醫(yī)院信息管理系統(tǒng)的建設(shè)還很薄弱。而從醫(yī)院的效勞質(zhì)量和經(jīng)濟(jì)效益上考慮，HIS系統(tǒng)的有效運(yùn)行，將全面提升醫(yī)院的信息化管理水平，提高醫(yī)院管理人員、醫(yī)務(wù)人員的工作效率，降低醫(yī)院的管理本錢，為患者就醫(yī)提供便利，為醫(yī)院創(chuàng)造更大的社會(huì)效益和經(jīng)濟(jì)效益。因此，一個(gè)適應(yīng)社會(huì)開(kāi)展的醫(yī)院，不僅需要有一流的硬件設(shè)施，同樣也需要一個(gè)適合醫(yī)院開(kāi)展的HIS系統(tǒng)。由此可以看出，隨著我國(guó)城鄉(xiāng)衛(wèi)生

3、事業(yè)的開(kāi)展壯大，針對(duì)小型醫(yī)院特點(diǎn)和需求開(kāi)發(fā)HIS系統(tǒng)，有著十分廣闊的市場(chǎng)和開(kāi)展前景。第二章 需求分析說(shuō)明書21 開(kāi)發(fā)系統(tǒng)背景從我國(guó)大中小醫(yī)院及其信息化建設(shè)的情況，我們可以看到目前我國(guó)HIS建設(shè)過(guò)程中，鄉(xiāng)鎮(zhèn)及社區(qū)小型醫(yī)院的信息化建設(shè)并沒(méi)有得到長(zhǎng)足的開(kāi)展，沒(méi)有得到HIS企業(yè)的根本重視和主動(dòng)推動(dòng)。目前小型醫(yī)院信息化具有：投資要求小，建設(shè)周期短的特點(diǎn)。由于內(nèi)部機(jī)構(gòu)不復(fù)雜，容易調(diào)整使用的習(xí)慣，適應(yīng)新建的應(yīng)用模式。有較多可參考的信息化建設(shè)成功經(jīng)驗(yàn)。因此，在醫(yī)療衛(wèi)生機(jī)構(gòu)中占絕對(duì)數(shù)量?jī)?yōu)勢(shì)的中小醫(yī)院的信息化建設(shè)將對(duì)大型醫(yī)院更能有效推動(dòng)，這是一個(gè)被無(wú)視的HIS市場(chǎng)。針對(duì)我國(guó)HIS開(kāi)展這一特點(diǎn),我研發(fā)了主要用于農(nóng)村

4、鄉(xiāng)鎮(zhèn)和城市社區(qū)的小型HIS系統(tǒng)。因?yàn)橥顿Y小，技術(shù)強(qiáng)度不大，開(kāi)發(fā)周期短的等特點(diǎn)，完全符合小型醫(yī)院的特點(diǎn)，這樣勢(shì)必會(huì)使小型醫(yī)院的信息化建設(shè)邁上一個(gè)新的臺(tái)階。22 開(kāi)發(fā)任務(wù)概述根據(jù)實(shí)際調(diào)研情況，鄉(xiāng)鎮(zhèn)小型醫(yī)院的機(jī)構(gòu)設(shè)置十分簡(jiǎn)單，看病就醫(yī)的流程也大致相同。對(duì)病人看病，其流程簡(jiǎn)單概括為：對(duì)于非住院病人來(lái)說(shuō)，首先，病人看病要進(jìn)行掛號(hào)登記，登記后當(dāng)相應(yīng)的科室找醫(yī)生開(kāi)處方，然后拿著處方到門診收費(fèi)處交費(fèi)，接著根據(jù)交費(fèi)單到藥房抓藥進(jìn)行治療。對(duì)于住院的病人來(lái)說(shuō)，首先要完成住院登記，接著找到醫(yī)生進(jìn)行治療開(kāi)處方，然后到收費(fèi)處交住院押金，最后治療完畢后辦理出院手續(xù)。對(duì)醫(yī)院方面來(lái)說(shuō)要完成的功能是查看藥房、藥庫(kù)的藥品詳細(xì)信息，

5、對(duì)藥庫(kù)的藥品進(jìn)行盤點(diǎn)清查，從而減少損失，對(duì)收取的費(fèi)用生成單據(jù)等工作。因此，依據(jù)此業(yè)務(wù)流程，設(shè)置HIS的系統(tǒng)模塊如下列圖所示：醫(yī)院 藥庫(kù)住院部藥房門診藥品出庫(kù)藥庫(kù)盤點(diǎn)藥品入庫(kù)藥房發(fā)藥藥房管理門診收費(fèi)門診處方門診掛號(hào)出院登記費(fèi)用核算住院登記住院處方圖2-1 HIS的系統(tǒng)模塊圖對(duì)上這四個(gè)模塊根本可以完成小型醫(yī)院的信息化管理，從而提高醫(yī)院的信息化管理水平，提高醫(yī)院經(jīng)濟(jì)效益。23 工程開(kāi)發(fā)技術(shù)本系統(tǒng)開(kāi)發(fā)主要用到的技術(shù)是VusialBasic 6.0，Microsoft SQL Server 和ADO。VusialBasic 6.0簡(jiǎn)介：Visual BasicVB是一種由微軟公司開(kāi)發(fā)的包含協(xié)助開(kāi)發(fā)環(huán)境的

6、事件驅(qū)動(dòng)編程語(yǔ)言。從任何標(biāo)準(zhǔn)來(lái)說(shuō)，VB都是世界上使用人數(shù)最多的語(yǔ)言。VB擁有圖形用戶界面GUI和快速應(yīng)用程序開(kāi)發(fā)RAD系統(tǒng)，可以輕易的使用 DAO、RDO、ADO 連接數(shù)據(jù)庫(kù)，或者輕松的創(chuàng)立 ActiveX 控件。程序員可以輕松的使用VB提供的組件快速建立一個(gè)應(yīng)用程序 。VB的中心思想就是要便于程序員使用，無(wú)論是新手或者專家。VB使用，可以簡(jiǎn)單建立應(yīng)用程序的 GUI 系統(tǒng)，但是又可以開(kāi)發(fā)相當(dāng)復(fù)雜的應(yīng)用工程。VB的程序是一種基于可視化窗體組件的聯(lián)合，并且增加代碼來(lái)指定組件的屬性和方法。因?yàn)槟J(rèn)的屬性和方法已經(jīng)有一局部定義在了組件內(nèi)，所以程序員不用寫多少代碼就可以完成一個(gè)簡(jiǎn)單的程序。窗體控件的增加

7、和改變可以用拖放技術(shù)實(shí)現(xiàn)。一個(gè)排列滿控件的工具箱來(lái)顯示可用控件，每個(gè)控件都有自己的屬性和事件。VB的程序可以包含一個(gè)或多個(gè)窗體，或者是一個(gè)主窗體和多個(gè)子窗體。因?yàn)樵絹?lái)越多組件的出現(xiàn)，程序員可以選用自己需要的擴(kuò)展庫(kù)。VB使得大量的第三方控件有了自己的生存空間。因此，對(duì)于本系統(tǒng)的GUI設(shè)計(jì)來(lái)說(shuō)，使用VB是不錯(cuò)的選擇。Microsoft SQL Server簡(jiǎn)介：數(shù)據(jù)庫(kù)系統(tǒng)本質(zhì)上是一個(gè)用計(jì)算機(jī)存儲(chǔ)記錄的系統(tǒng)。數(shù)據(jù)庫(kù)本身可被看作為一種收集計(jì)算機(jī)數(shù)據(jù)文件的倉(cāng)庫(kù)或容器。系統(tǒng)用戶可以對(duì)這些文件執(zhí)行插入數(shù)據(jù)、檢索數(shù)據(jù)、更改數(shù)據(jù)、刪除數(shù)據(jù)等一系列操作。它是一個(gè)計(jì)算機(jī)系統(tǒng)，該系統(tǒng)的目標(biāo)是存儲(chǔ)信息并支持用戶檢索和更

8、新所需要的信息。典型的數(shù)據(jù)庫(kù)系統(tǒng)有Oracle、 Sybase、 Microsoft SQL Server、 Access、 Foxpro等。絕大多數(shù)企業(yè)目前使用的關(guān)系型數(shù)據(jù)庫(kù)系統(tǒng)為Microsoft SQL Server。MS SQL Server是使用關(guān)系數(shù)據(jù)庫(kù)管理系統(tǒng)的標(biāo)準(zhǔn)語(yǔ)言SQL(Structured Query Language，結(jié)構(gòu)查詢語(yǔ)言)。SQL語(yǔ)言是所有關(guān)系數(shù)據(jù)庫(kù)的公共語(yǔ)言，因此，SQL語(yǔ)句是可以移植的。SQL語(yǔ)句通常用于完成一些數(shù)據(jù)庫(kù)的操作任務(wù)，比方在數(shù)據(jù)庫(kù)中更新數(shù)據(jù)，或者從數(shù)據(jù)庫(kù)中檢索數(shù)據(jù)等。SQL允許用戶在高層的數(shù)據(jù)結(jié)構(gòu)上工作，而不對(duì)單個(gè)記錄進(jìn)行操作，可操作記錄集，所

9、有SQL 語(yǔ)句接受集合作為輸入，返回集合作為輸出。企業(yè)級(jí)的系統(tǒng)開(kāi)發(fā)更青睞MS SQL做為自己的數(shù)據(jù)庫(kù)系統(tǒng)。ADO技術(shù)簡(jiǎn)介：ADO數(shù)據(jù)控件bfw黑色海岸線網(wǎng)絡(luò)平安資訊站ActiveX Data Objects (ADO) 是微軟最新的數(shù)據(jù)訪問(wèn)技術(shù)，它是Microsoft公司開(kāi)發(fā)數(shù)據(jù)庫(kù)應(yīng)用程序面向?qū)ο蟮男陆涌凇Ｋ辉O(shè)計(jì)通過(guò)OLE DB實(shí)現(xiàn)對(duì)不同數(shù)據(jù)類型數(shù)據(jù)源的訪問(wèn)。OLE DB包括三個(gè)主要的局部：數(shù)據(jù)提供者、數(shù)據(jù)消費(fèi)者和效勞組件。其關(guān)系如下圖：數(shù)據(jù)消費(fèi)者ADObfw黑色海岸線網(wǎng)絡(luò)平安資訊站數(shù)據(jù)提供者OLE DBORACLEMS SQL圖2-2 ADO技術(shù)圖ADO向我們提供了一個(gè)熟悉的，高層的對(duì)OL

10、E DB的Automation封裝接口。如同RDO對(duì)象是ODBC驅(qū)動(dòng)程序接口一樣，ADO對(duì)象是OLE DB的接口；就像不同的數(shù)據(jù)庫(kù)系統(tǒng)都需要它們自己的ODBC驅(qū)動(dòng)程序一樣，不同的數(shù)據(jù)源同樣要求有它們自己的OLE DB提供者OLE DB provider。目前，雖然OLE DB提供者比擬少，但微軟正積極推廣該技術(shù)，并打算用OLE DB取代ODBC。 ADO向VB程序員提供了很多好處。包括易于使用，熟悉的界面，高速度以及較低的內(nèi)存占用已實(shí)現(xiàn)ADO2.0的Msado15.dll需要占用342K內(nèi)存，比RDO的Msrdo20.dll的368K略小，大約是DAO3.5的Dao350.dll所占內(nèi)存的60

11、。同傳統(tǒng)的數(shù)據(jù)對(duì)象層次DAO和RDO不同，ADO可以獨(dú)立創(chuàng)立。因此你可以只創(chuàng)立一個(gè)Connection對(duì)象，但是可以有多個(gè)，獨(dú)立的Recordset對(duì)象來(lái)使用它。ADO是DAO/RDO的后繼產(chǎn)物，它擴(kuò)展了DAO和RDO所使用的對(duì)象模型，具有更加簡(jiǎn)單，更加靈活的操作性能。ADO在前端和數(shù)據(jù)源之間使用最少的層數(shù)，提供了輕量、高性能的數(shù)據(jù)訪問(wèn)接口，可通過(guò)ADO Data控件非編程和利用ADO對(duì)象編程來(lái)訪問(wèn)各種數(shù)據(jù)庫(kù)。第三章 可行性分析可行性分析是系統(tǒng)分析階段的重要活動(dòng)，是對(duì)系統(tǒng)進(jìn)行全面、客觀、概要的分析。它的任務(wù)是確定工程開(kāi)發(fā)始否必要和可行。簡(jiǎn)單來(lái)說(shuō)，可行性分析是要決定“做還是不做 。它的主要任務(wù)是

12、根據(jù)需求分析的初步方案，從多方面分析系統(tǒng)實(shí)施的必要性，并對(duì)相關(guān)的各種因素進(jìn)行論證，從而對(duì)系統(tǒng)的決策提供科學(xué)的依據(jù)。針對(duì)本系統(tǒng)，主要從經(jīng)濟(jì)可行可行性和技術(shù)可行性兩方面來(lái)分析。31 經(jīng)濟(jì)可行性對(duì)于小型醫(yī)院，因其結(jié)構(gòu)簡(jiǎn)單，所需功能較少，因此在制作軟件的費(fèi)用方面也比大中型醫(yī)院的管理系統(tǒng)要廉價(jià)許多。因?yàn)橄到y(tǒng)便于維護(hù)，因此，在軟件實(shí)施、運(yùn)行、維護(hù)的費(fèi)用上，也不會(huì)有太大的開(kāi)銷，但其所帶來(lái)的經(jīng)濟(jì)效益卻相當(dāng)可觀。HIS系統(tǒng)將會(huì)填補(bǔ)管理上的漏洞，有效的防止藥品喪失、過(guò)期等問(wèn)題所帶來(lái)的經(jīng)濟(jì)損失。改善了患者的就醫(yī)環(huán)境，提高了醫(yī)院的工作效率和效勞質(zhì)量。因此，對(duì)HIS投入的本錢遠(yuǎn)小于系統(tǒng)本身的價(jià)值。32 技術(shù)可行性在伴隨

13、著信息化時(shí)代前進(jìn)的步伐，信息化應(yīng)用于各個(gè)領(lǐng)域的今天，不管是從硬件還是從軟件上，醫(yī)院信息管理系統(tǒng)的開(kāi)發(fā)中都可以實(shí)現(xiàn)，可以滿足醫(yī)院管理的各個(gè)環(huán)節(jié)。不管是C/S 、B/S或者是三層模型的開(kāi)發(fā)模式，都可以根據(jù)需求來(lái)做出相應(yīng)的模式。這些技術(shù)已在各種信息管理系統(tǒng)中廣泛應(yīng)用，通過(guò)實(shí)踐證明，這些技術(shù)也同樣適用于小型醫(yī)院信息管理系統(tǒng)的開(kāi)發(fā)。第四章 系統(tǒng)設(shè)計(jì)說(shuō)明書本系統(tǒng)的設(shè)計(jì)分為用VB搭建的前臺(tái)界面的設(shè)計(jì)和用MS SQL搭建后臺(tái)數(shù)據(jù)庫(kù)的設(shè)計(jì)，利用ADO技術(shù)實(shí)現(xiàn)前臺(tái)界面和后臺(tái)數(shù)據(jù)庫(kù)的連接。整個(gè)系統(tǒng)采用灰色為主色調(diào)，界面友好，操作簡(jiǎn)單。41用戶登錄窗體的設(shè)計(jì)411 功能分析用戶登錄是進(jìn)入系統(tǒng)的必要條件，用戶只有提供正

14、確的登錄信息，才可以啟動(dòng)系統(tǒng)主窗體。412 設(shè)計(jì)原理首先使用ADO技術(shù)，使VB與數(shù)據(jù)庫(kù)建立連接，然后在登錄窗體中，輸入登錄者的用戶名和密碼，會(huì)在數(shù)據(jù)庫(kù)里檢索，如果信息正確那么登錄成功，如果信息錯(cuò)誤，那么提示錯(cuò)誤。為了防止密碼的喪失，特設(shè)置密碼嘗試只能為三次，大于三次的嘗試，系統(tǒng)將會(huì)自動(dòng)退出。413 界面設(shè)計(jì)在已翻開(kāi)個(gè)“標(biāo)準(zhǔn)EXE工程里添加一個(gè)名為frmlogin的“登錄對(duì)話框窗體。其界面和控件屬性如下所示：圖4-1 界面設(shè)計(jì)圖窗體和控件主要屬性如下表所示：控件屬性屬性設(shè)置frmLogincapation登錄Label1capation醫(yī)院信息管理系統(tǒng)Text1nametxtusernameTe

15、xt2NametxtpwdCommand1namecmdokcapation確定Command2nameCmdcancelcapation取消注：txtusername代表名為txtusername的文本框； cmdOK代表名為cmdOK的按鈕414 數(shù)據(jù)庫(kù)設(shè)計(jì)與實(shí)現(xiàn)在數(shù)據(jù)庫(kù)his_test里插入t_loginuser作為存儲(chǔ)登錄用戶信息的表，并把其字段設(shè)計(jì)如下圖：圖4-2 登錄用戶信息圖向表中插入數(shù)據(jù),如username=admin ,pwd=111。在當(dāng)前工程下添加模塊并利用ADO技術(shù)實(shí)現(xiàn)數(shù)據(jù)庫(kù)與VB控件的連接。代碼如下：Public objcn As New ADODB.Connecti

16、onPublic objrs As ADODB.RecordsetPublic Sub Main()objcn.Provider = SQLOLEDBobjcn.ConnectionString = User ID=sa;Initial Catalog=his_test;Data Source=icebeanobjcn.Open If Not objcn.State = adStateOpen Then MsgBox 數(shù)據(jù)庫(kù)異?；蜻B接錯(cuò)誤, vbAbortRetryIgnore, 出錯(cuò) End Else MsgBox 歡送您進(jìn)入HIS系統(tǒng), , 連接數(shù)據(jù)庫(kù)成功 frmLogin.Show En

17、d IfEnd Sub在窗體frmlogin中完成當(dāng)用戶點(diǎn)擊確定時(shí)，在數(shù)據(jù)庫(kù)t_loginuser表中進(jìn)行檢索，假設(shè)成功那么進(jìn)入，假設(shè)失敗那么報(bào)錯(cuò)。連接三次不成功，自動(dòng)退出系統(tǒng)。其實(shí)現(xiàn)代碼如下： Dim Account As IntegerPrivate Sub cmdcancel_Click()Dim Str As StringStr = MsgBox(您好,您確定退出該系統(tǒng)管理嗎?, vbQuestion + vbYesNo, 確認(rèn)退出?)If Str = vbYes ThenEndEnd IfEnd SubPrivate Sub cmdOK_Click()Account = Accoun

18、t + 1 If Trim(txtUserName.Text = ) Then MsgBox 沒(méi)有輸入用戶名稱，請(qǐng)重新輸入!, vbOKOnly + vbExclamation, 警告 txtUserName.SetFocus Else Set objrs = New ADODB.Recordset objrs.Open select * from t_loginuser where username= & txtUserName.Text & and pwd= & txtpwd.Text & , objcn, adOpenDynamic, adLockOptimistic, adCmdTex

19、t If Not objrs.EOF Then Framain.Show Me.Hide ElseIf Account = 3 Then MsgBox 三次錯(cuò)誤退出系統(tǒng)!, vbInformation, 輸入錯(cuò)誤 End Else MsgBox 帳號(hào)或密碼錯(cuò)誤!, vbInformation, 輸入錯(cuò)誤 End IfEnd IfEnd SubPrivate Sub Form_Load()Account = 0txtUserName.Text = txtpwd.Text = End Sub42 主窗體的設(shè)計(jì)421 功能分析 主窗體是系統(tǒng)中不可或缺的一局部，它可以完成與指定窗體進(jìn)行鏈接，快速的進(jìn)入

20、所需模塊的任務(wù)。422 設(shè)計(jì)原理利用VB知識(shí)，使指定的菜單項(xiàng)選擇項(xiàng)與指定模塊建立連接。423 界面設(shè)計(jì) 在當(dāng)前工程中，添加MDI窗體，MDI窗體為多文檔界面，且一個(gè)工程中只能有一個(gè)MDI窗體。利用“菜單編輯器對(duì)該窗體進(jìn)行編輯所需模塊，并設(shè)置相應(yīng)模塊的名稱。圖4-3 菜單編輯器最后生成Framain主窗體，如圖：圖4-4 主窗體424 主窗體的實(shí)現(xiàn)主窗體的任務(wù)只是與各個(gè)子模塊進(jìn)行鏈接，不需要在數(shù)據(jù)庫(kù)中進(jìn)行處理。因此，在主窗體中設(shè)計(jì)以下代碼即可：Private Sub 單擊對(duì)象_Click() 獲取鼠標(biāo)單擊事件 窗體名.Show 顯示指定窗體 窗體名. ZOrder 0End Sub例如：Priv

21、ate Sub mChangeEmp_Click() frmLogin.ShowfrmLogin.ZOrder 0 End Sub 即只需單擊菜單欄中名為mChangeEmp的菜單，那么顯示名為frmlogin的窗體。4.3 系統(tǒng)設(shè)置模塊設(shè)計(jì)431 功能分析 系統(tǒng)設(shè)置主要完成更換操作員、修改密碼和退出系統(tǒng)的操作，方便用戶的更換以及保證用戶使用系統(tǒng)的平安性。432 設(shè)計(jì)原理 更換操作員與已建立好的frmlogin窗體進(jìn)行鏈接，無(wú)需建立新的窗體。當(dāng)用戶修改自身密碼時(shí)，首先輸入遠(yuǎn)密碼，先在數(shù)據(jù)庫(kù)中判斷原密碼是否一致，再輸入新的密碼，并經(jīng)過(guò)確認(rèn)。兩次輸入新密碼不一樣那么報(bào)錯(cuò)。當(dāng)新密碼被修改并存入數(shù)據(jù)庫(kù)

22、后，那么系統(tǒng)提示修改成功。433界面設(shè)計(jì) 在當(dāng)前工程中建立名為changepwd的窗體，其界面和控件屬性如下所示： 圖4-5 界面設(shè)計(jì)窗體和控件主要屬性如下表所示：控件屬性屬性設(shè)置changepwdcapation修改密碼Text1nametxtpwdText2nametxtnewpwdText3nameconfirmpwdCommand1namecmdokcapation確定Command2nameCmdcancelcapation取消4.4 醫(yī)院管理模塊設(shè)計(jì)441 功能分析門診管理系統(tǒng)：門診管理系統(tǒng)是醫(yī)院信息流的起點(diǎn)，主要完成病人身份登記、門診掛號(hào)、門診劃價(jià)收費(fèi)并生成費(fèi)用清單等功能，以便用

23、戶進(jìn)行核查。藥房管理系統(tǒng)：藥房管理系統(tǒng)應(yīng)用于門診藥房、住院處各病區(qū)藥房，主要完成窗口發(fā)藥和各藥房藥品盤點(diǎn)、清查等工作。方便醫(yī)院工作者對(duì)藥品進(jìn)行無(wú)重復(fù)勞動(dòng)力的管理和藥品的準(zhǔn)確發(fā)放。藥庫(kù)管理系統(tǒng)：通過(guò)對(duì)藥品的根本信息、入庫(kù)、銷售出庫(kù)、盤點(diǎn)等信息的處理，完成對(duì)藥品藥庫(kù)出入庫(kù)明細(xì)、藥品庫(kù)存的綜合管理。提高再次盤點(diǎn)藥品的工作效率，減少藥品過(guò)期、損耗所帶來(lái)的經(jīng)濟(jì)損失。住院管理系統(tǒng)：通過(guò)對(duì)住院登記、住院劃價(jià)收費(fèi)、出院結(jié)算等信息的處理實(shí)現(xiàn)對(duì)住院病人的全面管理。并生成住院費(fèi)用清單，方便用戶核查。442 設(shè)計(jì)原理門診管理系統(tǒng)：操作員對(duì)前來(lái)掛號(hào)的病人進(jìn)行身份登記、掛號(hào)辦理以及收費(fèi)等工作，并把其信息存儲(chǔ)至相應(yīng)的數(shù)據(jù)庫(kù)

24、表中。對(duì)門診收費(fèi)工程要生成報(bào)表，產(chǎn)生收費(fèi)明細(xì)單。藥房管理系統(tǒng)：操作員主要完成應(yīng)用于門診藥房、住院處各病區(qū)藥房窗口發(fā)藥和各藥房藥品盤點(diǎn)、清查等工作，把其信息存儲(chǔ)至相應(yīng)的數(shù)據(jù)庫(kù)表中，并生成藥房藥品的信息明細(xì)報(bào)表和藥房發(fā)藥的處方明細(xì)單。藥庫(kù)管理系統(tǒng)：操作員完成對(duì)藥庫(kù)藥品出入庫(kù)的信息處理的工作，把其信息存儲(chǔ)至相應(yīng)的數(shù)據(jù)庫(kù)表中，并生成相應(yīng)的報(bào)說(shuō)明細(xì)單。住院管理系統(tǒng)：操作員可以完成對(duì)住院病人在住院期間的信息處理工作，把其信息存儲(chǔ)至相應(yīng)的數(shù)據(jù)庫(kù)表中，產(chǎn)生住院間費(fèi)用明細(xì)單，對(duì)住院病人進(jìn)行全面管理。443界面設(shè)計(jì)：(以門診掛號(hào)為例)門診管理系統(tǒng)：門診管理系統(tǒng)分為三個(gè)子模塊：門診掛號(hào)ClinicRegiseter

25、、門診處方(ClinicList)、門診收費(fèi)(ClinicFee)。其界面如下所示： 圖4-6 門診管理系統(tǒng)控件屬性屬性設(shè)置ClinicListcapation門診處方Text1nametxtpatientnumText2nametxtpatientnameComboBox1namecmbgendarText3nametxtmedicinenameComboBox2namecmbspecText4nametxtqualityComboBox3namecmbnumunitComboBox4namecmbdeptnameText5nametxtempnameCommand1namecmdsavec

26、apation確定Command2nameCmdcancelcapation取消Command3nameCmdexitcapation退出窗體和控件主要屬性如下表所示： 444 數(shù)據(jù)庫(kù)設(shè)計(jì)與實(shí)現(xiàn)：(以門診掛號(hào)為例)在數(shù)據(jù)庫(kù)his_test中新建表t_ClinicRegister，并設(shè)計(jì)為掛號(hào)信息所存儲(chǔ)的字段，如下：圖4-7 掛號(hào)信息 在當(dāng)前工程的模塊下建立兩個(gè)過(guò)程TransactSQL(ByVal SQL As String)和Function Testtxt(txt As String)。第一個(gè)過(guò)程是為了實(shí)現(xiàn)將利用所定義的SQL語(yǔ)句將所有信息寫入數(shù)據(jù)庫(kù)；第二個(gè)函數(shù)是為了實(shí)現(xiàn)判斷輸入信息內(nèi)容是

27、否為空，假設(shè)為空的話，那么提示錯(cuò)誤。具體代碼如下：定義Transactsql子過(guò)程：Public Sub TransactSQL(ByVal SQL As String)Dim objcn As ADODB.ConnectionDim strArray() As StringSet objcn = New ADODB.Connection 創(chuàng)立連接On Error GoTo TransactSQL_Error objcn.Provider = SQLOLEDB objcn.ConnectionString = User ID=sa;Initial Catalog=his_test;Data S

28、ource=icebean strArray = Split(SQL) objcn.Open 翻開(kāi)連接 objcn.Execute SQL 執(zhí)行命令TransactSQL_Exit: Set objcn = Nothing Exit SubTransactSQL_Error: MsgBox 查詢錯(cuò)誤： & Err.Description Resume TransactSQL_ExitEnd Sub定義Testtxt函數(shù)Public Function Testtxt(txt As String) As Boolean If Trim(txt) = Then Testtxt = False Els

29、e Testtxt = True End IfEnd Function當(dāng)用戶在“門診掛號(hào)窗體中單擊“保存按鈕時(shí)，要求把所輸入的信息保存到t_ClincRegister表中。單擊“取消按鈕時(shí)，去除所輸入的所有內(nèi)容，單擊“退出按鈕時(shí)，退出子系統(tǒng)。實(shí)現(xiàn)代碼如下：Private Sub cmdcancel_Click()txtpatientnum.Text = txtname = txtage = txtempname = txtyear = End SubPrivate Sub cmdexit_Click()Unload MeEnd SubPrivate Sub cmdsave_Click() Di

30、m txtSQL$If Not Testtxt(txtpatientnum.Text) Then MsgBox 請(qǐng)輸入病人編號(hào)！, vbOKOnly + vbExclamation, 警告 txtpatientnum.SetFocus Exit SubEnd IfIf Not Testtxt(txtname.Text) Then MsgBox 請(qǐng)輸入病人姓名！, vbOKOnly + vbExclamation, 警告 txtname.SetFocusExit SubEnd IfIf Not Testtxt(cmbgendar.Text) Then MsgBox 請(qǐng)選擇性別！, vbOKOnl

31、y + vbExclamation, 警告 cmbgendar.SetFocus Exit SubEnd IfIf Not Testtxt(txtage.Text) Then MsgBox 請(qǐng)輸入年齡！, vbOKOnly + vbExclamation, 警告 txtage.SetFocus Exit SubEnd IfIf Not Testtxt(cmbfeecategory.Text) Then MsgBox 請(qǐng)選擇費(fèi)用類型！, vbOKOnly + vbExclamation, 警告 cmbfeecategory.SetFocus Exit SubEnd IfIf Not Testtx

32、t(cmbregcategroy.Text) Then MsgBox 請(qǐng)選擇掛號(hào)類別！, vbOKOnly + vbExclamation, 警告 cmbregcategroy.SetFocus Exit SubEnd IfIf Not Testtxt(cmbdeptname.Text) Then MsgBox 請(qǐng)選擇科室名稱！, vbOKOnly + vbExclamation, 警告 cmbdeptname.SetFocus Exit SubEnd IfIf Not Testtxt(txtempname.Text) Then MsgBox 請(qǐng)輸入醫(yī)生姓名！, vbOKOnly + vbEx

33、clamation, 警告 txtempname.SetFocus Exit SubEnd IfIf Not Testtxt(cmbempprof.Text) Then MsgBox 請(qǐng)選擇醫(yī)生職稱！, vbOKOnly + vbExclamation, 警告 cmbempprof.SetFocus Exit SubEnd IfIf Not Testtxt(txtclinicemp.Text) Then MsgBox 請(qǐng)輸入掛號(hào)員姓名！, vbOKOnly + vbExclamation, 警告 txtclinicemp.SetFocus Exit SubEnd IfIf Not Testtx

34、t(cmbclinicfee.Text) Then MsgBox 請(qǐng)選擇門診費(fèi)用！, vbOKOnly + vbExclamation, 警告 cmbclinicfee.SetFocus Exit SubEnd IfIf Not Testtxt(txtyear.Text) Then MsgBox 請(qǐng)輸入掛號(hào)日期！, vbOKOnly + vbExclamation, 警告 txtyear.SetFocus Exit SubEnd IfIf Not IsNumeric(Trim(txtpatientnum.Text) Then MsgBox 病人編號(hào)請(qǐng)輸入數(shù)字！, vbOKOnly + vbEx

35、clamation, 警告 Exit Sub txtpatientnum.SetFocusEnd IfIf Not IsDate(txtyear.Text) Then MsgBox 日期應(yīng)輸入日期格式y(tǒng)yyy-mm-dd！, vbOKOnly + vbExclamation, 警告 txtyear.SetFocusElse txtyear = Format(txtyear, yyyy-mm-dd)txtSQL = insert into t_clinicregister values( & Trim(txtpatientnum) & , & Trim(txtname) & , & Trim(c

36、mbgendar) & , & Trim(txtage) & , & Trim(cmbfeecategory) & , & Trim(cmbregcategroy) & , & Trim(cmbdeptname) & , & Trim(txtempname) & , & Trim(cmbempprof) & , & Trim(txtclinicemp) & , & Trim(cmbclinicfee) & , & Trim(txtyear) & ) Call TransactSQL(txtSQL) MsgBox 保存成功！, vbOKOnly + vbExclamation, 警告 txtpa

37、tientnum.Text = txtname = txtage = txtempname = txtyear = txtpatientnum.SetFocus Me.HideEnd IfEnd Sub第五章 系統(tǒng)測(cè)試5.1 系統(tǒng)開(kāi)發(fā)環(huán)境開(kāi)發(fā)與運(yùn)行環(huán)境會(huì)影響到數(shù)據(jù)庫(kù)的運(yùn)行，本系統(tǒng)的開(kāi)發(fā)環(huán)境選擇如下：開(kāi)發(fā)環(huán)境：Windows XP Professional SP2開(kāi)發(fā)工具：Micosoft Visual Basic 6.0 中文版數(shù)據(jù)庫(kù)管理系統(tǒng)：SQL Server 2000數(shù)據(jù)訪問(wèn)技術(shù)：ActiveX Data Objects5.2 系統(tǒng)測(cè)試系統(tǒng)測(cè)試環(huán)境：測(cè)試環(huán)境：Windows XP Pro

38、fessional 運(yùn)行工具：SQL Server 2000 系統(tǒng)功能測(cè)試：功能測(cè)試是開(kāi)發(fā)軟件不可缺少的一步，對(duì)功能測(cè)試的結(jié)果將直接可以得出軟件性能的優(yōu)劣以及對(duì)軟件以后運(yùn)行中的維護(hù)。這里，我主要從系統(tǒng)登錄、具體函數(shù)測(cè)試和后臺(tái)的跟蹤這三個(gè)方面，以圖示的方式來(lái)說(shuō)明，具體如下： 注：前臺(tái)已和數(shù)據(jù)庫(kù)連接成功 注：密碼三次錯(cuò)誤，退出系統(tǒng)注：當(dāng)輸入日期格式不正確時(shí)，提示錯(cuò)誤 注：門診掛號(hào)保存成功在SQL Server2000查詢分析器里輸入use his_testgo select * from t_clinicregister 第六章 結(jié)束語(yǔ)由于這是我第一次開(kāi)發(fā)軟件，而且是管理系統(tǒng)中最為復(fù)雜的HIS軟件

39、。通過(guò)這一次的開(kāi)發(fā)，我徹底認(rèn)清了我在經(jīng)驗(yàn)、知識(shí)方面都存在著嚴(yán)重的匱乏。由于時(shí)間的倉(cāng)促，技術(shù)的缺陷，在本系統(tǒng)中，我沒(méi)有完成生成明細(xì)的報(bào)表。另外，在建立數(shù)據(jù)庫(kù)和設(shè)計(jì)表的能力關(guān)聯(lián)方面上，也需要進(jìn)一步的加強(qiáng)。而在開(kāi)發(fā)過(guò)程中，我不僅學(xué)到了關(guān)于技術(shù)和軟件開(kāi)發(fā)流程等方面的知識(shí)，更學(xué)到了學(xué)習(xí)新知識(shí)快速的學(xué)習(xí)方法，這將對(duì)我受益終身。本系統(tǒng)雖存在著經(jīng)驗(yàn)和技術(shù)方面的缺乏，但它操作簡(jiǎn)單、界面友好、數(shù)據(jù)庫(kù)管理容易、平安性高等不少優(yōu)點(diǎn)也是不容無(wú)視的，更重要的是它帶給人的一種自信，是彌足珍貴的。參考文獻(xiàn)1 夏邦貴 劉凡馨等，?SQL Server數(shù)據(jù)庫(kù)開(kāi)發(fā)經(jīng)典實(shí)例精解?，機(jī)械工業(yè)出版社，2006年2 劉萌 周學(xué)明 郭安源，

40、?VisualBasic企業(yè)辦公系統(tǒng)開(kāi)發(fā)實(shí)例導(dǎo)航?，人民郵電出版社，2003年3 王成強(qiáng) 馬軻，?新概念VisualBasic6.0教程?,科學(xué)出版社，2003年4 李香敏,?SQL Server2000編程員指南?,北京希望電子出版社，2000年5 汪作文,?軟件工程?,重慶大學(xué)出版社,2004年6 張鳳琴,?數(shù)據(jù)庫(kù)原理及應(yīng)用?,北方交通大學(xué)出版社,2005年7 趙瓊?Visual Basic程序設(shè)計(jì)?,中國(guó)勞動(dòng)社會(huì)保障出版社 2003.068 周繼良,?圖書分類學(xué)?,武漢大學(xué)出版社,1992.069 申莉莉,?數(shù)據(jù)庫(kù)系統(tǒng)與Access教程?清華大學(xué)出版社，2003.1210求是科技,?Vi

41、sualBasic教育信息化系統(tǒng)開(kāi)發(fā)實(shí)例導(dǎo)航?,人民郵電出版社,2003.06相關(guān)代碼Option Explicit 注冊(cè)表關(guān)鍵字平安選項(xiàng).Const READ_CONTROL = &H20000Const KEY_QUERY_VALUE = &H1Const KEY_SET_VALUE = &H2Const KEY_CREATE_SUB_KEY = &H4Const KEY_ENUMERATE_SUB_KEYS = &H8Const KEY_NOTIFY = &H10Const KEY_CREATE_LINK = &H20Const KEY_ALL_ACCESS = KEY_QUERY_VA

42、LUE + KEY_SET_VALUE + _ KEY_CREATE_SUB_KEY + KEY_ENUMERATE_SUB_KEYS + _ KEY_NOTIFY + KEY_CREATE_LINK + READ_CONTROL 注冊(cè)表關(guān)鍵字 ROOT 類型.Const HKEY_LOCAL_MACHINE = &H80000002Const ERROR_SUCCESS = 0Const REG_SZ = 1 獨(dú)立的空的終結(jié)字符串Const REG_DWORD = 4 32位數(shù)字Const gREGKEYSYSINFOLOC = SOFTWAREMicrosoftShared Tools L

43、ocationConst gREGVALSYSINFOLOC = MSINFOConst gREGKEYSYSINFO = SOFTWAREMicrosoftShared ToolsMSINFOConst gREGVALSYSINFO = PATHPrivate Declare Function RegOpenKeyEx Lib advapi32 Alias RegOpenKeyExA (ByVal hKey As Long, ByVal lpSubKey As String, ByVal ulOptions As Long, ByVal samDesired As Long, ByRef p

44、hkResult As Long) As LongPrivate Declare Function RegQueryValueEx Lib advapi32 Alias RegQueryValueExA (ByVal hKey As Long, ByVal lpValueName As String, ByVal lpReserved As Long, ByRef lpType As Long, ByVal lpData As String, ByRef lpcbData As Long) As LongPrivate Declare Function RegCloseKey Lib adva

45、pi32 (ByVal hKey As Long) As LongPrivate Sub cmdSysInfo_Click() Call StartSysInfoEnd SubPrivate Sub cmdOK_Click() Unload MeEnd SubPrivate Sub Form_Load() Me.Caption = 關(guān)于 & App.Title lblVersion.Caption = 版本 & App.Major & . & App.Minor & . & App.Revision lblTitle.Caption = App.TitleEnd SubPublic Sub S

46、tartSysInfo() On Error GoTo SysInfoErr Dim rc As Long Dim SysInfoPath As String 試圖從注冊(cè)表中獲得系統(tǒng)信息程序的路徑及名稱. If GetKeyValue(HKEY_LOCAL_MACHINE, gREGKEYSYSINFO, gREGVALSYSINFO, SysInfoPath) Then 試圖僅從注冊(cè)表中獲得系統(tǒng)信息程序的路徑. ElseIf GetKeyValue(HKEY_LOCAL_MACHINE, gREGKEYSYSINFOLOC, gREGVALSYSINFOLOC, SysInfoPath) T

47、hen 32位文件版本的有效位置 If (Dir(SysInfoPath & MSINFO32.EXE) ) Then SysInfoPath = SysInfoPath & MSINFO32.EXE 錯(cuò)誤 - 文件不能被找到. Else GoTo SysInfoErr End If 錯(cuò)誤 - 注冊(cè)表相應(yīng)條目不能被找到. Else GoTo SysInfoErr End If Call Shell(SysInfoPath, vbNormalFocus) Exit SubSysInfoErr: MsgBox 此時(shí)系統(tǒng)信息不可用, vbOKOnlyEnd SubPublic Function Ge

48、tKeyValue(KeyRoot As Long, KeyName As String, SubKeyRef As String, ByRef KeyVal As String) As Boolean Dim i As Long 循環(huán)計(jì)數(shù)器 Dim rc As Long 返回代碼 Dim hKey As Long 翻開(kāi)的注冊(cè)表關(guān)鍵字句柄 Dim hDepth As Long Dim KeyValType As Long 注冊(cè)表關(guān)鍵字?jǐn)?shù)據(jù)類型 Dim tmpVal As String 注冊(cè)表關(guān)鍵字值的臨時(shí)存儲(chǔ)器 Dim KeyValSize As Long 注冊(cè)表關(guān)鍵自變量的尺寸 - 翻開(kāi) H

49、KEY_LOCAL_MACHINE. 下的 RegKey - rc = RegOpenKeyEx(KeyRoot, KeyName, 0, KEY_ALL_ACCESS, hKey) 翻開(kāi)注冊(cè)表關(guān)鍵字 If (rc ERROR_SUCCESS) Then GoTo GetKeyError 處理錯(cuò)誤. tmpVal = String$(1024, 0) 分配變量空間 KeyValSize = 1024 標(biāo)記變量尺寸 - 檢索注冊(cè)表關(guān)鍵字的值. - rc = RegQueryValueEx(hKey, SubKeyRef, 0, _ KeyValType, tmpVal, KeyValSize)

50、獲得/創(chuàng)立關(guān)鍵字值 If (rc ERROR_SUCCESS) Then GoTo GetKeyError 處理錯(cuò)誤 If (Asc(Mid(tmpVal, KeyValSize, 1) = 0) Then Win95 外接程序空終結(jié)字符串. tmpVal = Left(tmpVal, KeyValSize - 1) Null 被找到,從字符串中別離出來(lái) Else WinNT 沒(méi)有空終結(jié)字符串. tmpVal = Left(tmpVal, KeyValSize) Null 沒(méi)有被找到, 別離字符串 End If - 決定轉(zhuǎn)換的關(guān)鍵字的值類型. - Select Case KeyValType

51、搜索數(shù)據(jù)類型. Case REG_SZ 字符串注冊(cè)關(guān)鍵字?jǐn)?shù)據(jù)類型 KeyVal = tmpVal 復(fù)制字符串的值 Case REG_DWORD 四字節(jié)的注冊(cè)表關(guān)鍵字?jǐn)?shù)據(jù)類型 For i = Len(tmpVal) To 1 Step -1 將每位進(jìn)行轉(zhuǎn)換 KeyVal = KeyVal + Hex(Asc(Mid(tmpVal, i, 1) 生成值字符。 By Char。 Next KeyVal = Format$(&h + KeyVal) 轉(zhuǎn)換四字節(jié)的字符為字符串 End Select GetKeyValue = True 返回成功 rc = RegCloseKey(hKey) 關(guān)閉注冊(cè)表關(guān)

52、鍵字 Exit Function 退出 GetKeyError: 錯(cuò)誤發(fā)生后將其去除. KeyVal = 設(shè)置返回值到空字符串 GetKeyValue = False 返回失敗 rc = RegCloseKey(hKey) 關(guān)閉注冊(cè)表關(guān)鍵字End FunctionPrivate Sub lblTitle_Click()End SubPrivate Sub lblVersion_Click()End SubPrivate Sub Data1_Validate(Action As Integer, save As Integer)End SubPrivate Sub TreeView1_Befor

53、eLabelEdit(cancel As Integer)End SubCLINICFEE代碼：Private Sub cmdcancel_Click() txtpatientname.Text = txtempname.Text = txtmedecinename.Text = txtquility.Text = txtprice.Text = txtmoney.Text = txtinvoicenum.Text = End SubPrivate Sub cmdexit_Click()Unload MeEnd SubPrivate Sub cmdsave_Click() Dim txtSQL

54、 As String If Not Testtxt(txtpatientname.Text) Then MsgBox 請(qǐng)輸入病人姓名！, vbOKOnly + vbExclamation, 警告 txtpatientname.SetFocus Exit Sub End If If Not Testtxt(cmbdeptname.Text) Then MsgBox 請(qǐng)選擇執(zhí)行科室！, vbOKOnly + vbExclamation, 警告 cmbdeptname.SetFocus Exit Sub End If If Not Testtxt(txtempname.Text) Then MsgB

55、ox 請(qǐng)輸入醫(yī)生姓名！, vbOKOnly + vbExclamation, 警告 txtempname.SetFocus Exit Sub End If If Not Testtxt(cmbfeecategory.Text) Then MsgBox 請(qǐng)選擇費(fèi)用類別！, vbOKOnly + vbExclamation, 警告 cmbfeecategory.SetFocus Exit Sub End If If Not Testtxt(txtmedecinename.Text) Then MsgBox 請(qǐng)輸入藥品名稱！, vbOKOnly + vbExclamation, 警告 txtmede

56、cinename.SetFocus Exit Sub End If If Not Testtxt(cmbspec.Text) Then MsgBox 請(qǐng)選擇藥品規(guī)格！, vbOKOnly + vbExclamation, 警告 cmbspec.SetFocus Exit Sub End If If Not Testtxt(txtquility.Text) Then MsgBox 請(qǐng)輸入藥品數(shù)量！, vbOKOnly + vbExclamation, 警告 txtquility.SetFocus Exit Sub End If If Not Testtxt(cmbnumunit.Text) Th

57、en MsgBox 請(qǐng)選擇計(jì)量單位！, vbOKOnly + vbExclamation, 警告 cmbnumunit.SetFocus Exit Sub End If If Not Testtxt(txtprice.Text) Then MsgBox 請(qǐng)輸入藥品單價(jià)！, vbOKOnly + vbExclamation, 警告 txtprice.SetFocus Exit Sub End If If Not Testtxt(txtmoney.Text) Then MsgBox 請(qǐng)輸入應(yīng)收金額！, vbOKOnly + vbExclamation, 警告 txtmoney.SetFocus E

58、xit Sub End If If Not Testtxt(txtinvoicenum.Text) Then MsgBox 請(qǐng)輸入收據(jù)編號(hào)！, vbOKOnly + vbExclamation, 警告 txtinvoicenum.SetFocus Exit Sub End If txtSQL = insert into t_clinicfee values( & Trim(txtpatientname) & , & Trim(cmbdeptname) & , & Trim(txtempname) & , & Trim(cmbfeecategory) & , & Trim(txtmedecine

59、name) & , & Trim(cmbspec) & , & Trim(txtquility) & , & Trim(cmbnumunit) & , & Trim(txtprice) & , & Trim(txtmoney) & , & Trim(txtinvoicenum) & ) Call TransactSQL(txtSQL) MsgBox 保存成功！, vbOKOnly + vbExclamation, 警告 txtpatientname.Text = txtempname.Text = txtmedecinename.Text = txtquility.Text = txtpric

60、e.Text = txtmoney.Text = txtinvoicenum.Text = txtpatientname.SetFocus End SubPrivate Sub Form_Load()End SubCLINICLIST代碼Private Sub cmdcancel_Click()txtpatientnum.Text = txtpatientname.Text = txtmedicinename.Text = txtquality.Text = txtempname.Text = End SubPrivate Sub cmdexit_Click()Unload MeEnd Sub