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

发布时间：2022-06-24 发布人：admin 分类：说明书资料大小：0.77M 资料格式：doc 举报版权申诉

1daf1cd3-f2eb-4305-995f-524ed259498e.doc.pdf-第1页.png

第1页 / 共33页

1daf1cd3-f2eb-4305-995f-524ed259498e.doc.pdf-第2页.png

第2页 / 共33页

1daf1cd3-f2eb-4305-995f-524ed259498e.doc.pdf-第3页.png

第3页 / 共33页

1daf1cd3-f2eb-4305-995f-524ed259498e.doc.pdf-第4页.png

第4页 / 共33页

1daf1cd3-f2eb-4305-995f-524ed259498e.doc.pdf-第5页.png

第5页 / 共33页

1daf1cd3-f2eb-4305-995f-524ed259498e.doc.pdf-第6页.png

第6页 / 共33页

1daf1cd3-f2eb-4305-995f-524ed259498e.doc.pdf-第7页.png

第7页 / 共33页

1daf1cd3-f2eb-4305-995f-524ed259498e.doc.pdf-第8页.png

第8页 / 共33页

仓库管理系统

项目的建立

最终运行效果

建立工程

数据库的建立

登录界面窗口的建立

主界面窗体

用户重新登录界面

修改用户密码界面

入库管理

出库管理

借出管理

归还管理

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

Exit Sub End If End If If Text2.Text = "" Then '提示用户密码不能为空 MsgBox "密码不能为空!", , "登录提示信息：" Text2.SetFocus Exit Sub End If If Text3.Text = "" Then MsgBox "请再次输入密码!", , "登录提示信息：" Text3.SetFocus Exit Sub End If If Text2.Text <> Text3.Text Then MsgBox "两次输入的密码不一致,请确认!", , "登录提示信息：" Text2.Text = "" Text3.Text = "" Text2.SetFocus Exit Sub Else Adodc1.Recordset.AddNew '添加新用户 Adodc1.Recordset.Fields("用户名") = Trim(Text1.Text) Adodc1.Recordset.Fields("密码") = Trim(Text2.Text) Adodc1.Recordset.Update 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 = "select 密码 from 用户登录信息表 where 用户名 = '" & strSno & "'" Adodc1.CommandType = adCmdText Adodc1.RecordSource = strSelect Adodc1.Refresh If Adodc1.Recordset.EOF = True Then MsgBox "用户名不存在，请重新输入！", , "登录提示信息：" Text1.Text = "" Text2.Text = "" Text1.SetFocus Exit Sub

End If If Adodc1.Recordset.Fields("密码") = Trim(Text2.Text) Then '检测密码是否正确 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 = "取消" Then Label3.Visible = False Text3.Visible = False Command1.Caption = "登录" Command2.Caption = "退出" Text1.Text = "" Text2.Text = "" Text1.SetFocus Else End 'Unload Me End If End Sub Private Sub Command3_Click() '“新用户”按钮 Label3.Visible = True Text3.Visible = True Text1.Text = "" Text2.Text = "" Text3.Text = "" Command1.Caption = "确定" Command2.Caption = "取消" Text1.SetFocus End Sub Private Sub Command3_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) Label6.Visible = True End Sub Private Sub Command3_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) Label6.Visible = False End Sub Private Sub Form_Load() Label3.Visible = False

分享到：

赞收藏

资料库

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

相关推荐

数据库

热门标签

最新资料