贾涛的Blog

导航

<2012年1月>
日一二三四五六
25262728293031
1234567
891011121314
15161718192021
22232425262728
2930311234

统计

  • 随笔 - 28
  • 文章 - 32
  • 评论 - 122
  • 跟踪 - 2

公告

搜索mblogger


文章分类

档案

随笔分类

相册

Blog

Blog网站

论坛

我的链接

登录

    帐号
    密码
    记住我:
     

2005年12月26日 #

 

  半年没传宝宝照了^&^

1.红肚兜

2.眼睫毛

3.菜花贼

4.农民起义了

5.吧吧~唔~

 

  

22:01 | 评论 (15)

2005年11月10日 #

 

  一道智力题-sql解法

题目来自论坛和上次令狐的那道有些不一样

从2到100中选择2个数字
将这2个数的“和”告诉A，又将这2个数的“积”告诉B。
A说：我如果不知道这2个数，B你一定也不知道。
B想了一会说：本来我不知道，现在我知道了。
A过了一会又说：现在我知道了。

请问：这2个数是什么？

我做的答案：

/*--测试结果

积           和           a           b          
----------- ----------- ----------- -----------
52          17          13          4
--*/

 解法及注释

 

  

16:08 | 评论 (0)

2005年9月1日 #

 

  外部程序获取IE页面选择文本

Delphi 版本

c#版本

  

13:44 | 评论 (2)

2005年8月4日 #

 

  研究了一下IAutoComplete2，类似IE的地址栏自动完成的combobox

看了一下IAutoComplete2相关资料，具体说明可以参考以下文章

http://www.vckbase.net/document/viewdoc/?id=595

先用c#尝试了一下，查阅网上资料写了一个类来完成

效果

在delphi7下虽然可以实现，但是在调试状态下会跳出cpu窗口，除非将integrated debugging设为false，或者PatchInt3

 

  

10:45 | 评论 (3)

2005年6月27日 #

 

  Csdn-Delphi的考古结果

原帖地址

论坛第一帖
论坛开通是在1999-12-28，第一个注册发帖的用户是csdn这个id，现在此id还经常出来发些公务帖。当时他发的第一帖是热烈欢迎大家来论坛，这个帖子在2001-08还被人捞出来掸掸灰，不过不知道什么原因2000年左右的回复数据都没有保存。

Delphi版第一帖
delphi板块的第一帖也是在同一天，稍晚点时间发的，作者是 hcat1999 (阿猫)。此人是csdn当时的网管，也是第一任总斑竹。从他的帖子可以看出论坛成立的时候delphi版本是3.x

高级用户
星星是在2002年之后改版才有的，所以不应该像现在这样从星星来判断。
最早的高级用户应该是一个网名是 kxy 的吧，这个人是第一个占据csdn总专家榜的位置很久，他的主要开发语言是Delphi.他之后占据CSDN总专家榜的就是VC++版的EDYang。这个人那时候还是美达美的员工，当时美达美还在做英语软件等软件。他就是软件部的负责人，后来美达美不做软件了，他就离开了

专家榜
在蝈蝈的blog上看到过2000后csdn专家榜第一依次是
kxy(当时是CSDN公司软件部的经理，后来CSDN不再做软件了，离开了CSDN)
MasterZ（当时主要在VC++版）
EDyang（当时主要在VC++版）
无为mm（当时到处都可以看到，活动在CSDN的各个板块）
思归 (.net)
邹建（SQL）


星星
delphi第一个四星不知道是不是伴水，他当时是D的大版。02年他通过CSDN的漏洞得到了阿猫的密码，作为奖励给了他4星。delphi版据应该有两个5星，但是我只发现过chehy一个，不知道另外一个是不是主打vb的TechnoFantasy。

版主
除了现任的Windindance,ehom、firetoucher、lxpbuaa、aiirii外，我还看到过Foxnt，再早的就得听别人说了。
windindance来的时候版主是kingron， xzgyb(老达摩)2001年4月来得时候版主是airhorse(编程至尊宝)，还有伴水2002年当过。


高手
GoodHope，TechnoFantasy  ，Raptor，chechy ，BCB_FANS ，ZsWang。
        --by kingron
EASTUNFAIL，EHOM ，RAPTOR ，FIRETOUCHER，ZSWANG是UC开发组的,chechy.
        --by FS

  

13:18 | 评论 (6)

2005年6月22日 #

 

  世青赛

中国有点过分关注青年赛了，现在踢成什么样都可以接受。
中国从来不给一个教练尤其是洋教练一点信任。
汉语的爆破音强度不够，也可能是因为有五个声调导致发音频率不够，不能连续爆破，在有些情况下所以可以说是没有激情的语言。
 

