|
2.4面向对象的设计 面向对象的设计方式，是当前软件技术的一大进步。本系统也采用了而向对象的设计方法，系统建立了三个对象，分别是二个Ｔcustom对象与一个ＴＯＯＬＢＡＲ对象。分别用来控制运行环境的保存与恢复、程序的建立及运行、工具栏的简单实现。 内容来自论文无忧网 www.paper51.com 2.4.1环境对象 内容来自论文无忧网 www.paper51.com
在当前项目中新建一个基类为Tcustom的对象，名称为： envObj.为该对象新建以下一些属性： talk、Ｄate、CEN、Exclusive以及ＤＥＬＥＴＥＤ。 内容来自论文无忧网 www.paper51.com
建立以下二个事件： saveenv: copyright paper51.com Procedure saveenv 内容来自www.paper51.com *保存环境变量* copyright paper51.com this.talk=set("TALK") 内容来自论文无忧网 www.paper51.com this.cen=set("CENTURY") 内容来自www.paper51.com This.date=SEt("DATE") copyright paper51.com
this.exclusice=set("exclusive") 内容来自论文无忧网 www.paper51.com this.deleted=set("DELETED") paper51.com SET TALK OFF paper51.com
SET DATE to MDY 内容来自www.paper51.com
Set CENTURY ON copyright paper51.com SET Exclusive Off copyright paper51.com SET DELETED ON 内容来自论文无忧网 www.paper51.com SET SAFETY OFF 内容来自论文无忧网 www.paper51.com *设置窗口状态 内容来自论文无忧网 www.paper51.com _SCREEN.WINDOWSTATE=2 paper51.com
*设置窗口名称 paper51.com
_SCREEN.CAPTION="用电安装管理系统" http://www.paper51.com Endproc http://www.paper51.com restoreEnv: 内容来自www.paper51.com proceudre resotreEnv paper51.com &&退出系统时恢复环境 http://www.paper51.com if this.talk="ON" 内容来自论文无忧网 www.paper51.com set talk on http://www.paper51.com else copyright paper51.com set talk off paper51.com
endif 内容来自www.paper51.com if this.cen="ON" paper51.com set century on 内容来自www.paper51.com else 内容来自论文无忧网 www.paper51.com
set century off paper51.com endif 内容来自论文无忧网 www.paper51.com ifthis.exclusice="ON" 内容来自论文无忧网 www.paper51.com
set exclusive on paper51.com
else copyright paper51.com set exclusive off http://www.paper51.com endif paper51.com
ifthis.deleted="ON" http://www.paper51.com set deleted on paper51.com else paper51.com set deleted off copyright paper51.com endif http://www.paper51.com set date to (this.date) http://www.paper51.com endproc paper51.com 2.4.2 程序对象 copyright paper51.com 在项目的类中新建一个基于Tcustom的类，名为Appobj.，为其增加二个方法：do、gologin及一个属性:otoolbar 内容来自论文无忧网 www.paper51.com DO方法昌appobj的主要方法，过程如下： 内容来自www.paper51.com *运行程序等工作* 内容来自www.paper51.com
*在此之前使用EVN对象保存环境设置* paper51.com *建立工具栏对象* 内容来自www.paper51.com
public m.loginsucc,m.loginname,m.loginid http://www.paper51.com m.loginsucc=.F. paper51.com
this.gologin() http://www.paper51.com if m.loginsucc=.F. 内容来自论文无忧网 www.paper51.com return copyright paper51.com endif 内容来自论文无忧网 www.paper51.com wait window "谢谢您"+m.loginname+"使用本系统" nowait paper51.com this.otoolbar=createobject("mytoolbar") http://www.paper51.com this.otoolbar.show() 内容来自www.paper51.com this.otoolbar.dock(0) 内容来自论文无忧网 www.paper51.com Do mainmenu.mpr 内容来自论文无忧网 www.paper51.com Read events paper51.com
Gologin方法是显示登录表单： 内容来自www.paper51.com do form FRMLOGIN copyright paper51.com 在该对象的ＩＮＩＴ中： http://www.paper51.com open database ydaz paper51.com if !used("USER") paper51.com use user in 0 内容来自论文无忧网 www.paper51.com endif copyright paper51.com if !used("elearch") http://www.paper51.com use elearch in 0 http://www.paper51.com
endif paper51.com 2.4.3 工具条对象 http://www.paper51.com 在系统中新建一个基于ＴＯＯＬＢＡＲ的类，名为mytoolbar，放置三个按钮，分别起名为：ＣＭＤ_CHANGEMM、ＣＭＤ_ＢＡＣＫ、ＣＭＤ——Ｃlosesystem.对应的事件如下： paper51.com Cmd_Changemm: 内容来自论文无忧网 www.paper51.com Procedure click copyright paper51.com do form frmchangemm.scx http://www.paper51.com endproc copyright paper51.com cmd_back: copyright paper51.com
procedure click paper51.com
do form frmbackdata.scx http://www.paper51.com endproc http://www.paper51.com cmd_closesystem: copyright paper51.com procedure click paper51.com
if messagebox("确认退出系统吗？",36,"用电安装管理系统")=6 内容来自www.paper51.com clear events 内容来自论文无忧网 www.paper51.com
endif 内容来自论文无忧网 www.paper51.com endproc http://www.paper51.com
|