DELPHI課程設(shè)計貿(mào)易管理系統(tǒng)

1、1系統(tǒng)需求分析（宋體 四號 粗體）本貿(mào)易公司系統(tǒng)的業(yè)務(wù)主要用于基本信息的管理，包括供貨商信息、顧客信息、商品信息和倉庫信息的維護(hù)以及所經(jīng)營商品的進(jìn)、銷、存管理，完成的主要功能包括：（1）客戶管理包括供貨商和顧客信息的管理。管理和維護(hù)供貨商或顧客的公司名稱、地址、聯(lián)系人姓名、聯(lián)系電話、郵政編碼和公司主頁等信息。（2）商品管理包括隨所有營銷商品信息的管理。管理和維護(hù)商品的名稱、規(guī)格型號、計量單位、底線庫存和高線庫存等信息。（3）倉庫管理包括對倉庫信息的管理，管理和維護(hù)倉庫的名稱、地址和負(fù)責(zé)人等信息。（4）進(jìn)銷存管理包括進(jìn)貨管理和銷售管理兩大部分，記錄進(jìn)貨的信息，包括供應(yīng)商信息、商品信息和存貨倉庫的

2、悉尼西，同時同步更新庫存信息；記錄銷售信息，包括顧客信息、商品信息和存款倉庫的信息，同時同步更新庫存信息。（5）查詢統(tǒng)計包括商品庫存信息的查詢、進(jìn)貨信息和銷售信息的查詢。同時及時了解短線商品，即庫存量低于庫存的商品和超儲商品，以及庫存量高于高線庫存的商品的信息，從而及時的出貨和補(bǔ)貨。（正文：宋體 小四號 行間距：固定值 18磅 段前 段后間距 0）2基本功能概述（1）系統(tǒng)為公司的客戶信息建立檔案，包括供貨商和顧客的公司名稱、地址、聯(lián)系人、聯(lián)系電話、傳真、郵編和公司主頁等信息，并能對這些信息進(jìn)行增加、修改、刪除和查詢等操作。（2）系統(tǒng)為公司所營銷的商品信息建立檔案，包括商品名稱、規(guī)格、記錄單位、

3、底線庫存和高線庫存等信息，并能對這些信息進(jìn)行增加、修改、刪除和查詢等操作。（3）系統(tǒng)為公司所儲庫倉庫建立檔案，包括倉庫的名稱、地址和負(fù)責(zé)人等信息，并能對這些信息進(jìn)行增加、修改、刪除和查詢等操作。（4）當(dāng)公司進(jìn)貨時能對進(jìn)貨的信息進(jìn)行入庫管理，記錄供貨商信息、所存儲倉庫信息、進(jìn)貨商品的名稱、規(guī)格、數(shù)量和進(jìn)貨時間等進(jìn)貨信息，并能對這些信息進(jìn)行增加、修改、刪除和查詢等操作。同時需要同步更新相應(yīng)商品的庫存信息。（5）當(dāng)公司銷售時能對銷售的信息進(jìn)行入庫管理，記錄顧客信息、出貨倉庫信息、銷售商品的名稱、規(guī)格、數(shù)量和出貨時間等銷售信息，并能對這些信息進(jìn)行增加、修改、刪除和查詢等操作。同時系統(tǒng)要能自動列出倉庫中

4、可供銷售商品的信息，同時對超過庫存的銷售能制止和提示，銷售后要能同步更新商品的庫存信息。（6）當(dāng)出現(xiàn)了底線貨品和超儲貨品時，系統(tǒng)要能查出這些商品并顯示給系統(tǒng)操作員。（7）系統(tǒng)應(yīng)該具有查詢所有信息的功能。（8）系統(tǒng)應(yīng)該可以管理用戶并設(shè)置相應(yīng)的權(quán)限。（9）系統(tǒng)應(yīng)該可以對基礎(chǔ)數(shù)據(jù)進(jìn)行維護(hù)。（10）系統(tǒng)應(yīng)該有很好的可擴(kuò)展性。3系統(tǒng)模塊設(shè)計貿(mào)易管理系統(tǒng)系統(tǒng)管理基本信息管理營銷管理查詢統(tǒng)計圖1 貿(mào)易管理系統(tǒng)基本功能模塊一個通用的貿(mào)易管理系統(tǒng)可以分為以下幾個功能模塊，如圖1所示。（1）系統(tǒng)管理系統(tǒng)管理模塊包括的主要功能是對于用戶信息的管理及密碼的修改。這些設(shè)置一般不輕易改動，其包含的功能模塊如圖2所示。其中

