会计信息系统课程设计代码.docVIP

会计信息系统课程设计 一 类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 二 员工信息录入表单中按钮的设计 增加新记录（即员工信息的录入） mand2.enabled=.f. mand3.enabled=.f. mand4.enabled=.t. if 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 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 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.t