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

1.请购作业程序

Private Sub ComCX_Click()’查询

'在"编号"文本框中输入编号，连接数据库，查询编号，并将"编号","品名","规格","单位","单价"的数据分别导入到相应文本框。

Set CN = New ADODB.Connection

Set Rs = New ADODB.Recordset

CN.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & "F:\VB设计专用\仓库数据资料\仓库数据资料.mdb;Persist Security Info=False"

'打开数据库

Rs.CursorType = adOpenStatic '制定一个静态游标

Rs.LockType = 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.Fields(3))

listDJSJ1.AddItem (Rs.Fields(4))

Rs.MoveNext

End If

Loop

End Sub

Private Sub comFHZY_Click()’返回上页

frmQGZY.Hide

frmCKGLXT.Show

End Sub

Private Sub comQD_Click()’录入数据

If textBHSJ.Text = "" Or textPMSJ.Text = "" Or textGGSJ.Text = "" Or textDWSJ.Text = "" Or textDJSJ.Text = "" Or textQGSLSJ.Text = "" Then

MsgBox "请将数据补充完整!"

textBHSJ.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=Microsoft.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) & "','" & 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 (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 If

End Sub

Private Sub comsc_Click()’删除

If listBHSJ1.SelCount > 0 Then

For i = listBHSJ1.ListCount - 1 To 0 Step -1

If listBHSJ1.Selected(i) Then

textBHSJ.Text = listBHSJ1.List(i)

textPMSJ.Text = listPMSJ1.List(i)