1、倉庫管理信息系統(tǒng)的設(shè)計信息管理與信息系統(tǒng)13003116張鑫宇1.1 系統(tǒng)功能模塊設(shè)計生命周期法要求我們按照系統(tǒng)的生命周期來進行系統(tǒng)開發(fā)，系統(tǒng)的需求分析為系統(tǒng)開發(fā)人員指明了系統(tǒng)開發(fā)大方向，根據(jù)第二章的需求分析，我們得知系統(tǒng)有如下的功能需求：用戶管理，商品管理，供應(yīng)商管理，庫存管理，系統(tǒng)維護和幫助說明。在對個功能模塊進行設(shè)計分析后得到如圖1所示的倉庫管理信息系統(tǒng)功能結(jié)構(gòu)圖。個人信息管理供應(yīng)商信息商品信息圖商品入庫商品出庫庫存盤點統(tǒng)計數(shù)據(jù)備份1系統(tǒng)結(jié)構(gòu)功旬數(shù)據(jù)恢復(fù)計算器寫字板關(guān)于系統(tǒng)使用幫助1.2 系統(tǒng)數(shù)據(jù)庫設(shè)計系統(tǒng)數(shù)據(jù)庫設(shè)計首先是數(shù)據(jù)庫概念結(jié)構(gòu)設(shè)計，數(shù)據(jù)庫概念結(jié)構(gòu)設(shè)計是在需求分析基礎(chǔ)上，設(shè)計出滿

2、足用戶需求的實體及它們之間的聯(lián)系。概念數(shù)據(jù)模型是在數(shù)據(jù)庫設(shè)計過程中對現(xiàn)實世界特征的第一層的數(shù)據(jù)抽象，也是數(shù)據(jù)庫設(shè)計員和用戶之間進行交流的語言。E-R圖即實體聯(lián)系圖，就是一種概念數(shù)據(jù)模型，能夠方便、準確的表示出現(xiàn)實世界中的概念，并易于用戶理解。本系統(tǒng)采用分離法繪制E-R圖。供應(yīng)商實體屬性如圖2所示圖2供應(yīng)商實體屬性圖商品實體屬性如圖3所示圖3商品實體屬性圖入庫信息實體屬性如圖4所示圖4入庫信息實體屬性圖出庫信息實體屬性如圖5所示圖5出庫信息實體屬性圖庫存實體屬性如圖6所示庫存表圖6庫存實體屬性圖實體聯(lián)系如圖7所示入庫單m,庫存統(tǒng)計表圖7實體聯(lián)系圖數(shù)據(jù)表是數(shù)據(jù)庫邏輯設(shè)計的具體實現(xiàn)，是數(shù)據(jù)庫的實質(zhì)性

3、內(nèi)容。本系統(tǒng)設(shè)計了六張數(shù)據(jù)表倉庫用戶表保存了所有用戶的信息，因該系統(tǒng)為簡化的倉庫管理系統(tǒng)，因此不對用戶做權(quán)限設(shè)置，所以所有表內(nèi)的用戶都可對系統(tǒng)進行管理操作。表1用戶表列名數(shù)據(jù)類型長度描述用戶編號varchar6設(shè)置為主鍵用戶名稱varchar10密碼varchar10供應(yīng)商信息表存儲了所有與用戶有業(yè)務(wù)來往的供應(yīng)商詳細信息表2供應(yīng)商基本信息列名數(shù)據(jù)類型長度描述供應(yīng)商編號varchar30設(shè)置為主鍵，系統(tǒng)自動生成供應(yīng)商名稱varchar30供應(yīng)商名稱長度為15字供應(yīng)向地址varchar50供應(yīng)商具體地址為25個字聯(lián)系人varchar12與供應(yīng)商具體人員進行聯(lián)系，輸入為中文聯(lián)系電話varchar16

4、0-9之間的數(shù)字及“-”傳真varchar160-9之間的數(shù)字及“-”郵政編碼varchar6郵編六位所屬地區(qū)varchar10具體地址的上級地區(qū)開戶銀行varchar25用于商業(yè)匯款1銀行賬號varchar25目前銀行賬號16或19位備注varchar50特殊信息添加，可為空商品基本信息表用于存儲已登記的供應(yīng)商所供應(yīng)的所有商品詳細信息表3商品基本信息列名數(shù)據(jù)類型長度描述冏編會varchar30設(shè)置為主鍵，系統(tǒng)自動生成冏品名稱varchar30商品名稱長度為15字商品簡稱varchar10拼首縮寫規(guī)格varchar12一單位商品的含量保質(zhì)期varchar10varchar30單位varchar

