|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
如IBM公司最近宣布让渠道合作伙伴分销其SaaS应用程序的新计划。微软认为MySQL学习教程是销售其云计算服务的重要组成部分。然而即使有这种趋势,DBaaS仍然不同于内部数据库,解决方案提供商必须认识到这一点;否则,他们不仅仅是丢失几个客户,而是要失去的更多。
FOXPRO中国民年夜DQ的F
作者:CCBZZP
FOXPRO在F蟊淼墓δ苁呛年夜的,特e在F的弥经常使用到国民
巨细DQ的},在此我谓榻B一下,但愿和人人一同探,以便配合M步!配合
l展!
假设量MONEY是我要DQ的,我在程序(*.PRG)中@:
PARAMONEY
IFMONEY>999999999.99
RETURN(<抵荡笥谑|!>)
ENDIF
IFABS(MONEY)<1
IFABS(MONEY)=0
RETURN(零A)
ELSE
RETURN(<小于壹A!>)
ENDIF
ENDIF
negative=.F.
IFMONEY<0
MONEY=-MONEY
negative=.T.
ENDIF
STORTOa9,a8,a7,a6,a5,a4,a3,a2,a1,b1,b2
MONEY=ROUND(MONEY,2)
ch1=零壹E⑺廖殛柒捌玖
ch2=|f仟佰拾A角分
ch_MONEY=ALLTRIM(STR(MONEY,14,2))
IF!(.$ch_MONEY)
dec=LEFT(ch_MONEY,AT(.,ch_MONEY)-1)
rec=SUBST(ch_MONEY,AT(.,ch_MONEY)+1,LEN(ch_MONEY)-AT(.,ch_MONEY))
ELSE
dec=ch_MONEY
rec=
ENDIF
FORi=1TOLEN(dec)
j=STR(i,1)
a&j=SUBST(dec,LEN(dec)-i+1,1)
ENDFOR
IF!EMPTY(rec)
FORi=1TOLEN(rec)
j=STR(i,1)
b&j=SUBST(rec,i,1)
ENDFOR
ENDIF
FORi=1TOLEN(dec)
j=STR(i,1)
IF!EMPTY(a&j)
a&j=SUBST(ch1,2*VAL(a&j)+1,2)
ENDIF
ENDFOR
FORi=1TOLEN(rec)
j=STR(i,1)
IF!EMPTY(b&j)
b&j=SUBST(ch1,2*VAL(b&j)+1,2)
ENDIF
ENDFOR
a9=a9+IIF(!EMPTY(a9),|,)
a8=a8+IIF((!EMPTY(a8)).AND.(a8零),仟,)
a7=a7+IIF((!EMPTY(a7)).AND.(a7零),佰,)
a6=a6+IIF((!EMPTY(a6)).AND.(a6零),拾,)
a5=a5+IIF((!EMPTY(a5)).AND.(a5零.OR.a6零.OR.a7零.OR.a8零),f,)
a4=a4+IIF((!EMPTY(a4)).AND.(a4零),仟,)
a3=a3+IIF((!EMPTY(a3)).AND.(a3零),佰,)
a2=a2+IIF((!EMPTY(a2)).AND.(a2零),拾,)
a1=a1+A
*a1=a1+IIF((!EMPTY(a1)).AND.(a1零.OR.a2零.OR.a3零.OR.a4零),A,)
b1=IIF(b1==零.AND.b2==零,整,b1)+IIF((!EMPTY(b1)).AND.(b1零),角,)
b2=IIF(b2==零,,b2)+IIF((!EMPTY(b2)).AND.(b2零),分,)
chr_covent=a9+a8+a7+a6+a5+a4+a3+a2+a1+b1+b2
i=1
DOWHILEi<LEN(ALLTRIM(chr_covent))-2
b_ch=SUBST(ALLTRIM(chr_covent),i,2)
e_ch=SUBST(ALLTRIM(chr_covent),i+2,2)
IFb_ch=零.AND.(e_ch=零.OR.e_ch=f.OR.e_ch=A)
chr_covent=LEFT(ALLTRIM(chr_covent),i-1)+SUBST(ALLTRIM(chr_covent),i+2,LEN(ALLTRIM(chr_covent))-i-1)
ELSE
i=i+2
ENDIF
ENDDO
IFnegative
chr_covent=()+chr_covent
ENDIF
RETURNchr_covent
以上程序的原t是依据地位先抓取底衷偌由纤募e.
据我的观察,现在有一个趋势,那些经过正式培训的数据库管理员DBA更倾向于选择一个专有关系数据库,例如Oracle。对于一些具有专门数据库管理员的比较大的环境来说,MySQL很难得到宠爱,这时候,关于MySQL是否真的具有良好的可扩展性的争论已经没有意义。 |
|