白菜粉条汤
make life remembered
  • 首页
  • 分类
    • 随语
    • 杂志
    • 外贸
    • 技术
    • 图片
    • 电影
    • 音乐
    • 饮食
    • 大学
  • 关于
每月存档

2月 2006

杂志

饭堂看到美女

by 曾经沧海 2006年2月26日

时间:2006年2月26日
地点:学校三饭堂二楼小笼包处,米粉前
人物:老乡一个,我一个,美女,其他不相关的吃饭人士
事件:
刚才给老乡拿U盘打印文件,因为老乡在三饭堂二楼吃饭,就坐在那里等她吃完……
突然,一个美女坐在我的对面的旁边,中长发,瘦瘦的,不是特别高,吃米粉……

感觉:不一般啊不一般!!!!!
结果:我走了,心还在……

 [heart]  [heart]  [heart]  [heart]  [heart]

2006年2月26日 0 评论 277 阅读
杂志

Delphi与Word

by 曾经沧海 2006年2月22日

1.引言

在利用Delphi开发应用程序的时候,通常我们要设计出很多各种格式的文档、报表,经常要进行文件的创建、编辑及修改,虽然Delphi本身提供了很多设计报表的控件或方法,但是存在明显的不足,比如中文输入,数据格式的控制等操作起来比较麻烦。利用大家都很熟悉的Office工具结合开发,能够很好的解决这方面的问题。以下就以Delphi为例详细介绍怎么利用Office完成各种文档、报表的制作。

2.实现方法

利用Delphi和Office结合开发主要有以下三种方法:

(1) 通过Delphi的控件TOleContainer 将Office嵌入,这是最简单的Ole嵌入,能够直接将Office文档调用,只需要使用ToleContainer.Run就可以将Office文档直接启动。且这样启动的Office文档与Delphi程序是一个整体(从界面上看),但是它存在不可克服的缺点,即不能通过Delphi控制Office文档,也就不能实现将灵活操纵Office的目的。

(2) 使用Delphi提供的Servers控件调用Office,使用Office的属性,使用Delphi的Servers控件来操纵Office,在编程时Delphi能够实现代码提示,总体上看能够较好的实现Delphi对Office的控制,但是还有一些Office的功能不能在Delphi中调用(比如自己编写的VBA宏代码)。且实现功能时本来在VBA代码中可选择参数在Delphi调用的时候必须添加,否则,连编译都不能通过。这种方式启动的Office与Delphi程序分属两个窗体。

  (3) 使用CreateOleObject将启动Office,然后以Ole方式对Office进行控制。这种办法是使用以CreateOleObjects方式调用Office,实际上还是Ole,但是这种方式能够真正做到完全控制Office文件,能够使用Office的所有属性,包括自己编写的VBA宏代码。与Servers控件和Com技术相比,本方法能够真正地使用Office的各种属性,和在VBA中编写自己的代码基本一样,可以缺省的代码也不需要使用。

3.软件实现

3.1第一种方法:通过Delphi的控件TOleContainer 将Office嵌入,操作方法如下:

(1) 调用Delphi中System页控件ToleContainer实现;

(2) 双击OleContainer,出现如下界面:

(3)这时你可以进行选择了,选择“由文件创建”,选择相应的文档,及就简单的实现了将OFFICE文档调入的功能;如下图:

3.2第二种方法:使用Delphi提供的Servers控件调用Office;它使得我们很容易地把Office中的应用程序(Word, Excel, PowerPoint, Outlook and Access等)当作一个com应用服务器进行控制,以Word为例,介绍其实现方法:

(1) 调用TwordDocument(建立Word文件对象)、TwordApplication(启动Word并建立同Word的连接) 、TwordFont(设置Word文件的字体)、TwordParagraphFormat(设置Word文件中的段落格式)控件;

(2) 启动Word,通过TwordApplication实现;

Try

Wordapplication.Connect;

Except

MessageDlg('Word may not be installed', mtError, [mbOk], 0);

Abort;

End;

(3)创建一个新的文件,通过TwordApplication实现;

Template := EmptyParam; //表示不使用模板

