idpaperabalinfo1.pas

来自「使用Delphi 6.0开发用于控制空调的程序」· PAS 代码 · 共 62 行

unit IDPaperAbalInfo;

interface

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

type
  TfrmISPAbal = class(TForm)
    lbl1: TLabel;
    lbl2: TLabel;
    lbl3: TLabel;
    lbl4: TLabel;
    lbl5: TLabel;
    lbl6: TLabel;
    lbl7: TLabel;
    lbl8: TLabel;
    lbl9: TLabel;
    lbl10: TLabel;
    lbl11: TLabel;
    lbl12: TLabel;
    shpRunState: TShape;
    shpFilter: TShape;
    shpHouJie: TShape;
    shpCommAbal: TShape;
    shpAbnormal: TShape;
    shpLine2CommAbal: TShape;
    shpLine1CommAbal: TShape;
    shpLine0CommAbal: TShape;
    shpLine2HJCommAbal: TShape;
    shpLine1HJCommAbal: TShape;
    shpLine0HJCommAbal: TShape;
    btnIDAbalRefresh: TBitBtn;
    procedure btnIDAbalRefreshClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmISPAbal: TfrmISPAbal;

implementation

{$R *.dfm}

procedure Abnormalrefresh;
begin
  //if
end;  
procedure TfrmISPAbal.btnIDAbalRefreshClick(Sender: TObject);
var
  strTemp :string;
begin
   strTemp := #02 + '410' + '0810' +#03;
   strTemp := strTemp ;
end;

end.