createdb.bas

适合乡镇供电所使用电费处理系统v3 软件

            FLD.DefaultValue = "0"
            FLD.OrdinalPosition = 7
            FLD.Required = False
            FLD.ValidationRule = ""
            FLD.ValidationText = ""
        TD.Fields.Append FLD
        ' Field OPERATOR
        Set FLD = TD.CreateField("OPERATOR", 4, 4)
            FLD.Attributes = 1
            FLD.DefaultValue = "0"
            FLD.OrdinalPosition = 8
            FLD.Required = False
            FLD.ValidationRule = ""
            FLD.ValidationText = ""
        TD.Fields.Append FLD
        ' Index USERID
        Set IDX = TD.CreateIndex("USERID")
            IDX.Clustered = False
            IDX.Primary = False
            IDX.Unique = False
            IDX.Required = False
            IDX.IgnoreNulls = False
            ' Field USERID
            Set FLD = IDX.CreateField("USERID")
                FLD.Attributes = 0
            IDX.Fields.Append FLD
        TD.Indexes.Append IDX
        ' Index VILLAGEID
        Set IDX = TD.CreateIndex("VILLAGEID")
            IDX.Clustered = False
            IDX.Primary = False
            IDX.Unique = False
            IDX.Required = False
            IDX.IgnoreNulls = False
            ' Field VILLAGEID
            Set FLD = IDX.CreateField("VILLAGEID")
                FLD.Attributes = 0
            IDX.Fields.Append FLD
        TD.Indexes.Append IDX
    DB.TableDefs.Append TD
End Sub

Sub CreateTD_pricedb(DB As Database)
    Dim TD As TableDef
    Dim FLD As Field
    Dim IDX As Index

    Set TD = DB.CreateTableDef("pricedb")
        TD.Attributes = 0
        TD.Connect = ""
        TD.SourceTableName = ""
        TD.ValidationRule = ""
        TD.ValidationText = ""
        ' Field PRICEID
        Set FLD = TD.CreateField("PRICEID", 2, 1)
            FLD.Attributes = 1
            FLD.DefaultValue = "0"
            FLD.OrdinalPosition = 1
            FLD.Required = True
            FLD.ValidationRule = ""
            FLD.ValidationText = ""
        TD.Fields.Append FLD
        ' Field PRICENAME
        Set FLD = TD.CreateField("PRICENAME", 10, 8)
            FLD.AllowZeroLength = False
            FLD.Attributes = 2
            FLD.DefaultValue = ""
            FLD.OrdinalPosition = 2
            FLD.Required = False
            FLD.ValidationRule = ""
            FLD.ValidationText = ""
        TD.Fields.Append FLD
        ' Field PRICE
        Set FLD = TD.CreateField("PRICE", 5, 8)
            FLD.Attributes = 1
            FLD.DefaultValue = "0"
            FLD.OrdinalPosition = 3
            FLD.Required = False
            FLD.ValidationRule = ""
            FLD.ValidationText = ""
        TD.Fields.Append FLD
        ' Index PRICEID
        Set IDX = TD.CreateIndex("PRICEID")
            IDX.Clustered = False
            IDX.Primary = True
            IDX.Unique = True
            IDX.Required = True
            IDX.IgnoreNulls = False
            ' Field PRICEID
            Set FLD = IDX.CreateField("PRICEID")
                FLD.Attributes = 0
            IDX.Fields.Append FLD
        TD.Indexes.Append IDX
    DB.TableDefs.Append TD
End Sub

