setup.pas

设备巡检操作系统 本程序是专门为某电厂开发的设备巡检系统

unit Setup;

interface

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

type
  TfrmSetup = class(TForm)
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    Label1: TLabel;
    btnResetDev: TButton;
    btnSetSelI: TButton;
    GroupBox1: TGroupBox;
    cbAutoNxt: TCheckBox;
    cbOKSv: TCheckBox;
    cbBackL: TCheckBox;
    CheckBox1: TCheckBox;
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure btnResetDevClick(Sender: TObject);
    procedure btnSetSelIClick(Sender: TObject);
  private
    { Private declarations }
    cfg: Byte;

  public
    { Public declarations }
  end;

var
  frmSetup: TfrmSetup;

implementation

{$R *.dfm}

uses unmain, xyCom;

procedure TfrmSetup.BitBtn1Click(Sender: TObject);
begin
    btnResetDev.Enabled:=False;
    btnSetSelI.Enabled:=False;
  cfg:= 0;
  if cbBackL.Checked = True then
    cfg:= 1;
  if cbAutoNxt.Checked = True then
    cfg:= cfg or $02;
  if cbOKSv.Checked = True then
    cfg:= cfg or $04;

  djCom.Setup(cfg);
  Close;
end;
procedure TfrmSetup.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Action:=cafree;frmSetup:=nil;
end;
procedure TfrmSetup.BitBtn2Click(Sender: TObject);
begin
  Close; 
end;



procedure TfrmSetup.btnResetDevClick(Sender: TObject);
begin

    btnResetDev.Enabled:=False;
    btnSetSelI.Enabled:=False;
  djCom.ResetDev;

end;

procedure TfrmSetup.btnSetSelIClick(Sender: TObject);
begin
    btnResetDev.Enabled:=False;
    btnSetSelI.Enabled:=False;
  djCom.SetSelIs;

end;

end.