VB仓库管理系统源代码

来源：用户分享时间：2025/6/18 2:55:15 本文由

loading 分享下载这篇文档手机版

说明：文章内容仅供预览，部分内容可能不全，需要完整文档或者需要复制内容，请下载word后使用。下载word有问题请添加微信号:xxxxxxx或QQ：xxxxxx 处理（尽可能给您提供完整文档），感谢您的支持与谅解。

EndSub

PrivateSublistPMSJ1_Click()

IflistPMSJ1.SelCount>0Then

Fori=listPMSJ1.ListCount-1To0Step-1

IflistPMSJ1.Selected(i)Then

listGGSJ1.Selected(i)=True

EndIf

EndSub

PrivateSublistQGSLSJ1_Click()

IflistQGSLSJ1.SelCount>0Then

Fori=listQGSLSJ1.ListCount-1To0Step-1

IflistQGSLSJ1.Selected(i)Then

listBHSJ1.Selected(i)=True

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

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

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仓库管理系统源代码的文档

VB仓库管理系统源代码.doc 将本文的Word文档下载到电脑，方便复制、编辑、收藏和打印

下载这篇word文档

本文链接：https://www.diyifanwen.net/c0fqp67gs8q9s4tl8lgrm6o2vt5lzj600cru_3.html（转载请注明文章来源）