畢業(yè)設(shè)計(jì)--基于vb和ms sql server的his醫(yī)院管理信息系統(tǒng)設(shè)計(jì)

1、<p><b>　　引言</b></p><p>　　1．1 醫(yī)院信息管理系統(tǒng)現(xiàn)狀</p><p>　　近年來，隨著我國信息產(chǎn)業(yè)的飛速發(fā)展，計(jì)算機(jī)的開發(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ī)院信息管

2、理系統(tǒng)（HIS）的軟件建設(shè)，不僅可以提高醫(yī)院的工作效率，同時(shí)，也提升了醫(yī)院的現(xiàn)代化管理形象。</p><p>　　我國醫(yī)院信息管理系統(tǒng)的發(fā)展形勢十分令人鼓舞，無論是國家、醫(yī)院還是軟件公司，都投入了大量的人力、物力、財(cái)力。大中型醫(yī)院基本上都建設(shè)了自己的醫(yī)院信息管理系統(tǒng)，這說明醫(yī)院本身在對HIS建設(shè)的認(rèn)識上都有了很大的提高。信息管理系統(tǒng)的建設(shè)對醫(yī)院帶來的效率、效益以及管理水平的提高，使醫(yī)院管理層對信息管理系統(tǒng)建設(shè)的重

3、要性和必要性有了更深一步的認(rèn)識。</p><p>　　1．2 開發(fā)系統(tǒng)意義</p><p>　　隨著我國醫(yī)療衛(wèi)生體制改革的逐步深入，國家將大力發(fā)展城市社區(qū)和農(nóng)村鄉(xiāng)鎮(zhèn)衛(wèi)生服務(wù)事業(yè)，但從目前的發(fā)展現(xiàn)狀看，這些小型醫(yī)院信息管理系統(tǒng)的建設(shè)還很薄弱。而從醫(yī)院的服務(wù)質(zhì)量和經(jīng)濟(jì)效益上考慮，HIS系統(tǒng)的有效運(yùn)行，將全面提升醫(yī)院的信息化管理水平，提高醫(yī)院管理人員、醫(yī)務(wù)人員的工作效率，降低醫(yī)院的管理成本，為患

4、者就醫(yī)提供便利，為醫(yī)院創(chuàng)造更大的社會效益和經(jīng)濟(jì)效益。因此，一個(gè)適應(yīng)社會發(fā)展的醫(yī)院，不僅需要有一流的硬件設(shè)施，同樣也需要一個(gè)適合醫(yī)院發(fā)展的HIS系統(tǒng)。</p><p>　　由此可以看出，隨著我國城鄉(xiāng)衛(wèi)生事業(yè)的發(fā)展壯大，針對小型醫(yī)院特點(diǎn)和需求開發(fā)HIS系統(tǒng)，有著十分廣闊的市場和發(fā)展前景。</p><p>　　第二章 需求分析說明書</p><p>　　2．1 開發(fā)系統(tǒng)背

5、景</p><p>　　從我國大中小醫(yī)院及其信息化建設(shè)的情況，我們可以看到目前我國HIS建設(shè)過程中，鄉(xiāng)鎮(zhèn)及社區(qū)小型醫(yī)院的信息化建設(shè)并沒有得到長足的發(fā)展，沒有得到HIS企業(yè)的根本重視和主動推動。</p><p>　　目前小型醫(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)中占絕對數(shù)

6、量優(yōu)勢的中小醫(yī)院的信息化建設(shè)將對大型醫(yī)院更能有效推動，這是一個(gè)被忽視的HIS市場。</p><p>　　針對我國HIS發(fā)展這一特點(diǎn),我研發(fā)了主要用于農(nóng)村鄉(xiāng)鎮(zhèn)和城市社區(qū)的小型HIS系統(tǒng)。因?yàn)橥顿Y小，技術(shù)強(qiáng)度不大，開發(fā)周期短的等特點(diǎn)，完全符合小型醫(yī)院的特點(diǎn)，這樣勢必會使小型醫(yī)院的信息化建設(shè)邁上一個(gè)新的臺階。</p><p>　　2．2 開發(fā)任務(wù)概述</p><p>　　

7、根據(jù)實(shí)際調(diào)研情況，鄉(xiāng)鎮(zhèn)小型醫(yī)院的機(jī)構(gòu)設(shè)置十分簡單，看病就醫(yī)的流程也大致相同。對病人看病，其流程簡單概括為：對于非住院病人來說，首先，病人看病要進(jìn)行掛號登記，登記后當(dāng)相應(yīng)的科室找醫(yī)生開處方，然后拿著處方到門診收費(fèi)處交費(fèi)，接著根據(jù)交費(fèi)單到藥房抓藥進(jìn)行治療。對于住院的病人來說，首先要完成住院登記，接著找到醫(yī)生進(jìn)行治療開處方，然后到收費(fèi)處交住院押金，最后治療完畢后辦理出院手續(xù)。</p><p>　　對醫(yī)院方面來說要完成的

8、功能是查看藥房、藥庫的藥品詳細(xì)信息，對藥庫的藥品進(jìn)行盤點(diǎn)清查，從而減少損失，對收取的費(fèi)用生成單據(jù)等工作。因此，依據(jù)此業(yè)務(wù)流程，設(shè)置HIS的系統(tǒng)模塊如下圖所示：</p><p>　　圖2-1 HIS的系統(tǒng)模塊圖</p><p>　　對上這四個(gè)模塊基本可以完成小型醫(yī)院的信息化管理，從而提高醫(yī)院的信息化管理水平，提高醫(yī)院經(jīng)濟(jì)效益。</p><p>　　2．3 項(xiàng)目開發(fā)技

9、術(shù)</p><p>　　本系統(tǒng)開發(fā)主要用到的技術(shù)是VusialBasic 6.0，Microsoft SQL Server 和ADO。</p><p>　　VusialBasic 6.0簡介：</p><p>　　Visual Basic（VB）是一種由微軟公司開發(fā)的包含協(xié)助開發(fā)環(huán)境的事件驅(qū)動編程語言。從任何標(biāo)準(zhǔn)來說，VB都是世界上使用人數(shù)最多的語言。VB擁有圖形用

