仓库管理系统VB+Access+源代码.docx
《仓库管理系统VB+Access+源代码.docx》由会员分享，可在线阅读，更多相关《仓库管理系统VB+Access+源代码.docx（38页珍藏版）》请在冰点文库上搜索。
仓库管理系统VB+Access+源代码
仓库管理系统
项目的建立
这是本人利用闲暇之余在VB6.0上制作的一个简陋的类库管系统，现图文结合的方式一步一步展现制作过程。
由于本人是个初学者，里面存在很多不足之处望得到高手们的指导。
此文可作供初学者们学习交流。
作者联系方式：
E-mail
最终运行效果
打开软件出现如下登录界面
输入系统预设用户名及密码（11）单击“登录”或单击“新用户”添加新用户进入如下主界面：
建立工程
1、创建标准EXE
2、按“打开”
3、添加MDI窗体——打开
4、编辑菜单
在空白处右击——点击“菜单编辑器”
在“标题”里输入“系统”，在“名称”里输入“Sys”（注意此处不能为汉字）
点击“下一个”再点击“”
“确定”退到MDI界面点击“系统”——“退出”如下，然后编写代码。
代码如下：
PrivateSubExit_Click（）
End
EndSub
数据库的建立
VB6.0中可以创建Access数据库。
如下建立一个“用户表”的数据库，用来存放用户信息及一些出入库管理信息。
如下图单击“外接程序”
再单击“可视化数据管理器”出现如图
点击“文件”——“新建”——“MicrosoftAccess”——“Version2.0MDB”输入数据库名，“保存”出现如下图
在数据窗口中右击——“新建表”，最终如下
往数据表里添加数据在这里就不罗嗦了，请查阅相关书籍。
登录界面窗口的建立
最终界面如下：
1、Adodc1的添加过程为：
单击“工程”——“部件”出现下图所示，选择“控件”下的“MicrosoftADODataControl6.0（OLEDB）”
单击“确定”在工具栏中会出现“
”图标，单击它并拖动到相应位置即可。
其它元件不在一一说明。
2、本窗体代码如下：
PrivateSubCommand1_Click（）'“登录”、“确定”按钮
IfCommand1.Caption="确定"AndCommand2.Caption="取消"Then'如果为“确定”则添加新用户
IfText1.Text=""Then'提示用户输入用户名
MsgBox"请输入用户名！
",,"登录信息提示：
"
ExitSub
Else'
DimusenameAsString'检测用户名是否已经存在
DimstrSAsString
usename=Trim（Text1.Text）
strS="select*from用户登录信息表where用户名='"&usename&"'"
Adodc1.CommandType=adCmdText
Adodc1.RecordSource=strS
Adodc1.Refresh
MsgBox"您输入的用户已存在!
",,"登录提示信息：
"
Text1.Text=""
Text2.Text=""
Text3.Text=""
Text1.SetFocus
ExitSub
EndIf
EndIf
IfText2.Text=""Then'提示用户密码不能为空
MsgBox"密码不能为空!
",,"登录提示信息：
"
Text2.SetFocus
ExitSub
EndIf
IfText3.Text=""Then
MsgBox"请再次输入密码!
",,"登录提示信息：
"
Text3.SetFocus
ExitSub
EndIf
IfText2.Text<>Text3.TextThen
MsgBox"两次输入的密码不一致,请确认!
",,"登录提示信息：
"
Text2.Text=""
Text3.Text=""
Text2.SetFocus
ExitSub
Else
MsgBox（"添加新用户成功，现在您可以登陆系统了！
"）
Label3.Visible=False
Text3.Visible=False
Command1.Caption="登录"
Command2.Caption="退出"
EndIf
Else'“登录”按钮，用户登录
DimstrSnoAsString
DimstrSelectAsString
strSno=Trim（Text1.Text）'检测用户名是否存在
strSelect="select密码from用户登录信息表where用户名='"&strSno&"'"
Adodc1.CommandType=adCmdText
Adodc1.RecordSource=strSelect
Adodc1.Refresh
MsgBox"用户名不存在，请重新输入！
",,"登录提示信息：
"
Text1.Text=""
Text2.Text=""
Text1.SetFocus
ExitSub
EndIf
Form1.Hide
'UnloadMe
Form2.Show
'MsgBox"登陆成功！
",,"登录提示信息：
"
Else
MsgBox"密码不正确，请重新输入！
",,"登录提示信息：
"
Text2.Text=""
Text2.SetFocus
EndIf
EndIf
EndSub
PrivateSubCommand2_Click（）'“退出”或“取消”按钮
IfCommand2.Caption="取消"Then
Label3.Visible=False
Text3.Visible=False
Command1.Caption="登录"
Command2.Caption="退出"
Text1.Text=""
Text2.Text=""
Text1.SetFocus
Else
End'UnloadMe
EndIf
EndSub
PrivateSubCommand3_Click（）'“新用户”按钮
Label3.Visible=True
Text3.Visible=True
Text1.Text=""
Text2.Text=""
Text3.Text=""
Command1.Caption="确定"
Command2.Caption="取消"
Text1.SetFocus
EndSub
PrivateSubCommand3_MouseDown（ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle）
Label6.Visible=True
EndSub
PrivateSubCommand3_MouseUp（ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle）
Label6.Visible=False
EndSub
PrivateSubForm_Load（）
Label3.Visible=False
Text3.Visible=False
EndSub
PrivateSubTimer1_Timer（）'时间time1控件的time事件代码，用来
'显示向左移动的欢迎字幕
IfLabel4.Left+Label4.Width>0Then'当标签右边位置大于0时，标签向左移
Else'否则标签从头开始
Label4.Left=Form1.ScaleWidth
EndIf
IfLabel5.Left+Label5.Width>0Then
Else
Label5.Left=Form1.ScaleWidth
EndIf
EndSub
主界面窗体
如下：
代码：
PrivateSubAddNew_Click（）
Frame1.Visible=True
Frame2.Visible=False
EndSub
PrivateSubCHKPMCHX_Click（）
Frame2.Caption="出库信息"
DimpmAsString
DimnAsString
pm=InputBox（"产品名","请输入",0）
n="select*from出库表where品名='"&pm&"'"
Adodc2.CommandType=adCmdText
Adodc2.RecordSource=n
Adodc2.Refresh
CallInitGrid1
EndSub
PrivateSubCHKXHCHX_Click（）
Frame2.Caption="出库信息"
DimXHAsString
DimnAsString
XH=InputBox（"产品型号","请输入",0）
n="select*from出库表where型号='"&XH&"'"
Adodc2.CommandType=adCmdText
Adodc2.RecordSource=n
Adodc2.Refresh
EndSub
PrivateSubCKCZ_Click（）
'Form2.Hide
Form6.Show
EndSub
PrivateSubCKJSHR_Click（）
Frame2.Caption="出库信息"
DimJSHRAsString
DimnAsString
JSHR=InputBox（"经手人","请输入",0）
n="select*from出库表where经手人='"&JSHR&"'"
Adodc2.CommandType=adCmdText
Adodc2.RecordSource=n
Adodc2.Refresh
CallInitGrid1
EndSub
PrivateSubCKSHJ_Click（）
Frame2.Caption="出库信息"
DimCHKRQAsString
DimnAsString
CHKRQ=InputBox（"出库日期，格式为：
月/日/年如：
12/1/2011","请输入",0）
n="select*from出库表where出库日期='"&CHKRQ&"'"
Adodc2.CommandType=adCmdText
Adodc2.RecordSource=n
Adodc2.Refresh
CallInitGrid1
EndSub
PrivateSubCKZCX_Click（）
Frame2.Caption="出库信息"
DimZBAsString
ZB="select*from出库表"
Adodc2.CommandType=adCmdText
Adodc2.RecordSource=ZB
Adodc2.Refresh
CallInitGrid1
EndSub
PrivateSubCommand1_Click（）
IfText1.Text=""Then'提示用户输入用户名
MsgBox"请输入用户名！
",,"登录信息提示：
"
ExitSub
Else'
DimusenameAsString'检测用户名是否已经存在
DimstrSAsString
usename=Trim（Text1.Text）
strS="select*from用户登录信息表where用户名='"&usename&"'"
Adodc1.CommandType=adCmdText
Adodc1.RecordSource=strS
Adodc1.Refresh
MsgBox"您输入的用户已存在!
",,"登录提示信息：
"
Text1.Text=""
Text2.Text=""
Text3.Text=""
Text1.SetFocus
ExitSub
EndIf
EndIf
IfText2.Text=""Then'提示用户密码不能为空
MsgBox"密码不能为空!
",,"登录提示信息：
"
Text2.SetFocus
ExitSub
EndIf
IfText3.Text=""Then
MsgBox"请再次输入密码!
",,"登录提示信息：
"
Text3.SetFocus
ExitSub
EndIf
IfText2.Text<>Text3.TextThen
MsgBox"两次输入的密码不一致,请确认!
",,"登录提示信息：
"
Text2.Text=""
Text3.Text=""
Text2.SetFocus
ExitSub
Else
e
DimXAsInteger
X=MsgBox（"成功添加新用户，是否要重新登录!
",vbYesNo+vbQuestion+vbDefaultButton1,"提示信息!
"）
IfX=vbYesThen
UnloadMe
Form3.Show
EndIf
'MsgBox（"成功添加新用户！
"）
'Label3.Visible=False
'Text3.Visible=False
'Command1.Caption="登录"
'Command2.Caption="退出"
EndIf
Frame1.Visible=False
Frame2.Visible=True
Text1.Text=""
Text2.Text="'"
Text3.Text=""
'Form3.Show
EndSub
PrivateSubCommand2_Click（）
Frame1.Visible=False
Frame2.Visible=True
EndSub
PrivateSubCXDL_Click（）
Form3.Show
'UnloadMe
EndSub
PrivateSubExit_Click（）
End
UnloadForm1
UnloadForm2
UnloadForm3
UnloadForm4
UnloadForm5
UnloadForm6
UnloadForm7
UnloadForm8
EndSub
PrivateSubForm_Load（）
UnloadForm1
Frame1.Visible=False
CallInitGrid0
Me.Height=MDIForm1.Height-1060
Me.Width=MDIForm1.Width-560
Me.Top=MDIForm1.Top
Me.Left=MDIForm1.Left
EndSub
PrivateSubGHCZ_Click（）
'Form2.Hide
Form8.Show
EndSub
PrivateSubGHPMCX_Click（）
Frame2.Caption="归还信息"
DimpmAsString
DimnAsString
pm=InputBox（"产品名","请输入",0）
n="select*from归还表where品名='"&pm&"'"
Adodc2.CommandType=adCmdText
Adodc2.RecordSource=n
Adodc2.Refresh
CallInitGrid2
EndSub
PrivateSubGHRCX_Click（）
Frame2.Caption="归还信息"
DimJCRAsString
DimnAsString
JCR=InputBox（"归还人","请输入",0）
n="select*from归还表where归还人='"&JCR&"'"
Adodc2.CommandType=adCmdText
Adodc2.RecordSource=n
Adodc2.Refresh
CallInitGrid2
EndSub
PrivateSubGHSJCX_Click（）
Frame2.Caption="归还信息"
DimJCRQAsString
DimnAsString
JCRQ=InputBox（"归还日期，格式为：
月/日/年如：
12/1/2011","请输入",0）
n="select*from归还表where归还日期='"&JCRQ&"'"
Adodc2.CommandType=adCmdText
Adodc2.RecordSource=n
Adodc2.Refresh
CallInitGrid2
EndSub
PrivateSubGHXHCX_Click（）
Frame2.Caption="归还信息"
DimXHAsString
DimnAsString
XH=InputBox（"产品型号","请输入",0）
n="select*from归还表where型号='"&XH&"'"
Adodc2.CommandType=adCmdText
Adodc2.RecordSource=n
Adodc2.Refresh
CallInitGrid2
EndSub
PrivateSubGHZCX_Click（）
Frame2.Caption="归还信息"
DimZBAsString
ZB="select*from归还表"
Adodc2.CommandType=adCmdText
Adodc2.RecordSource=ZB
Adodc2.Refresh
CallInitGrid2
EndSub
PrivateSubJCCZ_Click（）
'Form2.Hide
Form7.Show
EndSub
PrivateSubJCHPMCHX_Click（）
Frame2.Caption="借出信息"
DimpmAsString
DimnAsString
pm=InputBox（"产品名","请输入",0）
n="select*from借出表where品名='"&pm&"'"
Adodc2.CommandType=adCmdText
Adodc2.RecordSource=n
Adodc2.Refresh
CallInitGrid2
EndSub
PrivateSubJCHXHCHX_Click（）
Frame2.Caption="借出信息"
DimXHAsString
DimnAsString
XH=InputBox（"产品型号","请输入",0）
n="select*from借出表where型号='"&XH&"'"
Adodc2.CommandType=adCmdText
Adodc2.RecordSource=n
Adodc2.Refresh
CallInitGrid2
EndSub
PrivateSubJCRCX_Click（）
Frame2.Caption="借出信息"
DimJCRAsString
DimnAsString
JCR=InputBox（"借出人","请输入",0）
n="select*from借出表where借出人='"&JCR&"'"
Adodc2.CommandType=adCmdText
Adodc2.RecordSource=n
Adodc2.Refresh
CallInitGrid2
EndSub
PrivateSubJCSHJCX_Click（）
Frame2.Caption="借出信息"
DimJCRQAsString
DimnAsString
JCRQ=InputBox（"借出日期，格式为：
月/日/年如：
12/1/2011","请输入",0）
n="select*from借出表where借出日期='"&JCRQ&"'"
Adodc2.CommandType=adCmdText
Adodc2.RecordSource=n
Adodc2.Refresh
CallInitGrid2
EndSub
PrivateSubJCZCX_Click（）
Frame2.Caption="借出信息"
DimZBAsString
ZB="select*from借出表"
Adodc2.CommandType=adCmdText
Adodc2.RecordSource=ZB
Adodc2.Refresh
CallInitGrid2
EndSub
PrivateSubJSHRCHX_Click（）
Frame2.Caption="归还信息"
DimJSHRAsString
DimnAsString
JSHR=InputBox（"经手人","请输入",0）
n="select*from归还表where经手人='"&JSHR&"'"
Adodc2.CommandType=adCmdText
Adodc2.RecordSource=n
Adodc2.Refresh
CallInitGrid2
EndSub
PrivateSubJSHRCX_Click（）
Frame2.Caption="借出信息"
DimJSHRAsString
DimnAsString
JSHR=InputBox（"经手人","请输入",0）
n="select*from借出表where经手人='"&JSHR&"'"
Adodc2.CommandType=adCmdText
Adodc2.RecordSource=n
Adodc2.Refresh
CallInitGrid2
EndSub
PrivateSubPMCX_Click（）
Frame2.Caption="库存信息"
DimpmAsString
DimnAsString
pm=InputBox（"产品名","请输入",0）
n="select*from库存表where品名='"&pm&"'"
Adodc2.CommandType=adCmdText
Adodc2.RecordSource=n
Adodc2.Refresh
CallInitGrid0
EndSub
PrivateSubRKCZ_Click（）
'Form2.Hide
Form5.Show
EndSub
PrivateSubRKJSHR_Click（）
Frame2.Caption="入库信息"
DimJSHRAsString
DimnAsString
JSHR=InputBox（"经手人","请输入",0）
n="select*from入库表where经手人='"&JSHR&"'"
Adodc2.CommandType=adCmdText
Adodc2.RecordSource=n
Adodc2.Refresh
CallInitGrid1
EndSub
PrivateSubRKPMCHX_Click（）
Frame2.Caption="入库信息"
DimpmAsString
DimnAsString
pm=InputBox（"产品名","请输入",0）
IfLen（pm）>0Then
n="select*from入库表where品名='"&pm&"'"
Adodc2.CommandType=adCmdText
Adodc2.RecordSource=n
Adodc2.Refresh
EndIf
CallInitGrid1
EndSub
PrivateSubRKSHJ_Click（）
Frame2.Caption="入库信息"
DimRKRQAsString
DimnAsString
RKRQ=InputBox（"入库日期，格式为：
月/日/年如：
12/1/2011","请输入",0）
n="select*from入库表where入库日期='"&RKRQ&"'"
Adodc2.CommandType=adCmdText
Adodc2.RecordSource=n
Adodc2.Refresh
CallInitGrid1
EndSub
PrivateSubRKXHCHX_Click（）
Frame2.Caption="入库信息"
DimX
升级会员 