unit Unit10;

interface
uses ADODB,classes,DB,variants,dialogs;

type
TPermission=class(TADODataSet)
  constructor create(owner:TComponent);override;
  public
  security_key_id:TIntegerField;
  id:TIntegerField;
  group_id:TIntegerField;
  access_level:TIntegerField;


end;

procedure test;
implementation
constructor TPermission.create(owner: TComponent);
begin
  inherited Create(owner);
  //创建字段
  self.CommandType:=cmdTable;
  CommandText:='permissions';


  security_key_id:=TIntegerField.Create(self);
  security_key_id.FieldName:='security_key_id';
  id:=TIntegerField.Create(self);
  id.fieldName:='id' ;

  group_id:=TIntegerField.Create(self);
  group_id.fieldName:='group_id';
  access_level:=TIntegerField.create(self);
  access_level.fieldName:='access_level';


//设置dataset，同时会将字段加入到fields集合
  security_key_id.DataSet:=self;
  id.DataSet:=self;
  group_id.DataSet:=self;
  access_level.dataset:=self;


end;

procedure test;
var
  p:TPermission;

begin
  p:=TPermission.Create(nil);
  p.ConnectionString:='.................................................';
  p.Active:=true;
  while not p.eof do begin

    showmessage(vartostr(p.security_key_id.Value));
    p.Next;
  end;
end;
end.

其实，如果delphi的index 属性支持字符串的话，可以定义出更高效的类，yy的

TPermission=class(TADODataSet)
 published
 property security_key_id:TField index 'security_key_id' read fieldByname;
 property group_id:TField index 'group_id' read fieldbyname;
 property id:TField:TField index 'id' read fieldbyname
 property access_level:TField index 'id' read fieldbyname


end;

一句话，还真不错，有很多vb.net的语法，但又有些不同，比方说 过程无需带(),写了一段调用adodb的脚本，跑起来速度不赖，同vbscript差不多。

接下去，测试了字符串连接，类似

s=s & rs.fields("field").value & "\r\n" ’后面这个\r\n应该不是vb的特征

发现速度下来了，可见字符串处理效率不高，但想到其可以调用delphi 的vcl库，试着想使用vcl的字符串类，如TStringList，发现运行到add就卡壳

imports classes 'delphi classes 单元

dim s as TStringList

s=new TStringList

s.Add("test")

不支持的特色

1. is 操作符 typeof c is integer

2. 不能在定义时创建新对象，如dim c as new MyObject

javascript

1. 注意单元引用，如 using a in './units/a.pp'

 bug

var a = new Array(3)
a[2] = 12;
//println a;
//println a.length;
a[5] = 36;
//println a;
//println a.length;
var d = a.concat([1,2,3]);
println d.length;
println d;

这段脚本居然丢失 a[5].  结果为,,12,,,1,2,3 ，长度为8,显然,contact冲掉了最后一个元素

如果 写

a=[1,2,3];

a.conact([4,5,6]); //不认这个conact

看来是不能用了

{CommandButton label="test"}，你可以看成<CommandButton label="test"/>或是

CommandButton but=new CommandButton{label="test"}

当然这句更等效的是

{let but:CommandButton={CommandButton label="test"}}

