第10章-VBA(1)

目录第 1 章概括 (2)内容简介 (2)名词解说 (2)预备知识 (3)第 2 章录制、编写、运转宏 (3)录制、编写、运转宏基本步骤： (3)一些基本的建议： (3)第 3 章代码格式及帮助信息 (5)代码格式： (5)获取帮助： (6)第 4 章常用对象模型 (7)综述： (7): (8)： (8)、、： (9)、： (9)第 5 章零件 PartDoc (9)综述： (9)选择对象的话题： (10)接见并改正特色 : (12)草图的话题： (17)第 6 章装置体 (18)综述： (18)组件的话题：插入零零件到装置体 (19)配合的话题：在装置体中增添配合 (22)因为说到参照，趁便议论一下配合参照： (26)第 7 章工程图 (28)综述： (28)说明的话题： (29)生成图纸的话题：并议论如何解决实质问题 (30)第 8 章总结： (40)第1章概括内容简介Solidworks 在供给了强盛的三维建模功能的同时，也为使用者供给了开放的应用程序编程接口（ API），经过调用这些 API，我们能够将 solidworks 中一些重复单一或许规则明确的操作使用程序语言描绘，经过简单的人机交互，让计算机自己来达成此类工作。

掌握了此类本事，能够在此后的工作中，宽阔自己的视线，更为深入的认识软件自己工作的原理，并且，改良自己的工作，提升工作效率和质量。

本文旨在总结作者工作中获取的经验，专注于solidworks 软件自己特色，文章中示例的代码基本上使用了vb 语言描绘，选择vb 语言是因为其语法简单易懂，并且和应用程序间有很明亮的接口不需要再学习其余技术（假如使用c++,可能需要读者拥有 COM 知识）。

Solidworks 供给了极其丰富的API，并且有很完美的帮助系统。

我们能够使用Microsoft VBA 编写 SolidWorks Macros或许使用其余编程环境编写Standalone and Add-in Applications。

vba绝对值函数VBA绝对值函数是用于计算数字的绝对值的函数，该函数会将输入的任何数字转换为正数或0。

文章将介绍VBA绝对值函数的介绍，以及如何在VBA程序中使用该函数的方式。

VBA是Visual Basic for Applications的缩写，它是一种用于创建应用程序的编程语言，可以用于创建功能强大的桌面应用程序和Web应用程序。

VBA绝对值函数是VBA中的内置函数，可以计算数字的绝对值。

VBA绝对值函数的语法如下：Abs(Number)其中，“Number”参数是要计算绝对值的数字，可以是整数、小数或其他数字。

VBA绝对值函数会将输入的任何数字转换为正数或0。

例如，Abs(-10)的结果为 10。

在VBA程序中使用VBA绝对值函数，可以通过以下代码实现：Dim resultresult = Abs(-10)上述代码将变量“result”设置为-10的绝对值，即10。

VBA绝对值函数在日常的编程任务中非常有用，可以用于处理负数、判断两个数字是否相等、比较大小等操作。

例如，可以通过比较两个数字的绝对值来判断它们的大小。

以下示例代码演示了如何使用VBA绝对值函数来比较两个数字的大小：Dim num1, num2, resnum1 = 8num2 = -10res = Abs(num1-num2)If res = 18 ThenMsgBoxum1比num2大ElseMsgBoxum1比num2小End If上述代码先使用变量num1和num2存储要比较的两个数字，然后使用VBA绝对值函数Abs()计算num1和num2的差值的绝对值，最后通过if语句判断两个数字的大小，并输出比较结果。

以上就是VBA绝对值函数的介绍，以及如何在VBA程序中使用该函数的方式。

VBA绝对值函数非常实用，可以用于处理负数、判断两个数字是否相等、比较大小等。

如果您正在创建VBA应用程序，请考虑使用VBA绝对值函数来实现您的目标。

