VB汽车美容管理系统源代码论文.doc

材料入库模块源代码如下:
Private mand1_Click()
If <> "" And <> "" And <> "" And <> "" And <> "" And <> "" And <> "" Then

= "select * from 库存材料清单 where 材料号='" & & "'"

If Then
msg$ = "确定要添加该记录吗?"
ans = MsgBox(msg$, vbOKCancel + vbDefaultButton2, "添加记录")
If ans = vbOK Then

(0) =
(1) =
(2) = CStr()
(3) =
(4) =
(5) =
(6) =
(7) =

MsgBox ("保存成功!!*_*")
End If
Else MsgBox "材料号不能重复,该材料号已存在!!", 48, "警告"
End If
Else MsgBox "资料输入不全,请重新输入!!", 64, "提示"
End If

= ""
= ""
= ""
= ""
= ""
= ""
= ""
End Sub
Private mand2_Click()
= ""
= ""
= ""
= ""
= ""
= ""
= ""
End Sub
Private mand3_Click()
Unload Me
End Sub
Private Sub Form_Load()
Dim ado As String, mpath As String
mpath =
If Right(mpath, 1) <> "\" Then mpath = mpath + "\"
ado = "Provider=;Persist Security Info=False;"
ado = ado + "Data Source=" + mpath + ""
= ado
= "库存材料清单"

= ado
= ado
= "gysxx"

End Sub
Private Sub Text2_GotFocus()
If Not Then

While Not
If (0) = Then
MsgBox "该材料号已经存在,请重新输入!!", 48, "提示"
= ""
End If

Wend