新华网重庆频道2009年3月20日电（李元元）市公安局新闻发言人向记者透露，2009年3月19日19时42分，位于重庆市高新区石桥铺的某驻渝部队营房哨兵遭歹徒持枪袭击，哨兵经抢救无效身亡，歹徒抢走自动步枪一支。
【详情链接】http://www.cq.xinhuanet.com/20 ... 3.htm 收起阅读 »

俺们减工资了
一下子少了500块有点不习惯滴说
咋办？
虽然才500块
这可是每月给妈的养老费啊
钱钱拿少了，但偶不能少给养老费
看来日子开始难过了
哈哈
俺还打算多挣点钱钱去旅游呢
OO，计划始终跟不上变化快
哭吧哭吧不是罪
想想也不对
哭着过 不如笑着活
这种日子何时鸟啊

收起阅读 »

现在是下午三点，浑浑噩噩的一天有要过去，今天没做什么，也没什么可做，就这样一天在网上游荡，曾经下定决心，好好学些东西，可是就是沉不下心来去学，也许人离开了校园，来到了社会，就很难再去学些专业性的东西。唉，，静下心来？？

这是我看女朋友有玩KAIXIN001网站的种菜游戏；闲来没事，给她做的一个最有价值的种植植物分析表。发现6SQ也有这游戏，所以在这里共享给大家。





序号
品种
种子价格
成熟时间
最低产量
最高产量
平均产量
售价
每小时最低收益
每小时最高收益
每小时平均收益

1
水稻
20
20
10
30
20
60
29.0
89.0
59.0

2
胡萝卜
30
12
8
28
18
35
20.8
79.2
50.0

3
白菜
50
16
8
28
18
50
21.9
84.4
53.1

4
土豆
80
24
8
24
16
100
30.0
96.7
63.3

5
牵牛花
400
24
8
24
16
135
28.3
118.3
73.3

6
黄瓜
100
32
10
26
18
160
46.9
126.9
86.9

7
辣椒
120
36
10
26
18
180
46.7
126.7
86.7

8
玉米
150
40
10
26
18
200
46.3
126.3
86.3

9
茉莉花
300
32
8
24
16
250
53.1
178.1
115.6

10
豆角
180
24
8
24
16
120
32.5
112.5
72.5

11
茄子
200
28
8
24
16
140
32.9
112.9
72.9

12
菠菜
250
28
8
24
16
130
28.2
102.5
65.4

13
西红柿
300
32
10
22
16
160
40.6
100.6
70.6

14
向日葵
800
40
6
10
8
500
55.0
105.0
80.0

15
桃子
300
36
12
24
18
200
58.3
125.0
91.7

16
香蕉
400
36
8
20
14
250
44.4
127.8
86.1

17
西瓜
500
40
8
20
14
300
47.5
137.5
92.5

18
玫瑰
1500
72
6
14
10
1000
62.5
173.6
118.1

19
草莓
600
40
10
18
14
400
85.0
165.0
125.0

20
仙人掌
800
32
8
12
10
500
100.0
162.5
131.3

21
菊花
1800
68
8
12
10
1200
114.7
185.3
150.0

22
南瓜
700
32
10
18
14
450
118.8
231.3
175.0

23
神秘玫瑰
4000
80
4
8
6
7000
300.0
650.0
475.0

24
人参果
5000
360
2
6
4
15000
69.4
236.1
152.8

25
牡丹
3000
240
4
8
6
6000
87.5
187.5
137.5

26
百合
4000
288
4
8
6
8000
97.2
208.3
152.8

27
郁金香
5000
360
4
8
6
9000
86.1
186.1
136.1

28
冬虫夏草
8000
480
2
6
4
20000
66.7
233.3
150.0

29
雪莲
10000
600
2
6
4
25000
66.7
233.3
150.0

30
灵芝
12000
720
0
4
2
70000
-16.7
372.2
177.8

31
人参
15000
1080
0
4
2
120000
-13.9
430.6
208.3 收起阅读 »

逛街舍不得花钱？
但是
要省钱就不能出去逛街了
不出去又觉得日子无聊
无聊呢又会想去买东西吃
吃了东西又会后悔长肉
长肉呢又要去考虑减肥
减肥不花钱那就只能逛街
逛街不花钱那是不可能的！

睡得太久 有3大危险




睡得太久 有3大危险

转载请注明出自雨林木风 www.ylmf.net,本贴地址:http://www.ylmf.net/read.php%3 ... 06931大
家都知道，睡觉太少人就会生病，很多人却不知道，睡得太多同样不好。近日一则消息称，美国的研究人员发现，50岁以上女性每天睡9小时中风风险增加。记者
昨天在采访中也了解到，如果睡眠过多，不仅消除不了疲劳，还会影响健康和智力。在睡眠时间中，死亡率最低的睡眠时间约为7小时。风险1：中风和糖尿病美
国的研究人员在对9万多名50—79岁的女性进行了长达7年半的调查后发现，每天睡眠超过9小时的人中风危险比睡7小时的人要增加70%，睡眠时间是增大
中风危险的独立因素。南京脑科医院的专家介绍，老年人的血液黏稠度比较高，如果睡眠时间过长，就会导致血液黏稠度增加，而血液黏稠度增加就容易诱发中风等
脑血管疾病。有关专家介绍，还有一项研究表明，睡眠时间太长，也有可能诱发糖尿病，调查发现，每天的睡眠时间在7—8小时的人，身体最为健康。如果睡眠时间不足6小时，患糖尿病的风险就会增加约2倍;如果睡眠时间超过8小时，患糖尿病的风险则会增加3倍多。有调查显示，一天睡眠少于6小时会损害一个人的健康。同时，睡眠时间超过9小时同样也会危害健康。在睡眠时间的调查中，死亡率最低的睡眠时间约为7小时。一天睡眠时间平均在4小时以下或是10小时以上的人，不管是男是女，死亡率都相当高。风险2：越睡越懒，智力下降“一晚睡10个小时，为什么白天还是无精打采呢?”在某公司上班的小陈简直想不通，以前，他常抱怨自己睡得太少，以致头昏脑涨。但每天增加了睡眠时间，还是没精神，上班时反应慢，被老板骂了好多次。专
家解释，大部分人会认为，消除疲劳就应该多睡觉。其实，想用增加睡眠时间来获得健康的观念，是完全错误的。睡眠时间过长的人，就会变得懒惰、软弱无力，甚
至智力也会随之下降。一夜休息后，肌肉和关节会变得松弛，醒后立即活动可使肌张力增加，也可使肌肉的血液供应增加，使骨骼、肌肉组织处于修复状态，同时将
夜间堆积在肌肉中的代谢产物消除，有利于肌肉组织恢复运动状态。经常睡懒觉的人，因肌肉组织错过了活动良机，起床后会感到腿软、腰骶不适，周身无力。睡懒
觉的人睡眠中枢长期处于亢奋状态，而其他神经中枢由于受到抑制时间太长，恢复活动的功能就会变得相对缓慢，因而会感到终日昏昏沉沉、无精打采，甚至智力下
降。风险3：呼吸道、心脏和消化疾病小杨是一所学校的老师，喜欢睡懒觉，暑假里常常一睡就是10多个小时。他发现自己的身体还是比较差，常常动不动就感冒。医生帮他分析认为，他常常感冒可能和他喜欢睡懒觉有关系。失眠科专家说，卧室中早晨空气最污浊，即使虚掩窗户还是有部分空气未流通，不洁的空气中含有大量细菌、病毒、二氧化碳和尘埃，对呼吸道抗病能力有影响。而对于长期睡眠时间过长的那些闭门贪睡者，平时运动就少，再加上卧室内污浊的空气，就容易经常出现感冒、咳嗽等症状。人
活动时心跳加快，心肌收缩力加强，心脏排血量增加。人休息时心脏处于休息状态，心跳、收缩力、排血量下降。如果睡眠过多，就会破坏心脏休息和运动的规律，
心脏一歇再歇，最终会使心脏收缩乏力，稍一活动便心跳不一、心慌乏力。另外，如果睡眠过多，就无法按时进餐，胃肠发生饥饿性蠕动，打乱了胃液分泌规律，影
响消化功能。健康睡眠时间：6-8小时那么，究竟每天要睡多久才有利于健康呢?专家认为，对于成年人来说，6-8小时是其所需的标准睡眠时间，老年人在这个标准上再减少1-2个小时，青少年可以增加1-2个小时。对于婴幼儿来说，睡眠时间则需要更长。当然，睡眠时间多少最健康，还需要依据自身的情况来确定。判断自己的健康睡眠时间的标准，应该以第二天不会感到身体疲乏、感觉精力充沛来判定 收起阅读 »

