VB仓库管理系统源代码.docx
- 文档编号:25538075
- 上传时间:2023-06-09
- 格式:DOCX
- 页数:13
- 大小:15.46KB
VB仓库管理系统源代码.docx
《VB仓库管理系统源代码.docx》由会员分享,可在线阅读,更多相关《VB仓库管理系统源代码.docx(13页珍藏版)》请在冰豆网上搜索。
VB仓库管理系统源代码
1.请购作业程序
PrivateSubComCX_Click()’查询
'在"编号"文本框中输入编号,连接数据库,查询编号,并将"编号","品名","规格","单位","单价"的数据分别导入到相应文本框。
SetCN=NewADODB.Connection
SetRs=NewADODB.Recordset
istSecurityInfo=False"
'打开数据库
Rs.CursorType=adOpenStatic'制定一个静态游标
Rs.LockType=adLockOptimistic'设置锁定模式为开放式
Rs.Open"select*fromJLBHwhereFtextBHSJLike'"&"%"&Trim(textBHSJ.Text)&"%"&"'",CN
DoEvents
DoUntilRs.EOF=True
IfRs.EOF=FalseThen
listBHSJ1.AddItem(Rs.Fields(0))
listPMSJ1.AddItem(Rs.Fields
(1))
listGGSJ1.AddItem(Rs.Fields
(2))
listDWSJ1.AddItem(Rs.Fields(3))
listDJSJ1.AddItem(Rs.Fields(4))
Rs.MoveNext
EndIf
Loop
EndSub
PrivateSubcomFHZY_Click()’返回上页
frmQGZY.Hide
frmCKGLXT.Show
EndSub
PrivateSubcomQD_Click()’录入数据
IftextBHSJ.Text=""OrtextPMSJ.Text=""OrtextGGSJ.Text=""OrtextDWSJ.Text=""OrtextDJSJ.Text=""OrtextQGSLSJ.Text=""Then
MsgBox"请将数据补充完整!
"
textBHSJ.Text=""
textPMSJ.Text=""
textGGSJ.Text=""
textDWSJ.Text=""
textDJSJ.Text=""
textQGSLSJ.Text=""
Else
DimcnnAsNewConnection,rstAsNewRecordset,fidAsField
DimstrSqlAsString,strconnAsString
strSql="SelecttextBHSJFromqgzywheretextBHSJ='"&Trim(textBHSJ.Text)&"'"
strconn=strconn&"F:
\VB设计专用\仓库数据资料\仓库数据资料.mdb'"
cnn.ConnectionString=strconn
cnn.Open
Setrst=cnn.Execute(strSql)
str1="InsertIntoqgzy(textBHSJ,textPMSJ,textGGSJ,textDWSJ,textDJSJ,textQGSJ)"
str1=str1+"Values('"&Trim(textBHSJ.Text)&"','"&Trim(textPMSJ.Text)&"','"&Trim(textGGSJ.Text)&"','"&Trim(textDWSJ.Text)&"','"&Trim(textDJSJ.Text)&"','"&Trim(textQGSLSJ.Text)&"')"
cnn.Executestr1
listBHSJ1.AddItem(Trim(textBHSJ.Text))
listPMSJ1.AddItem(Trim(textPMSJ.Text))
listGGSJ1.AddItem(Trim(textGGSJ.Text))
listDWSJ1.AddItem(Trim(textDWSJ.Text))
listDJSJ1.AddItem(Trim(textDJSJ.Text))
listQGSLSJ1.AddItem(Trim(textQGSLSJ.Text))
MsgBox"数据输入成功!
"
rst.Close
cnn.Close
SetRs=Nothing
SetCN=Nothing
textBHSJ.Text=""
textPMSJ.Text=""
textGGSJ.Text=""
textDWSJ.Text=""
textDJSJ.Text=""
textQGSLSJ.Text=""
EndIf
EndSub
PrivateSubcomsc_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)
textQGSLSJ.Text=listQGSLSJ1.List(i)
EndIf
Next
EndIf
DimcnnAsNewConnection,rstAsNewRecordset,fidAsField
DimstrSqlAsString,strconnAsString
strSql="SelectFtextBHSJFromjlbhwhereFtextBHSJ='"&Trim(textBHSJ.Text)&"'"
strconn=strconn&"F:
\VB设计专用\仓库数据资料\仓库数据资料.mdb'"
cnn.ConnectionString=strconn
cnn.Open
Setrst=cnn.Execute(strSql)
Ifrst.EOF=FalseThen
str1="DeletefromqgzywhereFtextBHSJ='"&Trim(textBHSJ.Text)&"'"
cnn.Executestr1
textBHSJ.Text=""
textPMSJ.Text=""
textGGSJ.Text=""
textDWSJ.Text=""
textDJSJ.Text=""
textQGSLSJ.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)
listQGSLSJ1.RemoveItem(i)
EndIf
Next
EndIf
MsgBox"数据已删除!
"
Else
MsgBox"无此数据!
"
textBHSJ.Text=""
textPMSJ.Text=""
textGGSJ.Text=""
textDWSJ.Text=""
textDJSJ.Text=""
textQGSLSJ.Text=""
EndIf
rst.Close
cnn.Close
SetRs=Nothing
SetCN=Nothing
EndSub
‘以下是listbox串连显示
PrivateSublistBHSJ1_Click()
IflistBHSJ1.SelCount>0Then
Fori=listBHSJ1.ListCount-1To0Step-1
IflistBHSJ1.Selected(i)Then
listPMSJ1.Selected(i)=True
EndIf
Next
EndIf
EndSub
PrivateSublistDJSJ1_Click()
IflistDJSJ1.SelCount>0Then
Fori=listDJSJ1.ListCount-1To0Step-1
IflistDJSJ1.Selected(i)Then
listQGSLSJ1.Selected(i)=True
EndIf
Next
EndIf
EndSub
PrivateSublistDWSJ1_Click()
IflistDWSJ1.SelCount>0Then
Fori=listDWSJ1.ListCount-1To0Step-1
IflistDWSJ1.Selected(i)Then
listDJSJ1.Selected(i)=True
EndIf
Next
EndIf
EndSub
PrivateSublistGGSJ1_Click()
IflistGGSJ1.SelCount>0Then
Fori=listGGSJ1.ListCount-1To0Step-1
IflistGGSJ1.Selected(i)Then
listDWSJ1.Selected(i)=True
EndIf
Next
EndIf
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="SelectFtextBHSJFromjlbhwhereFtextBHSJ='"&Trim(textBHSJ.Text)&"'"
strconn=strconn&"F:
\VB设计专用\仓库数据资料\仓库数据资料.mdb'"
cnn.ConnectionString=strconn
cnn.Open
Setrst=cnn.Execute(strSql)
Ifrst.EOF=FalseThen
str1="Delete*fromjlbhwhereFtextBHSJ='"&Trim(textBHSJ.Text)&"'"
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=""OrtextPMSJ.Text=""OrtextGGSJ.Text=""OrtextDWSJ.Text=""OrtextDJSJ.Text=""Then
MsgBox"请将数据补充完整!
"
textBHSJ.Text=""
textPMSJ.Text=""
textGGSJ.Text=""
textDWSJ.Text=""
textDJSJ.Text=""
Else
DimcnnAsNewConnection,rstAsNewRecordset,fidAsField
DimstrSqlAsString,strconnAsString
strSql="SelectFtextBHSJFromjlbhwhereFtextBHSJ='"&Trim(textBHSJ.Text)&"'"
strconn=strconn&"F:
\VB设计专用\仓库数据资料\仓库数据资料.mdb'"
cnn.ConnectionString=strconn
cnn.Open
Setrst=cnn.Execute(strSql)
Ifrst.EOF=FalseThen
MsgBox"该编号已存在,不能追加!
"
Else
str1="InsertIntojlbh(FtextBHSJ,FtextPMSJ,FtextGGSJ,FtextDWSJ,FtextDJSJ)"
str1=str1+"Values('"&Trim(textBHSJ.Text)&"','"&Trim(textPMSJ.Text)&"','"&Trim(textGGSJ.Text)&"','"&Trim(textDWSJ.Text)&"','"&Trim(textDJSJ.Text)&"')"
cnn.Executestr1
listBHSJ1.AddItem(Trim(textBHSJ.Text))
listPMSJ1.AddItem(Trim(textPMSJ.Text))
listGGSJ1.AddItem(Trim(textGGSJ.Text))
listDWSJ1.AddItem(Trim(textDWSJ.Text))
listDJSJ1.AddItem(Trim(textDJSJ.Text))
MsgBox"恭喜您,添加成功!
"
EndIf
rst.Close
cnn.Close
SetRs=Nothing
SetCN=Nothing
textBHSJ.Text=""
textPMSJ.Text=""
textGGSJ.Text=""
textDWSJ.Text=""
textDJSJ.Text=""
EndIf
EndSub
‘以下是listbox循环选中程序
PrivateSublistBHSJ1_Click()
IflistBHSJ1.SelCount>0Then
Fori=listBHSJ1.ListCount-1To0Step-1
IflistBHSJ1.Selected(i)Then
listPMSJ1.Selected(i)=True
EndIf
Next
EndIf
EndSub
PrivateSublistDJSJ1_Click()
IflistDJSJ1.SelCount>0Then
Fori=listDJSJ1.ListCount-1To0Step-1
IflistDJSJ1.Selected(i)Then
listBHSJ1.Selected(i)=True
EndIf
Next
EndIf
EndSub
PrivateSublistDWSJ1_Click()
IflistDWSJ1.SelCount>0Then
Fori=listDWSJ1.ListCount-1To0Step-1
IflistDWSJ1.Selected(i)Then
listDJSJ1.Selected(i)=True
EndIf
Next
EndIf
EndSub
PrivateSublistGGSJ1_Click()
IflistGGSJ1.SelCount>0Then
Fori=listGGSJ1.ListCount-1To0Step-1
IflistGGSJ1.Selected(i)Then
listDWSJ1.Selected(i)=True
EndIf
Next
EndIf
EndSub
PrivateSublistPMSJ1_Click()
IflistPMSJ1.SelCount>0Then
Fori=listPMSJ1.ListCount-1To0Step-1
IflistPMSJ1.Selected(i)Then
listGGSJ1.Selected(i)=True
EndIf
Next
EndIf
EndSub
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- VB 仓库 管理 系统 源代码