managermain.pas

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

unit managerMain;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ComCtrls, XPMenu, CLAbout, Db, Grids, DBGrids, ADODB, ExtCtrls, DBCtrls,
  Buttons, CLDBNavigator;

type
  Tmain = class(TForm)
    PageControl1: TPageControl;
    TabType: TTabSheet;
    Table: TADOTable;
    ds: TDataSource;
    CLAbout1: TCLAbout;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    TabContent: TTabSheet;
    TabProperty: TTabSheet;
    TabEvent: TTabSheet;
    TabDefine: TTabSheet;
    TabVar: TTabSheet;
    DBGrid1: TDBGrid;
    DBGrid2: TDBGrid;
    DBGrid3: TDBGrid;
    DBGrid4: TDBGrid;
    DBGrid5: TDBGrid;
    DBGrid6: TDBGrid;
    CLDBNavigator1: TCLDBNavigator;
    procedure SpeedButton2Click(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure TabTypeShow(Sender: TObject);
    procedure TabContentShow(Sender: TObject);
    procedure TabPropertyShow(Sender: TObject);
    procedure TabEventShow(Sender: TObject);
    procedure TabDefineShow(Sender: TObject);
    procedure TabVarShow(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure DBGrid2TitleClick(Column: TColumn);
    procedure TableAfterClose(DataSet: TDataSet);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  main: Tmain;

implementation

{$R *.DFM}

procedure Tmain.SpeedButton2Click(Sender: TObject);
begin
    CLAbout1.ShowAboutForm();
end;

procedure Tmain.SpeedButton1Click(Sender: TObject);
begin
    Close();
end;

procedure Tmain.FormShow(Sender: TObject);
begin
    TabType.Show();
end;

procedure Tmain.TabTypeShow(Sender: TObject);
begin
    if Table.Active then
        Table.Close();
    Table.TableName := 'iType';
    Table.Open();
end;

procedure Tmain.TabContentShow(Sender: TObject);
begin
    if Table.Active then
        Table.Close();
    Table.TableName := 'iContent';
    Table.Open();
end;

procedure Tmain.TabPropertyShow(Sender: TObject);
begin
    if Table.Active then
        Table.Close();
    Table.TableName := 'Property';
    Table.Open();
end;

procedure Tmain.TabEventShow(Sender: TObject);
begin
    if Table.Active then
        Table.Close();
    Table.TableName := 'Event';
    Table.Open();
end;

procedure Tmain.TabDefineShow(Sender: TObject);
begin
    if Table.Active then
        Table.Close();
    Table.TableName := 'Define';
    Table.Open();
end;

procedure Tmain.TabVarShow(Sender: TObject);
begin
    if Table.Active then
        Table.Close();
    Table.TableName := 'Var';
    Table.Open();
end;

procedure Tmain.FormCreate(Sender: TObject);
begin
    Caption := Application.Title;
    Table.ConnectionString := 'Driver={Microsoft Access Driver (*.mdb)};dbq=' +
        ExtractFilePath(Application.ExeName) + 'ivr.dat;uid=admin;pwd=ivr;';
end;

procedure Tmain.DBGrid2TitleClick(Column: TColumn);
begin
    Table.IndexFieldNames := Column.FieldName;
end;

procedure Tmain.TableAfterClose(DataSet: TDataSet);
begin
    Table.IndexFieldNames := '';
end;

end.