工资管理系统全套VF程序清单.doc

辽宁广播电视大学开放教育试点计算机科学与技术专业（本科）毕业设计程序清单设计题目清河地税局工资管理系统电大分校：铁岭电大学生姓名：刘春辉学号：021100201指导教师：陈连波完成日期：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=bo1.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=0mand1.enabled=0-工资设定gzsd-前一个：按钮click事件ifnoteof()andnotbof()mand6.enabled=1mand5.enabled=1endiifbof()mand5.enabled=0endiifnotbof()skip-1thisform.refreshendi下一