博客园_指令狂人

海关舱单系统关于集装箱代码的释疑

2011-09-03T02:35:00Z

今年海关开始推行舱单系统，要求船代传输的箱单数据必须与货代的一致，由于集装箱代码使用ISO95代码，与一般习惯用代码并不一致，造成很大数据匹配问题，不能正常申报。

譬如： 45G1 46G1 都是40尺干货高箱，怎么选择代码？ 22G1 22G0 都是20尺干货箱，怎么选择？

经过仔细研究ISO95标准文件，他们之间的区别是：

45G1 46G1 都是40尺干货高箱，区别在与箱高有微小差距，45是标准高度2895mm，46是高于2895mm

22G1 22G0 都是20尺干货箱，区别是排气口的位置，G0是开在下面，G1是开在上部。

我想这个应该都是集装箱的属性，根据箱高、排气口（通风口）位置每个箱子都有一个对应的准确代码，这个信息要从船代那里拿到。

具体请参考ISO 标准文件：Container size type codes according to ISO 6346

/Files/james-yu/ISOCodes.xls

本文链接

DELPHI for 语句的循环变量的特别处理

2010-09-07T13:45:00Z

今天写一段收集不同币别列表的小程序，其实就是一小段循环程序，没有想到执行结果和预期完全不一样！