什么是坏苹果法则？ 　　如果把一个坏苹果留在一筐好苹果里，结果你将得到一筐烂苹果，这就是坏苹果法则。 经典案例 　　一所中学的校长找到三位老师对他们说：“你们是整个系统最优秀的教师，所以，我将给你们90名高智商的学生，看他们能学得多快。”老师和学生都很兴奋。一年之后，这些学生的成绩比该地区其他学生高出20％到30％。校长把老师们找来，告诉他们：“我必须坦白一件事情，你们的学生并不是智商最高的，他们只是一群普通的学生；你们也不是最好的老师，只不过是我从一顶帽子里首先抓出来的而已。”那么是什么使他们比别人做得更好的呢？是参加实验的人们的态度。老师和学生都以为自己是优秀的，他们期待着成功，于是充分发挥出自己的潜力。态度就是决定这一结果的关键。 坏苹果法则启示 　　一个人的态度将影响到一个团队，如果想使你的企业成功，那么你就必须有一个积极进取的团队。坏苹果法则可以帮助你达到这样的目的。扔掉坏苹果，换上好苹果吧！因为一个人的恶劣态度会毁掉整个团队。 一个未画完整的句号 　　一位著名企业家在做报告，当听众咨询他最成功的做法时，他拿起粉笔在黑板上画了一个圈，只是留下了一个缺口。他反问道：“这是什么？”“零”、 “圈”、“未完成的事业”，台下的听众七嘴八舌地答道。他对这些回答未置可否：“其实，这只是一个未画完整的句号。你们问我为什么会取得辉煌的业绩，道理很简单———我不会把事情做得很圆满，就像画个句号，一定要留个缺口，让我的员工去填满它。” 坏苹果法则的管理应用 　　事必躬亲是对员工智慧的扼杀，往往事与愿违。长此以往，员工容易形成惰性，责任心大大降低，把责任全推给管理者。情况严重者，会导致员工产生逆反心理，即便工作出现错误也不情愿向管理者提出。多让员工参与公司的决策是对他们的肯定，也是满足员工自我价值实现的精神需要。赋予员工更多的责任和权利，他们会取得让你意想不到的成绩。 收起阅读 »

　　　　　世界睡眠日　　　　　　古人对生活最精辟的描述是“日图三餐，夜图一眠”。中国最早的诗歌之一《击壤歌》曰：“日出而作，日入而息，帝力于我何有哉！”也就是说，吃饱睡好，剩下的管他呢。彼时人的压力没有现在这么大，基本都能睡足十几个小时。后来社会进步了，出现人造光源，睡觉的时间也越来越少。　　　　　　如今的人，能睡足8小时已是很幸福的事。很多白领自称“三八”，就是指“工作8小时，睡眠8小时，吃饭休闲8小时”。在这为数不多的睡眠时间内，大多数人还要用一两个小时专门用来辗转反侧。据了解，在金融危机之际，失眠比例增加两成以上，睡眠障碍增加四成以上。似乎有点儿自己跟自己过不去。　　　　　　因压力大而睡不着，是现代工业社会的产物，这种由生活压力而产生的精神压力极难避免，人能管住自己的手脚，却管不住自己的大脑。在1929年金融衰退时，睡不着觉的故事太多了，甚至还有人爬到窗户外自尽。假如能睡着，或许结果完全不同，比如找到新的工作，比如新接了一单生意。　　　　　　这次金融危机，发生在资讯极为发达的信息时代，华尔街的基金经理自杀，3分钟后就有人在YouTube上播放出来，对同行的刺激极大。人在这个时候因为信心不足，就会频繁阅读各种相关信息，结果是越看越害怕，越害怕越睡不着。　　　　　　曹操仗剑而眠，是担心被害，精神高度紧张。现在中产阶层也庶几近之，担心被减薪，被裁员，供不起房，法院强制执行，露宿街头……层层联想后，最后发现自己脆弱得一塌糊涂。　　　　　　不管怎么说，生活总要继续下去，失眠不会给你的未来带来任何正面帮助。只要睡着，生活就还有无限可能，至少还有梦在。但睡不着，就会越来越沮丧。夫子言道：“曲肱而枕之，乐亦中其中矣。不义而富贵，于我如浮云。”其实人只要在精神上强大起来，基本就OK了。“一箪食，一瓢饮，在陋巷。人不堪其忧，回也不改其乐。”换了别人，都要愁死了，颜回照样睡得香，挺乐呵。　　　　　　3月21日是“世界睡眠日”，请忘记金融危机，大睡特睡，先睡了再说。人都是逼出来的，不管情况多么紧急，先好好睡一觉，其他的管他呢！奉劝那些睡不着的朋友，请到别处谨遵医嘱，爱生活，从爱睡觉开始。 收起阅读 »

有谁知道在武汉哪儿学习英语口语比较好？

基本要求：需安装WORDFunctionWordReplace(FileNameAsString,SearchStringAsString,ReplaceStringAsString,OptionalSaveFileAsString="",OptionalMatchCaseAsBoolean=False)AsIntegerOnErrorGoToErrorMsg函数运行时发生遇外或错误,转向错误提示信息DimwordAppAsNewWord.ApplicationDimwordDocAsNewWord.DocumentDimwordArangeAsWord.RangeDimwordSelectionAsWord.SelectionDimReplaceSignAsBooleanDimIAsInteger判断将要替换的文件是否存在IfDir(FileName)=""Then替换文件不存在MsgBox"未找到"&FileName&"文件"提示替换文件不存在信息WordReplace=-2返回替换文件不存在的值ExitFunction退出函数EndIfSetwordApp=CreateObject("Word.Application")建立WORD实例wordApp.Visible=False屏蔽WORD实例窗体SetwordDoc=wordApp.Documents.Open(FileName)打开文件并赋予文件实例SetwordSelection=wordApp.Selection定位文件实例SetwordArange=wordApp.ActiveDocument.Range(0,1)指定文件编辑位置wordArange.Select激活编辑位置I=0初始化替换次数值ReplaceSign=True初始化是否替换成功标志DoWhileReplaceSignReplaceSign=wordArange.Find.Execute(SearchString,MatchCase,,,,,,wdFindContinue,,ReplaceString,True)查找并替换判断查找并替换是否成功,如果成功替换次数值递增1IfReplaceSign=TrueThenI=I 1EndIfLoopMsgBox"已完成对文档的搜索并完成"&I&"替换。"提示总替换次数如果替换成功，则提示是否保存IfI>0Then判断是否需要另存IfTrim(SaveFile)<>""Then需要另存IfDir(SaveFile)=""ThenwordDoc.SaveAsSaveFile文件另存为……Else咨询是否替换文件,如果不替换则放弃本次操作,否则存在本次操作IfMsgBox("是否替换"&SaveFile&"文件？",vbYesNo vbQuestion,"替换")=vbYesThenwordDoc.SaveAsSaveFile文件另存为……EndIfEndIfElseIfMsgBox("是否保存对"&SaveFile&"更改？",vbYesNo vbQuestion,"保存")=vbYesThenwordDoc.Save保存在原文件中EndIfEndIfEndIfWordReplace=I返回替换次数wordDoc.Close关闭文档实例wordApp.Quit关闭WORD实例SetwordDoc=Nothing清除文件实例SetwordApp=Nothing清除WORD实例ExitFunctionErrorMsg:MsgBoxErr.Number&":"&Err.Description提示错误信息WordReplace=-1返回错误信息值wordDoc.Close关闭文档实例wordApp.Quit关闭WORD实例SetwordDoc=Nothing清除文件实例SetwordApp=Nothing清除WORD实例EndFunction注意事项：单击在菜单“工程”中的“引用”菜单项，弹出窗口，在列表框中选择“MicrosoftWordXObjectLibaray“，单击引用在VB6.0 OfficeXP Windows测试通过-> 收起阅读 »

