毕业论文 - 物流企业库存信息管理系统

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 \请输入交接单号信息\