10、戶界面（GUI）和快速應(yīng)用程序開發(fā)（RAD）系統(tǒng)，可以輕易的使用 DAO、RDO、ADO 連接數(shù)據(jù)庫，或者輕松的創(chuàng)建 ActiveX 控件。程序員可以輕松的使用VB提供的組件快速建立一個(gè)應(yīng)用程序 。</p><p>　　VB的中心思想就是要便于程序員使用，無論是新手或者專家。VB使用，可以簡單建立應(yīng)用程序的 GUI 系統(tǒng)，但是又可以開發(fā)相當(dāng)復(fù)雜的應(yīng)用項(xiàng)目。VB的程序是一種基于可視化窗體組件的聯(lián)合，并且增加代碼來指

11、定組件的屬性和方法。因?yàn)槟J(rèn)的屬性和方法已經(jīng)有一部分定義在了組件內(nèi)，所以程序員不用寫多少代碼就可以完成一個(gè)簡單的程序。窗體控件的增加和改變可以用拖放技術(shù)實(shí)現(xiàn)。一個(gè)排列滿控件的工具箱來顯示可用控件，每個(gè)控件都有自己的屬性和事件。VB的程序可以包含一個(gè)或多個(gè)窗體，或者是一個(gè)主窗體和多個(gè)子窗體。因?yàn)樵絹碓蕉嘟M件的出現(xiàn)，程序員可以選用自己需要的擴(kuò)展庫。VB使得大量的第三方控件有了自己的生存空間。因此，對于本系統(tǒng)的GUI設(shè)計(jì)來說，使用VB是不錯(cuò)的

12、選擇。</p><p>　　Microsoft SQL Server簡介：</p><p>　　數(shù)據(jù)庫系統(tǒng)本質(zhì)上是一個(gè)用計(jì)算機(jī)存儲記錄的系統(tǒng)。數(shù)據(jù)庫本身可被看作為一種收集計(jì)算機(jī)數(shù)據(jù)文件的倉庫或容器。系統(tǒng)用戶可以對這些文件執(zhí)行插入數(shù)據(jù)、檢索數(shù)據(jù)、更改數(shù)據(jù)、刪除數(shù)據(jù)等一系列操作。它是一個(gè)計(jì)算機(jī)系統(tǒng)，該系統(tǒng)的目標(biāo)是存儲信息并支持用戶檢索和更新所需要的信息。典型的數(shù)據(jù)庫系統(tǒng)有Oracle、 Syb

13、ase、 Microsoft SQL Server、 Access、 Foxpro等。絕大多數(shù)企業(yè)目前使用的關(guān)系型數(shù)據(jù)庫系統(tǒng)為Microsoft SQL Server。</p><p>　　MS SQL Server是使用關(guān)系數(shù)據(jù)庫管理系統(tǒng)的標(biāo)準(zhǔn)語言SQL(Structured Query Language，結(jié)構(gòu)查詢語言)。SQL語言是所有關(guān)系數(shù)據(jù)庫的公共語言，因此，SQL語句是可以移植的。SQL語句通常用于完成

14、一些數(shù)據(jù)庫的操作任務(wù)，比如在數(shù)據(jù)庫中更新數(shù)據(jù)，或者從數(shù)據(jù)庫中檢索數(shù)據(jù)等。SQL允許用戶在高層的數(shù)據(jù)結(jié)構(gòu)上工作，而不對單個(gè)記錄進(jìn)行操作，可操作記錄集，所有SQL 語句接受集合作為輸入，返回集合作為輸出。企業(yè)級的系統(tǒng)開發(fā)更青睞MS SQL做為自己的數(shù)據(jù)庫系統(tǒng)。</p><p><b>　　ADO技術(shù)簡介：</b></p><p>　　bfw黑色海岸線網(wǎng)絡(luò)安全資訊站Acti

15、veX Data Objects (ADO) 是微軟最新的數(shù)據(jù)訪問技術(shù)，它是Microsoft公司開發(fā)數(shù)據(jù)庫應(yīng)用程序面向?qū)ο蟮男陆涌?。它被設(shè)計(jì)通過OLE DB實(shí)現(xiàn)對不同數(shù)據(jù)類型數(shù)據(jù)源的訪問。OLE DB包括三個(gè)主要的部分：數(shù)據(jù)提供者、數(shù)據(jù)消費(fèi)者和服務(wù)組件。其關(guān)系如圖所示：</p><p>　　bfw黑色海岸線網(wǎng)絡(luò)安全資訊站</p><p>　　圖2-2 ADO技術(shù)圖</p>

16、<p>　　ADO向我們提供了一個(gè)熟悉的，高層的對OLE DB的Automation封裝接口。如同RDO對象是ODBC驅(qū)動程序接口一樣，ADO對象是OLE DB的接口；就像不同的數(shù)據(jù)庫系統(tǒng)都需要它們自己的ODBC驅(qū)動程序一樣，不同的數(shù)據(jù)源同樣要求有它們自己的OLE DB提供者（OLE DB provider）。目前，雖然OLE DB提供者比較少，但微軟正積極推廣該技術(shù)，并打算用OLE DB取代ODBC。 </p>

17、<p>　　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％）。同傳統(tǒng)的數(shù)據(jù)對象層次（DAO和RDO）不同，ADO可以獨(dú)立創(chuàng)建。因此你可以只創(chuàng)建一個(gè)"Connection"對象，但是可以有多個(gè)，獨(dú)立的

18、"Recordset"對象來使用它。ADO是DAO/RDO的后繼產(chǎn)物，它擴(kuò)展了DAO和RDO所使用的對象模型，具有更加簡單，更加靈活的操作性能。ADO在前端和數(shù)據(jù)源之間使用最少的層數(shù)，提供了輕量、高性能的數(shù)據(jù)訪問接口，可通過ADO Data控件非編程和利用ADO對象編程來訪問各種數(shù)據(jù)庫。</p><p><b>　　第三章 可行性分析</b></p><

