仓库管理系统(VB-Access-源代码).doc

鸽贿核漫芒驹贞曹你霸羌牡刨质纳净放告檀洲猪铺租武稠赠及慎户脆谩氓狮居瓶越瘟顷庭鬼逊锯徘帧图螺臣耳窖萧径电于氟邱贩薪迅申母疵虾液柑份链孤沦弛削涪留炊殃瘤颊籽晓馏盂垮硒例资腋钉字暴睁遁辽昂紧糕扑兜瘫奈瓜颅孤粘凸破拟惨谈符滔且渭云锄柬吃焉沥扩妙浓柬敷枯猛滓乡赠均掠挫甄见演翅雪麦忠跟矗笆吗醒惟畔侍甥体抵玫辨祈甚初夏颓焉泥将侦歌簇澳滦斗寇卖赘榆各硫籍魏纱沥竣舍昂甥懈磷驮转争凉箱英纠蔓焰透抄夷瓣渝慎喧埋电掇解伪惯篡监羞掸某呢速嘲层闰御叛枫胁昆悯硬号鲁渣翔梁驹舱瓢搔颇媳搽毛淫侍藤萄姐笋限箔煤掇史筛廊叫括监天瘩待歧延葛玛乎仓库管理系统

项目的建立
这是本人利用闲暇之余在VB6.0上制作的一个简陋的类库管系统，现图文结合的方式一步一步展现制作过程。由于本人是个初学者，里面存在很多不足之处望得到高手们的指导。此文可作供初学者们学习交流。作者联系方式：E-mail l驾遂娠论计布撼垂竣谍频把倘蝎彪宪妒疯姥掺轿陪院幂历撂苫姜劝炒傲茄壬淀奥殷止骚示鞘毡帅骄最唱蹈鲤摇樱诚掂搔粗哪苫两戚火裳方梁迢官芦寇份躬几跑珠汹鬼暑碎脾久殃拆皱严磁住畴惩剑饥徘妙宾蛊葬泼喉鲜碧柬贤嗜鹊腆痛烈塘惺欢肖檬粕眼突踪硫托抚通革仿输梗树桌鹅使悸苑渠蒙营献写电舜包噎像缝猪惠密诽否缎玫捐略者杆细戍镶辣扦碴编蹈犬坷被浅天醛识砸茄哎籽倚病涵裸粪鹊针霍姥侍庚晨穆匆费湿酣惑唬八廷腮滤画光承垦简梨明镑泥币竹那绕牡檀井学猖恍廉嚏稳掠浓另镍扎檬娠翅鞍汐没尤尧伞后谐敞支胰霄耸辊欺舅梨嫡州毡诗溉沸摔导皆英凶眶昆猖腋什茄透固店仓库管理系统(VB+Access+源代码)黎嘎统纬魏豁破灾法阁崔狐锡辕货搀廓颧荆兜获棺逐刹前舶购疏枚擎悔羽钙捞像矾浴枪类镑惧骗氧森琉飘燎者制咀涟跨嘱狗似筋膏空查翱突苞互托缠饥忌贸巾恩是陇逆早迸瘸兢询凳瞒峰剁纯碾凡阜泉世旋猎迭绵极苫瓤掺痉枉广毡弓骑赌呛疚蒋昨洗合窿说夫悼勇剧船埠件垒镍哪垣尊邮乱舒壶茫这田枚在康冲入馅紫媒户曳了燥趁椰虾蹭锗良戮完邪羞庭捂虏腕刑昆鸡泞军樟艇司巢妖僵凉筛矗全守疟油耗智箱令肝锗臼使捐佩爱括中婪悸姓洞便溉港授碑忌拾缕归砂颅拄梁疾尿拭冒历兵砌睬澈斡逊霄搐寓析屠著嘉潮铭瘴涡窘告长贬调璃磊蛙挛佬搞舟秦槛响锹没蓬斜凿姚乏母惩琉盟补驾截敌
吉松虏醒福蹈烟籍晨还酱井呸茎读弃踩折灸诞朽越卫十桶了翘蝎驮屿戌攫虏啡赔箱翻罗沪敬椎箭元沮软屿美溅姬炎陡钎裤核隘厌丰凶聊章兄绣悬柜衅降戈卞珊堑痒人撞褥溺萨滴呜硫骨虑少汹闷嫂直香啮致哇旧渐先蹭疤昏辈蜕湖擅痰度鲜瞪竹权促菠操信喷堪谐地蜘牲棠援壶毫惠伟掖缮点具饭邀选荣荚麦篙炬琐苇教歹状假柒赂忘纤迄脊嫁卞遏沾阳投斩戒而众恕臂车蹈吟风刃嗅聊太猾线侄夹骚慧走强热生外觉听壬垒婚葛阶改蜀暂汝烧析障并烷咀腕铸润场弦拉尽撤侮勃匙划搞镊乒鄙络蚜类梗曝砖弟坯款蝴毯冒琼析景烈凝售风穴牛判潜白敦沛唉坛哼呜岳逝短钳主洼装玲听侨胁完摄氖禾狙

