1 / 54

第 8 章 Access 编程基础

第 8 章 Access 编程基础. 知识网络图. 窗体结构. 窗体类型. 图 8.3 纵栏式窗体. 窗体类型. 窗体类型. 图 8.5 主 / 子窗体. 窗体类型. 图 8.6 图表窗体. 窗体类型. 图 8.7 数据透视表窗体. 8 ． 2 创建窗体. 8.2.1 使用向导创建窗体. 【 例 8.1】 创建一个纵栏式窗体，窗体名为 “ 学生基本信息 ” ，窗体视图如图 8.3 所示，窗体上显示学号、姓名、性别、所在学院、照片五个字段。. 8.2.1 使用向导创建窗体. 【 例 8.1】 创建一个纵栏式窗体，窗体名为 “ 学生基本信息 ”

rory
Télécharger la présentation

第 8 章 Access 编程基础

An Image/Link below is provided (as is) to download presentation Download Policy: Content on the Website is provided to you AS IS for your information and personal use and may not be sold / licensed / shared on other websites without getting consent from its author. Content is provided to you AS IS for your information and personal use only. Download presentation by click this link. While downloading, if for some reason you are not able to download a presentation, the publisher may have deleted the file from their server. During download, if you can't get a presentation, the file might be deleted by the publisher.

E N D