19、;p>　　可行性分析是系統(tǒng)分析階段的重要活動，是對系統(tǒng)進(jìn)行全面、客觀、概要的分析。它的任務(wù)是確定項(xiàng)目開發(fā)始否必要和可行。簡單來說，可行性分析是要決定“做還是不做” 。它的主要任務(wù)是根據(jù)需求分析的初步方案，從多方面分析系統(tǒng)實(shí)施的必要性，并對相關(guān)的各種因素進(jìn)行論證，從而對系統(tǒng)的決策提供科學(xué)的依據(jù)。針對本系統(tǒng)，主要從經(jīng)濟(jì)可行可行性和技術(shù)可行性兩方面來分析。</p><p><b>　　3．1 經(jīng)濟(jì)可行性

20、</b></p><p>　　對于小型醫(yī)院，因其結(jié)構(gòu)簡單，所需功能較少，因此在制作軟件的費(fèi)用方面也比大中型醫(yī)院的管理系統(tǒng)要廉價(jià)許多。因?yàn)橄到y(tǒng)便于維護(hù)，因此，在軟件實(shí)施、運(yùn)行、維護(hù)的費(fèi)用上，也不會有太大的開銷，但其所帶來的經(jīng)濟(jì)效益卻相當(dāng)可觀。HIS系統(tǒng)將會填補(bǔ)管理上的漏洞，有效的防止藥品丟失、過期等問題所帶來的經(jīng)濟(jì)損失。改善了患者的就醫(yī)環(huán)境，提高了醫(yī)院的工作效率和服務(wù)質(zhì)量。因此，對HIS投入的成本遠(yuǎn)小于

21、系統(tǒng)本身的價(jià)值。</p><p><b>　　3．2 技術(shù)可行性</b></p><p>　　在伴隨著信息化時(shí)代前進(jìn)的步伐，信息化應(yīng)用于各個(gè)領(lǐng)域的今天，不管是從硬件還是從軟件上，醫(yī)院信息管理系統(tǒng)的開發(fā)中都可以實(shí)現(xiàn)，可以滿足醫(yī)院管理的各個(gè)環(huán)節(jié)。不論是C/S 、B/S或者是三層模型的開發(fā)模式，都可以根據(jù)需求來做出相應(yīng)的模式。這些技術(shù)已在各種信息管理系統(tǒng)中廣泛應(yīng)用，通過實(shí)踐

22、證明，這些技術(shù)也同樣適用于小型醫(yī)院信息管理系統(tǒng)的開發(fā)。</p><p>　　第四章 系統(tǒng)設(shè)計(jì)說明書</p><p>　　本系統(tǒng)的設(shè)計(jì)分為用VB搭建的前臺界面的設(shè)計(jì)和用MS SQL搭建后臺數(shù)據(jù)庫的設(shè)計(jì)，利用ADO技術(shù)實(shí)現(xiàn)前臺界面和后臺數(shù)據(jù)庫的連接。整個(gè)系統(tǒng)采用灰色為主色調(diào)，界面友好，操作簡單。</p><p>　　4．1用戶登錄窗體的設(shè)計(jì)</p><

23、;p>　　4．1．1 功能分析</p><p>　　用戶登錄是進(jìn)入系統(tǒng)的必要條件，用戶只有提供正確的登錄信息，才可以啟動系統(tǒng)主窗體。</p><p>　　4．1．2 設(shè)計(jì)原理</p><p>　　首先使用ADO技術(shù)，使VB與數(shù)據(jù)庫建立連接，然后在登錄窗體中，輸入登錄者的用戶名和密碼，會在數(shù)據(jù)庫里檢索，如果信息正確則登錄成功，如果信息錯(cuò)誤，則提示錯(cuò)誤。為了防止密

24、碼的丟失，特設(shè)置密碼嘗試只能為三次，大于三次的嘗試，系統(tǒng)將會自動退出。</p><p>　　4．1．3 界面設(shè)計(jì)</p><p>　　在已打開個(gè)“標(biāo)準(zhǔn)EXE工程”里添加一個(gè)名為frmlogin的“登錄對話框”窗體。其界面和控件屬性如下所示：</p><p>　　圖4-1 界面設(shè)計(jì)圖</p><p>　　窗體和控件主要屬性如下表所示：</

25、p><p>　　注：txtusername代表名為txtusername的文本框； cmdOK代表名為cmdOK的按鈕</p><p>　　4．1．4 數(shù)據(jù)庫設(shè)計(jì)與實(shí)現(xiàn)</p><p>　　在數(shù)據(jù)庫his_test里插入t_loginuser作為存儲登錄用戶信息的表，并把其字段設(shè)計(jì)如圖所示：</p><p>　　圖4-2 登錄用戶信息圖&l

26、t;/p><p>　　向表中插入數(shù)據(jù),如username=admin ,pwd=111。</p><p>　　在當(dāng)前工程下添加模塊并利用ADO技術(shù)實(shí)現(xiàn)數(shù)據(jù)庫與VB控件的連接。代碼如下：</p><p>　　Public objcn As New ADODB.Connection</p><p>　　Public objrs As ADODB.Re

27、cordset</p><p>　　Public Sub Main()</p><p>　　objcn.Provider = "SQLOLEDB"</p><p>　　objcn.ConnectionString = "User ID=sa;Initial Catalog=his_test;Data Source=icebean&quo

28、t;</p><p>　　objcn.Open</p><p>　　If Not objcn.State = adStateOpen Then</p><p>　　MsgBox "數(shù)據(jù)庫異?；蜻B接錯(cuò)誤", vbAbortRetryIgnore, "出錯(cuò)"</p><p><b>　　End&l

29、t;/b></p><p><b>　　Else</b></p><p>　　MsgBox "歡迎您進(jìn)入HIS系統(tǒng)", , "連接數(shù)據(jù)庫成功"</p><p>　　frmLogin.Show</p><p><b>　　End If</b></p&