n多的大括号:(

这东西的许可在这里，http://www.curl.com/products_licensing.php 大致看了一下，这公司大有酒香不怕巷子深的意味。

首先，基本使用是免费的，不过对照 pro的许可，会发现一些功能缺失（而且对是针对企业级应用的，像https,encryption,concurrency,所以免费使用的许可也只能说是玩具）

就算是免费的，在web上部署，你也需要申请许可，当然本地和localhost不需要

ide 的pro版本有60天的免费使用期，要收费的，不过你可以免费使用非pro版本

6.0是传统的ria应用，7.0 代号nitro ，选air ，加入了离线内容

对比一下,siliverlight ，走开放路线，基本可能达到免费,flex 也是走开放路线，基本可以达到免费的程度。而你这个样子，凭什么啊？

@check_login
def update_author(request):
  for blog in Blog.all():
  blog.user=users.get_current_user()
  blog.put()
 return HttpResponse("Update author finish!")

结果如何，超时错误，然后换成这样

@check_login
def update_author(request):
 user=users.get_current_user()
 for blog in Blog.all():
  blog.user=user
  blog.put()
 return HttpResponse("Update author finish!")

pass

最近的blog都没有技术含量，呵呵 ，datastore没有一种批量更新的方法吗？ 我现在没有发现，类似 update Blog set user=:1，倒是删除有针对集合的操作  ,另外，像这样的场合，使用事务处理应该会快些吧

这东西一开始用app engine自身的RequestHandler机制写的，我写了一个简单的mvc类来简化开发，记录在这里，备忘吧

main.py

 application=webapp.WSGIApplication(
  [   ('/(?P<app>\w+?)/(?P<controller>\w+?)(?:/(?P<action>\w+?))?(?:/(?P<id>\d+?))?(?:\?\w*)?',contrib.mvc.DispatchRequestHandler)

class DispatchRequestHandler(webapp.RequestHandler):
    def __init__(self):
        super(DispatchRequestHandler,self).__init__()
    def dispatch(self,app,controller,action=None,id=None):
        module="%s.%s_controller" %(app.lower(),controller.lower())
        m = __import__(module)
        for i in module.split(".")[1:]:
            m = getattr(m, i)
        path=os.path.dirname(m.__file__)
        Controller=getattr(m,"%sController" % controller.capitalize())
        c=Controller(self,path)
        if action is None:
            action='index'
        func=getattr(c,action)
        if id is None:
            func()
        else:
            func(id)
    def get(self,app,controller,action=None,id=None):
        self.dispatch(app,controller,action,id)
    def post(self,app,controller,action=None,id=None):
        self.dispatch(app,controller,action,id)

Controller基类

class Controller(object):
    def __init__(self,handler,path):

        self.handler=handler
        self.request=handler.request
        self.response=handler.response
        self.path=path
        self.flush=Flush()
    @property
    def method(self):
        return self.request.method
    def redirect(self,uri,t=False):
        self.handler.redirect(uri,t)

 
    def error(self,code):
        self.response.set_status(code)
        self.response.clear()

    def render_to_response(self,file,values=None):
        path=os.path.join(self.path,"templates",file)

        self.response.out.write(template.render(path,values))
    #new，GET请求，返回一个用于创建资源的表单
    def new(self):
        pass
    #show，处理针对单个资源的GET请求
    def show(self,id):
        pass
    #create，处理POST请求，并将创建一个新资源
    def create(self):
        pass
    #edit，GET请求，返回一个用于更新资源的表单
    def edit(self,id):
        pass
    #update，处理PUT请求，并更新指定的资源
    def index(self):
        pass
    #update，处理PUT请求，并更新指定的资源
    def update(self,id):
        pass
    #destroy，处理DELETE请求，销毁一个资源
    def destroy(self,id):
        pass

这个方法会导致一些错误,因为 data是个字符串的词典,因此,这个方法会返回bool的False(当data中没有is_test时)或字符串的'False'(当存在,但值为False时)
第一个是hash 值的计算,一开始的bool类型的False同unicode字符串的False是不同 的. 这样会导致当不核选时需要提交两次
其次是当render的时候,可以查看CheckboxInput的render方法,里面有个check_test,默认被设置为bool,这样,当调用bool('False')时,返回的就是True了

所以,修改上面的方法(或继承新建一个Checkbox2Input),让其根据实际情况返回bool值就ok了
比方说(这只是个quick and dirty的解决方法,英语好的可以提交bug,让django团队来处理这个问题)

由于存在这两个问题,因此光传入一个check_test lambda 还不足以解决问题,我一开始就以为这个能解决,呵呵

from django.core.serializers import serialize
from django.db.models.query import QuerySet
from django.http import HttpResponse
from django.utils import simplejson

class JsonResponse(HttpResponse):
    def __init__(self, object):
        if isinstance(object, QuerySet):
            content = serialize('json', object)
        else:
            content = simplejson.dumps(object)
        super(JsonResponse, self).__init__(content, mimetype='application/json') 

asp.net mvc 的view引擎提供对asp.net page,usercontrol 的的支持. 你还可以创建自己的view引擎,过程非常简单1. 实现IView接口,比方说
public class NVelocityView : IView
{
    public string ViewName
    {
        get;
        set;
    }
    public string MasterName
    {
        get;
        set;
    }
    public object ViewData
    {
        get;
        set;
    }
   
    public void RenderView(ViewContext viewContext)
    {
        //用nvelocity解析模板,这个任务留给大家完成
        string context = string.Empty;
        context = "解析后的内容";

        viewContext.HttpContext.Response.Write(context);

    }

}

2. 实现IViewFactory接口
public class NVelocityViewFactory : IViewFactory
{
   

    public IView CreateView(ControllerContext controllerContext, string viewName, string masterName, object viewData)
    {

        return  new NVelocityView { ViewName = viewName ,MasterName=masterName,ViewData=viewData};
       
      
    }

 
}
3. 继承Controller类,在类构造中设置ViewFactory参数
public class HomeController : Controller
{
    public HomeController()
    {
        ViewFactory = new NVelocityViewFactory();
    }
    [ControllerAction]
    public void Index()
    {
    }
}

依赖注入

4. 实现 IControllerFactory
在这里进行依赖注入,比方说调用
public class SpringControlFactory : IControllerFactory
{

 
    public IController CreateController(RequestContext context, System.Type controllerType)
    {
        string requiredString = (string)context.RouteData.Values["controller"];
        return (IController)ContextRegistry.GetContext()[requiredString];

    }

}
5. 设置controlerfactory
代码放到global.asax 的Application_Start中
 
ControllerBuilder.Current.SetDefaultControllerFactory( typeof(SpringControlFactory));
更新 ControllerBuilder提供了SetControllerFactory和SetDefaultControllerFactory两个方法, 通常,SetControllerFactory是针对特定的controller类型的, 在这个场景,你想对所有的controller子类生效,就用 SetDefaultControllerFactory

通过依赖注入,我们可以在外部实现修改ViewFactory的功能
<object id="myViewFactory" type="xxx.NVelocityViewFactory,xxx"/>
<object id='Home' type="xxx.HomeController,xxx" singleton="false">
<property name="ViewFactory" ref="myViewFactory"/>
</object>

IControllerFactory 非常重要, 这里,你可以使用dlr ,整合ironpython和ironruby,因为你已经得到controller名,接下来你可以从文件系统中读取对应的ironpython或ironruby 文件,编译和执行它,返回给asp.net mvc
这个链接 描述了如何host ironruby 2.0 r6
http://blogs.msdn.com/rdawson/archive/2007/11/29/hosting-ironpython-2-0-alpha-6-via-the-dlr.aspx
而codeplex 上有个nwsgi 项目, 你可以参考如何使用ironpython来达成在asp.net实现一个wsgi实现的


大家可以看到,继承自己的view引擎和ioc功能和整合动态语言是非常简单的, asp.net mvc 只是提供了一个简单的层次.对于类似castle 项目,两者更多的是互补而不是竞争.比方说castle的route功能不强 ,orm 不足,更多的是缺少社区的关注.  利用asp.net mvc ,castle 可以更多的将眼光关注到具体的领域问题上.

private void NewRowCreated(DataRow row)
{
    if (this.onTableNewRowDelegate != null)
    {
        DataTableNewRowEventArgs e = new DataTableNewRowEventArgs(row);
        this.OnTableNewRow(e);
    }
}

protected virtual void OnTableNewRow(DataTableNewRowEventArgs e)
{
    if (this.onTableNewRowDelegate != null)
    {
        Bid.Trace("<ds.DataTable.OnTableNewRow|INFO> %d#\n", this.ObjectID);
        this.onTableNewRowDelegate(this, e);
    }
}

大家可以看到,NewRowCreated中在检查onTableNewRowDelegate了,如果这个没有设置,则OnTableNewRow是不会被触发的,因此, 比方说你想要一个自定义的事件,比方说 NewEntity ,你无法在OnTableNewRow来挂接它. 你要先挂接TableNewRow事件,然后这个OnTableNewRow才能生效.这不是开玩笑吗?
      //protected override void OnTableNewRow(DataTableNewRowEventArgs e)
        //{
        //    base.OnTableNewRow(e);
        //    if (this.NewEntity != null)
        //        this.NewEntity(this, new NewEntityEventArgs<T>((T)e.Row));
        //}

首先，在settings.py中增加如下变量
EMAIL_HOST="" #你的smtp 服务器ip 地址或名称
EMAIL_PORT=None # 不处理就用Noe，否则指明port
EMAIL_HOST_USER="你的用户名" # 现在大部分邮箱都要求你输入 邮箱的全名
EMAIL_HOST_PASSWORD="" # 你的口令
EMAIL_USE_TLS=None # 不处理就用None

然后就很简单的调用
from django.core.mail import send_mail
# help(send_mail)
send_mail ('subject','message','webmaster@easynew.com.cn',['jjx@easynew.com.cn'])

这个函数为什么会被deprecated ，其实就是有点magic ，屏蔽了上面这些设置，所以，要明白点，就要用
connection = SMTPConnection(host,port,username,password,use_tls,fail_silently)
EmailMessage(subject, message, from_email, recipient_list, connection=connection).send()

其实是一样的，自己最后也会搞这样的函数，还不如直接用省事

注:
tls - Transport Layer Security 传输层安全
某些老旧的邮件服务器不认得TLS 协议，因此当你尝试加密连接时，握手会话失败

fail_silently 失败时就跳过，可查看SmtpConnection的_send函数
try:
    #send mail
except:
    if not self.fail_silentily:
        raise
    return false
return true     

@login_required
def change_password(request):
 return HttpResponse('change_password)

1. 该方法从settings中获取LOGIN_URL设置

在settings.py中增加LOGIN_URL

LOGIN_URL='/accounts/login/'

2. 该方法会传递一个添加一个next 到querystring中，这样，你可以在你的自己的login 模板中获取这个这个变量，以便在登录后重新回到登录前页面(django自带的模板会帮你处理这个，因为我使用mako 为django的模板，所以不得不自己动手处理这个)

在拥抱动态语言后的今天，我决定重新启动activecontent的开发。我相信这段时间的思考足以让新的系统更加成熟和人性化，而python/django 也给了我足够发挥的天空。

我们将打造一个 web 2.0时代的内容系统，解决您日益复杂的建站和维护问题。如果您有兴趣，欢迎参与我们的开发过程，您的意见和参与将是我们宝贵的财富。

联系我们 :

gtalk/mail jiangjianxiao@gmail.com
msn  jiangjianxiao@msn.com

注 activecontent 是暂用名

First Look at IronRuby
http://weblogs.asp.net/scottgu/archive/2007/07/23/first-look-at-ironruby.aspx

里面的下载地址访问不了,不过可以下载下面这个

ironruby on mono

http://sparcs.kaist.ac.kr/~tinuviel/download/IronRuby/

刚才试了rbx 控制台,完成度不高 ,连hash都不支持,不过将代码放在rb文件中,用 rbx test.rb倒是正常的

这段代码通不过

dict=Hash.new(0)

dict['a']
puts dict['a']
dict['b']='this is rb'

puts dict['b']

这段代码也通不过

line="Microsoft Visual basic"

if line=~/basic/
  puts "has  basic"
end

同样,这两行也通不过

puts line.sub(/basic/,"test")
puts line.gsub(/basic/, "foxpro")

 区间不行(Range类型实际上是被支持的,但each 没有提供)

('a'..'e').each{  |char| print char}

没有upto方法
3.upto(6) { |i| print i}

inspect/to_s  todo

song=Song.new("bicyclops","Fleck",260)
print song.inspect
print song.to_s

 attr_reader 也是todo

 一些重要的方法没有提供,如 Object.methods,Object.private_methods,Object.protected_methods,Object.publish_methods,Module.instance_methods等这些与自省有关的重要方法

不想再试下去了

有两个决策会影响你的应用程序结构和编码

首先,你是否打算支持remoting或是webservice ,其次,你是否打算支持批量更新. 其中第一点尤为重要.

支持remoting/webservice的应用结构

项目通常划分为

myapplication.services  提供远程服务的调用
myapplication.models 依赖myapplication.services
myapplication.views 依赖myapplication.models
myapplication 启动应用

不支持remoting/webservice应用结构

myapplication.models  直接使用datacontext
myapplication.views 依赖myapplication.models
myapplication 启动应用

myapplication.models 通常有包括linq to sql 的数据类并分离类 ,所有的业务逻辑将在分离类中,并使用ddd 开发,或许你的应用程序现在不打算支持remoting/webservice,但需要考虑以后支持remoting/webservice,有以下几点建议

1. 在view层,确保只使用models 层提供的方法
2. 在view层,最好不使用关系
3.总是使用ToList,ToArray等返回的结果集

当使用关系导航时,虽然简洁,但依赖datacontext,因此在远程环境中windows forms比web环境更为糟糕, 因为web环境通常在一台机器上,还有个request范围可用 .

DataContext的使用建议

无论是否打算在remoting/webservice环境,保持在一次请求中使用和放弃DataContext是一个好的想法,如果你不想这样做,linq to sql 固有的问题也不会让使用一个长久的DataContext.比方说下面的代码(特别的,使用了自定义的关键字值

Department d=new Department();

d.Id="61";

db.Departments.Add(d);

db.SubmitChanges();

db.Departments.Remove(d);

db.SubmitChanges();

Department d2=new Department();

d2.Id="61";

db.Departments.Add(d2);

db.SubmitChanges() ;  //这里出现重复的关键字错误,注意这个错误不是由数据库 触发的,因为数据库中本来就已经把早先的61给删除了,这应该是datacontext内部的identity map 出错了

可以学习spring/spring.net 的template机制,创建一个DataContextTemplate类 , 让service引用这个类,如果不考虑remoting/webservice 也可以在entity基类 中并入DataContextTemplate的方法,前者的分离度会更高些,但总是需要确保entity类不会直接访问dataContext

下面是DataContextTemplate的接口设计
public delegate void DoInDataContext(DataContext db);
public delegate object DoInDataContextWithResult(DataContext db);

public interface DataContextTemplate{
    void  Find(DoInDataContext doInDataContext);
    IList<TEntity> GetObjects<TEntity>(DoInDataContextWithResult callback) where TEntity : class;
    TEntity GetObject<TEntity>(DoInDataContextWithResult callback) where TEntity : class;
    IList<TEntity> FindAll<TEntity>() where TEntity : class ;
    IList<TEntity> FindByLimit<TEntity>(int limit) where TEntity:class;
    TEntity FindById<TEntity>(System.Linq.Expressions.Expression<Func<TEntity, bool>> predicate) where TEntity:class;
    IList<TEntity> FindRelationById<TEntity>(System.Linq.Expressions.Expression<Func<TEntity, bool>> predicate) where TEntity:class;
    IList<TEntity> FindByCondition<TEntity>(string condition,string ob,params object[] conditionParams) where TEntity:class;
    void Execute(DoInDataContext  doInDataContext);
    void SubmitChanges(ChangeSet changeSet);
    ChangeSet GetChangeSet(Type type);

}

models的设计

下面总结一些共性的东西
1. parital 类应该实现IDataErrorInfo接口,建议将其实现为基类
2. 使用OnxxxChanging或是OnxxxChanged partial 方法进行数据验证
3. 使用OnxxxChanged partial method 进行关联更新
3. 如果不考虑远程,可在entity的基础类 中实现一个DataContextTemplate 的变量,如db,这样,子类就可以直接调用它
4. 以下是一些公共方法的签名,这些方法可以简单的借助DataContextTemplate来实现
FindAll 返回全部记录
FindById 返回该id的记录
FindByCondition 执行动态查询
FindByLimit 执行top查询
FindByRelation 执行关系端查询,Relation可用具体的关系端名来替代

范型方法例子(todo)

关系

在linq to sql 中,使用EntityRef,EntitySet来维系关系,这是因为关系端的获取可能有left outer join和lazy load等优化方式,当你放弃linq to sql的关系后 ,意味着你自己需要用传统的类型来做关系的管理.  其实,Table<Enttiy>.Attach适合远程这类环境,但 在实际的编程中,要么用要么不用,否则,编码没有一致性,会导致一些bug和以后的维护问题

 创建changeset

当使用批量更新并在每次需求间请求和放弃DataContext时,客户端维护自身的ChangeSet就相当重要,ChangeSet保存了新增,修改和删除的对象,在合适的时候,比方说用户点击保存时提交.
当新建,改变(可跟踪bindingSource的ListChanged事件),删除时,将改变的对象写入changeset

更新时,从changeset 取出 对象进行更新

更新顺序

同数据集一样,依次处理插入,更新,删除 ,并处理好关系端,不要过分依赖submitchanges的智能判断

适应ChangeSet的模型方法

master-detail记录
当使用批量更新时,master并没有保存到数据库中, 但detail 通常需要 master 的主键值

if(String.IsNullOrEmpty(error))
    if( _errors.ContainsKey(propertyName))
        _errors.Remove(propertyName);
else
     _errors[propertyName]=error;

如果在vs.net 中,这段代码被自动格式化成

if(String.IsNullOrEmpty(error))
    if( _errors.ContainsKey(propertyName))
        _errors.Remove(propertyName);
    else
         _errors[propertyName]=error;

这样这个低级错误就很容易避免

本意应该是这个样子

if(String.IsNullOrEmpty(error)){
    if( _errors.ContainsKey(propertyName))
        _errors.Remove(propertyName);

}
else
     _errors[propertyName]=error;

另外,发现在entity中实现IDataErrorInfo ,当将列表绑定 到窗体上时,IDataErrorInfo.this方法被系统调用的次数好像过了头, 这是否同我现在所采用的界面模式有关(比方说bindingsource 同时绑定到一个grid view和一个detail view)上,以后再深究他

今天早晨,在 june 2007 ctp 上的测试让我大吃一惊, 我有一个大约7万多条的报价单明细表 ,这个表我用ibatis 返回entity大约要18秒钟,用dataset大概是要4秒 (早期的测试)

今天用msbuild 在 june 2007 ctp的测试,

var list=nmis.QuotationLines.ToList() ;

居然不到 2秒, 然后用直接 返回DataTable作比较,这次分别查询20次的累计值

linq to sql : 36583   还用console输出日志

datatable : 63738

以上数据的数字大小没有意义,仅两者的比较有意义, 是不是数据量越小linq to sql 的性能就不太容易表现呢 ?(依据我早期的测试),接下来 我又测试了6000多条 的报价单记录. 在这次测试中,我关闭了linq to sql 的log输出,并 用 具体的字段代替dattable测试查询中的*

liqn to sql : 2850

datatable: 3219

结论是不是很明显了 june ctp 版本的性能提升了

当然,如果现在要作出 linq to sql  性能好于 datatable(dataset) 的结论现在还是有些武断,它需要更多的测试以及不同的应用场景,希望大家也能在自己的环境中测试以下.

btw:

1. 项目是手工创建,用msbuild编译的,因为目前没有适合这个版本的vs .net ,编译为debug版本

2. 报价单/报价单_明细的数据来自实际的业务系统, 报价单有20个字段,共计6772条,报价单_明细有 25个字段,76606条记录

3. 测试方式很简单,linq to sql 简单用ToList返回,datatable测试简单的使用select ... from ...查询