中小醫(yī)院藥品招標系統(tǒng)的設計與實現(xiàn).doc

面向中小醫(yī)院藥品招標系統(tǒng)的設計與實現(xiàn)摘 要藥品集中招標采購是國務院確定的城鎮(zhèn)醫(yī)藥衛(wèi)生體制改革的重要內容，也是關系到人民群眾切身利益的一項重要工作。藥品集中招標采購一直作為降低過高藥價和糾正不正之風的重要政策手段?，F(xiàn)在的藥品手工招標存在不同程度的暗箱操作等問題，不能達到真正的公開、公正、公平的目的，而利用藥品招標系統(tǒng)完全可以解決這些問題，讓招標方和投標方在快速準確地完成招標工作的前提下節(jié)省開支，降低采購銷售成本，從而實現(xiàn)真正意義上的降低藥價。關鍵詞： 招標 手工招標 降低藥價 招標系統(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)生制度改革的不斷深化，集中招標采購已經成為醫(yī)院藥品采購工作的發(fā)展趨勢。在沒有采用藥品招標軟件前，招標操作過程中傳統(tǒng)的解決方法就是醫(yī)院將所需購置的藥品清單按要求做成一份標書，發(fā)放至投標商，由人工進行評標，從厚厚的投標書中逐一統(tǒng)計出招標結果。這些都是通過人工方式完成的，這種方法不僅操作繁瑣、工作量大，而且容易出現(xiàn)差錯。為解決這一問題，我院信息中心利用PB開發(fā)基于ODBC應用系統(tǒng)，設計與實現(xiàn)了醫(yī)院藥品招標系統(tǒng)，建立藥品招標數(shù)據(jù)庫，實現(xiàn)自動化查詢、報表和管理。應用該系統(tǒng)極大地提高醫(yī)藥招標的工作效率和工作質量。該系統(tǒng)能夠匯總投標商的所有信息，將其保存至數(shù)據(jù)庫，能夠進行各種功能查詢，包括滿足各種需要的報表的打印輸出。投標企業(yè)只需要通過互聯(lián)網(wǎng)登陸招標網(wǎng)站，將自已公司的資料和投標信息，按照網(wǎng)站提供的步驟分步填寫完成，就可以了。省去了書面文檔的傳遞。同時這也是無紙化辦公的最好實例。這套系統(tǒng)的開發(fā)，不但加強醫(yī)院的競爭力，降低醫(yī)療企業(yè)的成本，減少藥品購銷活動中的不正之風，減輕患者的負擔，而且還能徹底清除暗箱操作，規(guī)范藥品的購銷行為，保證藥品的質量和臨床用藥安全。1.1 手工招標存在的弊端反觀我國目前的藥品集中招標采購，存在很多人為因素，不能完全解決招標中帶來的“暗箱操作”；不但減少了醫(yī)療機構的藥品收入。同時也加重了企業(yè)和醫(yī)院的負擔。手工招標的程序過于繁瑣。醫(yī)院公開招標后，投標人需要將投標資料準備成書面材料，在規(guī)定的截止日期前密封送達到投標地點。招標單位再根據(jù)眾多投標單位提供的藥品清單，逐一進行評比。藥品招標在手工管理條件下，由于商品編碼無規(guī)律，要想從幾萬種商品中查找某一種產品所費的時間和精力極大。而且由于信息化程度低，大量工作都采取手工操作，這就需要大量的人力和物力以及花費很多的時間。而且商品有效期須進行嚴格控制：藥品和化學試劑作為一種特殊的商品，時效性強。需要嚴格控制其有效期，對批次號的管理要求嚴格，而手工管理很難作到及時、準確最后在進行定標。醫(yī)藥產品作為一種特殊產品，其銷售模式也較特殊，即通常所說的三角賬。銷售順序是：廠家將醫(yī)藥產品發(fā)貨給批發(fā)站；批發(fā)站又將醫(yī)藥產品發(fā)貨給醫(yī)院。相應的資金流動方向相反：醫(yī)院將產品全部或部分賣出后與批發(fā)站結款；批發(fā)站收款后再與廠家結算。退貨又是與此相反的過程。這種復雜的處理流程是手工操作很難勝任的。 由于產品品種多、客戶數(shù)量多，造成業(yè)務量很大。手工進行各項業(yè)務勞動效率極低，致使財務及管理部門所需的各種經營數(shù)據(jù)及經營分析報表無法及時得到。而且在手工招標中，藥品的價格是很難控制的。因為存在著人為的因素，導致許多藥品的進標價高于售價。招標單位再將這些藥品，以更高價格售出，這樣損失最大的始終是老百姓。一、增加了醫(yī)藥企業(yè)難以承受的負擔。招標單位要投標方反復提供名目繁多的文件和資料，包括投標方的財務報表、納稅表、銀行開戶證明、價格文件、省市藥檢報告、生產工藝、藥監(jiān)局的無生產經營假劣藥證明、產品說明書、樣品等等，否則就取消投標資格。為了應對各地頻繁的招標和名目繁多的材料，醫(yī)藥企業(yè)都設立了招標辦公室，加班加點、疲于奔波。有的企業(yè)老總反映：現(xiàn)在醫(yī)藥企業(yè)的領導不是在研究企業(yè)的發(fā)展戰(zhàn)略，新品的開發(fā)，人才隊伍建設和管理水平的提高，而是把絕大部分的精力放在招投標上，算是“勞命傷財”。二、是增加了醫(yī)藥企業(yè)的經營成本。國務院多次強調要降低企業(yè)負擔，而招標采購不僅增加了環(huán)節(jié)，還出現(xiàn)了巧立名目，濫收費現(xiàn)象，如檢驗費、樣品費、標書費、投標保證金、中標藥品預付款、招標代理服務費等等，還要增加大量的差旅費用。尤其是由舉標方支付招標代理服務費用，更缺乏法律依據(jù)，且標準過高，收費方式不合理。全國醫(yī)藥商業(yè)利潤率2002年僅0.59%，而招標的代理費用每個品種中標金額100萬以下的卻高達0.6%。1.2 招標系統(tǒng)在實際應用中的優(yōu)點這套招標系統(tǒng)最大的特點就是整個開標評標過程完全由電腦完成，優(yōu)點是采購周期短、成本低、效率高,具有廣泛的適用性。比現(xiàn)實藥品招標采購工作更加規(guī)范化、透明化、自動化，更加有利于有效的監(jiān)督和審計，提高工作效率，降低成本。電腦主要根據(jù)以下幾列因素進行評標：價格因素，就是把參與投標的供應商的投標文件中的總報價進行比較，低者中標；質量服務考核得分因素，醫(yī)院直接在網(wǎng)上購藥，供應商網(wǎng)上接收到醫(yī)院采購信息，立即供貨，衛(wèi)生信息中心負責網(wǎng)絡的維護和監(jiān)督協(xié)議的執(zhí)行，電子商務系統(tǒng)自動統(tǒng)計供貨情況，節(jié)約了大量人力物力，過去需要20個人、5天完成的工作，實行電子商務后，只需3個人、2天就能完成。 該系統(tǒng)體現(xiàn)了高效、便捷、簡化、實用的特點，實現(xiàn)了招標、投標、開標、評標全過程網(wǎng)上運作。醫(yī)院從網(wǎng)上上報藥品采購目錄，招標系統(tǒng)自動匯總后，通過網(wǎng)站發(fā)布招標公告，藥品生產、經營企業(yè)在網(wǎng)上下載標書，進行網(wǎng)上報價投標，招標辦公室從藥品招標采購專家數(shù)據(jù)庫中，隨機抽取專家，組成專家評審委員會在網(wǎng)上評標，監(jiān)督管理部門在網(wǎng)上監(jiān)督評標工作進展情況，招標后的中標品種全部通過電子商務平臺交易。人機對話的工作模式解決了過去藥品采購的弊端，增加了工作透明度，保證了整個工作的公平、公開、公正。藥品招標系統(tǒng)實行招標采購工作，是利用現(xiàn)代電子網(wǎng)絡技術實現(xiàn)藥品集中招標采購的進步和必然，由于整個招標采購的過程均在網(wǎng)上進行，并且有嚴格的程序及規(guī)章制度約束，這樣一來就能保證招標采購工作最大限度地透明化、公開化、規(guī)范化，整個過程均在計算機中有嚴格的記錄，全過程處在嚴密的監(jiān)督及審核之下，這樣加強了管理和接受群眾監(jiān)督，規(guī)范了藥品的招標采購行為，從而有效地避免了藥品招標采購中醫(yī)院負責人和藥品采購員個人說了算的不良行為，最大限度地糾正了藥品購銷中的不正之風。 能夠保證藥品的供應，有利于醫(yī)藥責任市場的形成。投標前，要求供應商繳納一定金額的抵押金，合同履行完后即退還，制約了個別供貨商只招標而無法供貨等一些擾亂市場的行為。中標后雙方形成的是一種長期合作伙伴關系，雙方嚴格按合同辦事，便于供應商長期準備貨源，保證及時供應。能夠大大減少工作量，降低整個藥品招投標的操作成本。招標采購的過程大部分在網(wǎng)上進行，分類統(tǒng)計由計算機完成，這就大大減少了工作量。采用先進的電子網(wǎng)絡系統(tǒng)，簡化了書面文書的繁瑣程序，特別是聯(lián)網(wǎng)交易，大大降低了操作費用，提高了辦事效率。二、招標流程2.1 手工招標流程在采用招標軟件前，如果招標單位需要采購某種藥品品時，首先需要向社會公布招標項目，然后由投標公司人員從公司到招標單位采購中心領取招標目錄和招標文件等材料。投標公司距離招標單位距離是不定的甚至全國各地都有。可想而知投標公司必須花費大量的差旅費，分派專人甚至要花幾天的時間才能拿到招標文件。各個投標公司回去后根據(jù)本公司實際情況和從招標單位領回來的招標文件，安排幾個人花費幾天的時間根據(jù)需要制定相應的報價單和文件材料，最后制作投標書。然后到招標單位將投標信息資料送到采購中心，等采購中心的審核，評標。整個投標完成后投標公司投入了大量人力和財力，最后投標公司在報價的時候必定會將這些投入記入成本，從而造成投標的價格并沒有降低。違反了招標目的在于降低藥價的初衷，失去了招標的本身意義。最初采購中心要從厚厚的投標書中挑選出符合要求的投標企業(yè)。這些工作一般招標單位都必須成立一個小組花上幾天的時間才能完成。而且在完成這項工作的時候因為所有工作都是人為操作，姑且不談某些操作人員在操作中的舞弊行為，一些工作人員在操作過程中大意或疏忽就很容易發(fā)生。在開標大會上按照個投標公司的標書對每個品種投標念出來給現(xiàn)場觀眾代表聽?，F(xiàn)場代表和觀眾不能通過視覺直接獲得投標信息，整個開標過程幾乎沒有什么透明度。然后根據(jù)這些上萬張紙投標資料評出廢標和符合要求的標，這又是一個耗力耗時的工作。最后由招標組統(tǒng)計人員按照每個品種投標綜合排序，確定中標價格和單位。這都是通過人工的方式完成，可想而知其中繁重的工作。2.2 利用招標系統(tǒng)實現(xiàn)招標招標系統(tǒng)的成功運用將大量繁雜的計算和統(tǒng)計工作交給計算機來處理，變得準確又快捷，大大提高整個招標工作的效率。首先招標單位招標文件不需要用大量的紙張重復打印，而是做成電子版上傳到互聯(lián)網(wǎng)上。在傳統(tǒng)招標過程中投標公司專人專門從公司到招標單位領取招標文件的出差往返的人力和財力全部節(jié)省，每個投標公司直接從網(wǎng)上下載招標文件和投標軟件。投標公司安裝好投標軟件客戶端，根據(jù)下載招標文件通過投標軟件來投標操作變得簡單多了，而且因為是根據(jù)投標軟件操作使投標廢標幾率變小。投標公司根據(jù)招標軟件制作上報盤直接上報醫(yī)院。醫(yī)院招標組根據(jù)公司上報的投標盤，在開標大會上利用招標系統(tǒng)結合大屏幕投影儀在屏幕上按指定的速度顯示給現(xiàn)場觀眾看，準確而且公開。真正做到公開、公平、公正，避免在傳統(tǒng)手工招標過程中的暗箱操作。招標系統(tǒng)根據(jù)導入到數(shù)據(jù)庫內的各家投標公司的投標數(shù)據(jù)進行判斷篩選6，確定那些是廢標。招標單位通過電腦匯總的資料，按照符合條件的項目歸類，這樣所有符合本次招標的標書和企業(yè)盡收眼底。采用招標軟件后節(jié)省了大量的人力勞動，只需要通過鼠標點擊就能進行統(tǒng)計和篩選。同時大大提高了統(tǒng)計的準確性，避免了由于人員疏忽而造成的錯誤。系統(tǒng)最后自動確定中標結果。藥品招標系統(tǒng)的成功運用最大程度遵循招標的公開、公平、公正的原則。避免人工招標的暗箱操作和作弊行為。降低采購成本，讓計算機充分發(fā)揮統(tǒng)計計算的優(yōu)越性，避免投入大量的人力和財力進行復雜而煩瑣的統(tǒng)計和計算。同時大大提高了統(tǒng)計的準確性，避免了由于人員疏忽而造成的錯誤。醫(yī)院因此確實能購買到質量好而且價格低的藥品，讓關系老百姓切身利益的藥價降下來。2.3 招標系統(tǒng)流程非最高最高多個最低價相同投標價最低三家以內單位投標無投標單位投標讀取完成是否投標程序上傳到Web供投標單位下載HIS系統(tǒng)維護招標計劃制作招標盤和招標文件投標單位是否正確投標Skip不處理公開顯示投標結果導入數(shù)據(jù)庫是否廢標評標是Update廢標標志1否計算中標結果作空標處理處理bz并打印報表Update 中標標志為1綜合性能質量確定中標標志為1的投標為中標Update 中標標志為0高于原進價其他不符項投標完成投廠家不符圖2.3 招標系統(tǒng)招標流程圖2.4 投標系統(tǒng)流程否投標價=0投標價0Sqlcode=1正確瀏覽檢查投標裝軟件不正確下載安裝軟件Web上招標文件和投標軟件投標登錄正確退出系統(tǒng)Count是否大于3不正確Count+是進入投標程序按輸入編碼搜選擇上報盤符正確上報投標數(shù)據(jù)盤取消投標是否正確打印報價單Sqlcode=0無此標號不正確Read廠家bzbz=1輸入投標價和廠家bz=0只輸入投標價Read投標價是否投另一廠家否是Insert同一標號Update 投標bz=1保存投標數(shù)據(jù)圖2.4 招標系統(tǒng)投標流程圖三、系統(tǒng)部分算法與實現(xiàn)3.1 投標單位投標數(shù)據(jù)公開輸入招標數(shù)據(jù)庫的實現(xiàn)藥品采購集中招標的制度在全國各家醫(yī)院推行后，其優(yōu)越性得到各家醫(yī)藥公司和醫(yī)院的廣泛認同。但具體在進行招標采購的工作時，傳統(tǒng)的招標操作方式已經逐漸顯現(xiàn)他的弊端和局限性。傳統(tǒng)手工招標不能做到最大程度公開和公平，當然也就不會公正。對此很多醫(yī)藥公司感到非常無奈。參加招標的次數(shù)越來越多，每次參加招標來回幾趟跑再加上招標費使醫(yī)藥公司的投入銷售成本過大，而且最讓醫(yī)藥公司頭疼的是很多招標都不公開不透明，暗箱操作使這些有實力的醫(yī)藥公司都無功而返。傳統(tǒng)手工招標在開標時都是招標組內定幾個藥劑科人作為開標組成員，這些藥劑科的人員和醫(yī)藥公司供應商都非常熟悉。由這幾個人對著投標公司的投標書念，現(xiàn)場代表只能聽這幾個人的說詞而不能親眼見到每家公司的真正投標報價。這其中暗箱操作的可能性很大，而且容易報錯公司投標價格造成不必要的糾紛。同時招標方安排的這幾個人要將所有投標公司的所有投標全部念一遍。一般醫(yī)院同時招標有400多種，一個標號品種同時有30多家醫(yī)藥公司投標，每個標號的信息有標號、藥品名稱、規(guī)格、單位、投標價、生產廠家等?？上攵@些信息念起來是多么吃力，而且要耽誤大家多少時間。招標系統(tǒng)的設計充分考慮招標的公開透明、操作簡單，而且時間可以控制。利用程序設計控制每家公司的每個投標在電腦屏幕上勻速顯示。輸出同時連接到投影儀上，讓各家公司的投標明細（標號、名稱、規(guī)格、單位、投標價、生產廠家等）在大屏幕上顯示，接受現(xiàn)場所有人員的監(jiān)督。充分做到公開透明和公平公正，避免暗箱操作的可能性。利用Powerbuild的數(shù)據(jù)窗口控件實現(xiàn)數(shù)據(jù)庫字段的公開顯示4511。其中datawindow的insertrow（）函數(shù)、setitem（）函數(shù)和scrolltorow（）函數(shù)是實現(xiàn)公開顯示的基本函數(shù)。Insertrow（）表示在數(shù)據(jù)窗口上插入一空白行，setitem（row,col,ls-dd）表示給數(shù)據(jù)窗口datawindow的row行的col列賦值ls-dd，數(shù)值ls-dd可以是字符也可以是數(shù)字或其他變量。時間控制我們一般考慮用空循環(huán)來實現(xiàn)。在投標單位和投標數(shù)據(jù)讀取時我們一般都會使用SQL語句9，使用SQL語句操作數(shù)據(jù)庫簡單而且速度較快是我們設計操作數(shù)據(jù)庫程序的首先。具體實現(xiàn)如下：開始時間 = now（）select 單位名稱 into 單位名稱變量 from 投標數(shù)據(jù)表；窗口界面st_2.text=單位名稱變量do while 投標數(shù)據(jù)沒有結束select 標號、名稱、規(guī)格、單位、投標價、生產廠家 into 各字段相關變量 from 投標數(shù)據(jù)表；ls_row=datawindow.insertrow(0) /在數(shù)據(jù)窗口最后插入一空白行并返回當前行的行號datawindow.setitem(ls_row，標號，標號變量)同上將投標個字段讀取的變量依次賦給當前行的個字段datawindow.scrolltorow(ls-row) /數(shù)據(jù)窗口滾動到插入的當前一行do while secondsafter(開始時間,now()=3 then /只有超過3家投標的標號才計算中標結果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 各種查詢功能的實現(xiàn)各投標單位投標完成和評標完成后，中標結果計算出來后查詢就顯得非常重要。傳統(tǒng)手工招標完成后，要查詢一個標號的投標情況，我們必須根據(jù)該標號的其他相關信息在一大疊紙張中找到自己要查詢的內容，為了得到相關統(tǒng)計數(shù)據(jù)還必須根據(jù)查詢到信息進行手工計算等操作?？上攵@些工作是多么的繁雜而且所查詢的信息并不一定準確，統(tǒng)計漏掉的和重復統(tǒng)計的造成統(tǒng)計數(shù)據(jù)有誤差。這些弊端無疑給醫(yī)院招標方帶來很大的麻煩，招標方必須投入大量的人力和財力進行這種重復性的統(tǒng)計查詢計算。計算機擁有無與倫比的大型數(shù)據(jù)統(tǒng)計計算快捷而且準確的功能。招標系統(tǒng)設計時充分考慮到查詢統(tǒng)計的方便快捷、準確無誤，利用Powerbuild的數(shù)據(jù)窗口2459完全實現(xiàn)統(tǒng)計查詢功能。具體包括按單個藥品查詢投標明細、按投標單位查詢投標明細、按單位查詢中標結果、按品種查詢中標結果、查詢空標藥品明細和查詢三個以下投標明細。這些查詢功能的實現(xiàn)后無論是從招標品種還是從投標公司來分類別查詢都是很方便快捷。四、程序發(fā)布的實現(xiàn)4.1 利用Wise Installation System 實現(xiàn)程序發(fā)布首先要建立一個空白工程setup.wse，在進行文件打包時要充分考慮將Powerbuild的動態(tài)連接庫文件放到系統(tǒng)根目錄下，具體根據(jù)Powerbuild版本不同動態(tài)連接庫文件不同，具體如下：PB.所需文件：必需PBVM60.DLLPowerBuilder 虛擬機 可選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 虛擬機 必需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 虛擬機 必需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等，服務器端安裝程序文件同樣是包括可執(zhí)行EXE和PBD以及數(shù)據(jù)庫文件378，具體包括ypzb.exe,ypzb.pbd.main.db等等。4.2 Wise Installation System中實現(xiàn)ODBC自動配置傳統(tǒng)的手工配置ODBC首先安裝SQL Anywhere數(shù)據(jù)庫驅動程序,使數(shù)據(jù)源管理器中的ODBC驅動程序頁增加一行SQL Anywhere的驅動說明。在系統(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確認,此時在系統(tǒng)數(shù)據(jù)源的窗口中就會增加用戶的數(shù)據(jù)庫的ODBC驅動,選擇確認后退出數(shù)據(jù)源管理器。 進行以上操作以后重新啟動應用程序,用戶就可以在運行應用程序后使用SQL Anywhere數(shù)據(jù)庫。 但這種方式必須SQL Anywhere數(shù)據(jù)庫驅動程序,使數(shù)據(jù)源管理器中的ODBC驅動程序頁增加一行SQL Anywhere的驅動說明。招標系統(tǒng)在設計利用注冊表在Wise Installation System中實現(xiàn)ODBC自動配置。以WIN98下的注冊表為例，括號內的為WIN2000下的注冊表數(shù)值，C:YourApp為用戶應用程序目錄，C:YourAppSqlany50為應用程序包含的SQL Anywhere數(shù)據(jù)庫驅動文件目錄,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 在用戶的安裝程序中將以上步驟加入，可以使用戶的應用程序在不必安裝SQL Anywhere數(shù)據(jù)庫驅動下，也能直接訪問系統(tǒng)數(shù)據(jù)源，從而實現(xiàn)用戶應用程序的獨立發(fā)布。五、總結為了加強醫(yī)院的競爭力，降低醫(yī)療企業(yè)的成本，減少藥品購銷活動中的不正之風，減輕患者的負擔，徹底清除暗箱操作，規(guī)范藥品的購銷行為，保證藥品的質量和臨床用藥安全。以公開、公平、公正和誠實信用為原則的招標采購系統(tǒng)，使供貨商形成了不起有效的競爭，最大限度的降低了采購成本。 提高了辦事效率，徹底做到了無紙化操作。這套藥品招投標系統(tǒng)實現(xiàn)了上報、審批、招標、開標、評標交易全過程的信息化運作，較好的實現(xiàn)了從招標藥品的選擇，自動生成招標通知書，競標數(shù)據(jù)的導入，競標者的數(shù)據(jù)比較，到生成中標通知書。全程系統(tǒng)操作，有效的減少了中間環(huán)節(jié)和人為因素，全面提高了藥品招標工作的效率和透明度，實現(xiàn)了傳統(tǒng)藥品招標方式與現(xiàn)代網(wǎng)絡信息技術的成功融合。在宣城市宣州區(qū)2004年醫(yī)療機構藥品集中招標采購中,招標系統(tǒng)的成功使用得到了衛(wèi)生部門、藥品監(jiān)督部門、各家醫(yī)院和醫(yī)藥公司的認可。招標系統(tǒng)在實際運用中真正避免了暗箱操作，體現(xiàn)了招標的公開、公平、公正原則。切實為醫(yī)院減低了招標采購成本，為醫(yī)藥公司降低了投標銷售成本，取得了良好的社會效益和經濟效益。據(jù)宣城市宣州區(qū)2004年醫(yī)療機構藥品集中招標采購辦公室統(tǒng)計數(shù)據(jù)表明本年度藥品集中招標投入招標費用比去年手工招標投入費用降低了41%，同時各醫(yī)藥公司投標成本降低了43%。招標方降低了采購成本，投標方減少了銷售成本，避免了暗箱操作真正做到公開公平公正實現(xiàn)各投標公司有效公平競爭，最后進入醫(yī)院的藥品價格明顯低于以往采購的價格。切實做到讓關系老百姓切身利益的藥品價格降下來。參考文獻1 徐松林,路斌,王冬春等編著,PowerBuilder數(shù)據(jù)庫應用開發(fā)教程,清華大學出版社，2003.102 劉遵仁,王毓順 編, 從零開始PowerBuilder基礎培訓教程，人民郵電出版社，20043 劉志峰主編，軟件工程技術與實踐，電子工業(yè)出版社，2004 4 楊志鴻等編，PowerBuilder 基礎類庫技術詳解，中國水利水電出版社，20025（美）克羅恩克，數(shù)據(jù)庫處理-基礎、設計與實現(xiàn)（第八版），電子工業(yè)出版社，20036 劉志銘 張振坤 馮文萃等編，PowerBuilder數(shù)據(jù)庫開發(fā)關鍵技術與實例應用，人民郵電出版社，20047 于德壹，劉云洲編著，PowerBuilder8.0實用編程技術，中國水利水電出版社，2002附 件、標號編碼產生源代碼/函數(shù)聲明Function string make_pym(string hz_string, integer bz)string temp_string,t_p,t_w,t_pym,t_wbm /定義字符串臨時變量int nn nn=1 /取串計數(shù)位置t_pym=t_wbm=do while nn=len(hz_string) /字符串沒結束繼續(xù) temp_string=mid(hz_string,nn,1) /取字符串第nn個字符 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) /計算該字的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個漢字位置） 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、投標盤公開輸入招標數(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)錯誤, 不能連接到數(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/時間1秒鐘循環(huán) looploopclose cur_zbjh;/commit;/開始輸入詢價計劃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/時間15秒鐘循環(huán)loopmessagebox(系統(tǒng)提示,ls_dwmc+char(13)+char(13)+string(ls_zbcount)+ 個品種投標完成!)this.text=F2完成elsedw_1.reset()st_b.text=0%st_pro.width=0st_2.text=this.text=F2開始end if3、中標結果計算實現(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