VB(倉庫管理系統(tǒng)源代碼)

1、VB(倉庫管理系統(tǒng)源代碼)VB(倉庫管理系統(tǒng)源代碼)VB(倉庫管理系統(tǒng)源代碼)VB(倉庫管理系統(tǒng)源代碼)編制僅供參考審核批準生效日期地址： 電話：傳真: 郵編:1.請購作業(yè)程序Private Sub ComCX_Click()查詢在編號文本框中輸入編號，連接數(shù)據(jù)庫，查詢編號，并將編號,品名,規(guī)格,單位,單價的數(shù)據(jù)分別導(dǎo)入到相應(yīng)文本框。Set CN = New Set Rs = New Provider= Source= & F:VB設(shè)計專用倉庫數(shù)據(jù)資料倉庫數(shù)據(jù)資料.mdb;Persist Security Info=False打開數(shù)據(jù)庫 = adOpenStatic 制定一個靜態(tài)游標 = ad

2、LockOptimistic 設(shè)置鎖定模式為開放式 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()錄入數(shù)據(jù)If = Or = Or = Or = Or = Or = Then MsgBox 請將數(shù)據(jù)補充完整! = = = = = = 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設(shè)計專用倉庫數(shù)據(jù)資料倉庫數(shù)據(jù)資料.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 數(shù)據(jù)輸入成功! 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設(shè)計

6、專用倉庫數(shù)據(jù)資料倉庫數(shù)據(jù)資料.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 數(shù)據(jù)已刪除！ Else MsgBox 無此數(shù)據(jù)！ = = = = = = 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設(shè)計專用倉庫數(shù)據(jù)資料倉庫數(shù)據(jù)資料.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 請將數(shù)據(jù)補充完整! = = = = = 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設(shè)計專用倉庫數(shù)據(jù)資料倉庫數(shù)據(jù)資料.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循環(huán)選中程序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