发布时间 : 星期四 文章毕业论文 - 物流企业库存信息管理系统更新完毕开始阅读
End If End If End Sub
Private Sub Form_Load()
Call fun.opencnn
End Sub
5.2.4 出库管理系统实施
图5－6出库管理操作窗体
图5－7出库管理查询窗体
主要代码：
Private Sub Command3_Click() '查询 If Text1.Text = \
MsgBox \请输入交接单号信息\Else
Call fun.closers
Call fun.querysavebase(Text1.Text) If rs.RecordCount = 0 Then Call fun.closers
MsgBox \库房中没有该物料\ Else
Call fun.closers
Call fun.querysavebase(Text1.Text)
If rs.Fields(\在库否\
Text2.Text = rs.Fields(\取货司机编号\ Text5.Text = rs.Fields(\出库时间\ Text3.Text = \已出库\ Else
Text2.Text = \未出库\ Text5.Text = \未出库\ Text3.Text = \库中\ End If rs.Close
MsgBox \物料查询成功\ End If End If
End Sub
Private Sub Command2_Click() fun.closers fun.closecnn Unload Me End Sub
Private Sub Command1_Click() '出库
If Text1.Text = \ MsgBox \请输入交接单号信息\