整个的组件我给起了一个名字，叫”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

 

这是本组件目前所提供的三个基本方法。

    本文转自无心之柳.NET博客园博客，原文链接：http://www.cnblogs.com/9527/archive/2004/12/23/80889.html，如需转载请自行联系原作者