ecgchoice.pas

来自「简易的患者监护系统」· PAS 代码 · 共 57 行

unit ECGchoice;

interface

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

type
  TForm3 = class(TForm)
    Button1: TButton;
    Label1: TLabel;
    ComboBox1: TComboBox;
    Label2: TLabel;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form3: TForm3;

implementation

uses KittyHawkPMS;

{$R *.dfm}

procedure TForm3.Button1Click(Sender: TObject);
begin
flagheart:=combobox1.Text;
Form1.ComboBox1.Text:=combobox1.Text;
if((combobox1.Text='1号床')and(Form1.BitBtn1.Caption='监护中...'))
   or((combobox1.Text='2号床')and(Form1.bitbtn2.Caption='监护中...'))
   or((combobox1.Text='3号床')and(Form1.bitbtn3.Caption='监护中...'))
   or((combobox1.Text='4号床')and(Form1.bitbtn4.Caption='监护中...'))
   then
   begin
   LiuP:=EGCP;
   Form1.Timer6.Enabled:=true;
   Form1.Statusbar1.Panels[2].Text:='当前心电监测床号: '+ComboBox1.Text;
   end
   else
   begin
   Form1.Statusbar1.Panels[2].Text:='当前心电监测床号: 未工作';
   Form1.Timer6.Enabled:=false;
   Form1.Series1.Clear;
   end;

//Form1.Statusbar1.Panels[2].Text:='当前心电监测床号: '+ComboBox1.Text;
Form3.Close;
end;

end.