vb仓库管理系统源代码.doc

-
. z.

Private Sub C*_Click()’查询
'在"编号"文本框中输入编号，连接数据库，查询编号，并将"编号","品名","规格","单位"t) & "','" & Trim(te**t) & "')"
*ecute str1
(Trim(te**t))
(Trim(te**t))
(Trim(te**t))
(Trim(te**t))
(Trim(te**t))
(Trim(te**t))
MsgBo* "数据输入成功!"


Set Rs = Nothing
Set = Nothing
te**t = "
te**t = "
te**t = "
te**t = "
te**t = "
te**t = "
End If
End Sub
Private Sub sc_Click()’删除
If > 0 Then
For i = - 1 To 0 Step -1
If (i) Then
te**t = (i)
te**t = (i)
te**t = (i)
te**t = (i)
te**t = (i)
te**t = (i)
-
. z.
End If
Ne*t
End If
Dim n As New Connection, rst As New Recordset, fid As Field
Dim strSql As String, strconn As String
strSql = "Select Fte*tBHSJ From jlbh where Fte*