如果你已经过了20岁但还不到25岁的话，你必须找到除了爱情之外，能够使你用双脚坚强站在大地上的东西。你要找到谋生的方式。现在考虑不晚了。
　　 我从来不以为学历有什么重要，天才都不是科班，但，不是科班，连龙套都跑不了。你必须把那些浮如飘絮的思绪，渐渐转化为清晰的思路和简单的文字。华丽和漂浮都不易长久。你要知道，给予文字阅读快感不够的，内容，思想，境界，灵魂，精神和智慧，这些才重要。不要多看那些和你一个路数的女作家的文字。不要琐碎，无病呻吟。不要想到什么就写。不要流连于小感伤和小感动。
　　 我要你相信温暖，美好，信任，尊严，坚强这些老掉牙的字眼。我不要你颓废，空虚，迷茫，糟践自己，伤害别人。我不要你把自己处理得一团糟。节制自己的感情并且珍惜它，明白这种感情不是任何人都能要。体验生活，是另外一回事，并不意味着堕落和放纵。千万不要认同那些伪装的酷和另类。他们是无事可做的人找出来放任自己无事可做的借口，真正的酷是在内心。你要有强大的内心。要有任凭时间流逝，不会磨折和屈服的信念。不是因为在学校的象牙塔中，才说出我爱世界这样的话，是知道外面的黑，脏，丑陋之后，还要说出这样的话。好好去爱，去生活。青春如此短暂，不要叹老。偶尔可以停下来休息，但是别蹲下来张望。走了一条路的时候，记得别回头看。时不时问问自己，自己在干嘛?
　　 伤心和委屈的时候，要嚎啕大哭。哭完洗完脸，拍拍自己的脸，挤出一个微笑给自己看。不要揉，否则第二天早上会眼睛肿。
　　 给自己一个远大的前程和目标。记得常常仰望天空。记住仰望天空的时候也看看脚下。
　　 任何时候，任何人问你，有过多少次恋爱，答案是两次。一次是他爱我，我不爱他。一次是我爱他，他不爱我。好的爱情永远在下一次。别给同一个人两次伤害你的机会。
　　 不要与浪子，文艺青年交往，别和没心没肺的人在一起，别和没有正当职业混日子的人在一起。
　　 别把犯贱当真爱。一个人作践自己来取悦你的时候，千万不要因此感动。一个男人的烟头烫在他身上，下一个就可能烫在你身上。同样的，当这个女人的刀片割断她的手腕，下次就可能割断你的。
　　 千万别相信一个不准备将你介绍给他的朋友圈子的男人。一个女人只肯喊你“宝贝”的时候，坚持要她喊你的名字，因为你是男人。一个男人或者女人不再来找你的时候，就不要再去找他或者她。不要相信在恋爱上用手段的人。分手时不要口出恶言。吸取教训，但不要后悔。后悔没有用。
　　 别去做撕照片，烧信，撕日记这样一类三流爱情电视剧中才有人干的事。相信爱情。相信好男人和好女人还存在，还未婚，还在茫茫人海中寻觅你。别说“男人（或者女人）没一个好东西”，这样使别人误以为你阅人无数。
　　 爱物质，适当地。永远知道精神更重要。比起那些名表，名牌，时装，更加美丽的是勤奋而有朝气的你自己。如果你20岁以后所花的每一分钱还都是伸手向父母亲人要来的，那你的满身名牌就只能衬托出你的无耻。别以为穿上名牌你就有品位，要知道如果没有真正的内涵，骡子配上金鞍也不会变成骏马。你还年轻，先不说开始你的事业，开创你的未来，但你已经成年，至少也要让自己不再成为父母的负担，让父母看到20年辛苦养育的希望。无所事事只会把你变成一个废物，一个被所有其他人鄙夷的废物，因为这样的你是一个不折不扣的寄生虫。别以为弄个怪异的发型，穿上不男不女的衣服，喷上刺鼻的香水，别人就会注重你，要明白那样招来的眼光就是别人在看一只与众不同的猴子。许多有教养的人对另类的你的反感并不写在脸上，但这种反感确凿无疑肯定会给你带来极其不利的后果。
　　 别瞧不起劳动人民。不要为劳动羞耻。土地不脏，汗味不难闻。请尊重那些似乎生活状况不如你，但仍然用自己的双手诚实劳动养家糊口的人，因为这样才是尊重自己。永远体恤那些生活在底层的人们，因为我们的亲人就是在这些人群中。我们不娇贵。我们必须能够自己养活自己，这是你的尊严所在。
　　 不要小看一分钱。不妨自己去挣挣看。做人有时要强悍一点，被欺负的时候，一定要讨回来！但是不要记恨。小人之见，随他们去好了。有原则的宽容和怜悯，会使你高贵。
　　 被朋友伤害了的时候，别怀疑友情，但提防背叛你的人。原谅，但并不遗忘。做人存几分天真童心，对朋友保持一些侠义之情。 要快乐，要开朗，要坚韧，要温暖。这和性格无关。但你要忠诚，勤奋，要真诚的尊重别人，这样你的人生才不会黑暗. 收起阅读 »

TextBox使用技巧
在使用Visual Basic开发应用程序时，TextBox控件是最常用的（特别对于数据库程序），以下是笔者在开发应用程序时的一些技巧，希望对爱好VB的朋友有帮助。
1、 限制TextBox只能输入数字。
我们只需要判断KeyAscii是否在48-57之间就可以达到目的，但我们还会要用到退格键的，所以必须加上KeyAscii <> 8。
Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii <> 8 And KeyAscii < 48 Or KeyAscii > 57 Then Beep KeyAscii = 0 End IfEnd Sub
2、自动将输入的英文转为小写/大写。
如果在KeyPress事件里使用Ucase$和Lcase$，那么当你输入abc时，TextBox里的结果会是CBA（具体原因这里不多说），我们只好判断它的KeyAscii，刚好大写与小写之间是相差32，所以……看下面的程序。
'大写转小写Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii >= 65 And KeyAscii <= 90 Then KeyAscii = KeyAscii + 32 End IfEnd Sub
'小写转大写Private Sub Text2_KeyPress(KeyAscii As Integer) If KeyAscii >= 97 And KeyAscii <= 122 Then KeyAscii = KeyAscii - 32 End IfEnd Sub
3、使两个TextBox同步的方法。
这种方法怎么解释呢？第二个等于第一个就行了:-)。
Private Sub Text1_KeyPress(KeyAscii As Integer) Text2=Text1End Sub
4、按下 Enter 键之后，光标自动移到下一个控件。
当KeyAscii为13（回车）时，Send一个Tab键给它就行了。
Private Sub Text1_KeyPress (KeyAscii As Integer) If KeyAscii = 13 Then SendKeys “{tab}” KeyAscii = 0 End IfEnd Sub
5、当光标移到TextBox时自动选定其中的整串文字。
当对象得到焦点时，从最前面开始选取（SelStart=0），选取的长度为文本长度（Len（Text1））。
Private Sub Text1_GotFocus() Text1.SelStart = 0 Text1.SelLength = Len(Text1)End Sub
6、当光标移到TextBox时改变其文字颜色。
当TextBox得到焦点时（GotFocus）改变文本颜色，失去焦点时（LostFocus）将还原文本颜色，ForeColor是设置文本的前景色。
'当光标移到TextBox时文字设置为红色Private Sub Text1_GotFocus() Text1.ForeColor = vbRedEnd Sub
'当光标移出TextBox时文字设置为黑色Private Sub Text1_LostFocus() Text1.ForeColor = vbBlackEnd Sub
以上代码只要将Text1.ForeColor改为Text1.BackColor即可改变TextBox的背景色。 收起阅读 »

人的眼睛、严格说是眼皮会不由自主的跳动，有时跳几下，而有时却跳个不停。以下对眼皮跳动进行时辰分析吉凶： 　　 子时：23点——01点前 左眼：意外之喜降临，会有不错好运，你的心脏要强一点，别兴奋过了头。 右眼：有人请你吃饭，可以省下一笔钱，但是这个人的目的不明，你要多多斟酌。 丑时：01点——03点前 左眼：家中最近很麻烦，大小事困扰着，不知该怎么办，短期内一筹莫展。 右眼：有人思念你，有可能是家中长辈，相互牵挂太久了，有空打电话关心一下吧。 寅时：03点——05点前 左眼：会有朋友自远方而来，狠狠吃你一顿！如果你并非别有所图或手边闲钱多，接到朋友电话一定要装忙。 右眼：家人有机会得到意外之财，例如忽然中了奖，也有可能丢掉的钱又找回来了。 卯时：05点——07点前 左眼：贵人贵客报到，让你生命重现曙光，多留意忽然出现在你身边；很久不见的右眼：平安顺利，不必太过担心可能发生危险的状况，吉人自有天相，安心睡觉吧。 辰时：07点——09点前 左眼：人际关系会变好，许久不见的朋友再次相逢，可能捎来不错的喜讯。 右眼：钱财就这样不知不觉地流失掉，花了许多冤枉钱。 巳时：09点——11点前 左眼：会有好处可以捞，目前的你颇有利用价值，别人都会让你三分。 右眼：开车小心，提醒家人多注意平安，危险出现在四周。 午时：11点——13点前 左眼：长期耕耘总算有了结果，你可以松一口气，准备享受成果吧。 右眼：意料之外的事情发生，还好机率不高，继续保持警戒才好。 未时：13点——15点前 左眼：你可能在打赌或玩麻将时输了不少钱，别输光了才来后悔。 右眼：有好事发生，但属于微不足道，你也不会很高兴的那种小事。 申时：15点——17点前 左眼：忽然想起什么事情吗？快点去做，当下想到的，最容易成功了。 右眼：异性缘佳，你的贵人就是异性，他们对你，比同性宽容多了。 酉时：17点——19点前 左眼：为人辛苦为人忙，好在有收获，帮别人也是在帮自己。 右眼：刚认识的朋友就可以熟得不得了，和他们多混熟点会很不错。 戌时：19点——21点前 左眼：有人指派工作给你，不要想太多，快点答应，其他的问题会自然会迎刃而解喔！ 右眼：得意忘形了吗？小心小人随时准备落井下石，你别太嚣张。 亥时：21点——23点前 左眼：享受合家团圆、多方肯定，再加把劲，你会做得更漂亮。 右眼：提防官司纠纷，你要不口舌冒犯人，要不就是弄坏东西！ 　　 眼皮跳星期大占卜 有没有发觉今天的眼皮跳过？是不是有点紧张呢？大家都说：“左跳财，右跳灾”好像有些太笼统，下面是按照星期来占卜你的眼皮跳： 星期一：左眼跳，今天有事情要发生！ 右眼跳，平常事，不要紧。 星期二：左眼跳，心情会很愉。 右眼跳，会发生不快的事。 星期三：左眼跳，有人喜欢你！ 右眼跳，有事会让你生气。 星期四：左眼跳，有想不到的事情发生。 右眼跳，今天对任何事都不能插手。 星期五：左眼跳，有人在想念你。 右眼跳，将发生一件幸福的事。 星期六：左眼跳，这几天会暴露你的秘密。 右眼跳，近期会得到礼物。 星期日：左眼跳，会发生意想不到的事。 右眼跳，有好运气。 　　 注： 时辰： 一个时辰在农历记时中跨2小时,故一天共12个时辰。 子时: 23点 --凌晨1点 丑时: 1 点 --凌晨3点 寅时: 3 点 --凌晨5点 卯时: 5 点 --凌晨7点 辰时: 7 点 --上午9点 巳时: 9 点 --上午11点 午时: 11点 –下午13点 未时: 13点 --下午15点 申时: 15点 –下午17点 酉时: 17点 --下午19点 戌时: 19点 --晚上21点 亥时: 21点 --晚上23点

