【正文】
amp。n..=.F.amp。n..()amp。n..()=.F.=.F.(2)命令按鈕組——刪除n=n=alltrim(str(n))yn=MessageBox(“真的刪除當(dāng)前記錄?”,4+32,”確認(rèn)刪除”)if yn=6 strl= amp。n.. dele pack amp。n..=strl amp。n.. amp。n..() =.F. =.F.endif(3)命令按鈕組——修改n=n=alltrim(str(n))amp。n..=.F.amp。n..amp。n..=.F.=.F.=.f.(4)命令按鈕組——保存flushn=n=alltrim(str(n))go topamp。n..amp。n..()amp。n..=.T.=.T.=.T.=.T.(5)命令按鈕組——退出(1)確定單選按鈕組do casecase =1 =.T. =.F. =.F. case =2 =.T. =.F. =.F. endcase(2)確定查詢按鈕select appraisedo case case =1select employeelocate for姓名=alltrim()if found() g_zgbh=職工編號 set filter to 職工編號=g_zgbh endifcase =2set filter to 部門編號=endcasego top(3)確定全部按鈕select appraiseset filter to(4)設(shè)定退出按鈕(1)確定按鈕代碼select userset exact on locate for username=g_username and userpasswd=if not found() MessageBox(“原密碼不正確!”,“警告”) =”” else if MessageBox(“新密碼與確認(rèn)密碼不符!”,”警告”)=””=””else replace userpasswd with endifendif(2)取消按鈕代碼(1)查詢結(jié)果正確。(2)其它功能運(yùn)行正常。 通過本次程序設(shè)計,我學(xué)到了很多。在程序設(shè)計中,我對VFP的基礎(chǔ)知識有了更深層次的了解,對數(shù)據(jù)庫技術(shù)的基本運(yùn)用有了進(jìn)一步掌握。在設(shè)計過程中難免會遇到一些問題,通過同學(xué)和老師的幫助,這些問題迎刃而解,讓我體會到了合作交流的重要性,同時也感受到了努力的成就感。這次設(shè)計的是人事管理系統(tǒng),在設(shè)計操作過程中,我了解了該系統(tǒng)開發(fā)的具體內(nèi)容和流程,體會到了信息系統(tǒng)在企業(yè)管理中的重要作用。總之,此次程序設(shè)計課程讓我受益匪淺