【導(dǎo)讀】需求分析的任務(wù)，在于完全志弄清用戶(hù)對(duì)所開(kāi)發(fā)的數(shù)據(jù)庫(kù)應(yīng)用系統(tǒng)的確切要求。要向用戶(hù)展開(kāi)調(diào)查研究，開(kāi)清用戶(hù)到底需要應(yīng)用系統(tǒng)具備哪些功能，需要完成那些任務(wù)。工資設(shè)定，工資情況、個(gè)人工資查詢(xún)、打印預(yù)覽、打印退出等操作。作都是人工直接來(lái)完成的，如果對(duì)于一個(gè)大型企業(yè)來(lái)說(shuō)工作量就很大，而且很容易出錯(cuò)。著科技的發(fā)展，實(shí)現(xiàn)現(xiàn)代化和自動(dòng)化管理既可能也很有心要。修改、修改確定、添加、刪除等功能。最后是退出程序。本項(xiàng)目管理器里包括：。后面還有精彩的約。①表格，連接的gongling表。職工的基本情況。cMessageTitle='設(shè)備管理系統(tǒng)'cMessageText='密碼錯(cuò)誤，請(qǐng)重新輸入'按“退出”按鈕就釋放表單。還可以增加刪除員工信。瀏覽掉用的類(lèi)庫(kù)的命令按鈕組。

　　

