createdb.bas

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

Attribute VB_Name = "Module_CreateDB"


Sub CreateDB()
    Dim WS As Workspace
    Dim DB As Database

    Set WS = DBEngine.Workspaces(0)
    Set DB = WS.CreateDatabase(App.Path & "\" & "Meter.mdb", dbLangGeneral)

    CreateTD_countrydb DB
    CreateTD_countydb DB
    CreateTD_maindb DB
    CreateTD_patchdb DB
    CreateTD_pricedb DB
    CreateTD_user0001 DB
    CreateTD_villagedb DB
    DB.Close
End Sub

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

    Set TD = DB.CreateTableDef("countrydb")
        TD.Attributes = 0
        TD.Connect = ""
        TD.SourceTableName = ""
        TD.ValidationRule = ""
        TD.ValidationText = ""
        ' Field COUNTRYID
        Set FLD = TD.CreateField("COUNTRYID", 2, 1)
            FLD.Attributes = 1
            FLD.DefaultValue = "0"
            FLD.OrdinalPosition = 1
            FLD.Required = False
            FLD.ValidationRule = ""
            FLD.ValidationText = ""
        TD.Fields.Append FLD
        ' Field COUNTRYNAME
        Set FLD = TD.CreateField("COUNTRYNAME", 10, 10)
            FLD.AllowZeroLength = False
            FLD.Attributes = 2
            FLD.DefaultValue = ""
            FLD.OrdinalPosition = 2
            FLD.Required = False
            FLD.ValidationRule = ""
            FLD.ValidationText = ""
        TD.Fields.Append FLD
        ' Index COUNTRYID
        Set IDX = TD.CreateIndex("COUNTRYID")
            IDX.Clustered = False
            IDX.Primary = True
            IDX.Unique = True
            IDX.Required = True
            IDX.IgnoreNulls = False
            ' Field COUNTRYID
            Set FLD = IDX.CreateField("COUNTRYID")
                FLD.Attributes = 0
            IDX.Fields.Append FLD
            'sele * from fiels
        TD.Indexes.Append IDX
    DB.TableDefs.Append TD
End Sub

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

    Set TD = DB.CreateTableDef("countydb")
        TD.Attributes = 0
        TD.Connect = ""
        TD.SourceTableName = ""
        TD.ValidationRule = ""
        TD.ValidationText = ""
        ' Field COUNTYNAME
        Set FLD = TD.CreateField("COUNTYNAME", 10, 12)
            FLD.AllowZeroLength = False
            FLD.Attributes = 2
            FLD.DefaultValue = ""
            FLD.OrdinalPosition = 1
            FLD.Required = False
            FLD.ValidationRule = ""
            FLD.ValidationText = ""
        TD.Fields.Append FLD
    DB.TableDefs.Append TD
End Sub

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

    Set TD = DB.CreateTableDef("maindb")
        TD.Attributes = 0
        TD.Connect = ""
        TD.SourceTableName = ""
        TD.ValidationRule = ""
        TD.ValidationText = ""
        ' Field COUNTRYID
        Set FLD = TD.CreateField("COUNTRYID", 2, 1)
            FLD.Attributes = 1
            FLD.DefaultValue = "0"
            FLD.OrdinalPosition = 1
            FLD.Required = False
            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 = 2
            FLD.Required = True
            FLD.ValidationRule = ""
            FLD.ValidationText = ""
        TD.Fields.Append FLD
        ' Field USERID
        Set FLD = TD.CreateField("USERID", 3, 2)
            FLD.Attributes = 1
            FLD.DefaultValue = "0"
            FLD.OrdinalPosition = 3
            FLD.Required = True
            FLD.ValidationRule = ""
            FLD.ValidationText = ""
        TD.Fields.Append FLD
        ' Field SHORTNAME
        Set FLD = TD.CreateField("SHORTNAME", 10, 9)
            FLD.AllowZeroLength = False
            FLD.Attributes = 2
            FLD.DefaultValue = ""
            FLD.OrdinalPosition = 4
            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 = 5
            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 = 6
            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 = "0"
            FLD.OrdinalPosition = 7
            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 = 8
            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 = 9
            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 = 10
            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 = 11
            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 = 12
            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 = 13
            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 = 14
            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 = 15
            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 = 16
            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 = 17
            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 = 18
            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 = 19
            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 = 20
            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 = 21
            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 = 22
            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 = 23
            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 = 24
            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 = 25
            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 = 26
            FLD.Required = False
            FLD.ValidationRule = ""
            FLD.ValidationText = ""
        TD.Fields.Append FLD
        ' Index COUNTRYID
        Set IDX = TD.CreateIndex("COUNTRYID")
            IDX.Clustered = False
            IDX.Primary = False
            IDX.Unique = False
            IDX.Required = False
            IDX.IgnoreNulls = False
            ' Field COUNTRYID
            Set FLD = IDX.CreateField("COUNTRYID")
                FLD.Attributes = 0
            IDX.Fields.Append FLD
        TD.Indexes.Append IDX
        ' 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_patchdb(DB As Database)
    Dim TD As TableDef
    Dim FLD As Field
    Dim IDX As Index

    Set TD = DB.CreateTableDef("patchdb")
        TD.Attributes = 0
        TD.Connect = ""
        TD.SourceTableName = ""
        TD.ValidationRule = ""
        TD.ValidationText = ""
        ' Field VILLAGEID
        Set FLD = TD.CreateField("VILLAGEID", 3, 2)
            FLD.Attributes = 1
            FLD.DefaultValue = "0"
            FLD.OrdinalPosition = 1
            FLD.Required = True
            FLD.ValidationRule = ""
            FLD.ValidationText = ""
        TD.Fields.Append FLD
        ' Field USERID
        Set FLD = TD.CreateField("USERID", 3, 2)
            FLD.Attributes = 1
            FLD.DefaultValue = "0"
            FLD.OrdinalPosition = 2
            FLD.Required = True
            FLD.ValidationRule = ""
            FLD.ValidationText = ""
        TD.Fields.Append FLD
        ' Field PATCHBEFORE
        Set FLD = TD.CreateField("PATCHBEFORE", 4, 4)
            FLD.Attributes = 1
            FLD.DefaultValue = "0"
            FLD.OrdinalPosition = 3
            FLD.Required = False
            FLD.ValidationRule = ""
            FLD.ValidationText = ""
        TD.Fields.Append FLD
        ' Field PATCHAFTER
        Set FLD = TD.CreateField("PATCHAFTER", 4, 4)
            FLD.Attributes = 1
            FLD.DefaultValue = "0"
            FLD.OrdinalPosition = 4
            FLD.Required = False
            FLD.ValidationRule = ""
            FLD.ValidationText = ""
        TD.Fields.Append FLD
        ' Field PATCHTIME
        Set FLD = TD.CreateField("PATCHTIME", 8, 8)
            FLD.Attributes = 1
            FLD.DefaultValue = ""
            FLD.OrdinalPosition = 5
            FLD.Required = False
            FLD.ValidationRule = ""
            FLD.ValidationText = ""
        TD.Fields.Append FLD
        ' Field PATCHREASON
        Set FLD = TD.CreateField("PATCHREASON", 2, 1)
            FLD.Attributes = 1
            FLD.DefaultValue = "0"
            FLD.OrdinalPosition = 6
            FLD.Required = False
            FLD.ValidationRule = ""
            FLD.ValidationText = ""
        TD.Fields.Append FLD
        ' Field NOTIFY
        Set FLD = TD.CreateField("NOTIFY", 3, 2)
            FLD.Attributes = 1