会计信息系统课程设计
一 类fy的设计
按钮command1【上一个】的click事件代码： skip -1
if bof()
messagebox(”已是第一个记录“，48，“信息窗口”) mand1.enabled=.f.
mand2.enabled=.f.
skip
else
mand1.enabled=.t.
mand2.enabled=.t.
endif
mand3.enabled=.t.
mand4.enabled=.t.
thisform.refresh
按钮command2【第一个】的click事件代码： goto top
mand1.enabled=.f.
mand3.enabled=.t.
mand4.enabled=.t.
thisform.refresh
按钮command3【下一个】的click事件代码： skip
if eof()
messagebox(”已是最后一条记录“，48，“信息窗口”) skip -1
mand3.enabled=.f.
mand4.enabled=.f.
else
mand4.enabled=.t.
mand3.enabled=.t.
endif
mand1.enabled=.t.
mand2.enabled=.t.
thisform.refresh
按钮command4【最后一个】的click事件代码： goto bottom
mand3.enabled=.f.
mand1.enabled=.t.
mand2.enabled=.t.
thisform.refresh
二 员工信息录入表单中按钮的设计
增加新记录（即员工信息的录入）
thisform.mand2.enabled=.f.
thisform.mand3.enabled=.f.
thisform.mand4.enabled=.t.
if thisform.mand1.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.mand1.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("资料不足",48,"错误")
else
thisform.mand1.caption="增加新记录"
tablrupdate(.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.mand2.enabled=.t.
thisform.mand3.enabled=.t.
thisform.mand4.enabled=.f.
endif
endif
修改记录
thisform.mand1.enabled=.f.
thisform.mand3.enabled=.f.
thisform.mand4.enabled=.t.
if thisform.mand2.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.mand2.caption='修改确认'
thisform.pageframe1.page1.refresh
thisform.pageframe1.page1.txtpid.setfocus
else
thisform.mand2.caption="修改此记录" tablrupdate(.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.mand1.enabled=.t.
thisform.mand3.enabled=.t.
thisform.mand4.enabled=.f.
endif
删除记录
getid=alltrim(thisform.pageframe1.page1.txtpid.value)
thisform.pageframe1.page1.txtpid.controlsource=''
thisform.pageframe1.page1.txtpname.controlsource=''
thisform.pageframe1.page1.txtpsex.controlsource=''
thisform.pageframe1.page1.txtpjob.controlsource=''
thisform.pageframe1.page1.txtpindate.controlsource=''
thisform.pageframe1.page1.txtprank.controlsource=''
use personnel exclusive
set order to pid
seek getid
delete
pack
thisform.pageframe1.page1.txtpid.controlsource='personnel.pid'
thisform.pageframe1.page1.txtpname.controlsource='personnel.pname' thisform.pageframe1.page1.txtpsex.controlsource='personnel.psex' thisform.pageframe1.page1.txtpjob.controlsource='personnel.pjob'
thisform.pageframe1.page1.txtpindate.controlsource='personnel.pindate' thisform.pageframe1.page1.txtprank.controlsource='personnel.prank'
thisform.pageframe1.page1.refresh
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.
取消操作
if thisform.mand1.caption="增加确认" thisform.mand1.caption="增加新记录" thisform.pageframe1.page1.fy1.enabled=.t.
thisform.mand2.enabled=.t. thisform.mand3.enabled=.t. tablerevert(.f.)
endif
if thisform.mand2.caption="修改确认" thisform.mand2.caption="修改此记录" thisform.mand1.enabled=.t. thisform.mand3.enabled=.t. tablerevert(.f.)
endif
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.fy1.enabled=.t.
thisform.mand4.enabled=.f. thisform.pageframe1.page1.refresh
三 员工信息查询设计
查询子页面
【员工编号】click事件代码
falg = thisform.pageframe1.page2.check1.value
do case
case flag=0
thisform.pageframe1.page2.text2.enabled=.f. thisform.pageframe1.page2.text1.value=''
case flag=1
thisform.pageframe1.page2.text1.enabled=.t. endcase
【员工姓名】click事件代码
falg = thisform.pageframe1.page2.check2.value
do case
case flag=0
thisform.pageframe1.page2.text1.enabled=.f.
thisform.pageframe1.page2.text2.value=''
case flag=1
thisform.pageframe1.page2.text2.enabled=.t.
endcase
【查询】按钮
getpid=alltrim(thisform.pageframe1.page2.text1.value)
getpname=alltrim(thisform.pageframe1.page2.text2.value) flag1=thisform.pageframe1.page2.check1.value
flag2=thisform.pageframe1.page2.check1.value
if flag1=0 and flag2=0
set order to pid
seek getpid
if found()
messagebox("查到记录",48,"注意")
select * from personnel where pid=getpid into cursor ling thisform.pageframe1.page3.enabled=.t.
thisform.pageframe1.page3.refresh
else
messagebox("没有这条记录",48,"注意")
endif
endif
if flag1=0 and flag2=1
set order to pname
seek getpname
if found()
messagebox("查到记录",48,"注意")
select * from personnel where pname=getpname into cursor ling thisform.pageframe1.page3.enabled=.t.
thisform.pageframe1.page3.refresh
else
messagebox("没有这条记录",48,"注意")
endif
endif
if flag1=1 and flag2=1
set order to pid
seek getpid
if personnel.pname=getpname
messagebox("查到记录",48,"注意")
select * from personnel where pid=getpid and pname=getpname into cursor ling
thisform.pageframe1.page3.enabled=.t. thisform.pageframe1.page3.refresh
else
messagebox("没有这条记录",48,"注意") endif
endif
do case
case flag=0
thisform.pageframe1.page2.text1.enabled=.f. thisform.pageframe1.page2.text1.value='' case flag=1
thisform.pageframe1.page2.text1.enabled=.t. endcase
【查询另一个】按钮
thisform.pageframe1.page2.text1.enabled=.t. thisform.pageframe1.page2.text2.enabled=.t. thisform.pageframe1.page2.text1.value='' thisform.pageframe1.page2.text2.value=''
四 工资基本设定
基本工资表单的设计
表单的load事件代码
public getid
表格的mouseup事件代码
getid=alltrim(thisform.grdrank.column1.text1.value)
【修改】的click事件代码
thisform.grdrank.column1.text1.enabled=.t. thisform.grdrank.column2.text1.enabled=.t. thisform.grdrank.column1.text1.setfocus
【确认修改】的click事件代码
thisform.grdrank.column1.text1.enabled=.f. thisform.grdrank.column2.text1.enabled=.f.
【添加】的click事件代码
append blank
go bottom
thisform.grdrank.column1.text1.enabled=.t. thisform.grdrank.column2.text1.enabled=.t. thisform.grdrank.column1.text1.setfocus
【删除】的click事件代码
thisform.grdrank.recordsource=''
use rank exclusive
delete from rank where rname=getid
pack
thisform.grdrank.recordsource='rank'
thisform.grdrank.refresh
【退出】的click事件代码
thisform.release
do form \salary\工资基本设定
五 【打印预览】按钮代码 report form \salary\result to print preview
【打印】按钮代码
report form \salary\result to print