Private Sub Command1_Click()
Dim sql As String
Dim rs_login As New ADODB.Recordset
If Trim(Text1.Text) = "" Then
MsgBox "没有这个用户", vbOKOnly + vbExclamation, ""
Text1.SetFocus
Else
sql = "select * from 用户管理 where 用户名='" & Text1.Text & "'"
rs_login.Open sql, conn, adOpenKeyset, adLockPessimistic
若图片无法显示请联系QQ752018766,本论文免费,转发请注明源于www.youerw.com
userID = Text1.Text
rs_login.Close
Unload Me
xitong_zhujiemiang.Show
Else
MsgBox "密码不正确", vbOKOnly + vbExclamation, ""
Text2.SetFocus
End If
End If
End If
cnt = cnt + 1
If cnt = 3 Then
MsgBox "对不起，您已连续三次输入错误,请确认正确密码再试，谢谢！", vbOKOnly + vbExclamation, ""
Unload Me
End If
Exit Sub
End Sub
(2)主页面模块的设计：此模块的功能是分类本管理系统的两个主要部分。用到了三个Commamd控件。
图1.3 系统主界面
进入主界面，就可以进行按照操作对仓库管理、系统管理的操作，当点击仓库管理时进入商品管理界面，点击系统管理时进入系统管理界面。
(3)仓库管理模块设计：此模块每个界面都设有详细的菜单，通过菜单的选择，可以控制仓库管理模块中的所有功能。其主要功能有入库登记、出库登记、库存管理。其中库存管理中还包括查询、删除、统计及报表功能。
① 入库登记模块的设计：此模块的主要功能是实现货物存入仓库前的基本信息登记。需要录入的信息有：货物编号、货物名称、型号、单价、入库时间、总价及备注。每一项都必须填写，点击确定，则此货物入库登记成功。
图1.4 入库登记界面
② 出库登记模块的设计：此模块的主要功能是实现货物存出仓库前的基本信息登记。只要在在商品信息表中选择要出库的商品，点击确定，即可完成商品出库登记。
图1.5 出库登记界面
仓库管理模块的设计：此模块包含了本系统的主要功能，在仓库管理子菜单中包括库存查询，库存删除，库存统计及库存报表。
上一页 [1] [2] [3] [4] [5] [6] [7] [8] [9] 下一页