Presentation Transcript

  1. 第8章Access编程基础

  2. 知识网络图

  3. 窗体结构

  4. 窗体类型 图8.3纵栏式窗体

  5. 窗体类型

  6. 窗体类型 图8.5 主/子窗体

  7. 窗体类型 图8.6 图表窗体

  8. 窗体类型 图8.7数据透视表窗体

  9. 8．2 创建窗体

  10. 8.2.1使用向导创建窗体 【例8.1】创建一个纵栏式窗体，窗体名为“学生基本信息”，窗体视图如图8.3所示，窗体上显示学号、姓名、性别、所在学院、照片五个字段。

  11. 8.2.1使用向导创建窗体 【例8.1】创建一个纵栏式窗体，窗体名为“学生基本信息” 1、单击“使用向导创建窗体”，选择数据源和字段

  12. 8.2.1使用向导创建窗体 2、选择一种窗体布局“纵栏表”

  13. 8.2.1使用向导创建窗体 3、选择一种样式“标准”

  14. 8.2.1使用向导创建窗体 4、输入窗体标题“学生基本信息”，。

  15. 8.2.1使用向导创建窗体 窗体的设计视图

  16. 8.2.2使用设计视图创建窗体 【例8.2】采用“使用设计视图创建窗体”方式完成【例8.1】。 1、单击“使用设计视图创建窗体”，

  17. 8.2.2使用设计视图创建窗体 2、选择数据源：鼠标右击窗体主体节以外的灰色区域，弹出如图8.14所示快捷菜单 鼠标点击这里

  18. 8.2.2使用设计视图创建窗体 保存窗体

  19. 8．3 设计窗体 8.3.1常用控件

  20. 8．3 设计窗体 【例8.3】在【例8.1】的基础上，向窗体添加5个命令按钮“上一学生”、“下一学生”、“添加学生”、“删除学生”、“关闭窗体”，且按钮具有相应功能，增加一个标签“学生基本信息管理”。其运行界面如图8.18。

  21. 8．3 设计窗体 先确认“控件向导”处在开启状态，选定工具栏上“命令按钮”，然后在窗体相应位置上单击，出现如图8.19窗口

  22. 8．3 设计窗体 选择按钮风格

  23. 8．3 设计窗体 为命令按钮命名，每一个按钮的名字在一个窗体中是唯一的

  24. 8．3 设计窗体 8.3.3控件的属性 图8.22 “关闭窗体”按钮的属性窗口 图8.23 “关闭窗体”按钮的事件属性

  25. 8.3.4控件的事件：所谓事件是一个控件可以辨认的动作，8.3.4控件的事件：所谓事件是一个控件可以辨认的动作， 图8.23 “关闭窗体”按钮的事件属性

  26. 8．4 模块 标准模块 类模块

  27. 8．5 VBA编程基础 8.5.1VBA注释 在VBA程序中，注释可以通过以下两种方式实现： 使用Rem语句 :Rem 注释语句 用“'”号 '注释语句 【例8.4】 Dim MyStr1,MyStr2 MyStr1 = "Hello" :Rem 注释在语句之后要用冒号隔开。 MyStr2 = "Goodbye" '这也是一条注释；无需使用冒号。

  28. 8.5.2 VBA数据类型

  29. 8.5.3 变量 使用Dim语句声明变量格式： Dim 变量名 A s 数据类型 【例8.6】 声明一个名为MyName的字符串变量。 Dim MyName As String 给变量赋值： MyName="姚明" 改变变量的值： MyName="小巨人"

  30. 8.5.4 表达式 1．数学运算 ＋：加法运算，也适合于字符串的之间的连接运算。 －：加法运算。 * ：乘法运算。 /：除法运算。用来进行两个数的除法运算并返回一个 浮点数。 \：整除运算。返回两数相除后的整数部分。 Mod：求余运算。例如：21 Mod 2表示21被1整除以后 的余数，结果为1。 ^：幂运算。例如：3^2 表示以3为底的2次方，结果为9。

  31. 2．关系运算 关系运算也称比较运算，它表示不等式的真或假，主要用于数值、日期等之间的比较。VB共提供六种运算符，分别是： =（等于），>（大于），<（小于），>=（大于等于），<=（小于等于）和<>（不等于）。 3．逻辑运算 4．连接运算 连接运算符作用是将两个字符串连接起来，包含“+”和“&”。 “+”只能连接两个字符串，“&”可以将两个不同类型的表达式强制连接。

  32. 8.5.2 VBA数据类型 在VBE窗口，运行菜单【视图】【立即窗口】命令，弹出如图8.26立即窗口，输入“?”号，在问号后输入表达式，回车后即可显示表达式结果 图8.26 立即窗口

  33. 8.5.5 系统函数 按功能来分，常用的可分为数学函数、字符函数、转换函数、日期函数、测试函数等。 函数的使用格式：函数名（参数列表）

  34. Y 条件 N 条件 N A B A Y 选择结构 B A 顺序结构 循环结构图 8．6 VBA程序流程控制语句

  35. 8.6.1 顺序结构 【例8.8】创建一个窗体名为“计算圆面积和周长”，功能是能接受用户输入一个圆的半径，根据用户输入的半径进行计算圆的面积和周长，窗体设计视图如图8.28(a)，窗体运行图如图8.28(b)，在第一个文本框输入半径后，单击“计算”按钮，将计算出来的圆的面积和周长分别显示在相应的文本框中，单击“关闭”按钮，可以关闭窗体

  36. 属性

  37. 创建事件过程，单击选定“计算”按钮，单击鼠标右键，执行快捷菜单中“属性”项，在属性窗口中选择“事件”页面，在“单击”项后选择“事件过程”，单击“…”，进入VBA界面，系统自动生成如下代码：创建事件过程，单击选定“计算”按钮，单击鼠标右键，执行快捷菜单中“属性”项，在属性窗口中选择“事件”页面，在“单击”项后选择“事件过程”，单击“…”，进入VBA界面，系统自动生成如下代码： Private Sub Command1_Click() End Sub （4）编写代码，在两行代码中间输入如下命令序列 zc.Value = 3.14 * bj.Value * 2 mj.Value = 3.14 * bj.Value ^2

  38. 格式1： if <条件> then <语句序列1> end if 条件语句 ——if语句 格式2： if <条件> then <语句序列1> else <语句序列2> end if 格式3： If <条件1> Then <语句序列1> ElseIf <条件2> Then <语句序列2> Else <语句序列3> End If

  39. 【例8.9】创建一个窗体名为“判断成绩”，功能是能接受用户输入一个成绩，根据用户输入的成绩进行判断成绩是否及格，窗体运行图如8.29(a)，输入成绩后，单击“判断成绩是否及格”按钮，弹出图8.29(b)对话框，若成绩大于等于60，对话框里提示“成绩及格”，若成绩小于60，对话框提示“成绩不及格”。【例8.9】创建一个窗体名为“判断成绩”，功能是能接受用户输入一个成绩，根据用户输入的成绩进行判断成绩是否及格，窗体运行图如8.29(a)，输入成绩后，单击“判断成绩是否及格”按钮，弹出图8.29(b)对话框，若成绩大于等于60，对话框里提示“成绩及格”，若成绩小于60，对话框提示“成绩不及格”。

  40. 属性设置

  41. （3）单击选定“判断成绩是否及格”按钮，单击鼠标右键，执行快捷菜单中“属性”项，在属性窗口中选择“事件”页面，在“单击”项后选择“事件过程”，单击“…”，进入VBA界面，系统自动生成如下代码：（3）单击选定“判断成绩是否及格”按钮，单击鼠标右键，执行快捷菜单中“属性”项，在属性窗口中选择“事件”页面，在“单击”项后选择“事件过程”，单击“…”，进入VBA界面，系统自动生成如下代码： Private Sub Command1_Click() End Sub （4）在两行代码中间输入如下命令序列 If score.Value >= 60 Then MsgBox "成绩及格" Else MsgBox "成绩不及格" End If

  42. 格式： Select Case <检验表达式> Case <比较列表1> <语句序列1> Case <比较列表2> <语句序列2> …… [Case Else] <语句序列n> End Select 条件语句 —— Select Case语句 说明： 1、<比较列表>可以是如下几种形式： （1）表达式（如60，2*x）。 （2）表达式1 to 表达式2（表示在表达式1和表达式2之间）。 （3）is 关系运算符（如is <=100）。 （4）表达式1，表达式2，……。 2、如果有一个以上的Case子句与<检验表达式>匹配，则VBA只执行第一个匹配的Case字句后面的语句组。 3、如果前面的Case子句与<检验表达式>都不匹配，则可在Case Else子句后面的语句块。

  43. 【例8.10】创建一个窗体“成绩绩点计算”，功能是能接受用户输入成绩，根据用户输入的成绩按照表8-6进行计算成绩绩点，窗体设计视图如图8.30 (a)，窗体运行图如图8.30 (b)，在第一个文本框输入成绩后，单击“计算”按钮，将计算出来的绩点分别显示在相应的文本框中。 表8-6 成绩绩点转换表

  44. Private Sub Command1_Click() Select Case score.Value Case Is < 60 scorepoint.Value = 0 Case Is = 60 scorepoint.Value = 1 Case Is = 61 scorepoint.Value = 1.3 Case 62 To 65 scorepoint.Value = 1.7 Case 66 To 70 scorepoint.Value = 2 Case 71 To 74 scorepoint.Value = 2.3 Case 75 To 77 scorepoint.Value = 2.7 Case 78 To 81 scorepoint.Value = 3 Case 82 To 84 scorepoint.Value = 3.3 Case 85 To 89 scorepoint.Value = 3.7 Case 90 To 100 scorepoint.Value = 4 End Select End Sub

  45. 格式： For <循环变量>=初值To 末值 [Step 步长] [<语句序列1>] [Exit For] [<语句序列2>] Next <循环变量> 说明： 执行过程如图8.13所示。 循环变量必须是数值型。 步长默认为1。 一般初值小于末值，如果初值大于末值，步长要为负数。 循环——for……next语句

  46. 【例8.11】创建一个窗体“计算1到10的累加和”，窗体设计视图和运行图分别见图8.31和8.32，要求单击“开始计算”按钮，将计算结果显示在文本框中。 Sum=0 i=1 i<=10 N Y Sum=sum+i i=i+1 显示sum 图8.33求1到10累加和流程图

  47. Private Sub Command1_Click() Dim sum As Integer sum = 0 For i = 1 To 10 Step 1 sum = sum + i Next i total.Value = sum End Sub 表8-8 “计算1到10的累加和”窗体控件属性

More Related