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