仓库管理系统VB+Access+源代码.docx
《仓库管理系统VB+Access+源代码.docx》由会员分享，可在线阅读，更多相关《仓库管理系统VB+Access+源代码.docx（49页珍藏版）》请在冰点文库上搜索。
仓库管理系统VB+Access+源代码
仓库管理系统
项目的建立
这是本人利用闲暇之余在6.0上制作的一个简陋的类库管系统，现图文结合的方式一步一步展现制作过程。
由于本人是个初学者，里面存在很多不足之处望得到高手们的指导。
此文可作供初学者们学习交流。
作者联系方式：
：
1355044347
最终运行效果
打开软件出现如下登录界面
输入系统预设用户名及密码（11）单击“登录”或单击“新用户”添加新用户进入如下主界面：
建立工程
1、创建标准
2、按“打开”
3、添加窗体——打开
4、编辑菜单
在空白处右击——点击“菜单编辑器”
在“标题”里输入“系统”，在“名称”里输入“”（注意此处不能为汉字）
点击“下一个”再点击“”
“确定”退到界面点击“系统”——“退出”如下，然后编写代码。
代码如下：
（）
数据库的建立
6.0中可以创建数据库。
如下建立一个“用户表”的数据库，用来存放用户信息及一些出入库管理信息。
如下图单击“外接程序”
再单击“可视化数据管理器”出现如图
点击“文件”——“新建”——“”——“2.0”输入数据库名，“保存”出现如下图
在数据窗口中右击——“新建表”，最终如下
往数据表里添加数据在这里就不罗嗦了，请查阅相关书籍。
登录界面窗口的建立
最终界面如下：
1、1的添加过程为：
单击“工程”——“部件”出现下图所示，选择“控件”下的“6.0（）”
单击“确定”在工具栏中会出现“
”图标，单击它并拖动到相应位置即可。
其它元件不在一一说明。
2、本窗体代码如下：
1（）'“登录”、“确定”按钮
1="确定"2="取消"'如果为“确定”则添加新用户
1=""'提示用户输入用户名
"请输入用户名！
",,"登录信息提示：
"
'
'检测用户名是否已经存在
=
（1）
="*用户登录信息表用户名='"&&"'"
1=
1=
1
1=
"您输入的用户已存在!
",,"登录提示信息：
"
1=""
2=""
3=""
1
2=""'提示用户密码不能为空
"密码不能为空!
",,"登录提示信息：
"
2
3=""
"请再次输入密码!
",,"登录提示信息：
"
3
2<>3
"两次输入的密码不一致,请确认!
",,"登录提示信息：
"
2=""
3=""
2
1'添加新用户
1（"用户名"）=
（1）
1（"密码"）=
（2）
1
（"添加新用户成功，现在您可以登陆系统了！
"）
3=
3=
1="登录"
2="退出"
'“登录”按钮，用户登录
=
（1）'检测用户名是否存在
="密码用户登录信息表用户名='"&&"'"
1=
1=
1
1=
"用户名不存在，请重新输入！
",,"登录提示信息：
"
1=""
2=""
1
1（"密码"）=
（2）'检测密码是否正确
1
'
2
'"登陆成功！
",,"登录提示信息：
"
"密码不正确，请重新输入！
",,"登录提示信息：
"
2=""
2
2（）'“退出”或“取消”按钮
2="取消"
3=
3=
1="登录"
2="退出"
1=""
2=""
1
'
3（）'“新用户”按钮
3=
3=
1=""
2=""
3=""
1="确定"
2="取消"
1
3（,,X,Y）
6=
3（,,X,Y）
6=
（）
3=
3=
1（）'时间1控件的事件代码，用来
'显示向左移动的欢迎字幕
4+4>0'当标签右边位置大于0时，标签向左移
44-80
'否则标签从头开始
4=1
5+5>0
55-80
5=1
主界面窗体
如下：
代码：
（）
1=
2=
（）
2="出库信息"
n
=（"产品名","请输入",0）
n="*出库表品名='"&&"'"
2=
2=n
2
1
（）
2="出库信息"
n
=（"产品型号","请输入",0）
n="*出库表型号='"&&"'"
2=
2=n
2
（）
'2
6
（）
2="出库信息"
n
=（"经手人","请输入",0）
n="*出库表经手人='"&&"'"
2=
2=n
2
1
（）
2="出库信息"
n
=（"出库日期，格式为：
月/日/年如：
12/1/2011","请输入",0）
n="*出库表出库日期='"&&"'"
2=
2=n
2
1
（）
2="出库信息"
="*出库表"
2=
2=
2
1
1（）
1=""'提示用户输入用户名
"请输入用户名！
",,"登录信息提示：
"
'
'检测用户名是否已经存在
=
（1）
="*用户登录信息表用户名='"&&"'"
1=
1=
1
1=
"您输入的用户已存在!
",,"登录提示信息：
"
1=""
2=""
3=""
1
2=""'提示用户密码不能为空
"密码不能为空!
",,"登录提示信息：
"
2
3=""
"请再次输入密码!
",,"登录提示信息：
"
3
2<>3
"两次输入的密码不一致,请确认!
",,"登录提示信息：
"
2=""
3=""
2
1'添加新用户
1（"用户名"）=
（1）
1（"密码"）=
（2）
1
X
X=（"成功添加新用户，是否要重新登录!
",++1,"提示信息!
"）
X=
3
'（"成功添加新用户！
"）
'3=
'3=
'1="登录"
'2="退出"
1=
2=
1=""
2="'"
3=""
'3
2（）
1=
2=
（）
3
'
（）
1
2
3
4
5
6
7
8
（）
=（11）
1
1=
0
=1-1060
=1-560
=1
=1
（）
'2
8
（）
2="归还信息"
n
=（"产品名","请输入",0）
n="*归还表品名='"&&"'"
2=
2=n
2
2
（）
2="归还信息"
n
=（"归还人","请输入",0）
n="*归还表归还人='"&&"'"
2=
2=n
2
2
（）
2="归还信息"
n
=（"归还日期，格式为：
月/日/年如：
12/1/2011","请输入",0）
n="*归还表归还日期='"&&"'"
2=
2=n
2
2
（）
2="归还信息"
n
=（"产品型号","请输入",0）
n="*归还表型号='"&&"'"
2=
2=n
2
2
（）
2="归还信息"
="*归还表"
2=
2=
2
2
（）
'2
7
（）
2="借出信息"
n
=（"产品名","请输入",0）
n="*借出表品名='"&&"'"
2=
2=n
2
2
（）
2="借出信息"
n
=（"产品型号","请输入",0）
n="*借出表型号='"&&"'"
2=
2=n
2
2
（）
2="借出信息"
n
=（"借出人","请输入",0）
n="*借出表借出人='"&&"'"
2=
2=n
2
2
（）
2="借出信息"
n
=（"借出日期，格式为：
月/日/年如：
12/1/2011","请输入",0）
n="*借出表借出日期='"&&"'"
2=
2=n
2
2
（）
2="借出信息"
="*借出表"
2=
2=
2
2
（）
2="归还信息"
n
=（"经手人","请输入",0）
n="*归还表经手人='"&&"'"
2=
2=n
2
2
（）
2="借出信息"
n
=（"经手人","请输入",0）
n="*借出表经手人='"&&"'"
2=
2=n
2
2
（）
2="库存信息"
n
=（"产品名","请输入",0）
n="*库存表品名='"&&"'"
2=
2=n
2
0
（）
'2
5
（）
2="入库信息"
n
=（"经手人","请输入",0）
n="*入库表经手人='"&&"'"
2=
2=n
2
1
（）
2="入库信息"
n
=（"产品名","请输入",0）
（）>0
n="*入库表品名='"&&"'"
2=
2=n
2
1
（）
2="入库信息"
n
=（"入库日期，格式为：
月/日/年如：
12/1/2011","请输入",0）
n="*入库表入库日期='"&&"'"
2=
2=n
2
1
（）
2="入库信息"
n
=（"产品型号","请输入",0）
（）>0
n="*入库表型号='"&&"'"
2=
2=n
2
1
（）
2="入库信息"
="*入库表"
2=
2=
2
1
1（）
4+4>0'当标签右边位置大于0时，标签向左移
44-80
'否则标签从头开始
4=2
5+5>0
55-80
5=2
6+6>0
66-80
6=2
7+7>0
77-80
7=2
（）
'2
4
（）
2="库存信息"
n
=（"产品型号","请输入",0）
（）>0'（）<>0
n="*库存表型号='"&&"'"
2=
2=n
2
0
（）
2="库存信息"
'N
'=（"产品名","请输入",0）
="*库存表"'品名='"&&"'"
2=
2=
2
0
0（）
1
（0）=1600
（1）=2200
（2）=2200
（3）=1000
（4）=1000
（5）=4000
1（）
1
（0）=800
（1）=1600
（2）=1600
（3）=800
（4）=800
（5）=1000
（6）=800
（7）=4000
2（）
1
'（0）="学号"
'
（1）="课程名"
'
（2）="学分"
'（3）="成绩"
'设置的列宽
（0）=800
（1）=1600
（2）=1600
（3）=800
（4）=800
（5）=800
（6）=1000
（7）=800
（8）=4000
用户重新登录界面
代码：
1（）
=
（1）'检测用户名是否存在
="密码用户登录信息表用户名='"&&"'"
1=
1=
1
1=
"用户名不存在，请重新输入！
",,"登录提示信息：
"
1=""
2=""
1
1（"密码"）=
（2）'检测密码是否正确
2
'"登陆成功！
",,"登录提示信息：
"
"密码不正确，请重新输入！
",,"登录提示信息：
"
2=""
2
2（）
2
修改用户密码界面
代码：
1（）
（1）<>2
"用户名不正确，请确认！
",,"信息提示！
"
1=""
1
=
（1）
="*用户登录信息表用户名='"&&"'"
1=
1=
1
2=""
"请输入旧密码!
",,"信息提示！
"
2
1（"密码"）<>
（2）
"旧密码不正确，请确认!
",,"信息提示！
"
2=""
2
3=""
"请输入新密码!
",,"信息提示！
"
3
4=""
"请再次输入新密码!
",,"信息提示！
"
4
（3）<>（4）
"两次输入的新密码不一致!
",,"信息提示！
"
3=""
4=""
3
1（"密码"）=（3）
1
（"密码修改成功！
"）
'2
2（）
'2
入库管理
代码：
1（）
1=""2=""
"“品名”和“型号”不能同时为空，必须输入其中一项!
",,"提示信息!
"
1
3=""4=""
"请输入产品“数量”或“单位”之一!
",,"提示信息!
"
3
5=""
"请经手人签名!
",,"提示信息!
"
5
1
1'添加
1（"品名"）=
（1）
1（"型号"）=
（2）
1（"数量"）=（3）
1（"单位"）=（4）
1（"经手人"）=（5）
1（"入库日期"）=
1（"说明"）=（7）
1
n
m
=
（1）
n=（3）
="*库存表品名='"&&"'"
22=
22=
22
22
2
2
2（"品名"）=
（1）
2（"型号"）=
（2）
2（"数量"）=（3）
2（"单位"）=（4）
2（"说明"）=（7）
2
m=22（"数量"）
22（"型号"）=
（2）
22（"数量"）=（m）+（n）
22
X
X=（"产品入库登记成功，是否继续添加产品!
",++1,"提示信息!
"）
X=
'2
1=""
2=""
3=""
4=""
5=""
6=""
7=""
1
22="入库信息"
="*入库表"'品名='"&&"'"
22=
22=
22
2（）
1=""
2=""
3=""
4=""
5=""
6=""
7=""
1
3（）
'2
出库管理
代码：
1（）
1=""2=""'1=""2=""
"“品名”和“型号”不能同时为空，必须输入其中一项!
",,"提示信息!
"
1=""3=""'4=""
"请输入产品“数量”或“单位”之一!
",,"提示信息!
"
2
2=""
"请经手人签名!
",,"提示信息!
"
2
1
1'添加
1（"品名"）=
（1）'
（1）
1（"型号"）=
（2）'
（2）
1（"数量"）=
（1）
1（"单位"）=（3）'（4）
1（"经手人"）=
（2）
1（"出库日期"）=
1（"说明"）=（4）
1
n
m
=
（1）
n=
（1）
="*库存表品名='"&&"'"
22=
22=
22
m=22（"数量"）
22（"型号"）=
（2）
22（"数量"）=（m）-（n）
22
X
X=（"产品出库登记成功，是否继续添加产品!
",++1,"提示信息!
"）
X=
'2
1=""
2=""
3=""
1=""
2=""
3=""
4=""
22="出库信息"
="*出库表"'品名='"&&"'"
22=
22=
22
2（）
1=""
2=""
3=""
1=""
2=""
3=""
4=""
3（）
'2
（）
2
2
2
22（"型号"）
12（"品名"）
32（"单位"）
2
Loop
借出管理
代码：
1（）
1=""2=""'1=""2=""
"“品名”和“型号”不能同时为空，必须输入其中一项!
",,"提示信息!
"
1=""3=""'4=""
"请输入产品“数量”或“单位”之一!
",,"提示信息!
"
1
2=""
"请经手人签名!
",,"提示信息!
"
2
1
1'添加
1（"品名"）=
（1）'
（1）
1（"型号"）=
（2）'
（2）
1（"数量"）=
（1）
1（"单位"）=（3）'（4）
1（"经手人"）=
（2）
1（"借出人"）=（3）
1（"借出日期"）=
1（"说明"）=（4）
1
n
m
=
（1）
n=
（1）
="*库存表品名='"&&"'"
22=
22=
22
m=22（"数量"）
22（"型号"）=
（2）
22（"数量"）=（m）-（n）
22
X
X=（"产品借出登记成功，是否继续添加产品!
",++1,"提示信息!
"）
X=
2
1=""
2=""
3=""
1=""
2=""
3=""
4=""
22="借出信息"
="*借出表"'品名='"&&"'"
22=
22=
22
2（）
1=""
2=""
3=""
1=""
2=""
3=""
4=""
3（）
2
（）
2
2
2
12（"品名"）
22（"型号"）
32（"单位"）
2
Loop
归还管理
代码：
1（）
1=""2=""'1=""2=""
"“品名”和“型号”不能同时为空，必须输入其中一项!
",,"提示信息!
"
1=""3=""'4=""
"请输入产品“数量”或“单位”之一!
",,"提示信息!
"
1
2=""
"请经手人签名!
",,"提示信息!
"
2
3=""
"请输入归还人姓名!
",,"提示信息!
"
3
1
1'添加
1（"品名"）=
（1）'
（1）
1（"型号"）=
（2）'
（2）
1（"数量"）=
（1）
1（"单位"）=（3）'（4）
1（"经手人"）=
（2）
1（"归还人"）=（3）
1（"归还日期"）=
1（"说明"）=（4）
1
n
m
=
（1）
n=
（1）
="*库存表品名='"&&"'"
22=
22=
22
m=22（"数量"）
22（"型号"）=
（2）
22（"数量"）=（m）+（n）
22
升级会员 