文档介绍：仓库管理系统
项目建立
，现图文结合方式一步一步呈现制作过程。由于本人是个初学者，里面存在诸多局限性之处望得到高手们指引。此文可作供初学者们学****交流。作者联系方式：E-mail QQ：
最后运营效果
打开软件浮现如下登录界面
输入系统预设顾客名及密码（ 1 1 ）单击“登录”或单击“新顾客”添加新顾客进入如下主界面：
建立工程
创立原则EXE
按“打开”
添加MDI窗体——打开
编辑菜单
在空白处右击——点击“菜单编辑器”
在“标题”里输入“系统”，在“名称”里输入“Sys”（注意此处不能为中文）
点击“下一种”再点击“ ”
“拟定”退到MDI界面点击“系统”——“退出”如下，然后编写代码。
代码如下：
Private Sub Exit_Click()
End
End Sub
数据库建立
。如下建立一种“顾客表”数据库，用来存储顾客信息及某些出入库管理信息。如下图单击“外接程序”
再单击“可视化数据管理器”浮现如图
点击“文献”——“新建”——“Microsoft Access”——“Version MDB”输入数据库名，“保存”浮现如下图
在数据窗口中右击——“新建表”，最后如下
往数据表里添加数据在这里就不罗嗦了，请查阅有关书籍。
登录界面窗口建立
最后界面如下：
1、Adodc1添加过程为：单击“工程”——“部件”浮现下图所示，选取“控件”下“Microsoft ADO Data Control （OLEDB）”
单击“拟定”在工具栏中会浮现“”图标，单击它并拖动到相应位置即可。其他元件不在一一阐明。
本窗体代码如下：
Private Sub Command1_Click() '“登录”、“拟定”按钮
If = "拟定" And = "取消" Then '如果为“拟定”则添加新顾客
If = "" 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 '提示顾客密码不能为空