人事檔案管理軟體除錯
子程式設計
調入職工程式:modi ***m dr.prgset talk off
use rs
pd='y'
do while pd='y'
append blank
clear
@8,55 say '人事檔案登記表' font '黑體',11@10,30 say repl('-',65)@11,32 say '姓名:' get 姓名@11,52 say '性別:' get 性別@11,72 say '出生日期:
' get 出生日期@13,32 say '是否黨員:' get 是否黨員@13,52 say '學歷:' get 學歷@13,72 say '系別:
' get 系別@15,32 say '職稱:' get 職稱@15,52 say '職務:' get 職務@15,72 say '工資:
' get 工資@16,30 say repl('-',65)@18,70 say '是否繼續錄入檔案(y/n):' get pdread
enddo
usereturn
調出職工:modi ***m. dc.prgset talk off
use rs
clear
pd='y'
do while pd='y'
xm=space(8)
@6,30 say '請輸入職工姓名:' get xmread
loca for 姓名=xm
if .not. found()
wait '查無此人,請重新輸入姓名!'
loop
endif
@8,55 say '人事檔案登記表' font '黑體',11@10,30 say repl('-',65)@11,32 say '姓名:'+姓名
@11,52 say '性別:'+性別
@11,72 say '出生日期:'+dtoc(出生日期)if 是否黨員
dy='是'
else
dy='非'
endif
@13,32 say '是否黨員:'+dy@13,52 say '學歷:'+學歷
@13,72 say '系別:'+系別
@15,32 say '職稱:'+職稱
@15,52 say '職務:'+職務
@15,72 say '工資:'+str(工資,8,2)@16,30 say repl('-',65)delete
@18,70 say '是否繼續調出檔案(y/n):' get pdread
enddo
pack
usereturn
檔案變動:modi ***m. bd.prgset talk off
use rs
clear
pd='y'
do while pd='y'
xm=space(8)
@6,30 say '請輸入職工姓名:' get xmread
loca for 姓名=xm
if .not. found()
wait '查無此人,請重新輸入姓名!'
loop
endif
@8,55 say '人事檔案登記表' font '黑體',11@10,30 say repl('-',65)@11,32 say '姓名:' get 姓名@11,52 say '性別:' get 性別@11,72 say '出生日期:
' get 出生日期@13,32 say '是否黨員:' get 是否黨員@13,52 say '學歷:' get 學歷@13,72 say '系別:
' get 系別@15,32 say '職稱:' get 職稱@15,52 say '職務:' get 職務@15,72 say '工資:
' get 工資@16,30 say repl('-',65)@18,70 say '是否繼續變動檔案(y/n):' get pdread
enddo
usereturn
檔案檢索:modi ***m js.prgset talk off
use rs
clear
pd='y'
do while pd='y'
xm=space(8)
@6,30 say '請輸入職工姓名:' get xmread
loca for 姓名=xm
if .not. found()
wait '查無此人,請重新輸入姓名!'
loop
endif
@8,55 say '人事檔案登記表' font '黑體',11@10,30 say repl('-',65)@11,32 say '姓名:'+姓名
@11,52 say '性別:'+性別
@11,72 say '出生日期:'+dtoc(出生日期)if 是否黨員
dy='是'
else
dy='非'
endif
@13,32 say '是否黨員:'+dy@13,52 say '學歷:'+學歷
@13,72 say '系別:'+系別
@15,32 say '職稱:'+職稱
@15,52 say '職務:'+職務
@15,72 say '工資:'+str(工資,8,2)@16,30 say repl('-',65)@18,70 say '是否繼續檢索檔案:(y/n)' get pdread
enddo
usereturn
選單程式:modi ***m. rs.prgset talk off
do while .t.
clear
@6,38 say '人事管理軟體'
@8,35 say repl('-',20)@9,40 prom '調入職工'
@11,40 prom '調出職工'
@13,40 prom '檔案變動'
@15,40 prom '檔案檢索'
@17,40 prom '結束'
@19,35 say repl('-',20)menu to pd
do case
case pd=1
do dr
case pd=2
do dc
case pd=3
do bd
case pd=4
do js
case pd=5
return
endcase
enddo
程式設計人事管理系統需求分析報告
第一部分 慨述 1.專案名稱及背景 專案名稱 人事管理系統 開發背景 2.文件說明 詳細說明本人事管理系統應具備的業務功能。技術人員開發程式的依據,指導後續的概要設計 詳細設計和資料結構設計。第二部分 任務說明 1.需求總覽 公司需要開發一套人事管理系統,以實現企業資源的資訊化 標準化管理,全面提高...
人事勞資管理軟體的開發和應用
本文由3sd5l134ph貢獻 pdf文件可能在wap端瀏覽體驗不佳。建議您優先選擇txt,或 原始檔到本機檢視。一鄭州紡織工學院學報 第 卷第 期 年 月 人事勞資管理軟體的開發和應用 吳翔勝 事處 人摘要 本文對人事勞資管理軟體的結構 點及其功能作 較詳細的闡述 時對鄭州特同紡織 學院人事勞資管...
考勤管理軟體
考勤管理軟體的介紹 校管家 考勤管理是所有公司團體以及教務管理所不可或缺的部分,作為資訊現代化的今天,靠人力考勤的時代已經成為過去。考勤管理軟體是企業管理中非常重要的一環。作為公司主管考勤的人員能夠通過考勤管理系統清楚的看到公司員工編號,姓名,部門以及加班 出差以及是否遲到 請假 曠到等諸多資訊。還...