pfm_serverset.pas

< Delphi网络通信协议分析与应用实现>>一书的源代码。

unit pfm_serverset;

interface

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

type
  Tfm_serverset = class(TForm)
    CobBox1: TComboBox;
    Label2: TLabel;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    Label1: TLabel;
    Edit1: TEdit;
    Label5: TLabel;
    Edit4: TEdit;
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  fm_serverset: Tfm_serverset;

implementation

{$R *.DFM}

procedure Tfm_serverset.BitBtn1Click(Sender: TObject);
begin
    if cobbox1.Text='' then
    begin
        showmessage('请选择MODEM的串口');
        exit;
    end;
    if not fileexists(edit4.Text+'ini\admin.ini') then
    begin
        showmessage('总部的数据路径设置不对，请重新设置');
        exit;
    end;
    modalresult:=MROK;
end;

procedure Tfm_serverset.BitBtn2Click(Sender: TObject);
begin
    modalresult:=mrCancel;
end;

end.