vfp課程設(shè)計(jì)報(bào)告--人力資源管理系統(tǒng)-資料下載頁
2025-03-23 00:35本頁面
【正文】 go top =.f. =.f. =.t. =.t. case =2 =.t. =.t. skip 1 if reo()=1 =.f. =.f. endif case =3 =.t. =.t. skip if reo()=reccount() =.f. =.f. endif case =4 goto bottom =.t. =.t. =.f. =.f. case =5 report form for alltrim()=ALLTRIM() preview case =6 do form 檔案輸出 case =7 select shgx x= =4 =39。select * from shgx where alltrim()=alltrim(x) and = into cursor tempt139。 endcase報(bào)表預(yù)覽截圖如下：同樣，點(diǎn)擊進(jìn)入人事卡片：設(shè)置好文本框的controlsource屬性以及buttongroup1的click事件代碼即可運(yùn)行。精確查詢界面可隨意查詢?nèi)我獯?hào)人員信息：“查詢”click事件代碼：x==4=39。select dh as 代號(hào),ybrgx as 與本人關(guān)系,csny as 出生年月,hyzk as 婚姻狀況,whcd as 文化程度,zzmm as 政治面目,gzdw as 工作單位,zwgz as 職務(wù)工種,gz as 工資,jjly as 經(jīng)濟(jì)來源 from jtcy where alltrim(dh)=alltrim(x) into cursor page239。其他頁面類似。修改密碼“修改”按鈕click事件代碼為：sele glryif allt()== else locate for allt(xm)==allt() if eof() messagebox(此用戶不存在，請(qǐng)重新輸入！,64,提示) = = = = () else if !allt(mm)==allt() messagebox(密碼錯(cuò)誤，請(qǐng)重新輸入！,64,提示) = = = () else if allt()== messagebox(請(qǐng)輸入新密碼！,64,提示) else if !allt()==allt() messagebox(確認(rèn)密碼錯(cuò)誤，請(qǐng)重新輸入！,64,提示) = else repl mm with allt() messagebox(修改成功！,64,提示) endif endif endif endifendif“撤銷”按鈕click事件代碼：====退出界面單擊退出主菜單，運(yùn)行此界面，標(biāo)簽從左側(cè)飛入，右側(cè)飛出，頁面關(guān)閉。Timer1事件代碼：if =420 =+4 =+4else endif報(bào)表預(yù)覽點(diǎn)擊菜單中的“人事卡片代表”得到所有人的信息報(bào)表，如下：其他報(bào)表同上。八、心得體會(huì) 設(shè)計(jì)這個(gè)程序，我們經(jīng)歷了無數(shù)次失敗。每一個(gè)小小的錯(cuò)誤都讓我們查找了好久，用了四個(gè)星期的時(shí)間終于做成功了，覺得很不容易。當(dāng)初覺得做個(gè)系統(tǒng)是很簡單的事情，于是挑了一個(gè)喜歡的系統(tǒng)，以為會(huì)很輕松地完成，可是做下來才發(fā)現(xiàn)有各種問題。我們小組兩人互相研究討論，查閱了許多資料，并請(qǐng)教了許多老師同學(xué)，終于把這個(gè)系統(tǒng)做完了，酸甜苦辣算是都嘗過了。從這次的設(shè)計(jì)中我們收獲了很多。細(xì)心決定成敗，我們大多數(shù)的問題都是那些不易發(fā)現(xiàn)的小錯(cuò)誤，還好有各位老師同學(xué)的幫助，我們順利地解決了問題，很感謝那些幫助過我們的老師同學(xué)。此外，我們通過這次實(shí)驗(yàn)提升了自己的能力，對(duì)vfp系統(tǒng)更為了解，也學(xué)會(huì)了報(bào)表的制作，真的是受益匪淺。31
教學(xué)教案相關(guān)推薦
鄂ICP備17016276號(hào)-1