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

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