VF地税局工资管理系统程序清单.doc

XXXXX大学计算机科学与技术专业（本科）毕业设计程序清单设计题目XX地税局工资管理系统学校：XXXXX大学学生姓名：学号：指导教师：完成日期：2004.121主程序:mainprg-clearscreencleareventssetdeleonopendatabasegzglsusegzusemmdomain.mprdoformmmkreadevents-登录界面：mmk-登录按钮，click事件inname=alltrim(thisform.text1.value)inpswd=alltrim(thisform.text2.value)setordertousernameseekinnameif!found()cMessageTitle=设备管理系统cMessageText=用户名错误，请重新输入nDialogType=4+32nAnswer=messagebox(cMessageText,nDialogType,cMessageTitle)docasecasenAnswer=6thisform.text1.value=thisform.text1.setfocuscasenAnswer=7messagebox("请勿偷窥他人资料",48,"警告")thisform.releaseendcaseelseifpassword!=inpswdcMessageTitle=设备管理系统cMessageText=密码错误，请重新输入nDialogType=4+32nanswer=messagebox(cMessageText,nDialogType,cMessageTitle)docasecasenAnswer=7messagebox("请勿偷窥他人资料",48,"警告")thisform.releaseendcase2elsethisform.releasedoformgzxgendifendif退出按钮：click事件thisform.releasecleareventsquit-程序主界面gzxg-工资设定：按钮click事件doformgzsdclosedatabaseall工资查询：按钮click事件doformgzcx工资汇总：按钮click事件doformgzhz退出：按钮click事件thisform.releasecleareventsquit查找：按钮click事件brpath=thisform.combo1.value+allt(thisform.text1.value)ifthisform.check1.value=1thisform.text2.value=select*fromkhxxintodbf&brpathkhxxusethisform.check1.value=0endiifthisform.check2.value=1thisform.text2.value=select*fromypxx_jhintodbf&brpathypxx_jh3usethisform.check2.value=0endiifthisform.check3.value=1thisform.text2.value=select*fromypxx_kcintodbf&brpathypxx_kcusethisform.check3.value=0endiifthisform.check4.value=1thisform.text2.value=select*fromypdjintodbf&brpathypdjusethisform.check4.value=0endiifthisform.check5.value=1thisform.text2.value=select*fromypxx_xsintodbf&brpathypxx_xsusethisform.check5.value=0endithisform.command1.enabled=0-工资设定gzsd-前一个：按钮click事件ifnoteof()andnotbof()thisform.command6.enabled=1thisform.command5.enabled=1endiifbof()thisform.command5.enabled=0endiifnotbof()skip-1thisform.refreshendi下一个：按钮click事件ifeof()thisform.command6.enabled=0endiifnoteof()andnotbof()thisform.command6.enabled=1