大型建筑材料管理系统源码(共4篇)

《大型建筑材料管理系统源码(共4篇)》由会员上传分享，免费在线阅读，更多相关内容在应用文档-天天文库。

1、为了适应公司新战略的发展，保障停车场安保新项目的正常、顺利开展，特制定安保从业人员的业务技能及个人素质的培训计划大型建筑材料管理系统源码(共4篇)　　数据库原理与应用课程设计　　源代码　　设计题目：物品采购管理院系：信息工程学院班级：　　组别：组长:组员:　　起止日期:　　指导教师:　　源代码：　　物品添加模块程序代码　　修改用户密码程序　　PrivateSubCommand1_Click()　　=　　Set=Adodc1　　="密码"　　IfText1=""Then　　MsgBox"请输入原密码！",,"修改密码"　　Exit

2、Sub　　ElseIf("密码")Then　　MsgBox"原密码错误！",,"修改密码"　　ExitSub　　ElseIfText2=""OrText3=""Then目的-通过该培训员工可对保安行业有初步了解，并感受到安保行业的发展的巨大潜力，可提升其的专业水平，并确保其在这个行业的安全感。为了适应公司新战略的发展，保障停车场安保新项目的正常、顺利开展，特制定安保从业人员的业务技能及个人素质的培训计划　　MsgBox"请输入新密码！！",,"修改密码"　　ExitSub　　ElseIfText2Text3Then　　MsgBo

3、x"密码不一致！！",,"修改密码"　　ExitSub　　Else　　=　　MsgBox"密码修改成功！！",,"修改密码"　　UnloadMe　　EndIf　　EndSub　　5..入库模块的实现　　PrivateSubCommand1_Click()设备入库程序　　DimI,JAsInteger　　DimSTRAsString　　If=""OrText2=""Or=""OrText4=""OrText5=""Or　　Text6=""OrText7=""Then　　MsgBox"请输入完整信息！"　　ExitSub　　Else

4、将记录存入入库记录表　　设备入库表.("设备号")=　　设备入库表.("入库数量")=目的-通过该培训员工可对保安行业有初步了解，并感受到安保行业的发展的巨大潜力，可提升其的专业水平，并确保其在这个行业的安全感。为了适应公司新战略的发展，保障停车场安保新项目的正常、顺利开展，特制定安保从业人员的业务技能及个人素质的培训计划　　设备入库表.("入库时间")=　　设备入库表.("供应商")=　　设备入库表.("供应商电话")=　　设备入库表.("价格")=　　设备入库表.("采购员")=　　MsgBox"已经成功入库！"　　EndI

5、f　　设备入库表.="select*from现有库存表where设备号='"&&"'"　　设备入库表.　　设备入库表.　　If设备入库表.>0Then　　将记录加入现有库存表中　　设备入库表.=CInt(设备入库表.)+CInt()设备入库表.　　J=设备入库表.Text9　　设备入库表.　　设备入库表.　　设备入库表.　　MsgBox"现有库存量为："&J　　Else　　STR="现有库存表中无此设备！"&vbCrLf&"请在设备代码表和现有库存表中手动添加记录！！"目的-通过该培训员工可对保安行业有初步了解，并感受到安保行业

6、的发展的巨大潜力，可提升其的专业水平，并确保其在这个行业的安全感。为了适应公司新战略的发展，保障停车场安保新项目的正常、顺利开展，特制定安保从业人员的业务技能及个人素质的培训计划　　MsgBoxSTR　　Loadfrm现有库存表　　frm现有库存表.Show　　Callfrm现有库存表.Command1_Click　　=　　=　　Loadfrm设备代码表　　frm设备代码表.Show　　EndIf　　EndSub　　PrivateSubcmdDelete_Click()删除入库表中记录　　OnErrorGoToDeleteErr

7、　　DimYesNoAsString　　YesNo=MsgBox("删除",vbYesNo,"删除记录")　　IfYesNo=vbYesThen　　With　　.Delete　　.MoveNext　　If.EOFThen.MoveLast　　EndWith　　Else　　ExitSub目的-通过该培训员工可对保安行业有初步了解，并感受到安保行业的发展的巨大潜力，可提升其的专业水平，并确保其在这个行业的安全感。为了适应公司新战略的发展，保障停车场安保新项目的正常、顺利开展，特制定安保从业人员的业务技能及个人素质的培训计划　　End

8、If　　DeleteErr:　　MsgBox　　EndSub　　PrivateSubcmdUpdate_Click()更新纪录程序　　OnErrorGoToUpdateErr　　adAffectAll　　ExitSub　　UpdateErr:　　MsgBox