小榕^_^(Littleroy)的专栏

发表是最好的回忆!, 点点滴滴,集少成多!

地震局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;

效果显示如下:

 

阅读更多
想对作者说点什么? 我来说一句

没有更多推荐了,返回首页

加入CSDN,享受更精准的内容推荐,与500万程序员共同成长!
关闭
关闭