ivrpathfrm.pas

来自「一个电力企业的后台管理程序」· PAS 代码 · 共 75 行

unit IvrPathFrm;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, ExtCtrls, Buttons;

type
  TFrm_IvrPath = class(TForm)
    Panel1: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    BbOk: TBitBtn;
    Memo1: TMemo;
    LbAutoServerName: TLabel;
    LbAutoPath: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    LbOrdinaryServerName: TLabel;
    LbOrdinaryPath: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    procedure FormCreate(Sender: TObject);
    procedure BbOkClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Frm_IvrPath: TFrm_IvrPath;

implementation
uses SystemPH, SystemDM;
{$R *.DFM}

//uses systemDM;

procedure TFrm_IvrPath.FormCreate(Sender: TObject);
begin
  with sysDM.Qr_Temp do
    begin
      Close;
      Sql.Clear;
      Sql.Add('select * from ivrparam where paraname=:Vhost or paraname=:Vpath order by hostname');
      ParamByName('vhost').AsString:='NET-1';
      ParamByName('vpath').AsString:='NET-2';
      Open;
      First;
      LbAutoServerName.Caption:=FieldByName('Hostname').AsString;
      LbAutoPath.Caption:=FieldByName('paraval').AsString;
      Next;
      LbOrdinaryServerName.Caption:=FieldByName('Hostname').AsString;
      LbOrdinaryPath.Caption:=FieldByName('paraval').AsString;
    end;
end;

procedure TFrm_IvrPath.BbOkClick(Sender: TObject);
begin
  Close;
  //WebIsHide(0);
end;

procedure TFrm_IvrPath.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  Action:=cafree;
  Frm_IvrPath:=nil;
end;

end.