程序启动后,在系统登录界面验证操作员密码后,将进入程序主界面的设计。通过程序主界面可以执行相应权限的操作,并且可以通过选择主界面菜单或按钮,调用相应程序,进行相应操作。程序主界面的运行结果如图2所示。
图2 程序主界面的运行结果
(1)新建一个项目,名称为物业管理系统,在该项目中添加一个新表单,命名为Fdesktop。
(2)在表单中插入名称为Vcxmain的ToolBar类、Image控件、listview控件、imagelist控件、Timer控件。
(3)重要控件的重要属性如表2所示。
表2 重要属性及值
对象 |
属性 |
值 |
Vcxmain |
LockScreen |
False |
Vcxmain |
Movable |
False |
Vcxmain |
Sizeable |
False |
Timer |
InterVal |
10 |
在类的Init事件中添加以下代码:
public bz &&定义全局变量
bz=.f.
this.listview1.view=2 &&设置视图显示方式
this.listview1.Icons=this.imagelist1.object
this.listview1.smallicons=this.imagelist1.object
&&添加列表项
=this.listview1.listitems.add(,,'小区信息生成',,1)
=this.listview1.listitems.add(,,'大楼信息生成' ,,1)
=this.listview1.listitems.add(,,'房屋信息生成',,1)
=this.listview1.listitems.add(,,'小区信息登记',,1)
=this.listview1.listitems.add(,,'大楼信息登记',,1)
=this.listview1.listitems.add(,,'房屋信息登记',,1)
=this.listview1.listitems.add(,,'系统数据设定',,1)
单击快捷工具条上的“经营部”按钮,将在左侧的List列表中显示经营部各功能选项。各功能选项由图标和标识性文字组成。具体代码如下:
在“经营部”按钮的Click事件中添加以下代码:
this.parent.listview1.listItems.clear &&清除数据
this.parent.listview1.view=2 &&设置视图显示方式
*将ImageList控件图片赋予Listview控件
this.parent.listview1.Icons=this.parent.imagelist1.object
this.parent.listview1.smallicons=this.parent.imagelist1.object
=this.parent.listview1.listitems.add(,,'小区信息生成',,1)
=this.parent.listview1.listitems.add(,,'大楼信息生成',,1)
=this.parent.listview1.listitems.add(,,'房屋信息生成',,1)
=this.parent.listview1.listitems.add(,,'小区信息登记',,1)
=this.parent.listview1.listitems.add(,,'大楼信息登记',,1)
=this.parent.listview1.listitems.add(,,'房屋信息登记',,1)
=this.parent.listview1.listitems.add(,,'系统数据设定',,1)
在“管理部”按钮的Click事件中添加以下代码:
this.parent.listview1.listItems.clear
this.parent.listview1.view=2
this.parent.listview1.Icons=this.parent.imagelist1.object
若图片无法显示请联系QQ752018766,本论文免费,转发请注明源于www.751com.cn
=this.parent.listview1.listitems.add(,,'系统数据设定',,2)
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(,,'装修队登记',,3)
=this.parent.listview1.listitems.add(,,'文修信息登记',,3)
=this.parent.listview1.listitems.add(,,'文修信息查询',,3)
=this.parent.listview1.listitems.add(,,'装修信息登记',,3)
=this.parent.listview1.listitems.add(,,'装修信息查询',,3)
pjyb=.t.
在“财务部”按钮的Click事件中添加以下代码:
this.parent.listview1.listItems.clear
this.parent.listview1.view=2
若图片无法显示请联系QQ752018766,本论文免费,转发请注明源于www.751com.cn
=this.parent.listview1.listitems.add(,,'采暖费查询管理',,4)
=this.parent.listview1.listitems.add(,,'其它费用查询管理' ,,4)
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(,,'保安排班管理',,5)
=this.parent.listview1.listitems.add(,,'保安排班查询',,5)
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(,,'小区资源统计',,6)
=this.parent.listview1.listitems.add(,,'业主信息查询',,6)
=this.parent.listview1.listitems.add(,,'人口信息查询',,6)
=this.parent.listview1.listitems.add(,,'小区投诉查询',,6)
=this.parent.listview1.listitems.add(, , '小区员工查询',,6)
=this.parent.listview1.listitems.add(,,'装修信息查询',,6)
=this.parent.listview1.listitems.add(,,'文修信息查询',,6)
=this.parent.listview1.listitems.add(,,'保安排班查询',,6)
pjyb=.t.
上一页 [1] [2] [3] [4] [5] [6] [7] [8] [9] 下一页