1、仓库管理系统项目的建立这是本人利用闲暇之余在VB6.0上制作的一个简陋的类库管系统 ， 现图文结合的方式一步一步展现制作过程 。
由于本人是个初学者 ， 里面存在很多不足之处望得到高手们的指导 。
此文可作供初学者们学习交流 。
作者联系方式：E-mail luo.shiyeyahoo.com.cn QQ：1355044347最终运行效果打开软件出现如下登录界面输入系统预设用户名及密码（ 1 1 ）单击“登录”或单击“新用户”添加新用户进入如下主界面：建立工程1、 创建标准EXE2、 按“打开”3、 添加MDI窗体打开4、 编辑菜单在空白处右击点击“菜单编辑器”在“标题”里输入“系统” ， 在“名称”里输入“Sys” 。

2、（注意此处不能为汉字）点击“下一个”再点击“ ”“确定”退到MDI界面点击“系统”“退出”如下 ， 然后编写代码 。
代码如下：Private Sub Exit_Click()EndEnd Sub数据库的建立VB6.0中可以创建Access数据库 。
如下建立一个“用户表”的数据库 ， 用来存放用户信息及一些出入库管理信息 。
如下图单击“外接程序”再单击“可视化数据管理器”出现如图点击“文件”“新建”“Microsoft Access”“Version 2.0 MDB”输入数据库名 ， “保存”出现如下图在数据窗口中右击“新建表” ， 最终如下往数据表里添加数据在这里就不罗嗦了 ， 请查阅相关书籍 。
登录界面窗口的建立最终界 。

3、面如下：1、Adodc1的添加过程为：单击“工程”“部件”出现下图所示 ， 选择“控件”下的“Microsoft ADO Data Control 6.0 （OLEDB）” 单击“确定”在工具栏中会出现“”图标 ， 单击它并拖动到相应位置即可 。
其它元件不在一一说明 。
2、 本窗体代码如下：Private Sub Command1_Click() “登录”、“确定”按钮If Command1.Caption = 确定 And Command2.Caption = 取消 Then 如果为“确定”则添加新用户If Text1.Text = Then 提示用户输入用户名MsgBox 请输入用户名！, , 登录信 。

4、息提示：Exit SubElse Dim usename As String 检测用户名是否已经存在Dim strS As Stringusename = Trim(Text1.Text)strS = select * from 用户登录信息表 where 用户名= & usename & Adodc1.CommandType = adCmdTextAdodc1.RecordSource = strSAdodc1.RefreshIf Adodc1.Recordset.EOF = False ThenMsgBox 您输入的用户已存在!, , 登录提示信息：Text1.Text = Text2.T 。

5、ext = Text3.Text = Text1.SetFocusExit SubEnd IfEnd IfIf Text2.Text = Then 提示用户密码不能为空MsgBox 密码不能为空!, , 登录提示信息：Text2.SetFocusExit SubEnd IfIf Text3.Text = ThenMsgBox 请再次输入密码!, , 登录提示信息：Text3.SetFocusExit SubEnd IfIf Text2.Text 0 Then 当标签右边位置大于0时 ， 标签向左移Label4.Move Label4.Left - 80Else 否则标签从头开始Label4.Lef 。

6、t = Form1.ScaleWidthEnd IfIf Label5.Left + Label5.Width 0 ThenLabel5.Move Label5.Left - 80ElseLabel5.Left = Form1.ScaleWidthEnd IfEnd Sub主界面窗体如下：代码：Private Sub AddNew_Click()Frame1.Visible = TrueFrame2.Visible = FalseEnd SubPrivate Sub CHKPMCHX_Click()Frame2.Caption = 出库信息Dim pm As StringDim n As St 。

7、ringpm = InputBox(产品名, 请输入, 0)n = select * from 出库表 where 品名 = & pm & Adodc2.CommandType = adCmdTextAdodc2.RecordSource = nAdodc2.RefreshCall InitGrid1End SubPrivate Sub CHKXHCHX_Click()Frame2.Caption = 出库信息Dim XH As StringDim n As StringXH = InputBox(产品型号, 请输入, 0)n = select * from 出库表 where 型号 = &。

8、XH & Adodc2.CommandType = adCmdTextAdodc2.RecordSource = nAdodc2.RefreshEnd SubPrivate Sub CKCZ_Click()Form2.HideForm6.ShowEnd SubPrivate Sub CKJSHR_Click()Frame2.Caption = 出库信息Dim JSHR As StringDim n As StringJSHR = InputBox(经手人, 请输入, 0)n = select * from 出库表 where 经手人 = & JSHR & Adodc2.CommandType。

9、= adCmdTextAdodc2.RecordSource = nAdodc2.RefreshCall InitGrid1End SubPrivate Sub CKSHJ_Click()Frame2.Caption = 出库信息Dim CHKRQ As StringDim n As StringCHKRQ = InputBox(出库日期 ， 格式为：月/日/年 如：12/1/2011, 请输入, 0)n = select * from 出库表 where 出库日期 = & CHKRQ & Adodc2.CommandType = adCmdTextAdodc2.RecordSource = nA 。

10、dodc2.RefreshCall InitGrid1End SubPrivate Sub CKZCX_Click()Frame2.Caption = 出库信息Dim ZB As StringZB = select * from 出库表 Adodc2.CommandType = adCmdTextAdodc2.RecordSource = ZBAdodc2.RefreshCall InitGrid1End SubPrivate Sub Command1_Click()If Text1.Text = Then 提示用户输入用户名MsgBox 请输入用户名！, , 登录信息提示：Exit SubE 。

11、lse Dim usename As String 检测用户名是否已经存在Dim strS As Stringusename = Trim(Text1.Text)strS = select * from 用户登录信息表 where 用户名= & usename & Adodc1.CommandType = adCmdTextAdodc1.RecordSource = strSAdodc1.RefreshIf Adodc1.Recordset.EOF = False ThenMsgBox 您输入的用户已存在!, , 登录提示信息：Text1.Text = Text2.Text = Text3.T 。

来源：(未知)

【学习资料】网址：/a/2021/0321/0021742718.html

标题：仓库管理系统(VB+Access+源代码)[特选材料]