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

下载本文档

3
0
约6.79千字
约 47页
2017-07-16 发布于北京
举报
版权申诉

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

1、本文档共47页，可阅读全部内容。
2、有哪些信誉好的足球投注网站（book118）网站文档一经付费（服务费），不意味着购买了该文档的版权，仅供个人/单位学习、研究之用，不得用于商业用途，未经授权，严禁复制、发行、汇编、翻译或者网络传播等，侵权必究。
3、本站所有内容均由合作方或网友上传，本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺！文档内容仅供研究参考，付费前请自行鉴别。如您付费，意味着您自己接受本站规则且自行承担风险，本站不退款、不进行额外附加服务；查看《如何避免下载的几个坑》。如果您已付费下载过本站文档，您可以点击这里二次下载。
4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等，请点击“版权申诉”（推荐），也可以打举报电话：400-050-0827(电话支持时间：9:00-18:30)。
5、该文档为VIP文档，如果想要下载，成为VIP会员后，下载免费。
6、成为VIP后，下载本文档将扣除1次下载权益。下载后，不支持退款、换文档。如有疑问请联系我们。
7、成为VIP后，您将拥有八大权益，权益包括：VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
8、VIP文档为合作方或网友上传，每下载1次，网站将根据用户上传文档的质量评分、类型等，对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档

资源环境数据库实例古海洋面温度(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