5、系統(tǒng)用戶管理用于設(shè)置使用系統(tǒng)的用戶，包括設(shè)置權(quán)限、添加、刪除和修改用戶信息等。用戶密碼修改功能提供當(dāng)前用戶修改本人密碼的權(quán)限。系統(tǒng)管理系統(tǒng)用戶管理用戶密碼修改圖2 “系統(tǒng)管理”功能模塊（2）基本信息管理基本信息管理用于設(shè)置和維護(hù)公司的基本信息，包括供貨商和顧客的基本信息管理、倉庫信息管理和所營銷的商品信息的管理，其包含的功能模塊如圖2所示。其中，客戶管理包括了供貨商信息和顧客信息的管理和維護(hù)兩個模塊。包括公司名稱、地址、聯(lián)系人、聯(lián)系電話、傳真號碼和公司主頁等信息。倉庫信息管理用于添加、編輯和刪除公司存儲貨物的庫房的具體信息，包括倉庫的編號、名稱、地址和負(fù)責(zé)人的信息。基本信息管理客戶管理商品管理

6、圖3 “基本信息管理”功能模塊倉庫管理供貨商管理顧客管理商品管理用于添加、編輯和刪除公司所經(jīng)營商品的具體信息。（3）營銷管理營銷管理模塊是系統(tǒng)的核心功能模塊，主要實(shí)現(xiàn)了公司的進(jìn)、銷、存管理、其包含的功能模塊如圖4所示。其中，進(jìn)貨管理用于添加、設(shè)置和修改公司的進(jìn)貨信息，包括供貨商的編號和名稱、存儲倉庫的編號和名稱、所進(jìn)商品的編號、名稱、規(guī)格、計量單位、進(jìn)貨數(shù)量、單價和入庫時間的信息。銷售管理用于添加、設(shè)置和修改公司的進(jìn)貨信息，包括顧客的編號和名稱、出庫商品的編號和名稱、所售商品的編號、名稱、規(guī)格、計量單位、出貨數(shù)量、單價和出庫時間的信息。庫存管理用于管理商品的存儲信息，當(dāng)進(jìn)貨和出貨時需要更新商品

7、的庫存量。營銷管理進(jìn)貨管理庫存管理圖4 “營銷管理”功能模塊銷售管理（4）查詢統(tǒng)計查詢統(tǒng)計進(jìn)貨信息查詢短線商品統(tǒng)計圖5 “查詢統(tǒng)計”功能模塊銷售信息查詢庫存信息查詢超儲商品統(tǒng)計查詢統(tǒng)計模塊實(shí)現(xiàn)了庫存信息、進(jìn)貨信息、銷售信息的查詢，以及短線商品和超儲商品的統(tǒng)計顯示，包含的功能模塊如圖5所示。其中，庫存信息查詢模塊主要提供庫存信息的查詢和顯示，提供商品的庫存商品名稱、商品規(guī)格、商品計量單位和商品的庫存數(shù)量的信息。可以通過倉庫名稱和商品名稱進(jìn)行數(shù)據(jù)的過濾。進(jìn)貨信息查詢主要提供進(jìn)貨的時間、進(jìn)貨商品數(shù)量、名稱、規(guī)格、型號、供貨商名稱和存儲倉庫名稱等信息的顯示，可以通過供貨商名稱、商品名稱或倉庫名稱進(jìn)行數(shù)

8、據(jù)過濾。銷售信息查詢主要提供銷售商品的時間、商品數(shù)量、名稱、規(guī)格、型號、顧客名稱和出貨倉庫等信息的顯示，可以通過顧客名稱、商品名稱或倉庫名稱進(jìn)行數(shù)據(jù)過濾。短線商品統(tǒng)計提供了自動顯示當(dāng)前庫存中的庫存數(shù)量低于其底線庫存的商品信息，便于提醒公司及時補(bǔ)貨。超儲商品統(tǒng)計提供了自動顯示當(dāng)前庫存中的庫存數(shù)量高于其底線庫存的商品信息，便于提醒公司及時出貨。功能結(jié)構(gòu)如圖11所示：。4數(shù)據(jù)庫的設(shè)計根據(jù)上面的需求分析和功能模塊設(shè)計，貿(mào)易管理系統(tǒng)共需8張表： 表1 系統(tǒng)數(shù)據(jù)表及用途（所有表格為5號字，代碼為5號字）：表名用途cuser保存系統(tǒng)用戶的信息customer保存公司顧客的信息depot保存公司倉庫的信息pr

