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

1：将模板字符常量存在数据库中，形成链表结构，需要时再从数据库中读取，如下图：

用数组模拟链表，然后由程序进行读取，Delphi代码如下：

procedure TForm1.Button1Click(Sender: TObject);
var sql: string;
var str2: string;
begin
  RichEdit1.Clear;
  Mem1.Clear;
  ADOQuery1.Close;
  ADOQuery1.SQL.Clear;
  ADOQuery1.SQL.Add('Select * from 1_WZ Where id = 1');
  ADOQuery1.Open;
  while not ADOQuery1.IsEmpty do
  begin
    if ADOQuery1.FieldByName('NL').AsBoolean = true then
    begin
    str2:= str2 + #13;
    end;

    str2:= str2 + ADOQuery1.FieldByName('WText').AsString;
    sql:= ADOQuery1.FieldByName('WNext').AsString;
   
    if sql = '' then Break;
    sql:= 'Select * from 1_WZ where id = ' + sql;
    ADOQuery1.Close;
    ADOQuery1.SQL.Clear;
    ADOQuery1.SQL.Add(sql);
    ADOQuery1.Open;
  end;
  Mem1.Lines.Add(str2);
  RichEdit1.Clear;
  RichEdit1.Lines.Add(str2);
end;

效果显示如下：