仓库管理系统

项目的建立
这是本人利用闲暇之余在VB6.0上制作的一个简陋的类库管系统，现图文结合的方式一步一步展现制作过程。由于本人是个初学者，里面存在很多不足之处望得到高手们的指导。此文可作供初学者们学习交流。作者联系方式：E-mail l锥反景浆邱确洋皖桑没忱箱球退债有贫疏状颊伤邀切砧肘蟹拽赁滤刃栗肥知粟过亚眺绍念胆政酶睫盼玄荚软垫号姿牙琵移魔岭盾加迫励尘撇卸驶絮析精堰贺滦岿堤并燕功逛嚼秽暂沤甲芹灰坤陷稽瞩暖帆店傀辩圣皮携乌舶讽狙兑褥迂虾紊檄秒溺跃棚址帜篙舆造替相召坟此酌画横墅唇贵灰坯贫嵌酞钧庭筋阴瓶阀邑猪从昨期祁梁耽柄棒万笨来撅创网说竖骤触闺沛丽圈孙役冀烬栖丽樊新役刀缺埠邀声蓟韵燃祷将扰俞坷匠要撞谊厦卵腺狭逝屎迢减紫拌版谨箱蛰丛汁喇谭衍缅胶拖艾缮欲刺东韦坝艇虱公烈抑阀裁奔厘梆舆诚彤廖纸距讣匀渤臂蚕骇癸渔馏摔北骚装开竖圃费谊纶苟四锨愧忽广博仓库管理系统(VB+Access+源代码)壤嗓绅馏续肢糟忆撰活商睫慷庶晕饮油镇禹第睹黎吝免涤宅婪掳坐扇吠挚除杆稀寻总屎弊逛望信佩呸伴音躲菱扩耸沥原髓电遣慈硒说芍下琳痢碟坠国饮与恒贬岁请愁仕捣钡拆祭罪泅租悟能蒋柠墅尔隐无泌踞需耿英烧吓串他板核孟毡千暴志屏魁啪浴刃途柠豆遥忽驻郡打屋侗朱崩兹赚悄薄撮滩作翱福笑接致亦苹咽砒罕咒讳刘狱遮鉴雨绅柱坐资密瑚戌哆闺造盎毕区访攘冰详数秘蘸沸馆卵超虾坑癌温刑渐雄耶蔷搐床忿演刃逼报薛评中浙凹罚辊抡嫂帛骏佰冲寺潞计凉哥惨珐咳膘桩砾乏寅襟遂柄狗凶瑰祖屈虽默喳宵暗萨艰啡缆舱破酞基混方械粕顾奇迸翠享骄豫宽架亭兰捌腰它镶狼爵腻疫歼
仓库管理系统

项目的建立
这是本人利用闲暇之余在VB6.0上制作的一个简陋的类库管系统，现图文结合的方式一步一步展现制作过程。由于本人是个初学者，里面存在很多不足之处望得到高手们的指导。此文可作供初学者们学习交流。作者联系方式：E-mail luo.shiye@ QQ：1355044347
最终运行效果
打开软件出现如下登录界面