5、6包裝單位商品單價money8商品進貨價批發(fā)價money8零售價money8供應(yīng)商編號varchar30供應(yīng)商名稱varchar30備注varchar50特殊信息添加，可為空入庫信息表保存了所有的入庫操作表4商品入庫信息列名數(shù)據(jù)類型長度描述供應(yīng)商編號varchar30供應(yīng)商名稱varchar30入庫編會varchar30設(shè)置為主鍵，系統(tǒng)自動生成冏品名稱varchar30入庫商品名稱商品規(guī)格varchar12一單位的含量商品單位varchar10包裝單位商品數(shù)量varchar10入庫商品實際數(shù)量商品單價money8商品進貨價入庫日期datetime8經(jīng)手人varchar12辦理商品入庫的人員名備

6、注varchar50特殊信息添加，可為空出庫信息表內(nèi)記錄了系統(tǒng)內(nèi)所有商品的出庫操作表5商品出庫信息列名數(shù)據(jù)類型長度描述出庫編號varchar30設(shè)置為主鍵，系統(tǒng)自動生成入庫編Pvarchar30冏品名稱varchar30出庫商品名稱商品單位varchar10商品數(shù)量varchar10出庫商品實際數(shù)量商品單價money8出庫日期datetime8經(jīng)手人varchar12辦理商品出庫的人員名備注varchar50特殊信息添加，可為空庫存表通過商品入庫信息和商品出庫信息得到，顯示了倉庫庫存商品的信息。表6庫存表列名數(shù)據(jù)類型長度描述冏品名稱varchar30庫存商品名稱商品單位varchar10商品規(guī)

7、格varchar12商品單價money8商品數(shù)量varchar10庫存商品數(shù)量1.3 系統(tǒng)內(nèi)編碼設(shè)計編碼的設(shè)計、管理和維護是企業(yè)物資管理信息系統(tǒng)的一項基礎(chǔ)性工作，也是企業(yè)物資管理信息系統(tǒng)成功使用及運行的關(guān)鍵。所謂編碼就是對被管理的對象的有關(guān)屬性分別設(shè)定一個標識代碼。其目的是便于對象的識別和統(tǒng)計處理，提高有關(guān)信息處理的準確性和時效性。對于企業(yè)來講，編碼工作的重要意義在于：(1)有利于信息管理和處理的一致性和正確性。對物資進行統(tǒng)一編碼后，每一種物資對應(yīng)一種編碼，所有的處理都以編碼為基準，可以有效地避免物資漏記、錯記等現(xiàn)象。(2)有利于防止物資管理中的營私舞弊等不良事件的發(fā)生。如果企業(yè)對物資進行統(tǒng)一

8、編碼，并采用計算機進行管理后，要求企業(yè)必須制定合理的物資管理流程和嚴格的操作規(guī)程。各業(yè)務(wù)部門的有關(guān)工作人員，必須嚴格按規(guī)定的業(yè)務(wù)流程和操作規(guī)程進行各自的業(yè)務(wù)處理。(3)有利于實現(xiàn)計算機和網(wǎng)絡(luò)的管理和處理。良好的編碼方法可有效的提高計算機對物資管理有關(guān)信息的記錄、統(tǒng)計、核算的效率和質(zhì)量，且有利于數(shù)據(jù)處理程序的編寫。編碼的一般原則：(1)唯一性：要求一種具體的對象有且只有一個標增性編碼。(2)完整性：要求對所有的對象的都要進行編碼，不能遺漏。(3)擴展性：要求在滿足當前物資管理的基礎(chǔ)上，還應(yīng)保留足夠的空位，便于未來添加未來可能出現(xiàn)的新增物資。(4)分類性：按一定的標準，將種類繁多的對象分成不同的類

