计算机应用技术毕业论文(3)

2019-01-27 16:13

图4.1

具体编码如下：

（1）“增加新记录”按钮控件源代码：

thisform.pageframe1.page1.fy1.enabled=.F.

thisform.pageframe1.page1.command2.enabled=.F. thisform.pageframe1.page1.command3.enabled=.F. thisform.pageframe1.page1.command4.enabled=.T.

if thisform.pageframe1.page1.command1.caption='增加新记录' thisform.pageframe1.page1.txtpid.enabled=.T. thisform.pageframe1.page1.txtpname.enabled=.T. thisform.pageframe1.page1.txtpsex.enabled=.T. thisform.pageframe1.page1.txtpjob.enabled=.T. thisform.pageframe1.page1.txtpindate.enabled=.T. thisform.pageframe1.page1.txtprank.enabled=.T. append blank

thisform.pageframe1.page1.command1.caption='增加确认' thisform.pageframe1.page1.refresh

thisform.pageframe1.page1.txtpid.setfocus else

getid=alltrim(thisform.pageframe1.page1.txtpid.value) getname=alltrim(thisform.pageframe1.page1.txtpname.value) getsex=alltrim(thisform.pageframe1.page1.txtpsex.value)

getjob=alltrim(thisform.pageframe1.page1.txtpjob.value) getindate=alltrim(thisform.pageframe1.page1.txtpindate.value)

getrank=alltrim(thisform.pageframe1.page1.txtprank.value) if empty(getid) or empty(getname) or empty(getsex) or empty(getjob) or empty(getindate) or empty(getrank) messagebox(\资料不足\错误\else

thisform.pageframe1.page1.command1.caption='增加新记录' tableupdate(.t.)

thisform.pageframe1.page1.command2.enabled=.T. thisform.pageframe1.page1.command3.enabled=.T. thisform.pageframe1.page1.command4.enabled=.F. endif endif （2）“修改这条记录”按钮控件源代码：

thisform.pageframe1.page1.command1.enabled=.F. thisform.pageframe1.page1.command3.enabled=.F. thisform.pageframe1.page1.command4.enabled=.T. thisform.pageframe1.page1.fy1.enabled=.F.

if thisform.pageframe1.page1.command2.caption='修改这条记录'

thisform.pageframe1.page1.txtpid.enabled=.T. thisform.pageframe1.page1.txtpname.enabled=.T. thisform.pageframe1.page1.txtpsex.enabled=.T. thisform.pageframe1.page1.txtpjob.enabled=.T. thisform.pageframe1.page1.txtpindate.enabled=.T. thisform.pageframe1.page1.txtprank.enabled=.T.

thisform.pageframe1.page1.command2.caption='修改确认'

thisform.pageframe1.page1.refresh

thisform.pageframe1.page1.txtpid.setfocus else

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

if personnel.pname=getpname messagebox(\查到记录\注意\

select * from personnel where pid=getpid and pname=getpname into cursor ling thisform.pageframe1.page3.enabled=.T. thisform.pageframe1.page3.refresh else messagebox(\没有这条记录\注意\ endif

endif

（二）、工资结构设置模块编码设计工资结构设置模块界面如图4.3所示

图4.3

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

共4页:

计算机应用技术毕业论文(3).doc 将本文的Word文档下载到电脑下载失败或者文档不完整，请联系客服人员解决！

下载这篇word文档