VB6.0結(jié)合Access2003制作交叉配血軟件

李亞寧

甘肅省平?jīng)鍪袥艽h人民醫(yī)院，甘肅平?jīng)?744300

交叉配血是醫(yī)院血庫最重要的工作之一，以往使用傳統(tǒng)的手工方法進(jìn)行交叉配血申請(qǐng)單相關(guān)信息的登記、報(bào)告單填寫、資料統(tǒng)計(jì)和信息查詢，工作量大、報(bào)告單不夠整潔規(guī)范、查詢統(tǒng)計(jì)不便。筆者結(jié)合我院實(shí)際情況，用access2003作為數(shù)據(jù)庫，以VB6.0作為開發(fā)平臺(tái)，開發(fā)制作了交叉配血軟件，解決了手工法存在的種種問題，現(xiàn)報(bào)道如下。

1 設(shè)計(jì)數(shù)據(jù)庫

①打開Microsoft Access2003，新建一個(gè)名為“臨床用血”的數(shù)據(jù)庫[1]。

②根據(jù)實(shí)際需求，在“交叉配血”數(shù)據(jù)庫中建立“操作員”、“患者信息”、“配血”等數(shù)據(jù)表。

2 設(shè)計(jì)程序

打開Visual Basic 6.0，新建一個(gè)名為“交叉配血”的新項(xiàng)目。

2.1 設(shè)計(jì)界面

在VB6.0“交叉配血”項(xiàng)目?jī)?nèi)根據(jù)軟件功能需要設(shè)計(jì)“登陸”、“臨床用血管理”、“臨床用血交叉配合試驗(yàn)”、“存根打印時(shí)間設(shè)置”、“用血統(tǒng)計(jì)”、“操作員維護(hù)”、“更改密碼”等7個(gè)界面[2]。

“登陸”界面用于進(jìn)入本軟件，界面設(shè)置了用戶名選擇下拉列表框和密碼輸入文本框，如用戶名或密碼輸入不正確，則不能進(jìn)入軟件，避免非法登陸保證數(shù)據(jù)安全。

“臨床用血管理”是軟件的主界面，其上設(shè)置了6個(gè)圖片框，用戶單擊其它圖片進(jìn)入相應(yīng)的界面，實(shí)現(xiàn)相應(yīng)功能，單擊“退出”圖片退出軟件，如圖1所示。

圖1 “臨床用血管理”界面圖

“臨床用血交叉配合試驗(yàn)”界面用于患者信息、血液制品信息、交叉配血試驗(yàn)結(jié)果的錄入、編輯修改、查詢、交叉配合報(bào)告單打印和交叉配合記錄單打印。為了便于使用、減少錄入差錯(cuò)、提高工作效率，考慮到交叉配血試驗(yàn)的工作實(shí)際情況，界面設(shè)計(jì)時(shí)充分利用VB6.0提供的下拉列表框、ABODC等控件的功能。如性別、血型、血液制品類型等有固定格式內(nèi)容的信息可以通過鼠標(biāo)、箭頭鍵選擇錄入。大多數(shù)情況下患者所受血液制品ABO血型及RH（D）血型和患者相同，交叉配血試驗(yàn)結(jié)果為“無溶血無凝集”，因此，通過編寫代碼使本界面中患者ABO血型及RH（D）血型選擇錄入后血液制品相關(guān)內(nèi)容自動(dòng)輸入，試驗(yàn)結(jié)果自動(dòng)輸入“無溶血無凝集”，如有不符可以修改。界面提供了每次試驗(yàn)最多6個(gè)血液制品的試驗(yàn)?zāi)芰Γ瑵M足大容量交叉配血試驗(yàn)要求。界面如圖2所示。

圖2 “臨床用血交叉配合試驗(yàn)”界面圖

“存根打印時(shí)間設(shè)置”界面用于選擇打印SOP文件要求的臨床輸血記錄的時(shí)間段，在界面上選擇開始時(shí)間和結(jié)束時(shí)間后單擊“確定”按鈕即可打印所需時(shí)間段內(nèi)臨床輸血記錄，界面如圖3所示。

“用血統(tǒng)計(jì)”界面用于統(tǒng)計(jì)血液制品用量、輸血人次、血費(fèi)等日常統(tǒng)計(jì)工作，如圖4所示。

“操作員維護(hù)”界面用于添加、修改和刪除操作員工作。

“更改密碼” 界面用于維護(hù)操作員密碼。

圖3 “存根打印時(shí)間設(shè)置”界面圖

圖4 “用血統(tǒng)計(jì)”界面圖

圖5 “交叉配合報(bào)告”報(bào)表圖

圖6 “臨床輸血記錄”報(bào)表圖

2.2 數(shù)據(jù)綁定

以上界面在設(shè)計(jì)過程中，根據(jù)需要將VB6.0 ADODC控件數(shù)據(jù)源設(shè)置為access 2003“交叉配血”數(shù)據(jù)庫相應(yīng)的數(shù)據(jù)表，再設(shè)置界面上各控件的數(shù)據(jù)源，完成數(shù)據(jù)綁定。

2.3 設(shè)計(jì)報(bào)表

在VB6.0“交叉配血”項(xiàng)目?jī)?nèi)根據(jù)軟件功能需要設(shè)計(jì)“交叉配合試驗(yàn)報(bào)告”、“臨床輸血記錄”和“用血統(tǒng)計(jì)”3個(gè)報(bào)表，打印效果分別如圖5，圖6，圖7所示。

2.4 調(diào)試打包

完成數(shù)據(jù)庫、界面和報(bào)表設(shè)計(jì)工作后，反復(fù)進(jìn)行調(diào)試修改直至符合軟件設(shè)計(jì)要求，利用VB6.0“打包和發(fā)布向?qū)А睂?duì)軟件打包。

3 總結(jié)

經(jīng)過3年多時(shí)間使用，本軟件在Windows XP、Windows 2000下運(yùn)行情況良好，具有軟件體積小、占用系統(tǒng)資源少、運(yùn)行速度快、使用簡(jiǎn)便等特點(diǎn)，提高了工作效率和工作質(zhì)量，符合臨床血庫工作信息化發(fā)展方向。交叉配血是血庫工作的一部分，開發(fā)包括交叉配血功能在內(nèi)的可管理整個(gè)血庫工作的計(jì)算機(jī)軟件是今后的發(fā)展方向。

[1] 求是科技編著.Visual Basic 6.0程序設(shè)計(jì)與開發(fā)技術(shù)大全[M].北京：人民郵電出版社，2004：122-224.

[2] [美]Cary N.Prague，著.趙傳起，葉卓映，郭軍，等譯.中文版Access 2003寶典[M].北京：電子工業(yè)出版社，2004：39-74.