仓库管理系统(VB+Access+源代码)

精心整理

仓库管理系统

项目的建立

这是本人利用闲暇之余在VB6.0上制作的一个简陋的类库管系统，现图文结合的方式一步一步展现制作过程。由于本人是个初学者，里面存在很多不足之处望得到高手们的指导。此文可作供初学者们学习交流。作者联系方式：E-mail

1、

2、

3、

4、

End

VB6.0中可以创建Access数据库。如下建立一个“用户表”的数据库，用来存放用户信息及一些出入库管理信息。如下图单击“外接程序”

再单击“可视化数据管理器”出现如图

点击“文件”——“新建”——“Microsoft Access”——“Version 2.0 MDB”输入数据库名，“保存”出现如下图

在数据窗口中右击——“新建表”，最终如下

往数据表里添加数据在这里就不罗嗦了，请查阅相关书籍。

登录界面窗口的建立

最终界面如下：

1、Adodc1的添加过程为：单击“工程”——“部件”出现下图所示，选择“控件”下的“Microsoft ADO Data Control 6.0 （OLEDB）”

单击“确定”在工具栏中会出现“”图标，单击它并拖动到相应位置即可。其它元件不在一一

说明。

2、本窗体代码如下：

Private Sub Command1_Click() '“登录”、“确定”按钮

If Command1.Caption = "确定" And Command2.Caption = "取消" Then '如果为“确定”则添加新用户

If Text1.Text = "" Then '提示用户输入用户名

MsgBox "请输入用户名！", , "登录信息提示："

Exit Sub

Else '

Dim usename As String '检测用户名是否已经存在

Dim strS As String

usename = Trim(Text1.Text)

strS = "select * from 用户登录信息表 where 用户名='" & usename & "'"

mandType = adCmdText

Adodc1.RecordSource = strS

Adodc1.Refresh

MsgBox "您输入的用户已存在!", , "登录提示信息："

Text1.Text = ""

Text2.Text = ""

Text3.Text = ""

Text1.SetFocus

Exit Sub

End If

End If

If Text2.Text = "" Then '提示用户密码不能为空

MsgBox "密码不能为空!", , "登录提示信息："

Text2.SetFocus

Exit Sub

End If

If Text3.Text = "" Then

MsgBox "请再次输入密码!", , "登录提示信息："

Text3.SetFocus

Exit Sub

End If

If Text2.Text <> Text3.Text Then

MsgBox "两次输入的密码不一致,请确认!", , "登录提示信息："

Text2.Text = ""

Text3.Text = ""

Exit Sub

Else

MsgBox ("添加新用户成功，现在您可以登陆系统了！")

Label3.Visible = False

Text3.Visible = False

Command1.Caption = "登录"

Command2.Caption = "退出"

End If

Else '“登录”按钮，用户登录 Dim strSno As String

Dim strSelect As String

Text3.Visible = False

Command1.Caption = "登录"

Command2.Caption = "退出"

Text1.Text = ""

Text2.Text = ""

Text1.SetFocus

Else

End 'Unload Me

End If

Private Sub Command3_Click() '“新用户”按钮 Label3.Visible = True

Text3.Visible = True

Text1.Text = ""

Text2.Text = ""

Text3.Text = ""

Command1.Caption = "确定"

Command2.Caption = "取消"

Text1.SetFocus

End Sub

Private Sub Command3_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)

如下：

代码：

Private Sub AddNew_Click()

Frame1.Visible = True

Frame2.Visible = False

End Sub

Private Sub CHKPMCHX_Click()

Frame2.Caption = "出库信息"