仓库管理方案计划系统VBAccess源代码文档格式.docx
- 文档编号:22513368
- 上传时间:2023-02-04
- 格式:DOCX
- 页数:39
- 大小:21.75KB
仓库管理方案计划系统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()
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 仓库 管理 方案 计划 系统 VBAccess 源代码
![提示](https://static.bdocx.com/images/bang_tan.gif)