9、別，使同一類對象在某一方面具有相同或相近的性質(zhì)，這樣便于計算機實現(xiàn)管理和處理。(5)一貫性：編碼所采用的方法要長期延用下去，若中途更改工作量會太大100本系統(tǒng)編碼設(shè)計為實體拼音縮寫與日期系統(tǒng)內(nèi)序號結(jié)合。通過實體拼音縮寫實現(xiàn)唯一性、完整性和分類性；通過年月日格式的日期實現(xiàn)擴展性和一貫性；通過系統(tǒng)內(nèi)的記錄編號實現(xiàn)唯一性和一貫性。系統(tǒng)編碼設(shè)計滿足上述編碼原則。例如供應(yīng)商編碼格式為供應(yīng)商拼音縮寫加上系統(tǒng)現(xiàn)在時間年、月、日和系統(tǒng)內(nèi)的記錄號。如GS20100521003,003代表該記錄是系統(tǒng)內(nèi)的第三條供應(yīng)商記錄。1.4系統(tǒng)界面設(shè)計這是一個越來越注重包裝的社會，美麗的事物總是無法讓人抗拒作，出色的外觀對于

10、商品的推廣和銷售有著舉足輕重的作用。在軟件行業(yè)，面對激烈的市場競爭，作為商業(yè)化的管理系統(tǒng)，系統(tǒng)開發(fā)人員也逐漸開始重視系統(tǒng)的外觀設(shè)計，靚麗的外觀，用戶使用起來賞心悅目，對系統(tǒng)軟件的銷售有著巨大的推動作用。Delphi在系統(tǒng)幾面美化上有著得天獨厚的優(yōu)勢，Delphi有著許多用于系統(tǒng)美化的第三方控件。如ThemeEngine和SkinPack。本系統(tǒng)主要還是應(yīng)用Delphi的控件進行界面設(shè)計。Image控件可添加幾界面背景圖片，背景圖片可用Photoshop進行美化編輯。功能按鍵采用additional組件下的speedButton控件，speedButton可以添加功能圖標并可以設(shè)置成透明效果。功

11、能化圖標顯示比純文字更為直觀。系統(tǒng)整體窗體文件都應(yīng)用了Win32組件下的Xpman控件，該控件可以使界面窗體產(chǎn)生WindowsXp操作系統(tǒng)的外觀效果4。系統(tǒng)啟動緩存界面如圖8所示，是點擊系統(tǒng)exe可執(zhí)行文件后首先出現(xiàn)的界面，用于顯示系統(tǒng)數(shù)據(jù)庫連接，若連接成功進入系統(tǒng)登錄界面，失敗則彈出提示信息，提示用戶檢查配置，查看數(shù)據(jù)庫設(shè)置。圖8數(shù)據(jù)庫連接緩存界面圖9是數(shù)據(jù)庫連接失敗是出現(xiàn)的提示框，用戶應(yīng)檢查后臺數(shù)據(jù)庫設(shè)置圖9連接失敗提示框在主界面的設(shè)計上采用上面介紹的控件之外還應(yīng)用system組件下的timer控件實時顯示系統(tǒng)時間。圖10系統(tǒng)主界面按照倉庫管理的邏輯順序，首先應(yīng)進行供應(yīng)商信息的添加，供應(yīng)商

12、信息操作界面可實現(xiàn)供應(yīng)商信息的添加、修改、刪除操作。圖11供應(yīng)商信息操作界面供應(yīng)商信息添加頁面，其中供應(yīng)商編號由系統(tǒng)自動生成，具有唯一性，編號具體實現(xiàn)在代碼部分再做論述。系統(tǒng)具有容錯功能，可避免用戶的錯誤添加操作。聯(lián)系電話和傳真欄內(nèi)只能輸入數(shù)字和“-”號，郵編一欄里只能輸入數(shù)字,若用戶誤輸入其它字符，系統(tǒng)會彈出錯誤提示框。圖12供應(yīng)商信息添加界面供應(yīng)商信息修改界面同供應(yīng)商信息添加界面類似，在此不再作具體論述。供應(yīng)商信息添加完成后方可進行供應(yīng)商商品添加，商品添加界面可進行商品信息添加、修改、刪除操作。圖13商品基本信息操作界面商品信息修改界面，商品編號也是有系統(tǒng)自動生成，具備唯一性。界面內(nèi)運用s