呵呵,祝大家都跳出好运!! 收起阅读 »

佛说八大人觉经 后汉沙门安世高译
为佛弟子，常于昼夜，至心诵念八大人觉：第一觉悟：世间无常；国土危脆，四大苦空，五阴无我，生灭变异，虚伪无主，心是恶源，形为罪薮，如是观察，渐离生死。第二觉知：多欲为苦；生死疲劳，从贪欲起，少欲无为，身心自在。第三觉知：心无厌足，惟得多求，增长罪恶；菩萨不尔，常念知足，安贫守道，惟慧是业。第四觉知：懈怠坠落；常行精进，破烦恼恶，摧伏四魔，出阴界狱。第五觉悟：愚痴生死；菩萨常念，广学多闻，增长智慧，成就辩才，教化一切，悉以大乐。第六觉知：贫苦多怨，横结恶缘；菩萨布施，等念怨亲，不念旧恶，不憎恶人。第七觉悟：五欲过患；虽为俗人，不染世乐，常念三衣，瓦钵法器，志愿出家，守道清白，梵行高远，慈悲一切。第八觉知：生死炽然，苦恼无量；发大乘心，普济一切，愿代众生，受无量苦，令诸众生，毕竟大乐。如此八事，乃是诸佛，菩萨大人，之所觉悟，精进行道，慈悲修慧，乘法身船，至涅槃岸。复还生死，度脱众生。以前八事，开导一切，令诸众生，觉生死苦，舍离五欲，修心圣道。若佛弟子，诵此八事，于念念中，灭无量罪，进趣菩提，速登正觉，永断生死，常住快乐。 收起阅读 »

VB与word中的表格（转）
2008-12-24 21:39





工作中，遇到了这个问题，技术难度虽然写了两个函数，先发上来，供大家以后参考，自己也做个记录。

Dim objWordApp As New Word.Application
Dim objWordDoc As New Word.Document
objWordApp.Documents.Open strFileName
Set objWordDoc = objWordApp.ActiveDocument
'//////
'新增操作表格的项
'在使用前,要先在模板中插入一个临时表格
'如果表格的行或列不够,系统会自动新增
'但新增的表格可能会不太规范,所以最好在模板中就先定义好表格的各项数据(宽度,大小,字体...)
WriteTable objWordDoc, 1, 1, "列头1", 1
WriteTable objWordDoc, 1, 2, "列头2", 1
WriteTable objWordDoc, 1, 3, "列头3", 1
WriteTable objWordDoc, 1, 4, "列头4", 1
WriteTable objWordDoc, 1, 5, "列头5", 1
WriteTable objWordDoc, 2, 1, "列值A", 1
WriteTable objWordDoc, 2, 2, "列值B", 1
WriteTable objWordDoc, 2, 3, "列值C", 1
WriteTable objWordDoc, 2, 4, "列值D", 1
WriteTable objWordDoc, 2, 5, "列值E", 1
'//////
objWordApp.Visible = True
objWordDoc.PrintOut
objWordDoc.Close
objWordApp.Quit

'// 然后是两个操作表格的函数,函数虽然简单,但提示一个方向,一个思路.
'/// 检查当前表格行或列的总数是否足够,不够则会新增'/// objDoc Word文档对象'/// iRows 需要的行数'/// iCols 需要的列数'/// iTables 要操作文档中的第几个表格, 1 - N, 默认为第一个Private Function InsertTable(objDoc As Word.Document, iRows As Integer, iCols As Integer, Optional ByVal iTables As Integer = 1) Dim countRows As Integer Dim countCols As Integer Dim TableIndex As Integer Dim i As Integer TableIndex = iTables If TableIndex > 0 Then countCols = objDoc.Tables(TableIndex).Columns.Count countRows = objDoc.Tables(TableIndex).Rows.Count For i = countCols To iCols - 1 objDoc.Tables(TableIndex).Columns.Add Next For i = countRows To iRows - 1 objDoc.Tables(TableIndex).Rows.Add Next End If End Function
'/// 在指定文档中的指定表格中的指定行列中插入值'/// objDoc Word文档对象'/// iRows 指定的行数'/// iCols 指定的列数'/// sValue 要插入的值'/// iTables 要操作文档中的第几个表格, 1 - N , 默认为第一个Private Function WriteTable(objDoc As Word.Document, iRows As Integer, iCols As Integer, sValue As String, Optional ByVal iTables As Integer = 1) Dim TableIndex As Integer TableIndex = iTables If TableIndex > 0 Then InsertTable objDoc, iRows, iCols, iTables objDoc.Tables(TableIndex).Cell(iRows, iCols).WordWrap = True objDoc.Tables(TableIndex).Cell(iRows, iCols).Range.Text = sValue End IfEnd Function 收起阅读 »

在ＶＢ6.0中，操作word，使用它强大的查找、替换、删除、复制、翦切功能。还可以把特定字符替换成图片。有了它你就可以使用数据库中的内容或图片文件替换word文件中的特定字符。
　　只要把下列内容复制到写字板中，另存为SetWord.cls文件，然后在把它添加到工程中，就可以使用了。
VERSION 1.0 CLASSBEGIN MultiUse = -1 'True Persistable = 0 'NotPersistable DataBindingBehavior = 0 'vbNone DataSourceBehavior = 0 'vbNone MTSTransactionMode = 0 'NotAnMTSObjectENDAttribute VB_Name = "SetWord"Attribute VB_GlobalNameSpace = FalseAttribute VB_Creatable = TrueAttribute VB_PredeclaredId = FalseAttribute VB_Exposed = FalsePrivate mywdapp As Word.ApplicationPrivate mysel As Object
'属性值的模块变量Private C_TemplateDoc As StringPrivate C_newDoc As StringPrivate C_PicFile As StringPrivate C_ErrMsg As Integer
Public Event HaveError()Attribute HaveError.VB_Description = "出错时激发此事件.出错代码为ErrMsg属性"'***********************************************************'ErrMsg代码：1－word没有安装　2　-　缺少参数 3　-　没权限写文件' 4　-　文件不存在''*************************************************************
Public Function ReplacePic(FindStr As String, Optional Time As Integer = 0) As IntegerAttribute ReplacePic.VB_Description = "查找FindStr,并替换为PicFile所指向的图片文件,替换次数由time参数确定,为0时，替换所有"
'****************************************************************************'　　　　从Word.Range对象mysel中查找所有FindStr，并替换为PicFile图像' 替换次数由time参数确定，为0时，替换所有'******************************************************************************
If Len(C_PicFile) = 0 Then C_ErrMsg = 2 Exit FunctionEnd If
Dim i As IntegerDim findtxt As Boolean
mysel.Find.ClearFormatting mysel.Find.Replacement.ClearFormatting With mysel.Find .Text = FindStr .Replacement.Text = "" .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchByte = True .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With mysel.HomeKey Unit:=wdStory findtxt = mysel.Find.Execute(Replace:=True) If Not findtxt Then ReplacePic = 0 Exit Function End If i = 1 Do While findtxt mysel.InlineShapes.AddPicture FileName:=C_PicFile If i = Time Then Exit Do i = i + 1 mysel.HomeKey Unit:=wdStory findtxt = mysel.Find.Execute(Replace:=True) Loop ReplacePic = iEnd Function
Public Function FindThis(FindStr As String) As BooleanAttribute FindThis.VB_Description = "查找FindStr,如果模板中有FindStr则返回True"If Len(FindStr) = 0 Then C_ErrMsg = 2 Exit FunctionEnd If mysel.Find.ClearFormatting mysel.Find.Replacement.ClearFormatting With mysel.Find .Text = FindStr .Replacement.Text = "" .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchByte = True .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With mysel.HomeKey Unit:=wdStory FindThis = mysel.Find.ExecuteEnd Function
Public Function ReplaceChar(FindStr As String, RepStr As String, Optional Time As Integer = 0) As IntegerAttribute ReplaceChar.VB_Description = "查找FindStr,并替换为RepStr,替换次数由time参数确定,为0时，替换所有"'****************************************************************************'　　　　　从Word.Range对象mysel中查找FindStr，并替换为RepStr' 替换次数由time参数确定，为0时，替换所有'******************************************************************************Dim findtxt As Boolean
If Len(FindStr) = 0 Then C_ErrMsg = 2 RaiseEvent HaveError Exit FunctionEnd If
mysel.Find.ClearFormatting mysel.Find.Replacement.ClearFormatting With mysel.Find .Text = FindStr .Replacement.Text = RepStr .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchByte = True .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With
If Time > 0 Then For i = 1 To Time mysel.HomeKey Unit:=wdStory findtxt = mysel.Find.Execute(Replace:=wdReplaceOne) If Not findtxt Then Exit For Next If i = 1 And Not findtxt Then ReplaceChar = 0 Else ReplaceChar = i End If Else mysel.Find.Execute Replace:=wdReplaceAll End IfEnd Function