30、gt;<p><b>　　End Sub</b></p><p>　　在窗體frmlogin中完成當(dāng)用戶點(diǎn)擊確定時(shí)，在數(shù)據(jù)庫t_loginuser表中進(jìn)行檢索，若成功則進(jìn)入，若失敗則報(bào)錯(cuò)。連接三次不成功，自動退出系統(tǒng)。其實(shí)現(xiàn)代碼如下： </p><p>　　Dim Account As Integer</p><p>　　Priv

31、ate Sub cmdcancel_Click()</p><p>　　Dim Str As String</p><p>　　Str = MsgBox("您好,您確定退出該系統(tǒng)管理嗎?", vbQuestion + vbYesNo, "確認(rèn)退出?")</p><p>　　If Str = vbYes Then</p&g

32、t;<p><b>　　End</b></p><p><b>　　End If</b></p><p><b>　　End Sub</b></p><p>　　Private Sub cmdOK_Click()</p><p>　　Account = Accou

33、nt + 1</p><p>　　If Trim(txtUserName.Text = "") Then</p><p>　　MsgBox "沒有輸入用戶名稱，請重新輸入!", vbOKOnly + vbExclamation, "警告"</p><p>　　txtUserName.SetFocus<

34、/p><p><b>　　Else</b></p><p>　　Set objrs = New ADODB.Recordset</p><p>　　objrs.Open "select * from t_loginuser where username='" & txtUserName.Text & &q

35、uot;'and pwd='" & txtpwd.Text & "'", objcn, adOpenDynamic, adLockOptimistic, adCmdText</p><p>　　If Not objrs.EOF Then</p><p>　　Framain.Show</p><p>

36、;<b>　　Me.Hide</b></p><p>　　ElseIf Account = 3 Then</p><p>　　MsgBox "三次錯(cuò)誤退出系統(tǒng)!", vbInformation, "輸入錯(cuò)誤"</p><p><b>　　End</b></p><

37、p><b>　　Else</b></p><p>　　MsgBox "帳號或密碼錯(cuò)誤!", vbInformation, "輸入錯(cuò)誤"</p><p><b>　　End If</b></p><p><b>　　End If</b></p>

38、<p><b>　　End Sub</b></p><p>　　Private Sub Form_Load()</p><p>　　Account = 0</p><p>　　txtUserName.Text = ""</p><p>　　txtpwd.Text = ""

39、;</p><p><b>　　End Sub</b></p><p>　　4．2 主窗體的設(shè)計(jì)</p><p>　　4．2．1 功能分析</p><p>　　主窗體是系統(tǒng)中不可或缺的一部分，它可以完成與指定窗體進(jìn)行鏈接，快速的進(jìn)入所需模塊的任務(wù)。</p><p>　　4．2．2 設(shè)計(jì)原理<

40、/p><p>　　利用VB知識，使指定的菜單選項(xiàng)與指定模塊建立連接。</p><p>　　4．2．3 界面設(shè)計(jì)</p><p>　　在當(dāng)前工程中，添加MDI窗體，MDI窗體為多文檔界面，且一個(gè)工程中只能有一個(gè)MDI窗體。利用“菜單編輯器”對該窗體進(jìn)行編輯所需模塊，并設(shè)置相應(yīng)模塊的名稱。</p><p>　　圖4-3 菜單編輯器</p>

41、<p>　　最后生成Framain主窗體，如圖：</p><p><b>　　圖4-4 主窗體</b></p><p>　　4．2．4 主窗體的實(shí)現(xiàn)</p><p>　　主窗體的任務(wù)只是與各個(gè)子模塊進(jìn)行鏈接，不需要在數(shù)據(jù)庫中進(jìn)行處理。因此，在主窗體中設(shè)計(jì)以下代碼即可：</p><p>　　Private

42、Sub 單擊對象_Click() ‘獲取鼠標(biāo)單擊事件</p><p>　　窗體名.Show ‘顯示指定窗體</p><p>　　窗體名. ZOrder 0</p><p><b>　　End Sub</b></p><p>　　例如：Private Sub mChangeEmp_

43、Click() </p><p>　　frmLogin.Show</p><p>　　frmLogin.ZOrder 0</p><p><b>　　End Sub </b></p><p>　　即只需單擊菜單欄中名為mChangeEmp的菜單，則顯示名為frmlogin的窗體。</p>&

44、lt;p>　　4.3 系統(tǒng)設(shè)置模塊設(shè)計(jì)</p><p>　　4．3．1 功能分析</p><p>　　系統(tǒng)設(shè)置主要完成更換操作員、修改密碼和退出系統(tǒng)的操作，方便用戶的更換以及保證用戶使用系統(tǒng)的安全性。</p><p>　　4．3．2 設(shè)計(jì)原理</p><p>　　更換操作員與已建立好的frmlogin窗體進(jìn)行鏈接，無需建立新的窗體。當(dāng)用

45、戶修改自身密碼時(shí)，首先輸入遠(yuǎn)密碼，先在數(shù)據(jù)庫中判斷原密碼是否一致，再輸入新的密碼，并經(jīng)過確認(rèn)。兩次輸入新密碼不一樣則報(bào)錯(cuò)。當(dāng)新密碼被修改并存入數(shù)據(jù)庫后，則系統(tǒng)提示修改成功。</p><p><b>　　4．3．3界面設(shè)計(jì)</b></p><p>　　在當(dāng)前工程中建立名為changepwd的窗體，其界面和控件屬性如下所示：</p><p><

46、;b>　　圖4-5 界面設(shè)計(jì)</b></p><p>　　窗體和控件主要屬性如下表所示：</p><p>　　4.4 醫(yī)院管理模塊設(shè)計(jì)</p><p>　　4．4．1 功能分析</p><p><b>　　門診管理系統(tǒng)：</b></p><p>　　門診管理系統(tǒng)是醫(yī)院信息流的起點(diǎn)