EXCEL之VBA 学习笔记姓名：刘磊时间：2015年9目录第一章VBA基础知识 (3)第二章工作簿以及工作表的操作 (9)第三章：单元格区域操作 (14)第四章：事件程序: (36)第五章：VBA数组 (43)第一章VBA基础知识1：代码帮助：F12：代码换行：下划线+空格+回车3：.常用代码操作excel中的对象(1）、工作簿（Workbooks）Workbooks（N）第N个工作簿Workbooks （”工作簿名”)ActiveWorkbook 活动工作簿ThisWorkBook 代码所在工作簿（2）、工作表（Worksheets）Sheets（N）第N个工作表Sheets("工作表名"）SheetN 第N个工作表ActiveSheet 活动工作表worksheets 与Sheets的区别(3）、单元格(cells）Range （”单元格地址"）Cells（行号，列号)[A1］单元格简写Activecell 活动单元格Selection 当前被选取的区域4：常量与变量（1。

）常量：常量是定义了之后就不做变化了.常量定义格式：Const 常量名= 常量表达式（2)。

变量：在定义之后还能再次赋值变量定义格式：Dim 变量As 变量类型5：数据类型（1.)VBA中的常见数据类型：类型注释简写占用内存Integer 整型％2ByteSingle 单精度! 4ByteDouble 双精度# 8ByteLong 长整型& 4ByteString 字符型$ 定长或变长( 变长字符串最多可包含大约20 亿( 2^31）个字符. 定长字符串可包含1 到大约64K （2^16 ) 个字符.)Currency 货币型@ 8Byte6：if条件语句1。

单行形式1（If。

.。

Then）If 条件判断Then 条件成立结果注意在单行形式中，按照If。

Then 判断的结果也可以执行多条语句。

第1章Range（单元格）对象范例1 单元格的引用方法1-1 使用Range属性引用单元格区域Sub MyRng()Range("A1:B4, D5:E8").SelectRange("A1").Formula = "=Rand()"Range("A1:B4 B2:C6").Value = 10Range("A1", "B4").Font.Italic = TrueEnd Sub1-2 使用Cells属性引用单元格区域Sub MyCell()Dim i As ByteFor i = 1 To 10Sheets("Sheet1").Cells(i, 1).Value = iNextEnd Sub1-3 使用快捷记号实现快速输入Sub FastMark()[A1] = "Excel 2007"End Sub1-4 使用Offset属性返回单元格区域Sub RngOffset()Sheets("Sheet1").Range("A1:B2").Offset(2, 2).SelectEnd Sub1-5 使用Resize属性返回调整后的单元格区域Sub RngResize()Sheets("Sheet1").Range("A1").Resize(4, 4).SelectEnd Sub范例2 选定单元格区域的方法2-1 使用Select方法Sub RngSelect()Sheets("Sheet2").ActivateSheets("Sheet2").Range("A1:B10").SelectEnd Sub2-2 使用Activate方法Sub RngActivate()Sheets("Sheet2").ActivateSheets("Sheet2").Range("A1:B10").ActivateEnd Sub2-3 使用Goto方法Sub RngGoto()Application.Goto Reference:=Sheets("Sheet2").Range("A1：B10"), Scroll:=True End Sub范例3 获得指定行的最后一个非空单元格Sub LastCell()Dim rng As RangeSet rng = Cells(Rows.Count, 1).End(xlUp)MsgBox "A列的最后一个非空单元格是" & rng.Address(0, 0) _& ",行号" & rng.Row & ",数值" & rng.ValueSet rng = NothingEnd Sub范例4 使用SpecialCells方法定位单元格Sub SpecialAddress()Dim rng As RangeSet rng = edRange.SpecialCells(xlCellTypeFormulas) rng.SelectMsgBox "工作表中有公式的单元格为： " & rng.AddressSet rng = NothingEnd Sub范例5 查找特定内容的单元格5-1 使用Find方法查找特定信息Sub FindCell()Dim StrFind As StringDim rng As RangeStrFind = InputBox("请输入要查找的值：")If Len(Trim(StrFind)) > 0 ThenWith Sheet1.Range("A:A")Set rng = .Find(What:=StrFind, _After:=.Cells(.Cells.Count), _LookIn:=xlValues, _LookAt:=xlWhole, _SearchOrder:=xlByRows, _SearchDirection:=xlNext, _MatchCase:=False)If Not rng Is Nothing ThenApplication.Goto rng, TrueElseMsgBox "没有找到匹配单元格!"End IfEnd WithEnd IfSet rng = NothingEnd SubSub FindNextCell()Dim StrFind As StringDim rng As RangeDim FindAddress As StringStrFind = InputBox("请输入要查找的值：")If Len(Trim(StrFind)) > 0 ThenWith Sheet1.Range("A:A").Interior.ColorIndex = 0Set rng = .Find(What:=StrFind, _After:=.Cells(.Cells.Count), _LookIn:=xlValues, _LookAt:=xlWhole, _SearchOrder:=xlByRows, _SearchDirection:=xlNext, _MatchCase:=False)If Not rng Is Nothing ThenFindAddress = rng.AddressDorng.Interior.ColorIndex = 6Set rng = .FindNext(rng)Loop While Not rng Is Nothing _And rng.Address <> FindAddressEnd IfEnd WithEnd IfSet rng = NothingEnd Sub5-2 使用Like运算符进行模式匹配查找Sub RngLike()Dim rng As RangeDim r As Integerr = 1Sheet1.Range("A:A").ClearContentsFor Each rng In Sheet2.Range("A1:A40")If rng.Text Like "*a*" ThenCells(r, 1) = rng.Textr = r + 1End IfNextSet rng = NothingEnd Sub范例6 替换单元格内字符串Sub Replacement()Range("A:A").Replace _What:="市", Replacement:="区", _LookAt:=xlPart, SearchOrder:=xlByRows, _MatchCase:=TrueEnd Sub范例7 单元格的复制7-1 复制单元格区域Sub RangeCopy()Sheet1.Range("A1:G7").Copy Sheet2.Range("A1")End SubSub Copyalltheforms()Dim i As IntegerSheet1.Range("A1:G7").CopyWith Sheet3.Range("A1").PasteSpecial xlPasteAll.PasteSpecial xlPasteColumnWidthsEnd WithApplication.CutCopyMode = FalseFor i = 1 To 7Sheet3.Rows(i).RowHeight = Sheet1.Rows(i).RowHeightNextEnd Sub7-2 仅复制数值到另一区域Sub CopyValue()Sheet1.Range("A1:G7").CopySheet2.Range("A1").PasteSpecial Paste:=xlPasteValuesApplication.CutCopyMode = FalseEnd SubSub GetValueResize()With Sheet1.Range("A1").CurrentRegionSheet3.Range("A1").Resize(.Rows.Count, .Columns.Count).Value = .Value End WithEnd Sub范例8 禁用单元格拖放功能Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Column = 1 ThenApplication.CellDragAndDrop = FalseElseApplication.CellDragAndDrop = TrueEnd IfEnd SubPrivate Sub Worksheet_Deactivate()Application.CellDragAndDrop = TrueEnd Sub范例9 设置单元格格式9-1 设置单元格字体格式Sub CellFont()With Range("A1").Font.Name = "华文彩云".FontStyle = "Bold".Size = 22.ColorIndex = 3.Underline = 2End WithEnd Sub9-2 设置单元格内部格式Sub CellInternalFormat()With Range("A1").Interior.ColorIndex = 3.Pattern = xlPatternGrid.PatternColorIndex = 6End WithEnd Sub9-3 单元格区域添加边框Sub CellBorder()Dim rng As RangeSet rng = Range("B2:E8")With rng.Borders(xlInsideHorizontal).LineStyle = xlDot.Weight = xlThin.ColorIndex = xlColorIndexAutomaticEnd WithWith rng.Borders(xlInsideVertical).LineStyle = xlContinuous.Weight = xlThin.ColorIndex = xlColorIndexAutomaticEnd Withrng.BorderAround xlContinuous, xlMedium, xlColorIndexAutomatic Set rng = NothingEnd SubSub QuickBorder()Range("B12:E18").Borders.LineStyle = xlContinuousEnd Sub范例10 单元格的数据有效性10-1 添加数据有效性Sub AddValidation()With Range("A1:A10").Validation.Delete.Add Type:=xlValidateList, _AlertStyle:=xlValidAlertStop, _Operator:=xlBetween, _Formula1:="1,2,3,4,5,6,7,8".ErrorMessage = "只能输入1-8的数值,请重新输入!"End WithEnd Sub10-2 判断是否存在数据有效性Sub ErrValidation()On Error GoTo LineIf Range("A1").Validation.Type >= 0 ThenMsgBox "有数据有效性!"Exit SubEnd IfLine:MsgBox "没有数据有效性!"End Sub10-3 动态的数据有效性Private Sub Worksheet_SelectionChange(ByVal Target As Range)If Target.Column = 1 And Target.Count = 1 And Target.Row > 1 Then With Target.Validation.Delete.Add Type:=xlValidateList, _AlertStyle:=xlValidAlertStop, _Operator:=xlBetween, _Formula1:="主机,显示器"End WithEnd IfEnd SubPrivate Sub Worksheet_Change(ByVal Target As Range)If Target.Column = 1 And Target.Row > 1 And Target.Count = 1 Then With Target.Offset(0, 1).Validation.DeleteSelect Case TargetCase "主机".Add Type:=xlValidateList, _AlertStyle:=xlValidAlertStop, _Operator:=xlBetween, _Formula1:="Z286,Z386,Z486,Z586"Case "显示器".Add Type:=xlValidateList, _AlertStyle:=xlValidAlertStop, _Operator:=xlBetween, _Formula1:="15,17,21,25"End SelectEnd WithEnd IfEnd Sub范例11 单元格中的公式11-1 在单元格中写入公式Sub rngFormula()Dim r As Integerr = Cells(Rows.Count, 1).End(xlUp).RowRange("C2").Formula = "=A2*B2"Range("C2").Copy Range("C3:C" & r)Range("A" & r + 1) = "合计"Range("C" & r + 1).Formula = "=SUM(C2:C" & r & ")"End SubSub rngFormulaRC()Dim r As Integerr = Cells(Rows.Count, 1).End(xlUp).RowRange("C2:C" & r).FormulaR1C1 = "=RC[-2]*RC[-1]"Range("A" & r + 1) = "合计"Range("C" & r + 1).FormulaR1C1 = "=SUM(R[-" & r - 1 & "]C:R[-1]C)"End SubSub RngFormulaArray()Dim r As Integerr = Cells(Rows.Count, 1).End(xlUp).RowRange("C2:C" & r).FormulaR1C1 = "=RC[-2]*RC[-1]"Range("A" & r + 1) = "合计"Range("C" & r + 1).FormulaArray = "=SUM(R[-" & r - 1 & "]C[-2]:R[-1]C[-2]*R[-" & r - 1 & "]C[-1]:R[-1]C[-1])"End Sub11-2 判断单元格是否包含公式Sub rngIsHasFormula()Select Case Selection.HasFormulaCase TrueMsgBox "单元格包含公式!"Case FalseMsgBox "单元格没有公式!"Case ElseMsgBox "公式区域：" & Selection.SpecialCells(-4123, 23).Address(0, 0) End SelectEnd Sub11-3 判断单元格公式是否存在错误Sub CellFormulaIsWrong()If IsError(Range("A1").Value) = True ThenMsgBox "A1单元格错误类型为:" & Range("A1").TextElseMsgBox "A1单元格公式结果为" & Range("A1").ValueEnd IfEnd Sub11-4 取得公式的引用单元格Sub RngPrecedent()Dim rng As RangeSet rng = Sheet1.Range("C10").PrecedentsMsgBox "公式所引用的单元格是：" & rng.AddressSet rng = NothingEnd Sub11-5 将公式转换为数值Sub SpecialPaste()With Range("A1:A10").Copy.PasteSpecial Paste:=xlPasteValuesEnd WithApplication.CutCopyMode = FalseEnd Sub范例12 单元格添加批注Sub AddComment()With Range("A1")If Not .Comment Is Nothing Then .Comment.Delete.AddComment Text:=Date & vbCrLf & .Text.Comment.Visible = TrueEnd WithEnd Sub范例13 合并单元格操作13-1 判断单元格区域是否存在合并单元格Sub IsMergeCell()If Range("A1").MergeCells ThenMsgBox "合并单元格", vbInformationElseMsgBox "非合并单元格", vbInformationEnd IfEnd SubSub IsMergeCells()If IsNull(Range("A1:D10").MergeCells) ThenMsgBox "包含合并单元格", vbInformationElseMsgBox "没有包含合并单元格", vbInformationEnd IfEnd Sub13-2 合并单元格时连接每个单元格的文本Sub MergeCells()Dim MergeStr As StringDim MergeRng As RangeDim rng As RangeSet MergeRng = Range("A1:B2")For Each rng In MergeRngMergeStr = MergeStr & rng & " "NextApplication.DisplayAlerts = FalseMergeRng.MergeMergeRng.Value = MergeStrApplication.DisplayAlerts = TrueSet MergeRng = NothingSet rng = NothingEnd Sub13-3 合并内容相同的连续单元格Sub MergeLinkedCell()Dim r As IntegerDim i As IntegerApplication.DisplayAlerts = FalseWith Sheet1r = .Cells(Rows.Count, 1).End(xlUp).RowFor i = r To 2 Step -1If .Cells(i, 2).Value = .Cells(i - 1, 2).Value Then .Range(.Cells(i - 1, 2), .Cells(i, 2)).MergeEnd IfNextEnd WithApplication.DisplayAlerts = TrueEnd Sub13-4 取消合并单元格时在每个单元格中保留内容Sub CancelMergeCells()Dim r As IntegerDim MergeStr As StringDim MergeCot As IntegerDim i As IntegerWith Sheet1r = .Cells(.Rows.Count, 1).End(xlUp).RowFor i = 2 To rMergeStr = .Cells(i, 2).ValueMergeCot = .Cells(i, 2).MergeArea.Count.Cells(i, 2).UnMerge.Range(.Cells(i, 2), .Cells(i + MergeCot - 1, 2)).Value = MergeStri = i + MergeCot - 1Next.Range("B1:B" & r).Borders.LineStyle = xlContinuousEnd WithEnd Sub范例14 高亮显示选定单元格区域Private Sub Worksheet_SelectionChange(ByVal Target As Range)Cells.Interior.ColorIndex = xlColorIndexNoneTarget.Interior.ColorIndex = Int(56 * Rnd() + 1)End SubPrivate Sub Worksheet_SelectionChange(ByVal Target As Range)Dim rng As RangeCells.Interior.ColorIndex = xlColorIndexNoneSet rng = Application.Union(Target.EntireColumn, Target.EntireRow)rng.Interior.ColorIndex = Int(56 * Rnd() + 1)Set rng = NothingEnd Sub范例15 双击被保护单元格时不显示提示消息框Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Target.Locked = True ThenMsgBox "此单元格已保护，不能编辑!"Cancel = TrueEnd IfEnd Sub范例16 单元格录入数据后自动保护Private Sub Worksheet_SelectionChange(ByVal Target As Range)Dim msg As ByteWith TargetIf Not Application.Intersect(Target, Range("A2:F6")) Is Nothing Then If .Count > 1 ThenRange("A1").SelectExit SubEnd IfActiveSheet.UnprotectIf Len(Trim(.Value)) > 0 Thenmsg = MsgBox("当前单元格已录入数据,是否修改?", 32 + 4).Locked = IIf(msg = 6, False, True)End IfActiveSheet.ProtectActiveSheet.EnableSelection = 0End IfEnd WithEnd SubPrivate Sub Worksheet_Change(ByVal Target As Range)If Not Application.Intersect(Target, Range("A2:F6")) Is Nothing Then If Len(Trim(Target.Value)) > 0 ThenActiveSheet.UnprotectTarget.Locked = TrueActiveSheet.ProtectActiveSheet.EnableSelection = 0End IfEnd IfEnd Sub范例17 Target参数的使用方法17-1 使用Address 属性Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)Select Case Target.Address(0, 0)Case "A1"Sh.UnprotectCase "A2"Sh.ProtectCase ElseEnd SelectEnd Sub17-2 使用Column属性和Row属性Private Sub Worksheet_SelectionChange(ByVal Target As Range)If Target.Column < 3 And Target.Row < 11 ThenMsgBox "你选择了" & Target.Address(0, 0) & "单元格"End IfEnd Sub17-3 使用Intersect方法Private Sub Worksheet_SelectionChange(ByVal Target As Range)If Not Application.Intersect(Target, Union(Range("A1:B10"), Range("E1:F10"))) Is Nothing ThenIf Target.Count = 1 ThenMsgBox "你选择了" & Target.Address(0, 0) & "单元格"End IfEnd IfEnd Sub。

