don’t repeat yourself


把各个界面的3个按钮事件统一到frame基类的3个按钮事件，代码一下子精简了很多
不过为了实现差异，又要提供各自的事件函数。。。。。另外，万一结构要有大的改动，无法统一了，可能还是要回到现在的方式分别改。。。。。。


是啊，每个界面的load函数都是类似的。。。。所以打算统一
信息作者: haitao (hash:1946158090)
发表时间: 2007-03-22 13:53:20
阅读次数: 10
信息内容:

procedure TFormYYYYYY.BBtnXxxxLoad(Sender: TObject);
begin
with self.FdbgXxxx do
Begin
//if Qtb.IsEmpty then //Qtb就是内存表
if not self.BaseLoad then
exit;

before_set_text;

set_text(self.EXxxxid ,Qtb,'Xxxxid');
set_text(self.EXxxxname ,Qtb,'name');
set_text(self.EXxxxzonecode ,Qtb,'zonecode');
set_text(self.EXxxxphone ,Qtb,'phone');
set_text(self.EXxxxaddress ,Qtb,'address');
set_text(self.EXxxxwww ,Qtb,'www');
set_text(self.EXxxxlogo ,Qtb,'logoaddr');
set_text(self.EXxxxdatecreate ,Qtb,'builddate');
set_text(self.EXxxxdatemodify ,Qtb,'modifydate');
set_text(self.MXxxxinfo ,Qtb,'info');

after_set_text;

//其他字段特殊的代码处理

end;
end;

希望统一为：

procedure TFormYYYYYY.BBtnXxxxLoad(Sender: TObject);
begin
self.FdbgXxxx.dofield.Load;

//其他字段特殊的代码处理
end;