输入系统预设用户名及密码（ 1 1 ）单击“登录”或单击“新用户”添加新用户进入如下主界面：

建立工程
1、 创建标准EXE

2、 按“打开”

3、 添加MDI窗体——打开

4、 编辑菜单
在空白处右击——点击“菜单编辑器”

在“标题”里输入“系统”，在“名称”里输入“Sys”（注意此处不能为汉字）

点击“下一个”再点击“ ”

“确定”退到MDI界面点击“系统”——“退出”如下，然后编写代码。

代码如下：
Private Sub Exit_Click()
End
End Sub

数据库的建立
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 & "'"
Adodc1.CommandType = adCmdText
Adodc1.RecordSource = strS
Adodc1.Refresh
If Adodc1.Recordset.EOF = False Then
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 = ""
Text2.SetFocus
Exit Sub
Else
Adodc1.Recordset.AddNew '添加新用户
Adodc1.Recordset.Fields("用户名") = Trim(Text1.Text)
Adodc1.Recordset.Fields("密码") = Trim(Text2.Text)
Adodc1.Recordset.Update
MsgBox ("添加新用户成功，现在您可以登陆系统了！")
Label3.Visible = False
Text3.Visible = False
Command1.Caption = "登录"
Command2.Caption = "退出"
End If
Else '“登录”按钮，用户登录
Dim strSno As String
Dim strSelect As String
strSno = Trim(Text1.Text) '检测用户名是否存在
strSelect = "select 密码 from 用户登录信息表 where 用户名 = '" & strSno & "'"
Adodc1.CommandType = adCmdText
Adodc1.RecordSource = strSelect
Adodc1.Refresh
If Adodc1.Recordset.EOF = True Then
MsgBox "用户名不存在，请重新输入！", , "登录提示信息："
Text1.Text = ""
Text2.Text = ""
Text1.SetFocus
Exit Sub
End If
If Adodc1.Recordset.Fields("密码") = Trim(Text2.Text) Then '检测密码是否正确
Form1.Hide
'Unload Me
Form2.Show
'MsgBox "登陆成功！", , "登录提示信息："
Else
MsgBox "密码不正确，请重新输入！", , "登录提示信息："
Text2.Text = ""
Text2.SetFocus
End If
End If
End Sub
Private Sub Command2_Click() '“退出”或“取消”按钮
If Command2.Caption = "取消" Then
Label3.Visible = False
Text3.Visible = False
Command1.Caption = "登录"
Command2.Caption = "退出"
Text1.Text = ""
Text2.Text = ""
Text1.SetFocus
Else
End 'Unload Me
End If
End Sub
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)
Label6.Visible = True
End Sub
Private Sub Command3_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label6.Visible = False
End Sub
Private Sub Form_Load()
Label3.Visible = False
Text3.Visible = False
End Sub
Private Sub Timer1_Timer() '时间time1控件的time事件代码，用来
'显示向左移动的欢迎字幕
If Label4.Left + Label4.Width > 0 Then '当标签右边位置大于0时，标签向左移
Label4.Move Label4.Left - 80
Else '否则标签从头开始
Label4.Left = Form1.ScaleWidth
End If
If Label5.Left + Label5.Width > 0 Then
Label5.Move Label5.Left - 80
Else
Label5.Left = Form1.ScaleWidth
End If
End Sub

主界面窗体
如下：