Public Function GetPic(PicData() As Byte, FileName As String) As BooleanAttribute GetPic.VB_Description = "把图像数据PicData,存为PicFile指定的文件"'****************************************************************************'　　　　　把图像数据PicData,存为PicFile指定的文件'******************************************************************************On Error Resume Next
If Len(FileName) = 0 Then C_ErrMsg = 2 RaiseEvent HaveError Exit FunctionEnd If
Open FileName For Binary As #1
If Err.Number <> 0 Then C_ErrMsg = 3 Exit FunctionEnd If
'二进制文件用Get,Put存放，读取数据Put #1, , PicDataClose #1
C_PicFile = FileNameGetPic = True
End Function
Public Sub DeleteToEnd()Attribute DeleteToEnd.VB_Description = "删除从当前位置到结尾的所有内容"mysel.EndKey Unit:=wdStory, Extend:=wdExtendmysel.Delete Unit:=wdCharacter, Count:=1End Sub
Public Sub MoveEnd()Attribute MoveEnd.VB_Description = "光标移动到文档结尾"'光标移动到文档结尾mysel.EndKey Unit:=wdStoryEnd Sub
Public Sub GotoLine(LineTime As Integer)mysel.GoTo What:=wdGoToLine, Which:=wdGoToFirst, Count:=LineTime, Name:=""End Sub
Public Sub OpenDoc(view As Boolean)Attribute OpenDoc.VB_Description = "打开Word文件,View确定是否显示Word界面"On Error Resume Next
'****************************************************************************'　　　　　打开Word文件，并给全局变量mysel赋值'******************************************************************************
If Len(C_TemplateDoc) = 0 Then mywdapp.Documents.AddElse mywdapp.Documents.Open (C_TemplateDoc)End If
If Err.Number <> 0 Then C_ErrMsg = 4 RaiseEvent HaveError Exit Sub End If mywdapp.Visible = view mywdapp.Activate Set mysel = mywdapp.Application.Selection 'mysel.Select End Sub
Public Sub OpenWord()On Error Resume Next
'****************************************************************************'　　　　　打开Word程序，并给全局变量mywdapp赋值'******************************************************************************
Set mywdapp = CreateObject("word.application") If Err.Number <> 0 Then C_ErrMsg = 1 RaiseEvent HaveError Exit Sub End IfEnd Sub
Public Sub ViewDoc()Attribute ViewDoc.VB_Description = "显示Word程序界面"mywdapp.Visible = TrueEnd Sub
Public Sub AddNewPage()Attribute AddNewPage.VB_Description = "插入分页符"mysel.InsertBreak Type:=wdPageBreakEnd Sub
Public Sub WordCut()Attribute WordCut.VB_Description = "剪切模板所有内容到剪切板" '保存模板页面内容 mysel.WholeStory mysel.Cut mysel.HomeKey Unit:=wdStoryEnd Sub
Public Sub WordCopy()Attribute WordCopy.VB_Description = "拷贝模板所有内容到剪切板" mysel.WholeStory mysel.Copy mysel.HomeKey Unit:=wdStoryEnd Sub
Public Sub WordDel() mysel.WholeStory mysel.Delete mysel.HomeKey Unit:=wdStoryEnd Sub
Public Sub WordPaste()Attribute WordPaste.VB_Description = "拷贝剪切板内容到当前位置"'插入模块内容mysel.PasteEnd Sub
Public Sub CloseDoc()Attribute CloseDoc.VB_Description = "关闭Word文件模板"'****************************************************************************'　　　　　关闭Word文件模本'******************************************************************************On Error Resume Next
mywdapp.ActiveDocument.Close False
If Err.Number <> 0 Then C_ErrMsg = 3 Exit SubEnd If
End Sub
Public Sub QuitWord()'****************************************************************************'　　　　　关闭Word程序'******************************************************************************On Error Resume Next
mywdapp.Quit If Err.Number <> 0 Then C_ErrMsg = 3 Exit SubEnd IfEnd Sub
Public Sub SavetoDoc()Attribute SavetoDoc.VB_Description = "保存当前文档为FileName指定文件"On Error Resume Next
'并另存为文件FileName
If Len(C_newDoc) = 0 Then C_ErrMsg = 2 RaiseEvent HaveError Exit SubEnd If
mywdapp.ActiveDocument.SaveAs (C_newDoc) If Err.Number <> 0 Then C_ErrMsg = 3 RaiseEvent HaveError Exit Sub End If
End Sub
Public Property Get TemplateDoc() As StringAttribute TemplateDoc.VB_Description = "模板文件名."TemplateDoc = C_TemplateDocEnd Property
Public Property Let TemplateDoc(ByVal vNewValue As String)C_TemplateDoc = vNewValueEnd Property
Public Property Get newdoc() As StringAttribute newdoc.VB_Description = "执行CloseDoc方法时，将模板文件另存为此文件名指定的新文件.如果不指定，在执行CloseDoc方法时，将产生一个错误"newdoc = C_newDocEnd Property
Public Property Let newdoc(ByVal vNewValue As String)C_newDoc = vNewValueEnd Property
Public Property Get PicFile() As StringAttribute PicFile.VB_Description = "图像文件名"PicFile = C_PicFileEnd Property
Public Property Let PicFile(ByVal vNewValue As String)C_PicFile = vNewValueEnd Property
Public Property Get ErrMsg() As IntegerAttribute ErrMsg.VB_Description = "错误信息.ErrMsg代码: 1-word没有安装 2-缺少参数 3-没权限写文件 4-文件不存在"ErrMsg = C_ErrMsgEnd Property 收起阅读 »

VB千里行－操作Word与Excel
2009年03月18日 星期三 下午 02:11




本文将告诉你如何使用VB代码连接Office应用程序，并简要接触一下在文件中输入数据的方法。实际上，在VB中用代码与Word和Excel进行会话并控制它们，是可行的。但是请注意，首先需要在机器上安装office应用程序，才能在VB代码中存取它们的对象。
　　 下面就是一些例子，告诉你如何与这些程序会话，并控制它们。 Option Explicit

Dim xlsApp As Excel.Application
Dim wrdApp As Word.Application

　　 只要相关的对象库已经被选择，在应用程序中进行对象变量的赋值是可能的。Microsoft Excel 8.0对象库是相对于Excel的，而 Microsoft Word 8.0 对象库是为Word服务的。
　　 在VB的IDE环境中，从“工程”菜单中选择“引用”，可以看到系统可用的所有库列表。Private Sub Command1_Click()
Set xlsApp = Excel.Application
With xlsApp
'Show Excel
.Visible = True
'Create a new workbook
.Workbooks.Add
'Put text in to the cell that is selected
.ActiveCell.Value = "Hi"
'Put text into A3 regardless of the selected cell
.Range("A3").Value = "This is an example of connecting to Excel"
End With
End Sub
　　 在上面的程序段中，我们在变量xlsApp中建立了一个对象，这样Excel就对用户可见了。当Excel象这样启动后，并不包含一个工作簿，所以必须创建或者执行打开操作。这里，我们建立了一个新的工作簿，然后，就可以操作其中的信息，或者打印，或者保存，或者你任意想做的事情。Private Sub Command2_Click()
'close the workbook
xlsApp.Workbooks.Close
'Close Excel
xlsApp.Quit
End Sub

　　 上面这段代码执行关闭程序的功能。首先，关闭工作簿，这将出现一个提示对话框，询问用户是否想保存修改；然后，退出应用程序。Private Sub Command3_Click()
Set wrdApp = New Word.Application
With wrdApp
'Show Word
.Visible = True
'Create New Document
.Documents.Add
'Add text to the document
.ActiveDocument.Content.Text = "Hi"
.ActiveDocument.Content.Text = "This is a test example"
End With
End Sub

