仓库管理系统(VB+Access+源代码).docx

页脚内專 页脚内專33 页脚内專 页脚内專33 CWrehousc）是保管、価存寿厢的建筑物和*所的以辉 仓库管理系统 项目的建立 这是本人利用闲暇之余在VB6.0上制作的一个简陋的类库管系统，现图文结合的方式一步 一步展现制作过程。由于本人是个初学者，里面存在很多不足之处望得到髙手们的指导。此 文可作供初学者们学习交流。作者联系方式：E-mail luo.shiye@ QQ: 1355044347 最终运行效果 打开软件岀现如下登录界面 输入系统预设用户名及密码（11）单击“登录”或单击“新用户”添加新用户进入如 下主界而： 冈 ? mr?i 冈 建立工程 1，创建标准EXE 2、按“打开” E E CZ1心漏加8 E E CZ1 心漏加8积3 S舔力。用户愆） no）洪力luivu生 m cxu m Fiep (zj??? b b性 1WE1C1O Ram 05， 3,添加MDI窗体——打开 W?bCl MKK Data R*povt DHTML, f ce Dot。Eixvlrorur?^nt 更金 Aei?x Sfti-f W ca 添加女* A) . 4、编辑菜单 在空白处右击一一点击“菜单编辑器” 工科。 ■D 丄*。匸■丄 KDJLVv ■ ADXFvxl 荣皿争?行冊他 由右代码（QJ H怪亩匚I 。做左:控伸Q】 隐、牯卵堡） ■,ME 在“标题”里输入“系统二在“名称”里输入“Sys”（注意此处不能为汉字） 点击“下一个”再点击“中” “确定”退到MDI界面点击“系统一一 “退出”如下.然后编写代码。 代码如下： Private Sub Exit_Click() End End Sub CWrehousc）是保管、価存寿厢的建筑物和*所的以辉 数据库的建立 VB6.0中可以创建Access数据库。如F建立一个“用户表”的数据库，用来存放用户信 息及一些出入库管理信息。如下图单击“外接程序” 外茸程序?倉口區）帮効电） 可砚化篇矣若珪我? I 分朝序曾理毒 坦伴阪务 any rbo?j-Inx再单击“可视化数据管理器”出现如图 any rbo?j -Inx mas 片員? Sfl ?3 亜*X S 电） 点由“文件”——“新建”—— 44Microsoft Access?? —— Version 2.0MDB”输入数据库名, “保存”出现如下图 在数据窗口中右击——“新建表”,最终如下 吏件弔録程?序回窗口更j茂的即 HE3菖慰陲巳 ? 匚|囘又 ^fUEBnB ?=叵订在 -三归还宏 ? =tt玉支 ±j 5人耳表 ?三明户貝呆吁早去 a*w? 祐律t?n） 麻律为慎ou 往数据表里添加数据任这里就不罗嗦了.请查阅相关书籍C 登录界面窗口的建立 最终界面如卜: L Adodcl的添加过程为：单由“工程”——“部件”出现下图所示.选择“控件”下的 Microsoft ADO Data Control 6.0 ( OLEDB 单击“确定在工具栏中会出现“ °” ”图标，单击它并拖动到相应位置即可。其它元件 不在 说明。 2,本窗体代码如下: Private Sub Commandl_Click() 杵 Comma nd 1 Caption = ”确定“ And Command2 Caption ? ?取消” Then ,扣果为“碼定“则添加新用户 If Textl.Text = *?* Then ,提示用尸输入吼口2 MsgBox MfiS?入用户名! .“ ?豈录信恩災示，- Exit Sub Else Dim usename As Stnng Dim strS As String usename = Trim(Textl.Text| strS = select 0 from 用户登录信恩表 where 用戸名K usename ，检泗用户名是否L1经存在 Adodcl.CommandType = adCmdText Ad ode 1 ReeordSou rce = strS Ad ode 1. Ref res n If Adodcl.Recordset.EOF = False Then MsgBox 输入的用户已存在丄?宜录提示信加” TextlText = BM Text 2 Text = ,M Text3.Text = M Text 1. Set Focus Exit Sub End If End If IfTextZ.Text = WM Then MsgBox-密同不渔为空!。，”登录提示信知- Text2 Set Focus Exit Sub End If lfText3.Text = M Then MsgBox-ift再次输入密码!■“ ■登录提示信息：- Text3 Set Foc