好歌

2005年10月8日 没有评论

纯音乐:

游戏音乐-仙剑奇侠传i-(14)蝶舞春园
仙剑奇侠传插曲辑 – 18.爱的世界
仙剑奇侠传插曲辑 – 03.桃花岛
仙剑奇侠传插曲辑 – 07.莫失莫忘(女声∶风铃)   (好听哦,阿龟推荐)
仙剑奇侠传插曲辑 – 08.千里姻缘一线牵
仙剑奇侠传插曲辑 – 09.快乐逍遥
仙剑奇侠传插曲辑 – 10.莲花池
仙剑奇侠传插曲辑 – 11.人间精灵
仙剑奇侠传插曲辑 – 12.酒醉三分醒
仙剑奇侠传插曲辑 – 14.淌血的心
仙剑奇侠传插曲辑 – 16.比翼鸟(女声∶风铃)   (好听哦,阿龟推荐)
mp3 – 纯音乐 – 古典钢琴 – 合辑various-01-夜曲-肖邦
钢琴恋曲_圣诞歌(纯音乐)
2002钢琴恋曲-安静(纯音乐)
女子十二乐坊-梁祝
女子十二乐坊-笑傲江湖_(西街少年原声带)
女子十二乐坊 – 敦煌(特别版) – 16 十面埋伏
女子十二乐坊-阳春白雪
钢琴曲-肖邦-离别
中国民族轻音乐 – 梁山泊与祝英台(琵琶协奏曲)
女子十二乐坊-春江花月夜
女子十二乐坊-东京爱情故事
二胡-二泉映月(女子十二乐坊)
!女子十二乐坊 09.茉莉花
纯音乐 – 天空之城(小提琴+口哨)
女子十二乐坊……世界上唯一的花朵
女子十二乐坊-突然发生的爱情故事
仙剑奇侠传插曲辑 – 02.妖域
仙剑奇侠传 – 08 红色蒲公英 (终于明白演奏曲)
仙剑奇侠传 – 剑侠情缘 – 新 主题歌 笑问情缘  [ 2.13m]
超好听的天籁旋律纯音乐——惠威音响试音碟主打曲目
倚天屠龙记04-苍凉
阿炳-(二胡独奏)二泉映月
追风的女儿——情竹(陈悦)笛子独奏
无间道-黄秋生死时的一首曲-很好听goodbye  (阿龟再荐!)

              女声:

谢雨欣_-_天仙子(划地为牢[剑侠情缘]网络版主题音)
陈妃平 – 剑侠情(划地为牢[剑侠情缘]网络版主题音)   (传奇私服登录时的歌曲找了很久)
张柏芝_星雨心愿_星语心愿(全新经验新曲+精选)
张柏芝 路过蜻蜓
张峰奇-婉君表妹 07.喜欢雨天
张玉华 – 雪花飘
赵薇 – 天使之名
赵薇-渐渐
赵薇-一直下雨的星期天
周慧敏-痴心换情深(粤)
周迅-看海
最熟悉的陌生人
香香-听海
王蓉-我不是黄容
孟庭苇 – 孤独时候你想谁呢
孟庭苇-等待花开
孟庭苇-凤凰木
孟庭苇-你看你看月亮的脸
孟庭苇-往事
孟庭苇-一个爱上浪漫的人
孟庭苇_伤了你的心我的心好伤心
孟庭苇-风中有朵雨做的云
孟庭苇-谁的眼泪在飞
4 in love再见中国海  (阿龟推荐!)
4 in love一千零一个愿望
boy'z,twins – 死性不改(合唱版)
baby vox-偶然  
jem – they  (很不错哦,阿龟推荐)
she-我和幸福有约定
she- 04.我爱你
she_爱情的海洋
she-super star
she-半糖主义
she侯鸟
she-花都开好了
she-美丽新世界
she女朋友-恋人未满
she女朋友-热带雨林
she – 02.痛快
she 听天使在唱歌(英文版)
she-他还是不懂(完美音质版)(奇幻旅程)
twins-森巴皇后
twins 01.老鼠爱大米(粤语版)
twins-风筝与风
twins-精选(完整版)
twins-恋爱大过天
twins–朋友的爱
twins-双失情人节
twins-眼红红
twins-饮歌(3:23,没dj声版,超级好听)
twins – 下一站天后
twins-莫斯科没有眼泪(下一站天后国语版)
twins—女人味
twins – 假装正经(新歌)
阿桑-温柔的慈悲 (阿龟强烈推荐!)
阿桑 – 寂寞在唱歌
阿桑_受了点伤
阿桑-01-叶子(秋天版)
阿桑 – 01.寂寞在唱歌
阿桑 – 05.保管
阿桑 – 06.你要离开的一些时候
阿桑-angel
阿桑-野百合也有春天(蔷薇之恋电视原声带)
陈慧娴-千千阙歌(粤)
丁薇 – 还有什么
丁薇 – 纯真年代
丁薇 – 断翅的蝴蝶
丁薇 – 漩涡
丁薇 – 再见,我爱你
丁薇-冬天来了
丁薇-女孩儿与四重奏
瞿颖-加速度
梁咏琪-魔幻季节
林纯如-遗忘(至尊红颜片尾曲)  (阿龟推荐)
林心如-被爱捉弄
刘若英-花开花落
刘若英-很爱很爱你
刘若英—后来
刘若英-蝴蝶(梁山伯与祝英台)
刘若英-一辈子的孤单
刘若英-听!是谁在唱歌
刘若英-知道不知道?(天下无贼片尾曲)
容祖儿-挥着翅膀的女孩
容祖儿挥着翅膀的女孩 (我的骄傲 国语版)
容祖儿–痛爱(强势主打歌)
孙燕姿 – 我的爱(完整版)
孙燕姿-绿光
孙燕姿-遇见
孙悦 – 哭泣的百合花
陶晶莹-姐姐妹妹站起来
陶晶莹-太委屈
王菲-望着天空的女孩
王菲- -我愿意
王菲 – 约定
王菲–红豆
王菲-蝴蝶
王菲-棋子
王菲-旋木
王菲-宽恕
王菲_暧昧
王菲_催眠
王菲-笑忘书
王菲-又见炊烟
仙剑奇侠传——蝶恋(真人演唱版)
许美静-阳光总在风雨后
窈窕美眉m2m—the day you went awa
张韶涵 – 01.mama mama
张韶涵 – 02.欧若拉
张韶涵-寓言
张韶涵 – 07.复活节
张韶涵 – 08.可以爱很久
张韶涵-白雪
张韶涵-呐喊 (阿龟喜欢)
赵咏华-最浪漫的事
郑秀文-眉飞色舞
周慧-约定
蔡依林_蔡依琳 – 海市蜃楼(天地英雄电影原声带)
蔡依林-爱情36计
蔡依林-04-海盗
蔡依林-说爱你
蔡依林–我很怕黑
蔡依林-野蛮游戏  (好听,阿龟推荐!)
蔡依林 – 看我七十二变(看我72变)
蔡依林—倒带
蔡依林 love love love  恋爱百分百
蔡依林_柠檬草的味道
蔡依林-假面的告白
韩红 – 流浪
韩红-天亮了
dj一首超级好听的校园歌曲(后悔的来找我!~)
(也叫‘四个女生-心愿 (网上很流行的最新的校园歌曲)-说是几个大学女生自己录的’)
玻璃杯(完整版)
江美琪_亲爱的你怎么不在我身边
一个女孩对男孩的网络告白(蛮感人的)亲爱的你怎么不在我身边 (推荐)
周迅-飘摇
14-秋来秋去(叶倩文)
陈妃平 – 剑侠情(划地为牢[剑侠情缘]网络版主题音)
陈慧琳-星梦情真
陈琳-爱就爱了
邓丽君 – 我只在乎你
何静 – 月亮偷着哭
梁静茹 – 03.燕尾蝶
梁静茹-宁夏
梁静如-勇气    (别说你没听过哦!阿龟会生气的~_~)
梁静茹 – 无条件的为你
梁静茹-fly_away
梁静茹vs宇恒-微笑的理由
梁静茹-爱你不是两三天
梁静茹-如果有一天
苏芮 – 酒干倘卖无 
苏芮-请跟我来
王心凌-第一次爱的人
王心凌 – honey – 01.honey
仙剑奇侠传 – 04-杀破狼
仙剑奇侠传 – 阿桑&n
bsp;- 一直很安静 (仙剑奇侠传插曲)
许慧欣 七月七日晴
毛阿敏-相思(西游记后传片尾曲)  (很好听的!)
梁咏琪-偏见
蔡琴 – 被遗忘的时光 (无间道试机碟)
金海心_悲伤的秋千(完整)
女生宿舍-望星打卦
卢巧音 – 落地开花(原版)
飞儿乐团-你的微笑
裘海正 – 爱你十分泪七分
陈慧琳-记事本
赵咏华-最浪漫的事
李纹_李玟-好心情(天籁村)
李纹_卧虎藏龙 -月光爱人-(英文版)
李湘-给我新鲜
电影《珍珠港》原声音乐 – 排山倒海 – 张惠妹(珍珠港电影原声带)
郭凌霞-粉红色的心情
江美琪_朋友的朋友    (老歌,但阿龟就是喜欢)
梁静茹(爱的大游行) -孤单北半球
萧萧-倔强的坚强
徐怀钰-雨伞
杨过与小龙女在2004年的时候
杨千华-简爱
杨千桦-电光幻影
杨千嬅 – 01.大城大事(女子十二乐坊合奏版)
安又琪-你好,周杰伦

              男声:

