基于web的工资管理系统设计与实现

thisform.pageframe1.page1.command2.caption='修改这条记录' tableupdate(.t.)

thisform.pageframe1.page1.txtpid.enabled=.F. thisform.pageframe1.page1.txtpname.enabled=.F. thisform.pageframe1.page1.txtpsex.enabled=.F. thisform.pageframe1.page1.txtpjob.enabled=.F. thisform.pageframe1.page1.txtpindate.enabled=.F. thisform.pageframe1.page1.txtprank.enabled=.F. thisform.pageframe1.page1.command1.enabled=.T. thisform.pageframe1.page1.command3.enabled=.T. thisform.pageframe1.page1.command4.enabled=.F. thisform.pageframe1.page1.fy1.enabled=.T. endif

2、员工信息查询功能

员工信息查询界面如图4.2所示。

图4.2

具体编码如下：

“查询”按钮控件源代码：

getpid=alltrim(thisform.pageframe1.page2.text1.value) getpname=alltrim(thisform.pageframe1.page2.text2.value) flag1=thisform.pageframe1.page2.check1.value flag2=thisform.pageframe1.page2.check2.value if flag1=0 and flag2=0

messagebox(\请输入查询条件\错误\

endif

if flag1=1 and flag2=0 set order to pid seek getpid

if found()

messagebox(\查到记录\注意\

select * from personnel where pid=getpid into cursor ling thisform.pageframe1.page3.enabled=.T. thisform.pageframe1.page3.refresh else

messagebox(\没有这条记录\注意\endif

endif

if flag1=0 and flag2=1 set order to pname seek getpname

if found()

messagebox(\查到记录\注意\

select * from personnel where pname=getpname into cursor ling thisform.pageframe1.page3.enabled=.T. thisform.pageframe1.page3.refresh else

messagebox(\没有这条记录\注意\endif

endif

if flag1=1 and flag2=1

set order to pid seek getpid ling

thisform.pageframe1.page3.enabled=.T. thisform.pageframe1.page3.refresh else

messagebox(\没有这条记录\注意\endif

if personnel.pname=getpname

messagebox(\查到记录\注意\

select * from personnel where pid=getpid and pname=getpname into cursor

endif

4.2工资结构设置模块编码设计 工资结构设置模块界面如图4.3所示

图4.3

其中“基础工资”功能界面如图4.4所示：

图4.4