Sub CreateTD_user0001(DB As Database)
    Dim TD As TableDef
    Dim FLD As Field
    Dim IDX As Index

    Set TD = DB.CreateTableDef("user0001")
        TD.Attributes = 0
        TD.Connect = ""
        TD.SourceTableName = ""
        TD.ValidationRule = ""
        TD.ValidationText = ""
        ' Field USERID
        Set FLD = TD.CreateField("USERID", 3, 2)
            FLD.Attributes = 1
            FLD.DefaultValue = "0"
            FLD.OrdinalPosition = 1
            FLD.Required = True
            FLD.ValidationRule = ""
            FLD.ValidationText = ""
        TD.Fields.Append FLD
        ' Field SHORTNAME
        Set FLD = TD.CreateField("SHORTNAME", 10, 8)
            FLD.AllowZeroLength = False
            FLD.Attributes = 2
            FLD.DefaultValue = ""
            FLD.OrdinalPosition = 2
            FLD.Required = False
            FLD.ValidationRule = ""
            FLD.ValidationText = ""
        TD.Fields.Append FLD
        ' Field FULLNAME
        Set FLD = TD.CreateField("FULLNAME", 10, 30)
            FLD.AllowZeroLength = True
            FLD.Attributes = 2
            FLD.DefaultValue = ""
            FLD.OrdinalPosition = 3
            FLD.Required = False
            FLD.ValidationRule = ""
            FLD.ValidationText = ""
        TD.Fields.Append FLD
        ' Field CHARGE1
        Set FLD = TD.CreateField("CHARGE1", 4, 4)
            FLD.Attributes = 1
            FLD.DefaultValue = "0"
            FLD.OrdinalPosition = 4
            FLD.Required = False
            FLD.ValidationRule = ""
            FLD.ValidationText = ""
        TD.Fields.Append FLD
        ' Field CHARGE2
        Set FLD = TD.CreateField("CHARGE2", 4, 4)
            FLD.Attributes = 1
            FLD.DefaultValue = ""
            FLD.OrdinalPosition = 5
            FLD.Required = False
            FLD.ValidationRule = ""
            FLD.ValidationText = ""
        TD.Fields.Append FLD
        ' Field CHARGE3
        Set FLD = TD.CreateField("CHARGE3", 4, 4)
            FLD.Attributes = 1
            FLD.DefaultValue = "0"
            FLD.OrdinalPosition = 6
            FLD.Required = False
            FLD.ValidationRule = ""
            FLD.ValidationText = ""
        TD.Fields.Append FLD
        ' Field CHARGE4
        Set FLD = TD.CreateField("CHARGE4", 4, 4)
            FLD.Attributes = 1
            FLD.DefaultValue = "0"
            FLD.OrdinalPosition = 7
            FLD.Required = False
            FLD.ValidationRule = ""
            FLD.ValidationText = ""
        TD.Fields.Append FLD
        ' Field CHARGE5
        Set FLD = TD.CreateField("CHARGE5", 4, 4)
            FLD.Attributes = 1
            FLD.DefaultValue = "0"
            FLD.OrdinalPosition = 8
            FLD.Required = False
            FLD.ValidationRule = ""
            FLD.ValidationText = ""
        TD.Fields.Append FLD
        ' Field CHARGE6
        Set FLD = TD.CreateField("CHARGE6", 4, 4)
            FLD.Attributes = 1
            FLD.DefaultValue = "0"
            FLD.OrdinalPosition = 9
            FLD.Required = False
            FLD.ValidationRule = ""
            FLD.ValidationText = ""
        TD.Fields.Append FLD
        ' Field CHARGE7
        Set FLD = TD.CreateField("CHARGE7", 4, 4)
            FLD.Attributes = 1
            FLD.DefaultValue = "0"
            FLD.OrdinalPosition = 10
            FLD.Required = False
            FLD.ValidationRule = ""
            FLD.ValidationText = ""
        TD.Fields.Append FLD
        ' Field CHARGE8
        Set FLD = TD.CreateField("CHARGE8", 4, 4)
            FLD.Attributes = 1
            FLD.DefaultValue = "0"
            FLD.OrdinalPosition = 11
            FLD.Required = False
            FLD.ValidationRule = ""
            FLD.ValidationText = ""
        TD.Fields.Append FLD
        ' Field CHARGE9
        Set FLD = TD.CreateField("CHARGE9", 4, 4)
            FLD.Attributes = 1
            FLD.DefaultValue = "0"
            FLD.OrdinalPosition = 12
            FLD.Required = False
            FLD.ValidationRule = ""
            FLD.ValidationText = ""
        TD.Fields.Append FLD
        ' Field CHARGE10
        Set FLD = TD.CreateField("CHARGE10", 4, 4)
            FLD.Attributes = 1
            FLD.DefaultValue = "0"
            FLD.OrdinalPosition = 13
            FLD.Required = False
            FLD.ValidationRule = ""
            FLD.ValidationText = ""
        TD.Fields.Append FLD
        ' Field CHARGE11
        Set FLD = TD.CreateField("CHARGE11", 4, 4)
            FLD.Attributes = 1
            FLD.DefaultValue = "0"
            FLD.OrdinalPosition = 14
            FLD.Required = False
            FLD.ValidationRule = ""
            FLD.ValidationText = ""
        TD.Fields.Append FLD
        ' Field CHARGE12
        Set FLD = TD.CreateField("CHARGE12", 4, 4)
            FLD.Attributes = 1
            FLD.DefaultValue = "0"
            FLD.OrdinalPosition = 15
            FLD.Required = False
            FLD.ValidationRule = ""
            FLD.ValidationText = ""
        TD.Fields.Append FLD
        ' Field PRICEATT
        Set FLD = TD.CreateField("PRICEATT", 2, 1)
            FLD.Attributes = 1
            FLD.DefaultValue = "0"
            FLD.OrdinalPosition = 16
            FLD.Required = False
            FLD.ValidationRule = ""
            FLD.ValidationText = ""
        TD.Fields.Append FLD
        ' Field DBLRATE
        Set FLD = TD.CreateField("DBLRATE", 2, 1)
            FLD.Attributes = 1
            FLD.DefaultValue = "0"
            FLD.OrdinalPosition = 17
            FLD.Required = False
            FLD.ValidationRule = ""
            FLD.ValidationText = ""
        TD.Fields.Append FLD
        ' Field BLOCK
        Set FLD = TD.CreateField("BLOCK", 2, 1)
            FLD.Attributes = 1
            FLD.DefaultValue = "0"
            FLD.OrdinalPosition = 18
            FLD.Required = False
            FLD.ValidationRule = ""
            FLD.ValidationText = ""
        TD.Fields.Append FLD
        ' Field MULTIMETER
        Set FLD = TD.CreateField("MULTIMETER", 2, 1)
            FLD.Attributes = 1
            FLD.DefaultValue = "0"
            FLD.OrdinalPosition = 19
            FLD.Required = False
            FLD.ValidationRule = ""
            FLD.ValidationText = ""
        TD.Fields.Append FLD
        ' Field METERLOSS
        Set FLD = TD.CreateField("METERLOSS", 2, 1)
            FLD.Attributes = 1
            FLD.DefaultValue = "0"
            FLD.OrdinalPosition = 20
            FLD.Required = False
            FLD.ValidationRule = ""
            FLD.ValidationText = ""
        TD.Fields.Append FLD
        ' Field MAXBIT
        Set FLD = TD.CreateField("MAXBIT", 2, 1)
            FLD.Attributes = 1
            FLD.DefaultValue = "6"
            FLD.OrdinalPosition = 21
            FLD.Required = False
            FLD.ValidationRule = ""
            FLD.ValidationText = ""
        TD.Fields.Append FLD
        ' Field PATCH_FLG
        Set FLD = TD.CreateField("PATCH_FLG", 1, 1)
            FLD.Attributes = 1
            FLD.DefaultValue = ""
            FLD.OrdinalPosition = 22
            FLD.Required = False
            FLD.ValidationRule = ""
            FLD.ValidationText = ""
        TD.Fields.Append FLD
        ' Field DISABLE_FLG
        Set FLD = TD.CreateField("DISABLE_FLG", 1, 1)
            FLD.Attributes = 1
            FLD.DefaultValue = ""
            FLD.OrdinalPosition = 24
            FLD.Required = False
            FLD.ValidationRule = ""
            FLD.ValidationText = ""
        TD.Fields.Append FLD
        ' Field PRINTED_FLG
        Set FLD = TD.CreateField("PRINTED_FLG", 1, 1)
            FLD.Attributes = 1
            FLD.DefaultValue = ""
            FLD.OrdinalPosition = 25
            FLD.Required = False
            FLD.ValidationRule = ""
            FLD.ValidationText = ""
        TD.Fields.Append FLD
        ' Index userid
        Set IDX = TD.CreateIndex("userid")
            IDX.Clustered = False
            IDX.Primary = True
            IDX.Unique = True
            IDX.Required = True
            IDX.IgnoreNulls = False
            ' Field USERID
            Set FLD = IDX.CreateField("USERID")
                FLD.Attributes = 0
            IDX.Fields.Append FLD
        TD.Indexes.Append IDX
    DB.TableDefs.Append TD
