博文

delphi获取打印任务(2008-08-03 22:14:00)

摘要:type         TForm1   =   class(TForm)             Label1:   TLabel;         private             {   Private   declarations   }             procedure   WM_SpoolerStatus(var   Msg   :   TWMSPOOLERSTATUS);message   WM_SPOOLERSTATUS;             public             {   Public   declarations   }         end;         var         Form1:   TForm1;         implementation         {$R   *.dfm}         procedure   TForm1.WM_SpoolerStatus(var   Msg   :   TWMSPOOLERSTATUS);     begin         //listbox1.items.add('   Jobs   currenly   in   spooler')......

阅读全文(3624) | 评论:0

Delphi怎么设置系统当前输入法(2008-07-30 17:15:00)

摘要:unit ime95;// 这些函式, 我通常是在 edit 的 ondblclick 事件中呼叫测试interfaceuseswindows, messages, sysutils, imm,classes, graphics, controls, forms;// 请注意, imm.pas 必须置于与本单元同一目录或// 主选单 tools | options | library path 中的任一个目录// imm.pas 可在 delphi 2.0 的 source目录中找到constnhkl_list = 20;typetimeuiwindow = class(tcustomcontrol)privateprocedure cmtextchanged(var message: tmessage); message cm_textchanged;protectedprocedure createparams(var params: tcreateparams); override;procedure paint; override;publicconstructor create(aowner: tcomponent); override;procedure showcomposition(ptwhere: tpoint; const shint: string); virtual;// function ishintmsg(var msg: tmsg): boolean; virtual;// procedure releasehandle;property caption;property canvas;property color;end;// 显示某一输入法的设定对话盒function showimeconfigdialog(hkb: hkl): bool; far;// 指定某一窗口的中英输入模式procedure tochinese(hwindows: thandle; bchinese: boolean); far;// 下一个输入法(等于仿真预设的 ctrl + shift)procedure nextime; far;// 侦测目前作用中的输入法文件名称function getimefilename: string; far;// 切换到指......

阅读全文(8844) | 评论:0

delpi与数据库,低层介绍(2008-07-17 17:48:00)

摘要:2、数据库    在相对枯燥的理论之后,我们终于要开始接触到一些比较激动人心的实际应用了。  数据库编程是Delphi最强大的优势之一,恐怕也很少有Delphi程序员没有接触过数据库编程的。Delphi独特的Data-Aware构件,让很多初识Delphi的人为之目瞪口呆。不需要写任何代码,在几分钟之内就可以做出一个相当精巧的数据库程序,而且在开发期就可以看到运行期的结果,这真是不可思议啊!但是,Delphi强大无比的数据库开发能力,决不仅仅限于用几个构件操纵一下DBF或是Access数据库而已。你所看到只是冰山一角。让我们仔细说来。  数据库虽然家族庞大,但一般来说可以分为两种:文件型数据库和C/S型数据库。下面分别讨论。    2.1 文件型数据库  所谓文件型数据库,顾名思义,是基于文件的(file-based),数据被按照一定格式储存在磁盘里,使用时由应用程序通过相应的驱动程序甚至直接对数据文件进行读取 。也就是说,这种数据库的访问方式是被动式的,只要了解其文件格式,任何程序都可以直接读取,这样就使得它的安全性相当糟糕。同时,在蓬勃兴起的网络应用,文件型数据库更是难有用武之地:效率低下,不支持很多SQL命令,不支持视图、触发器、存储过程等高级功能,等等。这些特点决定了它不适合大型的工程。  最为大家所熟悉的文件型数据库可能就是DBF(DBase/Foxbase/Foxpro)数据库,在DOS时代风靡一时,相信很多人都有过抱着一本手册苦背Foxbase命令的回忆吧!其特点是,每个Table或Index都是一个独立的文件,使用相当简单,性能还可以,安全性非常的差,但应用非常广泛(主要是DOS时代遗留下来的,哪个单位没有两个用这种东东编出来的老古董程序呢?)。它在今天还能占有一席之地,其主要原因之一是,正因为简单和使用广泛,使得对它的访问是最容易的,甚至根本无需第三方的接口,就可直接对其进行字节级的读取 。  除此之外,还有著名的Access数据库。这是MS Office里的构件之一,和DBF数据库不同,所有的文件都被整合在一个.mdb文件中,这样就避免了数据库变大之后管理上带来的麻烦。同时它还提供密码保护功能,安全性比DBF数据库要好很多。Access数据库除了一般的文本数据之外,还擅长于对多媒体数据的处理,在对声音、图像乃至基于OLE的对象进行处理时,令DBF......

阅读全文(2781) | 评论:0

男人这辈子只会爱一个女人(转)(2006-08-20 17:50:00)

摘要:每一个男人都是这样,他可以对每个女人说“我爱你”,但他一辈子只会爱上一个女人,只有一个。   女人需要的是一个关怀她,爱她,可以让她依靠,保护她一辈子的人,当她遇到一个男人时,爱的死去活来,山盟海誓。因为种种原 因的分开,她不会再记得他,或者说不会记得那么深刻。因为当她遇到一个更好的男人时,她会拿两个人来比较,她会觉得遇到更好的是 她的幸运。   但男人不是这样,当他爱上一个女人,真真正正 的爱,他不会在爱上任何一个人。当这段感情失败后,他会把这段记忆放在心里,把这个女人放在心底。   原来一个男人可以把很多女人放在心里,但一辈子只有一个女人可以在他心底。   无论他以后会再相处再多的女人,他都会清楚的知道,自己最爱的是谁。   无论以后他遇到的女人多么优秀,他也不会改变。因为他心底的女人是他的支柱,他不会用她和任何一个人相比,他认为这种比较是 愚蠢的,他一辈子只会爱她一个。放在心底的女人,永远的伤痕。   男人都是爱面子的, 也许他平时会活的很潇洒,但在一个人孤独的时候,他会放下所有的尊严,放声痛哭,思念唯一的她。   男人的爱一辈子只会付出一次,你得不到,因为你不是。   男人的痴情,女人的多情,只有死才是终。......

