工資管理系統(tǒng)全套VF程序清單.doc

遼寧廣播電視大學(xué)開(kāi)放教育試點(diǎn)計(jì)算機(jī)科學(xué)與技術(shù)專(zhuān)業(yè)（本科）畢業(yè)設(shè)計(jì)程序清單設(shè)計(jì)題目清河地稅局工資管理系統(tǒng)電大分校：鐵嶺電大學(xué)生姓名：劉春輝學(xué)號(hào)：021100201指導(dǎo)教師：陳連波完成日期：2004.121主程序:mainprg-clearscreencleareventssetdeleonopendatabasegzglsusegzusemmdomain.mprdoformmmkreadevents-登錄界面：mmk-登錄按鈕，click事件inname=alltrim(thisform.text1.value)inpswd=alltrim(thisform.text2.value)setordertousernameseekinnameif!found()cMessageTitle=設(shè)備管理系統(tǒng)cMessageText=用戶(hù)名錯(cuò)誤，請(qǐng)重新輸入nDialogType=4+32nAnswer=messagebox(cMessageText,nDialogType,cMessageTitle)docasecasenAnswer=6thisform.text1.value=thisform.text1.setfocuscasenAnswer=7messagebox(請(qǐng)勿偷窺他人資料,48,警告)thisform.releaseendcaseelseifpassword!=inpswdcMessageTitle=設(shè)備管理系統(tǒng)cMessageText=密碼錯(cuò)誤，請(qǐng)重新輸入nDialogType=4+32nanswer=messagebox(cMessageText,nDialogType,cMessageTitle)docasecasenAnswer=7messagebox(請(qǐng)勿偷窺他人資料,48,警告)thisform.releaseendcase2elsethisform.releasedoformgzxgendifendif退出按鈕：click事件thisform.releasecleareventsquit-程序主界面gzxg-工資設(shè)定：按鈕click事件doformgzsdclosedatabaseall工資查詢(xún)：按鈕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-工資設(shè)定gzsd-前一個(gè)：按鈕click事件ifnoteof()andnotbof()mand6.enabled=1mand5.enabled=1endiifbof()mand5.enabled=0endiifnotbof()skip-1thisform.refreshendi下一