【正文】 with do //連接數(shù)據(jù)庫中的tb_jy表并查詢scddh字段等于scdd變量的所有信息 begin close。 end。 。cpmc39。 if 0 then begin while not do begin 。 open。39。39。39。39。select * from tb_cprk where scddh=39。 。 end。)。39。+scdd+39。39。+39。 (39。 with do begin close。 end。 。sl39。).AsString := wm。 (39。wlhh39。).AsString := eg。 (39。cpmc39。 if 0 then begin while not do begin 。 open。39。39。39。39。select * from tb_ll where scddh=39。 。 end。 。).AsString := en。 (39。).AsString。 scdd := (39。sl39。 end。)。39。+eh+39。39。+39。 (39。 with do //連接數(shù)據(jù)庫中的tb_scdd并查詢cphh等于eh變量的所有記錄 begin close。 := false。 := true。 end。 。yl39。).AsString := 。 (39。dw39。).AsString := 。 (39。clhh39。).AsString := 。 (39。cpbh39。 if tb = 2 then //如果tb=2則對當前記錄進行修改 。).AsString。 wm := (39。clhh39。).AsFloat。 el := (39。gg39。).AsString。 en := (39。cpbh39。)。產(chǎn)品名稱、物料貨號、物料名稱和用量不能為空。39。39。39。39。 el,ef : real。其代碼如下：procedure (Sender: TObject)。end。 //調(diào)用窗體的OnShow事件，使指針指向第一條記錄 end。) else begin 。產(chǎn)品物料清單已經(jīng)為空，無法刪除。39。cpbh39。提示39。真的要刪除該記錄嗎？39。代碼如下：procedure (Sender: TObject)。 //將指針停留在edit2組件上end。 //使按鈕可用 := true。 := false。,i+1)。 //將后一條記錄的記錄號賦給i := s+formatfloat(39。cpbh39。 //如果為空則把變量s中的內(nèi)容加上“000001”賦給edit1 end else //如果tb_cpcl表中有記錄 begin。0000039。,now())。+formatdatetime(39。 s := 39。 := 39。 。 。 。begin i := 1。var i : integer。在【添加】按鈕的OnClick事件處理過程中，首先清空TabSheet1頁中所有編輯框的數(shù)據(jù)，然后判斷tb_cpcl表是否為空，如果為空則將編號（最后6位為000001）賦給edit1的Text屬性，否則將tb_cpcl表中最大的編號加1賦給edit1的Text屬性。 end。yl39。).AsString。 := (39。dw39。).AsString。 := (39。clhh39。).AsString。 := (39。cpbh39。 end else //否則將表中的第一條記錄的內(nèi)容賦給下面的組件 begin 。39。 。 //連接數(shù)據(jù)庫 if 1 then //如果表中的記錄為空則清空下面的組件 begin 。 end。)。 (39。 with do //連接數(shù)據(jù)庫中的tb_cpcl表 begin close。 //下一條記錄 end。).AsString)。 if 0 then //判斷tb_cl表中是否有數(shù)據(jù) begin while not do //如果不到文件尾則執(zhí)行循環(huán)體的語句 begin ((39。 open。select * from tb_cl39。 。begin 。連接數(shù)據(jù)庫中的tb_cpcl表，如果有數(shù)據(jù)，則將第一條記錄的信息顯示在相應的組件中，否則清空相應的組件。多次在知識細節(jié)上給我講解，他們的幫助使我的設(shè)計得以順利進行。這離不開老師和同學們對我的指導與幫助。致 謝三個多月的畢業(yè)設(shè)計轉(zhuǎn)眼就結(jié)束了。但是由于時間、技術(shù)和經(jīng)驗有限，企業(yè)調(diào)研也不全面，只發(fā)現(xiàn)了其中主要的幾個問題點，而且自己的Delphi只是剛學不深，像SQL Server那樣的大型網(wǎng)絡(luò)數(shù)據(jù)庫還沒怎么接觸過，所以做出來的系統(tǒng)在許多有難度的邏輯都實現(xiàn)的不了，功能也不完善，在這方面上請老師多多原諒。5． 鍛煉了我獨立分析、獨立工作和解決問題的能了，領(lǐng)會了軟件開發(fā)的基本思想和方法，也積累了一定的編程經(jīng)驗，學到了很多書本上學不到的東西。3． 對Delphi語言有了進一步的了解，基本上掌握了這門編程語言的數(shù)據(jù)庫編程部分，為我今后的學習奠定了好的基礎(chǔ)。2． 實踐能力有了很大的提高。于是，我在一開始就認真的對生產(chǎn)信息系統(tǒng)進行分析，詳細的研究和探討，力爭對系統(tǒng)有個全面而深入的認識，并與公司方面進行深入的交流，在指導老師葉范波老師的指點和幫助下，我的任務(wù)得以按時按要求完成?；仡櫲齻€月來做過的歷程，心里有兩種感覺，一是很充實學到了很多東西，再一個就是軟件設(shè)計工作真的很不容易。切實感覺到了測試和調(diào)試工作的困難艱巨和重大。2. 數(shù)據(jù)庫瀏覽模塊：一開始我們在每個瀏覽模塊加入TADOquery和 Tdatasource使得界面上全是控件，無法分辨與其相對應的數(shù)據(jù)報表控件。在本系統(tǒng)中，主要進行了模塊測試。證明假設(shè)時，用它解釋所有原始的測試結(jié)果。如果所有列出的假設(shè)都被排除了，則需要補充數(shù)據(jù)來證明已提出新的假設(shè)。在著異步并不需要用這些假設(shè)解釋各種現(xiàn)象。用演繹法調(diào)試，開始先烈處副哦有看來可能成立的原因或假設(shè)，然后一個一個的排出列舉出的原因，最后，證明剩下的原因確實是錯誤的根源。而在調(diào)試方面，本設(shè)計中調(diào)試的基本策略主要有：一 、試探法分析錯誤征兆，猜想故障的大致位置，然后用調(diào)試技術(shù)，獲取程序中懷疑的地方附近的信息。在使用漸增式方法把模塊組裝到系統(tǒng)中有自底向上和自頂向下兩種方法，這兩種方法和有優(yōu)缺點，但是一般單一的自頂向下或自底向上可能都不適用。模塊組裝過程通常有兩種方法：非漸增式方法和漸增式方法。通過使用斷點跟蹤可以找到程序的出錯位置，縮小查找錯誤的范圍，提高調(diào)試的效率。白盒測試時把程序看成一個白盒子，完全了解程序內(nèi)部的結(jié)構(gòu)和處理過程，按照程序內(nèi)部的邏輯測試程序。軟件的測試一般分為兩種方式：黑盒測試（功能測試）和 白盒測試（結(jié)構(gòu)測試）。因此，通過測試步驟發(fā)現(xiàn)的了錯誤之后，不許對錯誤進行診斷和糾正，這就是調(diào)試的目的。測試是為了在軟件產(chǎn)品投入運用之前，盡可能的發(fā)現(xiàn)軟件中的錯誤，是保證軟件質(zhì)量的關(guān)鍵步驟。此外，在線備份對事務(wù)的影響降至最低，因此備份通?？梢栽谡２僮鞯倪^程中同時進行。備份是速度快，因此沒有理由不去執(zhí)行保護數(shù)據(jù)的完備策略，SQL Server充分利用了硬件性能，使數(shù)據(jù)備份和恢復的速度盡可能的快。這些工具允許在大規(guī)模的故障，如介質(zhì)的損壞，用戶失誤或服務(wù)器的永久性丟失等發(fā)生之后，對數(shù)據(jù)進行完整的恢復。它也利用Microsoft Windows 2000 Active Directory(活動目錄)提供了集中的數(shù)據(jù)庫管理。使用SQL Server也能夠啟用不同的和“serverless”快速備份，并將集成日志傳送到數(shù)據(jù)庫維護計劃中。有四種一下級別形式：數(shù)據(jù)庫所有者登錄Guest 登錄別名登錄新用戶登錄3. 數(shù)據(jù)倉庫解決方案的可伸縮性: 使用SQL Server,能夠在處理眾多復雜的執(zhí)行方案中提高反應時間，甚至可以支持最大的數(shù)據(jù)設(shè)置和成千上萬個成員的規(guī)模，也可以在不同的服務(wù)器上通過發(fā)布式分區(qū)管道擴大數(shù)據(jù)倉庫規(guī)模。用戶可以獲得入口，這些入口能使用戶進入特定的數(shù)據(jù)庫。其主要特性體現(xiàn)在以下幾個方面：1. 任何安全系統(tǒng)的關(guān)鍵在于識別和管理：SQL Server同時也為用戶提供了很強的安全保障新性，一個用戶要獲得SQL Server數(shù)據(jù)庫中的一個對象，必須通過四道防線。SQL Server除了與其他的基于客戶/服務(wù)器數(shù)據(jù)庫系統(tǒng)那樣很容易減少冗余事物，即同一事物由不同的前臺客戶處理，都在同一后臺數(shù)據(jù)庫，但SQL Server又是單進程多線程數(shù)據(jù)庫管理軟件，在資源方面比多進程系統(tǒng)節(jié)省的多。5. 開放型與靈活性：Delphi 的開放體系結(jié)構(gòu)支持多個數(shù)據(jù)庫引擎，任何一個數(shù)據(jù)庫引擎都能與Delphi數(shù)據(jù)顯示控件如：TDBgrid、TDBEdit等協(xié)調(diào)工作。在Delphi 中，對數(shù)據(jù)庫編程的主要支持包括：Data Access控件組和Data Controls控件組。4. 數(shù)據(jù)庫編程：現(xiàn)在的大多數(shù)程序設(shè)計，幾乎少不了的要涉及到數(shù)據(jù)庫。這些控件，覆蓋了幾乎所有的應用，如：打印控制、INTERNET控件、數(shù)據(jù)庫控件。3. 構(gòu)件庫：這也許是Delphi 程序員最引以為豪的一個特點了。偽代碼是機器不可執(zhí)行的代碼，必須在運行時被翻譯成可執(zhí)行的代碼，這大大降低了系統(tǒng)的性能和程序運行的速度，而且，由于在運行時進行轉(zhuǎn)換，浪費了CPU的時間。繼承：是指子類擁有父類的方法和屬性。具體說來，Delphi 具有以下幾個方面的特點：1. 面向?qū)ο?：Delphi 是一門真正的面向?qū)ο蟮木幊陶Z言，它支持封裝、繼承和多態(tài)性等面向?qū)ο蟮母拍?。Delphi 語言，在現(xiàn)在流行的可是化的編程語言環(huán)境中，如：Visual Basic、Visual C++、C++ Builder、Power Builder、Visual J++ ,可以說是最受程序員歡迎的了。 開發(fā)工具簡介 Delphi簡介本文件資源管理系統(tǒng)采用當前最強大、最靈活的應用程序開發(fā)工具Inprise 公司的產(chǎn)品Delphi 。在眾多的開發(fā)工具中，經(jīng)過對本系統(tǒng)認真考慮，適合本系統(tǒng)開發(fā)的工具，我采用了Delphi 作為前臺開發(fā)工具，SQL SERVER 作為后臺數(shù)據(jù)庫。登錄以后，則進入主頁面系統(tǒng)。用戶只有管理員給予了權(quán)限，才能登錄次系統(tǒng)（即有正確的用戶名和密碼）。系統(tǒng)主界面清楚的顯示了系統(tǒng)的各個主要功能模塊，各功能模塊建立了二級目錄，即子模塊作業(yè)。 系統(tǒng)界面設(shè)計 系統(tǒng)登錄界面申佳服飾ERP生產(chǎn)管理系統(tǒng)除了實現(xiàn)本身的各個系統(tǒng)管理功能外，還應力求使系統(tǒng)頁面簡潔、易于使用、美觀大方。運行平臺：Windows xp/ Windows 2000。 開發(fā)及運行環(huán)境系統(tǒng)開發(fā)平臺：Delphi 。 字段名數(shù)據(jù)類型長度主鍵否描述cpbhvarchar50是產(chǎn)品編號cpmcvarchar50產(chǎn)品名稱clhhvarchar50是物料編號clmcvarchar5物料名稱ggvarchar50規(guī)格dwvarchar50單位ylfloat8用量4 系統(tǒng)的詳細設(shè)計與具體實現(xiàn)詳細設(shè)計階段的根本目標是確定應該怎樣具體的實現(xiàn)所要求的系統(tǒng)，也就是說，經(jīng)過這個階段的設(shè)計工作，應該得出對目標系統(tǒng)的精確描述，從而在編碼階段可以把這個描述直接翻譯成用某種程序語言書寫的程序。字段名數(shù)據(jù)類型長度主鍵否描述rkidvarchar50是入庫編號scddhvarchar50生產(chǎn)訂單號hhvarchar50貨號cpbhvarchar50是產(chǎn)品編號cpmcvarchar50產(chǎn)品名稱slvarchar50生產(chǎn)數(shù)量ktimedatetime8開工時間wtimedatetime8完工時間rtimedatetime8入庫時間ynchar2是否完成jychar1判斷Cjvarchar10車間編號Cjmvarchar10車間名稱Bzvarchar10備注（13）tb_cl（物料表）物料表主要存儲所有物料的詳細信息。字段名數(shù)據(jù)類型長度主鍵否描述jyidvarchar50是檢驗編號Bfcvarchar50報廢倉庫jylxvarchar16檢驗類型zsfloat8樣本數(shù)jyslfloat8合格數(shù)hglvarchar10合格率jytimedatetime8檢驗時間jyrvarchar10檢驗人Cpbhvarchar10是產(chǎn)品編號Cpmvarchar10產(chǎn)品名稱Bzvarchar50備注（11）tb_cprk（產(chǎn)品入庫基本信息表）