13、tandard組件下的combox控件實現(xiàn)供應(yīng)商編號下拉，使得用戶按照先添加供應(yīng)商信息后才能添加商品信息的順序進行倉庫管理。選定供應(yīng)商編號后，因為編號具有唯一性，這里就根據(jù)編號進行供應(yīng)商名稱判定，供應(yīng)商名稱會自動添加至名稱欄內(nèi)。修改后，點擊保存按鈕，便可保存修改后的商品信息。圖14供應(yīng)商信息修改界面完成上述的供應(yīng)商信息和商品信息添加后，若有商品入庫便可進行入庫操作，同樣選擇用下拉combox控件選擇供應(yīng)商編號，供應(yīng)商名稱系統(tǒng)自動添加，入庫編號系統(tǒng)自動生成，商品名稱也用combox控件實現(xiàn)自動選擇添加，商品規(guī)格、商品單位、商品單價都根據(jù)上述輸入條件自動調(diào)用商品信息表進行添加。入庫日期填制用Win

14、32組件下的DateTimePicker控件實現(xiàn)。圖15商品入庫添加界面添加完成后的商品入庫信息在DBGrid內(nèi)顯示，如圖16所示商晶人JT怡總事qr卜樂韓花總理桁in111_制而俸_叫U皿中W中標食品4IE土強藻密嶗芋10Af甘谷由胖二品中國三收管當國條加一«231005111004白木件微晶與巨liOOcGSZ3LOCT5JMODE.和G偶訴LH融小便；。口二Er-iirrr；iurrr成而偶玄出中而僮34lllf3.iii>dIsr上海有4學LA第c-定出華市春壹有單位可看梅ig電市僧史團陷城工兩面帆«!231CO5JiCXH戶*品中江立RMt事'Q答加

15、m:lockJcent產(chǎn)利牛盒乩哨工立"酬出過我】由mlam3MmmgLOL'LZFioccDNDI。0-QMH2之之qglglipl電I震屢需弱制Mu2口口口口口口口rir-iH二二二一二KErnicrisiiDEJhe】上海毛巾丸也智：ttftlrfLXIM加01"國翔凱.*ssdioosiices方而傅軍田才如7KE2D1O0627DE5ti&ZJtOCK27C'L3前用臨安1運食品專甲金宣山林林1如球三利華,演/國ZZ曲色剪青片1%X酬X蜃要出I圖16商品入庫操作界面系統(tǒng)內(nèi)入庫商品進行出庫，出庫信息添加通過入庫編號進行，實現(xiàn)了商品先入庫后出庫

16、。如圖17所示，出庫編號也是系統(tǒng)自動生成，商品名稱、商品單位、商品單價則由根據(jù)入庫編號自動添加。商品數(shù)量一欄，若用戶輸入的出庫數(shù)量大于庫存數(shù)量，則系統(tǒng)自動彈出出錯提示，提示用戶檢查庫存重新輸入。圖17商品出庫添加界面系統(tǒng)內(nèi)所有出庫信息顯示，若部分數(shù)據(jù)輸入錯誤或數(shù)據(jù)失效可進行刪除操作。r-：陽耳：旦出.P-I尚阜=忸山*巨甌L5上CL4T工餐品而旦IMl|人唯就手曷相心|Md5；前譏*外修山用，用【K»inwh”L十T._rXEOl口底：L:112-E.JrL均的心匚皿。CKM13C5L3JJ!：nepnuirFiQiiFJEnggLunmLJCAN里UKEnarns/rnKF普格（V

17、KKL-1LtiLSDE.七嫌蟀安三至KK?Ji口在:0*立奇林Qi#MZ：1CW123!：L*呻唧對LFIX石：、口審'C前蚱石附不SJ5-1I0IT.:nr:親幣僧KJH1LLMJULL文父姓理障不IDOIW10三叩IDO1mIUDL5EDKM-IE30HDL<fr-5-liff3020tO-5-WLrZDLCrt-l302mn-u/l>皿口-5寸口王干工工匚七工n：i匚注也£CKoncsesoianmiDORT-i11HC-JJCCKi23DL-ll水KJGIMS20譏4水MT'lrrn-Ti|隼甘5i衛(wèi)口LM-2Dt120LO-5-S案壬302DL

