VB仓库管理系统源代码.docx

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