9:23 | 评论 (1)

2005年6月16日 #

 

  鼠标中键/滚动条/翻页操作时锁定Dbgrid的选定纪录不动

Q：数据查询后 我选中一行数据,在用鼠标滚轮往下翻的时候,选中的行数据就不是我刚才选中的了.同样点击表格那个向下的箭头,也是如此.如何锁定选中的行数据,即时翻页的时候它也不动

地址:http://community.csdn.net/Expert/topic/4084/4084438.xml?temp=.5828516

A：

继承一个TDbgrid，自己画焦点。

WindowProc 中拦截鼠标中键消息，发送WM_VSCROLL消息，控制滚动条随鼠标中键移动

MouseDown中记录选中的行，用dataset的recno属性标记。翻页或鼠标中键以及滚动条的变化不再改变当前行

DrawColumnCell中重画表格

示例:

新建一个form，添加一个TTable,TDatasource,TDbgrid.

  

13:36 | 评论 (2)

2005年6月8日 #

 

  FoxMail的菜单效果

上次的png窗体看来是很难搞定了，起码对于我来说。无奈，功力不足。

给包括miky在内的几位图形高手发了邮件，不知道会不会有结果。

边在论坛&群里YY，边模拟了一下FoxMail的菜单，其实也就是windows的开始菜单的效果如下(右边是FoxMail)

 

心得如下

主要是在OnMeasureItem事件中调整菜单大小，在OnDrawItem事件中重画。陈锐在csdn的blog上写了部分代码，但是很散乱。我整理了一下，并且加入了对图标和分割符的支持，并且把设置过程简化了很多。

unit JtMenu;

使用这个单元可以很轻松的设置菜单效果

下面是个实例:分别把三段代码保存为Project1.dpr、Unit1.pas和unit1.dfm

Project1.dpr

unit1.pas

unit1.dfm

  

17:39 | 评论 (1)

2005年6月3日 #

 

  桌面天气秀的皮肤效果

今天在论坛上看到有人问，其实很简单，支持png格式就可以了.

效果如下：右边是桌面天气秀

——————————————————————————

——————————————————————————————

下载一个支持png的开发包 。

http://pngdelphi.sourceforge.net/pngimage143.zip

把上面文件解压缩后路径加入delphi的path中。

新建一个工程文件,载入png并设置背景透明。

  

16:23 | 评论 (11)

2005年5月16日 #

 

  关于令狐虫的“一道智力题及解答”的SQL语句

原题:

http://borland.mblogger.cn/topcat/posts/20179.aspx

努力把下面SQL并为一句且嵌套避免重复查询，失败 

SQLServer的测试答案

 

执行结果是9月1号，同样把测试环境改为如下，可以得出我回帖中的扑克牌推理的答案是45，也就是方块5

 

  

12:21 | 评论 (9)

2005年5月13日 #

 

  自行车又丢了

自从我家小田鸡出来后被偷了三部自行车,一部手机
 

20:51 | 评论 (3)

 

  Equivalent of Oracle functions in SQLServer