　　 上面这段代码中，在变量wrdApp中设置引用Word程序的对象。同样，当Word按照这种方式启动后，不会包含一个文档，所以，必须执行建立或者打开操作。这里是建立了一个新文档，然后可以操作其中的信息了，打印、保存、发送邮件，等等...
　　 但是，在Word文档中放置文本并非容易！特别是与Excel一起工作时。为了简单地在特定的地方放置文本，需要有一个bookmark标记。这意味着，需要事先建立一个模板。Private Sub Command4_Click()
'Close the current document
wrdApp.ActiveDocument.Close
'Close Word
wrdApp.Quit
End Sub

　　 上面这段代码的功能是关闭应用程序。首先，关闭当前文档，这时可能需要用户保存修改。然后，退出程序。Private Sub Form_Unload(Cancel As Integer)
'Clear the memory
Set xlsApp = Nothing
Set wrdApp = Nothing
End Sub

　　 最后一段代码就是关闭VB应用程序。这是优秀程序员编程的好习惯。
　　 Well I hope this brief tutorial is helpful. It does not touch on much of what you can do to the office applications once they're open, but should give you an idea of how to get started.
　　 好了，简单的介绍到此结束。我希望能抛砖引玉，让你更加随意地操作Office应用程序！ 收起阅读 »

来公司已经一年了，虽说没学到什么东西，还是有些许留恋的。
不过，我要寻找自己要的生活了，
选择离开、、

顾客今天一行五人来公司,明天会在公司会议室与总厂高层领导会谈.双方至少会对敏感问题进行沟通,但能进行到什么程度,却未知.总会有新信息流出,期望能改变现状,或者至少是延迟!突然想到,这很悲哀,因为自己不能决定自己的命运,任人摆布.

我勒个去！去！！去！！！ 收起阅读 »

题记：再一次，试图谈论感情

当我把心放在一个人身上的时候

对于其他不相干的人我会完完全全地遗忘

就算是曾经爱过我的，或者现在说爱我的人

我会选择记不得他的姓名，电话，以及一切相关联的事物

因为那些都与我的生活无关


我会让身边的一切都充斥着一个人的气息

包括饮食与空气

包括感觉和抚触


如果是情感的需要而与他人藕断丝连，我会连自己都看不起自己

如果因怜悯而将感情分了一杯羹，那么分到的每个人，喝下的其实是毒药，那又何必

很多人喜欢把网络当成游戏，但从另一方面看去，网络也在暴露着各人的隐私

今天缘聚了在一起，明天缘散了各奔东西

都是一场戏


多年前我就不再相信爱情，很多的人还担心着我的感情是否不稳定

其实，呵呵，别担心，我什么都有了，比普通的人们还拥有得多得多

爱情，婚姻，家庭，还有很多很多

只不过我不想说，我不想在这儿说

所有的日志，不想谈论感情生活，因为这样才能自然而干净

不引人遐想，不想入非非

不惹祸上身，方独善其身


所以我选择，只把心放在一个人身上

对于旁的人，我都视而不见

只把心放在一个人身上

不想其他人，你们说，好不好？ 收起阅读 »

昨晚起来一次，然后就有很久没有睡着，于是就想到要分享一下这本书给大家。
昨天晚上要跟老大去混饭吃，原因是公司财务总监约了一个汽车配件公司的财务副总现身说法，讲讲他在他们公司推行类似“阿米巴”（即：利润中心）的经验。老大说，你先看看《稻盛和夫 阿米巴经验》这本书吧。于是我从16:30翻到18:00，基本翻完整本书。

“阿米巴”在日语中是指细胞，可以自由自在重复进行细胞分裂。
阿米巴的三个目的：
1） 确立与市场挂钩的部门核算制度；
2） 培养具有经营者意识的人才；
3） 实现全体员工共同参与经营。
如何实施阿米巴？
一、把组织细分为事业组成单位。
1、 有三个条件：
可以独立核算、可以独立完成业务、可以贯彻公司整体的目标和方针。
2、组织是可以实时调整的。
2、 同时建立支撑阿米巴经营的经营管理部门，如处理经营数据、起草规章制度的部门。
二、阿米巴之间应合理定价。
1、从销售给客户的最终售价倒推计算，然后根据生产该产品的各道工序的“单位时间附加值”（每小时创造的附加价值）来决定阿米巴之间的售价。
2、一般利润中心采取“标准成本”模式，生产只要负责在标准成本内生产产品，销售部门负责售卖，利润都落在销售部门身上；而阿米巴最大的区别就是生产直接对接销售额，销售部门获取的仅是帮助生产部门销售后的佣金，即卖产品的销售收入进行提成。这样市场价格直接进入到各级阿米巴，使得阿米巴重视市场波动，主动考虑降低成本。
（我认为）解决了生产部门不关心销售业绩，只管生产。销售业务员把握了售价高低和公司的利润高低。
3、阿米巴还提出用“业绩”和“余额”掌握业务流程。按照订单生产，肯定会产生库存，即“余额”。把经营业绩和库存(未回款)余额一起作为经营数据进行管理。
（我认为）解决了公司高成品库存的现状。
三、高层、阿米巴的领导需要具备经营哲学。
如：公正、公平、不撒谎、不欺骗、要正直等，不讲究成果主义（即业绩好就提高报酬）。

第一张图，是订单生产模式的收入。可以看到，销售金额=生产金额=制造成本+销售佣金+利润，销售部门的收入是佣金，不是将标准成本模式里面的产品总销售收入作为销售部门收入。

第二张图，是现有库存的销售收入模型，这个就与所谓的标准成本模式一样了。
我们公司也即将导入利润中心模式，成立两家制造分公司、一家销售分公司，未来可能有研发分公司。那么是采取标准成本模式，还是阿米巴模式？我个人推介阿米巴模式，更贴近市场。但是这个对人的要求挺高，个人素质、专业素质、道德水准等。如果要用标准成本模式，我司现状还太薄弱，例如没有标准工时、成本核算粗糙等等。 收起阅读 »

魏延（？—234）字文长，义阳郡（治今河南省桐柏县东）人。刘备在荆州时，魏延成为刘备将领。建安十六年（211），刘备西入益州，魏延以部曲随行入川。取川之战中，魏延斩关夺寨，屡立战功，升任牙门将军。　 建安二十四年（219），刘备夺取汉中，要选拔一员大将镇守汉中。汉中地处魏蜀结合部，地理位置极为重要，因而汉中太守的职位便显得非常关键。当时幕僚们私下议论，以为能担此重任者，非张飞莫属，张飞也“以心自许”。不料刘备在宣布任命时，竟是小小的牙门将军魏延。一时之间，全军上下无不为之震惊，对魏延开始刮目相看。刘备离开汉中时大会群臣，在会上他问魏延：“我把汉中重任交给你，你准备怎么办？”魏延应声回答说：“如果曹操举天下之众至，我为大王拒之；若偏将十万之众至，我为大王吞之。”回答得干脆利落，掷地有声。刘备非常满意，在场文武官员无不为之振奋.魏延并没有说大话。他不负刘备重托，在防守汉中时创立“围守御敌”之法，就是在汉中险要处依地势筑起一座座土围作为营寨，积粮屯兵，加强守备。如果敌军来犯，各围敛众据险，而后待机出击，相互救援，使敌人不能持久。后来的事实证明，这种战法在保卫汉中的过程中发挥了关键作用.魏延在汉中的杰出表现赢得了刘备的充分肯定。刘备称帝后，进一步提拔魏延为镇北将军。据说，在陕西省留坝县境内过去曾有过一块石碑，上刻“镇北将军魏延”字样，大概就是魏延升任镇北将军后所立。可惜1971年当地修路，开山炸石，石碑被毁，今已不存 建兴五年（227），诸葛亮率军北伐曹魏。魏延作为刘备器重的大将，坦率地向诸葛亮提出了轻兵循子午谷袭击长安，攻取关中的战略主张。但是，诸葛亮认为此计悬危，拒绝采纳。这让魏延非常失望。　 随后的几年中，诸葛亮又数度北伐，但无一成功。这一时期，魏延并没有得到诸葛亮的重用。　 魏延虽然才干出众，但他性格耿直，甚至有些刚愎自用，同僚们普遍对他敬而远之。许多人因接受不了魏延的这种性格，便处处让着他，更助长了魏延的这种脾气。　 不过，蜀军中有一位掌管后勤的官员却从不把魏延放在眼里，此人便是杨仪。杨仪本性狷狭，为人奸诈。魏延一向看不起杨仪，而杨仪又偏偏与魏延对着干，这使魏延十分恼火，对杨仪恨之入骨。有时二人当众争论起来，魏延脾气大，便要拔刀杀杨仪。而杨仪便痛哭流涕，一副受人欺侮的样子。久而久之，二人积怨很深，犹如水火。诸葛亮当然知道这一情况，但他不仅不予制止，反而肆意纵容，使二人的矛盾不断扩大化。后来，诸葛亮还专门写了一篇叫《甘戚论》的文章，意在调解二人的关系，想让二人翻然悔悟。但魏、杨矛盾极深，又怎是一篇文字所可了断？（据《华阳国志》卷七）不过，当时军中有个费祎，此人很会和稀泥，才使二人矛盾没有过早爆发。　 收起阅读 »

