pfm_clientset.pas

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

unit pfm_clientset;

interface

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

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

var
  fm_clientset: Tfm_clientset;

implementation

{$R *.DFM}

procedure Tfm_clientset.BitBtn1Click(Sender: TObject);
begin
    if edit2.Text='' then
    begin
        showmessage('请填写拨号电话');
        exit;
    end;
    if cobbox1.Text='' then
    begin
        showmessage('请选择MODEM的串口');
        exit;
    end;
    if length(edit1.Text)<>4 then
    begin
        showmessage('分店通讯标识为四个字符，与服务器上的一致');
        exit;
    end;
    if not fileexists(edit4.Text+'ini\frontadmin.ini') then
    begin
        showmessage('分店的数据路径设置不对，请重新设置');
        exit;
    end;
    modalresult:=MROK;
end;

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

end.