中小醫(yī)院藥品招標(biāo)系統(tǒng)的設(shè)計(jì)與實(shí)現(xiàn).doc

面向中小醫(yī)院藥品招標(biāo)系統(tǒng)的設(shè)計(jì)與實(shí)現(xiàn)摘 要藥品集中招標(biāo)采購是國務(wù)院確定的城鎮(zhèn)醫(yī)藥衛(wèi)生體制改革的重要內(nèi)容，也是關(guān)系到人民群眾切身利益的一項(xiàng)重要工作。藥品集中招標(biāo)采購一直作為降低過高藥價(jià)和糾正不正之風(fēng)的重要政策手段?，F(xiàn)在的藥品手工招標(biāo)存在不同程度的暗箱操作等問題，不能達(dá)到真正的公開、公正、公平的目的，而利用藥品招標(biāo)系統(tǒng)完全可以解決這些問題，讓招標(biāo)方和投標(biāo)方在快速準(zhǔn)確地完成招標(biāo)工作的前提下節(jié)省開支，降低采購銷售成本，從而實(shí)現(xiàn)真正意義上的降低藥價(jià)。關(guān)鍵詞： 招標(biāo) 手工招標(biāo) 降低藥價(jià) 招標(biāo)系統(tǒng) 公正公平公開 PowerbuilderAbstractThe collective medicine purchase by inviting public bidding is the important part of town medical and health system reform confirmed by the State Council. At the same time, it has close relations with peoples vital interests. At all times the collective medicine purchase by inviting public bidding is the powerful policy means to cut the over-high medicine price and correct the malpractice. There exist kinds of underground performance of various degrees in the medicine purchase by manual bidding. It cannot achieve the aim of just, fair and open. While using this medicine-bidding system can solve these problems. Its feasible to realize the reduction of medicine price in the true sense through cutting the cost of stocking and selling on the premise that both the renderee and tenderer perform the bidding task quickly and exactly.Keywordsinvite public bidding manual bidding cut the medicine price the medicine-bidding system just, fair and open PowerBuilder一、前言隨著國家醫(yī)療衛(wèi)生制度改革的不斷深化，集中招標(biāo)采購已經(jīng)成為醫(yī)院藥品采購工作的發(fā)展趨勢。在沒有采用藥品招標(biāo)軟件前，招標(biāo)操作過程中傳統(tǒng)的解決方法就是醫(yī)院將所需購置的藥品清單按要求做成一份標(biāo)書，發(fā)放至投標(biāo)商，由人工進(jìn)行評標(biāo)，從厚厚的投標(biāo)書中逐一統(tǒng)計(jì)出招標(biāo)結(jié)果。這些都是通過人工方式完成的，這種方法不僅操作繁瑣、工作量大，而且容易出現(xiàn)差錯(cuò)。為解決這一問題，我院信息中心利用PB開發(fā)基于ODBC應(yīng)用系統(tǒng)，設(shè)計(jì)與實(shí)現(xiàn)了醫(yī)院藥品招標(biāo)系統(tǒng)，建立藥品招標(biāo)數(shù)據(jù)庫，實(shí)現(xiàn)自動(dòng)化查詢、報(bào)表和管理。應(yīng)用該系統(tǒng)極大地提高醫(yī)藥招標(biāo)的工作效率和工作質(zhì)量。該系統(tǒng)能夠匯總投標(biāo)商的所有信息，將其保存至數(shù)據(jù)庫，能夠進(jìn)行各種功能查詢，包括滿足各種需要的報(bào)表的打印輸出。投標(biāo)企業(yè)只需要通過互聯(lián)網(wǎng)登陸招標(biāo)網(wǎng)站，將自已公司的資料和投標(biāo)信息，按照網(wǎng)站提供的步驟分步填寫完成，就可以了。省去了書面文檔的傳遞。同時(shí)這也是無紙化辦公的最好實(shí)例。這套系統(tǒng)的開發(fā)，不但加強(qiáng)醫(yī)院的競爭力，降低醫(yī)療企業(yè)的成本，減少藥品購銷活動(dòng)中的不正之風(fēng)，減輕患者的負(fù)擔(dān)，而且還能徹底清除暗箱操作，規(guī)范藥品的購銷行為，保證藥品的質(zhì)量和臨床用藥安全。1.1 手工招標(biāo)存在的弊端反觀我國目前的藥品集中招標(biāo)采購，存在很多人為因素，不能完全解決招標(biāo)中帶來的“暗箱操作”；不但減少了醫(yī)療機(jī)構(gòu)的藥品收入。同時(shí)也加重了企業(yè)和醫(yī)院的負(fù)擔(dān)。手工招標(biāo)的程序過于繁瑣。醫(yī)院公開招標(biāo)后，投標(biāo)人需要將投標(biāo)資料準(zhǔn)備成書面材料，在規(guī)定的截止日期前密封送達(dá)到投標(biāo)地點(diǎn)。招標(biāo)單位再根據(jù)眾多投標(biāo)單位提供的藥品清單，逐一進(jìn)行評比。藥品招標(biāo)在手工管理?xiàng)l件下，由于商品編碼無規(guī)律，要想從幾萬種商品中查找某一種產(chǎn)品所費(fèi)的時(shí)間和精力極大。而且由于信息化程度低，大量工作都采取手工操作，這就需要大量的人力和物力以及花費(fèi)很多的時(shí)間。而且商品有效期須進(jìn)行嚴(yán)格控制：藥品和化學(xué)試劑作為一種特殊的商品，時(shí)效性強(qiáng)。需要嚴(yán)格控制其有效期，對批次號的管理要求嚴(yán)格，而手工管理很難作到及時(shí)、準(zhǔn)確最后在進(jìn)行定標(biāo)。醫(yī)藥產(chǎn)品作為一種特殊產(chǎn)品，其銷售模式也較特殊，即通常所說的三角賬。銷售順序是：廠家將醫(yī)藥產(chǎn)品發(fā)貨給批發(fā)站；批發(fā)站又將醫(yī)藥產(chǎn)品發(fā)貨給醫(yī)院。相應(yīng)的資金流動(dòng)方向相反：醫(yī)院將產(chǎn)品全部或部分賣出后與批發(fā)站結(jié)款；批發(fā)站收款后再與廠家結(jié)算。退貨又是與此相反的過程。這種復(fù)雜的處理流程是手工操作很難勝任的。 由于產(chǎn)品品種多、客戶數(shù)量多，造成業(yè)務(wù)量很大。手工進(jìn)行各項(xiàng)業(yè)務(wù)勞動(dòng)效率極低，致使財(cái)務(wù)及管理部門所需的各種經(jīng)營數(shù)據(jù)及經(jīng)營分析報(bào)表無法及時(shí)得到。而且在手工招標(biāo)中，藥品的價(jià)格是很難控制的。因?yàn)榇嬖谥藶榈囊蛩?，?dǎo)致許多藥品的進(jìn)標(biāo)價(jià)高于售價(jià)。招標(biāo)單位再將這些藥品，以更高價(jià)格售出，這樣損失最大的始終是老百姓。一、增加了醫(yī)藥企業(yè)難以承受的負(fù)擔(dān)。招標(biāo)單位要投標(biāo)方反復(fù)提供名目繁多的文件和資料，包括投標(biāo)方的財(cái)務(wù)報(bào)表、納稅表、銀行開戶證明、價(jià)格文件、省市藥檢報(bào)告、生產(chǎn)工藝、藥監(jiān)局的無生產(chǎn)經(jīng)營假劣藥證明、產(chǎn)品說明書、樣品等等，否則就取消投標(biāo)資格。為了應(yīng)對各地頻繁的招標(biāo)和名目繁多的材料，醫(yī)藥企業(yè)都設(shè)立了招標(biāo)辦公室，加班加點(diǎn)、疲于奔波。有的企業(yè)老總反映：現(xiàn)在醫(yī)藥企業(yè)的領(lǐng)導(dǎo)不是在研究企業(yè)的發(fā)展戰(zhàn)略，新品的開發(fā)，人才隊(duì)伍建設(shè)和管理水平的提高，而是把絕大部分的精力放在招投標(biāo)上，算是“勞命傷財(cái)”。二、是增加了醫(yī)藥企業(yè)的經(jīng)營成本。國務(wù)院多次強(qiáng)調(diào)要降低企業(yè)負(fù)擔(dān)，而招標(biāo)采購不僅增加了環(huán)節(jié)，還出現(xiàn)了巧立名目，濫收費(fèi)現(xiàn)象，如檢驗(yàn)費(fèi)、樣品費(fèi)、標(biāo)書費(fèi)、投標(biāo)保證金、中標(biāo)藥品預(yù)付款、招標(biāo)代理服務(wù)費(fèi)等等，還要增加大量的差旅費(fèi)用。尤其是由舉標(biāo)方支付招標(biāo)代理服務(wù)費(fèi)用，更缺乏法律依據(jù)，且標(biāo)準(zhǔn)過高，收費(fèi)方式不合理。全國醫(yī)藥商業(yè)利潤率2002年僅0.59%，而招標(biāo)的代理費(fèi)用每個(gè)品種中標(biāo)金額100萬以下的卻高達(dá)0.6%。1.2 招標(biāo)系統(tǒng)在實(shí)際應(yīng)用中的優(yōu)點(diǎn)這套招標(biāo)系統(tǒng)最大的特點(diǎn)就是整個(gè)開標(biāo)評標(biāo)過程完全由電腦完成，優(yōu)點(diǎn)是采購周期短、成本低、效率高,具有廣泛的適用性。比現(xiàn)實(shí)藥品招標(biāo)采購工作更加規(guī)范化、透明化、自動(dòng)化，更加有利于有效的監(jiān)督和審計(jì)，提高工作效率，降低成本。電腦主要根據(jù)以下幾列因素進(jìn)行評標(biāo)：價(jià)格因素，就是把參與投標(biāo)的供應(yīng)商的投標(biāo)文件中的總報(bào)價(jià)進(jìn)行比較，低者中標(biāo)；質(zhì)量服務(wù)考核得分因素，醫(yī)院直接在網(wǎng)上購藥，供應(yīng)商網(wǎng)上接收到醫(yī)院采購信息，立即供貨，衛(wèi)生信息中心負(fù)責(zé)網(wǎng)絡(luò)的維護(hù)和監(jiān)督協(xié)議的執(zhí)行，電子商務(wù)系統(tǒng)自動(dòng)統(tǒng)計(jì)供貨情況，節(jié)約了大量人力物力，過去需要20個(gè)人、5天完成的工作，實(shí)行電子商務(wù)后，只需3個(gè)人、2天就能完成。 該系統(tǒng)體現(xiàn)了高效、便捷、簡化、實(shí)用的特點(diǎn)，實(shí)現(xiàn)了招標(biāo)、投標(biāo)、開標(biāo)、評標(biāo)全過程網(wǎng)上運(yùn)作。醫(yī)院從網(wǎng)上上報(bào)藥品采購目錄，招標(biāo)系統(tǒng)自動(dòng)匯總后，通過網(wǎng)站發(fā)布招標(biāo)公告，藥品生產(chǎn)、經(jīng)營企業(yè)在網(wǎng)上下載標(biāo)書，進(jìn)行網(wǎng)上報(bào)價(jià)投標(biāo)，招標(biāo)辦公室從藥品招標(biāo)采購專家數(shù)據(jù)庫中，隨機(jī)抽取專家，組成專家評審委員會(huì)在網(wǎng)上評標(biāo)，監(jiān)督管理部門在網(wǎng)上監(jiān)督評標(biāo)工作進(jìn)展情況，招標(biāo)后的中標(biāo)品種全部通過電子商務(wù)平臺交易。人機(jī)對話的工作模式解決了過去藥品采購的弊端，增加了工作透明度，保證了整個(gè)工作的公平、公開、公正。藥品招標(biāo)系統(tǒng)實(shí)行招標(biāo)采購工作，是利用現(xiàn)代電子網(wǎng)絡(luò)技術(shù)實(shí)現(xiàn)藥品集中招標(biāo)采購的進(jìn)步和必然，由于整個(gè)招標(biāo)采購的過程均在網(wǎng)上進(jìn)行，并且有嚴(yán)格的程序及規(guī)章制度約束，這樣一來就能保證招標(biāo)采購工作最大限度地透明化、公開化、規(guī)范化，整個(gè)過程均在計(jì)算機(jī)中有嚴(yán)格的記錄，全過程處在嚴(yán)密的監(jiān)督及審核之下，這樣加強(qiáng)了管理和接受群眾監(jiān)督，規(guī)范了藥品的招標(biāo)采購行為，從而有效地避免了藥品招標(biāo)采購中醫(yī)院負(fù)責(zé)人和藥品采購員個(gè)人說了算的不良行為，最大限度地糾正了藥品購銷中的不正之風(fēng)。 能夠保證藥品的供應(yīng)，有利于醫(yī)藥責(zé)任市場的形成。投標(biāo)前，要求供應(yīng)商繳納一定金額的抵押金，合同履行完后即退還，制約了個(gè)別供貨商只招標(biāo)而無法供貨等一些擾亂市場的行為。中標(biāo)后雙方形成的是一種長期合作伙伴關(guān)系，雙方嚴(yán)格按合同辦事，便于供應(yīng)商長期準(zhǔn)備貨源，保證及時(shí)供應(yīng)。能夠大大減少工作量，降低整個(gè)藥品招投標(biāo)的操作成本。招標(biāo)采購的過程大部分在網(wǎng)上進(jìn)行，分類統(tǒng)計(jì)由計(jì)算機(jī)完成，這就大大減少了工作量。采用先進(jìn)的電子網(wǎng)絡(luò)系統(tǒng)，簡化了書面文書的繁瑣程序，特別是聯(lián)網(wǎng)交易，大大降低了操作費(fèi)用，提高了辦事效率。二、招標(biāo)流程2.1 手工招標(biāo)流程在采用招標(biāo)軟件前，如果招標(biāo)單位需要采購某種藥品品時(shí)，首先需要向社會(huì)公布招標(biāo)項(xiàng)目，然后由投標(biāo)公司人員從公司到招標(biāo)單位采購中心領(lǐng)取招標(biāo)目錄和招標(biāo)文件等材料。投標(biāo)公司距離招標(biāo)單位距離是不定的甚至全國各地都有?？上攵稑?biāo)公司必須花費(fèi)大量的差旅費(fèi)，分派專人甚至要花幾天的時(shí)間才能拿到招標(biāo)文件。各個(gè)投標(biāo)公司回去后根據(jù)本公司實(shí)際情況和從招標(biāo)單位領(lǐng)回來的招標(biāo)文件，安排幾個(gè)人花費(fèi)幾天的時(shí)間根據(jù)需要制定相應(yīng)的報(bào)價(jià)單和文件材料，最后制作投標(biāo)書。然后到招標(biāo)單位將投標(biāo)信息資料送到采購中心，等采購中心的審核，評標(biāo)。整個(gè)投標(biāo)完成后投標(biāo)公司投入了大量人力和財(cái)力，最后投標(biāo)公司在報(bào)價(jià)的時(shí)候必定會(huì)將這些投入記入成本，從而造成投標(biāo)的價(jià)格并沒有降低。違反了招標(biāo)目的在于降低藥價(jià)的初衷，失去了招標(biāo)的本身意義。最初采購中心要從厚厚的投標(biāo)書中挑選出符合要求的投標(biāo)企業(yè)。這些工作一般招標(biāo)單位都必須成立一個(gè)小組花上幾天的時(shí)間才能完成。而且在完成這項(xiàng)工作的時(shí)候因?yàn)樗泄ぷ鞫际侨藶椴僮?，姑且不談某些操作人員在操作中的舞弊行為，一些工作人員在操作過程中大意或疏忽就很容易發(fā)生。在開標(biāo)大會(huì)上按照個(gè)投標(biāo)公司的標(biāo)書對每個(gè)品種投標(biāo)念出來給現(xiàn)場觀眾代表聽?，F(xiàn)場代表和觀眾不能通過視覺直接獲得投標(biāo)信息，整個(gè)開標(biāo)過程幾乎沒有什么透明度。然后根據(jù)這些上萬張紙投標(biāo)資料評出廢標(biāo)和符合要求的標(biāo)，這又是一個(gè)耗力耗時(shí)的工作。最后由招標(biāo)組統(tǒng)計(jì)人員按照每個(gè)品種投標(biāo)綜合排序，確定中標(biāo)價(jià)格和單位。這都是通過人工的方式完成，可想而知其中繁重的工作。2.2 利用招標(biāo)系統(tǒng)實(shí)現(xiàn)招標(biāo)招標(biāo)系統(tǒng)的成功運(yùn)用將大量繁雜的計(jì)算和統(tǒng)計(jì)工作交給計(jì)算機(jī)來處理，變得準(zhǔn)確又快捷，大大提高整個(gè)招標(biāo)工作的效率。首先招標(biāo)單位招標(biāo)文件不需要用大量的紙張重復(fù)打印，而是做成電子版上傳到互聯(lián)網(wǎng)上。在傳統(tǒng)招標(biāo)過程中投標(biāo)公司專人專門從公司到招標(biāo)單位領(lǐng)取招標(biāo)文件的出差往返的人力和財(cái)力全部節(jié)省，每個(gè)投標(biāo)公司直接從網(wǎng)上下載招標(biāo)文件和投標(biāo)軟件。投標(biāo)公司安裝好投標(biāo)軟件客戶端，根據(jù)下載招標(biāo)文件通過投標(biāo)軟件來投標(biāo)操作變得簡單多了，而且因?yàn)槭歉鶕?jù)投標(biāo)軟件操作使投標(biāo)廢標(biāo)幾率變小。投標(biāo)公司根據(jù)招標(biāo)軟件制作上報(bào)盤直接上報(bào)醫(yī)院。醫(yī)院招標(biāo)組根據(jù)公司上報(bào)的投標(biāo)盤，在開標(biāo)大會(huì)上利用招標(biāo)系統(tǒng)結(jié)合大屏幕投影儀在屏幕上按指定的速度顯示給現(xiàn)場觀眾看，準(zhǔn)確而且公開。真正做到公開、公平、公正，避免在傳統(tǒng)手工招標(biāo)過程中的暗箱操作。招標(biāo)系統(tǒng)根據(jù)導(dǎo)入到數(shù)據(jù)庫內(nèi)的各家投標(biāo)公司的投標(biāo)數(shù)據(jù)進(jìn)行判斷篩選6，確定那些是廢標(biāo)。招標(biāo)單位通過電腦匯總的資料，按照符合條件的項(xiàng)目歸類，這樣所有符合本次招標(biāo)的標(biāo)書和企業(yè)盡收眼底。采用招標(biāo)軟件后節(jié)省了大量的人力勞動(dòng)，只需要通過鼠標(biāo)點(diǎn)擊就能進(jìn)行統(tǒng)計(jì)和篩選。同時(shí)大大提高了統(tǒng)計(jì)的準(zhǔn)確性，避免了由于人員疏忽而造成的錯(cuò)誤。系統(tǒng)最后自動(dòng)確定中標(biāo)結(jié)果。藥品招標(biāo)系統(tǒng)的成功運(yùn)用最大程度遵循招標(biāo)的公開、公平、公正的原則。避免人工招標(biāo)的暗箱操作和作弊行為。降低采購成本，讓計(jì)算機(jī)充分發(fā)揮統(tǒng)計(jì)計(jì)算的優(yōu)越性，避免投入大量的人力和財(cái)力進(jìn)行復(fù)雜而煩瑣的統(tǒng)計(jì)和計(jì)算。同時(shí)大大提高了統(tǒng)計(jì)的準(zhǔn)確性，避免了由于人員疏忽而造成的錯(cuò)誤。醫(yī)院因此確實(shí)能購買到質(zhì)量好而且價(jià)格低的藥品，讓關(guān)系老百姓切身利益的藥價(jià)降下來。2.3 招標(biāo)系統(tǒng)流程非最高最高多個(gè)最低價(jià)相同投標(biāo)價(jià)最低三家以內(nèi)單位投標(biāo)無投標(biāo)單位投標(biāo)讀取完成是否投標(biāo)程序上傳到Web供投標(biāo)單位下載HIS系統(tǒng)維護(hù)招標(biāo)計(jì)劃制作招標(biāo)盤和招標(biāo)文件投標(biāo)單位是否正確投標(biāo)Skip不處理公開顯示投標(biāo)結(jié)果導(dǎo)入數(shù)據(jù)庫是否廢標(biāo)評標(biāo)是Update廢標(biāo)標(biāo)志1否計(jì)算中標(biāo)結(jié)果作空標(biāo)處理處理bz并打印報(bào)表Update 中標(biāo)標(biāo)志為1綜合性能質(zhì)量確定中標(biāo)標(biāo)志為1的投標(biāo)為中標(biāo)Update 中標(biāo)標(biāo)志為0高于原進(jìn)價(jià)其他不符項(xiàng)投標(biāo)完成投廠家不符圖2.3 招標(biāo)系統(tǒng)招標(biāo)流程圖2.4 投標(biāo)系統(tǒng)流程否投標(biāo)價(jià)=0投標(biāo)價(jià)0Sqlcode=1正確瀏覽檢查投標(biāo)裝軟件不正確下載安裝軟件Web上招標(biāo)文件和投標(biāo)軟件投標(biāo)登錄正確退出系統(tǒng)Count是否大于3不正確Count+是進(jìn)入投標(biāo)程序按輸入編碼搜選擇上報(bào)盤符正確上報(bào)投標(biāo)數(shù)據(jù)盤取消投標(biāo)是否正確打印報(bào)價(jià)單Sqlcode=0無此標(biāo)號不正確Read廠家bzbz=1輸入投標(biāo)價(jià)和廠家bz=0只輸入投標(biāo)價(jià)Read投標(biāo)價(jià)是否投另一廠家否是Insert同一標(biāo)號Update 投標(biāo)bz=1保存投標(biāo)數(shù)據(jù)圖2.4 招標(biāo)系統(tǒng)投標(biāo)流程圖三、系統(tǒng)部分算法與實(shí)現(xiàn)3.1 投標(biāo)單位投標(biāo)數(shù)據(jù)公開輸入招標(biāo)數(shù)據(jù)庫的實(shí)現(xiàn)藥品采購集中招標(biāo)的制度在全國各家醫(yī)院推行后，其優(yōu)越性得到各家醫(yī)藥公司和醫(yī)院的廣泛認(rèn)同。但具體在進(jìn)行招標(biāo)采購的工作時(shí)，傳統(tǒng)的招標(biāo)操作方式已經(jīng)逐漸顯現(xiàn)他的弊端和局限性。傳統(tǒng)手工招標(biāo)不能做到最大程度公開和公平，當(dāng)然也就不會(huì)公正。對此很多醫(yī)藥公司感到非常無奈。參加招標(biāo)的次數(shù)越來越多，每次參加招標(biāo)來回幾趟跑再加上招標(biāo)費(fèi)使醫(yī)藥公司的投入銷售成本過大，而且最讓醫(yī)藥公司頭疼的是很多招標(biāo)都不公開不透明，暗箱操作使這些有實(shí)力的醫(yī)藥公司都無功而返。傳統(tǒng)手工招標(biāo)在開標(biāo)時(shí)都是招標(biāo)組內(nèi)定幾個(gè)藥劑科人作為開標(biāo)組成員，這些藥劑科的人員和醫(yī)藥公司供應(yīng)商都非常熟悉。由這幾個(gè)人對著投標(biāo)公司的投標(biāo)書念，現(xiàn)場代表只能聽這幾個(gè)人的說詞而不能親眼見到每家公司的真正投標(biāo)報(bào)價(jià)。這其中暗箱操作的可能性很大，而且容易報(bào)錯(cuò)公司投標(biāo)價(jià)格造成不必要的糾紛。同時(shí)招標(biāo)方安排的這幾個(gè)人要將所有投標(biāo)公司的所有投標(biāo)全部念一遍。一般醫(yī)院同時(shí)招標(biāo)有400多種，一個(gè)標(biāo)號品種同時(shí)有30多家醫(yī)藥公司投標(biāo)，每個(gè)標(biāo)號的信息有標(biāo)號、藥品名稱、規(guī)格、單位、投標(biāo)價(jià)、生產(chǎn)廠家等?？上攵@些信息念起來是多么吃力，而且要耽誤大家多少時(shí)間。招標(biāo)系統(tǒng)的設(shè)計(jì)充分考慮招標(biāo)的公開透明、操作簡單，而且時(shí)間可以控制。利用程序設(shè)計(jì)控制每家公司的每個(gè)投標(biāo)在電腦屏幕上勻速顯示。輸出同時(shí)連接到投影儀上，讓各家公司的投標(biāo)明細(xì)（標(biāo)號、名稱、規(guī)格、單位、投標(biāo)價(jià)、生產(chǎn)廠家等）在大屏幕上顯示，接受現(xiàn)場所有人員的監(jiān)督。充分做到公開透明和公平公正，避免暗箱操作的可能性。利用Powerbuild的數(shù)據(jù)窗口控件實(shí)現(xiàn)數(shù)據(jù)庫字段的公開顯示4511。其中datawindow的insertrow（）函數(shù)、setitem（）函數(shù)和scrolltorow（）函數(shù)是實(shí)現(xiàn)公開顯示的基本函數(shù)。Insertrow（）表示在數(shù)據(jù)窗口上插入一空白行，setitem（row,col,ls-dd）表示給數(shù)據(jù)窗口datawindow的row行的col列賦值ls-dd，數(shù)值ls-dd可以是字符也可以是數(shù)字或其他變量。時(shí)間控制我們一般考慮用空循環(huán)來實(shí)現(xiàn)。在投標(biāo)單位和投標(biāo)數(shù)據(jù)讀取時(shí)我們一般都會(huì)使用SQL語句9，使用SQL語句操作數(shù)據(jù)庫簡單而且速度較快是我們設(shè)計(jì)操作數(shù)據(jù)庫程序的首先。具體實(shí)現(xiàn)如下：開始時(shí)間 = now（）select 單位名稱 into 單位名稱變量 from 投標(biāo)數(shù)據(jù)表；窗口界面st_2.text=單位名稱變量do while 投標(biāo)數(shù)據(jù)沒有結(jié)束select 標(biāo)號、名稱、規(guī)格、單位、投標(biāo)價(jià)、生產(chǎn)廠家 into 各字段相關(guān)變量 from 投標(biāo)數(shù)據(jù)表；ls_row=datawindow.insertrow(0) /在數(shù)據(jù)窗口最后插入一空白行并返回當(dāng)前行的行號datawindow.setitem(ls_row，標(biāo)號，標(biāo)號變量)同上將投標(biāo)個(gè)字段讀取的變量依次賦給當(dāng)前行的個(gè)字段datawindow.scrolltorow(ls-row) /數(shù)據(jù)窗口滾動(dòng)到插入的當(dāng)前一行do while secondsafter(開始時(shí)間,now()=3 then /只有超過3家投標(biāo)的標(biāo)號才計(jì)算中標(biāo)結(jié)果long ls_zbslselect count(bh) into :ls_zbsl from tbmlmxb where bh=:ls_bh and tbjg=:ls_tbjg;if isnull(ls_tbcount) then ls_zbsl=0 update tbmlmxb set bz = 1, cgje = :ls_zbsl where bh=:ls_bh and tbjg=:ls_tbjg;end if loop3.3 各種查詢功能的實(shí)現(xiàn)各投標(biāo)單位投標(biāo)完成和評標(biāo)完成后，中標(biāo)結(jié)果計(jì)算出來后查詢就顯得非常重要。傳統(tǒng)手工招標(biāo)完成后，要查詢一個(gè)標(biāo)號的投標(biāo)情況，我們必須根據(jù)該標(biāo)號的其他相關(guān)信息在一大疊紙張中找到自己要查詢的內(nèi)容，為了得到相關(guān)統(tǒng)計(jì)數(shù)據(jù)還必須根據(jù)查詢到信息進(jìn)行手工計(jì)算等操作?？上攵@些工作是多么的繁雜而且所查詢的信息并不一定準(zhǔn)確，統(tǒng)計(jì)漏掉的和重復(fù)統(tǒng)計(jì)的造成統(tǒng)計(jì)數(shù)據(jù)有誤差。這些弊端無疑給醫(yī)院招標(biāo)方帶來很大的麻煩，招標(biāo)方必須投入大量的人力和財(cái)力進(jìn)行這種重復(fù)性的統(tǒng)計(jì)查詢計(jì)算。計(jì)算機(jī)擁有無與倫比的大型數(shù)據(jù)統(tǒng)計(jì)計(jì)算快捷而且準(zhǔn)確的功能。招標(biāo)系統(tǒng)設(shè)計(jì)時(shí)充分考慮到查詢統(tǒng)計(jì)的方便快捷、準(zhǔn)確無誤，利用Powerbuild的數(shù)據(jù)窗口2459完全實(shí)現(xiàn)統(tǒng)計(jì)查詢功能。具體包括按單個(gè)藥品查詢投標(biāo)明細(xì)、按投標(biāo)單位查詢投標(biāo)明細(xì)、按單位查詢中標(biāo)結(jié)果、按品種查詢中標(biāo)結(jié)果、查詢空標(biāo)藥品明細(xì)和查詢?nèi)齻€(gè)以下投標(biāo)明細(xì)。這些查詢功能的實(shí)現(xiàn)后無論是從招標(biāo)品種還是從投標(biāo)公司來分類別查詢都是很方便快捷。四、程序發(fā)布的實(shí)現(xiàn)4.1 利用Wise Installation System 實(shí)現(xiàn)程序發(fā)布首先要建立一個(gè)空白工程setup.wse，在進(jìn)行文件打包時(shí)要充分考慮將Powerbuild的動(dòng)態(tài)連接庫文件放到系統(tǒng)根目錄下，具體根據(jù)Powerbuild版本不同動(dòng)態(tài)連接庫文件不同，具體如下：PB.所需文件：必需PBVM60.DLLPowerBuilder 虛擬機(jī) 可選PBDWE60.DLLDataWindow 數(shù)據(jù)窗口引擎 可選PBRTC60.DLL超文本控件 可選PBTRA60.DLL數(shù)據(jù)庫訪問跟蹤 可選PBODB60.DLLPB的ODBC接口 可選PBIN760.DLLINFORMIX 接口 可選PBMSS60.DLLMicrosoft SQL Server接口 可選PBSYC60.DLLSybase SQL Server接口 可選PBO7360.DLL/PBO7260.DLLOracle Version接口 PB7.0所需文件： 必需PBVM70.DLLPowerBuilder 虛擬機(jī) 必需LIBJCC.DLLPowerBuilder 庫管理 可選PBDWE70.DLLDataWindow 數(shù)據(jù)窗口引擎 可選PBRTC70.DLL超文本控件 可選PBTRA70.DLL數(shù)據(jù)庫訪問跟蹤 可選PBODB70.DLLPB的ODBC接口 可選PBIN770.DLLINFORMIX 接口 可選PBMSS70.DLLMicrosoft SQL Server接口 可選PBSYC70.DLLSybase SQL Server接口 可選PBO7370.DLL/PBO8470.DLLOracle Version接口 PB8.0所需文件： 必需PBVM80.DLLPowerBuilder 虛擬機(jī) 必需LIBJCC.DLLPowerBuilder 庫管理 可選PBDWE80.DLLDataWindow 數(shù)據(jù)窗口引擎 可選PBRTC80.DLL超文本控件 可選PBTRA80.DLL數(shù)據(jù)庫訪問跟蹤 可選PBODB80.DLLPB的ODBC接口 可選PBIN780.DLLINFORMIX 接口 可選PBMSS80.DLLMicrosoft SQL Server接口 可選PBSYC80.DLLSybase SQL Server接口 可選PBO7380.DLL/PBO8480.DLL/PBO9080.DLLOracle Version客戶端程序文件是通過Powerbuild編譯過的PBD和EXE文件以及數(shù)據(jù)庫文件包括yptb.exe,yptb.pbd,yptbsys,ypzbjh.db等，服務(wù)器端安裝程序文件同樣是包括可執(zhí)行EXE和PBD以及數(shù)據(jù)庫文件378，具體包括ypzb.exe,ypzb.pbd.main.db等等。4.2 Wise Installation System中實(shí)現(xiàn)ODBC自動(dòng)配置傳統(tǒng)的手工配置ODBC首先安裝SQL Anywhere數(shù)據(jù)庫驅(qū)動(dòng)程序,使數(shù)據(jù)源管理器中的ODBC驅(qū)動(dòng)程序頁增加一行SQL Anywhere的驅(qū)動(dòng)說明。在系統(tǒng)DSN一頁選擇添加,然后選擇SQL Anywhere數(shù)據(jù)源,出現(xiàn)數(shù)據(jù)源的配置信息表后,將數(shù)據(jù)源名(Data Source Name),數(shù)據(jù)庫名(Database File),用戶ID號(User ID),用戶密碼(Password)等信息添齊,選擇OK確認(rèn),此時(shí)在系統(tǒng)數(shù)據(jù)源的窗口中就會(huì)增加用戶的數(shù)據(jù)庫的ODBC驅(qū)動(dòng),選擇確認(rèn)后退出數(shù)據(jù)源管理器。 進(jìn)行以上操作以后重新啟動(dòng)應(yīng)用程序,用戶就可以在運(yùn)行應(yīng)用程序后使用SQL Anywhere數(shù)據(jù)庫。 但這種方式必須SQL Anywhere數(shù)據(jù)庫驅(qū)動(dòng)程序,使數(shù)據(jù)源管理器中的ODBC驅(qū)動(dòng)程序頁增加一行SQL Anywhere的驅(qū)動(dòng)說明。招標(biāo)系統(tǒng)在設(shè)計(jì)利用注冊表在Wise Installation System中實(shí)現(xiàn)ODBC自動(dòng)配置。以WIN98下的注冊表為例，括號內(nèi)的為WIN2000下的注冊表數(shù)值，C:YourApp為用戶應(yīng)用程序目錄，C:YourAppSqlany50為應(yīng)用程序包含的SQL Anywhere數(shù)據(jù)庫驅(qū)動(dòng)文件目錄,YourDB.DB為用戶數(shù)據(jù)庫。 在HKEY_LOCAL_MACHINEsoftwareODBCODBC Drivers(ODBCINST.INIODBC Drivers)下，增加字符串鍵值： Sybase SQL Anywhere 5.0 = Installed 在HKEY_LOCAL_MACHINEsoftwareODBCSybase SQL Anywhere 5.0(ODBCINST.INISybase SQL Anywhere 5.0)下，增加字符串鍵值： Driver = C:YourAppSqlany50WOD50T.DLL Setup = C:YourAppSqlany50WOD50T.DLL 在HKEY_LOCAL_MACHINESoftwareODBCODBC.INIODBC Data Source下，增加字符串鍵值： TestDB = Sybase SQL Anywhere 5.0 在HKEY_LOCAL_MACHINESoftwareODBCODBC.INI下,增加主鍵:TestDB,并分別加入鍵值如下: Autostop = yes Databasefile = C:YourAppYourDB.DB Databasename = TestDB Driver = C:YourAppSqlany50WOD50T.DLL PWD = sql Start = C:YourAppSqlany50dbeng50.exe -d -c1024 -Q UID = dba 在用戶的安裝程序中將以上步驟加入，可以使用戶的應(yīng)用程序在不必安裝SQL Anywhere數(shù)據(jù)庫驅(qū)動(dòng)下，也能直接訪問系統(tǒng)數(shù)據(jù)源，從而實(shí)現(xiàn)用戶應(yīng)用程序的獨(dú)立發(fā)布。五、總結(jié)為了加強(qiáng)醫(yī)院的競爭力，降低醫(yī)療企業(yè)的成本，減少藥品購銷活動(dòng)中的不正之風(fēng)，減輕患者的負(fù)擔(dān)，徹底清除暗箱操作，規(guī)范藥品的購銷行為，保證藥品的質(zhì)量和臨床用藥安全。以公開、公平、公正和誠實(shí)信用為原則的招標(biāo)采購系統(tǒng)，使供貨商形成了不起有效的競爭，最大限度的降低了采購成本。 提高了辦事效率，徹底做到了無紙化操作。這套藥品招投標(biāo)系統(tǒng)實(shí)現(xiàn)了上報(bào)、審批、招標(biāo)、開標(biāo)、評標(biāo)交易全過程的信息化運(yùn)作，較好的實(shí)現(xiàn)了從招標(biāo)藥品的選擇，自動(dòng)生成招標(biāo)通知書，競標(biāo)數(shù)據(jù)的導(dǎo)入，競標(biāo)者的數(shù)據(jù)比較，到生成中標(biāo)通知書。全程系統(tǒng)操作，有效的減少了中間環(huán)節(jié)和人為因素，全面提高了藥品招標(biāo)工作的效率和透明度，實(shí)現(xiàn)了傳統(tǒng)藥品招標(biāo)方式與現(xiàn)代網(wǎng)絡(luò)信息技術(shù)的成功融合。在宣城市宣州區(qū)2004年醫(yī)療機(jī)構(gòu)藥品集中招標(biāo)采購中,招標(biāo)系統(tǒng)的成功使用得到了衛(wèi)生部門、藥品監(jiān)督部門、各家醫(yī)院和醫(yī)藥公司的認(rèn)可。招標(biāo)系統(tǒng)在實(shí)際運(yùn)用中真正避免了暗箱操作，體現(xiàn)了招標(biāo)的公開、公平、公正原則。切實(shí)為醫(yī)院減低了招標(biāo)采購成本，為醫(yī)藥公司降低了投標(biāo)銷售成本，取得了良好的社會(huì)效益和經(jīng)濟(jì)效益。據(jù)宣城市宣州區(qū)2004年醫(yī)療機(jī)構(gòu)藥品集中招標(biāo)采購辦公室統(tǒng)計(jì)數(shù)據(jù)表明本年度藥品集中招標(biāo)投入招標(biāo)費(fèi)用比去年手工招標(biāo)投入費(fèi)用降低了41%，同時(shí)各醫(yī)藥公司投標(biāo)成本降低了43%。招標(biāo)方降低了采購成本，投標(biāo)方減少了銷售成本，避免了暗箱操作真正做到公開公平公正實(shí)現(xiàn)各投標(biāo)公司有效公平競爭，最后進(jìn)入醫(yī)院的藥品價(jià)格明顯低于以往采購的價(jià)格。切實(shí)做到讓關(guān)系老百姓切身利益的藥品價(jià)格降下來。參考文獻(xiàn)1 徐松林,路斌,王冬春等編著,PowerBuilder數(shù)據(jù)庫應(yīng)用開發(fā)教程,清華大學(xué)出版社，2003.102 劉遵仁,王毓順 編, 從零開始PowerBuilder基礎(chǔ)培訓(xùn)教程，人民郵電出版社，20043 劉志峰主編，軟件工程技術(shù)與實(shí)踐，電子工業(yè)出版社，2004 4 楊志鴻等編，PowerBuilder 基礎(chǔ)類庫技術(shù)詳解，中國水利水電出版社，20025（美）克羅恩克，數(shù)據(jù)庫處理-基礎(chǔ)、設(shè)計(jì)與實(shí)現(xiàn)（第八版），電子工業(yè)出版社，20036 劉志銘 張振坤 馮文萃等編，PowerBuilder數(shù)據(jù)庫開發(fā)關(guān)鍵技術(shù)與實(shí)例應(yīng)用，人民郵電出版社，20047 于德壹，劉云洲編著，PowerBuilder8.0實(shí)用編程技術(shù)，中國水利水電出版社，2002附 件、標(biāo)號編碼產(chǎn)生源代碼/函數(shù)聲明Function string make_pym(string hz_string, integer bz)string temp_string,t_p,t_w,t_pym,t_wbm /定義字符串臨時(shí)變量int nn nn=1 /取串計(jì)數(shù)位置t_pym=t_wbm=do while nn=len(hz_string) /字符串沒結(jié)束繼續(xù) temp_string=mid(hz_string,nn,1) /取字符串第nn個(gè)字符 if asc(temp_string)128 then /asc碼=48 and asc(temp_string)=65 and asc(temp_string)=97 and asc(temp_string)=122) then /字母a-z 或者 A-Z 直接取字符大寫字母為編碼 t_pym=t_pym+upper(temp_string) t_wbm=t_wbm+upper(temp_string) end if end if nn=nn+1 /字符串位置加1 else /漢字取兩位長度字符 temp_string=mid(hz_string,nn,2) temp_string=string(asc(left(temp_string,1)+string(asc(right(temp_string,1) /計(jì)算該字的ASC碼值 select pym,wbm into :t_p,:t_w from chinese_zk where asc_k=:temp_string; /從漢字庫chinese_zk中取該ASC碼值的漢字的拼音碼和五筆碼 if isnull(t_p) then /如果沒有該漢字用“Z”替代 t_pym=t_pym+Z t_wbm=t_wbm+Z else t_pym=t_pym+left(t_p,1) t_wbm=t_wbm+left(t_w,1) end if nn=nn+2 /字符串位置向后移2（1個(gè)漢字位置） end ifloop/取字符串拼音碼和五筆碼的前10位為該字符串的拼音碼和五筆碼t_pym=left(t_pym,10)t_wbm=left(t_wbm,10)/bz為0返回拼音碼，其他返回五筆碼if bz=0 thenreturn t_pymelse return t_wbmend if2、投標(biāo)盤公開輸入招標(biāo)數(shù)據(jù)庫程序if this.text=F2開始 thenopen(w_disp)transaction sqlzbjhsqlzbjh = create transactionsqlzbjh.dbms = ODBCsqlzbjh.dbparm = Connectstring=DSN=zbjhb;UID=dba;PWD=sql,connectoption=SQL_DRIVER_CONNECT;SQL_DRIVER_NOPROMPTCONNECT USING sqlzbjh;IF sqlzbjh.SQLCode 0 THENMessageBox(系統(tǒng)錯(cuò)誤, 不能連接到數(shù)據(jù)庫，請檢查+SQLzbjh.SQLErrText,stopsign!)returnEND IFstring ls_bh,ls_pm,ls_gg,ls_dw,ls_proudcer,ls_pym,ls_wbm,ls_beizhu,ls_dwbh,ls_dwmclong ls_cgsl,ls_zbcount,si=0,ls_zbfl,ls_zblb,ls_rowdecimal ls_zglsjg,ls_tbjgtime ls_time,ll_timeselect dwmc into :ls_dwmc from zbmlb where bz=1 using sqlzbjh;close(w_disp)st_2.text=ls_dwmcst_pro.width=10st_b.text=1%select count(bh) into :ls_zbcount from zbmlb where bz=1 and zblb=0 using sqlzbjh;declare cur_zbjh cursor for select bh,pm,gg,dw,zglsjg,proudcer,cgsl,pym,wbm,beizhu,tbjg,dwbh,dwmc,zbfl,zblb from zbmlb where bz=1 and zblb=0 order by bh using sqlzbjh;open cur_zbjh;do while sqlzbjh.sqlcode=0ls_time=now()fetch cur_zbjh into :ls_bh,:ls_pm,:ls_gg,:ls_dw,:ls_zglsjg,:ls_proudcer,:ls_cgsl,:ls_pym,:ls_wbm,:ls_beizhu,:ls_tbjg,:ls_dwbh,:ls_dwmc,:ls_zbfl,:ls_zblb;if sqlzbjh.sqlcode0 then exitsi = si + 1st_pro.width=si * 1413 / ls_zbcountst_b.text=string(int(st_pro.width/1413*100)+%insert tbmlmxb (bh,pm,gg,dw,zglsjg,proudcer,cgsl,pym,wbm,beizhu,tbjg,dwbh,dwmc,zbfl,zblb) values(:ls_bh,:ls_pm,:ls_gg,:ls_dw,:ls_zglsjg,:ls_proudcer,:ls_cgsl,:ls_pym,:ls_wbm,:ls_beizhu,:ls_tbjg,:ls_dwbh,:ls_dwmc,:ls_zbfl,:ls_zblb);ls_row=dw_1.insertrow(0)dw_1.setitem(ls_row,bh,ls_bh)dw_1.setitem(ls_row,pm,ls_pm)dw_1.setitem(ls_row,gg,ls_gg)dw_1.setitem(ls_row,dw,ls_dw)dw_1.setitem(ls_row,tbjg,ls_tbjg)dw_1.setitem(ls_row,proudcer,ls_proudcer)dw_1.setitem(ls_row,beizhu,ls_beizhu)dw_1.scrolltorow(ls_row)dw_1.show()do while secondsafter(ls_time,now()=2/時(shí)間1秒鐘循環(huán) looploopclose cur_zbjh;/commit;/開始輸入詢價(jià)計(jì)劃declare cur_yjjh cursor for select bh,pm,gg,dw,zglsjg,proudcer,cgsl,pym,wbm,beizhu,tbjg,dwbh,dwmc,zbfl,zblb from zbmlb where bz=1 and zblb=1 order by bh using sqlzbjh;open cur_yjjh;do while sqlzbjh.sqlcode=0fetch cur_yjjh into :ls_bh,:ls_pm,:ls_gg,:ls_dw,:ls_zglsjg,:ls_proudcer,:ls_cgsl,:ls_pym,:ls_wbm,:ls_beizhu,:ls_tbjg,:ls_dwbh,:ls_dwmc,:ls_zbfl,:ls_zblb;if sqlzbjh.sqlcode0 then exitinsert tbmlmxb (bh,pm,gg,dw,zglsjg,proudcer,cgsl,pym,wbm,beizhu,tbjg,dwbh,dwmc,zbfl,zblb) values(:ls_bh,:ls_pm,:ls_gg,:ls_dw,:ls_zglsjg,:ls_proudcer,:ls_cgsl,:ls_pym,:ls_wbm,:ls_beizhu,:ls_tbjg,:ls_dwbh,:ls_dwmc,:ls_zbfl,:ls_zblb);loopclose cur_yjjh;commit;disconnect using sqlzbjh;do while secondsafter(ls_time,now()=15/時(shí)間15秒鐘循環(huán)loopmessagebox(系統(tǒng)提示,ls_dwmc+char(13)+char(13)+string(ls_zbcount)+ 個(gè)品種投標(biāo)完成!)this.text=F2完成elsedw_1.reset()st_b.text=0%st_pro.width=0st_2.text=this.text=F2開始end if3、中標(biāo)結(jié)果計(jì)算實(shí)現(xiàn)程序st_pro.width=10st_b.text=1%/open(w_disp)string ls_bh,ls_dwbh,ls_dwmc,ls_proudcerdecimal ls_tbjglong si=0,ls_zbcount,ls_tbcountupdate tbmlmxb set bz=0 where bz2 and zblb=:ls_zblb and z