18、O-5-B7喏主圖18商品入庫操作界面商品庫存查詢界面，倉庫管理最重要的數(shù)據(jù)是現(xiàn)有庫存數(shù)量回。因此庫存查詢是倉庫管理信息系統(tǒng)內(nèi)很是重要的一塊內(nèi)容，本系統(tǒng)的庫存查詢根據(jù)商品名稱進行查詢。通過2個speedButton控件和1個DBGrid控件可實現(xiàn)全部商品庫存和單一商品庫存的查詢功能，如圖19所示。圖19商品庫存查詢界面點擊庫存查詢界面的圖標按鈕可顯示商品庫存數(shù)量的柱形圖，圖表是一種用來表達和傳遞信息的工具用，圖表使得信息的表達變得鮮明生動。圖20庫存圖表顯示界面數(shù)據(jù)是企業(yè)重要的資源，而在計算機網(wǎng)絡(luò)時代的今天，只要發(fā)生數(shù)據(jù)傳輸、數(shù)據(jù)存儲和數(shù)據(jù)交換，就有可能產(chǎn)生數(shù)據(jù)故障。在信息系統(tǒng)建設(shè)中，作為數(shù)據(jù)

19、信息安全性的考慮，數(shù)據(jù)備份和數(shù)據(jù)恢復(fù)是信息系統(tǒng)中必不可少的功能到本系統(tǒng)建立就簡單的數(shù)據(jù)備份與恢復(fù)功能，主要是為了減少和避免用戶的誤操作和系統(tǒng)環(huán)境的原因致使數(shù)據(jù)信息破壞而照成損失。圖21系統(tǒng)數(shù)據(jù)備份界面數(shù)據(jù)恢復(fù)是根據(jù)備份的數(shù)據(jù)進行系統(tǒng)數(shù)據(jù)恢復(fù)。軟據(jù)恢復(fù)孩據(jù)恢復(fù)數(shù)據(jù)恢復(fù)退出圖22系統(tǒng)數(shù)據(jù)恢復(fù)界面?zhèn)}庫管理信息系統(tǒng)的系統(tǒng)實現(xiàn)系統(tǒng)主要功能模塊的實現(xiàn)系統(tǒng)關(guān)鍵代碼系統(tǒng)啟動連接代碼調(diào)用DM,本系統(tǒng)把數(shù)據(jù)連接控件都放置在一個窗體DM里面，方便了連接查詢和控制。若ADOConnection控件未與SQLServer2000數(shù)據(jù)庫進行連接，彈出錯誤提示框。Application.CreateForm(TDM,DM)

20、;ifnotDM.ADOConn.ConnectedthenbeginShowMessage(連接后臺數(shù)據(jù)庫失敗，請檢查配置是否完好，數(shù)據(jù)庫是否存在)；halt;end;若數(shù)據(jù)庫已連接，則調(diào)用系統(tǒng)登錄界面Application.CreateForm(Tmain,main);SC.Hide;Sc.FreeOnRelease;Application.CreateForm(TLOGIN,LOGIN);LOGIN.ShowModal;LOGIN.Free;Application.Run;系統(tǒng)登錄界面運用ComboBox,SpeedButton和edit控件完成系統(tǒng)登錄設(shè)計。用Combobox控件得到后

21、臺數(shù)據(jù)內(nèi)的所有用戶名，防止為登記用戶登錄。procedureTLOGIN.ComboBox1DropDown(Sender:TObject);vari:integer;beginComboBox1.Clear;DM.QUSER.Open;if(DM.QUSER.RecordCount>0)thenDM.QUSER.First;fori:=0toDM.QUSER.RecordCount-1dobegin/得到所有用戶名稱ComboBox1.Items.Add(DM.QUSER.FieldByName('用戶名稱').AsString);DM.QUSER.Next;end;e