下面的程序根本不能得到正确的结果，按照一般理解，for 循环执行后，iCnt应该等于iCurrCount(除非被中断），可实际上iCnt永远不会等于iCurrCount,苦思不得其解，循环执行后iCnt的值是个完全不相干的数字（如-2），彻底晕倒

procedure TForm1.Button1Click(Sender: TObject);
    type CurrType=record
        Name:string; //货币名称
        Dsd:string;   //是否第三地
    end;
var
    CurrList:array[0..19] of CurrType;   //最多10种货币(普通，第三地)
    iCurrCount:integer;

//   得到货币和DSD组合的列表
//
procedure GetCurrList(CurrName,Dsd:string);
var iCnt:integer;
begin
      for iCnt := 0 to iCurrCount- 1 do
      begin
          if (CurrName=CurrList[iCnt].Name) and (Dsd=CurrList[iCnt].Dsd) then //此组合已经存在，中止查找
              Break;
      end;
      if iCnt=iCurrCount then //如果相等，说明数组中不存在此组合，添加之
      begin
          iCurrCount:=iCurrCount+1;
          CurrList[iCurrCount-1].Name:=CurrName;
          CurrList[iCurrCount-1].Dsd:=Dsd;
      end;
end;
begin
    iCurrCount:=0;
    GetCurrList('USD','N');
    GetCurrList('USD','Y');

GetCurrList('EUR','Y');
EDIT1.Text:=INTTOSTR(iCurrCount);
end;

iCurrCount永远为0，开始以为是DELPHI优化的BUG(关闭编译优化就有正确的结果），最后查帮助才发现：(看红字）

A for statement, unlike a repeat or while statement, requires you to specify explicitly the number of iterations you want the loop to go through. The syntax of a for statement is

for counter := initialValue to finalValue do statement

for counter := initialValue downto finalValue do statement

where

counter is a local variable (declared in the block containing the for statement) of ordinal type, without any qualifiers.
initialValue and finalValue are expressions that are assignment-compatible with counter.
statement is a simple or structured statement that does not change the value of counter.

The for statement assigns the value of initialValue to counter, then executes statement repeatedly, incrementing or decrementing counter after each iteration. (The for...to syntax increments counter, while the for...downto syntax decrements it.) When counter returns the same value as finalValue, statement is executed once more and the for statement terminates. In other words, statement is executed once for every value in the range from initialValue to finalValue. If initialValue is equal to finalValue, statement is executed exactly once. If initialValue is greater than finalValue in a for...to statement, or less than finalValue in a for...downto statement, then statement is never executed. After the for statement terminates (provided this was not forced by a Break or an Exit procedure), the value of counter is undefined.

如果循环正常中止，循环变量的值是未定义的。

彻底晕倒了，好像著名的<borland delphi开发人员指南>讲for循环时也没有提到这点。

for 循环标准的执行流程
1。循环变量设置初值  iCnt:=0
2。计算总的循环次数 iCurrCount-1  (=-1)
3。循环变量与循环次数比较
   4.    循环变量小于循环次数，执行语句
   4.    循环变量=循环次数，退出
5.循环变量+1
6.go to 3

一般编程语言，都可以比较循环变量和循环次数，来判断循环是全部执行还是中途退出。

现在发现，DELPHI优化时，直接用初值和循环次数去比，省略了第一步,而iCnt作为过程变量，没有被初始化，还是栈里面的随机数字。

不知道其它语言是否有这个规定？请不吝指教！（有时想，语言有太多的特点，实在不是什么好事）

本文链接

中国银行网银控件造成 IE8 崩溃的解决办法

2010-06-22T15:08:00Z

作为一个最早一批冲浪者（95年上网，96年给人做网站），对于网络完全还是很担心，所以迟至今日才申请了网银，没有想到安装中银的控件后，IE8 打开http://www.boc.cn/就出错，网上也找不到解决办法。

（使用的是windows 2003）

最后发现我的电脑-属性-高级-性能设置-数据执行保护，选择“只为关键windwos.... ” ，确认，重启后，一切正常

（据说XP IE8设置：依次选“Internet选项→高级”，取消“启用内存保护帮助减少联机攻击”的勾选也可以）

本文链接

～～～晚睡，其实是一种病！！——“拖延症 Procrastination”～～～

2010-03-07T12:20:00Z

Procrastination的形成

1．一个人认为自己5天之内可以做完一件事情，所以在离deadline还有15天的时候一点不着急，直到最后只剩5天了才开始。

2．这种紧迫感和焦虑往往促发人的斗志，会让自己觉得，自己只有在压力状态下才有做事情的状态。

3．最后拿到成绩的时候，成绩往往不是很差，这样子就强化了自己最适合在deadline之前短期高压的状态下工作的心态，并且对以后的行为不断进行自我暗示。

这一个部分写得非常符合大部分有拖沓习惯的中国学生的经历。因为中国学生往往非常聪明，所以哪怕最后只剩一点点时间了，也会完成得不错；从而自认为自己最适合这样子的工作状态。周而复始，反复循环。

Procrastination的其他特点

1．没有自信。因为每次完成任务都达不到自己最高的能力，对自我能力的评估会越来越低。
2．我太忙。我一直拖着没做因为我一直很忙。
3．顽固。你催我也没有用。我准备好了自然会开始做。
4．操控别人。他们着急也没用，一切都要等我到了才能开始。

5．对抗压力。因为每天压力很大，所以要做的事情一直被拖下来。

6．受害者心态。我也知道自己怎么会这样，别人能做得自己做不到。

Procrastination的浅层原因

1．太难

2．太耗时间

3．没有相关知识技能

4．害怕别人知道自己做不好

Procrastination深层原因，以及解决方法

1．完美主义。所有事情都要达到一个很高的境界，要一次做好，所以不愿意匆匆忙忙开始，要万事俱备才行。解决方法：对自己说现在的状态就已经很好，可以开始了。每有一点进展都鼓励自己。意识到一点错误都不犯是不可能的。伟大的作家，诗人，艺术家都是断断续续完成他们的杰作的，自己也可以如此。

2．抵制与敌意。这个老师对我态度太差了，所以我不高兴作他布置的作业。解决办法：要意识到，不完成作业受害的是自己。不能仅仅因为一个老师的态度而影响到自己的前途。

3．容易颓废。任务太难了，或者别人都不需要做我干吗要做，不能忍受持续做这件事情，等明天再做吧。但是往往明天到了，心里还是不高兴做，又继续往后推。解决办法：寻找一切可以找到的帮助，设法降低事情的难度，取得进展；暂时推迟自己想要放弃的心态，每天能多做一点就多做一点。这一点也很符合很多中国学生的现状。因为不是人人都对自己的课题感兴趣的，所以容易产生厌倦感，所以不容易定下心来完成相关任务。解决的办法如上所说，向别人寻求帮助，听取建议，同时可以把任务分成比较容易的小块，化整为零，告诉自己其实每一个小部分都很容易就能完成。

4．自我贬低。如果常常不能很好地完成任务，自己对自己的能力的估计会越来越低，即使以后完成好了，也认为是运气。解决办法：接受别人对自己工作的赞扬；自己对自己进行勉励。

治疗的步骤：

1．意识到自己的拖沓是完全没有必要的。

2．把拖沓的原因一条条写出来

3．一条条克服这些原因

4．开始做事

本文译自 Procrastination: Ten Things To Know 。

拖拉是阻碍个人成功的绊脚石，却时常出现在我们左右。

作者是两位对拖拉 (Procrastination) 进行研究的心理学教授，希望大家能从中有所收获，
译者ＭＥＴＡlDudu@Blog

1. 百分之二十的人认为自己是长期拖拉的人。对他们来说拖拉是一种生活方式，虽然并不适应它。这种状态充满了他们的生活。他们不能按时付帐单，他们忘了买音乐会的门票，他们直到圣诞前一天才去买礼物……

2. 拖拉并非不重要，虽然通常我们不把它当作一个严重问题。它其实是一个自我调节的深奥问题。通常我们都宽容别人拖拉的借口，这也是问题的根源。

3. 拖拉并不是时间管理或者计划方面的问题。拖拉并不因个人对时间的估计能力而不同，虽然这些人会更乐观一些。Ferrari 博士强调说：“要一个拖拉的人做一个有计划的人，就像让一个长期消沉的人马上振奋起来一样。”

4. 拖拉不是天生的。它是从周围的人学来的，但并不直接。它可能来自强权的家教，拖拉甚至可能是一种反抗的形式。这种家庭环境下，朋友对拖拉者的宽容会助长这种习惯。

5. 拖拉的饮酒者会有更高的酒精需求量。拖拉的人会喝的更多，这是自我调节有问题的表现。

6. 拖拉的人对自己撒谎。比如“我更想明天做这件事”，或者“有压力我才能做好”，但实际上并非如此。拖拉者的另一个谎言是时间压力会让他们更有创造力，其实这只是他们的感觉而已，他们是在挥霍时间。

7. 拖拉的人不断找消遣的事儿，特别是自己不需要承诺什么。查看电子邮件就是绝佳的目标，这样的事情成为他们调节情绪（比如害怕失败）的一个途径。

8. 拖拉并非一模一样。拖拉的人有不同的原因，Ferrari 博士定义了三种基本的拖拉者：

* 鼓励型，或者说找刺激型，他们盼着最后几分钟忙碌带来的快感

* 逃避型，他们回避失败的恐惧，甚至害怕成功，但实际上他们非常关心别人怎么看自己，他们更希望别人觉得他不够努力而不是能力不足。

* 决心型，他们没法下决心。不下决心就可以回避对应对事情的拖拉。

9. 拖拉带来的损失巨大。健康是其中之一，研究表明拖拉的人更容易患病。拖拉也影响人的情绪，也会破坏团队协作和人际关系。

10. 拖拉会改变人的行为，但不会耗费多少精神力量。这并不意味着一个念头就能马上改变。这个问题可以通过高度规范的认知行为治疗来解决。
对行事拖拉的人进行劝诫就如同让抑郁症患者高兴起来那么困难。”法拉利教授认为，劝导对拖拉症患者来说作用微乎其微，关键还是要靠自己下定摆脱拖拉惯性的决心，这需要很大的精神动力才能完成。试着结合以下10个窍门，可能会更容易一些。记住，每达到其中一项，你就离成功进了一步。

明日复明日 “拖延病”的处方

case 1：我经常担心事做的不够完美。但尽力做了完美主义者，可做事的效率不是很高。经常接到任务以后，心里想的是尽快完成，可总是一拖再拖。为什么？

→病名：担心引起的拖延病。

→处方：总想把事情做的完美一些，但压力越大就越担心做不好事迟迟不敢付出行动。总是把万事的结果定为，不是成功就是失败、只要作错了一点，做的再好也都是错的。出了事就算不是自己的责任也会揽到自己身上。

首先得醒悟“自找担心”是多么消极的事情。

假如，在准备报告时，最初就能写出完美的报告是不可能的。一定会有一些偏差也有理论上说服力较小的地方。所以，完美是不存在的。追寻一下到现在为止你所做过是事有多少事是完美的，一定没有特别完美的事。但一定也没耽误什么事。

case 2：一旦接到什么任务总会担心“我一定能做好吗？做错了教授会不会责备我？”在想这些的时候时间已悄悄溜走了。

→病名：自我指责的拖延病

→ 处方：对过去一些失败的记忆会变成一种压力。想治好自我指责的病，可以把责任都推托到别人身上。不要因为善良的自卑感而把一切问题都自己扛。这样只会让你的自信心下降。轻视自己之前先把责任都推到别人身上吧！然后，用另一种方式解释自己的失败。比如：在小组功课中有了一个好的创意。但因为没有时间，结果在报告中露掉了。在这种情况发生的时候，如果是自我指责的人就会想：“哎！因为没有发表这个创意，以后教授知道了会不会扣我的学分呢？”取代上面想法的应该是“我真了不起，能有这么好的创意。”或“下次写报告时用就可以了。那一定比这次轻松多了。”

case 3：我特别的执着，一旦问题袭来的时候就感到不安和急躁。问题解决之前做不好任何事情。

→病名：执着引起的拖延病

→ 处方：“怎么会这样？”“到底那时候为什么那么做？”即使在过去的事情里找原因也不会有什么改变。澄清一件事也解决不了问题。因为事情是由几种因素合成的。什么时候才能把事情一一都弄清楚呢？在公司写企划案的时候写不好的原因也有很多种。期限太短或过去写过一次结果被上司责骂了一顿，留下了创伤。还有就是还没找到资料等等。澄清问题对以后没有任何帮助。所以，要往可以解决问题的方向行动。做企划案时应该想：“这次应该跟其他公司比较着做看看了。”如果这样想着行动的话一定有效。

case 4：我总是没有自信，怎么努力也改不了。为了从苦海中摆脱出来看过不少有关的书籍但都徒劳无功。因为没有自信做起事也不顺利。不知道能不能改变一下这样的我。

→病名：封闭自我印象引起的拖延病

→ 处方：在苦恼的边缘走不出来的人是因为被自己错误的想法封锁住了。一定要从误区的牢笼里走出来。为了打破错误的想法扪心自问一下自己“假如，我是能做到 ○○事的人，应该先想些什么？先做些什么？”假如，做报告的时候，因为忙于某些事迟迟没做出来。这时，应该想“如果我是个做报告的能手，应该先做什么事呢？”考试成绩不好，但还得向父母交代的时候应该想“假如，我是个成绩不好，但能向父母主动表白的人，应该先做什么事？” 想这些问题的时候，不能用太长的时间。第一个想到的就是正确答案。所以直接实第一个想法就可以了。

case 5：我在所有决定中没有自信。当决定了做某件事的时候，往往因为不确定是对的还是错的而烦恼。这样一来事就一拖再拖。不是因为我懒，而是因为每次都不能付出行动。所以人们都说我办事的效率不高。

→病名：不安感或懒惰引起的拖延病

→ 处方：你在想自己的想法对不对那是因为“为了想这个办法用了那么长时间，付出了那么大的努力，但要是失败了怎么办？就不就功亏于溃了吗？”因为这些不安感一直浮现在脑海里。所以不想做任何事情。假如，要学习但桌子很乱找书都很不容易。明知道应该收拾一下，但怕麻烦迟迟不行动。这时候，父母要唠叨个不停，就有了叛逆的心理更是不收拾。这时你应该冷静下来好好想一想。是打扫一下好还是睁一只眼闭一只眼过的好。然后再决定。把最初的想法扭转过来很难，但一旦习惯了就觉得行动比拖延更轻松。

本文链接

李开复 - 人生中的十大启发

2010-01-24T17:53:00Z

李开复 - 人生中的十大启发 2009-10-18 23:15一、自信不失谦虚，谦虚不失自信；二、兴趣就是天赋，天赋就是兴趣；三、思考比传道更重要，观点比解惑更重要；四、我不同意你，但是我支持你；五、挫折不是惩罚，而是学习的机会；六、创新不重要，有用的创新才重要；七、用勇气改变可以改变的事情，用胸怀接受不能接受的事情，用智慧分辨两者的不同；八、求知若饥，虚心若愚；九、追随你的心，用它引领你的一生...

windows 2003 修改用户数

2009-11-29T15:50:00Z

买了10个用户LIC,不知道怎么加进去，网上搜索了半天，才发现只有启用LIC LOGING 服务，就可以修改，修改后再禁用也没有关系。

SQL SERVER 数据库迁移孤立用户的解决方法

2009-11-29T14:52:00Z

如果用附加或者恢复备份的方法把数据库从一个电脑移动到另外一个电脑,数据库的用户和SQL的登录会冲突,登录没有办法和用户关联,造成孤立用户.为了解决这个问题,首先在目标SQL系统上建立与用户同名的登录,然后在数据库上执行下面指令把用户和登录关联use 数据库sp_change_users_login 'update_one', 'test', 'test'(test用户和 test登录关联)

关于字体的尺寸与设置的值不一致的问题

2009-05-29T02:07:00Z

最近同事反映说打印预览不是所见即所得，这个问题已经存在已久，我知道是屏幕分辩率与打印分辩率不一致的问题，但是更具体的原因没有去深究，现在翻出n年前做的打印预览程序，仔细检查，最后发现打印使用的11磅，在预览时（屏幕显示时），磅数是11.25 ，这样造成预览并不是所见即所得，十分苦恼。进而发现可以使用的字体尺寸都是0.75的整数倍，如9(指定9磅)，9.75（10），11.25（11），12，12.75（13）...

看“人生失败的31种原因”有感

2009-02-14T15:09:00Z

人生的最大悲剧，就是孜孜不倦的努力却终于失败！

我的第一份博客，测试一下:P

2007-10-15T12:50:00Z

我的第一份博客，测试一下:P

博客园_指令狂人

海关舱单系统关于集装箱代码的释疑

DELPHI for 语句的循环变量的特别处理

中国银行 网银 控件造成 IE8 崩溃的解决办法

～～～晚睡，其实是一种病！！——“拖延症 Procrastination”～～～

李开复 - 人生中的十大启发

windows 2003 修改 用户数

SQL SERVER 数据库迁移孤立用户的解决方法

关于字体的尺寸与设置的值不一致的问题

看“人生失败的31种原因”有感

我的第一份博客，测试一下:P

中国银行网银控件造成 IE8 崩溃的解决办法

windows 2003 修改用户数