精心整理
仓库管理系统
项目的建立
这是本人利用闲暇之余在VB6.0上制作的一个简陋的类库管系统，现图文结合的方式一步一步展现制作过程。由于本人是个初学者，里面存在很多不足之处望得到高手们的指导。此文可作供初学者们学习交流。作者联系方式：E-mail
最终运行效果 打开软件出现如下登录界面 输入系统预设用户名及密码（ 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 = \确定\取消\ If Text1.Text = \ MsgBox \请输入用户名！\登录信息提示：\ Exit Sub Else ' Dim usename As String ' Dim strS As String usename = Trim(Text1.Text) strS = \用户登录信息表 where 用户名='\ Adodc1.CommandType = adCmdText Adodc1.RecordSource = strS Adodc1.Refresh MsgBox \您输入的用户已存在!\登录提示信息：\ Text1.Text = \ Text2.Text = \ Text3.Text = \ Text1.SetFocus Exit Sub End If End If If Text2.Text = \ MsgBox \密码不能为空!\登录提示信息：\ Text2.SetFocus Exit Sub End If If Text3.Text = \
MsgBox \请再次输入密码!\登录提示信息：\ Text3.SetFocus Exit Sub End If
If Text2.Text <> Text3.Text Then
MsgBox \两次输入的密码不一致,请确认!\登录提示信息：\ Text2.Text = \ Text3.Text = \ Text2.SetFocus
精心整理
“登录”、“确定”按钮 如果为“确定”则添加新用户 提示用户输入用户名 检测用户名是否已经存在 提示用户密码不能为空 精心整理
Exit Sub Else
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 = \密码 from 用户登录信息表 where 用户名 = '\ Adodc1.CommandType = adCmdText Adodc1.RecordSource = strSelect Adodc1.Refresh MsgBox \用户名不存在，请重新输入！\登录提示信息：\ Text1.Text = \ Text2.Text = \ Text1.SetFocus Exit Sub End If 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 = \取消\ Label3.Visible = False Text3.Visible = False Command1.Caption = \登录\ Command2.Caption = \退出\ Text1.Text = \ Text2.Text = \ Text1.SetFocus Else
End 'Unload Me End If End Sub
精心整理