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

1、VB(仓库管理系统源代码)VB(仓库管理系统源代码)VB(仓库管理系统源代码)VB(仓库管理系统源代码)编制仅供参考审核批准生效日期地址： 电话：传真: 邮编:1.请购作业程序Private Sub ComCX_Click()查询在编号文本框中输入编号，连接数据库，查询编号，并将编号,品名,规格,单位,单价的数据分别导入到相应文本框。Set CN = New Set Rs = New Provider= Source= & F:VB设计专用仓库数据资料仓库数据资料.mdb;Persist Security Info=False打开数据库 = adOpenStatic 制定一个静态游标 = ad

2、LockOptimistic 设置锁定模式为开放式 select * from JLBH where FtextBHSJ Like & % & Trim & % & , CN DoEvents Do Until = True If = False Then (0) (1) (2) (3) (4) End If LoopEnd SubPrivate Sub comFHZY_Click()返回上页End SubPrivate Sub comQD_Click()录入数据If = Or = Or = Or = Or = Or = Then MsgBox 请将数据补充完整! = = = = = = El

3、se Dim cnn As New Connection, rst As New Recordset, fid As Field Dim strSql As String, strconn As String strSql = Select textBHSJ From qgzy where textBHSJ= & Trim & strconn = Provider= Source= strconn = strconn & F:VB设计专用仓库数据资料仓库数据资料.mdb = strconn Set rst = (strSql) str1 = Insert Into qgzy (textBHSJ

4、,textPMSJ,textGGSJ,textDWSJ,textDJSJ,textQGSJ) str1 = str1 + Values( & Trim & , & Trim & , & Trim & , & Trim & , & Trim & , & Trim & ) str1 (Trim) (Trim) (Trim) (Trim) (Trim) (Trim) MsgBox 数据输入成功! Set Rs = Nothing Set CN = Nothing = = = = = = End IfEnd SubPrivate Sub comsc_Click()删除If 0 Then For i =

5、 - 1 To 0 Step -1 If (i) Then = (i) = (i) = (i) = (i) = (i) = (i) End If NextEnd IfDim cnn As New Connection, rst As New Recordset, fid As FieldDim strSql As String, strconn As String strSql = Select FtextBHSJ From jlbh where FtextBHSJ= & Trim & strconn = Provider= Source= strconn = strconn & F:VB设计

6、专用仓库数据资料仓库数据资料.mdb = strconn Set rst = (strSql) If = False Then str1 = Delete from qgzy where FtextBHSJ= & Trim & str1 = = = = = = If 0 Then For i = - 1 To 0 Step -1 If (i) Then (i) (i) (i) (i) (i) (i) End If Next End If MsgBox 数据已删除！ Else MsgBox 无此数据！ = = = = = = End IfSet Rs = NothingSet CN = Noth

7、ingEnd Sub以下是listbox串连显示Private Sub listBHSJ1_Click() If 0 Then For i = - 1 To 0 Step -1 If (i) Then (i) = True End If Next End IfEnd SubPrivate Sub listDJSJ1_Click() If 0 Then For i = - 1 To 0 Step -1 If (i) Then (i) = True End If Next End IfEnd SubPrivate Sub listDWSJ1_Click() If 0 Then For i = -

8、1 To 0 Step -1 If (i) Then (i) = True End If Next End IfEnd SubPrivate Sub listGGSJ1_Click() If 0 Then For i = - 1 To 0 Step -1 If (i) Then (i) = True End If Next End IfEnd SubPrivate Sub listPMSJ1_Click() If 0 Then For i = - 1 To 0 Step -1 If (i) Then (i) = True End If Next End IfEnd SubPrivate Sub

9、 listQGSLSJ1_Click() If 0 Then For i = - 1 To 0 Step -1 If (i) Then (i) = True End If Next End IfEnd Sub2.增加料号程序Private Sub comFHZY_Click()返回上页 End SubPrivate Sub comSCBH_Click()删除If 0 Then For i = - 1 To 0 Step -1 If (i) Then = (i) = (i) = (i) = (i) = (i) End If NextEnd IfDim cnn As New Connection,

10、 rst As New Recordset, fid As FieldDim strSql As String, strconn As String strSql = Select FtextBHSJ From jlbh where FtextBHSJ= & Trim & strconn = Provider= Source= strconn = strconn & F:VB设计专用仓库数据资料仓库数据资料.mdb = strconn Set rst = (strSql) If = False Then str1 = Delete * from jlbh where FtextBHSJ= &

11、Trim & str1 = = = = = If 0 Then For i = - 1 To 0 Step -1 If (i) Then (i) (i) (i) (i) (i) End If Next End If MsgBox 编号已删除！ Else MsgBox 无此编号！请确认后重新输入 = = = = = End IfSet Rs = NothingSet CN = NothingEnd SubPrivate Sub comZJBH_Click()新增料号If = Or = Or = Or = Or = Then MsgBox 请将数据补充完整! = = = = = Else Dim

12、cnn As New Connection, rst As New Recordset, fid As Field Dim strSql As String, strconn As String strSql = Select FtextBHSJ From jlbh where FtextBHSJ= & Trim & strconn = Provider= Source= strconn = strconn & F:VB设计专用仓库数据资料仓库数据资料.mdb = strconn Set rst = (strSql) If = False Then MsgBox 该编号已存在，不能追加！ El

13、se str1 = Insert Into jlbh (FtextBHSJ,FtextPMSJ,FtextGGSJ,FtextDWSJ,FtextDJSJ) str1 = str1 + Values( & Trim & , & Trim & , & Trim & , & Trim & , & Trim & ) str1 (Trim) (Trim) (Trim) (Trim) (Trim) MsgBox 恭喜您，添加成功!End If Set Rs = Nothing Set CN = Nothing = = = = = End IfEnd Sub以下是listbox循环选中程序Private

14、Sub listBHSJ1_Click() If 0 Then For i = - 1 To 0 Step -1 If (i) Then (i) = True End If Next End IfEnd SubPrivate Sub listDJSJ1_Click() If 0 Then For i = - 1 To 0 Step -1 If (i) Then (i) = True End If Next End IfEnd SubPrivate Sub listDWSJ1_Click() If 0 Then For i = - 1 To 0 Step -1 If (i) Then (i) = True End If Next End IfEnd SubPriv