管理信息系統(tǒng)實習(xí)報告.doc

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