春天来了，天下N多男男女女开始结拜了。。。。。。。。。。。。
都在学我们四大侠呢？？受不了，我疯狂地汗~~~~~~~~

假设天空忽然下起雨来了，你手头上只有4把坏掉的伞，在不得已的情况下，你会选哪一支来用?这个问题的答案，可以显示你和情人吵架後的态度。忽然下起来的雨，在心理学上代表「与亲密人所发生的争执」，而各种不同的坏伞代表着在争执後的压力下，你会採取的态度，试试看吧!A. 有1个大洞的伞。B. 有几个小洞的伞。C. 伞柄弯掉的伞。D. 伞柄很短的伞。





分析：选 A 的人：选择顶上破个大洞的伞，表示自己有些淋湿了也没关係，可以延伸成「低头赔罪也没关係」。在吵完架後，你可能是那种率直地向对方认错，以求两人言归於好的人，虽然这样可以达到你的目的，但是如果对错不分的话，小心会助长对方的气焰。选 B 的人：选择顶上破几个小洞的伞，表示你是那种在不伤害自己自尊心下，会向对方道歉的类型。你在吵完架後，要等过了一阵子，才会说「那时候我也不对」。选 C 的人：选择伞柄弯掉的伞，显示出你个性上的倔强。即使明知道吵架是自己不对，但还是有意无意会把责任推给对方，别扭地不想认错，你是那种稍微低头也不是很愿意的类型。如果这样重复几次，当然会走上分手结局。选 D 的人：选择伞柄很短的伞，表示你是一个吵完就忘的类型。无论吵得再凶，对方说得多难听，睡了一觉之後，你都好像没发生过一样地能和对方继续相处。这样的态度，反倒是让对方自己觉得惭愧而能顺利地言归於好。看了就要选噢！ 收起阅读 »

小品《不差钱》揭示多少潜规则？留下永恒的启迪　　看春晚小品《不差钱》，如果把欣赏视线从小沈阳的七分裤、赵本山的苏格兰调情、丫蛋喝的咸卤水转移，把关注的焦点从赵本山是否走下神坛、小沈阳是否盖过师傅挪开，换一个角度重新审视这个小品，对其故事情节和语言风格再作一番思考，它究竟在表演一个什么样的主题？它在揭示一个什么样的社会现象？很耐人寻味。三思之后发现，其实，这个小品有意或无意地描绘了当今社会最流行的潜规则。
　　小品中，赵本山为什么要拿三万元、要提土特产、要在最贵的苏格兰情调的饭店请客？这一切都是为了让丫蛋顺利走上星光大道而铺路架桥。这一小小的镜头正反映了当今社会的一个潜规则：花钱好办事。有钱能使鬼推磨，这是中国老百姓几千年来信奉的真经，也是当今人们乐此不疲的心事，小品采取不痛不痒的办法进行了较好展示，而这一潜规则正是目前寻常百姓心头上的最大硬伤。
　　作为一个小老百姓，究竟有多少人为办个证、盖个章而请过客、送过礼？这是个难以统计的数字，小品中出现这一幕，正是当今现实社会的一个缩影，这也许就是《不差钱》能与观众产生共鸣的深层次原因之一吧。《不差钱》虽然没有惊心动魄地讽刺这一社会现象，里面却隐含着一个无声的呐喊，它的巧妙之处就在于，让人们从大笑中重新认识了这一丑恶现象，让游弋在潜规则中办事收钱的人，闻到了臭屁，却感觉不出来究竟是不是屁臭。真可谓此时无声胜有声，于无声处见深邃。
　　中国人办事喜欢拉关系、找熟人、托人情，这是人们生活中的另一个潜规则。小品中，赵本山想方设法与老毕攀亲戚，为了与老毕套近乎，赵本山说，咱们是亲戚，我的老爷爷住在大连。接下来赵本山马上把老毕和丫蛋扯上了关系：一笑，很象你老爷走的时候的照片，孩子就跟老爷亲，快叫老爷好。最后，为了让自己也能上星光大道，他不惜血本地说了天大的瞎话：其实我老爷也姓毕。
　　看到这些可笑的场面，回想一下身边的人和事，这不是经常发生在我们身边的社会现实吗？每一个中国人从一懂事起，就要秉承“多个朋友多条路”的信条，挖空心思地编织自己的关系网，在同学圈、战友圈、朋友圈、网友圈、生意圈中寻找自己的一亩三分地，目的只有一个，为了办事方便。人人都觉得很累，人人都觉得很烦，人人都想淡出江湖，但在滚滚红尘中又有谁能左右这个局势呢？小品通过套近乎所揭示的，其实就是对拉关系潜规则的一种无奈。
　　《不差钱》揭示社会潜规则最直白的，当属打白条一事。小品中，当赵本山请客钱不够时，就赤裸裸地问小沈阳：是否有这样的情况，今天吃饭明天来结帐。小沈阳听后急速回答：打白条？这看似简单的几句对话，却反映了一个社会大问题。赵本山一提醒，小沈阳马上应答，顺其自然，合情合理，如果让观众回答赵本山的问题，估计答案也是一样的，小品通过这一情节生动刻化了吃饭打白条在中国社会存在的普遍性。
　　在中国，打白条也有潜规则的，白条不是任何人都可以打，只有强势对弱势才有这个特殊的权力，比如官场对商场、老板对职工、干部对农民、局长对浴池等等。如果违反了这个潜规则，倒过来打白条，是坚决行不通的。小品中的东北老头所爆出的笑料，正是违反了这个潜规则，他因为钱落在家里炕上欲在高档饭店打白条，结果签单未遂，不得不用忽悠的办法来应对老毕，这从表面上表现了“级别不到，不要胡闹”民间俗话，实质上一针见血地对打白条现象给予了猛烈的讽刺和无情的鞭挞。
　　每个家庭的花钱也是有潜规则的，“量入为出”是消费的一个最好尺度。“钱是龟孙，花完再拚”是一种过度消费，只能让人倾家荡产。“存款不花，当个傻瓜”是保守消费，只能落个吝啬鬼的笑名。“吃豆腐渣逛窑子，该省省，该花花”是盲目消费，只能让一个家庭日趋没落。不合理的消费观念所造成的结果只有两个字：痛苦。赵本山和小沈阳在小品中对这一潜规则进行了精彩的终极点评：“钱是身外之物，人最痛苦的是什么，人死了，钱没有花。最痛苦的是人活着，钱没有了。”简单的话说出了复杂的事，小品在这里昭示人们：知足常乐，不能太贪，否则，将痛苦一生。
　　人生本是“一场游戏一场梦”，不能太较真，也不能太草率，孩子老婆热炕头，平平淡淡才是真。小品《不差钱》通过小沈阳的精典感慨，对人生进行了严肃诠释，这即是小品的画龙点睛之处，也是对社会潜规则的精典总结。小沈阳说：人的一生很短暂，有的时候跟睡觉是一样的，眼睛一闭，一睁，一天过去了，眼睛一闭，不睁，这辈子就过去了。简单的一句话，把人生哲理概括得淋漓尽致。不管是乌纱压顶的高官，还是田间劳作的布衣，不管是腰缠万贯的富豪，还是一贫如洗的乞丐，不管是红得发紫的大腕，还是衣食无着的草根，当一闭、不睁时，结果都是一样的。这就是人生。
　　《不差钱》的妙不可言，不仅让人在大笑时直接看出什么，而且让人在笑后悟出什么。这种看似隔靴挠痒实为一针见血的表现形式，其实正是舞台小品的精髓。未来的日子里，不管赵本山是否走下神坛，不管小沈阳是否一红不可收拾，不管老毕是否继续走在星光大道，不管丫蛋是否成为后起之秀，小品《不差钱》都将给中国人留下永恒的启迪。转载请注明出自六西格玛品质论坛 http://bbs.6sq.net/,本贴地址:http://bbs.6sq.net/viewthread.php?tid=206833
看见上面大师的经典剖析,想起偶老哥(生意人)的一句话:中国就是个人情的社会,没有人情,那还是一个纯粹的中国吗？是啊，五千年的中国就有五千年的人情！
人情，本身是无可厚菲的。人性，本身就是自私的，认识的人和不认识的人同时找你帮忙，你帮哪个？有回报的事情和没有回报的事情你做哪个？
邓先生说：不管黑猫白猫，逮着耗子的就是好猫！如此，我们就看到以前的人不敢也不会在家乡附近做些作奸犯科的事，要做都跑远点，因为怕人说闲话，背后戳脊梁骨；改革开放了，我们一门心思的逮耗子---做什么和怎么样去做是没有人在意的，因为我们只以成败认英雄！这里的画外音是：我们穷怕了....
还记得在电视剧亮剑中李云龙去看电影和他的政委为了路见不平最后发展到群殴的事情，事后李云龙的岳父评价：本身斗殴是要受到法律的制裁的，然而，当你亮出了“官”的身份后，不仅仅能逃脱法律的制裁，还让执法者都感到惶恐！看当时，我们农民出身的李军长似乎对这个观点有抵触。这个就是我们五千年的文化底蕴----我们都认为当事情做的是正确的，就可以路见不平，拔“刀”相助。制订的法律（规则）也应该支持这个拔刀相助。想想，是否在你我的潜意识里面都会有这种思想？我们都在想超越规则！当然，现在的社会也有许多人游荡在规则之外，给了我们榜样。 收起阅读 »