End Sub

Sub CreateTD_villagedb(DB As Database)
    Dim TD As TableDef
    Dim FLD As Field
    Dim IDX As Index

    Set TD = DB.CreateTableDef("villagedb")
        TD.Attributes = 0
        TD.Connect = ""
        TD.SourceTableName = ""
        TD.ValidationRule = ""
        TD.ValidationText = ""
        ' Field ID
        Set FLD = TD.CreateField("ID", 3, 2)
            FLD.Attributes = 1
            FLD.DefaultValue = "0"
            FLD.OrdinalPosition = 1
            FLD.Required = False
            FLD.ValidationRule = ""
            FLD.ValidationText = ""
        TD.Fields.Append FLD
        ' Field VILLAGEDB
        Set FLD = TD.CreateField("VILLAGEDB", 10, 8)
            FLD.AllowZeroLength = False
            FLD.Attributes = 2
            FLD.DefaultValue = ""
            FLD.OrdinalPosition = 2
            FLD.Required = False
            FLD.ValidationRule = ""
            FLD.ValidationText = ""
        TD.Fields.Append FLD
        ' Field VILLAGENAME
        Set FLD = TD.CreateField("VILLAGENAME", 10, 10)
            FLD.AllowZeroLength = False
            FLD.Attributes = 2
            FLD.DefaultValue = ""
            FLD.OrdinalPosition = 3
            FLD.Required = False
            FLD.ValidationRule = ""
            FLD.ValidationText = ""
        TD.Fields.Append FLD
        ' Field VILLAGEPAGE
        Set FLD = TD.CreateField("VILLAGEPAGE", 3, 2)
            FLD.Attributes = 1
            FLD.DefaultValue = "0"
            FLD.OrdinalPosition = 4
            FLD.Required = False
            FLD.ValidationRule = ""
            FLD.ValidationText = ""
        TD.Fields.Append FLD
        ' Field COUNTRYID
        Set FLD = TD.CreateField("COUNTRYID", 2, 1)
            FLD.Attributes = 1
            FLD.DefaultValue = "0"
            FLD.OrdinalPosition = 5
            FLD.Required = True
            FLD.ValidationRule = ""
            FLD.ValidationText = ""
        TD.Fields.Append FLD
        ' Field VILLAGEID
        Set FLD = TD.CreateField("VILLAGEID", 2, 1)
            FLD.Attributes = 1
            FLD.DefaultValue = "0"
            FLD.OrdinalPosition = 6
            FLD.Required = False
            FLD.ValidationRule = ""
            FLD.ValidationText = ""
        TD.Fields.Append FLD
        ' Field VILLAGESIZE
        Set FLD = TD.CreateField("VILLAGESIZE", 3, 2)
            FLD.Attributes = 1
            FLD.DefaultValue = "0"
            FLD.OrdinalPosition = 7
            FLD.Required = False
            FLD.ValidationRule = ""
            FLD.ValidationText = ""
        TD.Fields.Append FLD
        ' Index ID
        Set IDX = TD.CreateIndex("ID")
            IDX.Clustered = False
            IDX.Primary = True
            IDX.Unique = True
            IDX.Required = True
            IDX.IgnoreNulls = False
            ' Field ID
            Set FLD = IDX.CreateField("ID")
                FLD.Attributes = 0
            IDX.Fields.Append FLD
        TD.Indexes.Append IDX
        ' Index VILLAGEID
        Set IDX = TD.CreateIndex("VILLAGEID")
            IDX.Clustered = False
            IDX.Primary = False
            IDX.Unique = False
            IDX.Required = False
            IDX.IgnoreNulls = False
            ' Field VILLAGEID
            Set FLD = IDX.CreateField("VILLAGEID")
                FLD.Attributes = 0
            IDX.Fields.Append FLD
        TD.Indexes.Append IDX
    DB.TableDefs.Append TD
End Sub