【導讀】貨、銷售、錢流、庫存、統(tǒng)計及查賬。通過一個典型超市進銷存管理。重要性不言而喻。但是，目前超市在具體的業(yè)務流程處理過程中仍然。達到理想的效果。做的進銷存管理軟件。在設計過程中最大限度滿足用戶的要求，因此，該系統(tǒng)具有較強的實用性和針對性。本系統(tǒng)界面友好，操作簡單，可。維護性強，功能完備。本論文介紹了進銷存管理信息系統(tǒng)開發(fā)的全過。出了系統(tǒng)的使用說明和系統(tǒng)設計的心得體會。

　　

【正文】 )。 end。 end。 end。 在【打印】按鈕的單擊事件處理過程中指定報表文件、預覽報表。代碼如下： procedure (Sender: TObject)。 begin inherited。 //調用父類的同名方法 //指定報表文件 :=ExtractFilePath()+39。39。 。 //預覽報表 end。 商品基本信息模塊設計 商品基本信息模塊主要功能是錄入商品基本信息，便于其他窗體使用，在該模塊中可以設置商品的報警上下限。商品基本信息模塊運行結果如圖 515 所示。 課件之家精心整理資料 歡迎你的欣賞 課件之家精心整理資料 歡迎你的欣賞 圖 515 商品基本信息模塊運行界面 1．窗體設計步驟 （ 1）從基礎窗體繼承一個窗體，命名為“ F_sbjbcx”，設置其 Caption 屬性為“商品基本信息”。 （ 2）在“ Additional”組件頁中點選“ TBevel”組件，為每一類數(shù)據(jù)添加邊框。 （ 3）在“ Additional”組件頁中點選“ TGroupBox”組件，添加到窗體上，命名為“ GroupBox1”，設置其 Caption 屬性為“輸入報警值 請輸入大于 0的數(shù) 0 為不報警”。在 GroupBox1 組件上添加 2 個 TLabel 組件和 2 個 TEdit組件。分別設置 TLabel 組件的 Caption 屬性為“商品報警上限：”、“商品報警下限：”。 （ 4）在窗體上添加 TLabel 組件和 TEdit 組件，在“ Additional”組件頁中點選“ TBitBtn”組件，添加到窗體上，分別命名為“ BitBtn1”、“ BitBtn2”，設置 BitBtn1 組件的 Caption 屬性為“保存”，通過 Glyph 屬性為其指定圖標。設置 BitBtn2 組件的 Caption 屬性為“退出”，通過 Glyph 屬性為其指定圖標。 2．程序相關代碼 在窗體的 OnShow 事件處理過程中如果為修改，將要修改的記錄顯示在窗體的編輯框中。代碼如下： procedure (Sender: TObject)。 begin inherited。 //調用父類的同名方法 try if =True then //判斷是否為修改 with do begin :=fieldbyname(39。fullnamed39。).AsString。 :=fieldbyname(39。tradecode39。).AsString。 課件之家精心整理資料 歡迎你的欣賞 課件之家精心整理資料 歡迎你的欣賞 :=fieldbyname(39。name39。).AsString。 :=fieldbyname(39。type39。).AsString。 :=fieldbyname(39。standard39。).AsString。 :=fieldbyname(39。unit39。).AsString。 :=fieldbyname(39。produce39。).AsString。 :=fieldbyname(39。provideinf39。).AsString。 :=fieldbyname(39。memo39。).AsString。 :=inttostr(fieldbyname(39。upperlimit39。).AsInteger)。 :=inttostr(fieldbyname(39。lowerlimit39。).AsInteger)。 end else begin (sender)。 //如果為添加操作調用過程 getspbh得到編號 :=。 end。 except end。 end。 調用 getspbh 過程得到商品編號。 getspbh 過程完整代碼如下： procedure (sender:Tobject)。 //得到商品編號 begin 。 if =0 then spbh:=39。T39。+formatfloat(39。0000039。,1) //格式化編號 else spbh:=39。T39。+Formatfloat(39。0000039。,strtoint(copy([0].AsString,2,5))+1)。 end。 進貨單錄入模塊設計 進貨單錄入窗體主要功能是錄入進貨的相關信息，在該模塊中支持多行錄入，可以調用其他信息提示窗體。進貨單錄入模塊運行結果如圖 516 所示。 課件之家精心整理資料 歡迎你的欣賞 課件之家精心整理資料 歡迎你的欣賞 圖 516 進貨單錄入模塊運行界面 1．窗體設計步驟 （ 1）從基礎窗體繼承一個窗體，命名為“ F_jhd”，設置其 Caption 屬性為“進貨單錄入”。 （ 2）在窗體上添加 TLabel 組件、 TEdit 組件、 TDateTimePicker 組件，用于輸入信息。在“ Additional”組件頁中點選“ TStringGrid”組件，添加到窗體上，命名為“ StringGrid1”。設置 StringGrid1 組件的 RowCount 屬性為“ 10”；ColCount 屬性為“ 10”。 （ 3）在窗體上添加 TSpeedButton 組件，通過 Glyph 屬性為其指定圖標。添加 TBitBtn 組件，用于完成“保存”、“取消”功能。 （ 4）在窗體上添加 TPanel 組件，命 名為“ Panel1”，設置其 Caption 屬性為空。用于顯示統(tǒng)計應付金額。 （ 5）在窗體上添加 TADOQuery組件，命名為“ ADOQuery1”，設置其 Connection屬性為“ ”。 2．程序相關代碼 在窗體的 OnShow 事件處理過程中初始化相關信息。代碼如下： procedure (Sender: TObject)。 begin inherited。 :=1。 //窗體標記 :=now()。 //初始化為當天日期 with do //設置列標題 begin Cells[1,0]:=39。商品編號 39。 Cells[2,0]:=39。商品全稱 39。 Cells[3,0]:=39。商品型號 39。 Cells[4,0]:=39。商品規(guī)格 39。 課件之家精心整理資料 歡迎你的欣賞 課件之家精心整理資料 歡迎你的欣賞 Cells[5,0]:=39。單位 39。 Cells[6,0]:=39。產地 39。 Cells[7,0]:=39。數(shù)量 39。 Cells[8,0]:=39。進貨價 39。 Cells[9,0]:=39。金額 39。 end。 with adoquery1 do begin close。 。 (39。select * from tb_warehouse_main39。)。 Open。 end。 (sender)。 //調用過程 getspbh取得編 號 :=spbh。 end。 雙擊 TStringGrid 組件左側的按鈕動態(tài)創(chuàng)建信息提示窗體。 代碼如下： procedure (Sender: TObject)。 begin inherited。 //調用父類的同名方法 (TF_kcspxz, F_kcspxz)。 。 。 end。 在彈出的信息提示 窗體的【確定】按鈕單擊事件處理過程中將數(shù)據(jù)添加到TStringGrid 組件中。代碼如下： if =1 then //往進貨單錄入窗體添加數(shù)據(jù) begin for xh:=1 to do begin if Trim([1,xh])=39。39。 then //查找第幾行為空 begin grow:=xh。 break。 end。 end。 for xh:=0 to do //將數(shù)據(jù)庫的數(shù)據(jù)讀出 begin gcol:=xh。 if xh=2 then gcol:=gcol+1。 [xh+1,grow]:=[gcol].Value。 //將課件之家精心整理資料 歡迎你的欣賞 課件之家精心整理資料 歡迎你的欣賞 數(shù)據(jù)添加到單元格中 end。 [8,grow]:=[8].Value。 。 :=7。 :=grow。 end。 課件之家精心整理資料 歡迎你的欣賞 課件之家精心整理資料 歡迎你的欣賞 總結 在這個軟件設計的最初，我即按照老師的要求一步一步往下做，努力作好需求分析。因為在軟件的開發(fā)過程中需求分析是十分重要的。在初步了解的基礎上，我根據(jù) 老師給予的關于 進銷存管理 系統(tǒng)設計思路的講解，對系統(tǒng)進行了詳細的需求分析。這樣就使我對于系統(tǒng)的開發(fā)有了一個大致的思路。在最初的幾個星期里，我一直在做完善需求分析的重復工作。這樣就為下一步的設計打下了堅實的基礎。 到了數(shù)據(jù)庫設計階段，首先選擇了 SQL Server 2021 作為數(shù)據(jù)庫管理系統(tǒng)。因為我 所 需要的數(shù)據(jù)庫 是比較 復雜 的 ，經過一段時間的努力，我 的 數(shù)據(jù)庫建立成功了。 下一階段就到了編程階段了，在這個階段我們首先考慮的是界面，一個界面設計的好壞直接關系到使用者的方便程度，于是老師提出的要求就是實用。在實用的基礎 上盡量美觀大方。我經過反復的改正后，界面固定下來。然后就進入編寫程序階段，在編程過程中，我借鑒了很多資料，同時也請教了其他有經驗的同學。在可以實現(xiàn)同一功能的多個控件中經過仔細研究，確定了最優(yōu)的控件。這樣在老師的要求和幫助下，我的界面逐漸得以完善并最終確定下來，到了真正編寫代碼的時候，我在需求分析做的努力逐漸顯示出來，因為在這個過程中，我?guī)缀鯖]有遇到什么十分棘手的問題，各項功能也隨之增加。在經過和老師的交流討論之后，我的設計也逐漸進入了尾聲。這樣，我的設計就基本上完成了。 在接下來的時間里，我繼續(xù)對設計進行優(yōu) 化，包括界面的美觀，以及程序的設計。在嚴格的測試后，逐漸使系統(tǒng)不再出現(xiàn)大的錯誤 ,能夠很穩(wěn)定的運行。 課件之家精心整理資料 歡迎你的欣賞 課件之家精心整理資料 歡迎你的欣賞 參考文獻 [1] Simon C[M].北京 :清華大學出版社 ,2021。 [2] Jeffrey .NET 框架程序設計 [M].北京 :機械工業(yè)出版社 ,2021。 [3] James Design Patterns[M].北京 :電子工業(yè)出版社 ,2021。 [4] Richard Network Programming[M].北京 :電子工業(yè)出版社 ,2021。 [5] 劉曉華 .精通 .NET核心技術 [M].北京 :電子工業(yè)出版社 ,2021。 [6] 狄龍 (Darin Dillon)..NET 開發(fā)人員調試策略 [M].北京 :清華大學出版社 ,2021。 [7] 劉友話 ..Net環(huán)境下數(shù)據(jù)庫應用系統(tǒng)開發(fā)技術 [M].北京 :科學出版社 ,2021。 [8]賽奎春等 .Visual Basic 精彩編程 200例 .機械工業(yè)出版社 ,2021。 [9]高春艷等 .Visual Basic 數(shù)據(jù)庫開發(fā)實例解析 .機械工 業(yè)出版社 ,2021。 [10]王國輝等 .Visual FoxPro 數(shù)據(jù)庫開發(fā)實例解析 .機械工業(yè)出版社 ,2021。 [11]張振坤等 .Power Builder 數(shù)據(jù)庫開發(fā)實例解析 .機械工業(yè)出版社 ,2021。 [12]鄭驍鵬等 .Delphi數(shù)據(jù)庫開發(fā)實例解析 .機械工業(yè)出版社 ,2021。 [13]李文立等 .PowerBuilder 精彩編程 200例 .機械工業(yè)出版社 ,2021。 [14]董韶華等 .Visual FoxPro 精彩編程 200例 .機械工業(yè)出版社 ,2021。 [15]王國輝等 .ASP數(shù)據(jù)庫開發(fā)實例解析 .機械工業(yè)出版社 ,2021。 [16]趙智勇等 .Delphi工程應用與項目實踐 .機械工業(yè)出版社 ,2021。 [17]李俊民等 .Visual Basic 工程應用與項目實踐 .機械工業(yè)出版社