设备入库表.Adodc1.Refresh
设备入库表.DataGrid1.Refresh
If 设备入库表.Adodc1.Recordset.RecordCount > 0 The n
将记录加入现有库存表中
设备入库表.Text9.Text = CInt(设备入库表.Text9.Text) + CInt(Text2.Text)
设备入库表.Text9.Refresh
J = 设备入库表.Text9
设备入库表.Adodc1.Recordset.MoveFirst
设备入库表.Adodc1.Recordset.Fields.Refresh
设备入库表.DataGrid1.Refresh
MsgBox "现有库存量为：" & J
Else
STR = "现有库存表中无此设备！" & vbCrLf & "请在设备代码表和现有库存表中手动添加记录！！"
MsgBox STR
Load frm现有库存表
frm现有库存表.Show
Call frm现有库存表.Command1_Click
FrmAddNewEqu.Text1.Text = frmInput.Text1.Text
FrmAddNewEqu.Text2.Text = frmInput.Text2.Text
Load frm设备代码表
frm设备代码表.Show
End If
End Sub
Private Sub cmdDelete_Click( ) 删除入库表中记录
On Error GoTo DeleteErr
Dim YesNo As String
YesNo = MsgBox("删除", vbYesNo, "删除记录")
If YesNo = vbYes Then
With datPrimaryRS.Recordset
.Delete
.MoveNext
If .EOF Then .MoveLast
End With
Else
Exit Sub
End If
DeleteErr:
MsgBox Err.Description
End Sub
Private Sub cmdUpdate_Click( ) 更新纪录程序
On Error GoTo UpdateErr
datPrimaryRS.Recordset.UpdateBatch adAffectAll
Exit Sub
UpdateErr:
MsgBox Err.Description
Private Sub Command1_Click( )设备出库程序
Dim i, J, k As Integer
Dim STR As String
frm设备出库表.Adodc1.RecordSource = "select * from 现有库存表 where 设备号='" & Text1.Text & "'"
frm设备出库表.Adodc1.Refresh
frm设备出库表.DataGrid1.Refresh
If IsNumeric(Text2) = False Then
MsgBox "数量必须是数字！"
Exit Sub
End If
If Text1.Text = "" Or Text2 = "" Or Combo1.Text = "" Or Text4 = "" Or Text5 = "" Or Text6 = "" Or Text7 = "" Then
MsgBox "请输入完整信息！"
Exit Sub
ElseIf frm设备出库表.Adodc1.Recordset.RecordCount <= 0 Then
STR = "现有库存表中无此设备！请检查输入是否正确！！"
MsgBox STR
Exit Sub
Else
frm设备出库表.datPrimaryRS.Recordset.Fields("设备号") = Text1.Text
frm设备出库表.datPrimaryRS.Recordset.Fields("出库数量") = Text2.Text
frm设备出库表.datPrimaryRS.Recordset.Fields("出库时间") = Combo1.Text
frm设备出库表.datPrimaryRS.Recordset.Fields("经手人") = Text4.Text
frm设备出库表.datPrimaryRS.Recordset.Fields("领取人") = Text5.Text
frm设备出库表.datPrimaryRS.Recordset.Fields("使用部门") = Text6.Text
frm设备出库表.datPrimaryRS.Recordset.Fields("用途") = Text7.Text
MsgBox "已经成功存入设备出库表库！"
End If
If frm设备出库表.Adodc1.Recordset.RecordCount > 0 Then
k = CInt(frm设备出库表.Text9.Text) - CInt(Text2.Text)
If k >= 0 Then
frm设备出库表.Text9.Text = CInt(frm设备出库表.Text9.Text) - CInt(Text2.Text)
frm设备出库表.Text9.Refresh
J = frm设备出库表.Text9
frm设备出库表.Adodc1.Recordset.MoveFirst
frm设备出库表.Adodc1.Recordset.Fields.Refresh
frm设备出库表.DataGrid1.Refresh
MsgBox "现有库存量为：" & J
Else
MsgBox "现有库存量不足！请输入合适数量！！"
Exit Sub
End If
Else
STR = "现有库存表中无此设备！请检查输入是否正确！！"
MsgBox STR
End If
End Sub
Private Sub cmdDelete_Click( )删除出库记录
On Error GoTo DeleteErr
Dim YesNo As String
YesNo = MsgBox("删除", vbYesNo, "删除记录")
If YesNo = vbYes Then
With datPrimaryRS.Recordset
.Delete
.MoveNext
If .EOF Then .MoveLast
End With
Else
Exit Sub
End If
DeleteErr:
MsgBox Err.Description
End Sub