Set db = CreateDatabase(App.Path + "\shujuzunku", dbLangChineseSimplified, dbEncrypt)
SQL = "create table[tuser]([tname]text(20),[tpassword] text(20))"
db.Execute SQL
SQL = "create table [shujukbb]([bianhao]text(10),[mingcheng]text(50),[shuliang]int,[danjia]float,[congruriqi]text(14),[jingbanren]text(16),[beizhu]text(100))"
db.Execute SQL
SQL = "create table [chushou]([bianhao]text(10),[mingcheng]text(50),[shuliang]text(50),[danjia]text(50),[chushouriqi]text(14),[jingbanren]text(16),[beizhu]text(100))"
db.Execute SQL
SQL = "create table [chuzu]([bianhao]text(10),[mingcheng]text(50),[shuliang]text(50),[kehuname]text(16),[yajing]text(50),[zujing]text(50),[chuzuriqi]text(14),[jingbanren]text(16),[beizhu]text(100))"
db.Execute SQL
SQL = "create table [yejicha]([jiankuri]text(12),[kucongshu]text(50),[kongcongjia]text(50),[chushoushu]text(50),[chushoujia]text(50),[chuzushouru]text(50))"
db.Execute SQL
Set tb = db.OpenRecordset("yejicha", dbOpenDynaset)
mhp = Date
tb.AddNew
tb.Fields("jiankuri") = mhp
tb.Fields("kucongshu") = "0"
tb.Fields("kongcongjia") = "0"
tb.Fields("chushoushu") = "0"
tb.Fields("chushoujia") = "0"
tb.Fields("chuzushouru") = "0"
tb.Update
Set ttable = db.OpenRecordset("tuser", dbOpenDynaset) '创建数据库和表
ttable.AddNew '向表中加入系统默认的用户名和密码
ttable.Fields("tname") = "系统管理员"
ttable.Fields("tpassword") = "0"
ttable.Update
Data1.Refresh
请大家帮帮忙了