北京 | 上海 | 天津 | 重庆 | 广州 | 深圳 | 珠海 | 汕头 | 佛山 | 中山 | 东莞 | 南京 | 苏州 | 无锡 | 常州 | 南通 | 扬州 | 徐州 | 杭州 | 温州 | 宁波 | 台州 | 福州 | 厦门 | 泉州 | 龙岩 | 合肥 | 芜湖 | 成都 | 遂宁 | 长沙 | 株洲 | 湘潭 | 武汉 | 南昌 | 济南 | 青岛 | 烟台 | 潍坊 | 淄博 | 济宁 | 太原 | 郑州 | 石家庄 | 保定 | 唐山 | 西安 | 大连 | 沈阳 | 长春 | 昆明 | 兰州 | 哈尔滨 | 佳木斯 | 南宁 | 桂林 | 海口 | 贵阳 | 西宁 | 乌鲁木齐 | 包头 |
进出存系统，不涉及到金额的不难做。
1.入库增加、修改、删除、查询；
2.出库增加、修改、删除、查询；
3.库存查询。
库存查询用论坛中的union联合查询方法，将期初、入库、出库联合起来，再按照品名分组，得出当前库存。查询设计时，分两步走。
如发现出入库输入错误，可以删除记录，重新输入，不影响到库存查询。
由于当前库存是利用查询得出的，所以修改、删除出入库数据，再次查询库存时，数据会得到更新。
但是涉及到金额时，较复杂。
我是这样设计的。
入库表、出库表、供应商表、客户表、品名_库存表。
品名_库存表中有品名号、品名、单位、期初库存数量、当前单价五个字段。
品名号、品名、单位三个字段作为品名表用来新增、查询。
期初库存数量用来和入库、出库联合查询当前库存。
当前单价字段，如果第一次入库（单价值等于零），则单价等于当前入库单价。
如果单价字段不等于零，则用（当前单价*当前库存（查询得到）+本次入库数量*本次入库单价）/（入库后的当前库存）。即单价采用加权平均法。
每录入一笔入库记录时，立即更新当前单价值。
出库记录时，每一条出库记录的单价采用当前单价。写入到出库表中。
如果入库数据（数量和单价）输入错误，必将会影响到单价的加权平均值。此入库时间点后的出库记录的单价都存在错误。
如果发现入库数量或单价录入错误，则删除此时间点后的出库记录，在入库操作中用（—数量，单价）再次录入，把加权平均单价拉回来，再录入出库记录。
以上设计能在录入每笔出入库时，同时查看当前数量和单价。
有的帖子说在期末时去实现加权平均，平时出库时，不涉及到单价。
不知道我的思路有没有改进的地方。
还有论坛中很多帖子，直接做成了数据库文件上传，没有把设计思路描述清楚，初学者不易看得懂。
Private Sub Command18_Click()
Dim rst As DAO.Recordset
If IsNull(Me.日期) Then
MsgBox "请选择入库日期!", vbCritical, "提示："
Me.日期.SetFocus
Exit Sub
End If
Me.Refresh
If IsNull(Me.供应商) Then
MsgBox "请选择供应商!", vbCritical, "提示："
Me.供应商.SetFocus
Exit Sub
End If
Me.Refresh
If IsNull(Me.品名号) Then
MsgBox "请选择品名号!", vbCritical, "提示："
Me.品名号.SetFocus
Exit Sub
End If
Me.Refresh
If MsgBox("您确认要保存吗?", vbOKCancel + vbInformation, "提示") = vbOK Then
Set rst = CurrentDb.OpenRecordset("入库表", dbOpenDynaset)
rst.AddNew
rst("入库日期") = Me.日期.Value
rst("供应商") = Me.供应商
rst("品名号") = Me.品名号
rst("品名") = Me.品名
rst("数量") = Me.数量
rst("单价") = Me.单价
rst("金额") = Me.金额
rst.Update
rst.Close
Set rst = Nothing
'刷新数据
If IsLoaded("usysfrmMain") Then
DoCmd.Echo False
Forms!usysfrmMain!frmChild.SourceObject = "frm入库表_child"
DoCmd.Echo True
End If
MsgBox "保存成功!", vbInformation, "提示"
Dim i As Integer
Dim STemp As String
Dim Rs As ADODB.Recordset
Set Rs = New ADODB.Recordset
'为查询变量赋值
STemp = "Select * From 品名_库存"
Rs.Open STemp, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
Rs.MoveFirst
'使用For...Next循环在数据集中寻找相同需要的记录
For i = 1 To Rs.RecordCount
If Rs("品名号") = Me![品名号] Then '以下在入库时，通过加权平均发，得出入库后的 单价，并替换进品名库存表记录中
If Rs("单价") = 0 Then
Rs("单价") = Me![单价]
Rs.Update
MsgBox "库存表中单价同步更新成功!", vbInformation, "提示"
Exit Sub
End If
Rs("单价") = (Me![数量] * Me![单价] + (Me![当前库存] - Me![数量]) * Me![当前单价]) / (Me![数量] + Me![当前库存] - Me![数量])
Rs.Update '需要用当前库存减去入库，是因为可能当前库存已经发生变化。
MsgBox "库存表中单价同步更新成功!", vbInformation, "提示"
Exit Sub
Else
Rs.MoveNext
End If
Next i
Me.供应商 = Null
Me.品名号 = Null
Me.单价 = Null
Me.数量 = Nul
Me.金额 = Null
Me.日期.Value = Date
End If
End Sub