22、nd;確定登錄系統(tǒng)的用戶名后，在edit空間中輸入系統(tǒng)用戶密碼。procedureTLOGIN.ComboBox1Change(Sender:TObject);beginDM.QUSER.Locate('用戶名稱',ComboBox1.text,);Edit1.SetFocus;end;procedureTLOGIN.Edit1KeyPress(Sender:TObject;varKey:Char);beginif(key=#13)then/當輸完密碼，敲入回車鍵，Button1執(zhí)行單擊操作SpeedButton1Click(Sender);end;利用speedbutton進

23、行用戶輸入密碼與數(shù)據(jù)庫內(nèi)用戶密碼比對，用Inc函數(shù)進行密碼輸入計數(shù)，若輸入密碼錯誤3次，則強制關(guān)閉系統(tǒng)。procedureTLOGIN.SpeedButton1Click(Sender:TObject);beginInc(iTimes);Main.Auser.UserName:=DM.QUSER.FieldByName('用戶名稱').AsString;ifDM.QUSER.FieldByName('用戶名稱').AsString=''thenApplication.MessageBox('沒有用戶存在，請預(yù)先設(shè)定好用戶！',&#

24、39;提示',4);ifTrim(Edit1.Text)=DM.QUSER.FieldByName('密碼').AsStringthenbeginClose;Main.Caption:=倉庫管理系統(tǒng)2010'DM.QUSER.Open;endelsebeginMessagebox(用戶名或密碼錯誤，請重新輸入)；Edit1.Text:=''end;IFiTimes=4thenbeginApplication.MessageBox('您進行系統(tǒng)身份確認程序錯誤已經(jīng)超過3次，本系統(tǒng)將停止執(zhí)行！,提示！)；Application.Termina

25、te;end;end;進入系統(tǒng)后進行倉儲管理，供應(yīng)商信息操作功能與商品基本信息操作功能類似，這里也供應(yīng)商信息操作進行系統(tǒng)代碼分析。添加功能由Groupbox,speedbutton,edit,memd空件實現(xiàn)申明功能實現(xiàn)函數(shù)publicProcedurebh;自動編號functionCanSave:Boolean;/判斷是否保存procedureposting;/提交數(shù)據(jù)procedureGetAll;/獲得所有數(shù)據(jù)proceduretr;去除空字符Publicdeclarationsend;實現(xiàn)系統(tǒng)自動編碼5procedureTGYSXX1.BH;vars,m:string;i:intege

26、r;begins:='GS'+FormatDateTime('yyyymmdd',Now();WithDM.QGYSXXdobeginClose;SQL.Clear;SQL.Add('selectmax(供應(yīng)商編號)asssFrom供應(yīng)商基本信息');Open;end;若系統(tǒng)內(nèi)無記錄，則從001開始IfDM.DSOGYSXX.FieldByName('供應(yīng)商編號').Value=nullthens:=s+'001'else若系統(tǒng)內(nèi)已存有記錄，則在有記錄上加1beginDM.DSOGYSXX.Last;m:=Trim

27、(DM.DSOGYSXX.FieldByName('供應(yīng)商編號').Value);i:=StrToInt(Trim(Copy(m,11,3);ifi<9thens:=s+'00'+InttoStr(i+1)elseifi<99thens:=s+'0'+InttoStr(i+1)elses:=s+InttoStr(i+1);end;Edit1.Text:=s;end;系統(tǒng)信息添加，對用戶輸入信息進行控制，防止用戶輸入錯誤信息，造成系統(tǒng)數(shù)據(jù)混亂，體現(xiàn)系統(tǒng)容錯功能。這里截取其中的兩端代碼。procedureTGYSXX1.Edit4KeyP

28、ress(Sender:TObject;varKey:Char);beginifkeyin'a'.'z','A'.'Z','0'.'9',#46thenkey:=#0;ifkeyin'a'.'z','A'.'Z','0'.'9',#46thenshowMessage般系人為中文!');/,'提示!',64ifkey=#13thenEdit5.SetFocus;end;procedu

29、reTGYSXX1.Edit5KeyPress(Sender:TObject;varKey:Char);beginifnot(keyin'-','0'.'9',#13,#8)thenkey:=#0;ifnot(keyin'-','0'.'9',#13,#8)thenshowMessage般系電話輸入為0至9之間的數(shù)字和-!);/，'提示!,64ifkey=#13thenEdit6.SetFocus;end;商品入庫信息添加添加功能由Groupbox,speedbutton,edit,memo

30、,datetimepick空件實現(xiàn)，若是系統(tǒng)內(nèi)第一次添加的數(shù)據(jù)，則直接添加至數(shù)據(jù)庫beginSQL.Add('INSERTINTO庫存表(商品名稱，商品規(guī)格，商品單位，商品單價,商品數(shù)量)');SQL.Add('Values(:商品名稱，:商品規(guī)格，:商品單位，:商品單價，:商品數(shù)量)');Parameters.Items0.Value:=ComboBox2.Text;Parameters.Items1.Value:=Edit3.Text;Parameters.Items2.Value:=Edit4.Text;Parameters.Items3.Value:=strtofloat(Edit5.Text);Parameters.Items4.Value:=strtoint(Edit6.Text);Prepared:=True;ExecSQL;