库存管理系统（下）

《库存管理系统（下）》由会员上传分享，免费在线阅读，更多相关内容在应用文档-天天文库。

1、库存管理系统（下）第五章系统实施5．1、开发工具简介本系统的前端开发工具，我选择了VisualBasic6.0，后台数据库采用Access2000。5.1.1VB简介Visual意为“可视化的”，指的是一种开发图形用户界面的方法，所以VisualBasic是基于Basic的可视化的程序设计语言。在VisualBasic中，一方面继承了Basic所具有的程序设计语言简单易用的特点，另一方面在其编程系统中采用了面向对象、事件驱动的编程机制，用一种巧妙的方法把sgBox"请输入原密码！",,"修改密码"

2、ExitSubElsEifText1.Text<>Adodc1.Recordset.Fields("密码")ThenMsgBox"原密码错误！",,"修改密码"ExitSubElseIfText2=""OrText3=""ThenMsgBox"请输入新密码！！",,"修改密码"ExitSubElseIfText2<>Text3ThenMsgBox"密码不一致！！",,"修改密码"ExitSubElseText4.Text=Text2.TextAdodc1.Recordset

3、.MoveFirstMsgBox"密码修改成功！！",,"修改密码"UnloadMeEndIfDimI,JAsIntegerDimSTRAsStringIfText1.Text=""OrText2=""Orbo1.Text=""OrText4=""OrText5=""OrText6=""OrText7=""ThenMsgBox"请输入完整信息！"ExitSubElse将记录存入入库记录表设备入库表.datPrimaryRS.Recordset.Fields("设备号")=Text1.Text设备入

4、库表.datPrimaryRS.Recordset.Fields("入库数量")=Text2.Text设备入库表.datPrimaryRS.Recordset.Fields("入库时间")=bo1.Text设备入库表.datPrimaryRS.Recordset.Fields("供应商")=Text4.Text设备入库表.datPrimaryRS.Recordset.Fields("供应商电话")=Text5.Text设备入库表.datPrimaryRS.Recordset.Fields("价格"

5、)=Text6.Text设备入库表.datPrimaryRS.Recordset.Fields("采购员")=Text7.TextMsgBox"已经成功入库！"EndIf设备入库表.Adodc1.RecordSource="select*from现有库存表p;Text1.Text"'"设备入库表.Adodc1.Refresh设备入库表.DataGrid1.RefreshIf设备入库表.Adodc1.Recordset.RecordCount>0Then将记录加入现有库存表中设备入库表.Tex

6、t9.Text=CInt(设备入库表.Text9.Text)+CInt(Text2.Text)设备入库表.Text9.RefreshJ=设备入库表.Text9设备入库表.Adodc1.Recordset.MoveFirst设备入库表.Adodc1.Recordset.Fields.Refresh设备入库表.DataGrid1.RefreshMsgBox"现有库存量为："JElseSTR="现有库存表中无此设备！"vbCrLf"请在设备代码表和现有库存表中手动添加记录！！"MsgBoxSTRLoad

7、frm现有库存表frm现有库存表.Sho现有库存表.mand1_ClickFrmAddNeInput.Text1.TextFrmAddNeInput.Text2.TextLoadfrm设备代码表frm设备代码表.ShodDelete_Click()删除入库表中记录OnErrorGoToDeleteErrDimYesNoAsStringYesNo=MsgBox("删除",vbYesNo,"删除记录")IfYesNo=vbYesThenoveNextIf.EOFThen.MoveLastEndsgBo

8、xErr.DescriptionEndSubPrivateSubcmdUpdate_Click()更新纪录程序OnErrorGoToUpdateErrdatPrimaryRS.Recordset.UpdateBatchadAffectAllExitSubUpdateErr:MsgBoxErr.DescriptionPrivateSubmand1_Click()设备出库程序Dimi,J,kAsIntegerDimSTRAsStringfrm设备出库表.Adodc1.RecordSou