登录
首页 » Delphi源码 » Delphi 将TDBGrid导入到Excel表中附数据库

Delphi 将TDBGrid导入到Excel表中附数据库

于 2022-06-29 发布 文件大小:90.02 kB
0 212
下载积分: 2 下载次数: 1

代码说明:

Delphi7.0将TDBGrid导入到Excel表中,测试程序先连接好SQLSERVER数据库,并将数据读取到TDBGrid中,然后再将数据从TDBGrid导入到Excel表中,为了测试方便,SQLSERVER数据库文件已经附在源码包中。以下代码片断会有参考意义,完整源码请下载:   //将TDBGrid表中的标题插入到Excel表中的首行   for I:=0 to DbName.Columns.Count-1 do   begin    if DbName.Columns[i].Visible=False then    Continue;    Page.Cells[j,i+1] := DbName.Columns[i].Title.Caption;    Page.Cells[j,i+1].Font.Bold := True; //设置字体为粗体   end;   Inc(j); //Excel表中的下一行   First; //将指针返回到TDBGrid表中数据的首行   while not Eof do   begin    for i:=0 to DbName.Columns.Count-1 do    begin    if DbName.Columns[i].Visible=False then    Continue;    //将指定行中每列的数据,添加到Excel表中    Page.Cells[j,i+1] := trim(DbName.DataSource.DataSet.Fieldbyname(DbName.Columns[i].FieldName).asstring);    end;    Inc(j); //Excel表中的下一行    Next; //TDBGrid表中的下一条记录   end;

下载说明:请别用迅雷下载,失败请重下,重下不扣分!

发表评论