【正文】 ：可以對(duì)員工工資情況進(jìn)行瀏覽，查詢(xún)，增加，刪除，修改。 （ 32） 員工工資設(shè)定：包括基本工資，崗位工資，工齡工資分別可以對(duì)他們內(nèi)容進(jìn)行修改、修改確定、添加、刪除等功能。 （ 33） 打印預(yù)覽：可以打印預(yù)覽。打印出工資單。 （ 34） 個(gè)人查詢(xún)：輸入個(gè)要員工號(hào)和密碼。 （ 35） 最后是退出程序。 （ 36） 權(quán)限設(shè)置：只有管理員才能進(jìn)行此操作。 三、系統(tǒng)結(jié)構(gòu) 總體介面 四、項(xiàng)目管理器 做 VF 首先建一個(gè)項(xiàng)目管理器；它包括許多內(nèi)容，也被稱(chēng)做后臺(tái)數(shù)據(jù)庫(kù)，功能也比較強(qiáng)大。本項(xiàng)目管理器里包括： 1 數(shù)據(jù)庫(kù) 歡迎界面 退出 退出 打印預(yù)覽 工資查詢(xún)庫(kù) 員工信息 員工工資設(shè)定 基本工資 崗位工資 打印預(yù)覽 工齡工資 瀏覽 主菜單 個(gè)人工資 查詢(xún) 個(gè)人查詢(xún) 所用的表。 1 文檔 制作的表單 接后的就是類(lèi)庫(kù)、代碼、其它，這里就不多說(shuō)了，想了解就往下看。后面還有精彩的約。 五、具體功能 首先，介紹一下表單 3 gzgl 它包括： 1 個(gè)表格， 5 個(gè)命令按鈕 ① 表格，連接的 gongling表。 ② 按鈕包括： ⑴修改按鈕。 命令如下： click 事件：=.T. =.T. ⑵ 修改確認(rèn)按鈕 click 事件： =.F. =.F. ⑶ 添加按鈕： click 事件： append blank go bottom =.T. =.T. ⑷ 刪除按鈕： click 事件： =39。39。 use database\gongling exclusive delete from gongling where gname=getgname pack =39。gongling39。 ⑸退出按鈕： click 事件： 總體介面如下： 3 grcx (工資查詢(xún) ) 這個(gè)表單的是實(shí)現(xiàn)按工號(hào)查詢(xún)，沒(méi)一個(gè)工號(hào)有一個(gè)固定的密碼查詢(xún)的結(jié)果是 職工的基本情況。當(dāng)然工號(hào)和密碼要連接生成器。代碼在“確定”按鈕里具體如下： inname=alltrim() inpswd=alltrim() set order to tms_user seek inname if !found() cMessageTitle=39。設(shè)備管理系統(tǒng) 39。 cMessageText=39。用戶(hù)名錯(cuò)誤，請(qǐng)重新輸入 39。 nDialogType=4+32 nAnswer=messagebox(cMessageText,nDialogType,cMessageTitle) do case case nAnswer=6 =39。39。 case nAnswer=7 messagebox(請(qǐng)勿偷窺他人資料 ,48,警告 ) endcase else if tms_pswd!=inpswd cMessageTitle=39。設(shè)備管理系統(tǒng) 39。 cMessageText=39。密碼錯(cuò) 誤，請(qǐng)重新輸入 39。 nDialogType=4+32 nanswer=messagebox(cMessageText,nDialogType,cMessageTitle) do case case nAnswer=6 if flag2 =39。39。 flag=flag+1 else messagebox(請(qǐng)勿偷窺他人資料 ,48,警告 ) endif case nAnswer=7 messagebox(請(qǐng)勿偷窺他人資料 ,48,警告 ) endcase else par1=inname do form salary\form\gresult endif endif 按“退出”按鈕就釋放表單。 3 gresult 主要是被 grcx (工資查詢(xún) )調(diào)用，當(dāng)然生成器里連接了其它表。 3 gwgz(崗位工資 ) 對(duì)崗位工資的管理。同 gzgl 功能一樣。 gcgz(等級(jí) )也同 gzgl 功能一樣 4 jm（密碼表） 代碼在“確定按鈕里” click 事件： sele mab loca for allt( )==allt() and allt( )==allt() if foun() do C:\修改工資管理 3\ read events =.f. = release thisform else = messagebox(你沒(méi)有權(quán)限，請(qǐng) 輸入正確密碼 ,0+16+0,出錯(cuò) ) endi 4 personnel 它包含一個(gè)頁(yè)框，頁(yè)框下有三個(gè)選項(xiàng)分別是： ●瀏覽 它可以對(duì)員工信息進(jìn)行瀏覽。還可以增加刪除員工信息 瀏覽掉用的類(lèi)庫(kù)的命令按鈕組。具有瀏覽功能。 格式如下： 按鈕“增加新記錄”命令如下： =.F. =.F. =.F. =.T. if =39。增加新記錄 39。 =.T. =.T. =.T. =.T. =.T. =.T. append blank =39。增加確認(rèn) 39。 else getid=alltrim() getname=alltrim() getsex=alltrim() getjob=alltrim() getindate=alltrim() getrank=alltrim() if empty(getid) or empty(getname) or empty(getsex) or empty(getjob) or empty(getindate) or empty(getrank) messagebox(資料不足 ,48,錯(cuò)誤 ) else =39。增加新記錄 39。 tableupdate(.t.) =.F. =.F. =.F. =.F. =.F. =.F. =.T. =.T. =.T. =.F. endif endif 按鈕“修改這條記錄”如下 =.F. =.F. =.T. =.F. if =39。修改這條記錄 39。 =.T. =.T. =.T. =.T. =.T. =.T. =39。修改確認(rèn) 39。 else =39。修改這條記錄 39。 tableupdate(.t.) =.F. =.F. =.F. =.F. =.F. =.F. =.T. =.T. =.F. =.T. endif 按鈕“刪除這條記錄“如下： getid=alltrim() =39。39。 =39。39。 =39。39。 =39。39。 =39。39。 =39。39。 use personnel exclusive set order to pid seek getid delete pack =39。d39。 =39。personne39。 =39。personnel.psex39。 =39。personnel.pjob39。 =39。personn39。 =39。personnel.prank39。 =.F. =.F. =.F. =.F. =.F. =.F. ● 查詢(xún) （ 6） 可以根據(jù)員工號(hào)和員工姓名查詢(xún) ● 查詢(xún)結(jié)果 退出查詢(xún) 8 類(lèi)庫(kù) —— fy_____fy 上一個(gè) 這個(gè)主要用于瀏覽 9|、代碼 有一個(gè)程序文件： mainmpr set sysmenu off clear screen clear events do form salary\form\jm open database database\salary read events 其它 1連編生成一個(gè) EXE 文件 (gzgl)_ 五、最終介面 介面 2 本系統(tǒng)實(shí)用于小行企業(yè)進(jìn)行工資管理及查詢(xún)。 “ Easy, now,” said Ted Tonks, placing a hand on Harry?s shoulder and pushing him back against the cushions. “That was a nasty crash you just had. What happened, anyway? Something go wrong with the bike? Arthur Weasley overstretch himself again, him and his Muggle contraptions?” “ No,” said Harry, as his scar pulsed like an open wound. “Death Eaters, loads of them – we were chased – ” “ Death Eaters?” said Ted sharply. “What d?you mean, Death Eaters? I thought they didn?t know you were being moved tonight, I thought – ” “ They knew,” said Harry. Ted Tonks looked up at the ceiling as though he could see through it to the sky above. “ Well, we know our protective charms hold, then, don?t we? They shouldn?t be able to get within a hundred yards of the place in any direction.” Now Harry understood why Voldemort had vanished。 it had been at the point when the motorbike crossed the barrier of the Order?s charms. He only hoped they would continue to work: He imagined Voldemort, a hundred yards above them as they spoke, looking for a way to perate what Harry visualized as a great transpar ent bubble. He swung his legs off the sofa。 he needed to see Hagrid with his own eyes before he would believe that he was alive. He had barely stood up, however, when a door opened and Hagrid squeezed through it, his face covered in mud and blood, limping a little but miraculously alive. “ Harry!” Knocking over tw o delicate tables and an aspidistra, he covered the floor between them in two strides and pulled Harry into a hug that nearly cracked his newly repaired ribs. “Blimey, Harry, how did yeh get out o? that? I thought we were both goners.” “ Yeah, me too. I can?t believe – ” Harry broke off. He had just noticed the woman who had entered the ro