超市進(jìn)銷存管理系統(tǒng)畢業(yè)論文-資料下載頁(yè)

　　

【正文】 能是錄入商品基本信息，便于其他窗體使用，在該模塊中可以設(shè)置商品的報(bào)警上下限。商品基本信息模塊運(yùn)行結(jié)果如圖515所示。圖515 商品基本信息模塊運(yùn)行界面1．窗體設(shè)計(jì)步驟（1）從基礎(chǔ)窗體繼承一個(gè)窗體，命名為“F_sbjbcx”，設(shè)置其Caption屬性為“商品基本信息”。（2）在“Additional”組件頁(yè)中點(diǎn)選“TBevel”組件，為每一類數(shù)據(jù)添加邊框。（3）在“Additional”組件頁(yè)中點(diǎn)選“TGroupBox”組件，添加到窗體上，命名為“GroupBox1”，設(shè)置其Caption屬性為“輸入報(bào)警值請(qǐng)輸入大于0的數(shù) 0為不報(bào)警”。在GroupBox1組件上添加2個(gè)TLabel組件和2個(gè)TEdit組件。分別設(shè)置TLabel組件的Caption屬性為“商品報(bào)警上限：”、“商品報(bào)警下限：”。（4）在窗體上添加TLabel組件和TEdit組件，在“Additional”組件頁(yè)中點(diǎn)選“TBitBtn”組件，添加到窗體上，分別命名為“BitBtn1”、“BitBtn2”，設(shè)置BitBtn1組件的Caption屬性為“保存”，通過Glyph屬性為其指定圖標(biāo)。設(shè)置BitBtn2組件的Caption屬性為“退出”，通過Glyph屬性為其指定圖標(biāo)。2．程序相關(guān)代碼在窗體的OnShow事件處理過程中如果為修改，將要修改的記錄顯示在窗體的編輯框中。代碼如下：procedure (Sender: TObject)。begin inherited。 //調(diào)用父類的同名方法 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)。 //如果為添加操作調(diào)用過程getspbh得到編號(hào) :=。 end。 except end。end。調(diào)用getspbh過程得到商品編號(hào)。getspbh過程完整代碼如下：procedure (sender:Tobject)。 //得到商品編號(hào)begin 。 if =0 then spbh:=39。T39。+formatfloat(39。0000039。,1) //格式化編號(hào) else spbh:=39。T39。+Formatfloat(39。0000039。,strtoint(copy([0].AsString,2,5))+1)。end。 進(jìn)貨單錄入模塊設(shè)計(jì)進(jìn)貨單錄入窗體主要功能是錄入進(jìn)貨的相關(guān)信息，在該模塊中支持多行錄入，可以調(diào)用其他信息提示窗體。進(jìn)貨單錄入模塊運(yùn)行結(jié)果如圖516所示。圖516 進(jìn)貨單錄入模塊運(yùn)行界面1．窗體設(shè)計(jì)步驟（1）從基礎(chǔ)窗體繼承一個(gè)窗體，命名為“F_jhd”，設(shè)置其Caption屬性為“進(jìn)貨單錄入”。（2）在窗體上添加TLabel組件、TEdit組件、TDateTimePicker組件，用于輸入信息。在“Additional”組件頁(yè)中點(diǎn)選“TStringGrid”組件，添加到窗體上，命名為“StringGrid1”。設(shè)置StringGrid1組件的RowCount屬性為“10”；ColCount屬性為“10”。（3）在窗體上添加TSpeedButton組件，通過Glyph屬性為其指定圖標(biāo)。添加TBitBtn組件，用于完成“保存”、“取消”功能。（4）在窗體上添加TPanel組件，命名為“Panel1”，設(shè)置其Caption屬性為空。用于顯示統(tǒng)計(jì)應(yīng)付金額。（5）在窗體上添加TADOQuery組件，命名為“ADOQuery1”，設(shè)置其Connection屬性為“”。2．程序相關(guān)代碼在窗體的OnShow事件處理過程中初始化相關(guān)信息。代碼如下：procedure (Sender: TObject)。begin inherited。 :=1。 //窗體標(biāo)記 :=now()。 //初始化為當(dāng)天日期 with do //設(shè)置列標(biāo)題 begin Cells[1,0]:=39。商品編號(hào)39。 Cells[2,0]:=39。商品全稱39。 Cells[3,0]:=39。商品型號(hào)39。 Cells[4,0]:=39。商品規(guī)格39。 Cells[5,0]:=39。單位39。 Cells[6,0]:=39。產(chǎn)地39。 Cells[7,0]:=39。數(shù)量39。 Cells[8,0]:=39。進(jìn)貨價(jià)39。 Cells[9,0]:=39。金額39。 end。 with adoquery1 do begin close。 。 (39。select * from tb_warehouse_main39。)。 Open。 end。 (sender)。 //調(diào)用過程getspbh取得編號(hào) :=spbh。end。雙擊TStringGrid組件左側(cè)的按鈕動(dòng)態(tài)創(chuàng)建信息提示窗體。代碼如下：procedure (Sender: TObject)。begin inherited。 //調(diào)用父類的同名方法 (TF_kcspxz, F_kcspxz)。 。 。end。在彈出的信息提示窗體的【確定】按鈕單擊事件處理過程中將數(shù)據(jù)添加到TStringGrid組件中。代碼如下：if =1 then //往進(jìn)貨單錄入窗體添加數(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ù)庫(kù)的數(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。 總結(jié)在這個(gè)軟件設(shè)計(jì)的最初，我即按照老師的要求一步一步往下做，努力作好需求分析。因?yàn)樵谲浖拈_發(fā)過程中需求分析是十分重要的。在初步了解的基礎(chǔ)上，我根據(jù)老師給予的關(guān)于進(jìn)銷存管理系統(tǒng)設(shè)計(jì)思路的講解，對(duì)系統(tǒng)進(jìn)行了詳細(xì)的需求分析。這樣就使我對(duì)于系統(tǒng)的開發(fā)有了一個(gè)大致的思路。在最初的幾個(gè)星期里，我一直在做完善需求分析的重復(fù)工作。這樣就為下一步的設(shè)計(jì)打下了堅(jiān)實(shí)的基礎(chǔ)。到了數(shù)據(jù)庫(kù)設(shè)計(jì)階段，首先選擇了SQL Server 2005作為數(shù)據(jù)庫(kù)管理系統(tǒng)。因?yàn)槲宜枰臄?shù)據(jù)庫(kù)是比較復(fù)雜的，經(jīng)過一段時(shí)間的努力，我的數(shù)據(jù)庫(kù)建立成功了。下一階段就到了編程階段了，在這個(gè)階段我們首先考慮的是界面，一個(gè)界面設(shè)計(jì)的好壞直接關(guān)系到使用者的方便程度，于是老師提出的要求就是實(shí)用。在實(shí)用的基礎(chǔ)上盡量美觀大方。我經(jīng)過反復(fù)的改正后，界面固定下來。然后就進(jìn)入編寫程序階段，在編程過程中，我借鑒了很多資料，同時(shí)也請(qǐng)教了其他有經(jīng)驗(yàn)的同學(xué)。在可以實(shí)現(xiàn)同一功能的多個(gè)控件中經(jīng)過仔細(xì)研究，確定了最優(yōu)的控件。這樣在老師的要求和幫助下，我的界面逐漸得以完善并最終確定下來，到了真正編寫代碼的時(shí)候，我在需求分析做的努力逐漸顯示出來，因?yàn)樵谶@個(gè)過程中，我?guī)缀鯖]有遇到什么十分棘手的問題，各項(xiàng)功能也隨之增加。在經(jīng)過和老師的交流討論之后，我的設(shè)計(jì)也逐漸進(jìn)入了尾聲。這樣，我的設(shè)計(jì)就基本上完成了。在接下來的時(shí)間里，我繼續(xù)對(duì)設(shè)計(jì)進(jìn)行優(yōu)化，包括界面的美觀，以及程序的設(shè)計(jì)。在嚴(yán)格的測(cè)試后，逐漸使系統(tǒng)不再出現(xiàn)大的錯(cuò)誤,能夠很穩(wěn)定的運(yùn)行。出品人：林康禁、巫茂森、楊智雄