Attribute VB_Name = "DB_Table_Def"
Sub DB_T_Def(Ier)
'定義數(shù)據(jù)庫(kù)表
Dim BInfTd As TableDef '基本參數(shù)表
Dim PotNameTd As TableDef '點(diǎn)號(hào)表
Dim BInfFlds(3) As Field
Dim PotnameFlds(4) As Field
Dim ResultTD As TableDef
Dim ResultFlds(3) As Field


Dim tmp As String, i As Integer
Dim arecord As Recordset
  
    Set g_MyWs = DBEngine.Workspaces(0)
    Set g_d_Base = g_MyWs.CreateDatabase(g_ProjectFile, dbLangGeneral, dbVersion30)
    
    Set PotNameTd = g_d_Base.CreateTableDef("點(diǎn)號(hào)表")
    Set BInfTd = g_d_Base.CreateTableDef("基本參數(shù)表")
    Set ResultTD = g_d_Base.CreateTableDef("結(jié)果表")
    '建立點(diǎn)號(hào)表
    Set PotnameFlds(0) = PotNameTd.CreateField("點(diǎn)號(hào)", dbText)
    Set PotnameFlds(1) = PotNameTd.CreateField("A_H", dbDouble)
    Set PotnameFlds(2) = PotNameTd.CreateField("A_V", dbDouble)
    Set PotnameFlds(3) = PotNameTd.CreateField("B_H", dbDouble)
    Set PotnameFlds(4) = PotNameTd.CreateField("B_V", dbDouble)
    For i = 0 To 4
        PotNameTd.Fields.Append PotnameFlds(i)
    Next i
    g_d_Base.TableDefs.Append PotNameTd
    '建立基本參數(shù)表

    Set BInfFlds(0) = BInfTd.CreateField("AB距離", dbDouble)
    Set BInfFlds(1) = BInfTd.CreateField("AB高差", dbDouble)
    Set BInfFlds(2) = BInfTd.CreateField("A點(diǎn)儀器高", dbDouble)
    Set BInfFlds(3) = BInfTd.CreateField("點(diǎn)個(gè)數(shù)", dbInteger)
    For i = 0 To 3
        BInfTd.Fields.Append BInfFlds(i)
    Next i
    g_d_Base.TableDefs.Append BInfTd
     
    Set ResultFlds(0) = ResultTD.CreateField("點(diǎn)號(hào)", dbText)
    Set ResultFlds(1) = ResultTD.CreateField("X", dbDouble)
    Set ResultFlds(2) = ResultTD.CreateField("Y", dbDouble)
    Set ResultFlds(3) = ResultTD.CreateField("Z", dbDouble)

    For i = 0 To 3
        ResultTD.Fields.Append ResultFlds(i)
    Next i
    g_d_Base.TableDefs.Append ResultTD
    Ier = 0
 End Sub