monitormodel.~pas

简易的患者监护系统

unit monitormodel;

interface

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

type
  TForm26 = class(TForm)
    Panel1: TPanel;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    ComboBox1: TComboBox;
    ComboBox2: TComboBox;
    Image1: TImage;
    Label2: TLabel;
    procedure FormCreate(Sender: TObject);
    procedure Edit1Change(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form26: TForm26;

implementation

uses KittyHawkPMS;

{$R *.dfm}

procedure TForm26.FormCreate(Sender: TObject);
begin
BitBtn2.Enabled:=false;
end;

procedure TForm26.Edit1Change(Sender: TObject);
begin
BitBtn1.Enabled:=true;
end;

procedure TForm26.BitBtn1Click(Sender: TObject);
begin
BitBtn1.Enabled:=false;
BitBtn2.Enabled:=true;
end;

procedure TForm26.BitBtn2Click(Sender: TObject);
var u:integer;
begin
BitBtn1.Enabled:=true;
u:=1000;
//if (Form1.Statusbar1.Panels[3].Text<>'监护模式：流动监护') then
begin
Form1.Timer8.Enabled:=false;
Form1.Button5.Enabled:=false;
Form1.Timer2.Enabled:=false;
Form1.Timer3.Enabled:=false;
Form1.Timer4.Enabled:=false;
Form1.Timer5.Enabled:=false;
Form1.ComboBox1.Enabled:=true;

Form1.Statusbar1.Panels[3].Text:='监护模式：流动监护';
Form1.ADOquery5.Active:=true;
with Form1.ADOquery5 do
begin
close;
sql.Clear;
sql.Add('select MIN(病房号) as roommin,MAX(病房号) as roommax from 患者监护信息');
open;
If not (Form1.ADOquery5.IsEmpty) then
begin
roommin:=Form1.ADOquery5.FieldValues['roommin'];
roommax:=Form1.ADOquery5.FieldValues['roommax'];
end
else
begin
showmessage('No record!');
end;
end;
roomindex:=roommin;

Form1.ADOquery5.Active:=false;
if Form26.ComboBox1.Text='秒' then
begin;
 u:=1000;
end
else if Form26.ComboBox1.Text='分钟' then
begin
u:=60*1000;
end
else
begin
showmessage('单位有误！');
end;
Form1.Timer8.Interval:=strtoint(Form26.ComboBox2.Text)*u;
Form1.Timer8.Enabled:=true;

//读数据与timer8代码重复

Form1.Timer2.Enabled:=false;
Form1.Timer3.Enabled:=false;
Form1.Timer4.Enabled:=false;
Form1.Timer5.Enabled:=false;
Form1.Timer6.Enabled:=false;
fexist:=0;
while fexist=0 do//找病房
begin

with Form1.ADOQuery2 do
begin
Close;
Sql.Clear;
sql.Add('select * from 患者监护信息 where 病房号='+inttostr(roomindex));
sql.Add(' and 患者就诊号>0 and 患者就诊号 is not null');
Open;
fexist:=Form1.ADOQuery2.RecordCount;
roomindex:=roomindex+1;
  if roomindex>roommax+1 then
     roomindex:=roommin;
end;
end;
roomnum:=roomindex-1;
//flagroom:=combobox1.Text;
Form1.StatusBar1.Panels[1].Text:='当前病房号: '+inttostr(roomindex-1)+'号病房';
Form1.StatusBar1.Panels[2].Text:='当前心电监测床号: 未工作';
Form1.Series1.Clear;
//Form1.ComboBox1.Enabled:=false;

Form1.BitBtn1.Caption:='空闲';
Form1.BitBtn2.Caption:='空闲';
Form1.BitBtn3.Caption:='空闲';
Form1.BitBtn4.Caption:='空闲';
form1.Timer2.Enabled:=false;
form1.Timer3.Enabled:=false;
form1.Timer4.Enabled:=false;
form1.Timer5.Enabled:=false;
form1.Timer6.Enabled:=false;
Form1.label11.Visible:=false;
Form1.label12.Visible:=false;
Form1.label13.Visible:=false;
Form1.label14.Visible:=false;
Form1.label23.Visible:=false;
Form1.label24.Visible:=false;
Form1.label25.Visible:=false;
Form1.label26.Visible:=false;
Form1.label31.Visible:=false;
Form1.label32.Visible:=false;
Form1.label33.Visible:=false;
Form1.label34.Visible:=false;
Form1.label39.Visible:=false;
Form1.label40.Visible:=false;
Form1.label41.Visible:=false;
Form1.label42.Visible:=false;
Form1.Image1.Visible:=false;
Form1.Image2.Visible:=false;
Form1.Image3.Visible:=false;
Form1.Image4.Visible:=false;
Form1.Image5.Visible:=false;
Form1.Image6.Visible:=false;
Form1.Image7.Visible:=false;
Form1.Image8.Visible:=false;
Form1.Image9.Visible:=false;
Form1.Image10.Visible:=false;
Form1.Image11.Visible:=false;
Form1.Image12.Visible:=false;
Form1.Image13.Visible:=false;
Form1.Image14.Visible:=false;
Form1.Image15.Visible:=false;
Form1.Image16.Visible:=false;
Form1.Image17.Visible:=false;
Form1.Image18.Visible:=false;
Form1.Image19.Visible:=false;
Form1.Image20.Visible:=false;
Form1.Image21.Visible:=false;
Form1.Image22.Visible:=false;
Form1.Image23.Visible:=false;
Form1.Image24.Visible:=false;
Form1.Image25.Visible:=false;
Form1.Image26.Visible:=false;
Form1.Image27.Visible:=false;
Form1.Image28.Visible:=false;
Form1.Image29.Visible:=false;
Form1.Image30.Visible:=false;
Form1.Image31.Visible:=false;
Form1.Image32.Visible:=false;
Form1.image36.Visible:=false;
Form1.image37.Visible:=true;
Form1.image38.Visible:=false;
Form1.image39.Visible:=true;
Form1.image40.Visible:=false;
Form1.image41.Visible:=true;
Form1.image42.Visible:=false;
Form1.image43.Visible:=true;

Form1.Edit1.Text:='';
Form1.Edit5.Text:='';
Form1.Edit9.Text:='';
Form1.Edit13.Text:='';
Form1.Edit2.Text:='';
Form1.Edit6.Text:='';
Form1.Edit10.Text:='';
Form1.Edit14.Text:='';
Form1.Edit3.Text:='';
Form1.Edit7.Text:='';
Form1.Edit11.Text:='';
Form1.Edit15.Text:='';
Form1.Edit4.Text:='';
Form1.Edit8.Text:='';
Form1.Edit12.Text:='';
Form1.Edit16.Text:='';

with Form1.ADOQuery2 do
begin
Close;
Sql.Clear;
sql.Add('select * from 患者监护信息,患者基本信息 where 病房号='+inttostr(roomindex-1)+' and 床号=1 and 患者监护信息.患者就诊号=患者基本信息.患者就诊号');
Open;
if Form1.ADOQuery2.RecordCount>0 then
begin
Form1.Edit1.Text:=Form1.ADOQuery2.FieldValues['患者监护信息.患者就诊号'];
Form1.Edit5.Text:=Form1.ADOQuery2.FieldValues['患者姓名'];
Form1.Edit9.Text:=Form1.ADOQuery2.FieldValues['患者年龄'];
Form1.Edit13.Text:=Form1.ADOQuery2.FieldValues['症状'];
Form1.Timer2.Enabled:=true;
Form1.bitbtn1.Caption:='监护中...';
Form1.image36.Visible:=true;
Form1.image37.Visible:=false;
if (flagheart='1号床')then
begin
Form1.Timer6.Enabled:=true;   /////////心电图////////////
Form1.Statusbar1.Panels[2].Text:='当前心电监测床号: '+Form1.ComboBox1.Text;
end;
end;

end;

with Form1.ADOQuery2 do
begin
Close;
Sql.Clear;
sql.Add('select * from 患者监护信息,患者基本信息 where 病房号='+inttostr(roomindex-1)+' and 床号=2 and 患者监护信息.患者就诊号=患者基本信息.患者就诊号');
Open;
if Form1.ADOQuery2.RecordCount>0 then
begin
Form1.Edit2.Text:=Form1.ADOQuery2.FieldValues['患者监护信息.患者就诊号'];
Form1.Edit6.Text:=Form1.ADOQuery2.FieldValues['患者姓名'];
Form1.Edit10.Text:=Form1.ADOQuery2.FieldValues['患者年龄'];
Form1.Edit14.Text:=Form1.ADOQuery2.FieldValues['症状'];
Form1.Timer3.Enabled:=true;
Form1.bitbtn2.Caption:='监护中...';
Form1.image38.Visible:=true;
Form1.image39.Visible:=false;
if (flagheart='2号床')then
begin
Form1.Timer6.Enabled:=true;   /////////心电图////////////
Form1.Statusbar1.Panels[2].Text:='当前心电监测床号: '+Form1.ComboBox1.Text;
end;
end;
fexist:=0;
end;

with Form1.ADOQuery2 do
begin
Close;
Sql.Clear;
sql.Add('select * from 患者监护信息,患者基本信息 where 病房号='+inttostr(roomindex-1)+' and 床号=3 and 患者监护信息.患者就诊号=患者基本信息.患者就诊号');
Open;
if Form1.ADOQuery2.RecordCount>0 then
begin
Form1.Edit3.Text:=Form1.ADOQuery2.FieldValues['患者监护信息.患者就诊号'];
Form1.Edit7.Text:=Form1.ADOQuery2.FieldValues['患者姓名'];
Form1.Edit11.Text:=Form1.ADOQuery2.FieldValues['患者年龄'];
Form1.Edit15.Text:=Form1.ADOQuery2.FieldValues['症状'];
Form1.Timer4.Enabled:=true;
Form1.bitbtn3.Caption:='监护中...';
Form1.image40.Visible:=true;
Form1.image41.Visible:=false;
if (flagheart='3号床')then
begin
Form1.Timer6.Enabled:=true;   /////////心电图////////////
Form1.Statusbar1.Panels[2].Text:='当前心电监测床号: '+Form1.ComboBox1.Text;
end;
end;

end;

with Form1.ADOQuery2 do
begin
Close;
Sql.Clear;
sql.Add('select * from 患者监护信息,患者基本信息 where 病房号='+inttostr(roomindex-1)+' and 床号=4 and 患者监护信息.患者就诊号=患者基本信息.患者就诊号');
Open;
if Form1.ADOQuery2.RecordCount>0 then
begin
Form1.Edit4.Text:=Form1.ADOQuery2.FieldValues['患者监护信息.患者就诊号'];
Form1.Edit8.Text:=Form1.ADOQuery2.FieldValues['患者姓名'];
Form1.Edit12.Text:=Form1.ADOQuery2.FieldValues['患者年龄'];
Form1.Edit16.Text:=Form1.ADOQuery2.FieldValues['症状'];
Form1.Timer5.Enabled:=true;
Form1.bitbtn4.Caption:='监护中...';
Form1.image42.Visible:=true;
Form1.image43.Visible:=false;
if (flagheart='4号床')then
begin
Form1.Timer6.Enabled:=true;   /////////心电图////////////
Form1.Statusbar1.Panels[2].Text:='当前心电监测床号: '+Form1.ComboBox1.Text;
end;
end;
end;
//与Timer8代码同

end;
Form1.Button2.Caption:='普通模式';
BitBtn2.Enabled:=false;
Form26.Close;
end;

end.