客服电话
APP下载
迪恩网络APP
随时随地掌握行业动态
官方微信
扫描二维码
关注迪恩网络微信公众号
|
本文将对Delphi中的Action进行扩充实现将权限和日志管理功能从主程序中分离。 1. 常见的方法是将权限管理和日志管理直接硬编码到过程或者对象的方法中。 例如： procedure TForm1.Button1Click(Sender: TObject); begin if isSuperUser(UserName) then begin Close; addLog(UserName,'Close'); end else showMessage('You have not this right'); end; 上面的代码将权限管理和日志管理硬编码到程序中，不利于程序的重用和扩展。 2. 下面是扩展的一个Action类Form1CloseAction,它封装了Close方法 TForm1CloseAction = class(TAction) private FOprName: string; FUserName: string; FForm: TForm1; procedure SetForm(const Value: TForm1); procedure SetOprName(const Value: string); procedure SetUserName(const Value: string); public function Execute: Boolean; override; constructor Create(AOwner:TComponent); override ; published property UserName:string read FUserName write SetUserName; property OprName:string read FOprName write SetOprName; property Form:TForm1 read FForm write SetForm; end; 在Execute方法中完成用户的逻辑业务，这样可以很好的将应用程序的水平功能和垂直功能相分离。 function TForm1CloseAction.Execute: Boolean; begin result:= inherited Execute; if haveRight(UserName,OprName ) then begin Form.Close; addLog(UserName,'Close'); end else begin showMessage('you have not this right'); end; end; 注意到Form1CloseActiony有一个Form属性作为业务逻辑对象，所以在调用Execute前要初始化 Form属性。 这样我们只要动态创建一个 TForm1CloseAction对象CloseAction 并指定Button1.Action:=CloseAction。 3. 很明显通常一个业务逻辑对象有很多方法，如果按照上一步封装为Action的话，有很多重复编码。于是我们在TForm1CloseAction 和 Tacton之间插入一个类,并为这个类引入一个新的方法InternalExecute来封装用户的业务逻辑方法，使用Execute来完成水平功能。 TForm1Action = class(TAction) private FOprName: string; FUserName: string; FForm: TForm1; procedure SetForm1(const Value: TForm1); procedure SetOprName(const Value: string); procedure SetUserName(const Value: string); protected procedure InternalExecute; virtual; abstract; public function Execute: Boolean; override; constructor Create(AOwner:TComponent) ;override ; published property UserName:string read FUserName write SetUserName; property OprName:string read FOprName write SetOprName; property Form:TForm1 read FForm write SetForm1; end; 关键的方法Execute如下实现 function TForm1Action.Execute: Boolean; begin result:= inherited Execute; if haveRight(UserName,OprName) then begin self.InternalExecute; end else begin showMessage('you have not this right '); end; addLog(UserName,'Close'); end; 这样原来的TForm1CloseAction 改为 TForm1CloseAction = class(TForm1Action) protectec procedure InternalExecute ; override ; public constructor Create(AOwner:TComponent) ;override ; end; 为简便起见我使用Form来表示业务逻辑对象，而实际的业务逻辑对象最好是于界面无关的，上述方法可以看作是MVC的子模式或实现。上面的模型还有很多可以扩展的方面，例如：将HaveRight，AddLog方法分别由权限管理类和日志管理类来实现权限信息和日志信息的持久化。这样Action就像粘合剂将业务逻辑,权限管理，日志管理整合在一起。 引用至：http://blog.csdn.net/wqsmiling/ |
2023-10-27
2022-08-15
2022-08-17
2022-09-23
2022-08-13
六六分期app的软件客服如何联系？不知道吗？加qq群【895510560】即可！标题：六六分期
今天小编告诉大家如何处理win10系统火狐flash插件总是崩溃的问题，可能很多用户都不知
今天小编告诉大家如何对win10系统删除桌面回收站图标进行设置，可能很多用户都不知道
今天小编告诉大家如何对win10系统电脑设置节能降温的设置方法，想必大家都遇到过需要
我们在使用xp系统的过程中,经常需要对xp系统无线网络安装向导设置进行设置，可能很多
今天小编告诉大家如何处理win7系统玩cf老是与主机连接不稳定的问题，可能很多用户都不
电脑对日常生活的重要性小编就不多说了，可是一旦碰到win7系统设置cf烟雾头的问题，很
我们在日常使用电脑的时候，有的小伙伴们可能在打开应用的时候会遇见提示应用程序无法
今天小编告诉大家如何对win7系统打开vcf文件进行设置，可能很多用户都不知道怎么对win
今天小编告诉大家如何对win10系统s4开启USB调试模式进行设置，可能很多用户都不知道怎
请发表评论