仓库管理系统VBAccess源代码

VB通过DAO访问Access数据库

DAO就是Database Access Object，数据库访问对象的英文缩写。在VB中提供了两种与Jet数据库引擎接口的方法：Data控件和数据访问对象（DAO）。Data控件只给出有限的不需编程而能访问现存数据库的功能，而DAO模型则是全面控制数据库的完整编程接口。Data控件将常用的DAO功能封装在其中，它与DAO控件的关系就好象内存与CACHE之间的关系一样，所以这两种方法并不是互斥的，实际上，它们常同时使用

引用DAO类型库

1、从“工程”菜单中选择“引用”菜单项；

2、在可引用列表框中选择“Microsoft DAO 3.6 Object Library”项

3、最后“确定”即可

设置DAO数据类型变量

DAO数据类型变量共分成两种：

1、Database变量

Public db As Database

对应于Access数据库，通常在模块中被定义为Public全程变量

2、RecordSet变量

Dim rs As RecordSet

设置DAO数据类型变量（二）

建立了数据库对象变量后，我们便可打开数据库了，在一般情况下都只是访问一个数据库，当打开数据库后再对数据库中的各个记录进行操作，这就要用到Recordset 对象建立记录集

例如：

打开数据库

Private Sub Command_OpenDatabase_Click() Dim db as Database Dim rs

As Recordset Set db = OpenDatabase ( App.path & "\数据库名称.mdb" ) Set

rs = db.OpenRecordset ( " select * from 表名 " ) End Sub 这样，数据库中的记录便放到Recordset中，可以进行后续操作了

Opendatabase 方法

Opendatabase 方法是打开数据库并返回此数据库的database对象，其语法如下：

