管理信息系統(tǒng)實(shí)習(xí)報(bào)告.docVIP

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