拜托大家了，近段时间我收到好多争车位、德克萨斯、朋友买卖等游戏的邀请，烦死啦！！！！！！！

系统又不让设置屏蔽这些邀请，只能屏蔽收到的邀请！！

以后，请大家别再邀请我加入这样那样的游戏了，特别是那个什么德克萨斯扑克牌，我最讨厌玩扑克牌了！

请大家知悉！以后再邀请我就把好友全删了！！！

最近心情不太好，NND。 收起阅读 »

笑对人生
我们从小到大，听够了很多激动人心的词汇：坚韧不拔、百折不挠、克难奋进、通往直前、洞若观火、明辨是非、明知山有虎，偏向虎山行……但实际生活中，我们往往碰到的事，恰似陷入了诸葛亮的八卦阵，这些词根本派不上用场。此时此刻，只能用“无奈”二字了。面对无奈，最好是毫不在意，拿出一份豁达的心劲儿，笑对人生。 笑对人生，是一份超然。用超然的心态看待一切，不去苛求。特别是当你好心不得好报的时候，一心为别人而别人不理解的时候，更要拿出一份超然。记得托翁年轻的时候，回到故乡，把父亲留给他的庄园尽数分给农奴，想让他们过一份自由幸福的生活，按说这是一件天大的好事，奴隶们应该感激涕零、叩头谢恩才是。想不到的是，农奴们不但不感激他，反而大骂他：我们当奴隶当惯了，只会当奴隶，你分了土地，我吃什么呀？这类的事我们都可能遇到，不必去生气，要理解：奴隶就是奴隶。 笑对人生，是一份豁达。当你坚持正义，明辨时非，抗击邪恶，有人却偏要把黑的说成的白，把白的说成是黑的，这时你千万不要生气，以豁达待之。要理解：他并非故意，实是因为角度不同，他本身就站在黑里，在他眼里黑的就是白的，白的自然成黑的了。就是故意，也不必在意。面对赵高指鹿为马，你只要知道那是鹿不是马就行，不必去争个是非曲直，他自己并非不知道，他这么做，自然有这么做的道理，至于其险恶用心，就不必去猜度了，不理就行。有个朋友给我短信说：人生活在同一世界，为什么就有高低贵贱之分？灵魂也为何如此不同呢？他们都是从一个地方来的吗？对这个问题，葫芦老师想通了吗？魏晋南北朝时，佛教盛行，宣扬因果轮回之说，范缜以人之生譬如一树花，同发一枝，俱开一蒂，随风而逝之后，则景况不一，有坠于茵席之上的，有落入粪厕之中的，贵贱虽复殊途，因果竟在何处？我说：这些不必去思，不必去想，存在就是合理，适合就是美丽，由他去吧。 笑对人生，要学会认输。我们常会遇到些缠不清的麻烦，怎么办？认输就是了。比如，你被狗咬了一口，就不必想着非要也去咬狗一口才出了那口恶气，你必须认输。狗的特长就是咬人，就算你真的去和它咬，你就能咬过它吗？只能是遭受更大的伤害。再比如，你被蚊子咬了一口，还听它一边咬一边唱歌，似乎很有理。你气得七窍生烟，想着一定要到蚊子法庭去争个是非曲直，把公道讨回来。你能讨得回来吗？ 笑对人生，有时还要适时退步抽身。人有时不免走错，走错了退回来就是了。这个道理人人都懂，但实行起来并不容易。当你开始走的时候，并不知道对错，当你知道错了的时候又往往舍不得抽身而回，总心存幻想：也许……也许……到一直走进了烂泥坑里，还在想：也许这是个宝坑呢？也许这里边埋着金缸银缸呢！到确切知道这只是一个烂泥坑，既无金缸也无银缸的时候，还会想：不能回去，这样一身烂泥让别人看了多不好意思呀！只要我自己不说，谁也不知道。 笑对人生，需要一份豁达，更需要一份心智。中国传统教育是：宁折不弯；我倒以为，更多的时候，宁弯不折更好。（本人作品属《哥老子》所有，任何媒体和个人均不得随意转载，如若转载，须注明出处及原创作者，否则视同侵权。） 收起阅读 »

什么是坏苹果法则？ 　　如果把一个坏苹果留在一筐好苹果里，结果你将得到一筐烂苹果，这就是坏苹果法则。 经典案例 　　一所中学的校长找到三位老师对他们说：“你们是整个系统最优秀的教师，所以，我将给你们90名高智商的学生，看他们能学得多快。”老师和学生都很兴奋。一年之后，这些学生的成绩比该地区其他学生高出20％到30％。校长把老师们找来，告诉他们：“我必须坦白一件事情，你们的学生并不是智商最高的，他们只是一群普通的学生；你们也不是最好的老师，只不过是我从一顶帽子里首先抓出来的而已。”那么是什么使他们比别人做得更好的呢？是参加实验的人们的态度。老师和学生都以为自己是优秀的，他们期待着成功，于是充分发挥出自己的潜力。态度就是决定这一结果的关键。 坏苹果法则启示 　　一个人的态度将影响到一个团队，如果想使你的企业成功，那么你就必须有一个积极进取的团队。坏苹果法则可以帮助你达到这样的目的。扔掉坏苹果，换上好苹果吧！因为一个人的恶劣态度会毁掉整个团队。 一个未画完整的句号 　　一位著名企业家在做报告，当听众咨询他最成功的做法时，他拿起粉笔在黑板上画了一个圈，只是留下了一个缺口。他反问道：“这是什么？”“零”、 “圈”、“未完成的事业”，台下的听众七嘴八舌地答道。他对这些回答未置可否：“其实，这只是一个未画完整的句号。你们问我为什么会取得辉煌的业绩，道理很简单———我不会把事情做得很圆满，就像画个句号，一定要留个缺口，让我的员工去填满它。” 坏苹果法则的管理应用 　　事必躬亲是对员工智慧的扼杀，往往事与愿违。长此以往，员工容易形成惰性，责任心大大降低，把责任全推给管理者。情况严重者，会导致员工产生逆反心理，即便工作出现错误也不情愿向管理者提出。多让员工参与公司的决策是对他们的肯定，也是满足员工自我价值实现的精神需要。赋予员工更多的责任和权利，他们会取得让你意想不到的成绩。 收起阅读 »

难得一场春雨
早晨等班车的时候，突然发现
路旁的观赏桃花全开了
矗立在早晨烟雨之中
竟然是那么的娇艳
想起不久前大老远的赶去武大看樱花
看到的只是满校园的同仁
其结果，失望而归

原来
用心去发现
美就在身边

有些科学家连音阶都抓不准；有些画家连一封信都写不好，可是他们「把自己放对地方」，所以成就非凡。史蒂芬.史匹柏就是个例子，他因为高中的成绩非常差，没有任何电影科系愿意准许他入学。相反的，他走进电影工作室，认真学到了他所需的技能。今天，他不但制作了许多评价极高的影片，更成为家喻户晓的大导演。毕加索刚出道时原本想当诗人，结果他的诗被极具鉴识能力的丝泰茵夫人评得一文不值，他因而回心转意。幸好有这位贵妇的提醒，否则这世界不就少了一位大画家了吗？其实， 所有的人事物原本都是美好的，只是所属的地方适不适合而已。如美味的汤汁滴到衬衫上即变「肮脏」，床第间的私密用语到了街上即成「脏话」。是不是很有趣！原本含在口中的食物，只要吐出来就变得「恶心」，把它吞下去反而「有营养」。即便是肮脏污秽的垃圾，只要放对地方（埋在土里），也能滋养大地，开出美丽的花朵，长出能够带给我们健康的食物。这世上没有任何一个人或一件东西，是没用或卑贱的，任何人或物，只要放对了地方，都会成为有用的「可造之材」。找到最适合自己的人生舞台，把开幕、落幕看的稀松平常，我们只要把握每次轮到自己上舞台的机会，尽力表现，就好。

人生有苦难，有重担，人性有邪恶，有欺凌，但是到后来这些都对我有益处，苦难竟是化了妆的祝福。人生在一连串不完美中，最后总是完美。 收起阅读 »