8-资源环境数据库实例.pptVIP

资源环境数据库实例古海洋面温度(SST)数据库 ? 一.实验目的 学习和掌握Access数据库表,查询,窗体以及VBA编程的综合使用。 二.实验内容 建立SST数据库，估算若干地区的SST. 三.实验步骤： 为什么要建立Core_RelTable这个表？（作用） 3.创建查询 包括:Ocean_Code 查询 Allsite_1 查询 Core_RelTable查询 Core 查询 1.通过表Allsite_1和Ocean_Code某些字段建立Ocean_Code 查询,设计视图如下: 2. Allsite_1 查询 3. Core_RelTable查询1 4.建立参数查询:由Core_ID查询Core_Order 3.创建窗体 (1)建立分海洋查询钻孔数据的子窗体以及链接窗体. 通过表Allsite_1和Core_Type的某些字段建立.以下是子窗体的建立过程.链接窗体类似. 链接窗体示意图 (2).建立SST计算窗体 编程计算SST，将计算结果入库 首先:在窗体的设计视图中添加组合框Core_Name,文本框Fun_Tab_Name,文本框Fac_Tab_Name,文本框SST_Tab_Name, 命令按钮Calcu,命令按钮Addtab以及 标签Label6. 其中组合框Core_Name数据 为Core_ID,源自 Core_RelTable查询1 代码: 模块级变量 Option Compare Database Dim tdf As New ADODB.Recordset Dim fld As Field, RecK As Integer Dim FunW(30) As Double, FunS(30) As Double, FunK As Integer Dim Fac1(30) As Integer, Fac2(30) As Integer Dim SSTW(500) As Single, SSTS(500) As Single Dim X_Order(500) As Integer, X_Depth(500) As Long Private Sub Form_Load() Addtab.Enabled = False End Sub Private Sub Core_Name_Click() Dim CC As String, CC1 As String tdf.Open “Core_RelTable查询1, CurrentProject.Connection, _ adOpenKeyset, adLockOptimistic tdf.MoveFirst CC1 = Core_ID= CC = CC1 Core_Name.Text tdf.Find (CC) Fun_Tab_Name = tdf!Fun_Table SST_Tab_Name = tdf!SST_Table Fac_Tab_Name = tdf!Fac_Table tdf.Close End Sub Private Sub Calcu_Click() Dim TabName As String, I As Integer, J As Integer Dim X_Fac(10) As Double, K_Fac As Integer, K_fld As Integer, Fld_V(10) As Double Dim Y1 As Double, Y2 As Double Label6.Caption = TabName = Fun_Tab_Name tdf.Open TabName, CurrentProject.Connection, adOpenKeyset, adLockOptimistic FunK = -1 tdf.MoveFirst Do Until tdf.EOF ‘读入函数系数矩阵 FunK = FunK + 1 FunW(tdf!Coef_Order) = tdf!Coef_Winter FunS(tdf!Coef_Order) = tdf!Coef_Summer Fac1(tdf!Coef_Order) = tdf!Fac_1 Fac2(tdf!Coef_Order) = tdf!Fac_2 tdf.MoveNext Loop tdf.Close TabName = Fac_Tab_Name tdf.Open TabName, Curr