工资管理信息系统.pptVIP

系统实施举例 ——工资管理系统 主表单的“Init”事件程序： wdpathname=“d:\工资系统\数据库 set default to wdpathname 人员增删表单： “第一个”按钮的Click事件程序： go top thisform.refresh thisform.cmdpre.enabled=.f. thisform.cmdnext.enabled=.t. thisform.cmdbottom.enabled=.t. “前一个”按钮的Click事件程序： skip -1 if bof() this.enabled=.f. thisform.cmdtop.enabled=.t. thisform.cmdnext.enabled=.t. thisform.cmdbottom.enabled=.t. else this.enabled=.t. thisform.cmdtop.enabled=.t. thisform.cmdnext.enabled=.t. thisform.cmdbottom.enabled=.t. endif thisform.refresh “后一个”按钮的Click事件程序： skip if eof() this.enabled=.f. thisform.cmdtop.enabled