存档

2006年2月 的存档

饭堂看到美女

2006年2月26日 没有评论

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

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

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

分类: 杂志 标签:

Delphi与Word

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月21日 没有评论
分类: 杂志 标签:

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

2006年2月20日 没有评论
分类: 大学 标签:

我的狗,本命年奉献

2006年2月19日 没有评论

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

分类: 杂志 标签:

寒假照片

2006年2月19日 没有评论
分类: 图片 标签:

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

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月17日 没有评论

如题……

分类: 杂志 标签:

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

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天之后清除。

分类: 杂志 标签: