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];
10 月 2005
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
恐怖分子最近在印尼巴厘岛得手之后,也想来广州干一票。
某日,一个和往常一样的早晨,恐怖分子计划在广州实施多次连环爆炸……
经路人指点,第一个恐怖分子来到了广州新商业中心的天河北。
我*,发现这个地方简直tmd的太适合搞恐怖袭击了。到处是高楼,居然还有一栋高耸入云的摩天大楼
正当这位恐怖分子表情紧张地穿过马路走向中信时候,他的紧张表情和黑色的包引起了某些长期守侯在马路两边的人民的注意。
当他距离中信还有那么10米距离的时候,突然,耳边传来马达轰鸣,一阵转速高达10000转摩托发动机声音从背后响起,又旋即从前面掠过,仓皇间只有两个头盔给他留下深刻影响,广州人们驾车安全意识就是tnnd强!
然而,他马上发现包被抢了!!
第二天,新闻报道昨日在芳村某出租屋发生一次爆炸,死伤者多名,疑为违章使用液化气所致……
第二名恐怖分子试图寻找一个人群密集的地方,凭借其敏锐的职业嗅觉,他很快来到了传说中的流花火车站。
我*,这个地方简直tmd的太适合搞恐怖袭击了,到处都是人来人往,高度密集,高度拥挤。虽然真的很难挤,但是作为神的战士,他依然见缝插针地挤了进去。
目的即将达到,他已经将手伸向起爆器。
突然间,四名彪形大汉围住他,一记闷棍打在头上。醒来以后,包包已经不见,身上只剩袜子。
远处有几辆警车在平静地巡逻……
中午,东圃传来一次巨大爆炸声,几人死伤。警方初步怀疑电路短路造成爆炸
第三名恐怖分子准备实施袭击广州交通枢纽,目标初步定在区庄立交
在堵了2小时车之后,他终于上来到目标立交,但是发现找不到地方下去,好不容易转下去,又不知道从哪儿上去,这样不好,不利于自己撤退。
最后他决定步行上立交。
和第一名恐怖分子一样,他的紧张表情和黑色的包引起了某些长期守侯在马路两边的人民的注意。当他走上区庄立交时候,发现包包被偷了,而远处几个卷头发、高鼻子的人在盯着他。
当天下午,石牌村发生一起爆炸,几名新疆人死伤。
警方消息﹕××地下鞭炮厂安全事故……
第四名恐怖分子准备袭击某大型居民区,选来选去,觉得还是某某这个发展商比较NB,就是他了。
背上包包,来到FL房产商的楼盘。
我*,这个地方简直tmd的太适合搞恐怖袭击了,楼房高耸如云,密不透风,高度密集,高度拥挤。
想到这里,恐怖分子嘴角露出了幸福的微笑。
突然,不知哪里,窜出几个手拿警棍保安,劈头盖脸一顿乱打﹕“叫你丫维权,叫你丫上访……”
作为物证,包包被没收。
当日傍晚,该房产商总部一声巨响,死伤多名。
公司称修建人防工事过程中发生事故。
第五名恐怖分子准备袭击公共交通工具,在拥挤的体育中心汽车站苦苦等待了几十分钟后,好不容易等来一部公交车。然而,并不太拥挤的汽车,却怎幺也挤不上去。
有人一直在车门那里,似乎在掏钱,又似乎在问路……
不得已,恐怖分子掏出2元钱帮忙那人付了车费,结果,那人却下车而去,莫名其妙
上了车,即将成功的恐怖分子准备在口袋按动遥控器,却发现口袋已经被划破一个大口子,里面的一切一切都已经不见,再回过身,包包已经失踪。
半小时后,花都传来巨响。
幸无人员伤亡,据称乃伪劣手机电池充电不当引起爆炸。
第五个恐怖分子来到了广东郊外的一个矿场,发现这真是一个tmd绝佳的实施爆炸的地方,这里没有任何的防护措施和预警装备,一个小小的爆炸就能将整个矿井埋葬,里面的数百人全都会被埋在里头。这可是制造爆炸性新闻、向全球展示恐怖分子威力的好地方。
半天后,矿井爆炸。
恐怖分子等了整整三年,也没有等到有关此次爆炸的任何新闻报告,只是在偶尔听国人聊天时才听到﹕中国发生的矿井灾难多不胜数,早已经无所谓了,而他的那次爆炸矿主隐瞒没有上报,在官方更没有任何统计。
面对如此有效的“反恐措施”,恐怖分子们发誓以后再也不来广州了。
1.火柴觉得自己头痒痒的,就挠了几下,结果把自己烧着了
然后就进了医院,变成了棉签 ,因为头上被包上了纱布……
2.题目:放烟火时为什幺不会射到星星? 谜底:因为星星会“闪“
3.面包走在路上突然肚子饿了,就把自己吃掉了..
4.有一个绿豆觉得郁闷,就从100层楼上跳了下来,结果变成了红豆,知道为什么吗?
因为他流血了
5.Q:什么时候人有两个嘴巴?
A:有两个人的时候。
6. Q:有两个人掉到陷阱里了,死的人叫死人,活人叫什么?
A:叫救命。
7. 两支香蕉在比赛耐力跑,跑着跑着…占优势的香蕉满头大汗的一面跑一边把香蕉 皮 脱下来顺手把皮丢在跑道上,后面的香蕉就滑倒了。
8.说有一只北极熊,因为雪地太刺眼了,必须要戴墨镜才能看东西,
可是他找不到墨镜,于是闭着眼睛爬来爬去在地上找,爬呀爬呀,把
手脚都爬的脏兮兮的才找到墨镜。戴上墨镜,对着镜子一照,这才发现:哦,原来 我是一只熊猫。
9. 小白+小白=?
小白兔(TWO)~
10.有一只小企鹅,问他爸爸:爸爸爸爸,我真的是企鹅吗?
爸爸:当然是啊
他又去问妈妈:妈妈妈妈,我真的是企鹅吗?
妈妈:小乖乖,你是妈妈生的,当然是企鹅啊
他又去问奶奶:奶奶奶奶,我真的是企鹅吗?
奶奶:我们都是企鹅啊
他又去问爷爷:爷爷爷爷,我真的是企鹅吗?
爷爷:肯定是啦,怎么了?
小企鹅:可是~~
我觉得————好冷啊~!~
//取得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;
//合并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文档中保存。虽然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;
Microsoft Word是一个集成化环境,是美国微软公司的字处理系统,但是它决不仅仅是一个字处理系统,它集成了Microsoft Visual Basic,可以通过编程来实现对Word功能的扩展。
Microsoft Visual Basic在word中的代码即Word的宏,通过编写Word宏,可实现一些文档处理的自动化,如实现文档的自动备份、存盘等,可扩展Word文档的功能,因此,能够充分利用Word的特性,甚至使Word成为自己软件的一部分。Word的宏既有有利的一部分,因为它能够帮助我们实现文档的自动化,但是Word的宏也不是纯粹的有利,有时它可能危害我们的文档、计算机系统甚至网络,从最开始的Taiwan NO1宏病毒到现在的Melissa宏病毒,从最开始的简单的提示,耗尽系统资源到现在的乱发电子邮件,将个人的信息发送到网络上,甚至向硬盘的Autoexec.bat(自动批处理文件)中添加Deltree C: -y,破坏整个Windows系统。
Word中内嵌的Com技术
可以说Word是对Com技术支持最好的软件,这样说似乎是太极端了一点,但是Word提供的强大的编程接口技术却能够是我们通过程序控制Word的任何一部分。无论是文件的打开、存盘、打印还是文档中表格的自动绘制。
通过编程软件,可以灵活的操纵word,这里只以Borland Delphi为例,进行详细描述:
1、 在Delphi中调用Word软件/文件的方法 在Word中调用Word软件,归纳起来有三种可通过Delphi的控件TOleContainer 将Word嵌入的方法
a.使用Delphi提供的Servers控件调用Word,使用Word的属性
b.通过真正的Com技术,将Office软件目录中文件MSWORD9.OLB中的类库全部导入Delphi中,
c.使用CreateOleObject将启动Word,然后以Ole方式对Word进行控制。
2、 对几种方法的难易程度的判别
a.通过Delphi的控件TOleContainer 将Word嵌入
这是最简单的Ole嵌入,能够直接将Word文档调用,只需要使用ToleContainer.Run就可以将Word文档直接启动。且这样启动的Word文档与Delphi程序是一个整体(从界面上看),但是它存在不可克服的缺点,即不能通过Delphi控制Word文档,也就不能实现将灵活操纵Word的目的。
b.使用Delphi提供的Servers控件调用Word,使用Word的属性。
使用Delphi的Servers控件来操纵Word,在编程时Delphi能够实现代码提示,总体上看能够较好的实现Delphi对Word的控制,但是还有一些Word的功能不能在Delphi中调用(比如自己编写的VBA宏代码)。
且实现功能时本来在VBA代码中可选则参数在Delphi调用的时候必须添加,否则,连编译都不能通过。
这种方式启动的Word与Delphi程序分属两个窗体。此办法仅能作为一个参考。
c.通过真正的Com技术,将Office软件目录中文件MSWORD9.OLB中的类库全部导入Delphi中,利用Com技术编程,利用真正的Com技术,将MsWord9.OLD文件类库导入,然后利用Com技术进行使用。
整体上类似使用Delphi的Servers控件,稍微比Servers控件麻烦,优缺点与Servers控件相同。
d.使用CreateOleObject将启动Word,然后以Ole方式对Word进行控制。
这种办法是使用以CreateOleObjects方式调用Word,实际上还是Ole,但是这种方式能够真正做到完全控制Word文件,能够使用Word的所有属性,包括自己编写的VBA宏代码。
与Servers控件和com技术相比,本方法能够真正地使用Word的各种属性,和在VBA中编写自己的代码基本一样,可以缺省的代码也不需要使用。
本方式启动的Word与Delphi程序分属两个窗体。
缺点是使用本方法没有Delphi代码提示,所有异常处理均需要自己编写,可能编写时探索性知识比较多。
Word宏编辑器
进入Word宏编辑器的方法:工具->宏->Visual Basic编辑器,可进入Visual Basic编辑器界面。Word的Visual Basic编辑器界面和真正的Visual Basic编辑器基本相同,在此不再向详述。
在VBA代码中,可以添加用户窗体、模块、类模块。用户窗体、模块、类模块的概念和Visual Basic完全相同。注释也与Visual Basic完全相同。
可以将光标停留在窗体、模块的任何一个子程序上,直接按“F5”运行当前子程序。
Word的宏的概述
Word充分地将文档编辑和VB结合起来,真正地实现文档的自动化。使用Word编程,类似于使用Visual Basic,所不同的是,在Word中,能够直接运行某一个子程序,直接看见结果,Word的宏,
只能解释运行,而Visual Basic,现在已经能够编写成真正的机器码,从代码的保护上来说,应该尽可能地减少Word的VBA代码数量,尤其是关键的代码。
VBA宏,可分成四种:
1、和命令名相同的宏
如FileSave,FileOpen,如果在VBA代码中包含与Word同名的函数,则直接执行这些VBA代码,忽略Word本身的命令。
2、Word内特定的宏
这些宏包含AutoExec(启动 Word 或加载全局模板)、AutoNew(每次新建文档时)、AutoOpen(每次打开已有文档时)、AutoClose(每次关闭文档时),AutoExit(退出 Word 或卸载全局模板时)。
如果VBA代码中含有这些名称的函数,则满足相应的条件,相应代码就自动执行。
3、相应事件的VBA宏
这些宏是由事件触发的宏,如Document_Close在文档关闭的时候触发事件,Document_New在新建文档的时候触发,Document_Open在打开文档的时候触发。
4、独立的宏
自己编写的VBA代码,即不属于上面几种情况的VBA代码,可以被其他VBA代码调用,更重要的是,可以被其他程序调用。
这样,我们就可以屏弃Word自动执行的宏,通过Delphi直接调用相应宏来达到目的。
Word命令宏的详细描述
Word本身的命令函数包含很多,但是无论是word联机帮助还是MSDN帮助,都没有这方面的介绍,因此只能凭自己的实验取探索,初步探测的函数如下:
宏名 解释
FileNew 新建
FileNewDefault 新建空白文档
FileSaveAs 另存为
FileOpen 打开
FileClose 关闭
FilePrint 打印
FilePrintPreview 打印预览
ToolsCustomize 工具栏里面的自定义
ToolsOptions 工具选项
ToolsRevisions 突出显示修订
ToolsReviewRevisions 接受或拒绝修订
ToolsRevisionMarksAccept 接受修订
ToolsRevisionMarksReject 拒绝修订
ToolsRevisionMarksToggle 修订
ToolsMacro 宏
ToolsRecordMacroToggle 录制新宏
ViewSecurity 安全性
ViewVBCode 查看VB编辑器环境
FileTemplates 模板和可加载项
ToolsProtectUnprotectDocument 解除对文档的保护
InsertHyperlink 插入超级链接
EditHyperlink 编辑超级链接
DeleteHyperlink 删除超级链接
EditLinks 查看、删除链接
EditPasteAsHyperlink 粘贴超级