第011章 测绘VBA编程实例.ppt

1、数据库原理与应用,第 11章 VBA编程实例,辽宁科技大学资源与土木工程学院测绘工程教研室,坐标方位角及距离计算理论基础,注意：计算出 的，应根据 的正负，判断 其所在的象限。,程序实现功能,两个点的坐标方位角及距离计算 批量测量坐标方位角及距离计算,程序实现步骤,窗体创建 标准模块编写 简单计算控件事件程序编写 批量数据处理,窗体创建,窗体对象,选项组对象,标签对象,图像对象,文本框对象,命令按钮对象,窗体创建,窗体对象,选项组对象,窗体创建,窗体创建,标签对象,窗体创建,图像对象,文本框对象,窗体创建,命令按钮对象,标准模块编写,在对象处选择模块，点击新建，弹出VBE编译环境,标准模块编写

2、,在VBE编译环境中，选择保存按钮，在另存为将模块名称改成“公用模块”,标准模块编写,定义常量 Public Const PI = 3.14159265358979 计算方位角函数过程 Public Function JSFWJ(xa As Double, ya As Double, xb As Double, yb As Double) As Double 计算距离函数过程 Public Function JSJLS(xa As Double, ya As Double, xb As Double, yb As Double) As Double 弧度化角度函数过程 Public Funct

3、ion RadianToAngle(ByVal alfa As Double) As Double,公用模块中主要常量及函数过程,标准模块编写,标准模块编写,标准模块编写,简单计算控件事件程序编写,Private Sub Form_Load() Private Sub cmd_计算_Click() Private Sub cmd_数据清空_Click() Private Sub cmd_退出程序_Click(),简单计算控件事件程序编写,简单计算控件事件程序编写,简单计算控件事件程序编写,简单计算控件事件程序编写,批量数据处理,创建表 创建宏 控件事件程序编写,创建表,计算前坐标数据表 计算后

4、方位角及距离数据表,创建计算前坐标数据表,计算前坐标数据表结构,计算前坐标数据表数据,注意：此数据为输入得到,创建计算前坐标数据表,计算后方位角及距离数据表结构,创建计算后方位角及距离数据表,计算后方位角及距离数据表数据,注意：此数据为计算得到，无需输入,创建计算后方位角及距离数据表,创建宏,Autoexec 导入导出数据,Autoexec宏,目的：在打开Access时，能将坐标方位角及距离计算小程序窗体自动打开。,导入导出数据宏,宏名为：导入计算数据，用作原始数据输入时用,宏名为：导出计算后方位角及距离数据，用作计算后数据导出到Excel表中。,导入导出数据宏,控件事件程序编写,Privat

5、e Sub cmd_导入计算数据_Click() Private Sub cmd_批量计算_Click() Private Sub Cmd_退出程序2_Click(),控件事件程序编写,打开要进行批量计算的数据表计算前坐标数据表 Private Sub cmd_导入计算数据_Click() DoCmd.RunMacro 导入导出数据.导入计算数据 End Sub,控件事件程序编写,Private Sub cmd_批量计算_Click() Dim JSXH As Integer 定义计算序号 Dim QDname As String, ZDname As String 第一起点和终点点号 定义起

6、点坐标（QDx和QDy）和终点坐标（ZDx和ZDy） Dim QDx As Double, QDy As Double, ZDx As Double, ZDy As Double Dim Conn As ADODB.Connection Dim rs1 As ADODB.Recordset Dim rs2 As ADODB.Recordset Dim rs3 As ADODB.Recordset Set Conn = CurrentProject.Connection Set rs1 = New ADODB.Recordset Set rs2 = New ADODB.Recordset Set

7、 rs3 = New ADODB.Recordset 清空简单计算内容 Me.txt_Xa = Null: Me.txt_Ya = Null Me.txt_Xb = Null: Me.txt_Yb = Null,控件事件程序编写,清空计算后方位角及距离数据表，为计算后添加数据做准备 rs3.Open select * from 计算后方位角及距离数据, Conn, adOpenDynamic, adLockOptimistic rs3.MoveFirst Do While Not rs3.EOF rs3.Delete rs3.Update rs3.MoveNext Loop rs3.Close

8、 打开计算前坐标数据表并指向第一条记录 rs1.Open 计算前坐标数据, Conn, adOpenDynamic, adLockOptimistic rs1.MoveFirst 打开计算后方位角及距离数据表，把计算后数据保存到表中 rs2.Open 计算后方位角及距离数据, Conn, adOpenDynamic, adLockOptimistic 读取表中数据，开始计算 Do While Not rs1.EOF JSXH = rs1!序号 QDname = rs1!起点点号 QDx = rs1!起点x坐标 QDy = rs1!起点y坐标 ZDname = rs1!终点点号 ZDx = rs

9、1!终点x坐标 ZDy = rs1!终点y坐标,控件事件程序编写,If (ZDx - QDx) = 0 And (ZDy - QDy) = 0 Then MsgBox QDname & 和 & ZDname & 是同一个点, vbOKOnly + vbExclamation, 提示信息 Exit Sub Else rs2.AddNew rs2!序号 = JSXH rs2!名称 = QDname & & ZDname rs2!方位角 = JSFWJ(QDx, QDy, ZDx, ZDy) rs2!距离= JSJLS(QDx, QDy, ZDx, ZDy) rs2.Update rs1.MoveNext End If Loop rs1.Close rs2.Close 利用宏，把数据导出到Excel表中 DoCmd.RunMacro 导入导出数据.导出计算后方位角及距离数据 End Sub,控件事件程序编写,Private Sub Cmd_退出程序2_