學(xué)校工資管理系統(tǒng)(編輯修改稿)
2025-09-02 19:24 本頁(yè)面
【文章內(nèi)容簡(jiǎn)介】 錄表單驗(yàn)證用戶是否合法。只有合法的用戶才可進(jìn)入系統(tǒng)。本模塊是系統(tǒng)的封面表單，運(yùn)行時(shí)將通過(guò)此表單調(diào)用主控模塊，進(jìn)而管理整個(gè)工資管理系統(tǒng)。系統(tǒng)登錄模塊運(yùn)行結(jié)果。如圖42所示。圖42用戶登陸28 表單的設(shè)計(jì)表單form的屬性Autocenter 改為：.（運(yùn)行時(shí)居中） BorderStyle 改為：2固定對(duì)話框（禁止更改表單大小）Showtips 改為：.T. –真（指定表單上的控件等是否顯示提示信息）ShowWindow 改為 ：2作為頂層表單在表單的 Form_Load 事件下添加如下代碼：PUBLIC USERNAME(2)USERNAME(1)=39。超級(jí)用戶39。USERNAME(2)=39。普通用戶39。登陸系統(tǒng)Command1_Click事件代碼：STORE 39。39。 TO MYUSER,P1,P2,P3MYUSER=P1=ALLTRIM()P2=LEFT(ALLTRIM(TIME()),2)+SUBSTR(ALLTRIM(TIME()),4,2)P3=ALLTRIM(STR(YEAR(DATE())))IF MYUSER=USERNAME(1) IF P1=P3 do form gzgl ELSE =MESSAGEBOX(超級(jí)用戶密碼錯(cuò)誤,請(qǐng)?jiān)僭囈槐?,65,39。提示信息39。) ENDIFELSE IF P1=P2 do form gzgl ELSE =MESSAGEBOX(普通用戶密碼錯(cuò)誤,請(qǐng)?jiān)僭囈槐?,65,39。提示信息39。) ENDIFENDIF 系統(tǒng)主菜單設(shè)計(jì)A． 在“項(xiàng)目管理器”窗口中，選擇“其他”選項(xiàng)卡B． 在“其他”選項(xiàng)卡中，選擇“菜單”，“新建”，“菜單”，系統(tǒng)進(jìn)入“菜單設(shè)計(jì) 器”窗口，如圖43所示。圖43系統(tǒng)菜單設(shè)計(jì)器退出過(guò)程相應(yīng)代碼：byebye=messagebox(真的要退出系統(tǒng)嗎?,64+1,提示信息)if byebye=1 close all clear events quit endif要注意的是，要在設(shè)計(jì)菜單結(jié)束后，選擇主菜單上的“顯示”菜單下的“常規(guī)選項(xiàng)”命令，再選擇頂層表單復(fù)選框。然后保存文件，再選擇生成菜單選項(xiàng)。 系統(tǒng)主控表單設(shè)計(jì)主控表單用來(lái)調(diào)用系統(tǒng)菜單，以形成對(duì)整個(gè)工資管理系統(tǒng)的控制與管理。運(yùn)行結(jié)果。如圖44所示。圖44系統(tǒng)主控表單本表單form的屬性需做相應(yīng)設(shè)置：Show window=2Windowstate=2Showtips=.t.Form 表單中的load事件代碼為Do with this ,.t. 工資錄入表單設(shè)計(jì)工資錄入模塊是用來(lái)錄入工資記錄的，在具體操作時(shí)有些數(shù)據(jù)需要自動(dòng)生成。運(yùn)行結(jié)果，如圖45所示。圖45工資錄入表Form1表單的屬性如下：Autocenter=.t.Showwindow=1相應(yīng)事件代碼設(shè)置：Txt應(yīng)發(fā)工資的 Click 和gotfocus的代碼如下：with =.+.+.+.+.+.endwithTxt合計(jì)扣款的 Click 和gotfocus的代碼如下：with =.+.endwithTxt實(shí)發(fā)工資的 Click 和gotfocus的代碼如下：with =. endwithtxt 所得稅、txt實(shí)發(fā)現(xiàn)金的代碼與其類似略去。各個(gè)按鈕的功能比較簡(jiǎn)單，在此略去。 工資瀏覽表單設(shè)計(jì)本表單用來(lái)對(duì)多個(gè)記錄進(jìn)行瀏覽，運(yùn)行結(jié)果，如圖46所示。圖46工資瀏覽此表單功能較簡(jiǎn)單，其中所用控件代碼，在此省略。 工資修改表單設(shè)計(jì)此表單由頁(yè)框控件組成，該頁(yè)框由四個(gè)頁(yè)面組成。第一個(gè)頁(yè)面：對(duì)查找滿足條件的記錄進(jìn)行修改圖471對(duì)滿足條件的記錄修改第二個(gè)頁(yè)面：將已查找的記錄顯示在屏幕上，進(jìn)行修改，即單個(gè)記錄的修改圖472對(duì)已找到的記錄進(jìn)行修改第三個(gè)頁(yè)面：批量修改已滿足條件的記錄，也可以修改某一字段的內(nèi)容。圖473批量修改第四個(gè)頁(yè)面：瀏覽式修改記錄，在列表框中選擇一個(gè)記錄，在屏幕上顯示選定記錄的內(nèi)容，可以修改記錄。圖474瀏覽式修改text1_Interactivechange事件代碼：set exact offGETzgh1=ALLTRIM()GETxm1=ALLTRIM()GETrq1=s=39。39。if len(getzgh1)0 s=s+39。職工號(hào)=GETZGH139。endifif len(getxm1)0 s=s+39。.and.39。+39。姓名=GETXM139。endifif GETRQ1{//} s=s+39。.and.39。+39。DTOC(日期)=DTOC(GETRQ1)39。endifif left(s,5)=39。.and.39。.(S,5)=39。.AND.39。 s=sub
教學(xué)教案相關(guān)推薦
鄂ICP備17016276號(hào)-1