testinsub.pas

以可视的方式画IVR语音导航的流程,并把流程做为源文件保存起来

unit TestInSub;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ComCtrls, Db, ADODB, StdCtrls, Buttons;

type
  TFrm_TestInSub = class(TForm)
    TreeView1: TTreeView;
    BitBtn1: TBitBtn;
    ADOQuery1: TADOQuery;
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Frm_TestInSub: TFrm_TestInSub;

implementation

{$R *.DFM}

procedure TFrm_TestInSub.BitBtn1Click(Sender: TObject);
begin
  with ADOQuery1 do
   begin
        Close();
        Open();
      while not Eof do
       begin
            TreeView1.Items.AddChild(nil,FieldByName('Function').AsString);


        Next();
       end;
   end;

end;

end.