VF物业管理系统 第4页

在“系统管理”按钮的Click事件中添加以下代码：

this.parent.listview1.listItems.clear

this.parent.listview1.view=2

this.parent.listview1.Icons=this.parent.imagelist1.object

this.parent.listview1.smallicons=this.parent.imagelist1.object

=this.parent.listview1.listitems.add(,,'操作员管理',,7)

=this.parent.listview1.listitems.add(,,'权限设置',,7)

pjyb=.t.

在“帮助”按钮的Click事件中添加以下代码：

this.parent.listview1.listItems.clear

this.parent.listview1.view=2

this.parent.listview1.Icons=this.parent.imagelist1.object

this.parent.listview1.smallicons=this.parent.imagelist1.object

=this.parent.listview1.listitems.add(,,'帮助',,8)

=this.parent.listview1.listitems.add(,,'关于本软件',,8)

pjyb=.t.

在“退出”按钮的Click事件中添加以下代码：

quit     &&退出主程序

在控件image1的Click事件中添加以下代码：

this.parent.commdl.filter='图片|*.bmp;*.jpg'     &&设置文件类型为.BMP或.JPG

this.parent.commdl.showopen    &&显示打开对话框

this.parent.rq.image2.picture=this.parent.commdl.filename     &&显示选定文件的名字

4.2  系统登录界面设计

用户进入系统前，必须通过系统登录进入程序主界面，通过系统登录界面可以对用户的身份及使用权限进行确认。系统登录表单运行结果如图3所示。

若图片无法显示请联系QQ752018766,本论文免费,转发请注明源于www.751com.cn

图3  系统登录表单运行结果

1．表单设计

（1）在物业管理系统的项目中，新建一个表单，命名为Admin。

（2）在表单中添加ImageList控件、Image控件、ListView控件、ImageList控件、Text控件、Label控件、Commandgroup控件。

（3）重要控件属性如表3所示。

表3                              重要控件的重要属性及值

2．代码设计

定义全局变量cn，用来判断输入操作员或密码的次数，当cn大于3时，将自动退出系统。在List列表中显示所有的操作员姓名和代表其权限级别的图标。

在表单的Init事件中添加以下代码：

public cn     &&定义全局变量

cn=0     &&给全局变量赋初值

thisform.listview1.view=0     &&设置视图显示方式

thisform.listview1.Icons=thisform.imagelist1.object

thisform.listview1.smallicons=thisform.imagelist1.object

select tabpurview     &&选定Tabpurview工作区为当前工作区

select *;

from wuyemanage!tabpurview;

where 权限级别='1';

order by tabpurview.操作员姓名;

into cursor sysgly

select *;

from wuyemanage!tabpurview;

where 权限级别='2';

若图片无法显示请联系QQ752018766,本论文免费,转发请注明源于www.751com.cn

enddo

select tabpurview

select *;

from wuyemanage!tabpurview;

where 权限级别='3';

order by tabpurview.操作员姓名;

into cursor ybczy

do while !EOF()      &&测试当前记录指针是否在文件尾

   key=alltrim(ybczy.操作员姓名)

   =thisform.listview1.listitems.add(,,key,3)     &&添加一个列表项

   skip      &&记录指针向下移动一条记录

enddo

select tabpurview

select *;

from wuyemanage!tabpurview;

where 权限级别='4';

order by tabpurview.操作员姓名;

into cursor zdy

do while !EOF()     &&测试当前记录指针是否在文件尾

   key=alltrim(zdy.操作员姓名)

   =thisform.listview1.listitems.add(,,key,4)  &&添加一个列表项

   skip     &&记录指针向下移动一条记录

enddo

上一页  [1] [2] [3] [4] [5] [6] [7] [8] [9] 下一页