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

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 '设置锁定模式为开放式

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

 请将数据补充完整!"

Else

 设计专用\仓库数据资料\仓库数据资料.mdb'"

 数据输入成功!"

End If

End Sub

Private Sub comsc_Click()’删除

If listBHSJ1.SelCount > 0 Then

End If

Dim cnn As New Connection, rst As New Recordset, fid As Field

Dim strSql As String, strconn As String

 设计专用\仓库数据资料\仓库数据资料.mdb'"

 数据已删除！"

 无此数据！"

rst.Close

cnn.Close

Set Rs = Nothing

Set CN = Nothing

End Sub

‘以下是listbox串连显示

Private Sub listBHSJ1_Click()

End Sub

Private Sub listDJSJ1_Click()

End Sub

Private Sub listDWSJ1_Click()

End Sub

Private Sub listGGSJ1_Click()

End Sub

Private Sub listPMSJ1_Click()

End Sub

Private Sub listQGSLSJ1_Click()

End Sub

2.增加料号程序

Private Sub comFHZY_Click()’返回上页

End Sub

Private Sub comSCBH_Click()’删除

If listBHSJ1.SelCount > 0 Then

End If

Dim cnn As New Connection, rst As New Recordset, fid As Field

Dim strSql As String, strconn As String

 设计专用\仓库数据资料\仓库数据资料.mdb'"

 编号已删除！"

 无此编号！请确认后重新输入"

rst.Close

cnn.Close

Set Rs = Nothing

Set CN = Nothing

End Sub

Private Sub comZJBH_Click()’新增料号

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

 请将数据补充完整!"

Else

 设计专用\仓库数据资料\仓库数据资料.mdb'"

 该编号已存在，不能追加！"

 恭喜您，添加成功!"

End If

End If

End Sub

‘以下是listbox循环选中程序

Private Sub listBHSJ1_Click()

End Sub

Private Sub listDJSJ1_Click()

End Sub

Private Sub listDWSJ1_Click()

End Sub

Private Sub listGGSJ1_Click()

End Sub

Private Sub listPMSJ1_Click()

End Sub