2007年05月_EricYeung

原创 Show Waiting Status (Without Thread)

{When user click button, a window will showup with a Animate, progressbar, and a updated time label;} unit fMain;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Co

2007-05-24 11:36:00 1383

原创 subthread(handling busy operation) notify mainthread to update UI

Call PostMessage inside TMyThread.Execute to tell Main Form to update UIunit MyConsts;interfaceuses Messages;const WM_UPDATE_STATUS = WM_USER + 1;implementationend.//////////////////////

2007-05-24 11:18:00 964

原创 Simplest HTTP-JSP-Servlet-Struts-JDBC-Hibernate demo

Java Webx86 Assembly = ServletC = JSPC++ = JSF================================Online Shopping CartHTTP Cookies vs. HTTP QueryString/Web beacon================================HTTP Query StringTec

2007-05-24 11:14:00 1293

原创 Delphi COM Programming Study Note

in Theory: MyIntf := TMyIntf.create(10); MyIntf.AddRef; MyIntf.DoSth; MyIntf.Release;in delphi: MyIntf := TMyIntf.create(10); MyIntf.DoSth; //do not call MyIntf.Free---------All In-Process COM Ser

2007-05-24 11:09:00 957

转载分布式数据库应用开发正解[转载]

分布式数据库应用开发正解 [系列之一]Delphi做为一个快速应用开发工具，深受程序员的喜爱。其强大的组件功能，让程序员能够轻松、高效地完成常见的界面开发、数据库应用等功能。然而，帮助的相对缺乏，使得许多组件的功能并不为人们正确地使用，究其原因，仍然是认识上的问题。对于MIDAS开发中的核心部件，TClientDataSet和TDataSetProvider，由于资料的缺乏，人们在网上大多谈论的

2007-05-24 09:33:00 967

转载在Delphi7中调试COM+ [ZZ]

在Delphi7中调试COM+ 刘晓明（Cipher）收集整理开发COM+应用系统最令人头痛的问题便是如何调试 COM+组件了。由于COM+是执行在COM+的执行环境中，因此Delphi 的程序员无法像Delphi的分布式多层

2007-05-23 18:53:00 1043

转载請教com物件與com+物件定義問題? [ZZ from Delphi KTop]

http://delphi.ktop.com.tw/board.php?cid=30&fid=68&tid=437061 com物件定義?可否同時存在客戶端與應用程式伺服端?2 com+物件定義?3 Tclientdataset與Tdatasetprovider是com物件?4 還有那些物件算com或com+物件?1.COM (Component Object Model)簡單來說只是一

2007-05-23 18:47:00 1112

原创 Where Does TDCOMConnection.ServerName List Comes From?

from HK_CLS_ROOT/CLSID/try locate at HK_CLS_ROOT/CLSID and search string

2007-05-23 18:39:00 1464

原创 Delphi.MIDAS.ClientDataSet. General Knowledge

Delphi.MIDAS.ClientDataSet. General KnowledgeTClientDataSet-------------Aggregates=======================ResolveToDataSet = false 1) TDataSetProvider generate SQL to update DataBase. 2) Prepare SQ

2007-05-23 18:35:00 1367

原创 Simple DataField Validation & Get Data Info

Simple DataField Validation & Get Data Infoprocedure ValidAndGetInfo(ADataSet: TDataSet; ASQL, AError, AResultSetField: string; RaiseException: Boolean = true);var cds: TClientDataSet; AList: TSt

2007-05-23 18:31:00 1022

原创 Delphi MIDAS Architecture

Client Host Application Server DataBase Server=======================================================================

2007-05-20 02:10:00 753

转载关于多项目管理过程中的一些感悟[转载]

当面临多项目并行管理的时候，我们不可能象管理一个项目一样进行从头盯到尾，并且关注其中出现的任何问题，这从精力上来说是不现实的，而且如果你确实企图如此做，唯一的结果就是把自己弄得很忙碌，而且会突然发现，你不断处于救火的过程中。那么基于此，应该如何进行管理呢？以下是我的一些个人感悟：清楚团队内部的能力体系：每个团队都是不同的，这个团队使用顺利的方法，并不一定能够在另外一个团队得到复制，管理从根

2007-05-20 01:29:00 980

转载学会接单与报价－－如何与潜在的客户打交道[转载]

我既做客户也是供应商，老实说，做客户的感觉很好。我把我做客户的经验拿出来和各位分享，如何接到理想生意，不足之处不要见笑。客户要的：合理的价格(注意：不是最低价)，专业的供应商(不是转手、中间人)、供应商的生产规模与能力、质量管理体系、配合(态度)度。客户会在一个比较短的时间内形成对你的看法，下面的就请注意了：有的人，要不没有自信，要不盲目自信，在这里，我需要做个提醒：不是你规模大、价格低，

2007-05-19 00:06:00 1313

原创 HongKong ID Card No. Validation

