每周一本读书笔记:《这么慢,那么美》

第一章

以约束为前提的自由


第二章

根植于内心的修养:

一个有点想法又勇于实现的人,这样的性格,在其他的一些地方也许是容易碰壁的,因为其不合群的性格,会遭到大多数人的排斥和反感。所以在我们以和为贵,崇尚中庸之道的民族长河里,三国魏人李康在其《运命论》里早大发感慨:木秀于林,风必摧之;堆出于岸,流必湍之;行高于人,众必非之。

北欧社会教育体系中,另一个值得一提的地方就是贯穿一生的学习体系.....学习是贯穿一生的事情。


第三章

为人着想:

每个生命的个体都是值得尊重的,只是选择了不同的形式存在!

素质就是有本事创造生活并超越生活的修养与能力,它不仅是人品的境界,也是能力的基石。


第四章

可持续的花钱习惯


第五章

无需提醒的自觉


第六章

恰到好处的节俭



怎么会这么慢?

09-27

declare @t int,@c int,@d int,@d1 int,@x int,@j numeric,@m numeric,@m1 numeric,@h int,@h1 int,@h2 int,@kh1 as char(10)rndeclare @yyy as char(10),@z int,@z1 intrndeclare @ddd as intrndeclare @str varchar(4) rndeclare @i varchar(10),@ii varchar(10)rndeclare @p varchar(50)rndeclare @t1 int,@tt intrndeclare @tttt4 table(产品编号 char(13),票号 char(16),序号 int,客户 char(8)) rn rnset @yyy='20040101'--月份rnset @str='A01C'rnwhile cast(substring(@yyy,5,2) as int)<13rnbeginrnset @c=0 /*在下面输入每月的金额*/rnset @m=(case when substring(@yyy,5,2)='01' then 2863755 when substring(@yyy,5,2)='02' then 3400709 when substring(@yyy,5,2)='03' then 3153385 when substring(@yyy,5,2)='04' then 3215216 when substring(@yyy,5,2)='05' then 3246132 when substring(@yyy,5,2)='06' then 4142682 when substring(@yyy,5,2)='07' then 3709865 when substring(@yyy,5,2)='08' then 3579694 when substring(@yyy,5,2)='09' then 3508100 when substring(@yyy,5,2)='10' then 3400709 when substring(@yyy,5,2)='11' then 4617806 when substring(@yyy,5,2)='12' then 5550144 end) rnset @j=round(@m/cast(day(dateadd(mm,1,@yyy)-1) as int),2)--日平均金额rnset @ddd=0 rnwhile (select cast(day(dateadd(mm,1,@yyy)-1) as int))>@dddrnbeginrnset @d1=1rnset @m1=0rnset @i=substring(convert(varchar(8),cast(convert(varchar,(@yyy+@ddd),112) as datetime)-30*cast(6+rand()*(9-6) as int),112),3,6)rnset @ii=substring(convert(varchar(8),cast(convert(varchar,(@yyy+@ddd),112) as datetime)-5,112),3,6)rnwhile @j>@m1rnbeginrnSET @h1=0 rnset @d=cast(1+rand()*(4-1) as int) rnset @kh1=(case when @d=1 then (select top 1 客户编码 from kh where 档案号='A' order by newid()) when @d=2 then (select top 1 客户编码 from kh where 档案号 in('B','C') order by newid()) end)rnset @p=(@str+left(convert(varchar,(@yyy+@ddd),112),8)+(case when len(@d1)=1 then '000' when len(@d1)=2 then '00' when len(@d1)=3 then '0' end)+cast(@d1 as char(4))) rnif @d=1rn beginrn set @t1=cast(1+rand()*(20-1) as int)rnrn set @x=1 rn set @c=0 rn while @t1>@crn begin rn set @z=cast(1+rand()*(5-1) as int)rn rn insert into yscc(票号,序号,小号,产品编号,库房,批号,效期,标识,库房数量,数量,件数,保管员,审核时间,业务1,业务2,业务3,业务4,业务5,单价,金额,入库票号,入库序号) select top 1 @p,@x,'1',yfcc.产品编号,yfcc.库房,yfcc.批号,yfcc.效期,yfcc.标识,yfcc.库房数量,10,'1',@kh1,getdate(),'','','','','',round(单价,2),round(round(单价,2)*10,2),票号,序号 from yfcc where(left(批号,6) between @i and @ii) and cast(convert(varchar,(@yyy+@ddd),112) as datetime)0 and substring(yfcc.票号,5,8)>substring(@p,5,8) and yfcc.产品编号 not in(select 产品编号 from @tttt4) order by newid()rn insert into @tttt4(产品编号,票号,序号,客户) select 产品编号,入库票号,入库序号,保管员 from yscc where 票号=@p and 序号=@xrn rn set @c=@c+1rn set @x=@x+1rn if @t1<=@crn breakrn elsern continuern endrnendrn if @d=2rn beginrn set @t1=cast(1+rand()*(8-1) as int)rnrn set @x=1 rn set @c=0 rn while @t1>@crn begin rn set @z=cast(1+rand()*(3-1) as int)rn insert into yscc(票号,序号,小号,产品编号,库房,批号,效期,标识,库房数量,数量,件数,保管员,审核时间,业务1,业务2,业务3,业务4,业务5,单价,金额,入库票号,入库序号) select top 1 @p,@x,'1',yfcc.产品编号,yfcc.库房,yfcc.批号,yfcc.效期,yfcc.标识,yfcc.库房数量,10,'1',@kh1,getdate(),'','','','','',round(单价,2),round(round(单价,2)*10,2),票号,序号 from yfcc where(left(批号,6) between @i and @ii) and cast(convert(varchar,(@yyy+@ddd),112) as datetime)0 and substring(yfcc.票号,5,8)>substring(@p,5,8) and yfcc.产品编号 not in(select 产品编号 from @tttt4) order by newid()rn insert into @tttt4(产品编号,票号,序号,客户) select 产品编号,入库票号,入库序号,保管员 from yscc where 票号=@p and 序号=@xrnrnrn set @c=@c+1rn set @x=@x+1rn if @t1<=@crn breakrn elsern continuern endrnendrnset @d1=@d1+1rn set @m1=(select isnull(sum(金额),0) from yscc where substring(票号,5,8)=left(convert(char,(@yyy+@ddd),112),8))rnrn if @j<@m1rn breakrn elsern continuern endrn set @ddd=@ddd+1rndelete @tttt4rn if cast(day(dateadd(mm,1,@yyy)-1) as int)<(cast(@ddd as int))rn breakrn elsern continuern endrnset @yyy='2004'+rtrim(ltrim((case when len(cast(substring(@yyy,5,2) as int))=1 and substring(@yyy,5,2)<>'09' then '0'+convert(char,(cast(substring(@yyy,5,2) as int)+1)) else convert(char,(cast(substring(@yyy,5,2) as int)+1)) end )))+'01'rnif cast(substring(@yyy,5,2) as int)>13rnbreakrnelserncontinuernendrnrn

没有更多推荐了,返回首页

私密
私密原因:
请选择设置私密原因
  • 广告
  • 抄袭
  • 版权
  • 政治
  • 色情
  • 无意义
  • 其他
其他原因:
120
出错啦
系统繁忙,请稍后再试