【文章內容簡介】 //p1,p2為參數 ADODataSet1ParametersParamByName(p1)Value=Date()。 ADODataSet1ParametersParamByName(p2)Value=Edit1Text。 南昌航空工業(yè)學院計算機系本科畢業(yè)設計論文 第 22 頁 共 55頁 ADODataSet1Prepared=true。 ADODataSet1Open()。 ?? ③ 純數字判斷過程 (第一位可以為 0) 本過程主要通過對輸入字符串的每一位的判斷來確定該字符串是否為純數類型并且允許第一位為 0，以達到輸入數據的合法性檢驗。核心代碼如下： bool PureNumber(AnsiString str) { int j=0。 for(int i=1。i=int(StrLen(()))。i++) if(!(str[i]=39。039。amp。amp。str[i]=39。939。)) j++。 if(j==0) return true。 else return false。 } ④ 浮點數字判斷過程 本過程通過對輸入字符串的每一位的判斷來確定該字符串是否為浮點數字類型 (最多只能有一個小數點 )。核心代碼如下： bool JudgeNumber(AnsiString str) { int j=0,k=0,m=0。 for(int i=1。i=int(StrLen(()))。i++) { 南昌航空工業(yè)學院計算機系本科畢業(yè)設計論文 第 23 頁 共 55頁 if(str[i]==39。.39。) j++。 else if(str[i]=39。039。amp。amp。str[i]=39。939。) k++。 else m++。 } if(j=1amp。amp。k=1amp。amp。m==0) return true。 else return false。 } 圖 成品中包裝箱記錄模塊窗口 南昌航空工業(yè)學院計算機系本科畢業(yè)設計論文 第 24 頁 共 55頁 (1) 實現功能 該模塊主要實現中包裝箱時對條形碼的延續(xù)記錄，便于產品出庫時銷往的記錄和產品召回時地區(qū)的確定。其中，“條形碼輸入”為中包條形 碼和外箱條形碼的輸入框；“當前箱子條形碼”主要提示裝箱者當前正在裝入的外箱條形碼；“已裝入中包數”記錄當前外箱中已經裝入的中包數目，變換外箱條形碼時自動置“ 0”；已裝入中包條形碼號”顯示當前外箱中已經裝入的中包條形碼號，每行顯示 3 個條形碼。符合條件的記錄將被插入裝箱記錄表 (ProductBox)中。具體流程如圖 所示 讀入條形碼號格式 正確換箱操作插入當前記錄中包計數器加1是否 中包條 形 碼是否 結束改變當前外箱條形碼號中包計數器清零第一次 輸入YYYYNNN 開 始 結 束 圖 成品中包裝箱記錄模塊流程圖 南昌航空工業(yè)學院計算機系本科畢業(yè)設計論文 第 25 頁 共 55頁 (2) 設計過程 用 ADOTable1指向數據表 ProductBox，本過程主要通過判斷條 形碼長度（外箱為 14 位，中包為 16 位）來確定是換箱還是裝入中包，在換箱之前，每裝入一個中包，系統(tǒng)將自動識別當前外箱條形碼，把中包條形碼和外箱條形碼一并插入數據庫中，換箱時自動更新外箱條形碼，“當前外箱條形碼”自動清空?？紤]到生產實際情況，該模塊具有無需交互操作的特點，直接利用“條形碼輸入”框的 OnKeyDown 事件判斷是否換箱的操作，使生產效率大大提高。核心代碼如下： int i=0。 if(Key==VK_RETURN) { if(StrLen(Edit1())==14) { Edit1Clear()。 RichEdit1Clear()。 i=0。 } if(StrLen(Edit1())==16) { if(ADOTable1Locate(midbarcode,Edit1Text,Opts)) Edit1Clear()。//如果重復輸入條形碼，則清除 else if(Edit2Text==) Edit1Clear()。//如果在沒輸入外箱條形碼前輸 入中包條形碼，則清除 else { 南昌航空工業(yè)學院計算機系本科畢業(yè)設計論文 第 26 頁 共 55頁 RichEdit1Text=RichEdit1Text+Edit1Text+ 。 i=StrLen(RichEdit1())/18。//計算裝入中包數目 ?? Edit1Clear()。 } } else Edit1Clear()。 Edit3Text=IntToStr(i)。 } 在本系統(tǒng)的設計中除了源頭生產記錄模塊和成品中包裝箱記錄?？焱?，還有外購外協(xié)件入 中間庫記錄模塊、中間庫領料記錄模塊、條碼生成記錄模塊、責任追溯模塊和不合格產品召回模塊等，各模塊功能介紹和設計過程詳見附錄 D。 南昌航空工業(yè)學院計算機系本科畢業(yè)設計論文 第 27 頁 共 55頁 4. 程序調試 程序的調試與測試是軟件開發(fā)周期中最重要的環(huán)節(jié)之一。由于本系統(tǒng)后臺數據庫較大而專門分配了一個后臺數據庫設計人員，且針對系統(tǒng)操作按照數據的完整性和規(guī)范化設計了相關的視圖和存儲過程，所以在程序調試期間，數據庫設計部分基本上沒有產生錯誤。 程序調試包括本系統(tǒng)的調試和整個 ERP 系統(tǒng)的調試。在調試過程主要有以下幾個需要注意的地方： 序調試 (1) 對數據表查詢時應注意記錄指針的復位 由于 Borland C++Builder 對 SQL SERVER2020 數據表進行查詢時不能自動復位數據記錄指針，所以如果數據表中記錄為 0或者沒有符合條件的記錄時，系統(tǒng)就會報如下錯誤： 圖 數據查詢調試錯誤 解決問題的方法有： ① 若數據表中最少有一條記錄但沒有符合條件的記錄時，在查找后數據指針指向表尾，出現此類情況時應設置一條復位語句： if(ADOTable1Eof) ADOTable1First()。//其中 ADOTable1可為其他 ADO控件 執(zhí)行該語句后，數據指針自動返回到首記錄，以備下次查詢時數據指針從首記錄開始而不會報如圖 。 南昌航空工業(yè)學院計算機系本科畢業(yè)設計論文 第 28 頁 共 55頁 ② 比較統(tǒng)一的方法就是用 try 語句去測試對 ADO 控件操作時的各個動作，如果檢測到異常語句，則讓系統(tǒng)采用 catch 語句捕捉異常，使系統(tǒng)能夠正常處理。具體實現如下： try { ADOTable1Active=false。//可設置為 ADO控件的其他操作 } catch (Exception amp。exception) { ApplicationShowException(amp。exception)。 } return 0。 (2) 利用 ADO控件對數據表進行帶參數的定位或符合查詢時，要注意參數形式的設置(是“ =:”而不是“ :=” )。在調試本系統(tǒng)時，系統(tǒng)提示找不到參數，如圖 。 圖 參數格式設置錯誤 經過仔細檢查，發(fā)現設置參數形式不正確，正確的形式應為： select GroupNo from barcode where barcode=:index1 本系統(tǒng)是整體 ERP系統(tǒng)的一部分，能否與整體系統(tǒng)實現接口的完全連接，關系到系統(tǒng)的整體性是否完善。在將本系統(tǒng)的 Unit 單元加入到整體系統(tǒng)當中時，編譯后連接錯誤： 南昌航空工業(yè)學院計算機系本科畢業(yè)設計論文 第 29 頁 共 55頁 [Linker Fatal Error] RLINK32: Error opening file E:\ 調試\FINAL61110\ZHUISU\ 由于是一個連接的致命性錯誤，調試不能找出原因所在，只好改變原來將本系統(tǒng)的 Unit單元 一次性加入到整體系統(tǒng)的方法為將 Unit單元逐個加入整體系統(tǒng)，每加一個運行一次，最終取得了成功。 整體系統(tǒng)是經過各個子系統(tǒng)的各自編譯后才組合的，加上數據庫中觸發(fā)器、視圖和存儲過程設計的合理性，整體系統(tǒng)的聯(lián)調基本成功，對數據控制達到了預期要求。 南昌航空工業(yè)學院計算機系本科畢業(yè)設計論文 第 30 頁 共 55頁 5. 設計評價和改進要求及目標 . 設計評價 本程序的設計結果達到了目標要求： (1) 界面簡潔、風格一致且操作簡便，易于上手。 (2) 系統(tǒng)流程設計符合生產實際工作流程，合理設置各種操作和交互能力，幾乎不影響生產效率。 (3)實現了整個條形碼追蹤系統(tǒng)的軟、硬件系統(tǒng)的設計。 (4)設計的條形碼完全滿足客戶需要并能對生產過程中的各個工序成功記錄。 (5)滿足了客戶多種形式的責任追溯和產品召回的要求，能將生產責任至少定位到小組并將不合格產品的召回費用減少到最低限度。 (6)在盡量考慮客戶的硬件投資成本的條件下合理布置和安裝實現系統(tǒng)所需硬件。 用條形碼實現對生產過程物流的控制的技術應該比較成熟，但將條形碼運用于一次性醫(yī)療器械產品的質量可追溯系統(tǒng)中尚屬首次，再加上本系統(tǒng)的所有模型都是從實際生產過程中通過需求 分析抽象出來的，并且設計的時間有限，本系統(tǒng)難免有很多不盡人意的地方，主要體系在以下幾個方面： (1) 系統(tǒng)主要針對注射器和輸液器生產而設計，對公司的其他產量很少的產品考慮不多。 (2) 沒有專門開發(fā)條形碼設計和打印軟件，只提供了接口，在一定程度上增加了操作人員的工作復雜度。 (3) 責任追溯和不合格產品召回的類型是固定的，當客戶有新的要求時，系統(tǒng)不能為提供有效的擴展。 南昌航空工業(yè)學院計算機系本科畢業(yè)設計論文 第 31 頁 共 55頁 致 謝 首先要感謝的是指導教師舒堅老師，在他的指導下，我真正體驗了開發(fā)一個實際項目的步驟，即從需求分析到系統(tǒng)測試一系列過程。舒堅 老師嚴格要求的作風和從用戶出發(fā)的設計要求使我體會到了一個程序開發(fā)人員應具有的最基本的態(tài)度。在畢業(yè)設計期間，舒堅老師為我的設計工作以及方案的設計提供了極大的幫助，對我的設計提出了許多寶貴的意見，同時也給了我很多有益的啟發(fā)。在此對他給予的幫助和關心表示衷心的感謝。 其次要感謝的是劉琳嵐老師和班主任劉洪老師。劉琳嵐老師是我的計算機啟蒙老師，不但教給了我扎實的計算機專業(yè)基礎知識，在畢業(yè)設計期間還在文檔編寫方面提出了重要的意見。劉洪老師不僅在生活中給了我非常多的幫助，他還在系統(tǒng)設計方案和硬件實驗等方面給了我很大的幫助 。 再次要感謝大學四年中的專業(yè)任課老師，是他們的辛勤工作和諄諄教誨使我有了扎實的專業(yè)知識。他們是葉水生老師、胡景春老師、舒堅老師、劉洪老師、劉琳嵐老師、張小峰老師、吳軍老師、劉玉橋老師、羅海平老師等。 感謝整體系統(tǒng)的其他成員，他們的有益建議使我少走了很多彎路，他們的協(xié)作讓我體會到了軟件開發(fā)團隊的精神。 對在四年的學習和工作生活中，所有關心和愛護過我的人表示由衷的感謝。 最后，我要特別感謝給予我無限關懷與支持的父母，感謝他們在四年的大學生活中給與我的關心、鼓勵和幫助。 南昌航空工業(yè)學院計算機系本科畢業(yè)設計論文 第 32 頁 共 55頁 參考文獻 [1] 張海藩，軟件 工程導論，清華大學出版社， ，第 8 頁～第 41 頁 [2] 馬曉婷、程承恩，條形碼技術手冊，中國計量出版社， ，第 12頁～第 92頁 [3] 黃以群、董湘陵，條形碼技術，國防工業(yè)出版社， ，第 156頁～第 173頁 [4] 張驛、王耀球，條形碼技術與電子數據交換，中國鐵道出版社， ，第 5頁～第 98頁 [5] William , Systems Analysis and Design: A Structured Approach, AddisonWesley Publishing Company, 1983，第 6 頁～第 28 頁 [6] 劉振安、劉大路、張蕊、秦俊， C++Builder 4 編程技術，人民郵電出版社， ，第 122頁～第 138頁 [7] 張龍卿， Delphi ，北京希望電子出版社， ，第 235頁～第 318頁 [8] 劉海濤， Borland C++Builder 入門與提高，清華大學出版社， ，第 519頁～第 527頁 南昌航空工業(yè)