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

Private Sub ComCX_Click()’查询

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

\"Provider= Source=\" & \"F:\\VB设计专用\\仓库数据资料\\仓库数据资料.mdb;Persist Security Info=False\" '打开数据库

= adOpenStatic '制定一个静态游标

= adLockOptimistic '设置锁定模式为开放式

\"select * from JLBH where FtextBHSJ Like'\" & \"%\" & Trim & \"%\" & \"'\ DoEvents

Do Until = True

If = False Then (0)) (1)) (2)) (3)) (4)) End If Loop End Sub

Private Sub comFHZY_Click()’返回上页

End Sub

Private Sub comQD_Click()’录入数据

If = \"\" Or = \"\" Or = \"\" Or = \"\" Or = \"\" Or = \"\" Then MsgBox \"请将数据补充完整!\" = \"\" = \"\" = \"\" = \"\" = \"\" = \"\" 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 & \"'\"

strconn = \"Provider= Source='\"

strconn = strconn & \"F:\\VB设计专用\\仓库数据资料\\仓库数据资料.mdb'\" = strconn

Set rst = (strSql) str1

=

\"Insert

Into

qgzy

(textBHSJ,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 If End Sub

Private Sub comsc_Click()’删除

If > 0 Then

For i = - 1 To 0 Step -1 If (i) Then = (i) = (i) = (i) = (i) = (i) = (i) End If Next End If

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 & \"'\"

strconn = \"Provider= Source='\"

strconn = strconn & \"F:\\VB设计专用\\仓库数据资料\\仓库数据资料.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 If

Set Rs = Nothing Set CN = Nothing

End 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 If End Sub

Private Sub listDJSJ1_Click() If > 0 Then

For i = - 1 To 0 Step -1 If (i) Then (i) = True End If

Next End If End Sub

Private Sub listDWSJ1_Click() If > 0 Then

For i = - 1 To 0 Step -1 If (i) Then (i) = True End If Next End If End Sub

Private Sub listGGSJ1_Click() If > 0 Then

For i = - 1 To 0 Step -1 If (i) Then (i) = True End If Next End If End Sub

Private Sub listPMSJ1_Click() If > 0 Then

For i = - 1 To 0 Step -1 If (i) Then (i) = True End If Next End If

End Sub

Private Sub listQGSLSJ1_Click() If > 0 Then

For i = - 1 To 0 Step -1 If (i) Then (i) = True End If Next End If End Sub

2.增加料号程序

Private Sub comFHZY_Click()’返回上页

End Sub

Private Sub comSCBH_Click()’删除 If > 0 Then

For i = - 1 To 0 Step -1 If (i) Then = (i) = (i) = (i) = (i) = (i) End If Next End If

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 & \"'\"

strconn = \"Provider= Source='\"

strconn = strconn & \"F:\\VB设计专用\\仓库数据资料\\仓库数据资料.mdb'\" = strconn

Set rst = (strSql) If = False Then

str1 = \"Delete * from jlbh where FtextBHSJ='\" & 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 If

Set Rs = Nothing Set CN = Nothing End Sub

Private Sub comZJBH_Click()’新增料号

If = \"\" Or = \"\" Or = \"\" Or = \"\" Or = \"\" Then MsgBox \"请将数据补充完整!\" = \"\"

= \"\" = \"\" = \"\" = \"\" Else

Dim 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 \"该编号已存在，不能追加！\" Else 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 If End 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 If End Sub

Private Sub listDJSJ1_Click() If > 0 Then

For i = - 1 To 0 Step -1 If (i) Then (i) = True End If Next End If End Sub

Private Sub listDWSJ1_Click()

If > 0 Then

For i = - 1 To 0 Step -1 If (i) Then (i) = True End If Next End If End Sub

Private Sub listGGSJ1_Click() If > 0 Then

For i = - 1 To 0 Step -1 If (i) Then (i) = True End If Next

End If End Sub

Private Sub listPMSJ1_Click() If > 0 Then

For i = - 1 To 0 Step -1 If (i) Then (i) = True End If Next End If End Sub