for example: card no. = I13638611) if last_digit in (0..9) check_sum = last_digit, if last_digit = A, check_sum = 10 else validation fail check_sum = 1;2) total = (ascii_value(first_digit)

2007-05-17 17:17:00 1454

原创 MSComm Installation

1) download MSCOMM32.OCX and put it into C:/Windows/system2) run: regsvr32 MSCOMM32.OCX3) run: regedit add a key under HKEY_CLASSES_ROOT/Licenses, key name = 4250E830-6AC2-11cf-8ADB-00AA00C00905 defa

2007-05-17 14:13:00 802

原创 [MIDAS basic] BeforeUpdateRecord_SetproviderFlag

procedure TERM.dspTestBeforeUpdateRecord(Sender: TObject; SourceDS: TDataSet; DeltaDS: TCustomClientDataSet; UpdateKind: TUpdateKind; var Applied: Boolean);begin if SourceDS = adsTest then begin

2007-05-16 19:40:00 821

原创 ClientDataSet get data through Application Server

function TForm1.SQLGetInfo(SQLText: string): OleVariant;var Conn: TDCOMConnection; CDS: TClientDataSet;begin Conn := TDCOMConnection.Create(Self); CDS := TClientDataSet.Create(Self); try Con

2007-05-16 19:36:00 897

原创 [cxGrid] use OnAfterSummary

Problem: InvoiceHeader.Total = sum(InvoiceDetail.ItemTotal)how to write a function to auto sum up ItemTotal//1. add TcxGridDBTableSummaryItemclick cxGrid1DBTableView1.DataController.Summary.FooterSu

2007-05-16 19:33:00 1327

原创 [cxGrid] Change Multi-Selected Records

//0.Search Manual: TcxCustomDataController.ForEachRow //1. set properties for multi-selection---------------------------------------------------------- MainGridView.OptionsSelection.MultiSelect := t

2007-05-16 17:30:00 1669

原创 [DataSet Error] Record not found or changed by another user

-- the source of the problem: use the datetime field value to locate the record -- the particular SQL statement generated by delhpi ADOExpress exec sp_executesql Ndelete from test_table where sequ

2007-05-16 17:21:00 1578

==================================================================== Setup Datasource ==================================================================== TcxScheduler -> TcxSchedulerDBStorage -> TDat

2007-05-16 17:15:00 2651

原创 (Item 11) Comparable

(Item 11) ComparableWhy: by implementing comparable, your class can interoperate with many generic algorithms.Contract: compare the object with another, return a negative integer, zero, or positiv

2007-05-13 21:29:00 10930

原创 (Item 10) Override clone() judiciously

(Item 10) Override clone() judiciouslyGeneral Contractx.clone() != xx.clone().getClass() == x.getClass()x.clone().equal(x) == true In practice, a class that implements Cloneable is expe

2007-05-13 21:16:00 854

原创信息经济学 - 信息不对称

在信息经济学理论体系中，信息不对称是核心，逆向选择和道德风险是两大支柱。通常，我们一听到信息经济学，就会把它和计算机、通讯网络联系在一起，将它等同于信息产业经济学。其实不然，信息经济学是一种理论经济学，它是在否定了从亚当·斯密以来的古典经济学理论中的“完全信息假设”之后发展起来的一种全新的理论经济学。信息经济学的应用性很强，它的意义并不在于理论方面，而是在于它在实践中的应用价值。阿克勒夫由此提

2007-05-13 10:32:00 2231

转载浅析信息不对称环境下的劳动雇佣关系 [转载]

[内容提要] 在信息不对称的劳动力市场环境下，雇主与雇员之间是一种非合作博弈的关系，重复博弈也只能从理论上缓解雇主与雇员冲突。要从根本上解决雇主与雇员的矛盾，只有尽力改善劳动力市场的信息不对称性，增大信息的供给。　　[关键词] 信息不对称；劳动雇佣关系；逆向选择；道德风险；博弈劳动经济学中的雇佣关系主要是研究企业雇主和雇员之间关系的雇佣合同，劳动雇佣关系是一种“特殊的交换”。由

2007-05-13 10:25:00 2232

原创 (Item 8) Override hashCode when you override equals()

(Item 8) Override hashCode when you override equals()Incentivepublic final class PhoneNumber { private final short areaCode; private final short exchange; private fin

2007-05-11 00:23:00 1090

原创 (Item 7) Override equlas()

(Item 7) Override equlas()1) Use == to check “this”2) Use instanceof to check type3) Cast argument to correct type4) Check equality of each significant fields5) Ask yourself

2007-05-11 00:07:00 953

原创 Delphi DataSet Error

[design time]ClientDataSet.CreateDataSet error - Invalid Field Type : (solution: restart Delphi)-------------------------------Can not use TDateSet.Locate to locate DateTime Field------------

2007-05-09 20:07:00 1586

原创 (Item 6) Avoid finalizer

