【導(dǎo)讀】同時(shí)盡量減少追蹤費(fèi)用。質(zhì)量可追溯是近年來(lái)新興的企業(yè)管理概念，是現(xiàn)代企業(yè)質(zhì)量體系追求的目標(biāo)。ERP系統(tǒng)應(yīng)用于一次性醫(yī)療器械制造行業(yè)在國(guó)內(nèi)還處于起步階段。內(nèi)外市場(chǎng)取得一席之地，就必須使其質(zhì)量管理體系達(dá)到現(xiàn)代化水平。通過(guò)產(chǎn)品外包裝上的條形碼能夠給出該產(chǎn)品生產(chǎn)時(shí)的各種參數(shù)并查詢出錯(cuò)環(huán)節(jié)，根據(jù)公司的以上要求，采用條形碼技術(shù)實(shí)現(xiàn)本系統(tǒng)比較合理。間媒介來(lái)記錄各個(gè)生產(chǎn)過(guò)程，并將所需數(shù)據(jù)通過(guò)條形碼讀寫系統(tǒng)與后臺(tái)數(shù)據(jù)庫(kù)連接，詢，可以再現(xiàn)對(duì)該批號(hào)產(chǎn)品的生產(chǎn)過(guò)程的追溯，使責(zé)任精確定位于操作者。流轉(zhuǎn)條形碼卡、組裝小組條形碼卡、成品中包條形碼和外箱條形碼。箱記錄、成品出庫(kù)記錄和產(chǎn)品責(zé)任追溯與產(chǎn)品召回等窗口。錄，繼而利用條形碼實(shí)現(xiàn)不合格產(chǎn)品生產(chǎn)責(zé)任的定位和召回。事實(shí)上，某醫(yī)療器械公。司對(duì)該系統(tǒng)方案很滿意并獲準(zhǔn)通過(guò)。條形碼的設(shè)計(jì)采用國(guó)際編碼標(biāo)準(zhǔn)，條形碼意義明確且具有很強(qiáng)的規(guī)范性。

　　