9、oduct保存公司所營銷商品的信息sell保存商品銷售的信息stock保存商品進(jìn)貨的信息storage保存商品庫存的信息圖6 數(shù)據(jù)庫圖示（ 可以截圖，也可以用表格）5各個功能模塊窗體創(chuàng)建（這個部分寫的是系統(tǒng)各個功能模塊窗體的設(shè)計和程序代碼，窗體要截圖，代碼要有注釋,代碼只列出主要功能按鈕的程序，相似按鈕的代碼可以省略）（1）創(chuàng)建登錄窗體和主窗體 圖7 系統(tǒng)數(shù)據(jù)模塊(截圖，注意圖編號要按順序排列)各個組件的主要屬性設(shè)置入下表2：表2 數(shù)據(jù)模塊組件屬性設(shè)置組件名稱屬性屬性值adoconnection1connectionstringprovider=sqloledb.1;persist secur

10、ity info=false;user id=sa;initial catalog=sale_manage;data source=bbbloginpromptfalseconnectedtrueado_providerconnectiontablenameadoconnection1providerado_customerconnectiontablenameadoconnection1customerado_userconnectiontablenameadoconnection1cuserado_productconnectiontablenameadoconnection1produc

11、tado_depotconnectiontablenameadoconnection1depotado_stockconnectiontablenameadoconnection1stockado_sellconnectiontablenameadoconnection1sellado_storageconnectiontablenameadoconnection1storageadoq_cxconnectionadoconnection1用于登錄的窗體時在整個程序運(yùn)行之前首先呈現(xiàn)給用戶的界面，通過它來進(jìn)行用戶的合法性驗證，創(chuàng)建的窗體如圖8：圖8 登錄窗體下列代碼實(shí)現(xiàn)的功能時在窗體創(chuàng)建時從系統(tǒng)

12、用戶表中讀出所有的用戶名，并將它們添加到“用戶名”的下拉列表中，在用戶單擊了“登錄”按鈕后驗證用戶輸入的用戶名和密碼是否正確，如驗證合法則登陸到主窗體。procedure tcfrm_login.formcreate(sender: tobject);begin dm.ado_user.open; dm.ado_user.sort:=userid; while not dm.ado_user.eof do begin combobox1.items.add(dm.ado_user.fieldbyname(username).asstring); dm.ado_user.next; end; c

13、ombobox1.itemindex:=0end;procedure tcfrm_login.combobox1change(sender: tobject);begin edit1.text:=; edit1.setfocus;end;procedure tcfrm_login.bitbtn2click(sender: tobject);begin dm.ado_user.close; application.terminate;end;procedure tcfrm_login.bitbtn1click(sender: tobject);var kl:variant; pass:strin

14、g;begin username:=combobox1.text; kl:=dm.ado_user.lookup(username,username,pass);/從數(shù)據(jù)庫表中查詢出選中用戶所對應(yīng)的密碼 if varisnull(kl) then pass:= else pass:=kl; if edit1.textpass then/驗證密碼，如果連續(xù)三次密碼錯誤則關(guān)閉應(yīng)用程序 begin i:=i+1; if i=3 then begin application.messagebox(pchar(密碼驗證錯誤，拒絕訪問！), pchar(提示), mb_iconexclamation);

15、application.terminate; close; end; application.messagebox(pchar(密碼驗證錯誤，重新錄入！),pchar(提示), mb_iconquestion); edit1.text:=; edit1.setfocus(); exit; end; dm.ado_user.close; cfrm_login.hide; cfrm_mainform:=tcfrm_mainform.create(application);/創(chuàng)建主窗體 cfrm_mainform.showmodal;/顯示主窗體end;procedure tcfrm_login.f

16、ormactivate(sender: tobject);beginedit1.setfocus;end;procedure tcfrm_login.formclose(sender: tobject; var action: tcloseaction);begin dm.ado_user.close; application.terminate;end;（3）主窗體設(shè)計 圖9 系統(tǒng)主界面設(shè)計（4）用戶管理窗體設(shè)計 圖10 用戶管理窗體代碼如下：procedure tcfrm_czy.datasource1datachange(sender: tobject; field: tfield);b

