便利店管理信息系統(tǒng)的設計與實現(xiàn)畢業(yè)論文-資料下載頁
2025-06-28 09:34本頁面
【正文】 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。 Text14 amp。 天訂購一次貨Text15 = PEnd Sub附錄二移動平均法代碼：Public Qi 39。需求量Public Name1, Num1’商品名稱和編碼Private Sub Command3_Click()’查詢Dim conn As New Dim rs As New Dim rs1 As New Set = If Text4 Then select * from sells where 商品編碼=39。 amp。 amp。 39。, , 3, 1ElseIf Text5 Then select * from sells where 商品名稱=39。 amp。 amp。 39。, , 3, 1ElseMsgBox 請輸入商品編碼或商品名稱Exit SubEnd IfIf = 0 Then MsgBox 用戶不存在 Exit Sub ElseIf Not Then For j = 1 To 12 Text1(j) = (j + 1).Value On Error Resume Next Next Text5 = (1).Value End IfEnd Ifconnstr = provider=。data source= amp。 amp。 \ connstr select 現(xiàn)有庫存數(shù)量 from student1 where 商品編碼=39。 amp。 amp。 39。, 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。移動指數(shù)For i = Nn To 12 For j = 0 To Nn 1 M(i) = Y(i j) + M(i) Next Kk(i) = M(i) / Nn 39。預測量寫入kk(i)NextText2 = Kk(12) 39。最終需求量If Val(Text2) Val(Text6) Then 39。需求小于庫存Text3 = 不需要為下個月訂貨ElseText3 = Val(Text2) Val(Text6)Qi = Text3 39。全局變量End IfName1 = Text5 39。全局變量Num1 = Text4End SubPrivate Sub DataGrid1_Click()’Datagrid1控件 Text4 = (0) = (1) 39。以下調(diào)出庫存數(shù)量Dim conn As New Dim rs1 As New RecordsetDim connstr As Stringconnstr = provider=。data source= amp。 amp。 \ connstr select 現(xiàn)有庫存數(shù)量 from student1 where 商品編碼=39。 amp。 amp。 39。, conn, 3, 1 = (0).Value 39。以下是顯示銷售情況 For j = 1 To 12 Text1(j) = (j + 1) On Error Resume Next NextEnd SubPrivate Sub Form_Load() = provider=。data source= amp。 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=。data source= amp。 amp。 \ (connstr)Sql = insert into rk (商品ID,商品名稱,供應商,數(shù)量,單價,經(jīng)手人,日期,時間) values(39。 + + 39。,39。 + Text7(0) + 39。,39。 + Text7(1) + 39。,39。 + Text7(2) + 39。,39。Sql = Sql + + Text7(3) + 39。,39。 + Text7(4) + 39。,39。 + Str(Date) + 39。,39。 + Str(Time) + 39。)Set rs = (Sql) MsgBox 已經(jīng)保存39。庫存的改變For i = 1 To Next(數(shù)量) = Str(Val((數(shù)量)) + Text7(2))End Sub附錄四訂貨單輸出代碼：Private Sub Command17_Click() 39。查詢訂貨單While Not If = (供應商名稱) ThenText6(0) = (供應商ID)End IfWendWhile Not If = (供應商名稱) ThenText6(0) = (供應商ID)End IfWend = Provider=。Data Source= amp。 amp。 \。Persist Security Info=False = SELECT , , as 訂貨量, , , FROM SP INNER JOIN ZYDH ON = where =39。 + + 39。And =39。 + Str() + 39。And =39。 + Str() + 39。 Set = Dim sum As Singlesum = 0For i = 1 To sum = sum + Val((訂貨量)) * Val((訂貨價格))Next(5).Controls(label7).Caption = sumText6(14) = sumText6(16) = 許End Sub―32―
教學課件相關推薦
鄂ICP備17016276號-1