47、，主要完成病人身份登記、門診掛號、門診劃價(jià)收費(fèi)并生成費(fèi)用清單等功能，以便用戶進(jìn)行核查。</p><p><b>　　藥房管理系統(tǒng)：</b></p><p>　　藥房管理系統(tǒng)應(yīng)用于門診藥房、住院處各病區(qū)藥房，主要完成窗口發(fā)藥和各藥房藥品盤點(diǎn)、清查等工作。方便醫(yī)院工作者對藥品進(jìn)行無重復(fù)勞動力的管理和藥品的準(zhǔn)確發(fā)放。</p><p><b>

48、;　　藥庫管理系統(tǒng)：</b></p><p>　　通過對藥品的基本信息、入庫、銷售出庫、盤點(diǎn)等信息的處理，完成對藥品藥庫出入庫明細(xì)、藥品庫存的綜合管理。提高再次盤點(diǎn)藥品的工作效率，減少藥品過期、損耗所帶來的經(jīng)濟(jì)損失。</p><p><b>　　住院管理系統(tǒng)：</b></p><p>　　通過對住院登記、住院劃價(jià)收費(fèi)、出院結(jié)算等信息

49、的處理實(shí)現(xiàn)對住院病人的全面管理。并生成住院費(fèi)用清單，方便用戶核查。</p><p>　　4．4．2 設(shè)計(jì)原理</p><p><b>　　門診管理系統(tǒng)：</b></p><p>　　操作員對前來掛號的病人進(jìn)行身份登記、掛號辦理以及收費(fèi)等工作，并把其信息存儲至相應(yīng)的數(shù)據(jù)庫表中。對門診收費(fèi)項(xiàng)目要生成報(bào)表，產(chǎn)生收費(fèi)明細(xì)單。</p>&l

50、t;p><b>　　藥房管理系統(tǒng)：</b></p><p>　　操作員主要完成應(yīng)用于門診藥房、住院處各病區(qū)藥房窗口發(fā)藥和各藥房藥品盤點(diǎn)、清查等工作，把其信息存儲至相應(yīng)的數(shù)據(jù)庫表中，并生成藥房藥品的信息明細(xì)報(bào)表和藥房發(fā)藥的處方明細(xì)單。</p><p><b>　　藥庫管理系統(tǒng)：</b></p><p>　　操作員完成對

51、藥庫藥品出入庫的信息處理的工作，把其信息存儲至相應(yīng)的數(shù)據(jù)庫表中，并生成相應(yīng)的報(bào)表明細(xì)單。</p><p><b>　　住院管理系統(tǒng)：</b></p><p>　　操作員可以完成對住院病人在住院期間的信息處理工作，把其信息存儲至相應(yīng)的數(shù)據(jù)庫表中，產(chǎn)生住院間費(fèi)用明細(xì)單，對住院病人進(jìn)行全面管理。</p><p>　　4．4．3界面設(shè)計(jì)：(以門診掛號為

52、例)</p><p><b>　　門診管理系統(tǒng)：</b></p><p>　　門診管理系統(tǒng)分為三個(gè)子模塊：門診掛號（ClinicRegiseter）、門診處方(ClinicList)、門診收費(fèi)(ClinicFee)。其界面如下所示： </p><p

53、>　　圖4-6 門診管理系統(tǒng)</p><p>　　窗體和控件主要屬性如下表所示：</p><p>　　4．4．4 數(shù)據(jù)庫設(shè)計(jì)與實(shí)現(xiàn)：(以門診掛號為例)</p><p>　　在數(shù)據(jù)庫his_test中新建表t_ClinicRegister，并設(shè)計(jì)為掛號信息所存儲的字段，如下：</p><p>　　圖4-7 掛號信息</p>

54、<p>　　在當(dāng)前工程的模塊下建立兩個(gè)過程TransactSQL(ByVal SQL As String)和Function Testtxt(txt As String)。第一個(gè)過程是為了實(shí)現(xiàn)將利用所定義的SQL語句將所有信息寫入數(shù)據(jù)庫；第二個(gè)函數(shù)是為了實(shí)現(xiàn)判斷輸入信息內(nèi)容是否為空，若為空的話，則提示錯(cuò)誤。具體代碼如下：</p><p>　　‘定義Transactsql子過程：</p>

55、<p>　　Public Sub TransactSQL(ByVal SQL As String)</p><p>　　Dim objcn As ADODB.Connection</p><p>　　Dim strArray() As String</p><p>　　Set objcn = New ADODB.Connection

56、 '創(chuàng)建連接</p><p>　　On Error GoTo TransactSQL_Error</p><p>　　objcn.Provider = "SQLOLEDB"</p><p>　　objcn.ConnectionString = "User ID=sa;Initial Catalog=his_tes

57、t;Data Source=icebean"</p><p>　　strArray = Split(SQL)</p><p>　　objcn.Open '打開連接</p><p>　　objcn.Execute SQL

58、 '執(zhí)行命令</p><p>　　TransactSQL_Exit:</p><p>　　Set objcn = Nothing</p><p><b>　　Exit Sub</b></p><p>　　TransactSQL_Error:</p><p>　　MsgBox "查

59、詢錯(cuò)誤：" & Err.Description</p><p>　　Resume TransactSQL_Exit</p><p><b>　　End Sub</b></p><p>　　‘定義Testtxt函數(shù)</p><p>　　Public Function Testtxt(txt As Stri

60、ng) As Boolean</p><p>　　If Trim(txt) = "" Then</p><p>　　Testtxt = False</p><p><b>　　Else</b></p><p>　　Testtxt = True</p><p><b>

61、　　End If</b></p><p>　　End Function</p><p>　　當(dāng)用戶在“門診掛號”窗體中單擊“保存”按鈕時(shí)，要求把所輸入的信息保存到t_ClincRegister表中。單擊“取消”按鈕時(shí)，清除所輸入的所有內(nèi)容，單擊“退出”按鈕時(shí)，退出子系統(tǒng)。實(shí)現(xiàn)代碼如下：</p><p>　　Private Sub cmdcancel_Cl