【正文】 00010101 O 111010111010001 4 101000111010111 P 101110111010001 5 111010001110101 Q 101010111000111 6 101110001110101 R 111010101110001 7 101000101110111 S 101110101110001 8 111010001011101 T 101011101110001 9 101110001011101 U 111000101010111 0 101000111011101 V 100011101010111 A 111010100010111 W 111000111010101 B 101110100010111 X 100010111010111 C 111011101000101 Y 111000101110101 D 101011100010111 Z 100011101110101 E 111010111000101 － 100010101110111 F 101110111000101 Space 100011101011101 G 101010001110111 * 100010111011101 H 111010100011101 I 101110100011101 $ 100010001000101 J 101011100011101 / 100010001010001 K 111010101000111 + 100010100010001 L 101110101000111 % 101000100010001 Code128碼 Code128碼是一種連續(xù)型變位長(zhǎng)數(shù)字字符型條形碼。 Code128碼使用了八種編碼元素，但每個(gè)字符代碼由三個(gè)著色條符和三個(gè)非著色條符組成。著色條符與非著色條符的寬度均為 4種，即基本編碼模塊寬度的 4倍。每一字符代碼寬度是基本編碼模塊的 11倍。 Code128碼共有三個(gè)字符集。三個(gè)字符集覆蓋了全部 128個(gè) ASCII字符。三個(gè)字符集使用不同的起始符符號(hào)。 Code128－ C集對(duì) 0～ 99個(gè)數(shù)字進(jìn)行了直接編碼。因此，在僅使用數(shù)字代碼的 情況下，這種碼的編碼密度比使用數(shù)字字符混合代碼時(shí)提高了一倍。在 可表達(dá) ，即 CPI＝ 。 Code128－ C集編碼表見(jiàn)表 B6。 南昌航空工業(yè)學(xué)院計(jì)算機(jī)系本科畢業(yè)設(shè)計(jì)論文 第 45 頁(yè) 共 55頁(yè) 由于 Code128碼與 UPC、 EAN碼編碼方法是類似的，但字符集覆蓋字符數(shù)遠(yuǎn)高于UPC、 EAN碼，所以，對(duì)于采用同樣技術(shù)及譯碼方法建立的識(shí)別系統(tǒng)來(lái)講， Code128碼的識(shí)別可靠性要低于 UPC、 EAN，碼。為了提高識(shí)別可靠性，使用 Code128碼時(shí)，可在其終止符前增設(shè)數(shù)據(jù)校驗(yàn)位。 表 B6 Code128碼字符集 C集 00 11011001100 34 10001011000 68 10000100110 01 11001101100 35 10001000110 69 10110010000 02 11001100110 36 10110001000 70 10110000100 03 10010011000 37 10001101000 71 10011010000 04 10010001100 38 10001100010 72 10011000010 05 10001001100 39 11010001000 73 10000110100 06 10011001000 40 11000101000 74 10000110010 07 10011000100 41 11000100010 75 11000010010 08 10001100100 42 10110111000 76 11001010000 09 11001001000 43 10110001110 77 11110111010 10 11001000100 44 10001101110 78 11000010100 11 11000100100 45 10111011000 79 10001111010 12 10110011100 46 10111000110 80 10100111100 13 10011011100 47 10001110110 81 10010111100 14 10011001110 48 11101110110 82 10010011110 15 10111001100 49 11010001110 83 10111100100 16 10011101100 50 11000101110 84 10011110100 17 10011100110 51 11011101000 85 10011110010 18 11001110010 52 11011100010 86 11110100100 19 11001011100 53 11011101110 87 11110010100 20 11001011100 54 11101011000 88 11110010010 21 11011100100 55 11101000110 89 11011011110 22 11001110100 56 11100010110 90 11011110110 23 11101101110 57 11101101000 91 11110110110 24 11101001100 58 11101100010 92 10101111000 25 11100101100 59 11100011010 93 10100011110 26 11100100110 60 11101111010 94 10001011110 27 11101100100 61 11001000010 95 10111101000 28 11100110100 62 11110001010 96 10111100010 29 11100110010 63 10100110000 97 11110101000 30 11011011000 64 10100001100 98 11110100010 31 11011000110 65 10010110000 99 10111011110 32 11000110110 66 10010000110 33 10100011000 67 10000101100 Code B 10111101110 STOP 1100011101011 Code A 11101011110 START 11010011100 FNC 1 11110101110 南昌航空工業(yè)學(xué)院計(jì)算機(jī)系本科畢業(yè)設(shè)計(jì)論文 第 46 頁(yè) 共 55頁(yè) 附錄 C 安裝方案 圖 C1 注射器車間平面圖 圖 C2 輸液器車間平面圖 南昌航空工業(yè)學(xué)院計(jì)算機(jī)系本科畢業(yè)設(shè)計(jì)論文 第 47 頁(yè) 共 55頁(yè) 表 C1 設(shè) 備安裝信息 設(shè) 備 項(xiàng) 目 條形碼卡 （張） 條形碼閱讀器 （臺(tái)） 計(jì)算機(jī) （臺(tái)） 打印機(jī) （臺(tái)） 注射器車間 500 2 (CCD) 2 2 輸液器車間 700 4 (CCD) 2 2 注塑車間 200 3 (CCD) 2 0 打包滅菌車間 0 1 (激光 ) 2 0 針管車間 50 1(CCD) 1 0 倉(cāng) 庫(kù) 0 2(CCD) 2 0 新品車間 100 2(CCD) 2 1 數(shù)量統(tǒng)計(jì) 1650 14/1 ① 13 5 單 價(jià) (元 ) 400/1500 ② 5000 3000 合計(jì) (萬(wàn)元 ) ① 14/1表示 14臺(tái) CCD掃描器和 1臺(tái)激光掃描器 ② 400/1500表示 CCD掃描器單價(jià)為￥ 400元，激光掃描器單價(jià)為￥ 1500元 南昌航空工業(yè)學(xué)院計(jì)算機(jī)系本科畢業(yè)設(shè)計(jì)論文 第 48 頁(yè) 共 55頁(yè) 附錄 D 系統(tǒng)主要模塊介紹 圖 D1 外購(gòu)?fù)鈪f(xié)件入庫(kù)模塊 (1) 實(shí)現(xiàn)功能 該模塊 主要記錄外購(gòu)?fù)鈪f(xié)件經(jīng)材料倉(cāng)庫(kù)進(jìn)入中間庫(kù)的記錄情況。其中，“外購(gòu)?fù)鈪f(xié)件批號(hào)”是指材料的生產(chǎn) 批號(hào)；“重量”是指每單位的重量；“轉(zhuǎn)換后的條形碼號(hào)”是指流通記錄方便而給該類半成品分配的半成品條形碼號(hào)，該條形碼號(hào)在當(dāng)天是唯一的。提交后利用定位語(yǔ)句在外購(gòu)?fù)鈪f(xié)件入庫(kù)記錄 (Assistance)查詢輸入的流轉(zhuǎn)條形碼當(dāng)天是否有重復(fù)，如果已經(jīng)存在提示出錯(cuò)，否則，將信息記錄表中并提示成功記錄信息。 (2) 設(shè)計(jì)過(guò)程 用 ADOTable1 指向數(shù)據(jù)表 Assistance,將當(dāng)前日期和輸入的流轉(zhuǎn)條形碼號(hào)作為條件，用 Locate在表中查詢是否有重復(fù)記錄。該模塊需要調(diào)用 的 JudgeNumber過(guò)程和 PureNumber過(guò)程來(lái)判斷輸入的條形碼號(hào)和重量。核心代碼如下： 用 Locate語(yǔ)句實(shí)現(xiàn)定位 ADOTable1Open()。 南昌航空工業(yè)學(xué)院計(jì)算機(jī)系本科畢業(yè)設(shè)計(jì)論文 第 49 頁(yè) 共 55頁(yè) TLocateOptions Opts。 ()。 Opts loCaseInsensitive。 if (ADOTable1Locate(CurrentDate,Date(),Opts)amp。amp。 (Edit3Text==ADOTable1FieldValues[Barcode])) ApplicationMessageBoxA(該條形碼信息已經(jīng)存在！ ,提示 ,48)。 else { ADOTable1Insert()。 ?? ADOTable1Post()。 ApplicationMessageBoxA(信息成功記錄！ ,恭喜 ,48)。 } 圖 D2 中間庫(kù)領(lǐng)料模塊 (1) 實(shí)現(xiàn)功能 該模塊主要實(shí)現(xiàn)各組裝小組的領(lǐng)料功能。其中，“小組條形碼號(hào)”表示組裝南昌航空工業(yè)學(xué)院計(jì)算機(jī)系本科畢業(yè)設(shè)計(jì)論文 第 50 頁(yè) 共 55頁(yè) 小組的編號(hào)（ 5 位）；“半成品條形碼號(hào)”意義同前所 述；“應(yīng)領(lǐng)重量”表示按生產(chǎn)任務(wù)安排時(shí)各小組應(yīng)領(lǐng)每類半成品的重量；“實(shí)領(lǐng)重量”是指該小組實(shí)際領(lǐng)取各類半成品的重量；“待領(lǐng)半成品”是為了提示中間庫(kù)發(fā)料人員該給當(dāng)前小組發(fā)放的半成品名稱；“已領(lǐng)的半成品”是提示發(fā)料人員已給當(dāng)前小組發(fā)放的半成品；“共領(lǐng)重量”對(duì)領(lǐng)料小組每次領(lǐng)取同種物料的重量進(jìn)行疊加，使發(fā)料人員可以根據(jù)“應(yīng)領(lǐng)重量”和“共領(lǐng)重量”控制小組的領(lǐng)料重量。輸入小組條形碼號(hào)后，根據(jù)條形碼號(hào)查詢當(dāng)天該小組的任務(wù)安排（組裝的產(chǎn)品類型和重量或數(shù)量），并在“待領(lǐng)半成品”顯示小組當(dāng)天應(yīng)領(lǐng)的物料。再根據(jù)輸入的條形碼流轉(zhuǎn)號(hào)就會(huì) 顯示各項(xiàng)參數(shù)，當(dāng)領(lǐng)完一種物料后，點(diǎn)擊“下一種”按鈕時(shí)，“待領(lǐng)半成品”的當(dāng)前項(xiàng)目將被刪除并轉(zhuǎn)入“已領(lǐng)半成品”中，直至小組領(lǐng)完全部物料。每按一次“確定”就將小組所領(lǐng)的物料信息插入領(lǐng)料記錄表 (MidpotOut)。 (2) 設(shè)計(jì)過(guò)程 本模塊在輸入小組條形碼號(hào)后要首先調(diào)用存儲(chǔ)過(guò)程 ADOStroedProc1，根據(jù)生產(chǎn)安排中小組當(dāng)天應(yīng)組裝的成品數(shù)目，調(diào)用物料結(jié)構(gòu)表將成品數(shù)目轉(zhuǎn)換成各半成品的重量和數(shù)量信息。之后的完整性檢驗(yàn)和數(shù)據(jù)的插入同樣用 ADODataSet 和ADOTable等控件實(shí)現(xiàn)。核心代碼如下： ① 調(diào)用存儲(chǔ)過(guò) 程 ?? ADOStoredProc1Close()。 ADOStoredProc1ParametersParamByName(@teamno)Value=Edit1Text。 ADOStoredProc1Prepared=true。 ADOStoredProc1ExecProc()。 ?? ② 將表中符合條件的記錄插入 ComboBox1的過(guò)程 南昌航空工業(yè)學(xué)院計(jì)算機(jī)系本科畢業(yè)設(shè)計(jì)論文 第 51 頁(yè) 共 55頁(yè) while(!ADODataSet1Eof) { ComboBox1ItemsAdd(DBEdit2Text)。 ADODataSet1Next()。 } 圖 D3 中間庫(kù)條形碼生成模塊 (1) 實(shí)現(xiàn)功能 該模塊主要實(shí)現(xiàn)對(duì)各小組生產(chǎn)的成品中包進(jìn)行記錄，以便于通過(guò)產(chǎn)品條形碼號(hào)追溯到小組號(hào)，然后再根據(jù)小組號(hào)找到該小組所領(lǐng)料的條形碼號(hào)來(lái)實(shí)現(xiàn)責(zé)任追溯。其中，“小組條形碼號(hào)”即為各組裝小組的編號(hào)；“條形碼數(shù)量”為根據(jù)小組領(lǐng)料重量估計(jì)該小組最終成品中包的數(shù)量；“起始條形碼號(hào)”為當(dāng)天該小組成品中包條形碼號(hào)的起始條形碼；“最終條形碼”是系統(tǒng)根據(jù)“條形碼數(shù)量”和“起始條形碼”自動(dòng)生成的“最終條形 碼號(hào)”。按“確定”后，系統(tǒng)將自動(dòng)從起始條形碼開(kāi)始，每次將起始條形碼號(hào)增 1，并插入條形碼記錄表 (Barcode)中，直到增至最終條形碼時(shí)，停止插入。 (2) 實(shí)現(xiàn)過(guò)程 用 ADOTable1指向數(shù)據(jù)表 Barcode，由于條形碼位數(shù)很長(zhǎng) (16位數(shù)字 )且第一位 允 許為 0 ， 所以 在 實(shí)現(xiàn) 數(shù) 字和 字 符之 間 的轉(zhuǎn) 換 時(shí)要 用 到 函