1 利用vb开发数据库应用程序的基本步骤 第一节 数据库系统的增删改 1．新建工程 选择 文件 |新建工程 一个窗体有很多属性，我们常用的属性有Caption和Name 例如在caption中输入学生基本信息录入，在Name中输入student_fr_in 2 2．保存工程 （1）保存窗体 （2）保存工程 3 对于文件命名应该是见名思意 3. 使用ADO数据控件 在使用ADO数据控件前，必须先通过“工程/部件”菜单命令选择“Microsoft ADO Data Control 6.0(OLE DB)”选项，将ADO数据控件添加到工具箱。ADO数据控件与Visual Basic的内部数据控件很相似，它允许使用ADO数据控件的基本属性快速地创建与数据库的连接。在部件属性对话框中选择Microsoft ADO Data Control 6.0 同时再选上Microsoft DataGrid A Control 6.0 。 4 在工具箱中多了两个控件，同时我们将Adodc控件拉倒窗体上，该控件是用与和数据库连接的。 选种Adodc1，按右键选“ADODC属性” 进入属性页，这时可以建立和数据库，我们有三种选择：使用Data Link File,ODBS 和 使用连接字符串。一般使用连接字符串。 5 现在我们手工建立它，点击生成按钮—弹出数据连接属性对话框。 提供程序允许你指定连接的数据库,——这里选择Microsoft Jet 4.0 OLE DB Provider。(连接Access数据库) 点击（下一个）按钮将引导我们进入第二页：连接 6 点击 7 选择需要连接的数据库，点击打开按钮 注意：我们看到所选的数据库有路径，如果数据库文件在当前的工程下，可以去掉路径 8 可以点击测试连接按钮检验是否可以成功连接—应该是成功的。最后，点击确定关闭数据连接属性对话框。连接字符串已如下所示： “Provider=Microsoft.Jet.OLEDB.4.0;DataSource=Student.mdb;Persist Security Info=False” 在Adodc1 属性页点击“记录源页” 9 在命令源下拉列表中可以选择“表”、“文本”,“存储过程”等 假如选择表，可以看到 10 4.选择student表 5. 添加DataGrid控件，设置DataSource属性为Adodc1 6. 运行工程。 当数据库中有数据时我们可以看见数据。 11 7．数据库的增删改 在工具箱中拉控件Label、Text和Commandbutton，修改Label和Commandbutton的caption属性 （例如学号、姓名、新增、删除等等） (1)连接数据库的字段 选种Text1 在属性中选择“DataSource” 再在“Datafield”中选择“sno” 依次类推可以连接姓名，性别等字段。 12 (2) 利用编程来对数据库进行增删改 新增按钮程序 Private Sub Cmd_insert_Click() Cmd_insert.Enabled = True Cmd_delete.Enabled = False Cmd_update.Enabled = False Cmd_cancel.Enabled = True Cmd_save.Enabled = True Cmd_find.Enabled = False Cmd_Refresh.Enabled = False Adodc1.Recordset.AddNew Text1.SetFocus End Sub 删除按钮程序 Private Sub Cmd_delete_Click() Adodc1.Recordset.Delete Adodc1.Recordset.MoveNext If Adodc1.Recordset.EOF Then Adodc1.Recordset.MoveLast End Sub 修改按钮程序 Private Sub Cmd_update_Click() Cmd_insert.Enabled = True Cmd_delete.Enabled = False Cmd_update.Enabled = False Cmd_cancel.Enabled = True Cmd_save.Enabled = True Cmd_find.Enabled = False Cmd_Refresh.Enabled = False Text1.SetFocus End Sub 放弃按钮程序 Private Sub Cmd_cancel_Click() Cmd_insert.Enabled = True 13 Cmd_delete.Enabled = True Cmd_update.Enabled = True Cmd_cancel.Enabled = False Cmd_save.Enabled = False Cmd_find.Enabled = True Cmd_Refresh.Enabled = True Adodc1.Recordset.Cancel Adodc1.Refresh End Sub 保存按钮程序 Private Sub Cmd_save_Click() Adodc1.Recordset.Update Cmd_insert.Enabled = True Cmd_delete.Enabled = True Cmd_update.Enabled = True Cmd_cancel.Enabled = False Cmd_save.Enabled = False Cmd_find.Enabled = True Cmd_Refresh.Enabled = True End Sub 查找按钮程序 Private Sub Cmd_find_Click() mno = InputBox$("请输入学号", "查找窗") mno = "sno like '" & mno & "%'" Adodc1.Recordset.Filter = mno If Adodc1.Recordset.RecordCount = 0 Then MsgBox "无此学号!", , "提示" End Sub 刷新按钮程序 Private Sub Cmd_Refresh_Click() Adodc1.Refresh End Sub 你可以用同样的方法做出其他数据库中表的增删改界面 14 第二节 数据库查询 1．建立新窗体 选种工程按右键选择添加再选添加窗体 2.保存窗体 修改窗体的名称及Caption并保存 3.运行窗体的改变 工程|工程属性 从启动对象的下拉式列表选择要运行的窗体 15 4. 在窗体中添加Adodc控件，按前面讲的设置Adodc的属性。 这里要注意的是我们这里是查询，要动态的sql语句，所以记录源选择“文本”。 16 5. 添加DataGrid控件，设置DataSource属性为Adodc1。 6. 添加 CommaneButton, Label, Edit控件 Command1 改变Caption属性 为查询 Command2 改变Caption属性 为退出 Label1 改变Caption属性 为学号 Label2 改变Caption属性 为专业 Text1 改变Text属性 为空；name 属性为txt_sno Text2 改变Text属性 为空；name 属性为txt_zy 查询按钮程序： Private Sub Command1_Click() Dim sql As String Dim sql_where As String sql_where = "" If Trim(txt_sno.Text) <> "" Then 17 sql_where = " sno ='" & Trim(txt_sno.Text) & "'" End If If Trim(txt_zy.Text) <> "" Then If sql_where = "" Then sql_where = " Speciality ='" & Trim(txt_zy.Text) & "'" Else sql_where = sql_where & " and Speciality ='" & Trim(txt_zy.Text) & "'" End If End If If sql_where = "" Then sql = "Select sno as 学号,sname as 姓名,sex as 性别,Speciality as 专业,BIRDAY as 生日 from student" Else sql = "Select sno as 学号,sname as 姓名,sex as 性别,Speciality as 专业,BIRDAY as 生日 from student where " & sql_where End If mandType = adCmdText Adodc1.RecordSource = sql Adodc1.Refresh 18 End Sub 7.运行测试 当数据库中有数据时我们可以看见数据。 同样可以做更复杂的查询 19 第三节 连接所有窗体 1．建立新窗体 选种工程按右键选择添加再选添加窗体 2.保存窗体 修改窗体的名称及Caption并保存 2．保存窗体 输入文件名main_form 20 3. 工具／菜单编辑器(CTRL+E) 窗体上快显菜单／菜单编器 常用属性： 标题(Caption) 热键：前面加& 名称(Name)文本框 分隔符也应有名称。 快捷键(Shortcut) 菜单名没有快捷键 4.菜单程序 Private Sub chaxun_Click() Form_cx.Show main_form.Hide End Sub 21 Private Sub student_Click() student_fr_in.Show main_form.Hide End Sub 5.测试运行

