【正文】 end。 end。對(duì)不起，該商品不在 39。 open。 (sqls)。 :=strtoint()。 //創(chuàng)建參數(shù) 1 :=39。 。 then begin sqls:=sqls+39。 if 39。39。++39。39。 then sqls:=sqls+39。 if 39。 sqls:=39。) else begin with adoquery1 do begin close。) then showmessage(39。) and (=39。begin if (=39。varsqls:string。end。procedure (Sender: TObject)。浙江工業(yè)大學(xué)?？飘厴I(yè)設(shè)計(jì)論文41begin。end。beginif then:=false。end。begin:=true。end。procedure (Sender: TObject)。close。beginif then 。end。 end。]:=strtoint()。 [39。select * from produce_t where p_type=:i39。 。 if not then :=true。varsqls:string。end。 end。]:=strtoint()。 [39。select * from produce_t where p_type=:i39。 。 if not then :=true。varsqls:string。end。 :=0。 。 while not do begin ([0].asstring)。 。 first。produce_type_t39。procedure (Sender: TObject)。 end。 end。)。 except on exception do begin showmessage(39。 end。 [8].asinteger:=0。 [6].asinteger:=strtoint()。 [4].asstring:=。 [2].asstring:=。) else begin try with adoquery1 do begin insert。)) then showmessage(39。) or (=39。) or (=39。) or (=39。) or (=39。begin if ((=39。end。begin:=true。implementationuses datamodule。end。procedure (Sender: TObject)。begin 。end。procedure (Sender: TObject)。 end。 end。]:=k。 [39。 with do begin mandtext:=39。,52)。,39。begin ret:=messagebox(0,39。varret:integer。end。 :=true。 :=false。 end。)。 except浙江工業(yè)大學(xué)?？飘厴I(yè)設(shè)計(jì)論文37 on exception do begin showmessage(39。procedure (Sender: TObject)。:=false。procedure (Sender: TObject)。 。 :=false。procedure (Sender: TObject)。{$R *.dfm}procedure (Sender: TObject)。end.PType_Form: TPType_Form。 freeandnil(adoquery2)。 end。 next。 first。select * from use_t39。\date\。Data Source=39。 :=39。begini:=0。procedure (Sender: TObject)。begin。end。 end。密碼不能為空 39。39。)。 then showmessage(39。 end else begin if =39。 end。)。 if i=3 then begin showmessage(39。)。 end else begin showmessage(39。浙江工業(yè)大學(xué)?？飘厴I(yè)設(shè)計(jì)論文35 freeandnil(adoquery1)。\sound\39。 UseType:=[3].asinteger。 open。 (sqlstr)。39。++39。39。 sqlstr:=sqlstr+39。39。++39。39。)) then begin sqlstr:=sqlstr+39。)and (39。 if ((39。 sqlstr:=39。with adoquery1 do begin close。)。(39。Persist Security Info=False39。+extractfilepath()+39。Provider=。beginADOQuery1:= (self)。var ADOQuery1: TADOQuery。implementationuses Main。end。procedure (Sender: TObject)。 end。讀取錯(cuò)誤39。警告：數(shù)據(jù)庫(kù)還原失??！39。,mb_iconinformation+mb_ok)。,39。 Messagebox(handle,39。 for i:= to do := i。確定還原39。警告：現(xiàn)有數(shù)據(jù)有可能丟失，確定還原？ 39。 try if not then exit。beginDataFile := extractfilepath()+39。procedure (Sender: TObject)。 end。存盤(pán)錯(cuò)誤39。警告：數(shù)據(jù)庫(kù)備份失敗！39。 end。備份數(shù)據(jù)39。數(shù)據(jù)庫(kù)備份成功！39。),True)。 CopyFile(PChar(DataFile),PChar(+39。,mb_iconquestion+mb_yesno)=IDNo then Exit。,39。) then begin if Messagebox(handle,39。 if FileExists(+39。\date\39。var i: integer。 DataFile: String。浙江工業(yè)大學(xué)?？飘厴I(yè)設(shè)計(jì)論文33end。procedure (Sender: TObject)。begin。end。39。procedure (Sender: TObject)。)。 showmessage(39。delete from sell_back_t39。,mb_iconinformation+mb_yesno)=IDNo then exit。,39。 if messagebox(handle,39。,MB_ICONinformation+mb_ok)。),39。 元。TDResult39。歷史記錄中共統(tǒng)計(jì)銷售額： 39。 Open。select sum(s_p_price) as TDResult from sell_back_t39。 。浙江工業(yè)大學(xué)?？飘厴I(yè)設(shè)計(jì)論文32procedure (Sender: TObject)。begin。end。procedure (Sender: TObject)。end。:=extractfilepath()+39。beginwith datamodule1 dobegin。end。,MB_ICONinformation+mb_ok)。),39。 元。TDResult39。今日銷售額為 39。 Open。select sum(s_p_price) as TDResult from sell_back_t where year(s_time)=year(now()) and month(s_time)=month(now()) and day(s_time)=day(now())39。 。procedure (Sender: TObject)。begin 。end。procedure (Sender: TObject)。begin。end。 :=false。 if 2 then begin :=false。 :=false。 end。 。 :=true。\date\。Data Source=39。 then begin :=39。begin with datamodule1 do begin if =39。end。procedure (Sender: TObject)。 end。 end else浙江工業(yè)大學(xué)?？飘厴I(yè)設(shè)計(jì)論文30 begin :=true。begin if then begin :=false。end。 :=true。 :=false。procedure (Sender: TObject)。 end。 end else begin :=true。begin if then begin :=false。end。 :=true。 :=false。procedure (Sender: TObject)。 end。 end else begin :=true。begin if then begin :=false。end。procedure (Sender: TObject)。begin。end。{$R *.dfm}procedure (Sender: TObject)。另外，系統(tǒng)能及時(shí)開(kāi)發(fā)完成也得益于同組同學(xué)之間的密切協(xié)作，這里一并表示感謝！浙江工業(yè)大學(xué)專科畢業(yè)設(shè)計(jì)論文28附錄主要程序清單Main_Form: TMain_Form。毛科技老師認(rèn)真負(fù)責(zé)的工作態(tài)度，嚴(yán)謹(jǐn)?shù)闹螌W(xué)精神和深厚的理論水平都使我收益匪淺。這些都有待進(jìn)一步改善。另外，該系統(tǒng)還有許多不盡如人意的地方。此外，本軟件對(duì)于數(shù)據(jù)的一致性的問(wèn)題也通過(guò)程序進(jìn)行了有效的解決。其功能基本符合用戶需求，能夠完成商品流通過(guò)程中所涉及到的基本信息的、輸入、修改，查詢等動(dòng)能。這樣我們的系統(tǒng)具有了一定的安全性。這種測(cè)試常常與強(qiáng)度測(cè)試結(jié)合進(jìn)行，需要事先對(duì)被測(cè)試軟件提出性能指標(biāo)，如傳輸連接的最長(zhǎng)時(shí)限、傳輸?shù)腻e(cuò)誤率、計(jì)算的精度 、記錄的精度、響應(yīng)的時(shí)限和恢復(fù)時(shí)限等。強(qiáng)度測(cè)試及性能測(cè)試：測(cè)試系統(tǒng)的能力最高實(shí)際限度，即軟件在一些超負(fù)荷的情況，功能實(shí)現(xiàn)情況，如要求軟件某一行為的大量重復(fù)、輸入大量的數(shù)據(jù)、對(duì)數(shù)據(jù)庫(kù)大量復(fù)雜性的查詢等。功能測(cè)試：測(cè)試是否滿足開(kāi)發(fā)要求，是否能夠提供設(shè)計(jì)所描述的功能，是否用戶的需求都得到滿足。多態(tài)性使得面向?qū)ο蟪绦驅(qū)ν獬尸F(xiàn)出強(qiáng)大的處理能力。封裝是對(duì)數(shù)據(jù)的隱藏，外界只能通過(guò)被提供的操作來(lái)訪問(wèn)或修改數(shù)據(jù)，這樣降低了數(shù)據(jù)被任意修改和讀寫(xiě)的可能性，降低了傳統(tǒng)程序中對(duì)數(shù)據(jù)非法操作的測(cè)試。因此，軟件測(cè)試在面向?qū)ο缶幊汤锔哂兴闹匾?。軟件測(cè)試的概念 IEEE 定義為：使用人工或自動(dòng)手段來(lái)運(yùn)行或測(cè)定某個(gè)系統(tǒng)過(guò)程，其目的在于檢驗(yàn)它是否滿足規(guī)定的需求或是弄清預(yù)期結(jié)果與實(shí)際結(jié)果之間的差別。第 6 章 系統(tǒng)運(yùn)行與測(cè)試軟件在運(yùn)行過(guò)程中可能會(huì)產(chǎn)生各種各樣的問(wèn)題，也可能帶來(lái)不同程序的嚴(yán)重后果。為了實(shí)現(xiàn)系統(tǒng)的界面風(fēng)格和報(bào)浙江工業(yè)大學(xué)?？飘厴I(yè)設(shè)計(jì)論文23表輸出功能，用到了兩個(gè)控件，分別是 修改版 和 QRMaker 。 備份系