地震局office自动化软件技术要点分析(2)

原创 2004年08月19日 12:37:00

1:把数据中表做成word的表格

delphi代码如下:

procedure TForm1.bbtn1Click(Sender: TObject);
var
  WordApp,WordDoc,WordTable:OleVariant;
  i,j:integer;
begin
  ADOQuery1.Open;
  WordApp:= CreateOleObject('Word.Application');
  WordApp.Visible:= True;
  WordDoc:=WordApp.Documents.Add;
  WordTable:=WordDoc.Tables.Add(WordApp.Selection.Range,
                                ADOQuery1.RecordCount + 1,
                                ADOQuery1.FieldCount);

  for i:=1 to ADOQuery1.FieldCount do
  begin
    WordTable.Cell(1,i).Range.InsertAfter(ADOQuery1.Fields[i-1].FieldName);
  end;
 
  i:=2;
  with ADOQuery1 do
    while not eof do
    begin
       for j:=1 to ADOQuery1.Fields.Count do
       begin
        WordTable.Cell(i,j).Range.InsertAfter(ADOQuery1.Fields[j-1].Asstring);
       end;
       Next;
       Inc(i);
    end;
end;

 

其中,  ADOQuery1.Open;得sql语句为'Select * from 1_WZ'

运行如下图:

---to be continued by 小榕(Littleroy)

 

Python-协程office自动化

-
  • 1970年01月01日 08:00

地震局office自动化软件技术要点分析(1)

1:将模板字符常量存在数据库中,形成链表结构,需要时再从数据库中读取,如下图:用数组模拟链表,然后由程序进行读取,Delphi代码如下:procedure TForm1.Button1Click(Se...
  • littleroy
  • littleroy
  • 2004-08-18 21:53:00
  • 1366

地震局半期实习工作总结

 2007年1月开始,就已经在往四川省地震局开始接触工作的内容了。研一上学期的期末考试一结束,我们就马上全心投入到局里面的国家“十五”测震软件系统的开发。昨天,地震局的局长,处长等领导们,对我们的软件...
  • tangl_99
  • tangl_99
  • 2007-03-09 11:14:00
  • 3118

自动化代码分析的过去、现状和将来

注:本译文最早发表在《51测试天地》 电子杂志原文:From Primitive to Prominent: The Past, Present, and Future of Automated Co...
  • Testing_is_believing
  • Testing_is_believing
  • 2008-01-27 20:34:00
  • 3861

Office自动化

摘要   只为方便平时工作,干点有价值含量的事,重复的让计算机去做。office自动化选择,一些资料。 一、技术选型 日常生活工作中,对数据(信息)处理经常用到oiifce套件,除去套件初始功能...
  • u012712186
  • u012712186
  • 2016-11-22 16:17:31
  • 1026

Office 自动化---准备

Office 自动化---准备 引言 笔者在使用C++编写Word和Excel导出报告的时候,由于网上相应的资料很少,所以走了许多弯路。在自己探索尝试了之后,积累一些开发的经验,写成这个系列的博文...
  • Stan1989
  • Stan1989
  • 2013-05-02 22:56:10
  • 1016

参观地震局

昨天晚上,台湾发生7.2级地震,整个广东都有震感。不知道死人没有,但是经济损失肯定很大,早上起来连MSN都上不了了,据说是通往美国的海底电缆都挣断了,也不知道是不是真的。   不知道这是不是巧合,今天...
  • tangl_99
  • tangl_99
  • 2007-01-05 11:14:00
  • 2127

Python与Microsoft Office自动化操作

http://www.cnblogs.com/Jedimaster/archive/2007/02/28/660209.html  朋友的家人做生意,每日从各地分店处收集报表,然后回去汇总。由于不想用...
  • liuyukuan
  • liuyukuan
  • 2010-04-13 23:47:00
  • 1554

《代码虚拟与自动化分析》1-3章笔记

第1章 代码虚拟化原理 第2章 模拟虚拟化 第3章 自动化分析原理
  • dalerkd
  • dalerkd
  • 2017-12-20 17:56:06
  • 248

VC++之Office自动化开发

去年底老板临时交给一个任务,为一个试验数据管理系统编写一个电子报告生成程序。因为老板也不怎么重视这个项目(钱少啊,呵呵),所以这个任务只好落在我这种小硕身上了。我也是两眼瞎,万事从头干。三个月的苦斗,...
  • Augusdi
  • Augusdi
  • 2013-10-24 15:01:39
  • 4695
收藏助手
不良信息举报
您举报文章:地震局office自动化软件技术要点分析(2)
举报原因:
原因补充:

(最多只允许输入30个字)