毕业论文论文范文课程设计实践报告法律论文英语论文教学论文医学论文农学论文艺术论文行政论文管理论文计算机安全
您现在的位置: 毕业论文 >> 论文 >> 正文

vb企业库存管理系统论文(流程图+ER图+概述) 第6页

更新时间:2010-6-18:  来源:毕业论文
vb企业库存管理系统论文(流程图+ER图+概述) 第6页
  将记录加入现有库存表中
        设备入库表.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
End Sub毕业论文http://www.751com.cn/
5..2.4 出库模块实现
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毕业论文http://www.751com.cn/
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
更新记录程序同入库的更新程序相同,在此略
5.2.5设备采购模块实现,程序略
5.2.6现有模块实现,程序略5.2.7设备代码模块实现
 主要程序
Private Sub cmdAdd_Click( ) 添加设备
  On Error GoTo AddErr
  datPrimaryRS.Recordset.AddNew

  Exit Sub
AddErr:
  MsgBox Err.Description
End Sub
5.2.8 库存报警模块实现

上一页  [1] [2] [3] [4] [5] [6] 

vb企业库存管理系统论文(流程图+ER图+概述) 第6页下载如图片无法显示或论文不完整,请联系qq752018766
设为首页 | 联系站长 | 友情链接 | 网站地图 |

copyright©751com.cn 辣文论文网 严禁转载
如果本毕业论文网损害了您的利益或者侵犯了您的权利,请及时联系,我们一定会及时改正。