山東中煙養老金申報系統的研究和開發

摘 要：近年來山東省勞動廳把信息自動化建設作為它的一項主要工作來抓，從退休審批到養老金發放的每個過程都實現了計算機管理。申報系統根據山東省社保局核心平臺的特點用Foxpro9.0開發，可以方便的實現人員基本信息瀏覽編輯、信息查詢、人員增減申報、養老金申報、待遇調整、與社保局核心平臺對接等功能。

關鍵詞：核心平臺；Visual FoxPro9.0；養老金申報

中圖分類號：TP文獻標識碼：A文章編號：1672-3198（2008）12-0339-02

1 程序主界面

主界面工具欄中包含“綜合管理”、“試用工具”、“系統管理”、“信息維護”、“版權幫助”等功能。

2 主窗口模塊

（1）窗口布局。

（2）主窗口ini事件代碼。

DO 程序菜單.mpr WITH this，.t.主程序菜單初始化。

3 登錄模塊

（1）登錄界面。

（2）“確定”按鈕click代碼。

**點擊確定按鈕程序調用mmjm2（）子函數來辨別輸入的用戶名和密碼是否正確 

LOCATE FOR M1=DM

IF !FOUND（）

N=N+1

IF N<3

MESSAGEBOX（\"無此用戶名或用戶名錯誤，請重新輸入！\"，0+48+0，\"提示\"）

THISFORM.combo1.SETFOCUS

ENDIF

ELSE

IF !ALLTRIM（KL）=mmjm2（m2）

N=N+1

IF N<3

MESSAGEBOX（\"密碼錯誤，請重新輸入！\"，0+16，\"系統提示：\"）

THISFORM.text2.SETFOCUS

ENDIF

ELSE 

modify window screen title \"養老金申報（單機版 V3.2.2）\"+\"使用用戶：\"+THISFORM.combo1.value

do form main.scx

thisform.release

ENDIF

ENDIF 

IF N=3

MESSAGEBOX（\"你嘗試的次數太多，系統將關閉！\"，0+16，\"系統提示：\"）

QUIT

ENDIF

4 實用工具模塊

實用工具菜單包含四個功能，主要實現申報情況統計、與社保局核心平臺對接功能：

DEFINE POPUP （a_menupops［3］） MARGIN RELATIVE SHADOW COLOR SCHEME 4

DEFINE BAR 1 OF （a_menupops［3］） PROMPT \"讀入新增人員（\\

DEFINE BAR 3 OF （a_menupops［3］） PROMPT \"情況統計（\\

DEFINE BAR 5 OF （a_menupops［3］） PROMPT \"批量減員（\\

DEFINE BAR 7 OF （a_menupops［3］） PROMPT \"接口程序（\\

…………

5 查詢模塊

查詢模塊使用的是foxpro9.0自帶的查詢類庫wizstyle.vcx，該類位于microsoft visual foxpro 9安裝目錄下。

6 數據恢復、備份模塊

（1）模塊界面。

（2）功能說明。

本模塊主要實現養老金數據庫的備份與恢復功能，每次申報結束后用備份功能對數據庫進行備份，在系統格式化、系統崩潰或者需要瀏覽以前的數據，用系統恢復功能可以將系統恢復到備份前的狀態。

本模塊代碼略。

7 與省社保局核心平臺接口模塊

本模塊主要針對省社保局核心平臺數據庫的特點進行設計，能夠實現與社保平臺的對接，方便將職工增減員的信息按照規定的格式導入省社保平臺。

（1）模塊界面。

（2）減員接口代碼。

SELE 基本信息

COUNT TO filename FOR 減員時間=系統時間1

IF filename<=0

MESSAGEBOX（\"本月無減員！\"，0+64，\"系統提示：\"）

RETURN

ELSE

COPY TO array array_1 FIELDS 個人編號，姓名，身份證號，死亡時間，單位名稱 FOR 減員時間=系統時間1

yy=GETDIR（\"\"，\"選擇上報文件保存目錄：\"，\"系統提示：\"）

IF EMPTY（yy）

RETURN

ENDIF

yy=yy+\"\\山東中煙\"+系統時間1+\"減員接口程序.dbf\"

COPY file 報盤模版_n2.dbf TO （yy）

USE （yy） IN 3

SELECT 3

APPEND FROM array array_1 FIELDS 個人編號，姓名，身份證號碼，死亡年月，死亡地點

MESSAGEBOX（\"減員接口數據文件編制完成！\"，0+64，\"系統提示：\"）

endif

8 離退休增減員申報模塊

（1）模塊界面。

（2） 模塊說明。

本模塊主要實現了增減員數據上報和接收、增減員花名冊打印和增減員查詢功能，下屬單位將職工的增減員情況錄入系統后，所有當月的增減員信息都會在本界面顯示，點擊相關的按鈕后完成增減員的申報并打印增減員花名冊。增減員查詢功能可以實現在年終社會保險基金清算，或在年初社平工資調整需要補發死亡職工一次性救濟費時方便查詢，只要在彈出的界面中輸入查詢的起始年月就可以查詢期間的增減員信息了。

9 報表打印模塊

在Visual Foxpro中可以通過OLE服務程序調用Microsoft Excel來進行報表輸出，這樣做的好處是可以允許用戶對生成的Excel報表再編輯，以及進行郵件傳遞等。常用的Excel控制語句見下表：

作用語句

建立Excel對象Oexl=creatobject（“excel.application”）

添加工作簿Oexl.workbooks.add

打開指定的工作簿Oexl.Workbooks.Open（“name.xls”） 打開name.xls文件

激活工作簿Oexl.worksheets（“sheet1”）.active激活sheet1工作簿

為單元格賦值Oexl.cells（1，1）.value=field

顯示Excel窗口Oexl.visible=.T.

關閉ExcelOexl.Quit

以下是打印報表的示例代碼：

eole=CREATEOBJECT（\"excel.application\"）

eole.workbooks.OPEN（“中煙減員花名冊.xls”）

eole.worksheets（\"減員花名冊\"）.ACTIVATE

GO TOP

FOR i=3 TO j1+2

eole.cells（i，1）.VALUE=i-2

eole.cells（i，2）.VALUE=\"'\"+個人編號

……

eole.cells（i，10）.VALUE=ALLTRIM（單位名稱）

SKIP

ENDFOR

eole.ActiveSheet.RANGE（sys_rang）.BORDERS.LineStyle=1

eole.cells（j1+3，8）.VALUE=\"合計減少\"

eole.cells（j1+3，8）.BORDERS.LineStyle=1

eole.cells（j1+3，9）.VALUE=j2

eole.cells（j1+3，9）.BORDERS.LineStyle=1

eole.VISIBLE=.T.

10 養老金申報模塊

（1）模塊界面。

（2）“上報數據”按鈕click代碼（部分）。

SELECT 基本信息

GO top

sys_mc=基本信息.單位名稱

申報時間=LEFT（DTOC（DATE（），1），6）

Filename=PUTFILE（\"保存文件名：\"，ALLTRIM（sys_mc）+ALLTRIM（申報時間）+\"全部發放數據\"，\"dbf\"）

IF EMPTY（filename）

RETURN

ENDIF

COPY TO （filename） FOR EMPTY（減員時間） TYPE FOXPLUS

MESSAGEBOX（\"上報數據已生成!\"，0+48+0，\"提示\"）