17、egin e_id.text:=dm.ado_user.fieldbyname(userid).asstring; e_name.text:=dm.ado_user.fieldbyname(username).asstring; if dm.ado_user.fieldbyname(manager).asboolean=true then image1.visible:=true else image1.visible:=false;end;procedure tcfrm_czy.bitbtn4click(sender: tobject);/刪除用戶記錄beginif dm.ado_user.

18、fieldbyname(manager).asboolean=true then begin application.messagebox(pchar(系統(tǒng)管理員，不可刪除！) ,pchar(提示),mb_iconexclamation+mb_ok); exit; end; mes:=是否要刪除操作員; if application.messagebox(pchar(mes),pchar(等待確認(rèn)) ,+mb_iconquestion+mb_okcancel)=idok then dm.ado_user.delete;end;procedure tcfrm_czy.bitbtn1click(s

19、ender: tobject);begin bitbtn3.tag:=1;/設(shè)置“保存”按鈕（button3）的標(biāo)記，以區(qū)別是新建還是編輯 e_id.enabled:=true; e_name.enabled:=true; e_id.text:=; e_name.text:=; bitbtn1.enabled:=false; bitbtn2.enabled:=false; bitbtn3.enabled:=true; bitbtn4.enabled:=false; e_id.setfocus();end;procedure tcfrm_czy.bitbtn3click(sender: tobj

20、ect);var bh,xm:string;begin bh:=e_id.text; xm:=e_name.text; if bitbtn3.tag=1 then/標(biāo)記為1則進(jìn)行新建操作 begin try dm.ado_user.appendrecord(bh,xm); except e_id.setfocus; e_id.text:=; e_name.text:=; mes:=錄入錯誤！+#13+#13+注意:、均不能為空 +#13+ 且不可重復(fù),請重新錄入！; application.messagebox(pchar(mes),pchar(提示),mb_iconexclamation);

21、 exit; end; dm.ado_user.sort:=userid; e_id.text:=; e_name.text:=; e_id.setfocus(); end else/標(biāo)記為2則進(jìn)行編輯操作 begin dm.ado_user.edit; dm.ado_user.fieldbyname(userid).asstring:=bh; dm.ado_user.fieldbyname(username).asstring:=xm; try dm.ado_user.post; except mes:=錄入錯誤！+#13+#13+注意:、均不能為空 +#13+ 且不可重復(fù),請重新錄入！;

22、application.messagebox(pchar(mes),pchar(提示),mb_iconexclamation); dm.ado_user.cancel; exit; end; dm.ado_user.sort:=userid; end; bitbtn3.enabled:=false; bitbtn1.enabled:=true; bitbtn2.enabled:=true; bitbtn4.enabled:=true;end;（5）供貨商信息管理窗體供貨商信息窗體與顧客信息管理窗體、倉庫信息管理窗體和商品信息管理類似窗體，所以其他三個窗體代碼略去不寫。 圖11 供貨商信息管理窗

23、體代碼如下：procedure tcfrm_provider.ghssl;/統(tǒng)計供貨商總數(shù)并顯示的函數(shù)begin providercount:=dm.ado_provider.recordcount; statusbar1.panels0.text:=當(dāng)前的供貨商總數(shù)為：+inttostr(providercount);end;procedure tcfrm_provider.tbutton1click(sender: tobject);begin dm.ado_provider.append; tbutton5.tag:=0; tbutton1.enabled:=false; tbutton

24、2.enabled:=false; tbutton3.enabled:=false; tbutton5.enabled:=true; tbutton6.enabled:=true; dbedit1.enabled:=true; dbedit2.enabled:=true; dbedit3.enabled:=true; dbedit4.enabled:=true; dbedit5.enabled:=true; dbedit6.enabled:=true; dbedit7.enabled:=true; dbedit8.enabled:=true; dbedit9.enabled:=true;end

25、;procedure tcfrm_provider.tbutton2click(sender: tobject);begintbutton5.tag:=1; tbutton1.enabled:=false; tbutton2.enabled:=false; tbutton3.enabled:=false; tbutton5.enabled:=true; tbutton6.enabled:=true; dbedit1.enabled:=true; dbedit2.enabled:=true; dbedit3.enabled:=true; dbedit4.enabled:=true; dbedit

26、5.enabled:=true; dbedit6.enabled:=true; dbedit7.enabled:=true; dbedit8.enabled:=true; dbedit9.enabled:=true;end;procedure tcfrm_provider.tbutton6click(sender: tobject);begindm.ado_provider.cancel; tbutton1.enabled:=true; tbutton2.enabled:=true; tbutton3.enabled:=true; tbutton5.enabled:=false; tbutto

