数据库建设方面

在全面收集了研究区的地、物、化、遥以及所产出的矿床地质特征资料的基础上，完成研究区系统和详细的工作区研究程度图，详细地勾勒了全区总的已经开展的工作状况。

完成中国地质调查局的关于数据库和图库建设的任务，完成了西南三江中段矿产地质数据库，该地质数据库由地质图数据库、矿产地数据库、地理底图数据库、物探数据库（包括重力数据库和航磁数据库）、化探数据库、遥感构造解译数据库六大子库构成。数据库建设的主要进展包括：①完成研究区457个矿床（点）资料收集（四川272个、西藏185个）；②完成了研究区1：2.5万图幅-数据点区域化探数据（共2364个数据点）及藏东和川西地区1：20万区域化探数据36个分幅的数据库收集和建设，并利用多种方法进行必要的数据处理和元素分布背景分析，取得满意的效果；③建立了西南三江中段重力数据库和重力场数据库；④完成 Landsat TM 图像处理，图像波段组合采用 TM543（RGB）进行假彩色合成，同时进行必要的和详细的线、环构造解译；⑤以MapGIS为基础平台，采用VB为开发工具实现二次开发，初步完成了一个针对本区各个子库的管理系统，主要完成各个子库的统一管理及浏览功能；⑥完成三江中段矿产地质数据库成果文件的详细分类。

1、首先点击打开主菜单栏中的“外接程序”选项。

2、然后在d出来的窗口中点击打开“可视化数据管理器”，出现下图中的界面。

3、然后单击文件中的新建，选择“microsot access”，“version 7.0”，d出保存界面，点击保存后出现如下界面。

4、然后右键单击properties，选择“新建表”，输入表名称，添加字段。

5、然后打开类型，选择字段类型的大小，回车确定。

6、然后点击“生成表”选项。

7、然后双击“1”或者右键单击选择打开。

8、然后输入值后工具栏会变化。

9、然后点击添加就完成了。

1、使用data控件的FindFirst方法可以实现数据库记录的查找。

2、工具：vb6。

3、具体实现方法：

a)在窗体上添加data1、dbgrid1、text1、command1、label1

b)在dbgrid1的DataSource属性里选择data1

c)实现代码如下：

Private Sub Command1_Click()

    '查找定位记录

    Data1.Recordset.FindFirst "CategoryID=" & Text1.Text

DBGrid1.DataSource

End Sub

Private Sub Form_Load()

    Data1.Connect = "Access 2000" '设置数据库类型

    Data1.DatabaseName = "C:\db1.MDB" '连接数据库

    Data1.RecordSource = "Categories" '数据库中的表

    Data1.Refresh '打开数据库

End Sub

4、注意：数据库可以使用vb6文件夹内的NWIND.MDB

---