EndSub
PrivateSublistPMSJ1_Click()
IflistPMSJ1.SelCount>0Then
Fori=listPMSJ1.ListCount-1To0Step-1
IflistPMSJ1.Selected(i)Then
listGGSJ1.Selected(i)=True
EndIf
Next
EndIf
EndSub
PrivateSublistQGSLSJ1_Click()
IflistQGSLSJ1.SelCount>0Then
Fori=listQGSLSJ1.ListCount-1To0Step-1
IflistQGSLSJ1.Selected(i)Then
listBHSJ1.Selected(i)=True
EndIf
Next
EndIf
EndSub
2.增加料号程序
PrivateSubcomFHZY_Click()’返回上页
frmJLBH.Hide
frmCKGLXT.Show
EndSub
PrivateSubcomSCBH_Click()’删除
IflistBHSJ1.SelCount>0Then
Fori=listBHSJ1.ListCount-1To0Step-1
IflistBHSJ1.Selected(i)Then
textBHSJ.Text=listBHSJ1.List(i)
textPMSJ.Text=listPMSJ1.List(i)
textGGSJ.Text=listGGSJ1.List(i)
textDWSJ.Text=listDWSJ1.List(i)
textDJSJ.Text=listDJSJ1.List(i)
EndIf
Next
EndIf
DimcnnAsNewConnection,rstAsNewRecordset,fidAsField
DimstrSqlAsString,strconnAsString
strSql=\
strconn=strconn&\设计专用\\仓库数据资料\\仓库数据资料.mdb'\
cnn.ConnectionString=strconn
cnn.Open
Setrst=cnn.Execute(strSql)
Ifrst.EOF=FalseThen
str1=\
cnn.Executestr1
textBHSJ.Text=\
textPMSJ.Text=\
textGGSJ.Text=\
textDWSJ.Text=\
textDJSJ.Text=\
IflistBHSJ1.SelCount>0Then
Fori=listBHSJ1.ListCount-1To0Step-1
IflistBHSJ1.Selected(i)Then
listBHSJ1.RemoveItem(i)
listPMSJ1.RemoveItem(i)
listGGSJ1.RemoveItem(i)
listDWSJ1.RemoveItem(i)
listDJSJ1.RemoveItem(i)
EndIf
Next
EndIf
MsgBox\编号已删除!\
Else
MsgBox\无此编号!请确认后重新输入\
textBHSJ.Text=\
textPMSJ.Text=\
textGGSJ.Text=\
textDWSJ.Text=\
textDJSJ.Text=\
EndIf
rst.Close
cnn.Close
SetRs=Nothing
SetCN=Nothing
EndSub
PrivateSubcomZJBH_Click()’新增料号
IftextBHSJ.Text=\DJSJ.Text=\
MsgBox\请将数据补充完整!\
VB仓库管理系统源代码
![](/skin/haowen/images/icon_star.png)
![](/skin/haowen/images/icon_star.png)
![](/skin/haowen/images/icon_star.png)
![](/skin/haowen/images/icon_star.png)