27、n6.enabled:=false; dbedit1.enabled:=false; dbedit2.enabled:=false; dbedit3.enabled:=false; dbedit4.enabled:=false; dbedit5.enabled:=false; dbedit6.enabled:=false; dbedit7.enabled:=false; dbedit8.enabled:=false; dbedit9.enabled:=false;end;procedure tcfrm_provider.tbutton3click(sender: tobject);var me

28、s:string;beginmes:=是否要刪除供貨商; if application.messagebox(pchar(mes),pchar(等待確認(rèn)) ,+mb_iconquestion+mb_okcancel+mb_defbutton2)=idok then begin dm.ado_provider.delete;/刪除顧客記錄 end; ghssl;end;procedure tcfrm_provider.tbutton5click(sender: tobject);begin if dbedit1.text= then /判斷是否輸入了供貨商名稱 begin application

29、.messagebox(pchar(供貨商名稱不能為空,請重新錄入！) , pchar(提示),mb_iconexclamation); dbedit1.setfocus(); exit; end; if tbutton5.tag=1 then dm.ado_provider.edit; try dm.ado_provider.post; except application.messagebox(pchar(輸入信息有錯誤！), pchar(提示), mb_iconexclamation); dbedit1.setfocus(); exit; end; tbutton1.enabled:=t

30、rue; tbutton2.enabled:=true; tbutton3.enabled:=true; tbutton5.enabled:=false; tbutton6.enabled:=false; dbedit1.enabled:=false; dbedit2.enabled:=false; dbedit3.enabled:=false; dbedit4.enabled:=false; dbedit5.enabled:=false; dbedit6.enabled:=false; dbedit7.enabled:=false; dbedit8.enabled:=false; dbedi

31、t9.enabled:=false; ghssl; end;procedure tcfrm_provider.formcreate(sender: tobject);begin dm.ado_provider.open; dm.ado_provider.first; statusbar1.panels1.text:=當(dāng)前用戶：+username; ghssl;end;procedure tcfrm_provider.formclose(sender: tobject; var action: tcloseaction);begin dm.ado_provider.close; release;

32、end;圖12 商品信息管理窗體 圖13 倉庫信息管理窗體（6）進(jìn)貨管理窗體設(shè)計在進(jìn)貨管理窗體中單擊“新入庫”或“編輯入庫信息”按鈕，可以打開入庫信息編輯窗體，其窗體設(shè)計如圖15所示，在該窗體中可以輸入或修改商品進(jìn)貨的信息。銷售管理窗體和銷售編輯窗體與進(jìn)貨類似，代碼省略不寫。圖14 進(jìn)貨管理窗體 代碼如下procedure tcfrm_stock.tbutton3click(sender: tobject);var mes:string;beginmes:=是否要刪除入庫信息; if application.messagebox(pchar(mes),pchar(等待確認(rèn)) ,+mb_icon

33、question+mb_okcancel+mb_defbutton2)=idok then begin dm.ado_stock.delete;/刪除入庫信息 dm.ado_storage.open; if dm.ado_storage.locate(productid;depotid,vararrayof(dm.ado_stock.fieldbyname(productid).asstring,dm.ado_stock.fieldbyname(depotid).asstring),) then begin dm.ado_storage.edit; dm.ado_storage.fieldby

34、name(quantity).asfloat:= dm.ado_storage.fieldbyname(quantity).asfloat-dm.ado_stock.fieldbyname(quantity).asfloat; dm.ado_storage.post; end; end;圖15 編輯入庫信息窗體代碼如下：procedure tcfrm_stockedit.formcreate(sender: tobject);/在窗體創(chuàng)建時添加信息begin/添加供貨商編號到dbcombobox1中 dm.ado_provider.open; dm.ado_provider.first; wh

35、ile not dm.ado_provider.eof do/遍歷供貨商信息表 begin dbcombobox1.items.add(dm.ado_provider.fieldbyname(providerid).asstring); dm.ado_provider.next; end;/添加倉庫編號到dbcombobox2中 dm.ado_depot.open; dm.ado_depot.first; while not dm.ado_depot.eof do/遍歷倉庫信息表 begin dbcombobox2.items.add(dm.ado_depot.fieldbyname(depo

36、tid).asstring); dm.ado_depot.next; end;/添加商品編號到dbcombobox3中 dm.ado_product.close; dm.ado_product.open; dm.ado_product.first; while not dm.ado_product.eof do/遍歷商品信息表 begin dbcombobox3.items.add(dm.ado_product.fieldbyname(productid).asstring); dm.ado_product.next; end; datetimepicker1.date:=date();end

