整个的组件我给起了一个名字,叫”aurora”金山词霸中的解释是“黎明的女神, 极光”
使用方法:
Step 1:
设计数据库(现在仅支持Access)
Step 2:
准备好 映射文件,和实体文件,详细的方法请参阅上一文(正在开发相关自动生成工具)
例:
class testclass
private s_id
private s_name
private s_article
private s_addtime
Public Property Let id(value)
s_id=value
End Property
Public Property Get id
id=s_id
End Property
Public Property Let name(value)
s_name=value
End Property
Public Property Get name
Name=s_name
End Property
public property get article
article=s_article
end property
public property let article(value)
s_article=value
end property
public property get addtime
addtime=s_addtime
end property
public property let addtime(value)
s_addtime=value
end property
End class
Step 3:
编写功能代码
‘初始化
Set dp=server.createobject(“aurora.dataparse”)’创建对象
Dp.configfile=server.mappath("aurora.config")’指定配置文件
Dp.init() ‘初始化
‘插入操作
Set tc=new testclass ‘创建实体对象
Tc.id=1 ‘在配置文件已经指定id为关键字段,所以此外指定只对update ,Delete方法有效,所以在插入方法如果数据库里为自动编号就不用指定
tc.name="name"
tc.article="aritcle"
tc.addtime=now()
dp.add(tc)
set tc=nothing
‘更新操作
Set tc=new testclass ‘创建实体对象
Tc.id=1 ‘指定要更新的记录ID
tc.name="name 1"
tc.article="aritcle"1"
tc.addtime=now()
dp.update(tc)
Set tc=nothing
这里如果 name article addtime 如果没有被赋值,则在更新后保持原值
Tc.name=”” 则插入一个空值
‘删除操作
Set tc=new testclass ‘创建实体对象
Tc.id=1 ‘指定要删除的ID 只需要指定关键字段就可以了
Dp.delete(tc)
Set tc=nohting
这是本组件目前所提供的三个基本方法。