62、ick()</p><p>　　txtpatientnum.Text = ""</p><p>　　txtname = ""</p><p>　　txtage = ""</p><p>　　txtempname = ""</p><p>　

63、　txtyear = ""</p><p><b>　　End Sub</b></p><p>　　Private Sub cmdexit_Click()</p><p><b>　　Unload Me</b></p><p><b>　　End Sub</b&g

64、t;</p><p>　　Private Sub cmdsave_Click()</p><p>　　Dim txtSQL$</p><p>　　If Not Testtxt(txtpatientnum.Text) Then</p><p>　　MsgBox "請輸入病人編號！", vbOKOnly + vbExclama

65、tion, "警告"</p><p>　　txtpatientnum.SetFocus</p><p><b>　　Exit Sub</b></p><p><b>　　End If</b></p><p>　　If Not Testtxt(txtname.Text) Then&

66、lt;/p><p>　　MsgBox "請輸入病人姓名！", vbOKOnly + vbExclamation, "警告"</p><p>　　txtname.SetFocus</p><p><b>　　Exit Sub</b></p><p><b>　　End If&l

67、t;/b></p><p>　　If Not Testtxt(cmbgendar.Text) Then</p><p>　　MsgBox "請選擇性別！", vbOKOnly + vbExclamation, "警告"</p><p>　　cmbgendar.SetFocus</p><p>&l

68、t;b>　　Exit Sub</b></p><p><b>　　End If</b></p><p>　　If Not Testtxt(txtage.Text) Then</p><p>　　MsgBox "請輸入年齡！", vbOKOnly + vbExclamation, "警告"

69、</p><p>　　txtage.SetFocus</p><p><b>　　Exit Sub</b></p><p><b>　　End If</b></p><p>　　If Not Testtxt(cmbfeecategory.Text) Then</p><p>

70、　　MsgBox "請選擇費(fèi)用類型！", vbOKOnly + vbExclamation, "警告"</p><p>　　cmbfeecategory.SetFocus</p><p><b>　　Exit Sub</b></p><p><b>　　End If</b></

71、p><p>　　If Not Testtxt(cmbregcategroy.Text) Then</p><p>　　MsgBox "請選擇掛號類別！", vbOKOnly + vbExclamation, "警告"</p><p>　　cmbregcategroy.SetFocus</p><p><

72、;b>　　Exit Sub</b></p><p><b>　　End If</b></p><p>　　If Not Testtxt(cmbdeptname.Text) Then</p><p>　　MsgBox "請選擇科室名稱！", vbOKOnly + vbExclamation, "警告

73、"</p><p>　　cmbdeptname.SetFocus</p><p><b>　　Exit Sub</b></p><p><b>　　End If</b></p><p>　　If Not Testtxt(txtempname.Text) Then</p>&l

74、t;p>　　MsgBox "請輸入醫(yī)生姓名！", vbOKOnly + vbExclamation, "警告"</p><p>　　txtempname.SetFocus</p><p><b>　　Exit Sub</b></p><p><b>　　End If</b>&l

75、t;/p><p>　　If Not Testtxt(cmbempprof.Text) Then</p><p>　　MsgBox "請選擇醫(yī)生職稱！", vbOKOnly + vbExclamation, "警告"</p><p>　　cmbempprof.SetFocus</p><p><b>

76、;　　Exit Sub</b></p><p><b>　　End If</b></p><p>　　If Not Testtxt(txtclinicemp.Text) Then</p><p>　　MsgBox "請輸入掛號員姓名！", vbOKOnly + vbExclamation, "警告&qu

77、ot;</p><p>　　txtclinicemp.SetFocus</p><p><b>　　Exit Sub</b></p><p><b>　　End If</b></p><p>　　If Not Testtxt(cmbclinicfee.Text) Then</p>&l

78、t;p>　　MsgBox "請選擇門診費(fèi)用！", vbOKOnly + vbExclamation, "警告"</p><p>　　cmbclinicfee.SetFocus</p><p><b>　　Exit Sub</b></p><p><b>　　End If</b>

79、</p><p>　　If Not Testtxt(txtyear.Text) Then</p><p>　　MsgBox "請輸入掛號日期！", vbOKOnly + vbExclamation, "警告"</p><p>　　txtyear.SetFocus</p><p><b>　　E

80、xit Sub</b></p><p><b>　　End If</b></p><p>　　If Not IsNumeric(Trim(txtpatientnum.Text)) Then</p><p>　　MsgBox "病人編號請輸入數(shù)字！", vbOKOnly + vbExclamation, "

81、;警告"</p><p><b>　　Exit Sub</b></p><p>　　txtpatientnum.SetFocus</p><p><b>　　End If</b></p><p>　　If Not IsDate(txtyear.Text) Then</p>&

82、lt;p>　　MsgBox "日期應(yīng)輸入日期格式（yyyy-mm-dd）！", vbOKOnly + vbExclamation, "警告"</p><p>　　txtyear.SetFocus</p><p><b>　　Else</b></p><p>　　txtyear = Format(tx

83、tyear, "yyyy-mm-dd")</p><p>　　txtSQL = "insert into t_clinicregister values('" & Trim(txtpatientnum) & "','" & Trim(txtname) & "','"

84、; & Trim(cmbgendar) & "','" & Trim(txtage) & "','" & Trim(cmbfeecategory) & "','" & Trim(cmbregcategroy) & "','" &am

85、p; Trim(cmbdeptname) & "','" & Trim(txtempname) & "','" & Trim(cmbempprof) & "','" & Trim(txtclinicemp) & "','" & Tr

86、im(cmbclinicfee) & "','" & Trim(txtyear) & "')</p><p>　　Call TransactSQL(txtSQL)</p><p>　　MsgBox "保存成功！", vbOKOnly + vbExclamation, "警告"

87、;</p><p>　　txtpatientnum.Text = ""</p><p>　　txtname = ""</p><p>　　txtage = ""</p><p>　　txtempname = ""</p><p>　　txt

88、year = ""</p><p>　　txtpatientnum.SetFocus</p><p><b>　　Me.Hide</b></p><p><b>　　End If</b></p><p><b>　　End Sub</b></p>

