【導(dǎo)讀】同時盡量減少追蹤費用。質(zhì)量可追溯是近年來新興的企業(yè)管理概念，是現(xiàn)代企業(yè)質(zhì)量體系追求的目標(biāo)。ERP系統(tǒng)應(yīng)用于一次性醫(yī)療器械制造行業(yè)在國內(nèi)還處于起步階段。內(nèi)外市場取得一席之地，就必須使其質(zhì)量管理體系達(dá)到現(xiàn)代化水平。通過產(chǎn)品外包裝上的條形碼能夠給出該產(chǎn)品生產(chǎn)時的各種參數(shù)并查詢出錯環(huán)節(jié)，根據(jù)公司的以上要求，采用條形碼技術(shù)實現(xiàn)本系統(tǒng)比較合理。間媒介來記錄各個生產(chǎn)過程，并將所需數(shù)據(jù)通過條形碼讀寫系統(tǒng)與后臺數(shù)據(jù)庫連接，詢，可以再現(xiàn)對該批號產(chǎn)品的生產(chǎn)過程的追溯，使責(zé)任精確定位于操作者。流轉(zhuǎn)條形碼卡、組裝小組條形碼卡、成品中包條形碼和外箱條形碼。箱記錄、成品出庫記錄和產(chǎn)品責(zé)任追溯與產(chǎn)品召回等窗口。錄，繼而利用條形碼實現(xiàn)不合格產(chǎn)品生產(chǎn)責(zé)任的定位和召回。事實上，某醫(yī)療器械公。司對該系統(tǒng)方案很滿意并獲準(zhǔn)通過。條形碼的設(shè)計采用國際編碼標(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ù)型變位長數(shù)字字符型條形碼。 Code128碼使用了八種編碼元素，但每個字符代碼由三個著色條符和三個非著色條符組成。著色條符與非著色條符的寬度均為 4種，即基本編碼模塊寬度的 4倍。每一字符代碼寬度是基本編碼模塊的 11倍。 Code128碼共有三個字符集。三個字符集覆蓋了全部 128個 ASCII字符。三個字符集使用不同的起始符符號。 Code128－ C集對 0～ 99個數(shù)字進(jìn)行了直接編碼。因此，在僅使用數(shù)字代碼的 情況下，這種碼的編碼密度比使用數(shù)字字符混合代碼時提高了一倍。在 可表達(dá) ，即 CPI＝ 。 Code128－ C集編碼表見表 B6。 南昌航空工業(yè)學(xué)院計算機(jī)系本科畢業(yè)設(shè)計論文 第 45 頁 共 55頁 由于 Code128碼與 UPC、 EAN碼編碼方法是類似的，但字符集覆蓋字符數(shù)遠(yuǎn)高于UPC、 EAN碼，所以，對于采用同樣技術(shù)及譯碼方法建立的識別系統(tǒng)來講， Code128碼的識別可靠性要低于 UPC、 EAN，碼。為了提高識別可靠性，使用 Code128碼時，可在其終止符前增設(shè)數(shù)據(jù)校驗位。 表 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ī)系本科畢業(yè)設(shè)計論文 第 46 頁 共 55頁 附錄 C 安裝方案 圖 C1 注射器車間平面圖 圖 C2 輸液器車間平面圖 南昌航空工業(yè)學(xué)院計算機(jī)系本科畢業(yè)設(shè)計論文 第 47 頁 共 55頁 表 C1 設(shè) 備安裝信息 設(shè) 備 項 目 條形碼卡 （張） 條形碼閱讀器 （臺） 計算機(jī) （臺） 打印機(jī) （臺） 注射器車間 500 2 (CCD) 2 2 輸液器車間 700 4 (CCD) 2 2 注塑車間 200 3 (CCD) 2 0 打包滅菌車間 0 1 (激光 ) 2 0 針管車間 50 1(CCD) 1 0 倉 庫 0 2(CCD) 2 0 新品車間 100 2(CCD) 2 1 數(shù)量統(tǒng)計 1650 14/1 ① 13 5 單 價 (元 ) 400/1500 ② 5000 3000 合計 (萬元 ) ① 14/1表示 14臺 CCD掃描器和 1臺激光掃描器 ② 400/1500表示 CCD掃描器單價為￥ 400元，激光掃描器單價為￥ 1500元 南昌航空工業(yè)學(xué)院計算機(jī)系本科畢業(yè)設(shè)計論文 第 48 頁 共 55頁 附錄 D 系統(tǒng)主要模塊介紹 圖 D1 外購?fù)鈪f(xié)件入庫模塊 (1) 實現(xiàn)功能 該模塊 主要記錄外購?fù)鈪f(xié)件經(jīng)材料倉庫進(jìn)入中間庫的記錄情況。其中，“外購?fù)鈪f(xié)件批號”是指材料的生產(chǎn) 批號；“重量”是指每單位的重量；“轉(zhuǎn)換后的條形碼號”是指流通記錄方便而給該類半成品分配的半成品條形碼號，該條形碼號在當(dāng)天是唯一的。提交后利用定位語句在外購?fù)鈪f(xié)件入庫記錄 (Assistance)查詢輸入的流轉(zhuǎn)條形碼當(dāng)天是否有重復(fù)，如果已經(jīng)存在提示出錯，否則，將信息記錄表中并提示成功記錄信息。 (2) 設(shè)計過程 用 ADOTable1 指向數(shù)據(jù)表 Assistance,將當(dāng)前日期和輸入的流轉(zhuǎn)條形碼號作為條件，用 Locate在表中查詢是否有重復(fù)記錄。該模塊需要調(diào)用 的 JudgeNumber過程和 PureNumber過程來判斷輸入的條形碼號和重量。核心代碼如下： 用 Locate語句實現(xiàn)定位 ADOTable1Open()。 南昌航空工業(yè)學(xué)院計算機(jī)系本科畢業(yè)設(shè)計論文 第 49 頁 共 55頁 TLocateOptions Opts。 ()。 Opts loCaseInsensitive。 if (ADOTable1Locate(CurrentDate,Date(),Opts)amp。amp。 (Edit3Text==ADOTable1FieldValues[Barcode])) ApplicationMessageBoxA(該條形碼信息已經(jīng)存在！ ,提示 ,48)。 else { ADOTable1Insert()。 ?? ADOTable1Post()。 ApplicationMessageBoxA(信息成功記錄！ ,恭喜 ,48)。 } 圖 D2 中間庫領(lǐng)料模塊 (1) 實現(xiàn)功能 該模塊主要實現(xiàn)各組裝小組的領(lǐng)料功能。其中，“小組條形碼號”表示組裝南昌航空工業(yè)學(xué)院計算機(jī)系本科畢業(yè)設(shè)計論文 第 50 頁 共 55頁 小組的編號（ 5 位）；“半成品條形碼號”意義同前所 述；“應(yīng)領(lǐng)重量”表示按生產(chǎn)任務(wù)安排時各小組應(yīng)領(lǐng)每類半成品的重量；“實領(lǐng)重量”是指該小組實際領(lǐng)取各類半成品的重量；“待領(lǐng)半成品”是為了提示中間庫發(fā)料人員該給當(dāng)前小組發(fā)放的半成品名稱；“已領(lǐng)的半成品”是提示發(fā)料人員已給當(dāng)前小組發(fā)放的半成品；“共領(lǐng)重量”對領(lǐng)料小組每次領(lǐng)取同種物料的重量進(jìn)行疊加，使發(fā)料人員可以根據(jù)“應(yīng)領(lǐng)重量”和“共領(lǐng)重量”控制小組的領(lǐng)料重量。輸入小組條形碼號后，根據(jù)條形碼號查詢當(dāng)天該小組的任務(wù)安排（組裝的產(chǎn)品類型和重量或數(shù)量），并在“待領(lǐng)半成品”顯示小組當(dāng)天應(yīng)領(lǐng)的物料。再根據(jù)輸入的條形碼流轉(zhuǎn)號就會 顯示各項參數(shù)，當(dāng)領(lǐng)完一種物料后，點擊“下一種”按鈕時，“待領(lǐng)半成品”的當(dāng)前項目將被刪除并轉(zhuǎn)入“已領(lǐng)半成品”中，直至小組領(lǐng)完全部物料。每按一次“確定”就將小組所領(lǐng)的物料信息插入領(lǐng)料記錄表 (MidpotOut)。 (2) 設(shè)計過程 本模塊在輸入小組條形碼號后要首先調(diào)用存儲過程 ADOStroedProc1，根據(jù)生產(chǎn)安排中小組當(dāng)天應(yīng)組裝的成品數(shù)目，調(diào)用物料結(jié)構(gòu)表將成品數(shù)目轉(zhuǎn)換成各半成品的重量和數(shù)量信息。之后的完整性檢驗和數(shù)據(jù)的插入同樣用 ADODataSet 和ADOTable等控件實現(xiàn)。核心代碼如下： ① 調(diào)用存儲過 程 ?? ADOStoredProc1Close()。 ADOStoredProc1ParametersParamByName(@teamno)Value=Edit1Text。 ADOStoredProc1Prepared=true。 ADOStoredProc1ExecProc()。 ?? ② 將表中符合條件的記錄插入 ComboBox1的過程 南昌航空工業(yè)學(xué)院計算機(jī)系本科畢業(yè)設(shè)計論文 第 51 頁 共 55頁 while(!ADODataSet1Eof) { ComboBox1ItemsAdd(DBEdit2Text)。 ADODataSet1Next()。 } 圖 D3 中間庫條形碼生成模塊 (1) 實現(xiàn)功能 該模塊主要實現(xiàn)對各小組生產(chǎn)的成品中包進(jìn)行記錄，以便于通過產(chǎn)品條形碼號追溯到小組號，然后再根據(jù)小組號找到該小組所領(lǐng)料的條形碼號來實現(xiàn)責(zé)任追溯。其中，“小組條形碼號”即為各組裝小組的編號；“條形碼數(shù)量”為根據(jù)小組領(lǐng)料重量估計該小組最終成品中包的數(shù)量；“起始條形碼號”為當(dāng)天該小組成品中包條形碼號的起始條形碼；“最終條形碼”是系統(tǒng)根據(jù)“條形碼數(shù)量”和“起始條形碼”自動生成的“最終條形 碼號”。按“確定”后，系統(tǒng)將自動從起始條形碼開始，每次將起始條形碼號增 1，并插入條形碼記錄表 (Barcode)中，直到增至最終條形碼時，停止插入。 (2) 實現(xiàn)過程 用 ADOTable1指向數(shù)據(jù)表 Barcode，由于條形碼位數(shù)很長 (16位數(shù)字 )且第一位 允 許為 0 ， 所以 在 實現(xiàn) 數(shù) 字和 字 符之 間 的轉(zhuǎn) 換 時要 用 到 函