仓酷云

 找回密码
 立即注册
搜索
热搜: 活动 交友 discuz
查看: 2212|回复: 9
打印 上一主题 下一主题

[学习教程] MYSQL网页设计怎样在FOXPRO中F国民年夜的DQ

[复制链接]
小魔女 该用户已被删除
跳转到指定楼层
楼主
发表于 2015-1-16 22:48:52 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式

马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。

您需要 登录 才可以下载或查看,没有帐号?立即注册

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是否真的具有良好的可扩展性的争论已经没有意义。
分手快乐 该用户已被删除
沙发
发表于 2015-1-18 05:30:02 | 只看该作者
始终遗憾SQLServer的登陆无法分配CPU/内存占用等指标数。如果你的SQLServer给别人分配了一个只可以读几个表的权限,而这个家伙疯狂的死循环进行连接查询,会给你的系统带来很大的负担。
若相依 该用户已被删除
板凳
发表于 2015-1-21 11:12:25 | 只看该作者
你觉得我的非分区索引无法对起子分区,你可以提醒我一下呀!没有任何的提醒,直接就变成了非分区表。不知道这算不算一个bug。大家也可以试试。
若天明 该用户已被删除
地板
发表于 2015-1-30 16:43:22 | 只看该作者
同样会为索引视图等应用带来麻烦。看看行级和事务级的快照数据放在tempdb中,就能感觉到目前架构的尴尬。
柔情似水 该用户已被删除
5#
发表于 2015-2-6 14:04:58 | 只看该作者
每天坚持做不一样的是,认真做笔录,定时复习。一个月你就可以有一定的收获。当然如果你想在sql方面有一定的造诣,你少不了需要看很多很多的书籍了。
深爱那片海 该用户已被删除
6#
发表于 2015-2-16 10:12:02 | 只看该作者
作了些试验,发现使用CLR的存储过程或函数在达到一定的阀值的时候,系统性能会呈指数级下滑!这是非常危险的!只使用几个可能没有问题,当一旦大规模使用会造成严重的系统性能问题!
老尸 该用户已被删除
7#
发表于 2015-3-5 03:54:48 | 只看该作者
呵呵,这就是偶想说的
兰色精灵 该用户已被删除
8#
发表于 2015-3-11 23:20:56 | 只看该作者
个人感觉没有case直观。而且默认的第三字段(还可能更多)作为groupby字段很容易造成新手的错误。
只想知道 该用户已被删除
9#
发表于 2015-3-19 16:03:38 | 只看该作者
始终遗憾SQLServer的登陆无法分配CPU/内存占用等指标数。如果你的SQLServer给别人分配了一个只可以读几个表的权限,而这个家伙疯狂的死循环进行连接查询,会给你的系统带来很大的负担。
飘飘悠悠 该用户已被删除
10#
发表于 2015-3-28 22:45:49 | 只看该作者
SQL语言是学习所有数据库产品的基础,无论你是做数据库管理还是做数据库开发都是这样。不过具体学习的侧重点要看你将来做哪一块,如果是做数据库管理(DBA),侧重点应该放在SQLServer的系统管理上.
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

QQ|Archiver|手机版|仓酷云 鄂ICP备14007578号-2

GMT+8, 2024-12-22 14:55

Powered by Discuz! X3.2

© 2001-2013 Comsenz Inc.

快速回复 返回顶部 返回列表