📄 main.mpr
字号:
* *
* * _1MI0Z373U ON SELECTION BAR 8 OF POPUP 人员管理
* *
* * Procedure Origin:
* *
* * From Menu: MAIN.MPR, Record: 37
* * Called By: ON SELECTION BAR 8 OF POPUP 人员管理
* * Prompt: 职工查询
* * Snippet: 18
* *
* *********************************************************
*
PROCEDURE _1mi0z373u
do form from\rycx.scx
* *********************************************************
* *
* * _1MI0Z373V ON SELECTION BAR 1 OF POPUP 工资管理
* *
* * Procedure Origin:
* *
* * From Menu: MAIN.MPR, Record: 40
* * Called By: ON SELECTION BAR 1 OF POPUP 工资管理
* * Prompt: 工资录入
* * Snippet: 19
* *
* *********************************************************
*
PROCEDURE _1mi0z373v
do form from\gzlu.scx
* *********************************************************
* *
* * _1MI0Z373Z ON SELECTION BAR 3 OF POPUP 工资管理
* *
* * Procedure Origin:
* *
* * From Menu: MAIN.MPR, Record: 43
* * Called By: ON SELECTION BAR 3 OF POPUP 工资管理
* * Prompt: 奖 金
* * Snippet: 20
* *
* *********************************************************
*
PROCEDURE _1mi0z373z
do form from\jiangjin.scx
* *********************************************************
* *
* * _1MI0Z3740 ON SELECTION BAR 4 OF POPUP 工资管理
* *
* * Procedure Origin:
* *
* * From Menu: MAIN.MPR, Record: 44
* * Called By: ON SELECTION BAR 4 OF POPUP 工资管理
* * Prompt: 补 贴
* * Snippet: 21
* *
* *********************************************************
*
PROCEDURE _1mi0z3740
do form from\butie.scx
* *********************************************************
* *
* * _1MI0Z3741 ON SELECTION BAR 6 OF POPUP 工资管理
* *
* * Procedure Origin:
* *
* * From Menu: MAIN.MPR, Record: 47
* * Called By: ON SELECTION BAR 6 OF POPUP 工资管理
* * Prompt: 工 资 查 询
* * Snippet: 22
* *
* *********************************************************
*
PROCEDURE _1mi0z3741
do form from\gzcx.scx
* *********************************************************
* *
* * _1MI0Z3742 ON SELECTION BAR 1 OF POPUP 信息统计
* *
* * Procedure Origin:
* *
* * From Menu: MAIN.MPR, Record: 50
* * Called By: ON SELECTION BAR 1 OF POPUP 信息统计
* * Prompt: 人员信息详情
* * Snippet: 23
* *
* *********************************************************
*
PROCEDURE _1mi0z3742
do form from\rycx.scx
* *********************************************************
* *
* * _1MI0Z3743 ON SELECTION BAR 3 OF POPUP 信息统计
* *
* * Procedure Origin:
* *
* * From Menu: MAIN.MPR, Record: 53
* * Called By: ON SELECTION BAR 3 OF POPUP 信息统计
* * Prompt: 考勤统计
* * Snippet: 24
* *
* *********************************************************
*
PROCEDURE _1mi0z3743
do form from\checked
* *********************************************************
* *
* * _1MI0Z3744 ON SELECTION BAR 4 OF POPUP 信息统计
* *
* * Procedure Origin:
* *
* * From Menu: MAIN.MPR, Record: 54
* * Called By: ON SELECTION BAR 4 OF POPUP 信息统计
* * Prompt: 基本工资统计
* * Snippet: 25
* *
* *********************************************************
*
PROCEDURE _1mi0z3744
do form from\gzcx.scx
* *********************************************************
* *
* * _1MI0Z3749 ON SELECTION BAR 6 OF POPUP 信息统计
* *
* * Procedure Origin:
* *
* * From Menu: MAIN.MPR, Record: 57
* * Called By: ON SELECTION BAR 6 OF POPUP 信息统计
* * Prompt: 员工收入综合统计
* * Snippet: 26
* *
* *********************************************************
*
PROCEDURE _1mi0z3749
REPORT FORM frx\empl_salary.frx preview
* *********************************************************
* *
* * _1MI0Z374A ON SELECTION BAR 1 OF POPUP 帮助g
* *
* * Procedure Origin:
* *
* * From Menu: MAIN.MPR, Record: 60
* * Called By: ON SELECTION BAR 1 OF POPUP 帮助g
* * Prompt: 关于
* * Snippet: 27
* *
* *********************************************************
*
PROCEDURE _1mi0z374a
do form from\struction
* *********************************************************
* *
* * _1MI0Z374B ON SELECTION BAR 2 OF POPUP 帮助g
* *
* * Procedure Origin:
* *
* * From Menu: MAIN.MPR, Record: 61
* * Called By: ON SELECTION BAR 2 OF POPUP 帮助g
* * Prompt: 系统帮助
* * Snippet: 28
* *
* *********************************************************
*
PROCEDURE _1mi0z374b
set help on
set help to help\人力资源系统帮助.chm
help
* *********************************************************
* *
* * _1MI0Z374C ON SELECTION BAR 1 OF POPUP 数据备份
* *
* * Procedure Origin:
* *
* * From Menu: MAIN.MPR, Record: 64
* * Called By: ON SELECTION BAR 1 OF POPUP 数据备份
* * Prompt: 数据备份
* * Snippet: 29
* *
* *********************************************************
*
PROCEDURE _1mi0z374c
m_dir=GETDIR('','请输入文件要备份到的目录：')
DO WHILE EMPTY(m_dir)
IF MESSAGEBOX('您没有选择要备份的目录。'+CHR(13)+'是否要取消备份？',4+32+256,'取消')=7
m_dir=GETDIR('','请输入文件要备份到的目录：')
ELSE
RETURN
ENDIF
ENDDO
CLOSE ALL
DEFINE WINDOWS win1 FROM 1,1 TO 7,50 IN DESKTOP SYSTEM TITLE '升级向导' COLOR RGB(0,0,0,192,192,192)
MOVE WINDOWS win1 CENTER
ACTIVATE WINDOWS win1
SET CONSOLE OFF
@ 2,10 SAY '正在备份数据，请稍候'
COPY FILE DATA\*.DBF TO (m_dir+'*.dbf')
COPY FILE DATA\*.CDX TO (m_dir+'*.cdx')
DEACTIVATE WINDOWS win1
RELEASE WINDOWS win1
MESSAGEBOX('数据已成功备份',64,'完成')
open data data\emplsorure
sele 0
use data\ages
sele 0
use data\biyeschool
sele 0
use data\checkin
sele 0
use data\department
sele 0
use data\emplinfo
sele 0
use data\salary
sele 0
use data\states
sele 0
use data\xueli
sele 0
use data\zhicheng
sele 0
use data\empl_position
close database all
open data data\system
sele 0
use data\user
sele 0
use data\userinfo
* *********************************************************
* *
* * _1MI0Z374D ON SELECTION BAR 2 OF POPUP 数据备份
* *
* * Procedure Origin:
* *
* * From Menu: MAIN.MPR, Record: 65
* * Called By: ON SELECTION BAR 2 OF POPUP 数据备份
* * Prompt: 数据恢复
* * Snippet: 30
* *
* *********************************************************
*
PROCEDURE _1mi0z374d
m_dir=GETDIR('','请输入备份的文件所在的目录：')
DO WHILE EMPTY(m_dir)
IF MESSAGEBOX('您没有选择目录。'+CHR(13)+'是否要取消恢复数据？',4+32+256,'取消')=7
m_dir=GETDIR('','请输入备份的文件所在的目录：')
ELSE
RETURN
ENDIF
ENDDO
CLOSE ALL
DEFINE WINDOWS win1 FROM 1,1 TO 7,50 IN DESKTOP SYSTEM TITLE '升级向导' COLOR RGB(0,0,0,192,192,192)
MOVE WINDOWS win1 CENTER
ACTIVATE WINDOWS win1
SET CONSOLE OFF
@ 2,10 SAY '正在恢复数据，请稍候'
IF !DIRECTORY('data')
MD DATA
ENDIF
COPY FILE (m_dir+'*.dbf') TO DATA\*.DBF
COPY FILE (m_dir+'*.cdx') TO DATA\*.CDX
DEACTIVATE WINDOWS win1
RELEASE WINDOWS win1
MESSAGEBOX('数据已成功恢复',64,'完成')
open data data\emplsorure
sele 0
use data\ages
sele 0
use data\biyeschool
sele 0
use data\checkin
sele 0
use data\department
sele 0
use data\emplinfo
sele 0
use data\salary
sele 0
use data\states
sele 0
use data\xueli
sele 0
use data\zhicheng
sele 0
use data\empl_position
close database all
open data data\system
sele 0
use data\user
sele 0
use data\userinfo
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -