1、Adodc1.RefreshSet Text4.DataSource = Adodc1 Text4.DataField = 密码If Text1 = Then MsgBox 请输入原密码, , 修改密码Exit Sub ElseIf Text1.Text Adodc1.Recordset.Fields() Then 原密码错误ElseIf Text2 = Or Text3 = 请输入新密码ElseIf Text2 0 Then 将记录加入现有库存表中 设备入库表.Text9.Text = CInt(设备入库表.Text9.Text) + CInt(Text2.Text)设备入库表.Text9.
2、Refresh J = 设备入库表.Text9 设备入库表.Adodc1.Recordset.MoveFirst 设备入库表.Adodc1.Recordset.Fields.Refresh 现有库存量为: J ElseSTR = 现有库存表中无此设备 vbCrLf &请在设备代码表和现有库存表中手动添加记录MsgBox STR Load frm现有库存表 frm现有库存表.Show Call frm现有库存表.Command1_Click FrmAddNewEqu.Text1.Text = frmInput.Text1.Text FrmAddNewEqu.Text2.Text = frmInp
3、ut.Text2.Text Load frm设备代码表 frm设备代码表.Show 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 DeleteErr:MsgBox Err.Description Private
4、 Sub cmdUpdate_Click( ) 更新纪录程序 On Error GoTo UpdateErr datPrimaryRS.Recordset.UpdateBatch adAffectAll UpdateErr:5.2.4 出库模块实现 Private Sub Command1_Click( )设备出库程序 Dim i, J, k As Integer frm设备出库表.Adodc1.RecordSource = frm设备出库表.Adodc1.Refresh frm设备出库表.DataGrid1.Refresh If IsNumeric(Text2) = False Then 数
5、量必须是数字 Or Text6 = Or Text7 = ElseIf frm设备出库表.Adodc1.Recordset.RecordCount k = CInt(frm设备出库表.Text9.Text) - CInt(Text2.Text) If k frm设备出库表.Text9.Text = CInt(frm设备出库表.Text9.Text) - CInt(Text2.Text)frm设备出库表.Text9.Refresh J = frm设备出库表.Text9 frm设备出库表.Adodc1.Recordset.MoveFirst frm设备出库表.Adodc1.Recordset.Fi
6、elds.Refresh 现有库存量不足请输入合适数量End IfPrivate Sub cmdDelete_Click( )删除出库记录 更新记录程序同入库的更新程序相同,在此略 5.2.5设备采购模块实现,程序略 主要程序 Private Sub cmdAdd_Click( ) 添加设备 On Error GoTo AddErr datPrimaryRS.Recordset.AddNew AddErr:MsgBox Err.Description End Sub 5.2.8 库存报警模块实现 Private Sub Command1_Click() 显示高于最大警戒库存的设备datPrim
7、aryRS.RecordSource = select * from 现有库存表 where 现有库存最大库存datPrimaryRS.Refresh grdDataGrid.Refresh If datPrimaryRS.Recordset.RecordCount Beep 表中设备已过量没有设备库存过量Private Sub Command2_Click()显示低于于最小警戒库存的设备select * from 现有库存表 where 现有库存有设备库存超过警戒库存请查看库存报警记录Timer1.Enabled = False frmAlarm.Show Private Sub Timer2_Timer() 有设备库存低于警戒库存Timer2.Enabled = False 5.2.9 操作日志模块实现