89、<p><b>　　第五章 系統(tǒng)測試</b></p><p>　　5.1 系統(tǒng)開發(fā)環(huán)境</p><p>　　開發(fā)與運(yùn)行環(huán)境會影響到數(shù)據(jù)庫的運(yùn)行，本系統(tǒng)的開發(fā)環(huán)境選擇如下：</p><p>　　開發(fā)環(huán)境：Windows XP Professional SP2</p><p>　　開發(fā)工具：Micosoft

90、Visual Basic 6.0 中文版</p><p>　　數(shù)據(jù)庫管理系統(tǒng)：SQL Server 2000</p><p>　　數(shù)據(jù)訪問技術(shù)：ActiveX Data Objects</p><p><b>　　5.2 系統(tǒng)測試</b></p><p><b>　　系統(tǒng)測試環(huán)境：</b></

91、p><p>　　測試環(huán)境：Windows XP Professional </p><p>　　運(yùn)行工具：SQL Server 2000</p><p><b>　　系統(tǒng)功能測試：</b></p><p>　　功能測試是開發(fā)軟件不可缺少的一步，對功能測試的結(jié)果將直接可以得出軟件性能的優(yōu)劣以及對軟件以后運(yùn)行中的維護(hù)。這里，我主

92、要從系統(tǒng)登錄、具體函數(shù)測試和后臺的跟蹤這三個(gè)方面，以圖示的方式來說明，具體如下：</p><p>　　注：前臺已和數(shù)據(jù)庫連接成功 注：密碼三次錯(cuò)誤，退出系統(tǒng)</p><p>　　注：當(dāng)輸入日期格式不正確時(shí)，提示錯(cuò)誤</p><p>　　注：門診掛號保存成功</p><p>　　在SQL Server2000查詢分析器里輸入&

93、lt;/p><p>　　use his_test</p><p><b>　　go </b></p><p>　　select * from t_clinicregister</p><p><b>　　第六章 結(jié)束語</b></p><p>　　由于這是我第一次開發(fā)軟件，而且是

94、管理系統(tǒng)中最為復(fù)雜的HIS軟件。通過這一次的開發(fā)，我徹底認(rèn)清了我在經(jīng)驗(yàn)、知識方面都存在著嚴(yán)重的匱乏。由于時(shí)間的倉促，技術(shù)的缺陷，在本系統(tǒng)中，我沒有完成生成明細(xì)的報(bào)表。另外，在建立數(shù)據(jù)庫和設(shè)計(jì)表的能力關(guān)聯(lián)方面上，也需要進(jìn)一步的加強(qiáng)。而在開發(fā)過程中，我不僅學(xué)到了關(guān)于技術(shù)和軟件開發(fā)流程等方面的知識，更學(xué)到了學(xué)習(xí)新知識快速的學(xué)習(xí)方法，這將對我受益終身。</p><p>　　本系統(tǒng)雖存在著經(jīng)驗(yàn)和技術(shù)方面的不足，但它操作簡單

95、、界面友好、數(shù)據(jù)庫管理容易、安全性高等不少優(yōu)點(diǎn)也是不容忽視的，更重要的是它帶給人的一種自信，是彌足珍貴的。</p><p><b>　　參考文獻(xiàn)</b></p><p>　　[1] 夏邦貴 劉凡馨等，《SQL Server數(shù)據(jù)庫開發(fā)經(jīng)典實(shí)例精解》，機(jī)械工業(yè)出版社，2006年</p><p>　　[2] 劉萌 周學(xué)明 郭安源，《VisualBas

96、ic企業(yè)辦公系統(tǒng)開發(fā)實(shí)例導(dǎo)航》，人民郵電出版社，2003年</p><p>　　[3] 王成強(qiáng) 馬軻，《新概念VisualBasic6.0教程》,科學(xué)出版社，2003年</p><p>　　[4] 李香敏,《SQL Server2000編程員指南》,北京希望電子出版社，2000年</p><p>　　[5] 汪作文,《軟件工程》,重慶大學(xué)出版社,2004年</

97、p><p>　　[6] 張鳳琴,《數(shù)據(jù)庫原理及應(yīng)用》,北方交通大學(xué)出版社,2005年</p><p>　　[7] 趙瓊《Visual Basic程序設(shè)計(jì)》,中國勞動社會保障出版社 2003.06</p><p>　　[8] 周繼良,《圖書分類學(xué)》,武漢大學(xué)出版社,1992.06</p><p>　　[9] 申莉莉,《數(shù)據(jù)庫系統(tǒng)與Access教程

98、》清華大學(xué)出版社，2003.12</p><p>　　[10]求是科技,《VisualBasic教育信息化系統(tǒng)開發(fā)實(shí)例導(dǎo)航》,</p><p>　　人民郵電出版社,2003.06</p><p><b>　　相關(guān)代碼</b></p><p>　　Option Explicit</p><p>　　

99、' 注冊表關(guān)鍵字安全選項(xiàng)...</p><p>　　Const READ_CONTROL = &H20000</p><p>　　Const KEY_QUERY_VALUE = &H1</p><p>　　Const KEY_SET_VALUE = &H2</p><p>　　Const KEY_CREATE_

100、SUB_KEY = &H4</p><p>　　Const KEY_ENUMERATE_SUB_KEYS = &H8</p><p>　　Const KEY_NOTIFY = &H10</p><p>　　Const KEY_CREATE_LINK = &H20</p><p>　　Const KEY_ALL_

101、ACCESS = KEY_QUERY_VALUE + KEY_SET_VALUE + _</p><p>　　KEY_CREATE_SUB_KEY + KEY_ENUMERATE_SUB_KEYS + _</p><p>　　KEY_NOTIFY + KEY_CREATE_LINK + READ_CONTROL</p><p>　　' 注冊表關(guān)鍵字 ROOT

