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