NewTemplate := False; //表示新建新建文档的类型为文档,

//添加新文档

WordApplication.Documents.Add(Template, NewTemplate); WordDocument.ConnectTo(WordApplication.Documents.Item(ItemIndex));

//关闭拼音查找和语法查找,以便提高程序运行的效率

WordApplication.Options.CheckSpellingAsYouType := False;

WordApplication.Options.CheckGrammarAsYouType := False;

(3) 插入数据,通过TwordDocument实现;

//文本

WordDocument.Range.InsertAfter('Oracle数据库'+ chr(#13));

//表格

WordDocument1.Tables.Add(WordDocument1.Range,rownum,colnum,template,newtemplate); //其中rownum是表格行数,colnum 是表格列数

//向表格中插入数据

WordDocument1.Tables.Item(1).Cell(1,1).Range.Text:='证书编号';

WordDocument1.Tables.Item(1).Cell(1,2).Range.Text:='身份证号码'

(4) 格式的设置

WordFont.ConnectTo(WordDocument.Sentences.GetLast.Font);//设置某些文字

WordFont.ConnectTo(WordDocument.Paragraphs.GetLast.Font);//设置某段文字

WordFont.Bold:=1;

WordFont.Italic:=1;……………………

WordDocument1.PageSetup.HeaderDistance:=1.5; //设置页边距

WordDocument1.PageSetup.FooterDistance:=1.75;

//设置页眉页脚 

WordDocument1.ActiveWindow.ActivePane.View.SeekView:=wdSeekCurrentPageFooter; WordDocument1.ActiveWindow.ActivePane.Selection.InsertAfter('第'+inttostr(wdFieldNumPages)+'页');

//让页脚向右靠齐

WordDocument1.ActiveWindow.ActivePane.Selection.ParagraphFormat.Alignment:=wdAlignParagraphRight;

…………………………

3.3第三种方法:使用CreateOleObject将启动Office,然后以Ole方式对Office进行控制。以Excel表格为例(表格的格式可以是事先设定好的,也可以是自己自由定义的,这里以事先设定好表格的格式为例),进行说明:

(1) 在Uses中添加Comobj类;

(2) 申请一个全局变量:FvExcel ,类型为Variant; 表示是Excel对象

(3) 定义一个函数用来启动Excel,如定义function OpenExcel(strFileName : string) : Boolean;

Function Tform1. OpenExcel(strFileName : string) : Boolean;

begin

Result := True;

try

FvExcel := CreateOleObject('Excel.Application');

except

Application.MessageBox('打开Excel失败',PChar(Application.Title),MB_ICONERROR);

Result := False;

end;

FvExcel.Visible := True;

FvExcel.Caption := '';

FvExcel.WorkBooks.Open(strFileName); //打开工作簿

FvExcel.WorkSheets[1].Activate; //设置第1个工作表为活动工作表

end;

(4) 向FvExcel中插入数据

FvExcel.cells[row,col].value:=’中国’;//row表示行,col表示列;

(5) 设置格式

fvexcel.rows[row].font.color:=clred; //设置某一行数据的颜色

fvexcel.ActiveSheet.PageSetup.LeftMargin:=1;//设置左页边距

fvexcel.ActiveSheet.PageSetup. RightMargin:=1;//设置右页边距

fvexcel.ActiveSheet.PageSetup.Zoom:=100;//设置显示比例

fvexcel.ActiveSheet.PageSetup.PaperSize:= xlPaperA4;//设置打印纸张大小

4.一些体会

在程序设计过程中,我们很多时候要设置Office文档、表格的格式,这时要用到很多属性、方法和函数等,这些属性、方法和函数一般是平时很少用到的,如果手上没有VBA手册,很难查找到这些东西,所以,比较好的方法是首先打开OFFICE,事先做好你要设计的格式,通过OFFICE中的宏记录,然后打开OFFICE中的Visual Basic编辑器,查看代码就可以看到你的操作使用到的属性、方法或者函数了。通常很多属性、函数或者方法可以直接搬到Delphi程序中用,一部分也只要稍微修改,也可以在Delphi中使用了。

5.结束语

通过Delphi可以很完美的和Office结合,设计出各种样式的表格、文本以及幻灯片等。同时通过Delphi操作数据库,把要求的数据插入Office适当的位置,通过Office本

2006年2月22日 0 评论 299 阅读
杂志

聊天记录

by 曾经沧海 2006年2月21日

点击下载

2006年2月21日 0 评论 279 阅读
大学

2005-2006学年度第二学期课程总表

by 曾经沧海 2006年2月20日

点击下载

2006年2月20日 0 评论 285 阅读
杂志

我的狗,本命年奉献

by 曾经沧海 2006年2月19日

比较靓仔吧?!
/wp-content/uploads/200602/19_164524_gou.jpg

2006年2月19日 0 评论 317 阅读
图片

寒假照片

by 曾经沧海 2006年2月19日

下载

2006年2月19日 0 评论 291 阅读
杂志

Asp实现域名转向功能[转]

by 曾经沧海 2006年2月18日

根据不同域名链接到不用目录文件的asp代码
第一个 
<%if Request.ServerVariables("SERVER_NAME")="123.com" then
response.redirect "bbs"
else
response.redirect "index1.htm"
end if%>

第二个
<%
select case request.servervariables("http_host")
case "www.123.com" '1
Server.Transfer("along.htm")
case "www.456.net.ru" '2
Server.Transfer("net.htm")
case "www.567.com.ru" '3
Server.Transfer("null.htm")
…… 继续添加 ……
end select
%>

第三个
<%if instr(Request.ServerVariables
("SERVER_NAME"),"123.com")>0 then
response.redirect "index.asp"
else if instr(Request.ServerVariables
("SERVER_NAME"),"456.com")>0 then
response.redirect "x/index.asp"
else if instr(Request.ServerVariables
("SERVER_NAME"),"789.com")>0 then
response.redirect "index3.asp"
end if
end if
end if%>

第四个
<%if Request.ServerVariables("SERVER_NAME")="www.123.com" then
response.redirect "main1.asp"
else if Request.ServerVariables("SERVER_NAME")="123.com" then
response.redirect "main1.asp"
else if Request.ServerVariables("SERVER_NAME")="www.456.com" then
response.redirect "/web/index.asp"
else if Request.ServerVariables("SERVER_NAME")="456.com" then
response.redirect "/web/index.asp"
end if
end if
end if
end if%>

第五个
<% 
'取得HTTP输入的值并付值到HTOST中
host=lcase(request.servervariables("HTTP_HOST"))
'开始条件跳转
SELECT CASE host
' 如果HOST的值是www.iswind.net就选择事件case"www.iswind.net"的命令
CASE "www.abc.net"
' Below is the redirect command
response.redirect "web/"
CASE "www.efd.com"
response.redirect "web1/"
'We use CASE ELSE to fix any other requests
CASE ELSE
response.redirect "web1/"
END SELECT 
%>

2006年2月18日 0 评论 334 阅读
杂志

我回来了!!!

by 曾经沧海 2006年2月17日

如题……

2006年2月17日 0 评论 253 阅读
杂志

删除域名的规律和域名状态解释

by 曾经沧海 2006年2月8日

域名过期后第一阶段 
域名过期后1~45天内 
将处于注册商保留状态 
whois英文状态:REGISTRAR-HOLD 

域名过期后第二阶段 
注册商保留期结束之后 
域名将进入30天赎回期 
whois英文状态:REDEMPTION-PERIOD 

域名过期后第三阶段 
赎回期结束之后域名将 
进入6天的删除未决期 
6天期满后域名删除 
whois英文状态:PENDING-DELETE 

whois英文状态:REGISTRAR-LOCK是域名锁定状态,过期后防止被转移注册商。 1:比如域名aaa.com到期时间为2003年03月01日; 
2:从2003年03月02日开始,域名的ns将会被系统自动删除,域名无法解析,但我公司会继续保留该域名30天,用户可以在这30天的期限内续费;
3:如果在2所述的30天期限内没有续费,即从2003年03月31日开始,域名将变成RedemptionPeriod状态,该状态将会保持30天,在此期间该域名不会掉下来,但是除了restore命令以外的所有命令对此域名无效;
4:域名在RedemptionPeriod状态下可以restore回来,但每restore一次需要支付费用;
5:如果域名在RedemptionPeriod状态下的30天没有restore,从2003.04.29开始域名变成PendingDelete状态(5天),2003年05月04日该域名将会删除。

VeriSign于2003年1月在其Registry Whois (.COM和.NET)中加了3个字段: 

Status、Creation Date、Expiration Date 

其中 Status 目前发现有8种状态,分别是: 

1、ACTIVE:活动状态。由Registry设置;该域名可以由Registrar更改;可以续费;至少被指派一个DNS。 

2、REGISTRY-LOCK:注册局锁定。由注册局设置;该域名不可以由注册商更改、删除;必须由注册局解除此状态才可以由注册商更改域名信息;域名可以续费;如果域名被指派至少一个DNS则可以包含在(域名根服务器)的区域中(可以正常使用)。 

3、REGISTRY-HOLD:注册局保留。由注册局设置;该域名不可以由注册商更改、删除;必须由注册局解除此状态才可以由注册商更改域名信息;域名可以续费;该域名不包括在(域名根服务器)的区域中(不能正常使用)。 

4、REGISTRAR-LOCK:注册商锁定。由该域名的原始注册商设置;该域名不可以被更改或删除;必须由注册商解除此状态才可以更改域名信息;该域名可以续费。该域名包含在(域名根服务器)的区域中(可以正常使用)。 

5、REGISTRAR-HOLD:注册商保留。由该域名的原始注册商设置;该域名不可以被更改或删除;必须由注册商解除此状态才可以更改域名信息;该域名可以续费。该域名不包括在(域名根服务器)的区域中(不能正常使用)。 

6、REDEMPTIONPERIOD:宽限期。当注册商向注册局提出删除域名请求后,由注册局将域名设置称此状态,不过,条件是该域名已经注册了5天以上(如果该域名注册时间不足5天,则立即删除);该域名不包括在(域名根服务器)的区域中(不能正常使用);该域名不可以被更改或清除,只可以被恢复;任何其他注册商提出对此域名的更改或其他请求都将被拒绝;该状态最多保持30天。 

7、PENDINGRESTORE:恢复未决。当注册商提出将处于REDEMPTIONPERIOD的域名恢复请求后,由注册局设置;该域名包含在(域名根服务器)的区域中(可以正常使用);注册商提出的更改或任何其他请求都将被拒绝;在7天之内,有注册商向注册局提供必需的恢复文件,如果注册商在7天之内提供了这些文件,该域名将被置为ACTIVE状态,否则,该域名将重新返回到REDEMPTIONPERIOD状态。 

8、PENDINGDELETE:删除未决。如果一个域名在被设置成REDEMPTIONPERIOD状态期间内,注册商没有提出恢复请求,那么,域名将被置于PENDINGDELETE状态,注册商对此域名的任何请求都将被拒绝;5天之后清除。

2006年2月8日 0 评论 321 阅读
加载更多

热门

  • 无线餐饮点菜系统–去年的毕业设计

    2008年9月21日 36 评论 1.7k 阅读
  • Magento设置Paypal支付步骤

    2011年5月29日 1 评论 974 阅读
  • 垃圾

    2017年3月12日 0 评论 823 阅读
  • 记录

    2007年10月6日 0 评论 811 阅读
  • 办公室的两只猫

    2017年12月19日 0 评论 808 阅读

最新

  • 今天来了公司

    2023年1月27日 0 评论 8 阅读
  • 我觉得留在这个世界上,真没有意思

    2023年1月26日 0 评论 11 阅读
  • 世界还有好多美好的事,伯伯却看不到了

    2023年1月22日 0 评论 31 阅读
  • 我好想死

    2023年1月20日 0 评论 20 阅读
  • 对不起

    2023年1月20日 0 评论 23 阅读

分类

  • 图片 (71)
  • 外贸 (6)
  • 大学 (103)
  • 技术 (75)
  • 杂志 (290)
  • 电影 (13)
  • 资源 (1)
  • 随语 (61)
  • 音乐 (96)
  • 饮食 (3)

归档

  • 2023年1月 (27)
  • 2021年8月 (2)
  • 2021年1月 (1)
  • 2020年3月 (1)
  • 2019年3月 (1)
  • 2017年12月 (2)
  • 2017年3月 (2)
  • 2011年10月 (3)
  • 2011年8月 (1)
  • 2011年7月 (1)
  • 2011年5月 (1)
  • 2011年4月 (1)
  • 2011年1月 (2)
  • 2010年12月 (1)
  • 2010年9月 (2)
  • 2010年8月 (5)
  • 2010年7月 (1)
  • 2010年6月 (1)
  • 2010年5月 (2)
  • 2010年4月 (3)
  • 2010年2月 (4)
  • 2010年1月 (9)
  • 2009年12月 (3)
  • 2009年11月 (3)
  • 2009年9月 (11)
  • 2009年8月 (6)
  • 2009年7月 (1)
  • 2009年6月 (2)
  • 2009年5月 (7)
  • 2009年4月 (13)
  • 2009年3月 (14)
  • 2009年2月 (2)
  • 2009年1月 (12)
  • 2008年12月 (19)
  • 2008年11月 (1)
  • 2008年10月 (9)
  • 2008年9月 (12)
  • 2008年8月 (5)
  • 2008年7月 (7)
  • 2008年6月 (13)
  • 2008年5月 (4)
  • 2008年4月 (10)
  • 2008年3月 (7)
  • 2008年2月 (7)
  • 2008年1月 (11)
  • 2007年12月 (4)
  • 2007年11月 (8)
  • 2007年10月 (30)
  • 2007年9月 (25)
  • 2007年8月 (29)
  • 2007年7月 (32)
  • 2007年6月 (2)
  • 2007年4月 (1)
  • 2007年3月 (2)
  • 2007年2月 (5)
  • 2007年1月 (7)
  • 2006年12月 (11)
  • 2006年11月 (24)
  • 2006年10月 (13)
  • 2006年9月 (16)
  • 2006年8月 (21)
  • 2006年7月 (18)
  • 2006年6月 (9)
  • 2006年5月 (27)
  • 2006年4月 (44)
  • 2006年3月 (21)
  • 2006年2月 (9)
  • 2006年1月 (6)
  • 2005年12月 (12)
  • 2005年11月 (17)
  • 2005年10月 (44)
  • 2005年9月 (12)

标签

asp错误 (1) cache (1) django (1) joomla (8) joomla extension (3) magento (2) magento connect (1) Magento Email Templates (1) pink (1) Plone (1) python (3) QTP (1) sef (2) so what (1) stop 0x0000007b (1) Sugar In The Marmalade (1) vbs (1) virtuemart (3) Virtuemart Menu (1) Zope (1) 专升本 (4) 周慧敏 (2) 喜爱 (1) 国庆 (1) 域名注册,域名 (1) 学生处 (6) 我爱谁 (1) 我的大学 (6) 我的大学编年史 (6) 拉肚子 (1) 樊海军 (6) 物理学系 (6) 物理系 (4) 电子信息工程 (4) 简单电话薄 (1) 聚会 (1) 肇庆 (4) 肇庆学院 (6) 计算机系 (4) 谭咏麟 (3) 软件测试 (4) 邓奎元,蔡金生,喝酒 (1) 酸 (1) 黎明 (2) 黎明 对不起 (1)
  • 首页
  • 分类
    • 随语
    • 杂志
    • 外贸
    • 技术
    • 图片
    • 电影
    • 音乐
    • 饮食
    • 大学
  • 关于

@2005-2023 - 白菜粉条汤

白菜粉条汤
  • 随语
  • 杂志
  • 资源
  • 外贸
  • 技术
  • 图片
  • 电影
  • 音乐
  • 饮食
  • 大学
登入

保持登录状态,直到我退出

忘记密码了吗?

找回密码

新密码将通过电子邮件发送给您。

收到新密码了吗? Login here