预算管理软件 及 源代码

************************************************************ *预算管理 ************************************************************ PARA PRG DO CASE CASE EMPTY(PRG) RETURN 主控程序() CASE PRG=[生成设置] RETURN 生成设置() OTHERWISE RETURN 主控程序() ENDCASE ENDPROC ************************************************************ * ************************************************************ PROC 主控程序 PRIV ALL 系统设置() 数据环境() 设置标题() 生成各年() 检测数据() 启动API() 启动EXCELRW() 运行菜单() 退出系统() ENDPROC ************************************************************ * ************************************************************ PROC 系统设置 PRIV ALL ********** *运行设置 ********** ON SHUTDOWN QUIT ON ERROR DO MYERR WITH PROGRAM(),MESSAGE(),LINENO() ********** *系统菜单 ********** SET SYSMENU TO DEFAULT ********** *辅助设置 ********** SET HELP OFF SET ESCAPE OFF SET RESOURCE OFF ********** *数据设置 ********** SET SAFETY OFF SET DELETED OFF SET EXCLUSIVE ON SET EXACT ON SET ANSI ON SET ENGINEBEHAVIOR 70 ********** *日期格式 ********** SET DATE YMD SET CENTURY ON ********** *显示设置 ********** SET TALK OFF SET STATUS OFF SET STATUS BAR OFF SET NOTIFY CURSOR OFF SET CONFIRM OFF SET TEXTMERGE ON ********** *关闭窗口 ********** IF WEXIST([常用]) SHOW WINDOW [常用] HIDE WINDOW [常用] ENDIF IF WEXIST([VIEW]) HIDE WINDOW [VIEW] ENDIF IF WEXIST([PROPERTIES]) HIDE WINDOW [PROPERTIES] ENDIF IF WEXIST([COMMAND]) SHOW WINDOW [COMMAND] HIDE WINDOW [COMMAND] ENDIF ********** *屏幕设置 ********** _SCREEN.Width=980 _SCREEN.Height=600 _SCREEN.AutoCenter=.T. _SCREEN.WindowState=2 _SCREEN.ControlBox=.T. _SCREEN.MinButton=.T. _SCREEN.MaxButton=.T. _SCREEN.Closable=.T. _SCREEN.Movable=.T. _SCREEN.BackColor=rgb(0,128,128) _SCREEN.ForeColor=rgb(255,255,255) _SCREEN.Caption=编译目录() ********** *清理环境 ********** CLOSE ALL CLEAR ALL CLEAR ********** *目录环境 ********** CD ADDBS(JUSTPATH(SYS(16,0))) CD .. ENDPROC ************************************************************ * ************************************************************ PROC 设置标题 PRIV ALL _SCREEN.Caption=括号(本身单位名称())+括号(汉字年(系统年()))+编译目录() ENDPROC ************************************************************ * ************************************************************ PROC MYERR(出错程序,出错信息,出错行号) PRIV ALL ********** *清理设置 ********** ON ERROR ON KEY CLEAR EVENTS CLEAR DLLS ********** *出错信息 ********** ACTI SCREEN \<<REPL([#],50)>> \# 出错信息：【<<出错信息>>】 \# 出错程序：【<<出错程序>>】 \# 出错行号：【<<出错行号>>】 \<<REPL([#],50)>> ********** *调用关系 ********** 最大级别=PROG(-1)-1 FOR 当前级别=1 TO 最大级别 \==> <<当前级别>>【<<PROG(当前级别)>>】 ENDFOR ********** *结束程序 ********** RETURN TO MASTER ENDPROC ************************************************************ * ************************************************************ PROC 退出系统 PRIV ALL QUIT ENDPROC ************************************************************ * ************************************************************ PROC 编译目录 PRIV ALL RETURN JUSTFNAME("D:\vfp\【预算管理】") ENDPROC ************************************************************ * ************************************************************ PROC 括号(当前字串) PRIV ALL RETURN [【]+当前字串+[】] ENDPROC ************************************************************ * ************************************************************ PROC 字符(当前数据) PRIV ALL RETURN CAST(当前数据 AS V (50)) ENDPROC ************************************************************ * ************************************************************ PROC 汉字年(当前年) PRIV ALL RETURN 字符(当前年)+[年] ENDPROC ************************************************************ * ************************************************************ PROC 年字段(当前年) PRIV ALL RETURN [年]+CAST(当前年 AS V (4)) ENDPROC ************************************************************ * ************************************************************ PROC 电脑年 PRIV ALL RETURN YEAR(DATE()) ENDPROC ************************************************************ * ************************************************************ PROC 清屏 PRIV ALL ACTI SCREEN CLEAR ENDPROC ************************************************************ * ************************************************************ PROC 提示信息(当前信息) PRIV ALL IF EMPTY(当前信息) 当前信息=[] ENDIF MESSAGEBOX(当前信息,0,[提示信息]) ENDPROC ************************************************************ * ************************************************************ PROC 确认信息(当前信息) PRIV ALL IF EMPTY(当前信息) 当前信息=[] ENDIF RETURN MESSAGEBOX(当前信息,1,[警告]) = 1 ENDPROC ************************************************************ * ************************************************************ PROC 程序名称 PRIV ALL ACTI SCREEN \【<<PROG(PROG(-1)-1)>>】 ENDPROC ************************************************************ * ************************************************************ PROC 警告(当前信息) PRIV ALL IF EMPTY(当前信息) 当前信息=[系统错误] ENDIF MESSAGEBOX(当前信息,0,[警告：运行错误，系统关闭。]) 退出系统() ENDPROC ************************************************************ * ************************************************************ PROC 进入目录(当前目录) PRIV ALL ********** *根目录 ********** CD ADDBS(JUSTPATH(SYS(16,0))) CD .. ********** *当前目录 ********** IF EMPTY(当前目录) RETURN ENDIF ********** *新建目录 ********** IF NOT DIRECTORY(当前目录) MD (当前目录) ENDIF ********** *进入目录 ********** CD (当前目录) ENDPROC ************************************************************ * ************************************************************ PROC 进入下发目录(当前单位,当前目录) PRIV ALL ********** *根目录 ********** CD ADDBS(JUSTPATH(SYS(16,0))) CD .. ********** *下发目录 ********** IF NOT DIRECTORY([下发]) MD 下发 ENDIF CD 下发 ********** *当前单位 ********** IF EMPTY(当前单位) RETURN ENDIF ********** *新建单位目录 ********** IF NOT DIRECTORY(当前单位) MD (当前单位) ENDIF ********** *进入单位目录 ********** CD (当前单位) ********** *当前目录 ********** IF EMPTY(当前目录) RETURN ENDIF ********** *新建目录 ********** IF NOT DIRECTORY(当前目录) MD (当前目录) ENDIF ********** *进入目录 ********** CD (当前目录) ENDPROC ************************************************************ * ************************************************************ PROC 新表(当前结构,当前表名) PRIV ALL SELECT ; 字段名称,; 字段类型,; 字段长度,; 字段小数 ; FROM 系统表结构 ; WHERE ALLTRIM(文件名称)==ALLTRIM(当前结构) ; INTO ARRAY AAA CREATE CURSOR (当前表名) FROM ARRAY AAA ENDPROC ************************************************************ * ************************************************************ PROC 清空(当