收藏
下载资源下载资源 加入VIP,免费下载

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

上传人：b****6 文档编号：16667667 上传时间：2023-07-16 格式：DOCX 页数：12 大小：15.49KB
下载 相关 举报
VB仓库管理系统源代码.docx_第1页
第1页 / 共12页
VB仓库管理系统源代码.docx_第2页
第2页 / 共12页
VB仓库管理系统源代码.docx_第3页
第3页 / 共12页
VB仓库管理系统源代码.docx_第4页
第4页 / 共12页
VB仓库管理系统源代码.docx_第5页
第5页 / 共12页
VB仓库管理系统源代码.docx_第6页
第6页 / 共12页
VB仓库管理系统源代码.docx_第7页
第7页 / 共12页
VB仓库管理系统源代码.docx_第8页
第8页 / 共12页
VB仓库管理系统源代码.docx_第9页
第9页 / 共12页
VB仓库管理系统源代码.docx_第10页
第10页 / 共12页
VB仓库管理系统源代码.docx_第11页
第11页 / 共12页
VB仓库管理系统源代码.docx_第12页
第12页 / 共12页
亲，该文档总共12页，全部预览完了，如果喜欢就下载吧！
下载资源
资源描述

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

《VB仓库管理系统源代码.docx》由会员分享，可在线阅读，更多相关《VB仓库管理系统源代码.docx（12页珍藏版）》请在冰点文库上搜索。

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

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=""Ortext

DJSJ.Text=""OrtextQGSLSJ.Text=""Then

MsgBox"请将数据补充完整!

"

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（

cnn.Executestr1listBHSJ1.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=""

textDJSJ.Text=""textQGSLSJ.Text=""

EndIf

EndSub

PrivateSubcomsc_Click（）'删除

IflistBHSJ1.SelCount>0Then

Fori=listBHSJ1.ListCount-1To0Step-1

IflistBHSJ1.Selected（i）ThentextBHSJ.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,strconnAsStringstrSql="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=""

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

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）ThenlistPMSJ1.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

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

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,fidAsFieldDimstrSqlAsString,strconnAsStringstrSql="SelectFtextBHSJFromjlbhwhereFtextBHSJ='"&Trim（textBHSJ.Text）&"'"strconn=strconn&"F:

\VB设计专用仓库数据资料仓库数据资料.mdb'"cnn.ConnectionString=strconn

cnn.Open

Setrst=cnn.Execute（strSql）

Ifrst.EOF=FalseThenstr1="Delete*fromjlbhwhereFtextBHSJ='"&Trim（textBHSJ.Text）&"'"cnn.Executestr1

textBHSJ.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

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=""Ortext

DJSJ.Text=""Then

textBHSJ.Text=""textPMSJ.Text=""textGGSJ.Text=""textDWSJ.Text=""textDJSJ.Text=""

Else

DimcnnAsNewConnection,rstAsNewRecordset,fidAsFieldDimstrSqlAsString,strconnAsStringstrSql="SelectFtextBHSJFromjlbhwhereFtextBHSJ='"&Trim（textBHSJ.Text）&"'"strconn=strconn&"F:

\VB设计专用仓库数据资料仓库数据资料.mdb'"cnn.ConnectionString=strconn

cnn.Open

Setrst=cnn.Execute（strSql）

Ifrst.EOF=FalseThen

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

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）ThenlistGGSJ1.Selected（i）=True

EndIf

Next

EndIf

EndSub

展开阅读全文
相关资源
猜你喜欢
相关搜索
资源标签

当前位置：首页 > 医药卫生 > 基础医学

copyright@ 2008-2023 冰点文库 网站版权所有

经营许可证编号:鄂ICP备19020893号-2