中國計量學院經濟與管理學院課程設計報告課程設計名稱 宜興有限公司生產管理系統 專 業 信息管理與信息系統 班 級 11信管2班 姓 名 方浩霖 學 號 1100702208 姓 名 朱文松 學 號 1100702215 指導教師 金芳芳 2014年 1 月 17 日目 錄一、 概述 （ 1 ）1. 項目目設計的背景及意義（ 1 ）2. 可行性分析（ 2 ）二、系統分析 （ 2 ）1. 需求分析 （ 2） 1.1 用戶需求 （ 2 ） 1.2 功能需求（ 2 ） 1.3 系統數據流圖（ 3 ） 1.4 E-R圖（ 4 ）2. 技術介紹（ 7 ） 2.1delphi7簡介（ 7 ） 2.2SQL Server2005簡介（ 7 ）三、系統設計 （ 9 ）1. 系統的運行環境（ 9 ） 1.1硬件環境（ 9 ） 1.2軟件環境（ 9 ）2. 服務器端技術指標（ 9 ）3. 軟件系統的整體結構（ 9 ）4. 系統的處理流程（ 10 ）5. 模塊算法（ 10 ） 5.1基本資料錄入管理（ 10 ） 5.2職工招聘管理6. 數據信息（ 13 ）6.1 數據庫表（ 13 ）6.2 數據庫表的說明（ 14 ）4、 系統實現（ 15 ）1. 系統實現（ 15 ）1.1用戶登錄模塊的實現（ 15 ） 1.2員工的登錄實現（ 16 ） 1.3管理人員的登錄實現（ 16 ）1.4員工信息管理界面（ 18 ）1.5職工信息管理（ 19 ） 1.6產品信息管理（ 20 ）1.7模塊的實現（ 21 ） 1.8基本資料錄入模塊的實現（ 23 ） 1.9管理情況模塊的實現（ 23 ） 1.10表格打印的實現（ 26 ） 2、 系統測試（ 28 ）2.1系統測試平臺簡介（ 28 ）2.2系統測試的目的（ 28 ）2.3系統測試計劃（ 28 ）2.4系統測試用例（ 29 ）2.5系統測試實施（ 32 ）5、 結束語（ 36 ）參考文獻（ 36 ）附錄（ 37 ）一、 概述 生產管理管理是所有工廠、公司、企事業單位所必須的，它包括人事檔案的統計、查詢、更新、打印輸出等。如果這些工作由人工統計，則工作量很大，若公司人數有幾萬甚至幾十萬，人工統計將變得不可想象，用計算機統計可使人們從繁重的勞動中解脫出來，僅一些簡單的操作便可及時、準確地獲得需要的信息。企業生產管理系統是現代企事業單位管理人員、工資、日常考勤所必須擁有的信息化管理系統之一，它包括生產信息的增、刪、改、查，人員調動、人員離職等。 本系統是為了使生產工作者從繁重的日常瑣碎事務中解放出來，將更多地精力用于企業的生產管理和管理決策，保持企業的持續高效運營。 集中記錄、監測和分析所有勞動力的技能和資格，提供決策分析。提高企業整體的科技含量與管理效率，加快企業的信息化建設。盡量采用現有軟硬件環境，及先進的管理系統開發方案，提高系統開發水平和應用效果的目的；系統應符合企業管理的規定，滿足日常管理的需要，并達到操作過程中的直觀，方便，實用，安全等要求；系統采用模塊化程序設計方法，這樣既便于系統功能的各種組合，又便于未參與開發的技術維護人員補充，維護；系統應具備數據庫維護功能，及時根據用戶需求進行數據的添加，刪除，修改等操作。1.1 項目設計的背景及意義隨著計算機技術的飛速發展，計算機在系統管理中的應用越來越普及，利用計算機實現各個系統的管理顯得越來越重要。對于一些大中型管理部門來說，利用計算機支持管理高效率完成管理的日常事務，是適應現代管理制度要求、推動管理走向科學化、規范化的必要條件；而生產管理是一項瑣碎、復雜而又十分細致的工作，員工招聘、辭退、上崗流量之龐大一般不允許出錯，如果沒有一個良好的系統來對生產狀況進行管理，這就會使用人單位的協調能力大大降低，如果利用計算機進行這些管理工作，不僅能夠保證各種核算準確無誤、快速記錄，而且還可以利用計算機對有關的各種信息進行統計，服務于財務部門其他方面的核算和財務處理，同時計算機具有手工管理所無法比擬的優點，例如：檢索迅速、查找方便、可靠性高、存儲量大、保密性好、壽命長、成本低等。這些優點能夠極大地提高管理的效率,也是管理行業的科學化、正規化管理，與世界接軌的重要條件。基于以上的原因，有很多從事軟件開發的人員，在試卷生成方面做了很大的研究。目前這一領域也以良好的發展姿態而不斷進步，早期已經有了一些類似的系統，但經過軟件開發人員不斷的完善，大致形成了具備如下功能的系統：1.員工各種信息的輸入，包括員工的基本信息、學歷信息、婚姻狀況信息、職稱等。2.員工各種信息的修改；3.對于轉出、辭職、辭退、退休員工信息的刪除；4.按照一定的條件，查詢、統計符合條件的員工信息；5.對查詢、統計的結果打印輸出。1.2 可行性分析可行性分析是通過對項目的主要內容和配套條件進行調查研究和分析比較，為項目決策提供依據。主要內容以全面、系統的分析為主要方法，經濟效益為核心，圍繞影響項目的各種因素，運用大量的數據資料對整個可行性研究提出綜合分析評論，論證擬建項目是否可行。技術可行性：1、設備：該系統對所需的硬件設備，如PC機、打印機等的性能要求一般，現有設備的性能完全能夠滿足系統功能的要求；2、軟件：本系統采用delphi7開發，SQL Server數據庫作為后臺數據庫支持，利用其可視化的開發環境、豐富的空間資源，能快速開發出應用程序。因此，在技術上是可行的。操作可行性：本系統完全是在現有的知識水平上進行設計的，對一些操作的執行沒有很大的難度。因此，在操作上是可行的。法律可行性：本系統的設計完全符合法律的各項規定。因此，在法律上是可行的。經濟可行性：本系統作為一個課程實驗設計，因此無需考慮此因素。管理可行性：為了提高酒店管理水平，管理人員能充分適應管理信息系統的要求，提高他們對餐飲管理信息系統的認識。因此，在管理上是可行的。 二、 系統分析 2.1需求分析 2.1.1用戶需求 該系統主要是可以減輕工作人員的勞動強度，使餐飲消費的管理工作向一個新的層次邁進。用計算機管理餐飲的消費，此系統為餐飲管理的規范化，提高餐飲管理效率，增加收入，方便處理菜單、員工、臺位等信息，極大減少錯誤的發生，避免無法估計的不必要的損失，大大提高了工作人員的工作效率。此系統提高餐飲消費的服務水平，節省大量的人力、物力和財力。 2.1.2功能需求（1） 系統管理的功能需求：管理員及其權限的設置和修改、系統維護向導、幫助功能（2） 基本管理的功能需求：員工信息的添加、刪除、修改、查詢，（3） 職工管理的功能需求：職工招聘管理、產品生產情況的各項操作要求 2.1.3系統數據流圖 圖2.1 生產管理系統頂層流程圖 2.1.4 E-R圖、用戶登陸登陸密碼用戶名圖2.4 用戶E-R圖產品表 產品表產品編號產品名圖2.5 產品E-R圖工廠表工廠編號工廠地址工廠名稱 圖2.6 工廠表E-R圖生產表產品數量工廠編號產品編號圖2.7 生產E-R圖職工表工資職工號聘期姓名工廠編號技術等級圖2.8 職工E-R圖職工姓名職工號技術等級聘用n聘期工資1工廠廠名廠址工廠編號m生產數量n產品產品名產品號規格 職工（職工號，姓名，技術等級，工廠編號，聘期，工資）工廠（工廠編號，廠名，地址）產品（產品號，產品名，規格）生產（工廠編號，產品號，數量）2.2技術介紹2.2.1 delphi7簡介 本系統采用的是delphi7進行開發設計。Delphi，是Windows平臺下著名的快速應用程序開發工具(Rapid Application Development，簡稱RAD)。Delphi是一個集成開發環境（IDE），使用的核心是由傳統Pascal語言發展而來的Object Pascal，以圖形用戶界面為開發環境，透過IDE、VCL工具與編譯器，配合連結數據庫的功能，構成一個以面向對象程序設計為中心的應用程序開發工具。Delphi是基于Object Pascal語言的面象對象的開發工具，使用其集成開發環境可以快速地建立應用程序，即可開發本地類型的軟件，又可開發客房/服務器類型的程序，并提供了豐富的數據庫管理工具，在開發數據庫應用程序方面具有獨特的優勢： 1、Delphi為 32位應用程序，因此其性臺就像裝上了渦輪引擎一樣強勁有力，使用它可開發出功能強大的應用程序。2、 Delphi的編譯器是目前世界上最快的32位本地代碼編譯器。使用這種編譯器產生的運行文件EXE是獨立的，不需要鏈接運行時的解釋器DLL。3、 Delphi可充分發揮Windwos95/98/2000/xp/2003的強大功能。4、 Delphi提供了多種32位可視組件庫。5、 Delphi是一種面向對象的程序設計語言，因此可做到可視窗體的繼承。6、 Delphi采用3層數據管理模式(數據層、對象層、應用程序層)，把諸如數據模型、業務規則、窗體、對象等集中存儲在對象存儲庫中。7、 應用程序可通過在Delphi中使用Borland公司提供的數據引擎(BDE)功能，可以毫無障礙地使用多種數據庫，不論是大型數據庫還是PC機中的數據庫。8、 Delphi中的數據庫感知功能，可使用戶在開發應用程序時就可看到數據庫的動態變化。9、 使用Delphi提供的數據庫瀏覽器，則可使用用戶在Delphi的集成開發環境中，方便瀏覽、修改、索引數據庫。10、 為了便于維護程序，Delphi將數據訪問與業務規則從程序中分離出來，集中存儲在數據模型對象中，當業務規則需要修改時，只需在數據模型級進行修改。程序運行調用這些數據模型時，修改的結果會自動反映在應用程序中。 此外，在Delphi中，為用戶免費提供了2個用戶許可的本地Interbase（數據庫管理系統）.2.2.2 SQL Server2005簡介本系統采用的是SQL Server2005進行數據庫的建立。SQL是英文Structured Query Language的縮寫，意思為結構化查詢語言。SQL語言的主要功能就是同各種數據庫建立聯系，進行溝通。按照ANSI(美國國家標準協會)的規定，SQL被作為關系型數據庫管理系統的標準語言。SQL語句可以用來執行各種各樣的操作，例如更新數據庫中的數據，從數據庫中提取數據等。目前，絕大多數流行的關系型數據庫管理系統，如Oracle, Sybase, Microsoft SQL Server, Access等都采用了SQL語言標準。SQL Server2005具有十個非常明顯的特點：1、 NET框架主機使用SQL Server2005,開發人員通過使用相似的語言，例如微軟的VisualC#.net和微軟的VisualBasic,將能夠創立數據庫對象。開發人員還將能夠建立兩個新的對象-用戶定義的類和集合。2、XML技術在使用本地網絡和互聯網的情況下，在不同應用軟件之間散步數據的時候，可擴展標記語言(XML)是一個重要的標準。SQL Server2005將會自身支持存儲和查詢可擴展標記語言文件。3、ADO. NET2.0版本從對SQL類的新的支持，到多活動結果集(MARS)，SQL Server2005中的ADO . NET將推動數據集的存取和操縱，實現更大的可升級性和靈活性。4、增強的安全性SQL Server2005中的新安全模式將用戶和對象分開，提供fine-grainAccess存取、并允許對數據存取進行更大的控制。另外，所有系統表格將作為視圖得到實施，對數據庫系統對象進行了更大程度的控制。5、Transact-SQL的增強性能SQL Server2005為開發可升級的數據庫應用軟件，提供了新的語言功能。這些增強的性能包括處理錯誤、遞歸查詢功能、關系運算符PIVOT,APPLY,ROW_NUMBER和其他數據列排行功能，等等。6、SQL服務中介SQL服務中介將為大型、營業范圍內的應用軟件，提供一個分布式的、異步應用框架。7、通告服務通告服務使得業務可以建立豐富的通知應用軟件，向任何設備，提供個人化的和及時的信息，例如股市警報、新聞訂閱、包裹遞送警報、航空公司票價等。在SQL Server2005中，通告服務和其他技術更加緊密地融合在了一起，這些技術包括分析服務、SQLServerManagementStudio.8、Web服務使用SQL Server2005,開發人員將能夠在數據庫層開發Web服務，將SQL Server當作一個超文本傳輸協議(HTTP)偵聽器，并且為網絡服務中心應用軟件提供一個新型的數據存取功能。9、報表服務利用SQL Server2005,報表服務可以提供報表控制，可以通過VisualStudio2005發行。10、全文搜索功能的增強SQL Server2005將支持豐富的全文應用軟件。服務器的編目功能將得到增強，對編目的對象提供更大的靈活性。查詢性能和可升級性將大幅得到改進，同時新的管理工具將為有關全文功能的運行，提供更深入的了解。三、 系統設計3.1系統的運行環境 3.1.1硬件環境處理器：Intel(R) Core(TM)i5-2450M CPU 2.50GHz內存：4GB系統類型：32位操作系統 其他：鼠標 3.1.2軟件環境運行環境：window7旗艦版window7旗艦版介紹：window7旗艦版是微軟公司開發的window7系列中的終結版本，是功能最完善、最豐富的一款操作系統。擁有window7 Home Premium和window7 Professional的全部功能，硬件條件也是最高的。window7旗艦版所包含的功能有：無限應用程序、實時縮略圖預覽、增強視覺體驗、高級網絡支持、移動中心；Aero Glass高級界面、高級窗口導航、改進的媒體格式支持、媒體中心和媒體流增強、多點觸摸、更好的手寫識別；毛玻璃透明特效功能、多觸控功能、多媒體功能、組建家庭網絡組；支持加入管理網絡、高級網絡備份和加密文件系統等數據保護功能、位置感知打印技術；加強網絡的功能、高級備份功能、位置感知打印、脫機文件夾、移動中心、演示模式；內置驅動器數據保護、鎖定非授權軟件運行、無縫連接基于Window Server 2008 R2的企業網絡、Window Server 2008 R2網絡緩存；Branch緩存；DirectAccess、BitLocker、AppLocker、增強虛擬化、管理、兼容性和部署、VHD引導支持； 強大的語音控制功能夠實現人機一體化。3.2服務器端技術指標服務器數據庫采用SQL Server 2005采用delphi7作為系統運行服務器客戶端須滿足如下技術指標：（1）delphi7及其以上版本（2）Windows 2000版本操作系統及以上版本3.3軟件系統的整體結構餐飲信息管理系統模塊是用delphi7進行設計，SQL Server 2005作為后臺數據庫管理系統。系統管理模塊分為系統管理、基本管理、用餐管理、查詢管理、財務管理；系統管理模塊主要是管理員及其權限、系統維護向導、幫助模塊；用餐管理模塊主要有開臺管理、用餐管理、結賬管理模塊；基本模塊主要有員工信息管理、臺位管理、菜單管理模塊；查詢管理模塊主要有查詢菜單管理、查詢臺位管理；財務管理模塊主要包括銷售分析模塊。系統體系結構框圖如下圖：華源企業生產信息管理系統 幫助管理情況基本信息管理工廠資料錄入產品資料錄入職工資料錄入職工招聘生產情況關于打印 圖3.1 系統體系結構框圖3.4系統的處理流程篩選退出產品管理職工招聘員工信息初始化員工數據錄入用戶登錄 圖3.2 系統處理流程圖3.5模塊算法3.5.1系統管理（1）功能流圖 圖3.3 系統管理功能圖（1） 功能描述 用戶根據已知的姓名和密碼登陸系統，只有登錄成功才能進行系統管理、基本管理、用餐管理、查詢管理、財務管理及退出的操作。3.5.2生產管理（1） 功能流圖 圖3.4 生產管理功能流圖（2） 功能描述 用戶在登陸成功進入基本管理模塊后，可進行員工信息管理。3.5.3職工信息管理（1） 功能流圖 圖3.5職工信息管理功能流圖（2）功能描述 用戶在登陸成功進入職工信息管理后，可進行職工管理的操作。3.5.4工廠管理（1） 功能流圖 圖3.6工廠管理功能流圖（2）功能描述 用戶在登陸成功進入查詢管理后，可進行查詢工廠信息。3.5.5招聘管理（1） 功能流圖 圖3.7財務管理功能流圖（2）功能描述 用戶在登陸成功進入財務管理后，可進行打印。3.6數據信息3.6.1數據庫表圖3.8登陸表圖3.9生產表圖3.10產品表圖3.11工廠表圖3.12職工表3.6.2數據庫表的說明 餐飲信息管理系統主要包括五個基礎表，為：管理員表、菜單表、臺位表、客人表以及員工表。、登陸表：用于設置員工登錄系統時的權限問題。其中主要包括name、password以及管理員的權限范圍。設置name為主要關鍵字，非空；設置其他信息可以為空。、職工表：用于管理菜單的內容問題，所有的菜品信息都在這張表中。其中主要包括菜品編號、菜品名稱、菜品類別、價格、當前狀態以及補充說明。設置菜品編號為主要關鍵字，非空；設置其他信息可以為空。、生產表表：用于對臺位信息的管理，所有的臺位信息都在這張表中。其中主要包括臺位編號、容納人數、客人人數、使用狀態以及補充說明等內容。設置臺位編號為主要關鍵字，非空；設置其他信息可以為空。、產品表：用于客人信息的建立及管理，所有客人的基本信息都在這張表中。其中主要包括客人姓名、聯系電話以及在本店的累計積分情況。設置客人姓名為主要關鍵字，非空；設置其他信息可以為空。3.6.3范式轉換圖3.14范式轉換圖四、 錯誤！未找到目錄項。五、 系統實現4.1系統實現4.1.1用戶登錄模塊的實現：圖4.1 用戶登錄4.1.2員工的登錄實現：圖4.2 員工登錄4.1.3管理人員的登錄實現：圖4.3 管理人員登錄“登錄”操作的代碼為：procedure TForm1.Button1Click(Sender: TObject);var sql2,sql3:string;beginif radiobutton1.Checked thenbeginwith adoquery1 do begin close; sql.clear; sql2:=select * from guanliyuan where name=:a and password=:b; sql.Add(sql2); parameters.ParamByName(a).Value:=edit1.Text; parameters.ParamByName(b).Value:=edit2.Text; open; end; if not adoquery1.eof then begin form1.Hide; form2.show; form2.N2.Enabled:=false; form2.N4.Enabled:=false; form2.N8.Enabled:=false; form2.N10.Enabled:=false; form2.N11.Enabled:=false; form2.N12.Enabled:=false; form2.N1.Enabled:=false; form2.N5.Enabled:=false; form2.caiwu1.Enabled:=false; end else showmessage(用戶名或密碼不正確);end;if radiobutton2.Checked thenbeginwith adoquery1 do begin close; sql.clear; sql3:=select * from guanliyuan where name=:c and password=:d; sql.Add(sql3); parameters.ParamByName(c).Value:=edit1.Text; parameters.ParamByName(d).Value:=edit2.Text; open; end; if not adoquery1.eof then begin form1.Hide; form2.show; end else showmessage(用戶名或密碼不正確);end;end;“退出”的代碼為：procedure TForm1.Button2Click(Sender: TObject);beginapplication.Terminate;end;4.1.職工基本資料錄入界面：圖4.4 員工信息管理procedure TForm2.Button1Click(Sender: TObject);beginquery1.First;button1.Enabled:=false; / 點擊首記錄時首記錄按鈕變灰button2.Enabled:=false;/ 點擊首記錄時前移按鈕變灰button3.Enabled:=true;button4.Enabled:=true;end;procedure TForm2.Button2Click(Sender: TObject);beginquery1.prior;button1.Enabled:=true;button2.Enabled:=true;button3.Enabled:=true;button4.Enabled:=true;if query1.Bof thenbeginbutton1.Enabled:=false;button2.Enabled:=false;button3.Enabled:=true;button4.Enabled:=true;end;end;procedure TForm2.Button3Click(Sender: TObject);beginquery1.next;button1.Enabled:=true;/ 點擊后移時首記錄按鈕打開button2.Enabled:=true;/ 點擊后移時前移按鈕打開button3.Enabled:=true;button4.Enabled:=true;if query1.Eof thenbeginbutton1.Enabled:=true;button2.Enabled:=true;button3.Enabled:=false;button4.Enabled:=false;end;end;procedure TForm2.Button4Click(Sender: TObject);beginquery1.last;button1.Enabled:=true;button2.Enabled:=true;button3.Enabled:=false;button4.Enabled:=false;end;procedure TForm2.Button5Click(Sender: TObject);begin query1.Close; query1.SQL.Clear; query1.sql.Add(select * from 職工表.db);/ 使用SQL語句查詢相關記錄 query1.SQL.Add(where 職工號=:a); query1.ParamByName(a).AsString:=edit1.Text; query1.Open;end;procedure TForm2.Button6Click(Sender: TObject);beginquery1.MoveBy(strtoint(edit2.Text);/ 移動記錄end;procedure TForm2.Button7Click(Sender: TObject);beginform1.show;end;4.1.5工廠基本資料錄入管理：procedure TForm3.Button1Click(Sender: TObject);begintable1.First;button1.Enabled:=false;button2.Enabled:=false;button3.Enabled:=true;button4.Enabled:=true;end;procedure TForm3.Button2Click(Sender: TObject);begintable1.prior;button1.Enabled:=true; /點擊前移時首記錄按鈕打開button2.Enabled:=true; /點擊前移時前移按鈕打開button3.Enabled:=true; /點擊前移時后移按鈕打開button4.Enabled:=true; /點擊前移時末記錄按鈕打開if table1.Bof thenbeginbutton1.Enabled:=false;button2.Enabled:=false;button3.Enabled:=true;button4.Enabled:=true;end;end;procedure TForm3.Button3Click(Sender: TObject);begintable1.next;button1.Enabled:=true;button2.Enabled:=true;button3.Enabled:=true;button4.Enabled:=true;if table1.Eof thenbeginbutton1.Enabled:=true;button2.Enabled:=true;button3.Enabled:=false;button4.Enabled:=false;end;end;procedure TForm3.Button4Click(Sender: TObject);begintable1.last;button1.Enabled:=true; /點擊末記錄時首記錄按鈕打開button2.Enabled:=true; /點擊末記錄時前移按鈕打開button3.Enabled:=false; /點擊末記錄時后移按鈕變灰button4.Enabled:=false; /點擊末記錄時末記錄按鈕變灰end;procedure TForm3.Button5Click(Sender: TObject);beginTable1.append;Table1.fieldbyname(工廠編號).asstring:=edit1.text;Table1.fieldbyname(廠名).asstring:=edit2.text;Table1.fieldbyname(地址).asstring:=edit3.text;Table1.post;end;procedure TForm3.Button7Click(Sender: TObject);beginform1.show;end;procedure TForm3.Button6Click(Sender: TObject);beginif table1.locate(工廠編號,edit4.text,)thentable1.delete;end;end.4.1.6產品基本資料錄入管理：procedure TForm4.Button1Click(Sender: TObject);begintable1.First;button1.Enabled:=false;button2.Enabled:=false;button3.Enabled:=true;button4.Enabled:=true;end;procedure TForm4.Button2Click(Sender: TObject);begintable1.prior;button1.Enabled:=true;button2.Enabled:=true;button3.Enabled:=true;button4.Enabled:=true;if table1.Bof thenbeginbutton1.Enabled:=false; /點擊首記錄時首記錄按鈕變灰button2.Enabled:=false;/點擊首記錄時前移按鈕變灰button3.Enabled:=true;button4.Enabled:=true;end;end;procedure TForm4.Button3Click(Sender: TObject);begintable1.next;button1.Enabled:=true;button2.Enabled:=true;button3.Enabled:=true;button4.Enabled:=true;if table1.Eof thenbeginbutton1.Enabled:=true;button2.Enabled:=true;button3.Enabled:=falsebutton4.Enabled:=false;end;end;procedure TForm4.Button4Click(Sender: TObject);begintable1.last;button1.Enabled:=true;button2.Enabled:=true;button3.Enabled:=false;/點擊末記錄時后移按鈕變灰button4.Enabled:=false;/點擊末記錄時末記錄按鈕變灰end;procedure TForm4.Button5Click(Sender: TObject);var sm:string;beginsm:=trim(inputbox(輸入產品號,請輸入產品號,);with table1 dobegintable1.IndexFieldNames:=產品號 ;/ 用findkey查找特定記錄產品號if findkey(sm) thenshowmessage(查到相應記錄)elseshowmessage(未找到相應記錄);end;end;procedure TForm4.Button7Click(Sender: TObject);beginTable1.append;Table1.fieldbyname(產品號).asstring:=edit3.text;Table1.fieldbyname(產品名).asstring:=edit4.text;Table1.post;end;procedure TForm4.Button6Click(Sender: TObject);beginif table1.locate(產品號,edit4.text,)then/ 定點查找信息并刪除table1.delete;end;procedure TForm4.Button8Click(Sender: TObject);beginform1.show;end;end.4.1.7管理情況模塊的實現：procedure TForm5.Button2Click(Sender: TObject);begintable1.First;button1.Enabled:=false;button2.Enabled:=false;button3.Enabled:=true;button4.Enabled:=true;end;procedure TForm5.Button3Click(Sender: TObject);begintable1.Prior;button1.Enabled:=true;button2.Enabled:=true;button3.Enabled:=true;button4.Enabled:=true;if table1.Bof thenbeginbutton1.Enabled:=false;button2.Enabled:=false;button3.Enabled:=true;button4.Enabled:=true;end;end;procedure TForm5.Button4Click(Sender: TObject);begintable1.next;button1.Enabled:=true;button2.Enabled:=true;button3.Enabled:=true;button4.Enabled:=true;if table1.Eof thenbeginbutton1.Enabled:=true;button2.Enabled:=true;button3.Enabled:=false;button4.Enabled:=false;end;end;procedure TForm5.Button5Click(Sender: TObject);begintable1.last;button1.Enabled:=true;button2.Enabled:=true;button3.Enabled:=false;button4.Enabled:=false;end;procedure TForm5.Button6Click(Sender: TObject);beginIf table1.locate(職工號 ,edit7.text,) then table1.Delete;end;procedure TForm5.Button1Click(Sender: TObject);beginTable1.append;Table1.fieldbyname(職工號).asstring:=edit1.text;Table1.fieldbyname(姓名).asstring:=edit2.text;Table1.fieldbyname(技術等級).asstring:=edit3.text;Table1.fieldbyname(工廠編號).asstring:=edit4.text;Table1.fieldbyname(聘期).asstring:=edit5.text;Table1.fieldbyname(工資).asstring:=edit6.text;Table1.post;end;procedure TForm5.Button7Click(Sender: TObject);beginform1.show;end;end.4.1.8生產情況模塊的實現：procedure TForm6.Button1Click(Sender: TObject);begintable1.First;button1.Enabled:=false;button2.Enabled:=false;button3.Enabled:=true;button4.Enabled:=true;end;procedure TForm6.Button2Click(Sender: TObject);begintable1.Prior;button1.Enabled:=true;button2.Enabled:=true;button3.Enabled:=true;button4.Enabled:=true;if table1.Bof thenbeginbutton1.Enabled:=false;button2.Enabled:=false