VB(仓库管理系统源代码)

1、1请购作业程序Pr i vate Sub ComCX C I i ck ()查询在”编号“文本框中输入编号，连接数据库，查询编号，并将”编号“，“ 品名”，规格”，”单位，“单价”的数据分别导入到相应文本框。Set CN 二 NewSet Rs = New“Provider二Source二“ & ”F:VB设计专用仓库数据资料仓库数据 资料.mdb; Pers i st Secur i ty I nfo=Fa I se打开数据库=adOpenStatic 制定一个静态游标=adLockOptimistic 设置锁定模式为开放式seIect * from JLBH where FtextBHSJ

2、 Like & % & Trim& ，CNDoEventsDo Unt iI = TrueIf = False Then(0)(D)(2) )(3) )(4) )End IfLoopEnd SubPrivate Sub comFHZY_C I ick ()返回上页End SubPr i vate Sub comQD Click。录入数据Ifn Or11H Or” ThenMsgBox 请将数据补充完整ii n ii nElseDim cnn As New Connection, rst As New Recordset, fid AsFieldDim strSqI As String, str

3、conn As StringstrSqI = SeIect textBHSJ From qgzy where textBHSJ= &Trim &strconn 二Provider二 Source二strconn二strconn & F:VB设计专用仓库数据资料仓库数二 strconnSet rst 二(strSql)str1二In ser tIntoqgzy(textBHSJ,textPMSJ,textGGSJ,textDWSJ,textDJSJ,textQGSJ)str1 = str1 + “Values。” & Trim & Trim &Trim & Trim & Trim & Trim

4、&str1(Trim)(Trim)(Trim)(Trim)(Trim) (Trim)MsgBox “数据输入成功Set RsSet CNEnd IfEnd Sub=Nothi ng=Nothingii nit nii nii nii nPr i vate Sub comsc Click。，删除If 0 ThenFor i = - 1 To 0 Step -1If (i) Then=(i)=(i)=(i)=(i)=(i)=(i)End IfNextEnd IfDim cnn As New Connection,rst As New Recordset,As FieldDim strSqI As

5、String, strconn As Str i ngstrSqI 二 nSeIect FtextBHSJ From jIbh where FtextBHSJ二&Trim &strconn 二Provider二 Source二strconn二strconn & F:VB设计专用仓库数据资料仓库数据资料.mdb”二 strconnSet rst 二（strSqI）If = False Thenstr1 二 uDeIete from qgzy where FtextBHSJ二& Trim &n i iistr1ii nii nIf 0 ThenFor i = - 1 To 0 Step -1If

6、(i) Then(i)(i)(i)(i)(i)(i)End IfNextEnd IfMsgBox ”数据已删除!ElseMsgBox ”无此数据！”End IfSet Rs 二 NothingSet CN = Noth i ngEnd Sub以下是I istbox串连显示Private Sub IistBHSJI Cl ick ()If 0 ThenFor i = - 1 To 0 Step -1If (i) Then(i) = TrueEnd IfNextEnd IfEnd SubPr i vate SubI istDJSJ1_CI ick ()If 0 ThenFor i = - 1 To

7、 0 Step TIf (i) Then(i)二 TrueNextEnd IfEnd SubPrivate Sub IistDWSJ1_CI ick()If 0 ThenFor i = - 1 To 0 Step -1If (i) Then(i) = TrueEnd IfNextEnd IfEnd SubPr i vate Sub I i stGGSJ1_CIick ()If 0 ThenFor i-1 To 0 Step -1If (i) Then(i) = TrueEnd IfNextEnd IfEnd SubPrivate Sub I istPMSJ1_CI ick ()If 0 The

8、nFor i = - 1 To 0 Step -1If (i) Then(i) = TrueEnd IfNextEnd IfEnd SubPr i vate Sub Ii stQGSLSJ1_CIi ck ()If 0 ThenFor i = - 1 To 0 Step -1If (i) Then(i)二 TrueEnd IfNextEnd IfEnd Sub2.增加料号程序Private Sub comFHZY Click。返回上页End SubPr i vate Sub comSCBH CI ick ()，删除If 0 ThenFor i = - 1 To 0 Step -1If (i)

9、Then=(i)=(i)=(i)=(i)=(i)End IfNextEnd IfDim cnn As New Connection, rst As New Recordset, fid As FieldDim strSqI As String, strconn As StringstrSqI 二 nSeIect FtextBHSJ From jIbh where FtextBHSJ二&strconn 二Provider二 Source二strconn 二strconn & ”F:VB设计专用仓库数据资料仓库数据资料 mdb,H二 strconnSet rst 二（strSqI）If = Fal

10、se Thenstr1 二Delete * from jIbh where FtextBHSJ二& Trim&str1ii nii nIf 0 ThenFor i = - 1 To 0 Step -1If (i) Then(i)(i)(i)(i)(i)End IfNextEnd IfMsgBox”编号已删除！ElseMsgBox ”无此编号！请确认后重新输入“End IfSet Rs 二 NothingSet CN = Noth i ngEnd SubPr i vate Sub comZJBH_C I i ck () 新增料号IfMsgBox ”请将数据补充完整II IIElseDim cnn

11、 As New Connection, rst As New Recordset, fid As FieldDim strSqI As String, strconn As StringstrSqI = SeIect FtextBHSJ From jIbh where FtextBHSJ=& Trim & strconn 二Provider二 Source二strconn二strconn & F:VB设计专用仓库数据资料仓库数 据资料.mdb二 strconnSet rst 二(strSqI)If = False ThenMsgBox ”该编号已存在，不能追加！Elsestr1=InsertI

12、ntojIbh(FtextBHSJ, FtextPMSJ, FtextGGSJ,FtextDWSJ,FtextDJSJ)”str1 = str1 + “Values。” & Trim & Trim & n, n &Trim & Trim & Trim &str1(Trim)(Trim)(Trim)(Trim)(Trim)MsgBox 恭喜您，添加成功！End IfSet Rs 二 NothingSet CN = Nothingii n it n ii n ii nEnd IfEnd Sub以下是listbox循环选中程序Pr i vate Sub1 istBHSJ1_CI ick ()If 0The nFori = - 1 To 0 Step -1If (i) Then(i) = TrueEnd IfNextEnd IfEnd SubPr i vate Sub Ii stDJSJ1_CIick ()If 0 ThenFor i = - 1 To 0 Step -1If (i) Then(i) = TrueEnd IfNextEnd IfEnd SubPrivate Sub IistDWSJI Click()If 0 ThenFor i = - 1 To 0 Step TIf (i) Then(i) = TrueEnd IfNextEnd IfEnd SubPr i vat