【正文】 在本系統(tǒng)的開發(fā)設(shè)計過程中，得到了指導(dǎo)老師賀萍 的全力幫助，在此向賀老師致以最真摯的感謝?。?！同是也向在開發(fā)過程中提出寶貴意見和給 予幫助的同學(xué)致謝！ 。 在開發(fā)過程中，確實對軟件開發(fā)的一般過程有了較全面的了解，但由于時間匆忙，以及本人的知識水平有限，此商品進(jìn)銷存管理系統(tǒng)在功能上有很多不完善之處，肯請老師和同學(xué)們批評指正！ 重慶大學(xué)畢業(yè)設(shè)計論文 商品進(jìn)銷存管理系統(tǒng) 38 致 謝 第一次使用 DELPHI 軟件開發(fā)系統(tǒng)，也是第一次認(rèn)真按照軟件工程開發(fā)的方法來開發(fā)系統(tǒng)，有許多不熟悉之處。甚至整個應(yīng)用程序都有可能改動，導(dǎo)致開發(fā)返工。在開發(fā)的過程中，真正體會到數(shù)據(jù)庫應(yīng)用程序開發(fā)的重點是數(shù)據(jù)庫的設(shè)計。 重慶大學(xué)畢業(yè)設(shè)計論文 商品進(jìn)銷存管理系統(tǒng) 36 參考文獻(xiàn) （ 1） 陸麗娜 .軟件工程 .經(jīng)濟科學(xué)出版社 . （ 2） 丁寶康 .數(shù)據(jù)庫原理 .經(jīng)濟科學(xué)出版社 . （ 3） 黃梯云 .管理信息系統(tǒng) .經(jīng)濟科學(xué)出版社 . （ 4） 朱振元 .DELPHI 面向?qū)ο蟪绦蛟O(shè)計及其應(yīng)用 .西安電子科技大學(xué)出版社 . （ 5） 王業(yè)龍 .DELPHI 軟件工程案例精解 .電子工業(yè)出版 社 . 重慶大學(xué)畢業(yè)設(shè)計論文 商品進(jìn)銷存管理系統(tǒng) 37 結(jié)束語 經(jīng)過幾個月的努力，終于完成了商品進(jìn)銷存管理系統(tǒng)的開發(fā)設(shè)計，此系統(tǒng)基本上實現(xiàn)了對商品銷售業(yè)務(wù)的管理，減少了管理費用，提高了工作效率。通過黑盒法測試，各功能模塊基本能正常運行。 我對自己開發(fā)的系統(tǒng)采用了動態(tài)測試的白盒法和黑盒法測試。 ? 操作：將任何可能操作的動作都要操作測試，包括正常操作、非法操作。 對開發(fā)的軟件，有靜態(tài)和動態(tài)兩種測試方法。理論法用數(shù)學(xué)的方法證明程序的正確性，但還處在研究中。 重慶大學(xué)畢業(yè)設(shè)計論文 商品進(jìn)銷存管理系統(tǒng) 35 9 系統(tǒng)測試分析 一個系統(tǒng)設(shè)計完成后，必須要驗證系統(tǒng)的可靠性、穩(wěn)定性，就必須對系統(tǒng)的功能進(jìn)行測試，及時發(fā)現(xiàn)系統(tǒng)中的錯誤并予以糾正。 Exit。數(shù)據(jù)操作錯誤，請檢查 39。 if (length() 0) and (length() 0) then 。039。039。 。 。 。 。 ArrayCount := 11。 ValueArray[10] := 。 ValueArray[8] := 。 ValueArray[6] := 。 ValueArray[4] := 。 ValueArray[2] := 。 ValueArray[0] := 。 end。)。若是錯誤，提醒用戶，并且返回事務(wù)處理 if (SqlStr) then else begin ShowMessage(39。)。 (SqlStr, , 39。,39。)。 (SqlStr, , 39。,39。)。 (SqlStr, , 39。,39。)。 (SqlStr, , 39。,39。)。 (SqlStr, , 39。,39。)。 (SqlStr, , 39。,39。)。 (SqlStr, , 39。,39。)。 (SqlStr, , 39。組成一個完成的 sql 語句，通過 ExceSql來完成添加操作。 insert into jhd(單據(jù)編碼 ,錄單日期 ,供貨商名稱 ,經(jīng)手人 ,備注 ,商品簡碼 ,商品編碼 ,商品名稱 ,類別 ,規(guī)格 ,型號 ,單位 ,參考單價 ,數(shù)量 ,金額 ) values39。, )。 := formatdatetime(39。, )。 := formatdatetime(39。 8． 4 進(jìn)貨信息管理 進(jìn)貨信息管理主要是完成業(yè)務(wù)的進(jìn)貨管理，進(jìn)貨 單的信息統(tǒng)計，買進(jìn)貨物信息的記錄刪除，此外還包括進(jìn)貨退貨管理。 end。 exit。刪除記錄時操作失誤 ,記錄未刪除 ,請檢查 39。39。39。39。delete from khzl where 客戶編碼 =39。,mtConfirmation, [mbYes, mbNo], 0) = mrYes then begin SearchCode:=。 if MessageDlg(39。 exit。請選中一條要刪除的記錄 39。 end。)。具體實現(xiàn)代碼如下： if =0 then begin ShowMessage(39。 重慶大學(xué)畢業(yè)設(shè)計論文 商品進(jìn)銷存管理系統(tǒng) 31 8． 3． 2 客戶信息刪除 在刪除操作中，通過選擇 TlistView 控件中的一條記錄，得到本條記錄的客戶編碼信息。 Exit。數(shù)據(jù)操作錯誤，請檢查 39。 。 := 39。 := 39。 。 。 。 。 。 。 (ValueArray, ArrayCount, lv)。 ValueArray[11] := 。 ValueArray[9] := 。 ValueArray[7] := 。 ValueArray[5] := 。 ValueArray[3] := 。 ValueArray[1] := 。 SetLength(ValueArray,12)。 exit。對不起，客戶檔案插入記錄失敗，請檢查 !39。 //通過 ExecSQL 來完成修改和增加操作。39。)。 (SqlStr, , 39。,39。)。 (SqlStr, , 39。,39。)。 (SqlStr, , 39。,39。)。 (SqlStr, , 39。,39。)。 (SqlStr, , 39。,39。)。 (SqlStr, , 39。,39。)。 (SqlStr, , 39。,39。當(dāng)增加操作失誤時，返回事務(wù)處理。 //通過函數(shù) InsStr 把 sql 語句連接起來。 SqlStr := 39。 Exit。)。) = 1 then 重慶大學(xué)畢業(yè)設(shè)計論文 商品進(jìn)銷存管理系統(tǒng) 29 begin ShowMessage(39。, , 39。 if (39。 Exit。)。 then begin showmessage(39。 if trim() = 39。 Exit。)。 then begin showmessage(39。具體代碼如下： try if trim() = 39。如圖： 重慶大學(xué)畢業(yè)設(shè)計論文 商品進(jìn)銷存管理系統(tǒng) 28 8． 3． 1 客戶信息添加 在客戶信息管理中，通過填 寫客戶信息后，單擊“添加”按鈕，就會在數(shù)據(jù)庫中添加一條新的記錄。通過導(dǎo)航界面，可以很清晰都了解整個系統(tǒng)的操作流程，該系統(tǒng)操作方便、簡潔。 end。 重慶大學(xué)畢業(yè)設(shè)計論文 商品進(jìn)銷存管理系統(tǒng) 27 procedure (Str:string)。,4)=6 then 。,39。 begin if (39。 end。退出 39。確實要退出嗎 ?39。 procedure (Sender: TObject)。 end。 inc(LogCount)。39。密碼錯誤 39。 procedure (Sender: TObject)。 begin 。 重慶大學(xué)畢業(yè)設(shè)計論文 商品進(jìn)銷存管理系統(tǒng) 26 end。 Shift: TShiftState)。 procedure (Sender: TObject。 begin if key=vk_return then BitBtn1Click(nil)。 var Key: Word。 end。 begin GetUsers。 end。 if LogCount=3 then :=mrCancel。,MB_ICONSTOP+MB_OK)。,39。 begin if =TInfor([ex]).Password then :=mrok else begin messagebox(,39。 重慶大學(xué)畢業(yè)設(shè)計論文 商品進(jìn)銷存管理系統(tǒng) 25 end。 login_form:=nil。 if =mrOk then Result:=True else Result:=false。 begin try Login_Form:=(Application)。 end。 var i:integer。 end。 。 end。 :=([i])。 end 重慶大學(xué)畢業(yè)設(shè)計論文 商品進(jìn)銷存管理系統(tǒng) 24 else begin for i:=0 to 1 do begin Infor:=。39。管理員 39。)。,39。 (39。 (VNames)。Software\FLy\Login39。 :=HKEY_LOCAL_MACHINE。 begin reg:=。 Infor:TInfor。 var reg:TRegistry。 8． 1 登錄界面 登錄界面要求先輸入用戶 名和密碼，用戶名 為“管理員”， 密碼為 “ ” ， 當(dāng)然用戶名和密碼可以通過進(jìn)入系統(tǒng)后在“系統(tǒng)設(shè)置” —— “添加用戶”中更改。 7． 1 系統(tǒng)功能框圖 商品進(jìn)銷存管理系統(tǒng) 客戶資料 員工資料 供應(yīng)商資料 商品資料 進(jìn) 貨 進(jìn)貨退貨 進(jìn)貨查詢 銷售 客戶退貨 銷售查詢 庫存查詢統(tǒng)計 基 本 資 料 進(jìn) 貨 操 作 銷 售 操 作 庫 存 報 表 打 印 基本資料打印 進(jìn)貨單打印 銷售單打印 系 統(tǒng) 設(shè) 置 系統(tǒng)初始化 添加用戶 退 出 系 統(tǒng) 重慶大學(xué)畢業(yè)設(shè)計論文 商品進(jìn)銷存管理系統(tǒng) 22 7． 2 導(dǎo)航圖 重慶大學(xué)畢業(yè)設(shè)計論文 商品進(jìn)銷存管理系統(tǒng) 23 8 詳細(xì)設(shè)計 本系統(tǒng)由基本資料、進(jìn)貨操作、銷售操作、庫存、報表打印、系統(tǒng)設(shè)置、退出系統(tǒng)七個功能模塊組成。設(shè)計結(jié)果是一組關(guān)系模式的定義。 6． 2 系統(tǒng) E－ R