文档介绍:仓库管理系统
项目的建立
这是本人利用闲暇之余在上制作的一个简陋的类库管系统, 现图文结合的方式一步一步展
现制作过程。 由于本人是个初学者, 里面存在很多不足之处望得到高手们的指导" Then
MsgBox " 请输入用户名! ", , "
Exit Sub
Else
' 如果为“确定”则添加新用户
' 提示用户输入用户名
登录信息提示: "
'
Dim usename As String
'
检测用户名是否已经存在
Dim strS As String
usename = Trim
strS = "select * from
用户登录信息表
where
用户名
='" & usename & "'"
= adCmdText
= strS
If = False Then
MsgBox " 您输入的用户已存在 !", , " 登录提示信息: "
""
""
""
Exit Sub
End If
End If
If = "" Then
'
提示用户密码不能为空
MsgBox "
密码不能为空
!",,"
登录提示信息:
"
Exit Sub
End If
If = "" Then
MsgBox " 请再次输入密码 !", , " 登录提示信息: "
Exit Sub
End If
If <> Then
MsgBox " 两次输入的密码不一致 , 请确认 !", , " 登录提示信息: "
""
""
Exit Sub
Else
' 添加新用户
用户名 ") = Trim
密码 ") = Trim
MsgBox (" 添加新用户成功,现在您可以登陆系统了! ")
= False
= False
= "
登录 "
= "
End If
退出 "
Else
'
“登录”按钮,用户登录
Dim strSno As String
Dim strSelect As String
strSno = Trim
'
检测用户名是否存在
strSelect = "select
密码
from
用户登录信息表
where
用户名
= '" & strSno & "'"
= adCmdText
= strSelect
If = True Then
MsgBox " 用户名不存在,请重新输入! ", , " 登录提示信息: "
""
""
Exit Sub
End If
If " 密码 ") = Trim Then ' 检测密码是否正确
'Unload Me
'MsgBox " 登陆成功! ", , " 登录提示信息: "
Else
MsgBox " 密码不正确,请重新输入! ", , " 登录提示信息: "
= ""
End If
End If
End Sub
Private Sub Command2_Click()
'
“退出”或“取消”按钮
If = " 取消" Then
False
False
"登录"
"退出"
""
""
Else
End 'Unload Me
End If
End Sub
Private Sub Command3_Click() ' “新用户”按钮
True
True
""
""
""
" 确定"
" 取消"
End Sub
Private Sub Command3_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
True End Sub
Privat