便利店管理信息系統(tǒng)的設(shè)計與實現(xiàn)畢業(yè)論文-閱讀頁
2025-07-13 09:34本頁面
【正文】 準(zhǔn)確度。具體實現(xiàn)界面如圖49所示，同時通過本系統(tǒng)可以計算出最佳訂貨的周期，從而計算出下次訂貨的時間。圖49訂貨需求預(yù)測圖 （一）經(jīng)濟訂貨批量模型對于特定的商品在商品需求量確定后我們還需要要綜合考慮訂貨費，庫存費用，供應(yīng)商給予的價格折扣來確定單位時間內(nèi)最優(yōu)的訂貨批量根據(jù)運籌學(xué)我們可以運用經(jīng)濟訂貨批量模型和價格折扣模型來計算最優(yōu)訂貨批量【6】。當(dāng)企業(yè)按照經(jīng)濟訂貨批量來訂貨時，可實現(xiàn)訂貨成本和儲存成本之和最小化。這就是價格折扣。否則進行第二步計算。如果計算出來的EOQ不在所給的優(yōu)惠價格范圍內(nèi)，則需要按步驟三計算。如果計算出來的EOQ不在所給的優(yōu)惠價格范圍內(nèi)，則需要重復(fù)步驟三計算。同時還支持報表的答應(yīng)功能。同時還可以對商品的訂貨情況進行日統(tǒng)計等功能。方便的對訂貨、入庫、銷售進行管理訂貨單打印主要按日期進行打印預(yù)覽。 圖412訂貨情況報表圖 圖413入庫情況報表圖圖414銷售情況報表圖為了方式管理這操作失誤等方面造成的損失，本系統(tǒng)添加了對數(shù)據(jù)庫驚醒備份和恢復(fù)的功能，如圖41圖416所示： 圖415數(shù)據(jù)恢復(fù)圖 圖416數(shù)據(jù)備份圖為了方便對系統(tǒng)的維護和監(jiān)控，本系統(tǒng)自動能夠記載系統(tǒng)中日常事件的功能。其實現(xiàn)界面如圖418所示。首先，要衷心感謝作者的導(dǎo)師陳誠導(dǎo)師的悉心教導(dǎo)。從她身上學(xué)到了很多東西，她認真負責(zé)的工作態(tài)度，嚴謹?shù)闹螌W(xué)精神和深厚的理論水平都使我受益非淺。另外，我還要感謝論文寫作過程中關(guān)心和幫助我的同學(xué)，感謝他們在學(xué)習(xí)和生活上一直鼓勵和支持我。 作者：許劍宏2011年5月 附錄一價格折扣模型代碼：Private Sub Command1_Click()’計算出最優(yōu)訂貨批量 Dim ki As Single, tmp1 As Single Cd = 39。存儲費 D = Text3 39。折扣個數(shù) Q = Sqr(2 * Cd * D / Cp) 39?？傎M用計算 P = ki tmp1 = Text8 / 2 * Cp + D * Cd / Text8 + D * Text7 tmp2 = Text11 / 2 * Cp + D * Cd / Text11 + D * Text10 If tmp1 F Then F = tmp1 Q = Text8 P = Text7 End If If tmp2 F Then F = tmp2 Q = Text11 P = Text10 End If End If If Q = Val(Text8) And Q = Val() Then ki = F = Q / 2 * Cp + D * Cd / Q + D * ki P = ki tmp2 = Text11 / 2 * Cp + D * Cd / Text11 + D * Text10 If tmp2 F Then F = tmp2 Q = Text11 P = Text10 End If End If If Q = Val(Text11) And Q = Val() Then ki = F = Q / 2 * Cp + D * Cd / Q + D * ki P = ki End If T = Q / D T = Int(T * 30)Text13 = QText14 = TText14 = 最優(yōu)訂購時間為： amp。 天訂購一次貨Text15 = PEnd Sub附錄二移動平均法代碼：Public Qi 39。 amp。 39。 amp。 39。data source= amp。 \ connstr select 現(xiàn)有庫存數(shù)量 from student1 where 商品編碼=39。 amp。, conn, 3, 1 = (0).ValueDim Kk(30) As SingleDim i%Dim Y(30) As SingleDim M(30) As SingleDim NnFor i = 1 To 12Y(i) = Text1(i).TextNextNn = 3 39。預(yù)測量寫入kk(i)NextText2 = Kk(12) 39。需求小于庫存Text3 = 不需要為下個月訂貨ElseText3 = Val(Text2) Val(Text6)Qi = Text3 39。全局變量Num1 = Text4End SubPrivate Sub DataGrid1_Click()’Datagrid1控件 Text4 = (0) = (1) 39。data source= amp。 \ connstr select 現(xiàn)有庫存數(shù)量 from student1 where 商品編碼=39。 amp。, conn, 3, 1 = (0).Value 39。data source= amp。 \ = select * from sellsSet = End Sub附錄三商品入庫代碼：Private Sub Command18_Click()Dim conn As New Dim rs As New Dim Sql As StringDim connstr As Stringconnstr = provider=。 amp。 + + 39。 + Text7(0) + 39。 + Text7(1) + 39。 + Text7(2) + 39。Sql = Sql + + Text7(3) + 39。 + Text7(4) + 39。 + Str(Date) + 39。 + Str(Time) + 39。庫存的改變For i = 1 To Next(數(shù)量) = Str(Val((數(shù)量)) + Text7(2))End Sub附錄四訂貨單輸出代碼：Private Sub Command17_Click() 39。Data Source= amp。 \。 + + 39。 + Str() + 39。 + Str() +
教學(xué)課件相關(guān)推薦
鄂ICP備17016276號-1