freepeople性欧美熟妇, 色戒完整版无删减158分钟hd, 无码精品国产vα在线观看DVD, 丰满少妇伦精品无码专区在线观看,艾栗栗与纹身男宾馆3p50分钟,国产AV片在线观看,黑人与美女高潮,18岁女RAPPERDISSSUBS,国产手机在机看影片

正文內(nèi)容

職工工資管理系統(tǒng)論文x(編輯修改稿)

2024-10-14 10:50 本頁面
 

【文章內(nèi)容簡介】 atebase\。在彈出的表設(shè)計(jì)器中填寫表的內(nèi)容,如圖 16 所示。 9 圖 16 設(shè)計(jì)表的內(nèi)容 與 表 16 比較,可以發(fā)現(xiàn)表的字段名就是列名。要注意的是在以后的編寫程序中對數(shù)據(jù)庫的數(shù)據(jù)的操作通常是引用表的字段,因此在設(shè)計(jì)字段是要挑選容易理解的名稱。 字段設(shè)置完成后,單擊“確定”按鈕后為表輸入數(shù)據(jù)。 各個功能模塊的創(chuàng)建 經(jīng)過前面對系統(tǒng)功能的分析,我們將企業(yè)工資管理系統(tǒng)分為 4 個模塊:系統(tǒng)主界面、員工信息管理、工資基本設(shè)定和工資匯總。 為了讓使用者有一個輕松操作的界面,系統(tǒng)的主界面設(shè)計(jì)要求界面友好、功能分塊明確、美觀大方。下面將以主界面的設(shè)計(jì)為例,仔細(xì)講解表單的創(chuàng)建。 首先, 展開項(xiàng)目管理器中的文檔,選中表單,單擊右側(cè)“新建”按鈕。如圖 17 所示。 10 圖 17 新建表單 在彈出的對話框中單擊“新建”按鈕后,會彈出“表單設(shè)計(jì)器”的界面,如圖 18 所示。 圖 18 為設(shè)計(jì)的表單 可以根據(jù)界面的需要向其中添加控件如圖 19 所示。 11 圖 19 向表單中添加控件 更改各個控件的屬性值為所屬值,各更改值見表 17。 表 17 控件屬性更改值 控件 Caption Alignment Picture Stretch Form1 企業(yè)工資管理系統(tǒng) Label1 歡迎使用 2中央 Command 員工基本信息 Command 員工基本設(shè)定 Command 工資匯總 Command 個人工資設(shè)定 Command 退出 Image1 D:\salary\ 2變比填充 Caption屬性表示控件的顯示名,是為了使用者方便特意設(shè)計(jì)的名稱, 為一些常用的提示信息。 Alignment為控件中 Caption的位置狀態(tài),對于 Label(標(biāo)簽),有“ 0左(缺省)”、“ 1右”、“ 2中央”等 3種設(shè)置。另外,設(shè)置 Label的 Font(字體)和 Fontsize(字體大小)屬性可以改變 Caption顯示的字體及大小。 在 Picture中可以把控件的界面設(shè)為圖象,以便使用者能更形象地使用所開發(fā)的軟件。對應(yīng) Image(圖象)控件,則表示顯示在其中的圖象。其屬性值應(yīng)為要顯示的圖象的路徑和文件名。并應(yīng)設(shè)置其 Streth屬性為“ 2變比填充”以使圖象能正確顯示。 更改之后的表單如圖 110所示。 12 圖 110 更改后的表單 要注意的是向容器中添加按鈕時候 ,必須先添加容器,然后在容器單擊鼠標(biāo)右鍵,選擇編輯,此時容器邊緣變?yōu)榫G色,表明此時容器正處于編輯狀態(tài)。此時添加按鈕到容器中才能是按鈕真正處于容器中,如果直接添加,則按鈕實(shí)際上處于與容器同一層次上。 可以通過查閱表單的結(jié)構(gòu)層次來理解,如圖 111所示 圖 111 表單中的控件的結(jié)構(gòu) 控件添加結(jié)束后,表單并未完成設(shè)計(jì),此時的表單運(yùn)行后會發(fā)現(xiàn)只有一個空殼,單擊其中的按鈕沒 有任何反應(yīng)。因此,此時需要為表單設(shè)計(jì)事件響應(yīng)。 選中 Command1(按鈕 1),雙擊后彈出控件“方法程序”對話框,如圖 112所示 . 13 圖 112 為控件Command1 設(shè)置Click 事件程序 填寫代碼如下: Do from salary\form\personnel *打開下級表單 pensonnel..scx, salary\form\personnel為 它的路徑 對 Command2(按鈕 2)、 Command3(按鈕 3)、 Command4(按鈕 4)、 Command5(按鈕 5)、進(jìn)行同樣的操作。 Command2 的 Click 代碼為: do form salary\form\dataformat *打開下級表單 dateformat Command3 的 Click 代碼為: do form salary\form\result *打開下級表單 result Command4 的 Click 代碼為: do form salary\form\grcx *打開下級表單 grect Command5 的 Click 代碼為: clear events *釋放表單,結(jié)束程序 為了使表單更富動感,這 里設(shè)計(jì)了一個閃爍效果,閃爍的對象為“ Label”。 選擇 Timer(記時器)控件,雙擊后填寫其 Timer 的事件代碼: if i=0 =.F. *使 Label1 不可見 i=1 else =.T. *使 Label1 可見 i=0 endif 設(shè)置 Timer的 Interval屬性為“ 750”。其作用是控制 Timer的執(zhí)行間隔時間,單位為 ms。既是每隔 Timer控件的 Timer事件。應(yīng)用類型的方法還可 以隨時間推移轉(zhuǎn)變Image1控件里的圖像。 14 注意 Timer事件代碼中使用了變量 i來控制,因此應(yīng)先聲明該變量。為表單的 Init事件添加代碼: Public i i=0 *聲明全局變量 i 到此為止,本程序的主界面已設(shè)計(jì)完成,記住要儲存為“ D:\salary\form\”,以后設(shè)計(jì)的表單都會放在“ D:salary\form”目錄下,以便其他程序員管理。接下來進(jìn)入其他表單的設(shè)計(jì)。 本模塊包含的功能有:員工信息瀏覽、增加刪除修改員工記錄、根據(jù)查詢條件查詢員工記錄、顯示查詢 結(jié)果。要實(shí)現(xiàn)的功能較多,一個表單不可能容納下所有空件,所以需要使用表單集或頁框。這里使用頁框來實(shí)現(xiàn)。 新建表單 Personal,存儲 ”D:\salary\form\”。直接拉伸表單至合適大小。向表單中加入控件,如圖 113 所示 圖 113 表單的基本控件 本表單需要對數(shù)據(jù)庫中的表進(jìn)行操作,因此必須將該表加入到表單的數(shù)據(jù)環(huán)境中。在表單中單擊鼠標(biāo)右鍵,選擇 ”Date Enviroment”(數(shù)據(jù)環(huán)境),在彈出的對話框中添加需要的表,如本表需要添 加表 ”Personnel”。 1.“一覽”子頁面的設(shè)計(jì) 將表單數(shù)據(jù)環(huán)境中的表 ”Personnel”的字段添加到表單中,如圖 114 所示。 15 圖 114 推拽字段到表單中 注意,此時添加到表單的字段處于與頁框同一層次,將其添加到頁框的子頁面 1 種,對頁框的操作方法與容器類似。 向子頁面 1 中添加控件,如圖 115 所示。 圖 115 子頁面 1 控件 下面列出更改值,如圖表 18 所示 控件屬性更改值表 控件 Caption Alignment PageCount FontSize Form1 員工信息 Label1 員工信息 2中央 Page1 一覽 3 華文彩云 Command1 增加新記錄 Command2 修改這條記錄 Command3 刪除這條記錄 Command4 取消操作 16 Command5 退出 如圖 115所示,該頁面使用了,“類”,在 Visual FoxPro 中使用類可以大大節(jié)省開發(fā)時間,簡化系統(tǒng)的設(shè)計(jì)工作,并方便系統(tǒng)的維護(hù)和修改。如圖 116 位添加的類 —— 導(dǎo)航條。 圖 116 查詢子頁面 該導(dǎo)航條包含 4 個基本功能。 ●“上一個”按鈕使記錄后退一個; ●“第一個”按鈕使記錄后退至表首; ●“下一個”按鈕使記錄前進(jìn); ●“最后一個”按鈕使記錄前進(jìn)至表尾; 下面給出按鈕的 Click 事件代碼。 按鈕“上一個”的 Click 事件代碼: Skip 1 *記錄向后退一個 If bof() *判斷是否為第一個記錄,如是, bof()返回“真”( .T.) Messagebox(" 已是第一個記錄 "," 48"," 信息窗口 ") =.f. =.f. skip else =.t. =.t. endif =.t. =.t. *根據(jù)實(shí)際情況給出各個按鈕的狀態(tài) 17 在按鈕“第一個”的 Click 事件中輸入如下 代碼: goto top =.f. =.t. =.t. *根據(jù)實(shí)際情況給出各個按鈕的狀態(tài) 在按鈕“下一個”的 Click 事件中輸入如下代碼: Skip If eof() *判斷是否最后一個記錄,如是, eof()返回“真”( .T.) Messagebox(" 已是最后一條記錄 " ," 48" ," 信息窗口 ") skip 1 =.f. =.f. else =.t. =.t. endif =.t. =.t. *根據(jù)實(shí)際情況給出各個按鈕的狀態(tài) 在按鈕“最后一個”的 Click 事件如 下代碼: goto bottom =.f. =.t. =.t. *根據(jù)實(shí)際情況給出各個按鈕的狀態(tài) 為保證表中的數(shù)據(jù)不被誤操作修改,請將頁面中的各文本框的“ Enabled”屬性設(shè)為“ .F.”。按鈕“取消操作”的“ Enabled” 屬性設(shè)為“ .F.”。 為“增添新記錄”添加 Click 事件代碼: =.F. *使導(dǎo)航條不可用 =.F. *使“修改”按鈕不可用 =.F. *使“刪除”按鈕不可用 =.T. *使“取消”按鈕可用 if =39。增加新記錄 39。 =.T. =.T. 18 =.T. =.T. =.T. =.T. *使各文本框可用 append blank *添加空行到表的末尾 =39。增加確認(rèn) 39。 *將本控件的 Caption 更改為“增加確認(rèn)” *刷新本頁面 *將鼠標(biāo)焦點(diǎn)設(shè)定到文本框 1 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,錯誤 ) 如果錯誤,彈出提示對話框 else =39。增加新記錄 39。 *將本控件的 Caption 更改為“增加新記錄” tableupdate(.t.) *表單的更改確認(rèn) tableupdate(.t.) =.F. =.F. =.F. =.F. =.F. =.F. =.T. =.T. =.T. =.F. *恢復(fù)本子頁面的各控件的狀態(tài) endif endif 上段代碼的功能是添加一個新的員工的信息到數(shù)據(jù)庫中。 19 為“修改這條記錄”按鈕添加 Click 事件代碼: =.F. *使“增加”按鈕不可用 =.F. *使“刪除”按鈕不可用 =.T. *使“取消”按鈕可用 =.F. *使導(dǎo)航條可用 if =39。修改這條記錄 39。 =.T. =.T. =.T. =.T. =.T. =.T. =39。修改確認(rèn) 39。 *文本框 1 獲得鼠標(biāo)焦點(diǎn) else =39。修改這條記錄 39。 tableupdate(.t.) *更改確認(rèn) =.F. =.F. =.F. =.F. =.F. =.F. =.T. =.T. =.F. =.T. *恢復(fù)本子頁面各控件狀態(tài) endif 上段代碼的功能是修改一個員工的信息并更新到數(shù)據(jù)庫中。 為“刪除這條記錄”按鈕添加 Click 事件代碼: getid=alltrim() *獲得輸入的 id 信息 =39。39。 =39。39。 =39。39。 =39。39。 =39。39。 20 =39。39。 *先將表單中數(shù)據(jù)源斷開 use personnel exclusive *以獨(dú)占方式打開 set order to pid seek getid delete pack =39。39。 =39。39。 =39。39。 =39。39。 =39。39。 =39。39。 *將數(shù)據(jù)源重新接上 =.F. =.F. =.F. =.F. =.F. =.F. *設(shè)定各文本款為不可用,防止 bug出現(xiàn) *本刪除操作不可取消 上段代碼的功能是刪除一個員工的信息。
點(diǎn)擊復(fù)制文檔內(nèi)容
公司管理相關(guān)推薦
文庫吧 www.dybbs8.com
備案圖片鄂ICP備17016276號-1