开发手记（六）——共享软件注册程序编写实例(1)[3]

        Set tdf = db.CreateTableDef("***")

        Set fld = tdf.CreateField("***", dbInteger)

        tdf.Fields.Append fld

        db.TableDefs.Append tdf

        Set db = ws.OpenDatabase(sPath & "\***.mdb")

        Set rst = db.OpenRecordset("***")

        rst.AddNew

        rst.Fields("***") = 0

        rst.Update

        rst.Close

        db.Close

        ws.Close

        dbEncrypt.dbEncrypt (sPath & "\***.mdb") '加密数据库

        'SetAttr sPath & "\***.mdb", vbHidden '更改数据库的属性,当数据库设置为隐藏DIR找不到此文件，因此没有通用性，vbsystem数据库设置为系统文件时因win2k中不存在系统文件属性文件找不到，所以也没用通用性。

        Name sPath & "\***.mdb" As sPath & "\***.**" '重命名数据库

        register.Show

    Else