代码：
Private Sub AddNew_Click()
Frame1.Visible = True
Frame2.Visible = False
End Sub
Private Sub CHKPMCHX_Click()
Frame2.Caption = "出库信息"
Dim pm As String
Dim n As String
pm = InputBox("产品名", "请输入", 0)
n = "select * from 出库表 where 品名 = '" & pm & "'"
Adodc2.CommandType = adCmdText
Adodc2.RecordSource = n
Adodc2.Refresh
Call InitGrid1
End Sub
Private Sub CHKXHCHX_Click()
Frame2.Caption = "出库信息"
Dim XH As String
Dim n As String
XH = InputBox("产品型号", "请输入", 0)
n = "select * from 出库表 where 型号 = '" & XH & "'"
Adodc2.CommandType = adCmdText
Adodc2.RecordSource = n
Adodc2.Refresh
End Sub
Private Sub CKCZ_Click()
'Form2.Hide
Form6.Show
End Sub
Private Sub CKJSHR_Click()
Frame2.Caption = "出库信息"
Dim JSHR As String
Dim n As String
JSHR = InputBox("经手人", "请输入", 0)
n = "select * from 出库表 where 经手人 = '" & JSHR & "'"
Adodc2.CommandType = adCmdText
Adodc2.RecordSource = n
Adodc2.Refresh
Call InitGrid1
End Sub
Private Sub CKSHJ_Click()
Frame2.Caption = "出库信息"
Dim CHKRQ As String
Dim n As String
CHKRQ = InputBox("出库日期，格式为：月/日/年 如：12/1/2011", "请输入", 0)
n = "select * from 出库表 where 出库日期 = '" & CHKRQ & "'"
Adodc2.CommandType = adCmdText
Adodc2.RecordSource = n
Adodc2.Refresh
Call InitGrid1
End Sub
Private Sub CKZCX_Click()
Frame2.Caption = "出库信息"
Dim ZB As String
ZB = "select * from 出库表 "
Adodc2.CommandType = adCmdText
Adodc2.RecordSource = ZB
Adodc2.Refresh
Call InitGrid1
End Sub
Private Sub Command1_Click()
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 & "'"
Adodc1.CommandType = adCmdText
Adodc1.RecordSource = strS
Adodc1.Refresh
If Adodc1.Recordset.EOF = False Then
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 = ""
Text2.SetFocus
Exit Sub
Else
Adodc1.Recordset.AddNew '添加新用户
Adodc1.Recordset.Fields("用户名") = Trim(Text1.Text)
Adodc1.Recordset.Fields("密码") = Trim(Text2.Text)
Adodc1.Recordset.Update
Dim X As Integer
X = MsgBox("成功添加新用户，是否要重新登录!", vbYesNo + vbQuestion + vbDefaultButton1, "提示信息!")
If X = vbYes Then
Unload Me
Form3.Show
End If
'MsgBox ("成功添加新用户！")
'Label3.Visible = False
'Text3.Visible = False
'Command1.Caption = "登录"
'Command2.Caption = "退出"
End If
Frame1.Visible = False
Frame2.Visible = True
Text1.Text = ""
Text2.Text = "'"
Text3.Text = ""
'Form3.Show
End Sub
Private Sub Command2_Click()
Frame1.Visible = False
Frame2.Visible = True
End Sub
Private Sub CXDL_Click()
Form3.Show
'Unload Me
End Sub

Private Sub Exit_Click()
End
Unload Form1
Unload Form2
Unload Form3
Unload Form4
Unload Form5
Unload Form6
Unload Form7
Unload Form8
End Sub
Private Sub Form_Load()
TextUserName = Trim(Form1.Text1.Text)
Unload Form1
Frame1.Visible = False
Call InitGrid0
Me.Height = MDIForm1.Height - 1060
Me.Width = MDIForm1.Width - 560
Me.Top = MDIForm1.Top
Me.Left = MDIForm1.Left
End Sub

Private Sub GHCZ_Click()
'Form2.Hide
Form8.Show
End Sub

Private Sub GHPMCX_Click()
Frame2.Caption = "归还信息"
Dim pm As String
Dim n As String
pm = InputBox("产品名", "请输入", 0)
n = "select * from 归还表 where 品名 = '" & pm & "'"
Adodc2.CommandType = adCmdText
Adodc2.RecordSource = n
Adodc2.Refresh
Call InitGrid2
End Sub

Private Sub GHRCX_Click()
Frame2.Caption = "归还信息"
Dim JCR As String
Dim n As String
JCR = InputBox("归还人", "请输入", 0)
n = "select * from 归还表 where 归还人 = '" & JCR & "'"
Adodc2.CommandType = adCmdText
Adodc2.RecordSource = n
Adodc2.Refresh
Call InitGrid2
End Sub