阅读全文(2604) | 评论:1

我爱你(2006-08-20 16:50:00)

摘要:可以做我女朋友吗?肉麻D讲句,我爱你, I love you?我吾知道你系点谂,不过我希望你比个机会我.你又未有男朋友,大家认识下对方.......

阅读全文(378) | 评论:0

英语学习(2006-08-19 23:47:00)

摘要:I单词Groan:呻吟Grope:搜索,探索Gross:毛(收益)的Gut:勇气Gown:女礼服Disgrace:丢脸,耻辱Gracious:亲切的Gradual:逐渐的Grand:豪华的Bestow:给予Graphic:生动的,形象的Grief:悲伤 /brief:摘要Torment:痛苦Grim:讨厌的,严厉的Pilgrim:朝圣者,香客Glamour:魅力,诱惑力Glimpse:瞥见Litter:垃圾Gloomy:阴沉的,抑郁的Glory:光荣,荣誉Gorgeous:华丽的,极好的Hijack:抢劫Hint:暗示,提示Hitherto:至今Hatred:怨恨Hatch:策划,图谋Haul:拖运              Headquarters:司令部,总部Heal:愈合Steward:乘务员Helmet:头盔Halt:停住Hamper:阻挡Harbor:港口,避难所Harness:治理,利用Harsh:严厉的Hasty:草率的  II词组Groan with pain:痛苦地呻吟Gross annual profit:年度毛利Moral guidance:精神指导Graphic designer:平面造型设计师The center of gravity:重心Get a glimpse of:瞥见Global warming:全球变暖Take off the gloves (to sb.):认真地或毫不客气的争辩Governor general:总督Attorney general:检察总长Heir apparent:法定继承人President elect:总统当选人Go on a hike:徒步旅行Noise hazards:噪音危害Harsh remarks:尖刻的评论Harsh realities:严酷的现实I......

阅读全文(502) | 评论:0

游阳朔后感(2006-08-19 16:45:00)

摘要:阳朔的山水的确吾错,但这也是一场体力的锻炼.几个朋友,和一个自己暗恋的人去游玩,心情确实很复杂.又想靠近她,又不想太明显,她又好像有点躲开我(之前我已经向她表白过的).我都不知道怎样解决这处僵局.心情很复杂,高兴(和她一起,看到她),伤心(她很少和我接触,可能故意的),希望(她还没有男朋友,和我一样没拍过拖.).我不知道她那次不接受我是为什么?她又没说不可能.......

阅读全文(384) | 评论:0

初次自由行(阳朔之旅)(2006-08-14 22:52:00)

摘要:这次出行,其实我本身就有700多元,爸还给我500元,尽管家里并不是很宽裕,但爸的这行动确定让我感动.......

阅读全文(377) | 评论:0

我的人生规划(2006-08-02 21:57:00)

摘要:    作为一个软件工程的本科二年级生,我觉得我两年的大学生活简直是浪费时间。     在学校不是在宿舍无聊的玩游戏,就是到网吧去玩。虽然,暂时只是一科不及格,但如此不显眼的成绩,日后会有什么出色。而我不甘于这样子虚无,大学的后两年不能还是这样混下去。于是,我要在这里为自己的未来计划一下。 1.注重实践,多与社会接触。     学校按排的实习要好好把握。争取好的队友,争取做Leader(the best of the best)。这样,以后写个人简历也好写点。还要对得起一万五的学费。    自己的时间里,不玩游戏,起码不玩网游(浪费时间)。广交朋友,还要与老同学保持联系。(可能因为沉溺于游戏中或个人性格沉默,大学里的朋友并不多,寂寞~~~~~~~~~~~~~~!)有机会一定要做兼职,挣点零用钱。    多编程或编一个有价值的软件来。说不定这是我的第一桶金。这软件可以由我一个完成也可以多人完成且有我的参与。所谓“独学而无友,则孤陋而寡闻”。 2.学好英语,接轨国际。     这没什么好说的,英语好并不是坏事。虽然四级还没过,而且表达能力直接应响英语表达,但是英语还是很重要的。只好把学好英语视为长远的、短时间内无法完成的任务。 3.找份好工作,有自己的事业。     虽然想过自己创业,但是……。还是找份好工作重要。起码要月薪两千(按现在浪费水平)。但是如果这要求都达不到,我认了。总的一句,随遇而安。我只要独善其身就可以了,以后总有我的立足之地的。希望在明天嘛。     好!我决定了,我要发达!我相信有理想加上脚踏实地,一定能成功的。......

阅读全文(1275) | 评论:0

检讨(2006-08-02 15:00:00)

摘要:前几去吃饭,在那些老豆级的亲戚面前,他们一边吹水还说我这人少话,口才不行. 当时,我确实是这样,在人群之中确定话比较少,而我这个人确实有点孤辟. 这样的性格可能是周围环境所做成的,可能是因为长大了,成熟了,现在很少像以前一样搞鬼、开玩笑了。其实我本身也不喜欢这种性格,而且大多数人更喜欢健谈的人。 看来我在别人面前要多发言才行,不然,没人知道我的存在。 沉墨不是金!!!!!!!!!!!!!!!!!......

阅读全文(378) | 评论:0