周华健-有没有一首歌会让你想起我
阿牛.锦绣二重唱 – 牵牛花   (平凡的我们就如牵牛花)(废话不说了^_^)
光良-童话
柯受良-大哥
满文军-今生今世
任贤齐 – 10.蓝色忧郁 (清晰版)
任贤齐-花太香
任贤齐 – 03.两极 (清晰版)
任贤齐-沧海一声笑
任贤齐-你是我的老婆
沙宝亮-暗香
邰正宵-一千零一夜
小虎队-红蜻蜓
小虎队-蝴蝶飞呀
谢霆锋-黄种人(国)
郑伊健-《华英雄》-天煞孤星
郑伊健-天涯海角(中华英雄主题曲)
周华健-风雨无阻
周华健-忘忧草
庞龙-杯水情歌《 281封信》主题曲
朴树-她在睡梦中
任贤齐 – 01.永不退缩 (清晰版)
水木年华 – 蝴蝶花   (推荐)
05.-.蜗牛的家.-.孙晓亮.-.男孩女孩 (三里屯音乐之酒吧歌手
f4 – 第一时间
光良-第一次
光良-童话(剧场版)
老狼_睡在我上铺的兄弟(校园民谣珍藏版)
林子祥-男儿当自强(黄飞鸿)
罗文_霍元甲-万里长城永不倒(《霍元甲》主题曲)
朴树-生如夏花
郭富城_浪漫樱花_para para sakura (国)(芭啦芭啦櫻之花ost)
郭富城-动起来
郭富城唯一色彩(芭啦芭啦樱之花插曲)
周杰伦-七里香
周杰伦-星晴
05.男儿志(电影‘少林足球’插曲)
陈坤 – 月半湾
刘德华-踢出个未来(电影少林足球主题曲)
陆毅-壮志雄心
倮伍阿木 – 大英雄(划地为牢[剑侠情缘]网络版主题音)
水木年华–一生有你
吴奇隆-烟火
吴宗宪-明日英雄
吴宗宪-是不是这样的夜晚你才会这样地想起我
吴宗宪-自白
五月天-温柔
张信哲-爱如潮水
05 灰色空间 – 罗志祥
陈宇凡-我不是英雄
齐秦-往事随风
刘德华、梁朝伟-无间道(国)
范逸臣-断翅蝴蝶飞
小虎队 – 爱
小虎队 – 青苹果乐园
羽泉-没你不行
羽泉-深呼吸
羽泉-最美
画地为牢(剑侠情缘网络版主题曲)
剑侠情缘外传之月影传说 – 爱的废墟
亮亮-你到底爱着谁
刘德华 – 练习
刘德华-冰雨
刘德华-上海滩
满江-恋爱中的城市
周杰伦- -龙拳
周杰伦-龙卷风
周杰伦-晴天
周杰伦 – 七里香 完美cd版
周杰伦-安静
周杰伦-轨迹(清晰版)
周杰伦-梯田
beyond-光辉岁月
beyond – 情人(黄家驹粤语原曲)
beyond-冷雨夜
beyond-真的爱你
黄家驹 – beyond – 不再犹豫
黄家驹 – 再见理想 beyond
黑龙_回心转意
周渝民-make a wish(仔仔唱出你的心愿)
草猛–宝贝对不起

          英文经典歌曲:

英文经典歌曲 – love story  爱情故事
c21-01-stuck in my heart
ciara ft. petey pablo – goodies
forever young
give me more(好听道你晤信啊-劲hi版)
she will be loved
布兰尼翻唱蔡依林看我72变英文版
超好听-love in december
后街男孩-need you tonight
怀旧英文情歌-雨中的旋律
欧美经典英文歌曲 – how do i live(空中监狱配曲)
欧美经典英文歌曲pro — 泰坦尼克号 主题曲
欧美经典英文歌曲-爱情白皮书
水浒无间道英文歌插曲(完整版)in another time
英文经典歌曲 –  毕业生
布莱妮–oops i did it again
5566 – 日复一日-boa宝儿《mvp情人主题曲》
boa 宝儿—jewel song宝矿力水特广告歌爆好听
boa 宝儿no.1
boa宝儿-02-亚特兰提斯少女
boa宝儿-be the one
boa宝儿-rock with you
m2m – what you do about me
m2m-everything you do
m2m-mirror mirror
mvp情人_mvp情人-10-waiting宝儿(mvp情人电视原声带)
宝儿,东方神起,安七炫,文熙俊,dana,fly to the sky–hot mail
宝儿boa-03-every heart-全心全意
宝儿boa-05-奇迹
宝儿boa – listen to my heart倾听我心
宝儿boa – my name 我是宝儿
宝儿boa_my prayer祈祷
宝儿boa-jewel song宝石情歌
宝儿boa-moon and sunrise
宝儿boa-spark 光芒
宝儿boa-valenti勇敢
宝儿boa-天使的气息
there you'll be 珍珠港主题曲
格莱美_小甜甜布兰妮_girl in the mirror
格莱美_小甜甜布兰妮_one kiss from you
席琳.迪翁-my heart will go on-我心永恒(电影泰坦尼克主题曲)
席琳.迪翁-there you`ll be(珍珠港主题曲)
英文歌 – 席琳·迪翁-昨日重现_yesterday once more
proud of you(挥着翅膀的女孩英文原装版)
stop! stop! stop!(恋爱百分百的英文版)
经典英语歌曲 – w-inds-05-give you my heart
老鼠爱大米-香香(英文版)
欧美金曲 – 流行 – 英文 – 英文经典歌曲 – endless love  无尽的爱
外语歌曲-英文翻唱-用心良苦-now you're gone-ayu-tan
吻别(英文版)=take me to you heart
英文06 – 世界上最动听的歌 – heal the world_michael jackson – 欧美经典流行歌曲精

英文版 刘德华 一起走过的日子(love is only just a dream)
在此等待-right here waitting
a1–like a rose
fools garden_柠檬树—lemon tree(英文歌)
groove coverage – only love
i saw you walking in the rain(慢嗨)
后街男孩-show me the meaning of being lonely.mp3
玛利亚凯莉 惠特尼休斯顿_when you belive
西城男孩westlife-fool again
bon jovi_it's my life(crush)反恐精英主题曲   (阿龟推荐^_^)
一首听了令你想哭的悲伤情歌 steelheart-she

分类: 音乐 标签:

双表查询

2005年10月8日 没有评论

SELECT [zcbtable].[xm], [zcbtable].[xb], [zcbtable].[sfzh], [zcbtable].[bkgz], [zcbtable].[bkjb], [zcbtable].[zdxl], [zcbtable].[xxb], [zcbtable].[xdzy], [zcbtable].[xh], [zcbtable].[bj], [zcbtable].[ssdh], [zcbtable].[lxdh], [zcbtable].[yb], [zcbtable].[jttxdz], [zcbtable].[txdz], [zcbtable].[bz], [zcbtable].[bzm]
FROM zcbtable
WHERE ((([zcbtable].[bzm]) In (SELECT 识别码 FROM code GROUP BY 识别码 )))
ORDER BY [zcbtable].[xm];

分类: 大学 标签:

帮你写简历

2005年10月7日 没有评论
分类: 大学 标签:

简历模板、简历封面资源下载

2005年10月7日 没有评论

1、385个极品简历封面,封面设计新颖,全部为JPG图片格式,拿来即用。(极力推荐)
下载地址:
http://www.chinacv.net/down/cv385.rar
(大小:29.7M)
2、80个简历封面。全部为全国各高校的打印点采集而来,带有高校的校徽及各自的风格。
下载地址:
http://www.chinacv.net/down/cv80.rar
(大小:1.52M)
3、求职信、自荐书、简历模板、英文简历书写格式,全部为WORD格式,每篇简历都是一个精品,共64个。(极力推荐)
下载地址:
http://www.chinacv.net/down/doc64.rar
(大小:1.04M)
4、其他一些零散的简历封面、模板、简历表格。
下载地址:
http://www.chinacv.net/down/other48.rar
(大小:3.75M)
5、全国各省市地区的求职人才网站大全。
下载地址:
http://www.chinacv.net/down/site29.rar

分类: 大学 标签:

一些JS的源代码

2005年10月7日 没有评论
分类: 杂志 标签:

爆笑:恐怖分子广州遭遇

2005年10月6日 没有评论

恐怖分子最近在印尼巴厘岛得手之后,也想来广州干一票。 

某日,一个和往常一样的早晨,恐怖分子计划在广州实施多次连环爆炸…… 

经路人指点,第一个恐怖分子来到了广州新商业中心的天河北。 

我*,发现这个地方简直tmd的太适合搞恐怖袭击了。到处是高楼,居然还有一栋高耸入云的摩天大楼 

正当这位恐怖分子表情紧张地穿过马路走向中信时候,他的紧张表情和黑色的包引起了某些长期守侯在马路两边的人民的注意。 

当他距离中信还有那么10米距离的时候,突然,耳边传来马达轰鸣,一阵转速高达10000转摩托发动机声音从背后响起,又旋即从前面掠过,仓皇间只有两个头盔给他留下深刻影响,广州人们驾车安全意识就是tnnd强! 

然而,他马上发现包被抢了!! 

第二天,新闻报道昨日在芳村某出租屋发生一次爆炸,死伤者多名,疑为违章使用液化气所致…… 

第二名恐怖分子试图寻找一个人群密集的地方,凭借其敏锐的职业嗅觉,他很快来到了传说中的流花火车站。 

我*,这个地方简直tmd的太适合搞恐怖袭击了,到处都是人来人往,高度密集,高度拥挤。虽然真的很难挤,但是作为神的战士,他依然见缝插针地挤了进去。 

目的即将达到,他已经将手伸向起爆器。 

突然间,四名彪形大汉围住他,一记闷棍打在头上。醒来以后,包包已经不见,身上只剩袜子。 

远处有几辆警车在平静地巡逻…… 

中午,东圃传来一次巨大爆炸声,几人死伤。警方初步怀疑电路短路造成爆炸 

第三名恐怖分子准备实施袭击广州交通枢纽,目标初步定在区庄立交 

在堵了2小时车之后,他终于上来到目标立交,但是发现找不到地方下去,好不容易转下去,又不知道从哪儿上去,这样不好,不利于自己撤退。 

最后他决定步行上立交。 

和第一名恐怖分子一样,他的紧张表情和黑色的包引起了某些长期守侯在马路两边的人民的注意。当他走上区庄立交时候,发现包包被偷了,而远处几个卷头发、高鼻子的人在盯着他。

当天下午,石牌村发生一起爆炸,几名新疆人死伤。 

警方消息﹕××地下鞭炮厂安全事故…… 

第四名恐怖分子准备袭击某大型居民区,选来选去,觉得还是某某这个发展商比较NB,就是他了。 

背上包包,来到FL房产商的楼盘。 

我*,这个地方简直tmd的太适合搞恐怖袭击了,楼房高耸如云,密不透风,高度密集,高度拥挤。

想到这里,恐怖分子嘴角露出了幸福的微笑。

突然,不知哪里,窜出几个手拿警棍保安,劈头盖脸一顿乱打﹕“叫你丫维权,叫你丫上访……” 

作为物证,包包被没收。 

当日傍晚,该房产商总部一声巨响,死伤多名。 

公司称修建人防工事过程中发生事故。 

第五名恐怖分子准备袭击公共交通工具,在拥挤的体育中心汽车站苦苦等待了几十分钟后,好不容易等来一部公交车。然而,并不太拥挤的汽车,却怎幺也挤不上去。

有人一直在车门那里,似乎在掏钱,又似乎在问路…… 

不得已,恐怖分子掏出2元钱帮忙那人付了车费,结果,那人却下车而去,莫名其妙 

上了车,即将成功的恐怖分子准备在口袋按动遥控器,却发现口袋已经被划破一个大口子,里面的一切一切都已经不见,再回过身,包包已经失踪。 

半小时后,花都传来巨响。 

幸无人员伤亡,据称乃伪劣手机电池充电不当引起爆炸。 

第五个恐怖分子来到了广东郊外的一个矿场,发现这真是一个tmd绝佳的实施爆炸的地方,这里没有任何的防护措施和预警装备,一个小小的爆炸就能将整个矿井埋葬,里面的数百人全都会被埋在里头。这可是制造爆炸性新闻、向全球展示恐怖分子威力的好地方。 

半天后,矿井爆炸。 

恐怖分子等了整整三年,也没有等到有关此次爆炸的任何新闻报告,只是在偶尔听国人聊天时才听到﹕中国发生的矿井灾难多不胜数,早已经无所谓了,而他的那次爆炸矿主隐瞒没有上报,在官方更没有任何统计。

面对如此有效的“反恐措施”,恐怖分子们发誓以后再也不来广州了。

分类: 杂志 标签:

冷笑话

2005年10月3日 没有评论

1.火柴觉得自己头痒痒的,就挠了几下,结果把自己烧着了 
   然后就进了医院,变成了棉签 ,因为头上被包上了纱布……
  
  2.题目:放烟火时为什幺不会射到星星? 谜底:因为星星会“闪“
  
  3.面包走在路上突然肚子饿了,就把自己吃掉了..
  
  4.有一个绿豆觉得郁闷,就从100层楼上跳了下来,结果变成了红豆,知道为什么吗? 
   因为他流血了
  
  5.Q:什么时候人有两个嘴巴? 
   A:有两个人的时候。
  
  6. Q:有两个人掉到陷阱里了,死的人叫死人,活人叫什么? 
   A:叫救命。
  
  7. 两支香蕉在比赛耐力跑,跑着跑着…占优势的香蕉满头大汗的一面跑一边把香蕉 皮 脱下来顺手把皮丢在跑道上,后面的香蕉就滑倒了。 
  
  8.说有一只北极熊,因为雪地太刺眼了,必须要戴墨镜才能看东西, 
   可是他找不到墨镜,于是闭着眼睛爬来爬去在地上找,爬呀爬呀,把 
   手脚都爬的脏兮兮的才找到墨镜。戴上墨镜,对着镜子一照,这才发现:哦,原来 我是一只熊猫。 
  
  9. 小白+小白=? 
  小白兔(TWO)~
  
  10.有一只小企鹅,问他爸爸:爸爸爸爸,我真的是企鹅吗? 
   爸爸:当然是啊 
   他又去问妈妈:妈妈妈妈,我真的是企鹅吗? 
   妈妈:小乖乖,你是妈妈生的,当然是企鹅啊 
   他又去问奶奶:奶奶奶奶,我真的是企鹅吗? 
   奶奶:我们都是企鹅啊 
   他又去问爷爷:爷爷爷爷,我真的是企鹅吗? 
   爷爷:肯定是啦,怎么了? 
   小企鹅:可是~~ 
  
   我觉得————好冷啊~!~

分类: 杂志 标签:

Delphi与Word(二)取得Word 表格中的数据

2005年10月3日 没有评论

//取得Word 表格中的数据
procedure getWordCellStr;
var WordApp: TWordApplication;
    WordDoc: TWordDocument;
    DocInx,oFileName,CfCversions,oReadOnly,AddToRctFiles,PswDocument,
    PswTemplate,oRevert,WPswDocument,WPswTemplate,oFormat: OleVariant;
    i,iRow,iCol:integer;
    myCell:Cell;
    myRow:Row;
begin
  memo1.Lines.Clear ;

    // ===== 创建对象 =====
    if not Assigned(WordApp) then                          
    begin
      WordApp:= TWordApplication.Create(nil);
      WordApp.Visible := false;
    end;
    if not Assigned(WordDoc) then
      WordDoc:= TWordDocument.Create(nil);
  try
    DocInx:=1;
    oFileName := 'd:\test.doc';
    oReadOnly:=true;
    CfCversions := EmptyParam;
    AddToRctFiles:= EmptyParam;
    PswDocument:= EmptyParam;
    PswTemplate:= EmptyParam;
    oRevert:= EmptyParam;
    WPswDocument:= EmptyParam;
    WPswTemplate:= EmptyParam;
    oFormat:= EmptyParam;     
    // ===== 打开文件 =====                         
    WordApp.Documents.open(oFileName,CfCversions,oReadOnly,AddToRctFiles,
       PswDocument,PswTemplate,oRevert,WPswDocument,WPswTemplate,oFormat);
    // ===== 关联文件 =====
    WordDoc.ConnectTo(WordApp.Documents.Item(DocInx)); 

    //方法(1)==> 规则表
    For i := 1 To WordDoc.Tables.Count do      //第  i 个表
    begin                                      //第 iRow 行
      For iRow := 1 To WordDoc.Tables.Item(i).Rows.Count do      
      begin                                            //第 iCol列
        For icol := 1 To WordDoc.Tables.Item(i).Columns.Count do
        begin
          myCell:=WordDoc.Tables.Item(i).Cell(iRow,icol);
          memo1.Lines.add(myCell.Range.Text);
        end;
      end;
    end;
    
    //方法(2)==> 不规则表:只有横向合并时
    For i := 1 To WordDoc.Tables.Count do              //第 i 个表
    begin
      For iRow := 1 To WordDoc.Tables.Item(i).Rows.Count do
      begin
        myRow:=WordDoc.Tables.Item(i).Rows.Item(iRow);//第 iRow 行
        For icol := 1 To myRow.Cells.Count do         //第 iCol列
        begin
          myCell:= myRow.Cells.Item(iCol) ;
          memo1.Lines.add(myCell.Range.Text);
        end;
      end;
    end;

    //方法(3)==> 不规则:横向、纵向合并时; 任何表格
    For i := 1 To WordDoc.Tables.Count do            //第 i 个表
    begin                                            //第 j 个Cell 
        for j := 1 To WordDoc.Tables.Item(i).Range.Cells.Count do
        begin
          myCell := WordDoc.Tables.Item(i).Range.Cells.Item(j);
          memo1.Lines.add(myCell.Range.Text);
        end;
    end;

  finally
    if Assigned(WordDoc) then              // ===== 关闭文件 =====
    begin
      WordDoc.Close;
      WordDoc.Disconnect;
      WordDoc.Destroy;
      WordDoc := nil;
    end;
    if Assigned(WordApp) then              // ===== 关闭Word =====
    begin
      WordApp.Quit;
      WordApp.Disconnect;
      WordApp.Destroy;
      WordApp := nil;
    end;
  end;
end;

分类: 杂志 标签:

Delphi与Word(一)合并Word 表格中单元格

2005年10月3日 没有评论

//合并Word 表格中单元格
procedure mergeWordCell;
var WordApp: TWordApplication;
    WordDoc: TWordDocument;
    DocInx,oFileName,CfCversions,oReadOnly,AddToRctFiles,PswDocument,
    PswTemplate,oRevert,WPswDocument,WPswTemplate,oFormat: OleVariant;
    i,iRow,iCol:integer;
    myCell:Cell;
    myRow:Row;
begin
  memo1.Lines.Clear ;

    // ===== 创建对象 =====
    if not Assigned(WordApp) then                          
    begin
      WordApp:= TWordApplication.Create(nil);
      WordApp.Visible := false;
    end;
    if not Assigned(WordDoc) then
      WordDoc:= TWordDocument.Create(nil);
  try
    DocInx:=1;
    oFileName := 'd:\test.doc';
    oReadOnly:=true;
    CfCversions := EmptyParam;
    AddToRctFiles:= EmptyParam;
    PswDocument:= EmptyParam;
    PswTemplate:= EmptyParam;
    oRevert:= EmptyParam;
    WPswDocument:= EmptyParam;
    WPswTemplate:= EmptyParam;
    oFormat:= EmptyParam;     
    // ===== 打开文件 =====                         
    WordApp.Documents.open(oFileName,CfCversions,oReadOnly,AddToRctFiles,
       PswDocument,PswTemplate,oRevert,WPswDocument,WPswTemplate,oFormat);
    // ===== 关联文件 =====
    WordDoc.ConnectTo(WordApp.Documents.Item(DocInx)); 

    //合并第一、二列
        iStart:=WordDoc.Tables.Item(i).Cell(1,1).Range.Start;
        myCol:= WordDoc.Tables.Item(i).Columns.Item(2);
        iEnd:=myCol.Cells.Item(myCol.Cells.Count).Range.End_;
        myRange:=WordDoc.Range;
        myRange.Start:=iStart;
        myRange.End_ :=iEnd;
        myRange.Cells.Merge;

  finally
    if Assigned(WordDoc) then     // ===== 关闭文件 =====
    begin
      WordDoc.Close;
      WordDoc.Disconnect;
      WordDoc.Destroy;
      WordDoc := nil;
    end;
    if Assigned(WordApp) then      // ===== 关闭Word =====
    begin
      WordApp.Quit;
      WordApp.Disconnect;
      WordApp.Destroy;
      WordApp := nil;
    end;
  end;
end;

分类: 杂志 标签:

使用Delphi 7控制Word 2000生成文档的方法[转载]

2005年10月3日 没有评论

最近帮同学用Delphi 7写的一个数据库应用中的一个功能是将查询的结果导出到一个Word文档中保存。虽然Delphi 7的Servers面板中提供了TWordApplication和TWordDocument组件,但是帮助中却几乎没有写它们的使用方法。于是在中国期刊网上down了许多的相关文章来看,只可惜几乎都是用Delphi 5写的(Delphi 7中不能兼容),而且都只是简单的介绍了一下,甚是郁闷。在经过一天的摸索之后终于用Delphi 7实现了这个功能。代码如下:
//uses Word2000, ComObj;
//WordApp: TWordApplication;
//WordDoc: TWordDocument;
procedure TfrmDetails.btnExportClick(Sender: TObject); //单击“导出“按钮
var
  V:Variant;
  Template,NewTemplate,DocumentType,Visible:OleVariant;
  itemIndex:OleVariant;
  fileName:Olevariant;
  NoPrompt,OriginalFormat:OleVariant;
  RouteDocument,SaveChanges:OleVariant;
begin
  //指定文档的路径和文件名
  fileName:='C:\LogAdmin\doc\'+'值班日志'+Trim(DBTextID.Caption)+'.doc';
  //如果该日志的对应Word文档已经存在则提示是否覆盖
  if FileExists(fileName)=true then
    begin
      Beep;
      if Application.MessageBox('文档已经存在,是否覆盖?','警告',MB_OKCANCEL)=IDCANCEL then
        Abort;
    end;
  //测试当前是否运行了Word 2000
  try
    V:=GetActiveOleObject('Word.Application');
  except
    //未运行则运行之
    V:=CreateOleObject('Word.Basic');
  end;
  try
    //连接到Word 2000
    WordApp.Connect;
  except
    Beep;
    MessageDlg('不能生成文档,请确认是否安装了Word 2000!',mtError,[mbOK],0);
    Abort;
  end;
  //显示Word 2000
  WordApp.Visible:=true;
  //给调用Add函数使用的实参赋值
  Template:=EmptyParam;
  NewTemplate:=False;
  DocumentType:=wdNewBlankDocument;
  Visible:=true;
  //调用Add函数
  WordApp.Documents.Add(Template,NewTemplate,DocumentType,Visible);
  //连接到新建的文档
  itemIndex:=1;
  WordDoc.ConnectTo(WordApp.Documents.Item(itemIndex));
  //文档另存为
  WordDoc.SaveAs(fileName);
  //开始向Word文档中写入内容
  with WordApp.Selection do
    begin
      Font.Size:=20;
      Font.Bold:=2;
      Paragraphs.Alignment:=wdAlignParagraphCenter;
      TypeText('值班日志详细内容');
      TypeParagraph; //换行
      TypeParagraph; 
      Font.Size:=12;
      Font.Bold:=0;
      Paragraphs.Alignment:=wdAlignParagraphLeft;
      TypeText('编号:    '+DBTextID.Caption);
      TypeParagraph;
      TypeText('日期:    '+DBTextDate.Caption);
      TypeParagraph;
      TypeText('温度:    '+DBTextT.Caption);
      TypeParagraph;
      TypeText('湿度:    '+DBTextH.Caption);
      TypeParagraph;
      TypeText('天气:    '+DBTextWeather.Caption);
      TypeParagraph;
      TypeText('值班人:  '+DBTextName.Caption);
      TypeParagraph;
      TypeText('值班时间:'+DBTextTime.Caption);
      TypeParagraph;
      TypeText('有无异常:'+lbException.Caption);
      TypeParagraph;
      TypeText('使用工具:');
      TypeParagraph;
      TypeText(DBMemoTool.Text);
      TypeParagraph;
      TypeText('现场环境:');
      TypeParagraph;
      TypeText(DBMemoEnv.Text);
      TypeParagraph;
      TypeText('记录一:  ');
      TypeParagraph;
      TypeText(DBMemoR1.Text);
      TypeParagraph;
      TypeText('记录二:  ');
      TypeParagraph;
      TypeText(DBMemoR2.Text);
      TypeParagraph;
      TypeText('记录三:  ');
      TypeParagraph;
      TypeText(DBMemoR3.Text);
      TypeParagraph;
      TypeText('备注:    ');
      TypeParagraph;
      TypeText(DBMemoMemo.Text);
      TypeParagraph;
    end;
  //保存文档
  NoPrompt:=false;
  OriginalFormat:=wdOriginalDocumentFormat;
  WordApp.Documents.Save(NoPrompt,OriginalFormat);

  //关闭文档
  SaveChanges:=wdSaveChanges;
  OriginalFormat:=wdOriginalDocumentFormat;
  RouteDocument:=false;
  WordApp.Documents.Close(SaveChanges,OriginalFormat,RouteDocument);
  //断开和Word 2000的连接
  WordApp.Disconnect;

  MessageDlg('日志内容导出成功!保存为'+fileName,mtInformation,[mbOK],0);
  //关闭窗体
  frmDetails.Close;
end;

分类: 杂志 标签: