VF家政服务管理系统(论文+源程序+答辩PPT) 第7页
this.parent.command4.enabled=.f.
this.parent.command2.enabled=.f.
this.parent.command1.enabled=.f.
thisform.refresh
“删除”按钮代码
delete
=tableupdate(.t.)
if .not.eof()
skip
else
  if .not.bof()
  skip-1
  endif
endif
thisform.refresh
“保存”按钮代码
replace 客户编号 with allt(sccode)
=tableupdate(.t.)
this.enabled=.f.
this.parent.cmdcancel.enabled=.f.
this.parent.command4.enabled=.t.
this.parent.command1.enabled=.t.
this.parent.command2.enabled=.t.
thisform.refresh
“放弃”按钮代码
=tablerevert(.t.)
this.enabled=.f.
this.parent.cmdsave.enabled=.f.
this.parent.command4.enabled=.t.
this.parent.command1.enabled=.t.
this.parent.command2.enabled=.t.
thisform.refresh
4.员工管理模块设计
 主要代码如下:
“新增”按钮代码
append blank
this.parent.cmdsave.enabled=.t.
this.parent.cmdcancel.enabled=.t.
this.parent.command4.enabled=.f.
this.parent.command2.enabled=.f.
this.parent.command1.enabled=.f.
thisform.optiongroup1.value=1
thisform.refresh
thisform.姓名1.setfocus
“编辑”按钮代码
this.parent.cmdsave.enabled=.t.
this.parent.cmdcancel.enabled=.t.
this.parent.command4.enabled=.f.
this.parent.command2.enabled=.f.
this.parent.command1.enabled=.f.
if allt(人员状态)="正在待聘人员"
thisform.optiongroup1.value=1
endif
if allt(人员状态)=" 正在工作人员"
thisform.optiongroup1.value=2
endif
if allt(人员状态)="已回人员"
thisform.optiongroup1.value=3
endif
thisform.refresh
“保存”按钮代码
=tableupdate(.t.)
this.enabled=.f.
this.parent.cmdcancel.enabled=.f.
this.parent.command4.enabled=.t.
this.parent.command1.enabled=.t.
this.parent.command2.enabled=.t.
thisform.refresh
“放弃”按钮代码
=tablerevert(.t.)

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