以前在论坛发过，但要求改成鸟语

 Equivalent of Oracle  functions in SQLServer
 {by jinjazz}
 
 arithmetic functions:
 
 1\Returns the absolute value of the specified numeric expression
 O:select abs(-1)  value from dual  --1
 S:select abs(-1) value    --1
 
 2\next highest integer that is greater than or equal to the specified numeric expression
 O:select ceil(-1.001)  value from dual  -- -1
 S:select ceiling(-1.001) value   -- -1
 
 3\nearest integer that is less than or equal to the specified numeric expression
 O:select floor(-1.001)  value from dual -- -2 
 S:select floor(-1.001) value     -- -2
 
 4\Truncates a real number to an integer.
 O:select trunc(-1.002) value from dual  -- -1 
 S:select cast(-1.002 as int)  value  -- -1
 
 5\rounded to the nearest whole number
 O:select round(1.23456,4) value from dual -- 1.2346
 S:select round(1.23456,4) value    -- 1.23460
 
 6\the exponential of the specified numeric expression
 O:select Exp(1) value from dual    -- 2.71828182
 S:select Exp(1) value        -- 2.7182818284590451
 
 7\the natural logarithm (base e) of the specified numeric expression
 O:select ln(2.7182818284590451) value from dual;-- 1
 S:select log(2.7182818284590451) value    -- 1
 
 8\the common logarithm (base 10) of the specified numeric expression
 O:select log(10,10) value from dual;    -- 1
 S:select log10(10) value       -- 1
 
 9\Raises Base to any power.
 S:select power(3,4) value      -- 81
 O:select power(3,4) value from dual  -- 81
 
 10\Returns the square root of the specified numeric expression
 O:select SQRT(4) value from dual  -- 2
 S:select SQRT(4) value    -- 2
 

 11\Returns a random number between 0 and 1.
 O:select sys.dbms_random.value(0,1) value from dual;
 S:select rand() value 
 
 trigonometric functions:
 
 12\sine,cosine,tangent of an angle.
 O:sin,cos,tan function
 S:sin,cos,tan function
   select sin(PI()/2) value
  
 13\Asin,Acos,Atan,Atan2 funcions
 
 14\Oracle cannot convert the radians of an angle to  it's degrees
 S:select DEGREES(pi())    --180
 
 15\Oracle cannot convert the degrees of an angle to  it's radians
 S:select RADIANS(180.0)   --3.141592653589793100
 
 String Functions
 
 16\ASCII value or a specified character
 O:select ascii('a') value from dual
 S:select ascii('a') value
 
 17\character for a specified ASCII value
 O:select chr(97) value from dual
 S:select char(97) value
 
 18\concatenates two strings
 O:select CONCAT('11','22')||33 value from dual
 S:select '11'+'22'+'33' value
 
 19\the starting position of the specified expression in a character string.
 O:select INSTR('sdsq','s',2) value from dual
 S:select CHARINDEX('s','sdsq',2) value
 
 20\Returns part of a string.
 O:select substr('abcd',2,2) value  from dual
 S:select substring('abcd',2,2) value
 
 21\Returns a string with occurrences of one substring replaced by another substring.
 O:SELECT Replace('abcdef', 'bcd', 'ijklmn') value  from dual
 S:SELECT STUFF('abcdef', 2, 3, 'ijklmn') value
 
 22\Returns the number of characters in a string
 O:length
 S:len,datalength
 
 23\Returns a character expression after converting uppercase character data to lowercase
 Lower
 
 24\Returns a character expression with lowercase character data converted to uppercase
 upper
 
 25\Trims spaces  characters from a string.
 O:ltrim,rtrim,trim
 S:ltrim,rtrim
 
 26\Returns a four-character (SOUNDEX) code to evaluate the similarity of two strings
 O:SELECT SOUNDEX ('Smith'), SOUNDEX ('Smythe') from dual
 S:SELECT SOUNDEX ('Smith'), SOUNDEX ('Smythe')
 
 DateTime Functions
 
 27\Returns the current system date and time
 O:select sysdate value   from dual
 S:select getdate() value

 28\Returns the current system date
 O:select trunc(sysdate) value   from dual
   select to_char(sysdate,'yyyy-mm-dd') value   from dual
 S:select  convert(char(10),getdate(),20) value
 
 29\Returns the current system time
 O:select to_char(sysdate,'hh24:mm:ss') value   from dual
 S:select  convert(char(8),getdate(),108) value
 
 30\Returns an integer representing the specified datepart of the specified date
 S:DATEPART , DATENAME 
 O:to_char
 
 31\Converts a string to a DateTime value.
 S:select  cast('2004-09-08'as datetime) value
 O:SELECT To_date('2004-01-05 22:09:38','yyyy-mm-dd hh24-mi-ss') vaule FROM DUAL;
 
 32\Returns the number of intervals between two dates
 S:select  datediff(ss,d2,d1) value
 O:SELECT (d1-d2)*24*60*60 vaule FROM DUAL;
 
 33\Returns a date to which a specified time interval has been added.
 S:select  dateadd(mi,8,getdate()) value
 O:SELECT sysdate+8/60/24 vaule FROM DUAL;

  

11:42 | 评论 (0)

2005年5月10日 #

 

  乌鸦嘴真的很灵！

上个月还跟老婆吹牛，俺从小到大连一毛钱也没有丢过~~

结果，今天在一部不是很挤的公交车上

很不幸的被人把口袋里的手机摸走了

BS万恶的小偷

  

21:32 | 评论 (3)

2005年4月27日 #

 

  爽鸟爽鸟，12天长假

5.1-5.7长假

5.8,5.9福利假（进公司1年多第一次听说还有这个^o^）

5.10-5.12和5.14,5.15,5.29调休

  

12:28 | 评论 (3)

2005年4月22日 #

 

  再秀一下我家宝宝

现在的宝宝真幸福,每有纪念意义的时刻都能留下来~~

昨天给他听到lp手机里的铃声蓝色多瑙河便咯咯咯的笑

  

16:51 | 评论 (4)