仓库管理系统VBAccess源代码.pdf

仓库管理系统

项目的建立

这是本人利用闲暇之余在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()“登录”、“确定”按钮

确定确定取消取消如果为“确定”则添加新用户

提示用户输入用户名

请输入用户名！请输入用户名！登录信息提示：登录信息提示：

ExitSub

Else

DimusenameAsString检测用户名是否已经存在

DimstrSAsString

usename=Trim(Text1.Text)usename=Trim(Text1.Text)

用户登录信息表where用户名用户名

Adodc1.CommandType=adCmdText

Adodc1.RecordSource=strS

Adodc1.RefreshAdodc1.Refresh

您输入的用户已存在您输入的用户已存在登录提示信息：登录提示信息：登录提示信息：登录提示信息：登录提示信息：

Text1.SetFocus

ExitSub

EndIf

EndIfEndIf

提示用户密码不能为空

密码不能为空密码不能为空登录提示信息：登录提示信息：

Text2.SetFocus

ExitSub

EndIfEndIfEndIf

请再次输入密码请再次输入密码登录提示信息：登录提示信息：

Text3.SetFocus

ExitSub

EndIf

IfText2.Te