102、 類型...</p><p>　　Const HKEY_LOCAL_MACHINE = &H80000002</p><p>　　Const ERROR_SUCCESS = 0</p><p>　　Const REG_SZ = 1 ' 獨(dú)立的空的終結(jié)字符串</p><p>　　C

103、onst REG_DWORD = 4 ' 32位數(shù)字</p><p>　　Const gREGKEYSYSINFOLOC = "SOFTWARE\Microsoft\Shared Tools Location"</p><p>　　Const gREGVALSYSINFOLOC = "MSINFO"&

104、lt;/p><p>　　Const gREGKEYSYSINFO = "SOFTWARE\Microsoft\Shared Tools\MSINFO"</p><p>　　Const gREGVALSYSINFO = "PATH"</p><p>　　Private Declare Function RegOpenKeyEx Li

105、b "advapi32" Alias "RegOpenKeyExA" (ByVal hKey As Long, ByVal lpSubKey As String, ByVal ulOptions As Long, ByVal samDesired As Long, ByRef phkResult As Long) As Long</p><p>　　Private Decl

106、are 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 lpc

107、bData As Long) As Long</p><p>　　Private Declare Function RegCloseKey Lib "advapi32" (ByVal hKey As Long) As Long</p><p>　　Private Sub cmdSysInfo_Click()</p><p>　　Call Star

108、tSysInfo</p><p><b>　　End Sub</b></p><p>　　Private Sub cmdOK_Click()</p><p><b>　　Unload Me</b></p><p><b>　　End Sub</b></p><

109、;p>　　Private Sub Form_Load()</p><p>　　Me.Caption = "關(guān)于 " & App.Title</p><p>　　lblVersion.Caption = "版本 " & App.Major & "." & App.Minor & &quo

110、t;." & App.Revision</p><p>　　lblTitle.Caption = App.Title</p><p><b>　　End Sub</b></p><p>　　Public Sub StartSysInfo()</p><p>　　On Error GoTo SysInfo

111、Err</p><p>　　Dim rc As Long</p><p>　　Dim SysInfoPath As String</p><p>　　' 試圖從注冊表中獲得系統(tǒng)信息程序的路徑及名稱...</p><p>　　If GetKeyValue(HKEY_LOCAL_MACHINE, gREGKEYSYSINFO, gREGV

112、ALSYSINFO, SysInfoPath) Then</p><p>　　' 試圖僅從注冊表中獲得系統(tǒng)信息程序的路徑...</p><p>　　ElseIf GetKeyValue(HKEY_LOCAL_MACHINE, gREGKEYSYSINFOLOC, gREGVALSYSINFOLOC, SysInfoPath) Then</p><p>　　&

113、#39; 已知32位文件版本的有效位置</p><p>　　If (Dir(SysInfoPath & "\MSINFO32.EXE") <> "") Then</p><p>　　SysInfoPath = SysInfoPath & "\MSINFO32.EXE"</p><p&

114、gt;　　' 錯(cuò)誤 - 文件不能被找到...</p><p><b>　　Else</b></p><p>　　GoTo SysInfoErr</p><p><b>　　End If</b></p><p>　　' 錯(cuò)誤 - 注冊表相應(yīng)條目不能被找到...</p>&

115、lt;p><b>　　Else</b></p><p>　　GoTo SysInfoErr</p><p><b>　　End If</b></p><p>　　Call Shell(SysInfoPath, vbNormalFocus)</p><p><b>　　Exit Sub

116、</b></p><p>　　SysInfoErr:</p><p>　　MsgBox "此時(shí)系統(tǒng)信息不可用", vbOKOnly</p><p><b>　　End Sub</b></p><p>　　Public Function GetKeyValue(KeyRoot As Long

117、, KeyName As String, SubKeyRef As String, ByRef KeyVal As String) As Boolean</p><p>　　Dim i As Long ' 循環(huán)計(jì)數(shù)器</p><p>　　Dim rc As Long

118、 ' 返回代碼</p><p>　　Dim hKey As Long ' 打開的注冊表關(guān)鍵字句柄</p><p>　　Dim hDepth As Long '</

119、p><p>　　Dim KeyValType As Long ' 注冊表關(guān)鍵字?jǐn)?shù)據(jù)類型</p><p>　　Dim tmpVal As String ' 注冊表關(guān)鍵字值的臨時(shí)存儲器</p><p>　　Dim KeyVa

120、lSize As Long ' 注冊表關(guān)鍵自變量的尺寸</p><p>　　'------------------------------------------------------------</p><p>　　' 打開 {HKEY_LOCAL_MACHINE...} 下的 RegKey<

121、;/p><p>　　'------------------------------------------------------------</p><p>　　rc = RegOpenKeyEx(KeyRoot, KeyName, 0, KEY_ALL_ACCESS, hKey) ' 打開注冊表關(guān)鍵字</p><p>　　If (rc <>

122、; ERROR_SUCCESS) Then GoTo GetKeyError ' 處理錯(cuò)誤...</p><p>　　tmpVal = String$(1024, 0) ' 分配變量空間</p><p>　　KeyValSize = 1024

123、 ' 標(biāo)記變量尺寸</p><p>　　'------------------------------------------------------------</p><p>　　' 檢索注冊表關(guān)鍵字的值...</p><p>　　'-----------------------------------------

124、-------------------</p><p>　　rc = RegQueryValueEx(hKey, SubKeyRef, 0, _</p><p>　　KeyValType, tmpVal, KeyValSize) ' 獲得/創(chuàng)建關(guān)鍵字值</p><p>　　If (rc <> ERROR_SUCCESS) Then GoTo

125、 GetKeyError ' 處理錯(cuò)誤</p><p>　　If (Asc(Mid(tmpVal, KeyValSize, 1)) = 0) Then ' Win95 外接程序空終結(jié)字符串...</p><p>　　tmpVal = Left(tmpVal, KeyValSize - 1) ' Nul

126、l 被找到,從字符串中分離出來</p><p>　　Else ' WinNT 沒有空終結(jié)字符串...</p><p>　　tmpVal = Left(tmpVal, KeyValSize) ' Null 沒有被找到, 分離字符串</