博客园-王宏健的专栏 ---- 健康快乐-最新评论http://www.cnblogs.com/LuckyJan/CommentsRSS.aspxzh-cnSun, 04 Feb 2007 14:14:45 GMTSun, 04 Feb 2007 14:14:45 GMTcnblogsre: 今天注册了自己的博客。可是如果要在我公司的网站上也建立这样的博客管理，怎么办呢？http://www.cnblogs.com/LuckyJan/archive/2009/06/12/38888.html#1556203小孔雀小孔雀Fri, 12 Jun 2009 12:29:28 GMThttp://www.cnblogs.com/LuckyJan/archive/2009/06/12/38888.html#1556203dudu: 下载博客园的程序, 安装配置一下就行了。
--------------------------------------------------------


小孔雀 2009-06-12 20:29 发表评论
]]>re: Delphi中使用Flash：参数消息传递、屏蔽或自定义右键菜单、背景透明http://www.cnblogs.com/LuckyJan/archive/2009/05/14/153765.html#1527962uiuiThu, 14 May 2009 07:24:09 GMThttp://www.cnblogs.com/LuckyJan/archive/2009/05/14/153765.html#1527962
ui 2009-05-14 15:24 发表评论
]]>re: 今天注册了自己的博客。可是如果要在我公司的网站上也建立这样的博客管理，怎么办呢？http://www.cnblogs.com/LuckyJan/archive/2009/04/10/38888.html#1500136陈烨烨陈烨烨Fri, 10 Apr 2009 11:09:27 GMThttp://www.cnblogs.com/LuckyJan/archive/2009/04/10/38888.html#1500136
陈烨烨 2009-04-10 19:09 发表评论
]]>re: Delphi中使用Flash：参数消息传递、屏蔽或自定义右键菜单、背景透明http://www.cnblogs.com/LuckyJan/archive/2008/10/30/153765.html#1356451UPUPThu, 30 Oct 2008 08:59:43 GMThttp://www.cnblogs.com/LuckyJan/archive/2008/10/30/153765.html#1356451
UP 2008-10-30 16:59 发表评论
]]>re: delphi中数据导出到Excel的问题！http://www.cnblogs.com/LuckyJan/archive/2008/09/19/144813.html#1321614hunqiu 131936hunqiu 131936Fri, 19 Sep 2008 07:42:38 GMThttp://www.cnblogs.com/LuckyJan/archive/2008/09/19/144813.html#1321614
hunqiu 131936 2008-09-19 15:42 发表评论
]]>re: 梦一样的眼神[未登录]http://www.cnblogs.com/LuckyJan/archive/2007/08/20/333892.html#862534judyjudyMon, 20 Aug 2007 04:16:00 GMThttp://www.cnblogs.com/LuckyJan/archive/2007/08/20/333892.html#862534
judy 2007-08-20 12:16 发表评论
]]>re: delphi中数据导出到Excel的问题！http://www.cnblogs.com/LuckyJan/archive/2007/01/11/144813.html#617982aaa[匿名]aaa[匿名]Thu, 11 Jan 2007 09:52:00 GMThttp://www.cnblogs.com/LuckyJan/archive/2007/01/11/144813.html#617982var
ExcelApp:Variant;
i,j,x:Integer;
begin
ExcelApp:=CreateOleObject('Excel.Application');
ExcelApp.Visible:=True;
//ExcelApp.Caption:=Caption;
ExcelApp.WorkBooks.Add;
i:=zg_dbview.FieldCount;
for j:=0 to zg_dbview.FieldCount-1 do
begin
ExcelApp.Cells[1,j+1].Value:= trim(zg_dbview.Columns.Items[j].Title.Caption);
end;
zg_dbview.DataSource.DataSet.First;
x:=2;
while not zg_dbview.DataSource.DataSet.Eof do
begin
for j:=0 to zg_dbview.FieldCount-1 do
begin
ExcelApp.Cells[x,j+1].NumberFormatLocal:='@'; <----------------设置单元格属性为“文本”
ExcelApp.Cells[x,j+1]:=Trim(zg_dbview.Columns.Items[j].Field.AsString);
end;
x:=x+1;
zg_dbview.DataSource.DataSet.Next;
end;
ExcelApp.ActiveWorkbook.SaveAs(zg_filename.Text); <-------------导出的数据存为对应路径的文件
ExcelApp.Quit;
ShowMessage('导出已成功：请检查文件'+zg_filename.Text);
end;




aaa[匿名] 2007-01-11 17:52 发表评论
]]>re: 今天注册了自己的博客。可是如果要在我公司的网站上也建立这样的博客管理，怎么办呢？http://www.cnblogs.com/LuckyJan/archive/2006/11/23/38888.html#570154LANG LANG Thu, 23 Nov 2006 10:33:00 GMThttp://www.cnblogs.com/LuckyJan/archive/2006/11/23/38888.html#570154

LANG 2006-11-23 18:33 发表评论
]]>re: 今天注册了自己的博客。可是如果要在我公司的网站上也建立这样的博客管理，怎么办呢？http://www.cnblogs.com/LuckyJan/archive/2006/11/23/38888.html#570153LANG LANG Thu, 23 Nov 2006 10:33:00 GMThttp://www.cnblogs.com/LuckyJan/archive/2006/11/23/38888.html#570153
LANG 2006-11-23 18:33 发表评论
]]>WO DE AI http://www.cnblogs.com/LuckyJan/archive/2006/11/23/38888.html#570152LANG LANG Thu, 23 Nov 2006 10:33:00 GMThttp://www.cnblogs.com/LuckyJan/archive/2006/11/23/38888.html#570152
LANG 2006-11-23 18:33 发表评论
]]>