(Item 6) Avoid finalizer1) Java Language Specification provide no guarantee that finalizer will get executed.2) Nothing time-critical should ever be done in finalizer (e.g. close file)3) Don’t s

2007-05-07 00:09:00 838

原创 (Item 5) Eliminate obsolete object references

(Item 5) Eliminate obsolete object referencespublic class Stack { private Object[] elements; private int size = 0; public Stack(int initialCapacity) { this.elements =

2007-05-07 00:05:00 868

原创 (Item 4) Avoid creating duplicate objects, reuse immutable objects

(Item 4) Avoid creating duplicate objects, reuse immutable objectsString s = new String(“Created each time when executed!!”); // DON’T DO THISA improved versionString s = “A reusable string”;

2007-05-06 23:58:00 845

原创 (Item 2) singleton

(Item 2) singleton//use final fieldpublic class Elvis { public static final Elvis INSTANCE = new Elvis(); //public field private Elvis() { .. }} //use static factory, give

2007-05-06 23:56:00 799

原创 (Item 1) use static factory to substitute constructors

(Item 1) use static factory to substitute constructorsmore meaningful name than constructor namedon’t require to create new instance each time they’re invokedreturn object of any subtype (map st

2007-05-06 23:54:00 816

转载鯰魚效應(Catfish Effect)

鯰魚效應(Catfish Effect) ：在挪威，如果沙丁魚是活著賣的，價格會幾倍高於死的，但是長期以來只有一艘漁船可以做到帶著活魚上岸。而船長嚴守個中機密一直到他去世，當人們打開他的貨櫃時，發現裡面有一條鯰魚東游西竄，沙丁魚一改懶得游動的習性而驚恐不安不停游動，才得以活了下來。鯰魚效應是指新的競爭者參與可以刺激整個團隊的士氣，此方法用於現代人力資源管理，用以喚醒員工的危機意識從而促使他們

2007-05-06 13:17:00 1336

转载暈輪效應

心理學中把暈輪效應解釋為當你第一眼見到一樣東西的時候，他給你留下的最初印象將影響到你對他各方面的判斷。比如有人曾作這樣的實驗，當給被試呈現一組照片時，被試會認為那些長得漂亮的有比較高的學歷即行為品行，反之亦然

2007-05-06 13:15:00 921

转载霍桑效應

霍桑效應Hawthorne Effect，當被觀察者知道自己成為觀察對象，而改變行為傾向的效應。來自於1927年至1932年埃爾頓·梅奧在霍桑（Hawthorne）工廠進行的一系列心理學實驗。實驗內容研究是在1924年至1933年進行的。Fritz J. Roethlisberger 和 William J. Dickson給出了大量實驗細節，但是很少解釋。1927年哈佛商學院的心理學

2007-05-06 13:14:00 1425

转载人际交往心理趣谈 (首因效应, 近因效应, 光环效应, 设防心理)

首因效应首因效应在人际交往中对人的影响较大，是交际心理中较重要的名词。人与人第一次交往中给人留下的印象，在对方的头脑中形成并占据着主导地位，这种效应即为首因效应。我们常说的“给人留下一个好印象”，一般就是指的第一印象，这里就存在着首因效应的作用。因此，在交友、招聘、求职等社交活动中，我们可以利用这种效应，展示给人一种极好的形象，为以后的交流打下良好的基础。当然，这在社交活动中只是一

2007-05-06 13:09:00 7223

转载两个最重要的管理秘诀——皮格马利翁效应和加勒提亚效应

如果管理者像皮格马利翁一样，坚信自己的每一位下属员工都有能力做出积极的贡献，并在工作中有意无意地传达这种信息，那么恭喜你，你将对员工的绩效有着积极的影响。（对于他人用皮革马利翁效应——他人期许；对于自己用加勒提亚效应——自我期许的力量。唐雷恒）每一个管理者对自己的下属员工有期望值，他也会有意无意地把这些期望溢于言表，员工也会有意无意地读懂管理者的意图，并按照管路者的意图行事。自我实现的

2007-05-06 13:08:00 2469

转载管理学13条定律

一、墨菲定律　　墨菲定律：事情如果有变坏的可能，不管这种可能性有多小，它总会发生。比如你衣袋里有两把钥匙，一把是你房间的，一把是汽车的，如果你现在想拿出车钥匙，会发生什么？是的，你往往是拿出了房间钥匙。　　"墨菲定律"产生于美国，据说事情发生在1949年。一位名叫墨菲的空军上尉工程师，认为他的某位同事是个倒霉蛋，不经意地说了句玩笑话："如果一件事情有可能被弄糟。"这句笑话在美国迅速流传，并扩散

2007-05-06 13:05:00 928

原创 Create Access(*.mdb) in OLE

var OLEObj: OleVariant; OLEObj := CreateOleObject(ADOX.Catalog); OLEObj.Create(Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:/new.mdb); OLEObj := NULL;{find ADOX.Catalog library referenc

2007-05-06 13:03:00 1036

空空如也

空空如也