库存管理系统（下）.docVIP

　　库存管理系统（下） 第五章 系统实施 5．1、开发工具简介 本系统的前端开发工具，我选择了Visual Basic6.0，后台数据库采用Access2000。 5.1.1 VB简介 Visual意为“可视化的”，指的是一种开发图形用户界面的 方法 ，所以Visual Basic是基于Basic的可视化的程序设计语言。在Visual Basic中，一方面继承了Basic所具有的程序设计语言简单易用的特点，另一方面在其编程系统中采用了面向对象、事件驱动的编程机制，用一种巧妙的方法把sgBox 请输入原密码！, , 修改密码 Exit Sub ElsEif Text1.Text lt;gt; Adodc1.Recordset.Fields(密码) Then MsgBox 原密码错误！, , 修改密码 Exit Sub ElseIf Text2 = Or Text3 = Then MsgBox 请输入新密码！！, , 修改密码 Exit Sub ElseIf Text2 lt;gt; Text3 Then MsgBox 密码不一致！！, , 修改密码 Exit Sub Else Text4.Text = Text2.Text Adodc1.Recordset.MoveFirst MsgBox 密码修改成功！！, , 修改密码 Unload Me End If Dim I, J As Integer Dim STR As String If Text1.Text = Or Text2 = Or bo1.Text = Or Text4 = Or Text5 = Or Text6 = Or Text7 = Then MsgBox 请输入完整信息！ Exit Sub Else 将记录存入入库记录表 设备入库表.datPrimaryRS.Recordset.Fields(设备号) = Text1.Text 设备入库表.datPrimaryRS.Recordset.Fields(入库数量) = Text2.Text 设备入库表.datPrimaryRS.Recordset.Fields(入库时间) = bo1.Text 设备入库表.datPrimaryRS.Recordset.Fields(供应商) = Text4.Text 设备入库表.datPrimaryRS.Recordset.Fields(供应商电话) = Text5.Text 设备入库表.datPrimaryRS.Recordset.Fields(价格) = Text6.Text 设备入库表.datPrimaryRS.Recordset.Fields(采购员) = Text7.Text MsgBox 已经成功入库！ End If 设备入库表.Adodc1.RecordSource = select * from 现有库存表 p; Text1.Text 设备入库表.Adodc1.Refresh 设备入库表.DataGrid1.Refresh If 设备入库表.Adodc1.Recordset.RecordCount gt; 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现有库存表.Sho现有库存表.mand1_Click FrmAddNeInput.Text1.Text FrmAddNeInput.Text2.Text Load frm设备代码表 frm设备代码表.ShodDelete_Click( ) 删除入库表中记录 On Error GoTo DeleteErr Dim YesNo As String YesNo = MsgBox(删除, vbYesNo, 删除记录) If YesNo = vbYes Then oveNext If .EOF Then .MoveLast End sgBox Err.Description End Sub Private Sub