Delphi学习心得

最新推荐文章于 2023-05-19 08:10:02 发布

原创最新推荐文章于 2023-05-19 08:10:02 发布 · 501 阅读

CC 4.0 BY-SA版权

文章标签：

我设想的代码编写习惯的分等级,等级越高越容易维护,查看,但最高级却比较难查看
等级:初级代码里面是控件名字
begin
//不好,如果修改edit1.text 名字,这里也要改
zqry1.fieldbyname('name').asstring := edit1.text;
end;

//______________________________________________________________________
等级:一级代码里面将控件名字简单分离 ,表现是在各处理处只存取一次内容
var
sName :string;
begin
sName := edt_name.text;
sName := trim(sName);

if (sName='') then
begin
showmessage('错误,名字不能为空~');
exit;
end
zqrymaster.fieldbyname('name').asstring := sName;
end;
//______________________________________________________________________
等级:二习惯将数据放如private 变量 ,单独做 load save 过程

private
FName:string;
FId:string;
procedure LoadToControl; //FName --> edt_name.text ....
procedure ControlToVar; //edt_name.text ---> FName ....
function SaveCheck:boolean;//保存前检查 ,
//当然,简单,单表,这样就可以了,否则还有许多处理
//

等级:三习惯将数据放对象里面,这个就有点变态了,不过还好,将程序分为
UI (界面 --Call BLL 访问,Var<-->control放这里 ) BLL(商业逻辑 ---Call DAl,Var<--->Db 放这里) DAL (数据访问--访问数据库)
private
FUser:TUser;

procedure FormCreate(Sender:);
begin
FUser := TUser.create;
end;

等级:四习惯用 MVC ,特别是control ,比较变态了, 有点难以理解,略