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

遼寧廣播電視大學開放教育試點計算機科學與技術專業(yè)（本科）畢業(yè)設計程序清單設計題目清河地稅局工資管理系統(tǒng)電大分校：鐵嶺電大學生姓名：劉春輝學號：021100201指導教師：陳連波完成日期：2004.121主程序:mainprg-clearscreencleareventssetdeleonopendatabasegzglsusegzusemmdomain.mprdoformmmkreadevents-登錄界面：mmk-登錄按鈕，click事件inname=alltrim(thisform.text1.value)inpswd=alltrim(thisform.text2.value)setordertousernameseekinnameif!found()cMessageTitle=設備管理系統(tǒng)cMessageText=用戶名錯誤，請重新輸入nDialogType=4+32nAnswer=messagebox(cMessageText,nDialogType,cMessageTitle)docasecasenAnswer=6thisform.text1.value=thisform.text1.setfocuscasenAnswer=7messagebox(請勿偷窺他人資料,48,警告)thisform.releaseendcaseelseifpassword!=inpswdcMessageTitle=設備管理系統(tǒng)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下一