ACCESS

仓库管理系统

姓名：

学号：

班级：

一、实验目的与要求：

ASSESS是一个数据库管理系统，它简单易学，一个普通的计算机用户可以很快的掌握它。ACCESS2000的功能也十分强大，利用它可以方便的实现对信息保存、维护、查询、统计等，而且它可以十分方便地与OFFICE其他组件交流数据，这些功能对一个普通用户来说已经足够了。

本系统就是在以ACCESS2000作为后台数据库，以Visual Basic为编程语言为中小型企业管理仓库而开发的一个数据库管理系统。

通过本实验，培养学生掌握开发Access数据库应用系统的方法。综合运用课程中学会的知识，正确设计数据表，灵活运用各种查询方法。设计使用性良好的窗体和报表，利用宏，VBA代码两种方式来编程，体验系统开发的过程，为开发数据库应用系统打下坚实的基础。

实验要求：

1）建立一个ACCESS的数据库。

2）针对某项事务管理建立数据表结构。

3）建立用户访问机制，非管理员不能访问。

4）设计集成数据添加、浏览、更新、删除和查找等多种功能的数据表单。

5）运行程序，并用实际数据或模拟数据进行测试。写出各项功能的测试界面和结果。

二、实验方案：

1) 实验软件环境：WindwosXP中文版，Access2003中文版。

2) 项目名称：商品库存管理系统

3) 实验需要实现的功能

1、 基本资料管理：

功能：完成物品基本资料的数据录入、修改、删除。并可对物品基本资料进行查询和统计、打印输出功能。

物品资料查询条件：按编号、名称、类别来查询。

2、 物品 管理：

功能：完成对物品采购信息录入、修改、删除。实现物品的入库，退货，并可对采购信息进行查询和统计、打印输出功能。

物品采购查询条件：按编号、名称、类别、日期来查询。

3、 物品销售管理：

功能：完成对物品销售信息管理，包括对销售信息的录入、修改、删除。实现物品的出库，退货，并可对销售信息进行查询和统计、打印输出功能。

下面是整个仓库管理系统整个设计界面和代码，还是不会的朋友可以私信我。

一、初始界面及代码

代码：

Private Sub CommandButton1_Click()

入库界面.Show '显示入库界面

End Sub

Private Sub CommandButton2_Click()

出库界面.Show '显示出库界面

End Sub

二、出库界面及代码

初始界面

出库界面

代码：

Private Sub CommandButton1_Click()

If TextBox1 = "" Then '检测输入数据是否为空，如果为空弹出

'提示窗口，提示用户需要填写

MsgBox "名称不能为空", vbOKOnly

Exit Sub

End If

If TextBox2 = "" Then

MsgBox "型号不能为空", vbOKOnly

Exit Sub

End If

If TextBox3 = "" Then

MsgBox "国标号不能为空", vbOKOnly

Exit Sub

End If

If TextBox4 = "" Then

MsgBox "材质不能为空", vbOKOnly

Exit Sub

End If

If TextBox5 = "" Then

MsgBox "数量不能为空", vbOKOnly

Exit Sub

End If

If TextBox6 = "" Then

MsgBox "技术通知号不能为空", vbOKOnly

Exit Sub

End If

Dim i% '制作后台数据，将现有库存属性

'合并为一列存入sheet2，方便下'一步出库时对照

i = 2

With Sheet1 While .Cells(i, 1) <> ""