Access数据库可以包含哪7个数据库对象？？

Access 数据库由七种对象组成，它们是表、查询、窗体、报表、宏、页和模块。

1、表(Table)

表是数据库的基本对象，是创建其他5种对象的基础。表由记录组成，记录由字段组成，表用来存贮数据库的数据，故又称数据表。

2、查询(Query)

查询可以按索引快速查找到需要的记录，按要求筛选记录并能连接若干个表的字段组成新表。

3、窗体(Form)

窗体提供了一种方便的浏览、输入及更改数据的窗口。还可以创建子窗体显示相关联的表的内容。窗体也称表单。

4、报表(Report)

报表的功能是将数据库中的数据分类汇总，然后打印出来，以便分析。

5、宏(Macro)

宏相当于DOS中的批处理，用来自动执行一系列 *** 作。Access列出了一些常用的 *** 作供用户选择，使用起来十分方便。

6、模块(Module)

模块的功能与宏类似，但它定义的 *** 作比宏更精细和复杂，用户可以根据自己的需要编写程序。模块使用Visual Basic编程。

7、页

页是一种特殊的直接连接到数据库中数据的一种WEB页。通过数据访问页将数据发布到Internet 或Intranet上，并可以适用浏览器进行数据的维护和 *** 作。

扩展资料

Access的用途体现在两个方面：

一、用来进行数据分析： access有强大的数据处理、统计分析能力，利用access的查询功能，可以方便地进行各类汇总、平均等统计。并可灵活设置统计的条件。

比如在统计分析上万条记录、十几万条记录及以上的数据时速度快且 *** 作方便，这一点是Excel无法与之相比的。

二、用来开发软件： access用来开发软件，比如生产管理、销售管理、库存管理等各类企业管理软件，其最大的优点是易学。

非计算机专业的人员，也能学会。低成本地满足了那些从事企业管理工作的人员的管理需要，通过软件来规范同事、下属的行为，推行其管理思想。

不难, 我处理过很多这种被称为复杂报表的例子

这种报表不是一个查询就能完成的, 你可以建立一个临时表, 然后使用代码一行一行的查询到数据填入临时表中, 行程图2这样的结果, 然后把结果输出至报表或者excel, 画上线填上颜色就ok了

只要excel能生成的效果都可以实现

按你的表格框架编写了如下代码，测试可以实现。

Private Sub Command0_Click()

'原表名称“表1”，查询结果生成表名称“表2”

'遇到错误执行下一句代码

On Error Resume Next

'定义变量

Dim dbs As Database

Dim rsy As Recordset

Dim rsx As Recordset

Dim sj As String

Set dbs = CurrentDb '当前数据库

'如果表2存在则删除

If DCount("[Name]", "MSysObjects", "[Name]='表2'") = 1 Then DoCmd.DeleteObject acTable, "表2"

'建立汇总表2

dbs.Execute "SELECT 表1.一级, 表1.二级, Null AS 三级 INTO 表2 FROM 表1 GROUP BY 表1.一级, 表1.二级"

'打开表2记录集

Set rsx = dbs.OpenRecordset("select * from [表2]")

'读取表2记录集

With rsx

'如果有记录，遍历表2

If Not (.EOF And .BOF) Then

'首项记录

.MoveFirst

While Not .EOF

sj = ""

'查询表1中与表2当前记录相符的记录集

Set rsy = dbs.OpenRecordset("select * from [表1] WHERE 一级='" &rsx(0) &"' and 二级='" &rsx(1) &"'")

With rsy

.MoveFirst

While Not .EOF

If sj = "" Then

sj = rsy(2)

Else

sj = sj &"，" &rsy(2)

End If

.MoveNext

Wend

End With

'向表1的三级字段追加数据

dbs.Execute "UPDATE 表2 SET 三级 = '" &sj &"' WHERE 一级='" &rsx(0) &"' and 二级='" &rsx(1) &"'"

'下一记录

.MoveNext

Wend

End If

End With

End Sub

---