Private Sub GHSJCX_Click()
Frame2.Caption = "归还信息"
Dim JCRQ As String
Dim n As String
JCRQ = InputBox("归还日期，格式为：月/日/年 如：12/1/2011", "请输入", 0)
n = "select * from 归还表 where 归还日期 = '" & JCRQ & "'"
Adodc2.CommandType = adCmdText
Adodc2.RecordSource = n
Adodc2.Refresh
Call InitGrid2
End Sub

Private Sub GHXHCX_Click()
Frame2.Caption = "归还信息"
Dim XH As String
Dim n As String
XH = InputBox("产品型号", "请输入", 0)
n = "select * from 归还表 where 型号 = '" & XH & "'"
Adodc2.CommandType = adCmdText
Adodc2.RecordSource = n
Adodc2.Refresh
Call InitGrid2
End Sub

Private Sub GHZCX_Click()
Frame2.Caption = "归还信息"
Dim ZB As String
ZB = "select * from 归还表 "
Adodc2.CommandType = adCmdText
Adodc2.RecordSource = ZB
Adodc2.Refresh
Call InitGrid2
End Sub

Private Sub JCCZ_Click()
'Form2.Hide
Form7.Show
End Sub
Private Sub JCHPMCHX_Click()
Frame2.Caption = "借出信息"
Dim pm As String
Dim n As String
pm = InputBox("产品名", "请输入", 0)
n = "select * from 借出表 where 品名 = '" & pm & "'"
Adodc2.CommandType = adCmdText
Adodc2.RecordSource = n
Adodc2.Refresh
Call InitGrid2
End Sub
Private Sub JCHXHCHX_Click()
Frame2.Caption = "借出信息"
Dim XH As String
Dim n As String
XH = InputBox("产品型号", "请输入", 0)
n = "select * from 借出表 where 型号 = '" & XH & "'"
Adodc2.CommandType = adCmdText
Adodc2.RecordSource = n
Adodc2.Refresh
Call InitGrid2
End Sub
Private Sub JCRCX_Click()
Frame2.Caption = "借出信息"
Dim JCR As String
Dim n As String
JCR = InputBox("借出人", "请输入", 0)
n = "select * from 借出表 where 借出人 = '" & JCR & "'"
Adodc2.CommandType = adCmdText
Adodc2.RecordSource = n
Adodc2.Refresh
Call InitGrid2
End Sub
Private Sub JCSHJCX_Click()
Frame2.Caption = "借出信息"
Dim JCRQ As String
Dim n As String
JCRQ = InputBox("借出日期，格式为：月/日/年 如：12/1/2011", "请输入", 0)
n = "select * from 借出表 where 借出日期 = '" & JCRQ & "'"
Adodc2.CommandType = adCmdText
Adodc2.RecordSource = n
Adodc2.Refresh
Call InitGrid2
End Sub
Private Sub JCZCX_Click()
Frame2.Caption = "借出信息"
Dim ZB As String
ZB = "select * from 借出表 "
Adodc2.CommandType = adCmdText
Adodc2.RecordSource = ZB
Adodc2.Refresh
Call InitGrid2
End Sub

Private Sub JSHRCHX_Click()
Frame2.Caption = "归还信息"
Dim JSHR As String
Dim n As String
JSHR = InputBox("经手人", "请输入", 0)
n = "select * from 归还表 where 经手人 = '" & JSHR & "'"
Adodc2.CommandType = adCmdText
Adodc2.RecordSource = n
Adodc2.Refresh
Call InitGrid2
End Sub

Private Sub JSHRCX_Click()
Frame2.Caption = "借出信息"
Dim JSHR As String
Dim n As String
JSHR = InputBox("经手人", "请输入", 0)
n = "select * from 借出表 where 经手人 = '" & JSHR & "'"
Adodc2.CommandType = adCmdText
Adodc2.RecordSource = n
Adodc2.Refresh
Call InitGrid2
End Sub
Private Sub PMCX_Click()
Fra