目录第一章：Excel VBA基础 (4)1录制宏： (4)2用户自定义函数 (4)3 Excel对象模型 (4)集合 (5)属性 (5)方法 (5)事件 (5)4 VBA语言 (5)基本的输入输出 (5)调用函数和子过程 (5)括号和参数列表 (6)变量声明 (6)变量的作用域和生存期 (7)变量类型 (7)对象变量 (7)做出判断 (7)循环 (9)数组 (9)运行时错误处理 (10)第二章：Application对象 (10)1全局： (10)2 Active属性： (10)3 显示警告： (10)4 屏幕刷新： (10)5 Application的Evaluate方法: (10)6 InputBox: (11)7 状态栏： (11)8 SendKeys： (11)9 OnTime： (12)10 OnKey： (12)11 工作表函数： (12)12 Caller： (12)第三章：工作薄和工作表 (12)1 Workbooks集合： (12)添加Workbook对象 (13)从路径中获取文件名 (13)在相同目录中的文件 (13)覆盖现有的工作薄 (13)保存改变 (14)2 Sheets集合: (14)工作表（Worksheet） (14)工作表的复制和移动 (14)组合工作表 (14)3 Windows对象： (15)第四章：使用单元格区域 (15)1 Range对象的Activate方法和Select方法： (15)2 Range属性： (15)活动工作表中的单元格区域 (16)非活动工作表中的单元格区域 (16)Range对象的Range属性 (16)Cells属性 (17)Range对象的Item属性 (17)在Range中使用Cells (17)关于Range对象的Cells属性 (18)单个参数的单元格区域引用 (18)3 Offset 属性： (18)4 Resize属性： (18)5 SpecialCells方法： (18)确定最后一个单元格 (19)删除数字 (19)6 CurrentRegion属性 (19)7 End属性： (19)8 单元格区域求和： (19)9 Columns属性和Rows属性： (19)10 Count属性 (19)11 Areas属性 (20)12 Areas集合 (21)13 Union方法和Intersect方法： (21)14 空单元格： (21)第五章：使用名称 (21)1 Name对象 (21)2 Names属性 (21)s 属性 (22)s属性 (22)s属性 (22)3 Name对象的Name属性： (23)4 命名单元格区域 (23)创建全局名称 (23)创建局部名称： (23)5 在名称中存储值 (23)6 存储数组 (24)7 隐藏名字： (24)8 处理命名的单元格区域： (24)9 搜索名称： (24)第六章：数据列表 (25)1 结构化数据： (25)2 排序单元格区域 (25)3 创建表 (25)4 排序表 (25)5 自动筛选 (25)第七章：数据透视表 (25)第八章：图表 (25)第九章：事件过程 (25)VBA是一种面向对象的程序设计语言，与Visual Basic程序设计语言在结构化和处理对象方面相同。

