论文无忧网提供:计算机毕业论文范文|计算机毕业设计|计算机毕业论文
栏目导航 ASP Java Web .NET VB6.0 JAVA VC VF DELPHI PB 计算机网络 计算机科学与技术 PHP 安卓APP 其他 C# 代写论文
当前位置: > 计算机 > VF >

(B)VF027VF用电安装管理系统

2.4面向对象的设计

面向对象的设计方式,是当前软件技术的一大进步。本系统也采用了而向对象的设计方法,系统建立了三个对象,分别是二个Tcustom对象与一个TOOLBAR对象。分别用来控制运行环境的保存与恢复、程序的建立及运行、工具栏的简单实现。 内容来自论文无忧网 www.paper51.com

2.4.1环境对象

内容来自论文无忧网 www.paper51.com

在当前项目中新建一个基类为Tcustom的对象,名称为:    envObj.为该对象新建以下一些属性: talk、Date、CEN、Exclusive以及DELETED。

内容来自论文无忧网 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

在该对象的INIT中: 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

在系统中新建一个基于TOOLBAR的类,名为mytoolbar,放置三个按钮,分别起名为:CMD_CHANGEMM、CMD_BACK、CMD——Closesystem.对应的事件如下: 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

------分隔线----------------------------
联系方式