文档介绍:仓库管理系统
项目的建立
这是本人利用闲暇之余在上制作的一个简陋的类库管系统,现图文结合的方式一步一步展现制作过程。由于本人是个初学者,里面存在很多不足之处望得到高手们的指导。此文可作供初学者们学****交流。 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
Private Sub Command3_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
= False End Sub
Private Sub Form_Load()
= False
= False
End Sub
Private
Sub
Timer1_Timer()
'时间 time1 控件的time 事件代码,
用来
'显示向左移动的欢迎字幕
If +
> 0
Then
'当标签右边位置大于 0 时,标签向左移
-
80
Else
'否则标签从头开始
=
End If
If + > 0 Then
- 80
Else
=
End If End Sub
主界面窗体
如下:
代码:
Private Sub AddNew_Click()
= True
= False End Sub
Private Sub CHKPMCHX_Click()
= "出库信息"
Dim pm As String Dim n As String
pm = InputBox("产品名", "请输入", 0)
n = "select * from 出库表 where 品名 = '" & pm & "'"
= adCmdText
= n
Call InitGrid1 End Sub
Private Sub CHKXHCHX_Click()
= "出库信息" Dim XH As String Dim n As String
XH = InputBox("产品型号", "请输入", 0)
n = "select * from 出库表 where 型号 = '" & XH & "'"
= adCmdText
= n
End Sub
Private Sub CKCZ_Click() '
End Sub
Private Sub CKJSHR_Click()
= "出库信息"
Dim JSHR As String Dim n As String
JSHR = InputBox("经手人", "请输入", 0)
n = "select * from 出库表 where 经手人 = '" & JSHR & "'"
= adCmdText
= n
Call InitGrid1 En