0 个回复

  • Delphi获取电脑CPU硬件型号名称
    Delphi获取电脑CPU硬件型号名称,这个可能不准确,我是64位 I5 3470 CPU,获取出来的是统称,不是太准确,可能是我系统的问题。不过这个代码是前几年书中的代码,现在的硬件发展快,也有可能是代码的问题,运行效果如下。   本获取CPU名称是根据注册表的方法获取的。
    2022-07-06 23:12:47下载
    积分:1
  • Delphi 获取服务器时间 更新本机时间
    Delphi 通过时间服务器更新时间,包括了两个功能:1、获取服务器时间,2、更新本机时间。通过时间服务器,可一键自动更新日期时间,不过本实例连接的服务器已经失效了,程序不能连接,会假死,测试时候要注意。
    2022-01-24 08:49:50下载
    积分:1
  • Delphi 图片颜色逐渐加深功能的实现
    Delphi演示如何将一张图片的颜色加深,类似于调整对比度,不过本效果不加入了渐变加深的动画效果,按住按钮图片一直变暗下去,要知空间,你可看下以下代码:   Bitmap:=image1.Picture.Bitmap;   image1.Height:= Bitmap.Height;   image1.Width:= Bitmap.Width;   for i:=0 to 255 do   begin    sleep(10);    for y:=0 to Bitmap.Height-1 do    begin    pixcolo:=Bitmap.Scanline[y]; //扫描每行像素颜色    for x:=0 to ((Bitmap.Width*3)-1) do    //递减颜色值,不同的递减值可改变不同的速度    if pixcolo[x]>0 then pixcolo[x]:=(pixcolo[x]-1);    end;    Image1.Canvas.Draw(0,0,Bitmap);    Application.ProcessMessages; //让Application去处理消息队伍中的消息   end;
    2022-03-23 16:34:19下载
    积分:1
  • Delphi TreeView来显示数据库信息
    Delphi 使用TreeView来显示数据库信息,从数据库中读取数据,然后生成树形交叉节点的菜单,这种菜单通俗的叫做“树形菜单”,也是大家平时比较常见的菜单形式之一。   function TreeAddItem(Sender: TTreeView;ItemList: TStrings;BookMark: TBookMark;Resort: Boolean):TTreeNode;   var    ThisNode,Node: TTreeNode;    i: integer;   begin    Node := Nil;    for i := 0 to ItemList.Count-1 do    begin    ThisNode := TreeFindItem(Sender,Node,ItemList[i]);    if(ThisNodeNil) then Node := ThisNode    else begin    if I   then begin    if I=0 then Node := Sender.items.Add(Node, Itemlist[i])    else Node := Sender.items.AddChild(Node, Itemlist[i]);    end    else begin    if I=0 then Node := Sender.items.AddObject(Node, Itemlist[i],Bookmark)    else Node := Sender.items.AddChildObject(Node, Itemlist[i],Bookmark);    end;    Node.stateIndex := Node.level + 1;    if Resort and (Node.parent nil) then Node.parent.alphasort;    end;    end;    Result := Node;   end;
    2022-02-02 14:05:08下载
    积分:1
  • Delphi 计算正负数绝对值
    Delphi 返回指定数值的绝对值,计算正负数绝对值的例子,FloatToStr(Abs)函数用法代码,示例中计算了小数、整数两种数据类型的绝对值,单击对应的箭头,即可查看计算结果,对应的三种计算方法,请参见以下代码:   procedure TForm1.SpeedButton1Click(Sender: TObject);   begin    Edit2.Text := FloatToStr(Abs(-1.5));   end;   procedure TForm1.SpeedButton2Click(Sender: TObject);   begin    Edit4.Text := FloatToStr(Abs(-200));   end;   procedure TForm1.SpeedButton3Click(Sender: TObject);   begin    Edit6.Text := FloatToStr(Abs(-1.80));   end;
    2022-06-13 12:40:35下载
    积分:1
  • Delphi 将数字转换成字符串
    Delphi 将数字转换成字符串,请参见以下的转换代码,转换成功后将以 showmessage的形式返回结果,核心转换功能代码实现:   procedure TForm1.Button1Click(Sender: TObject);   var    i:integer;    s:string;   begin    i:=1234567;    s:=inttostr(i);    showmessage(s);   end;
    2022-09-05 21:20:03下载
    积分:1
  • Delphi 实现图像热点功能
    Delphi 实现图像热点功能,实现一张图片上不同形状区域的热点,定义椭圆形、四边形、三角形的区域变量的热点,相关代码如下:   var    thepoint:array [1..8] of tpoint;//存储多边形顶点坐标    count:integer;    pointnum:array [1..2] of integer;   begin   //四边形顶点坐标,首末点封闭    thepoint[1]:=point(135,99);    thepoint[2]:=point(105,183);    thepoint[3]:=point(129,201);    thepoint[4]:=point(188,92);    thepoint[5]:=point(135,99);    count:=5;//四边形顶点数目,首末点为一点    fourE_rgn:=CreatePolygonRgn(thepoint,count,WINDING);//生成四边形区域    elli_rgn:=CreateEllipticRgn(64,221,231,263);// 生成椭圆形区域    //第一个三角形顶点坐标    thepoint[1]:=point(118,67);    thepoint[2]:=point(32,28);    thepoint[3]:=point(17,90);    thepoint[4]:=point(118,67);    //第二个三角形顶点坐标    thepoint[5]:=point(155,44);    thepoint[6]:=point(202,91);    thepoint[7]:=point(277,44);    thepoint[8]:=point(155,44);    pointnum[1]:=4;//第一个三角形顶点数目    pointnum[2]:=4;//第二个三角形顶点数目    count:=2;//三角形数目   //生成由两个三角形构成的三角形区域   tri_rgn:=CreatePolyPolygonRgn(thepoint,pointnum,count,WINDING);   end;
    2022-01-26 08:02:50下载
    积分:1
  • Delphi 不使用标题栏移动窗体
    Delphi 不使用标题栏移动窗体,意思是说,平时大家拖动Windows窗口的时候,都是鼠标放在窗口的标题栏上,按住鼠标左键拖动窗体,但本源码实现的功能是,不以标题栏为操作目标,那是怎么实现的窗口拖动呢?请下载参见本源码。
    2022-10-18 04:15:03下载
    积分:1
  • delphi开发的谷歌翻译工具内含
    delphi开发的谷歌翻译工具,使用该工具可以不用打开浏览器,然后输入谷歌翻译地址才能进行翻译工作, 而这个工具可以快速打开并直接在文本框中输入你要翻译的文本内容即可翻译了。 同时,你拿到此源码还可以进行二次开发,以满足你更多需要和想象。
    2022-01-25 22:56:02下载
    积分:1
  • 指纹开发
    中控指纹delphi开发实例,完成了指纹采集,数据库指纹模块保存和比对 (In the control fingerprint the delphi developers instances, complete fingerprint acquisition, the database fingerprint module save and comparison)
    2022-10-15 02:05:03下载
    积分:1
  • 696516资源总数
  • 106914会员总数
  • 0今日下载