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

1、1.请购作业程序Private Sub ComCX_Click()查询在编号文本框中输入编号，连接数据库，查询编号，并将编号,品名,规格,单位,单价的数据分别导入到相应文本框。Set CN = New ADODB.ConnectionSet Rs = New ADODB.RecordsetCN.Open Provider=Microsoft.Jet.OLEDB.4.0;Data Source= & F:VB设计专用仓库数据资料仓库数据资料.mdb;Persist Security Info=False打开数据库Rs.CursorType = adOpenStatic 制定一个静态游标Rs.Lo

2、ckType = adLockOptimistic 设置锁定模式为开放式 Rs.Open select * from JLBH where FtextBHSJ Like & % & Trim(textBHSJ.Text) & % & , CN DoEvents Do Until Rs.EOF = True If Rs.EOF = False Then listBHSJ1.AddItem (Rs.Fields(0) listPMSJ1.AddItem (Rs.Fields(1) listGGSJ1.AddItem (Rs.Fields(2) listDWSJ1.AddItem (Rs.Field

3、s(3) listDJSJ1.AddItem (Rs.Fields(4) Rs.MoveNext End If LoopEnd SubPrivate Sub comFHZY_Click()返回上页frmQGZY.HidefrmCKGLXT.ShowEnd SubPrivate Sub comQD_Click()录入数据If textBHSJ.Text = Or textPMSJ.Text = Or textGGSJ.Text = Or textDWSJ.Text = Or textDJSJ.Text = Or textQGSLSJ.Text = Then MsgBox 请将数据补充完整! te

4、xtBHSJ.Text = textPMSJ.Text = textGGSJ.Text = textDWSJ.Text = textDJSJ.Text = textQGSLSJ.Text = Else 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(textBHSJ.Text) & strconn = Provider=Mic

5、rosoft.Jet.OLEDB.4.0;Data Source= strconn = strconn & F:VB设计专用仓库数据资料仓库数据资料.mdb cnn.ConnectionString = strconn cnn.Open Set rst = cnn.Execute(strSql) str1 = Insert Into qgzy (textBHSJ,textPMSJ,textGGSJ,textDWSJ,textDJSJ,textQGSJ) str1 = str1 + Values( & Trim(textBHSJ.Text) & , & Trim(textPMSJ.Text) &

6、 , & Trim(textGGSJ.Text) & , & Trim(textDWSJ.Text) & , & Trim(textDJSJ.Text) & , & Trim(textQGSLSJ.Text) & ) cnn.Execute str1 listBHSJ1.AddItem (Trim(textBHSJ.Text) listPMSJ1.AddItem (Trim(textPMSJ.Text) listGGSJ1.AddItem (Trim(textGGSJ.Text) listDWSJ1.AddItem (Trim(textDWSJ.Text) listDJSJ1.AddItem

7、(Trim(textDJSJ.Text) listQGSLSJ1.AddItem (Trim(textQGSLSJ.Text) MsgBox 数据输入成功! rst.Close cnn.Close Set Rs = Nothing Set CN = Nothing textBHSJ.Text = textPMSJ.Text = textGGSJ.Text = textDWSJ.Text = textDJSJ.Text = textQGSLSJ.Text = End IfEnd SubPrivate Sub comsc_Click()删除If listBHSJ1.SelCount 0 Then

8、For i = listBHSJ1.ListCount - 1 To 0 Step -1 If listBHSJ1.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) End If NextEnd If

9、Dim 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(textBHSJ.Text) & strconn = Provider=Microsoft.Jet.OLEDB.4.0;Data Source= strconn = strconn & F:VB设计专用仓库数据资料仓库数据资料.mdb cnn.ConnectionString

10、= strconn cnn.Open Set rst = cnn.Execute(strSql) If rst.EOF = False Then str1 = Delete from qgzy where FtextBHSJ= & Trim(textBHSJ.Text) & cnn.Execute str1 textBHSJ.Text = textPMSJ.Text = textGGSJ.Text = textDWSJ.Text = textDJSJ.Text = textQGSLSJ.Text = If listBHSJ1.SelCount 0 Then For i = listBHSJ1.

11、ListCount - 1 To 0 Step -1 If listBHSJ1.Selected(i) Then listBHSJ1.RemoveItem (i) listPMSJ1.RemoveItem (i) listGGSJ1.RemoveItem (i) listDWSJ1.RemoveItem (i) listDJSJ1.RemoveItem (i) listQGSLSJ1.RemoveItem (i) End If Next End If MsgBox 数据已删除！ Else MsgBox 无此数据！ textBHSJ.Text = textPMSJ.Text = textGGSJ

12、.Text = textDWSJ.Text = textDJSJ.Text = textQGSLSJ.Text = End Ifrst.Closecnn.CloseSet Rs = NothingSet CN = NothingEnd Sub以下是listbox串连显示Private Sub listBHSJ1_Click() If listBHSJ1.SelCount 0 Then For i = listBHSJ1.ListCount - 1 To 0 Step -1 If listBHSJ1.Selected(i) Then listPMSJ1.Selected(i) = True En

13、d If Next End IfEnd SubPrivate Sub listDJSJ1_Click() If listDJSJ1.SelCount 0 Then For i = listDJSJ1.ListCount - 1 To 0 Step -1 If listDJSJ1.Selected(i) Then listQGSLSJ1.Selected(i) = True End If Next End IfEnd SubPrivate Sub listDWSJ1_Click() If listDWSJ1.SelCount 0 Then For i = listDWSJ1.ListCount

14、- 1 To 0 Step -1 If listDWSJ1.Selected(i) Then listDJSJ1.Selected(i) = True End If Next End IfEnd SubPrivate Sub listGGSJ1_Click() If listGGSJ1.SelCount 0 Then For i = listGGSJ1.ListCount - 1 To 0 Step -1 If listGGSJ1.Selected(i) Then listDWSJ1.Selected(i) = True End If Next End IfEnd SubPrivate Sub

15、 listPMSJ1_Click() If listPMSJ1.SelCount 0 Then For i = listPMSJ1.ListCount - 1 To 0 Step -1 If listPMSJ1.Selected(i) Then listGGSJ1.Selected(i) = True End If Next End IfEnd SubPrivate Sub listQGSLSJ1_Click() If listQGSLSJ1.SelCount 0 Then For i = listQGSLSJ1.ListCount - 1 To 0 Step -1 If listQGSLSJ

16、1.Selected(i) Then listBHSJ1.Selected(i) = True End If Next End IfEnd Sub2.增加料号程序Private Sub comFHZY_Click()返回上页 frmJLBH.Hide frmCKGLXT.ShowEnd SubPrivate Sub comSCBH_Click()删除If listBHSJ1.SelCount 0 Then For i = listBHSJ1.ListCount - 1 To 0 Step -1 If listBHSJ1.Selected(i) Then textBHSJ.Text = list

17、BHSJ1.List(i) textPMSJ.Text = listPMSJ1.List(i) textGGSJ.Text = listGGSJ1.List(i) textDWSJ.Text = listDWSJ1.List(i) textDJSJ.Text = listDJSJ1.List(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 j

18、lbh where FtextBHSJ= & Trim(textBHSJ.Text) & strconn = Provider=Microsoft.Jet.OLEDB.4.0;Data Source= strconn = strconn & F:VB设计专用仓库数据资料仓库数据资料.mdb cnn.ConnectionString = strconn cnn.Open Set rst = cnn.Execute(strSql) If rst.EOF = False Then str1 = Delete * from jlbh where FtextBHSJ= & Trim(textBHSJ.T

19、ext) & cnn.Execute str1 textBHSJ.Text = textPMSJ.Text = textGGSJ.Text = textDWSJ.Text = textDJSJ.Text = If listBHSJ1.SelCount 0 Then For i = listBHSJ1.ListCount - 1 To 0 Step -1 If listBHSJ1.Selected(i) Then listBHSJ1.RemoveItem (i) listPMSJ1.RemoveItem (i) listGGSJ1.RemoveItem (i) listDWSJ1.RemoveI

20、tem (i) listDJSJ1.RemoveItem (i) End If Next End If MsgBox 编号已删除！ Else MsgBox 无此编号！请确认后重新输入 textBHSJ.Text = textPMSJ.Text = textGGSJ.Text = textDWSJ.Text = textDJSJ.Text = End Ifrst.Closecnn.CloseSet Rs = NothingSet CN = NothingEnd SubPrivate Sub comZJBH_Click()新增料号If textBHSJ.Text = Or textPMSJ.Tex

21、t = Or textGGSJ.Text = Or textDWSJ.Text = Or textDJSJ.Text = Then MsgBox 请将数据补充完整! textBHSJ.Text = textPMSJ.Text = textGGSJ.Text = textDWSJ.Text = textDJSJ.Text = Else Dim cnn As New Connection, rst As New Recordset, fid As Field Dim strSql As String, strconn As String strSql = Select FtextBHSJ From

22、 jlbh where FtextBHSJ= & Trim(textBHSJ.Text) & strconn = Provider=Microsoft.Jet.OLEDB.4.0;Data Source= strconn = strconn & F:VB设计专用仓库数据资料仓库数据资料.mdb cnn.ConnectionString = strconn cnn.Open Set rst = cnn.Execute(strSql) If rst.EOF = False Then MsgBox 该编号已存在，不能追加！ Else str1 = Insert Into jlbh (FtextBHS

23、J,FtextPMSJ,FtextGGSJ,FtextDWSJ,FtextDJSJ) str1 = str1 + Values( & Trim(textBHSJ.Text) & , & Trim(textPMSJ.Text) & , & Trim(textGGSJ.Text) & , & Trim(textDWSJ.Text) & , & Trim(textDJSJ.Text) & ) cnn.Execute str1 listBHSJ1.AddItem (Trim(textBHSJ.Text) listPMSJ1.AddItem (Trim(textPMSJ.Text) listGGSJ1.

24、AddItem (Trim(textGGSJ.Text) listDWSJ1.AddItem (Trim(textDWSJ.Text) listDJSJ1.AddItem (Trim(textDJSJ.Text) MsgBox 恭喜您，添加成功!End If rst.Close cnn.Close Set Rs = Nothing Set CN = Nothing textBHSJ.Text = textPMSJ.Text = textGGSJ.Text = textDWSJ.Text = textDJSJ.Text = End IfEnd Sub以下是listbox循环选中程序Private Sub listBHSJ1_Click() If listBHSJ1.SelCount 0 Then For i = listBHSJ1.ListCount - 1 To 0 Step -1 If listBHSJ1.Selected(i