醫(yī)師工資管理系統(tǒng)er圖流程圖功能模塊圖源代碼-課程設(shè)計(jì)(編輯修改稿)
2025-02-08 02:12 本頁(yè)面
【文章內(nèi)容簡(jiǎn)介】 orm 工資瀏覽編輯 “工資查詢”控件的代碼： do form 工資信息 查詢 “退出“控件的代碼： ？？ CHR(7) result=MessageBox(是否退出本系統(tǒng) ?,4+32+256,信息 ) IF result=6 ENDIF 創(chuàng)建醫(yī)師信息表單 利用表單向?qū)?chuàng)建醫(yī)師信息表單。 本表單的主要功能是管理人員通過(guò)編輯記錄和查詢記錄來(lái)實(shí)現(xiàn)對(duì)員工信息的瀏覽，添加，修改，刪除等功能。 圖 56 醫(yī)師信息表單截圖 創(chuàng)建工資信息瀏覽編輯表單 此表單可以刪除需要?jiǎng)h除的記錄，添加新記錄，便于對(duì)工資信息的修改，解決由于醫(yī)師的工作變動(dòng)而帶來(lái)的工資信息管理麻煩。 圖 57 工資信息瀏覽編輯表單截圖 鼠標(biāo)右鍵點(diǎn)擊“請(qǐng)選擇醫(yī)師編號(hào)”后的組合框，在彈出的快捷菜單中選擇“生成器”再選定工資信息表中的“醫(yī)師編號(hào)”字段，即可生成。其中表單中的表的生成方法類(lèi)似，使得工資信息能在表單中完全顯示。 圖 58 組合框生成器截圖 “刪除記錄“控件的代碼 Select 工資信息 If MessageBox(是否刪除該記錄 ,32+1+256,系統(tǒng)信息 )==1 Delete Pack Endif go top “添加記錄“控件的代碼 append blank amp。amp。在表中追加一條新記錄 amp。amp。刷新表單 “撤 消“控件的代碼 ?? CHR(7) result=MessageBox(是否退出本系統(tǒng) ?,4+32+256,信息 ) IF result=6 ENDIF 創(chuàng)建工資信息查詢表單 查詢是系統(tǒng)的最基本而有很重要的一個(gè)功能，能讓用戶方便快捷、多角度地得知想查找的信息。 本系統(tǒng)能快速瀏覽瀏覽醫(yī)師工資信息的基本情況。在查詢時(shí)只要選擇相應(yīng)的查詢條件，然后單擊“查詢”，系統(tǒng)將會(huì)自動(dòng)給出顯示記錄。 圖 59 工資信息查詢表單截圖 locate all for =工資信息 .醫(yī)師編號(hào) =工資信息 .醫(yī)師編號(hào) =工資信息 .基本工資 =工資信息 .崗位工資 =工資信息 .津貼 =工資信息 .扣所得稅 =工資信息 .實(shí)發(fā)工資 “第一個(gè)記錄“控件的代碼 go top =.t. =.t. =.t. =.t. “上一個(gè)記錄”控件的代碼 skip1 =.t. =.t. =.t. if bof() =.f. else =.t. endif =.f. else =.t. =.t. =.t. =.t. endif “尾記錄”控件的代碼 go bottom =.t. =.t. =.t. =.t. “退出”控件的代碼 ?? CHR(7) result=MessageBox(是否退出本系統(tǒng) ?,4+32+256,信息 ) IF result=6 ENDIF 設(shè)計(jì)工資統(tǒng)計(jì)表單 此表單可以統(tǒng)計(jì)出所發(fā)放的所有工資的總額。 “總工資統(tǒng)計(jì)“控件的代碼： Select 工資信息 JFZS=() If ”” then Sum 實(shí)發(fā)工資 for 醫(yī)師編號(hào) =“” +Alltrim()+”” to JFZS Else Sum 實(shí)發(fā)工資 to JFZS Endif =JFZS 圖 510 工資統(tǒng)計(jì)表單截圖 菜單的設(shè)計(jì) 如下圖所示在菜單設(shè)計(jì)器中建立“主菜單”，并編輯子菜單。 圖 511 主菜單設(shè)計(jì)器截圖 編輯完菜單后，需要先生成該菜單，然后運(yùn)行該菜單的程序，運(yùn)行之后會(huì)得到如下圖所示的菜單。通過(guò)該菜單可以直接進(jìn)到鏈接上的表單或報(bào)表中，其中“退出系統(tǒng)”可以返回和退出 VFP 系統(tǒng)。 圖 512 主菜單運(yùn)行后所得的菜單截圖 報(bào)表設(shè)計(jì) 利用報(bào)表向?qū)Ы⑨t(yī)師信息報(bào)表 .frt、醫(yī)師工資報(bào)表 .frt 和醫(yī)師及工資息 .frt。 圖 513 醫(yī)師信息報(bào)表 以報(bào)表的形式對(duì)員工的有關(guān)信息和工資狀況有關(guān)人員提供瀏覽查看服務(wù)，方便打印輸出醫(yī)師基本信息、工資信息，醫(yī)師及工資信息。 建立項(xiàng)目 將本系統(tǒng)所涉及的數(shù)據(jù)庫(kù)、表 、表單、報(bào)表、程序等全部添加到該項(xiàng)目中，便于管理。 圖 514 醫(yī)師工資信息管理項(xiàng)目截圖 建立主程序 一個(gè)完整的 Visual Foxpro 應(yīng)用系統(tǒng)一般應(yīng)由數(shù)據(jù)庫(kù)（包括組成數(shù)據(jù)庫(kù)的表）、菜單、表單、報(bào)表文件和主程序（或主表單）組成。 在上圖所建的項(xiàng)目中新建程序如下圖，并將其作為系統(tǒng)的主程序。 圖 515 主程序截圖 在對(duì)一個(gè)應(yīng)用程序創(chuàng)建了主程序和進(jìn)行了環(huán)境參數(shù)設(shè)置之后，可以對(duì)系統(tǒng)進(jìn)行連編。連編應(yīng)用程序可以編譯系統(tǒng)中存在的一切程序，在一切程序通過(guò)連編之后，生成一個(gè)可執(zhí)行文件。在項(xiàng)目管理器中單 擊“連編”按鈕進(jìn)入編譯狀態(tài)完成。 第 6 章 系統(tǒng)評(píng)價(jià) 系統(tǒng)的特點(diǎn) 本系統(tǒng)所涉及的功能能夠?qū)崿F(xiàn)對(duì)員工基本
環(huán)評(píng)公示相關(guān)推薦
鄂ICP備17016276號(hào)-1