【正文】 Emp_teleno Number(10) NULL 聯(lián)系電話 Emp_ Varchar2(20) NULL 聯(lián)系 Email 地址 Job_id Number(3) NULL 工作崗位代號(hào)（外部鍵），指向工作崗位情況表的 Job_i 表 5 Dept 部門(mén)信息表 列名 數(shù)據(jù)類(lèi)型 可否為空 說(shuō)明 Dept_id Number(3) NOT NULL 部門(mén)代號(hào) （主鍵） Dept_name Varchar2(10) NULL 部門(mén)名稱(chēng) Dept_desc Varchar2(30) NULL 部門(mén)職能描述 Dept_manager Number(6) NULL 部門(mén)經(jīng)理代號(hào)（外部鍵），指向員工基本情況表的 Emp_no 14 Dept_vicemanager Number(6) NULL 部門(mén)副經(jīng)理代號(hào)（外部鍵），指向員工基本情況表的 Emp_no 三、 模塊分述及窗口 主窗口： 、登錄（身份驗(yàn)證） 檢測(cè)用戶是否為合法的用戶，若是則能進(jìn)入本系統(tǒng)， 否則認(rèn)為是非法的用戶，不允許進(jìn)入本系統(tǒng)，只有取得用戶名和密碼才可進(jìn)入。系統(tǒng)功能基本運(yùn)行良好，且用戶界面友好，操作簡(jiǎn)單，使用方便。其中數(shù)據(jù)窗口中導(dǎo)入的數(shù)據(jù)表為 (d_basic),代碼如下： w_insert_basicopen() (sqlca) () cb_1clicked() //插入 long row_number () row_number=insertrow(,0) cb_2clicked() //刪除 long current_rownumber current_rownumber=() deleterow(,current_rownumber) cb_3clicked() //確認(rèn) if update(,true,false)=1 then () mit。 else rollback。++39。++39。++39。++39。++39。++39。++39。++39。++39。++39。++39。++39。++39。++39。++39。++39。 else rollback。 messagebox(錯(cuò)誤?。?！ ,數(shù)據(jù)保存失敗 ) end if cb_4clicked() //退出 int mcount int updateornot mcount=() if mcount=0 then close(w_insert_basic) elseif mcount0 then updateornot=messagebox(保存修改 ,您修改了數(shù)據(jù)窗口中的數(shù)據(jù)，現(xiàn)在是否保存？,Question!,YesNoCancel!) if updateornot=1 then if update(,true,false)=1 then () mit。設(shè)計(jì)中我遇到了許多困難，在老師和同學(xué)們的幫助下我還是克服了。其中有一部分內(nèi)容是必須填寫(xiě)的，如果不填寫(xiě)，則系統(tǒng)不保存，系統(tǒng)會(huì)提示用戶。 、輸入模塊的功能 在本模塊中，可以輸入員工的基本信息、學(xué)歷信息、婚姻狀況、工作崗位信息、企業(yè)部門(mén)信息。 、使用幫助。 、系統(tǒng)應(yīng)符合企業(yè)人事管理的規(guī)定，滿足企業(yè)日常人事管理工作需要，并達(dá)到操作過(guò)程中的直觀、方便、實(shí)用、安全等要求。下面章節(jié)將詳細(xì)介紹本系統(tǒng)的設(shè)計(jì)過(guò)程。 人事管理系統(tǒng)是現(xiàn)代企業(yè)管理不可缺少的一部分，是適應(yīng)現(xiàn)代企業(yè)制度要求、推動(dòng)企業(yè)勞動(dòng)人事管理走向科學(xué)化、規(guī)范化的必要條件。 Input the various informations that modular is used in inputing employee mainly。并且，此軟件能夠 改變傳統(tǒng)的、落后的管理形式，提高管理的效率和企業(yè)的競(jìng)爭(zhēng)力，使企業(yè)能夠?yàn)橄蚋邔哟伟l(fā)展創(chuàng)造了有利條件。 Form modular is used in printing the information information of employee and enterprise mainly。此外，人事管理系統(tǒng)還需要數(shù)據(jù)庫(kù)維護(hù)功能，及時(shí)根據(jù)用戶需求進(jìn)行數(shù)據(jù)的添加、刪除、修改、備份等操作。 、 支持企業(yè)實(shí)現(xiàn)規(guī)范化、高效率的管理。 開(kāi)發(fā)和運(yùn)行環(huán)境選擇 6 本系統(tǒng)軟件可以在大多數(shù)的 Windows x下運(yùn)行使用。隨著計(jì)算機(jī)行業(yè)發(fā)展 ,到今天產(chǎn)生了第四代 編程語(yǔ)言即面向?qū)ο蟮目梢暬幊陶Z(yǔ)言。 、查看模塊的功能 員工的各種信息進(jìn)行瀏覽，查看某位員工的信息，通過(guò)某些條件進(jìn)行查詢(xún)。 、報(bào)表模塊的功能 打針?biāo)枰膯T工的信息。代碼如下： w_loginopen() environment l_env int l_scrwidth,l_scrheight setredraw(false) getenvironment(l_env) l_scrwidth=pixelstounits(,xpixelstounits!) l_scrheight=pixelstounits(,ypixelstounits!) move((l_scrwidth )/2,(l_scrheight )/2) setredraw(true) cb_1clicked() //確認(rèn) int g_input_time=0 if =a and =1 then open(w_main) close(w_login) messagebox(,歡迎進(jìn)入本系統(tǒng) ) else messagebox(警告 , 輸入用戶口令有誤，請(qǐng)重新輸入 ) end if cb_2clicked() //取消 close(w_login) ******************************************************************* （三）、主窗口 (w_main)： 由一個(gè)圖片控件 (“Create Picture control”)組成。 close(w_insert_basic) end if end if ******************************************************************* （五）、維護(hù)中的五個(gè)窗口基本相同只寫(xiě)其中一個(gè)。 學(xué)歷信息瀏覽窗口（ w_browse_school)： 由一個(gè)靜態(tài)文本框 (Create StaticText control1）、一個(gè)數(shù)據(jù)窗口控件（“ Create DateWindow control) 和五 個(gè)按鈕（ CommandButton) 組成。 elseif =國(guó)籍 then lookforitem1=emp_country lookforwhat1=39。 elseif =政治面貌 then lookforitem1=emp_zzmm lookforwhat1=39。 elseif =部門(mén)號(hào) then lookforitem2=emp_id lookforwhat2= elseif =性別 then lookforitem2=emp_gender lookforwhat2=39。 elseif =身份證號(hào) then lookforitem2=emp_id lookforwhat2= elseif =婚姻狀況 then lookforitem2=emp_marriage lookforwhat2=39。 elseif =電話 then lookforitem2=emp_teleno lookforwhat2= elseif =工作種類(lèi) then lookforitem2=job_id lookforwhat2=39。 elseif =國(guó)籍 then lookforitem3=emp_country lookforwhat3=39。 elseif =政治面貌 then lookforitem3=emp_zzmm lookforwhat3=39。代碼如下： w_browseopen() (sqlca) () cb_1clicked() //保存報(bào)表 string pathname,filename int saveornot saveornot=GetFileSaveName(保存文件 ,pathname,filename,xls,Excel 文件 ,*.xls) if saveornot=1 then (D:\temp\pb\,excel!,false) end if cb_2clicked() //打印報(bào)表 () () () cb_3clicked() //退出 close(w_posite) 31