common.bak

来自「太平洋保险保单统计系统」· BAK 代码 · 共 43 行

*/!********************************************************
*/! Function Name: CaseMoney
*/! Description: 把数字金额转为人民币大写格式   到亿
*/! Usage: =changem(金额) 金额是数字型
*/!********************************************************
FUNCTION changem
	LPARAMETERS mmje
	PRIVATE dx,aa,i,lcReturnValue
	dx=IIF(mmje<0,'负','')
	aa=ROUND(ABS(mmje)*100,0)
	FOR i=LEN(ALLTRIM(STR(aa,15)))-1 TO 0 STEP -1
		dx=dx+SUBS('零壹贰叁肆伍陆柒捌玖',INT(ROUND(aa/10^i,10))*2+1,2)+SUBS('分角元拾佰仟万拾佰仟亿拾佰仟万',i*2+1,2)
		aa=MOD(aa,10^i)
	ENDFOR
	dx=STRTRAN(STRTRAN(STRTRAN(STRTRAN(STRTRAN(dx,'零仟','零'),'零佰','零'),'零拾','零'),'零角','零'),'零分','整')
	dx=STRTRAN(STRTRAN(STRTRAN(STRTRAN(STRTRAN(dx,'零零','零'),'零零','零'),'零亿','亿'),'零万','万'),'零元','元')
	lcReturnValue = IIF(dx='整','零元整',STRTRAN(STRTRAN(dx,'亿万','亿'),'零整','整'))
	RETURN (lcReturnValue)


	*/!********************************************************
	*/! Function Name: f_dele
	*/! Description: 删除数据
	*/! Usage: =f_dele(数据库名称)
	*/!********************************************************
FUNCTION f_dele
	PARA activebase
	SELE &activebase
	*DELE
	COPY TO ADDBS(mainpath)+'temp\'+'temp.dbf' FOR NOT DELETED()			&&*将没有删除标志的记录复制到lsshjb.DBF
	ZAP 																	&&删除所有记录，zap命令不关闭库
	APPEND FROM ADDBS(mainpath)+'temp\'+'temp.dbf'							&&*再把刚才没有删除记录的lsshjb.DBF追加到XX
	RETURN

	******************************************
	* 函 数 名：pass_encode
	* 函数功能：字符串加密与解密
	* 参数说明：   ckl:   口令，一任意长度的字符串，加密与解密必须使用同一口令字。
	*            ctext:   要加密或要解密的文本。
	*             cstr:   返回加密或解密后的文本
	*
	* 调用示例：pass_encode('Jk is good','字符串加密与解密')
	*           程序返回：'Ш螑沃伲