Access数据库应用基础教程习题集答案Access数据库应用基础教程习题集答案第1章数据库系统概述1. 什么是数据库?什么是数据库系统?答：数据库(database)是存放数据的仓库，严格的讲，数据库是长期存储在计算机内,有组织的，可共享的大量数据集合。

数据库系统(database systems)，是由数据库及其管理软件组成的系统。

它是为适应数据处理的需要而发展起来的一种较为理想的数据处理的核心机构。

它是一个实际可运行的存储、维护和应用系统提供数据的软件系统，是存储介质、处理对象和管理系统的集合体。

2. 什么是数据库管理系统?它有哪些主要功能?答：数据库管理系统(database management system)是一种操纵和管理数据库的大型软件，用于建立、使用和维护数据库，简称dbms。

它对数据库进行统一的管理和控制，以保证数据库的安全性和完整性。

数据库管理系统的主要功能有：数据定义、数据操作、数据库的运行管理、数据组织、数据库的保护、数据库的维护和通信。

3. 说出几种常用的数据模型。

答：层次模型、网状模型、关系模型。

4. 什么是关系模型?答：关系模型是用二维表的形式表示实体和实体间联系的数据模型。

5. 简述数据库设计的步骤。

答：需求分析、概念结构设计、逻辑结构设计、物理结构设计、数据库的建立和测试、数据库运行和维护。

第2章 SQL 语言简介1. 什么是SQL语言?SQL语言具有哪些特点和功能?答：SQL是一种数据库查询和程序设计语言，用于存取数据以及查询更新和管理关系数据库系统。

SQL的特点和功能有：查询，操作，定义和控制四个方面，SQL语言具有高度的非过程化，语言简洁，语义明显，语法结构简单，直观易懂的特点。

SQL语言即可以作为独立语言使用，用户可以在终端键盘上直接键入SQL命令对数据库进行操作，也可以作为嵌入式语言，嵌入到其他高级语言中。

2. SQL语言包含哪几个部分?答：SQL语言包含4个部分：数据定义语言(DDL-Data Definition Language)、数据查询语言(DQL-Data Query Language)、数据操纵语言(DML-Data Manipulation Language)、数据控制语言(DCL-Data Control Language)3. 在联接查询中，包含哪几类联接?答：联接可分为3类：(1)内部联接(典型的联接运算，使用类似于 = 或的比较运算符)。