37、;procedure tcfrm_stockedit.dbcombobox1change(sender: tobject);begindm.ado_provider.first;if dm.ado_provider.locate(providerid,dbcombobox1.text,) then dbedit1.text:=dm.ado_provider.fieldbyname(companyname).asstring;/在用戶在下拉列表中選擇了編號后查詢出該編號所對應(yīng)的供應(yīng)商公司名稱并顯示end;procedure tcfrm_stockedit.dbcombobox2change(se

38、nder: tobject);begin dm.ado_depot.first; if dm.ado_depot.locate(depotid,dbcombobox2.text,) then dbedit2.text:=dm.ado_depot.fieldbyname(depotname).asstring;end;procedure tcfrm_stockedit.dbcombobox3change(sender: tobject);begin dm.ado_product.first; if dm.ado_product.locate(productid,dbcombobox3.text,

39、) then begin dbedit3.text:=dm.ado_product.fieldbyname(productname).asstring; dbedit4.text:=dm.ado_product.fieldbyname(spec).asstring; dbedit5.text:=dm.ado_product.fieldbyname(unit).asstring; end;/在用戶在下拉列表中選擇了編號后查詢出該編號所對應(yīng)的商品名稱、商品規(guī)格和計量單位并顯示end;procedure tcfrm_stockedit.formclose(sender: tobject; var a

40、ction: tcloseaction);begindm.ado_provider.close;dm.ado_customer.close;dm.ado_depot.close;dm.ado_storage.close;release;end;procedure tcfrm_stockedit.bitbtn2click(sender: tobject);begindm.ado_stock.cancel; dm.ado_provider.close;dm.ado_customer.close;dm.ado_depot.close;dm.ado_storage.close; close;end;p

41、rocedure tcfrm_stockedit.bitbtn1click(sender: tobject);varpaymoney:double;beginif length(dbedit6.text)=0 then/檢查是否輸入了商品數(shù)量 begin application.messagebox(pchar(商品數(shù)量不能為空,請重新錄入！) , pchar(提示),mb_iconexclamation); dbedit6.setfocus(); exit; end; if dbedit7.text= then begin application.messagebox(pchar(商品單價不

42、能為空,請重新錄入！) , pchar(提示),mb_iconexclamation); dbedit7.setfocus(); exit; end; if dbcombobox1.text= then begin application.messagebox(pchar(供貨商編號不能為空,請重新錄入！) , pchar(提示),mb_iconexclamation); dbcombobox1.setfocus(); exit; end; if dbcombobox2.text= then begin application.messagebox(pchar(倉庫編號不能為空,請重新錄入！)

43、 , pchar(提示),mb_iconexclamation); dbcombobox2.setfocus(); exit; end; if dbcombobox3.text= then begin application.messagebox(pchar(商品編號不能為空,請重新錄入！) , pchar(提示),mb_iconexclamation); dbcombobox3.setfocus(); exit; end; paymoney:=strtofloat(dbedit7.text)*strtofloat(dbedit6.text); if bitbtn1.tag=1 then dm

44、.ado_stock.edit; dm.ado_stock.fieldbyname(stockdate).asdatetime:=strtodate(datetostr(datetimepicker1.date); dm.ado_stock.fieldbyname(payment).asfloat:=paymoney; try dm.ado_stock.post; except application.messagebox(pchar(輸入數(shù)據(jù)有誤,請重新錄入！), pchar(提示), mb_iconexclamation); dbcombobox1.setfocus(); exit; en

45、d; dm.ado_storage.open; if dm.ado_storage.locate(productid;depotid,vararrayof(dbcombobox3.text,dbcombobox2.text),)then begin dm.ado_storage.edit; dm.ado_storage.fieldbyname(quantity).asfloat:= dm.ado_storage.fieldbyname(quantity).asfloat+strtofloat(dbedit6.text); dm.ado_storage.post; end else begin dm.ado_storage.append; dm.ado_storage.fieldbyname(depotid).asstring:=dbcombobox2.text; dm.ado_storage.fieldbyname(depotname).asstring:=dbedit2.text; dm.ado_storage.fieldbyname(pr