kittyhawkpms.pas

简易的患者监护系统

procedure TForm1.Edit4Click(Sender: TObject);
begin
if (Edit4.Text='')then
begin
showmessage('该床位无患者或者未载入患者信息！');
end
else
begin
with form20.ADOQuery1 do
begin
close;
sql.Clear;
sql.Add('select 医生姓名,医生电话,医生办公室,医生科室 from 医生信息,患者监护信息');
sql.Add(' where 医生信息.主治医生号=患者监护信息.主治医生号');
sql.Add(' and 患者就诊号='+Edit4.Text);
open;
if Form20.ADOQuery1.IsEmpty then
begin
showmessage('警告：医生信息有误！');
end
else
begin
Form20.Edit1.Text:=Form20.ADOQuery1.FieldValues['医生姓名'];
Form20.Edit2.Text:=Form20.ADOQuery1.FieldValues['医生电话'];
Form20.Edit3.Text:=Form20.ADOQuery1.FieldValues['医生办公室'];
Form20.Edit4.Text:=Form20.ADOQuery1.FieldValues['医生科室'];
end;
end;
with form20.ADOQuery2 do
begin
close;
sql.Clear;
sql.Add('select * from 患者生理参数表 where 病房号='+inttostr(roomnum));
sql.Add(' and 床号=4');
open
end;
form20.Show;
end;
end;

procedure TForm1.N11Click(Sender: TObject);
begin
form21.show;
end;

procedure TForm1.N20Click(Sender: TObject);
begin
Form11.Show;
end;

procedure TForm1.N19Click(Sender: TObject);
begin
Form22.show;
end;

procedure TForm1.N10Click(Sender: TObject);
begin
Form24.show;
end;

procedure TForm1.N21Click(Sender: TObject);
begin
Form25.show;
end;

procedure TForm1.Timer7Timer(Sender: TObject);
var m,n,bednum:integer;
    roomtn:string;
begin
randomize;
bednum:=random(4*4)+1;

with ADOquery4 do
begin
close;
sql.Clear;
sql.Add('select 病房号 from 患者监护信息 where 床号='+inttostr(bednum));
sql.Add(' and 患者就诊号 is not null and 患者就诊号>0');
open;
end;
if not (ADOquery4.IsEmpty) then
begin
n:=random( ADOquery4.recordcount)+1;
m:=1;
while(m<>n) do
begin
ADOquery4.next;
m:=m+1;
end;
roomtn:=ADOquery4.FieldValues['病房号'];
listbox2.Items.Add(roomtn+'           '+inttostr(bednum)+'          '+timetostr(Now()));
end;
end;

procedure TForm1.BitBtn6Click(Sender: TObject);
begin
Form22.show;
end;

procedure TForm1.N24Click(Sender: TObject);
begin
if (Statusbar1.Panels[3].Text<>'监护模式：普通模式')  then
begin
Statusbar1.Panels[3].Text:='监护模式：普通模式';
Timer8.Enabled:=false;
Button5.Enabled:=true;
Timer2.Enabled:=false;
Timer3.Enabled:=false;
Timer4.Enabled:=false;
Timer5.Enabled:=false;
Timer6.Enabled:=false;

Form1.StatusBar1.Panels[1].Text:='当前病房号: 未选择病房';
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:='';

Form1.Button2.Caption:='流动模式';
end;
end;

procedure TForm1.N25Click(Sender: TObject);
begin
Form26.show;
end;

procedure TForm1.Timer8Timer(Sender: TObject);

begin

Timer2.Enabled:=false;
Timer3.Enabled:=false;
Timer4.Enabled:=false;
Timer5.Enabled:=false;
Timer6.Enabled:=false;
fexist:=0;

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;
Form1.ADOquery5.Active:=false;

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['症状'];
Timer2.Enabled:=true;
bitbtn1.Caption:='监护中...';
image36.Visible:=true;
image37.Visible:=false;
if (flagheart='1号床')then
begin
Timer6.Enabled:=true;   /////////心电图////////////
Statusbar1.Panels[2].Text:='当前心电监测床号: '+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['症状'];
Timer3.Enabled:=true;
bitbtn2.Caption:='监护中...';
image38.Visible:=true;
image39.Visible:=false;
if (flagheart='2号床')then
begin
Timer6.Enabled:=true;   /////////心电图////////////
Statusbar1.Panels[2].Text:='当前心电监测床号: '+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['症状'];
Timer4.Enabled:=true;
bitbtn3.Caption:='监护中...';
image40.Visible:=true;
image41.Visible:=false;
if (flagheart='3号床')then
begin
Timer6.Enabled:=true;   /////////心电图////////////
Statusbar1.Panels[2].Text:='当前心电监测床号: '+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['症状'];
Timer5.Enabled:=true;
bitbtn4.Caption:='监护中...';
image42.Visible:=true;
image43.Visible:=false;
if (flagheart='4号床')then
begin
Timer6.Enabled:=true;   /////////心电图////////////
Statusbar1.Panels[2].Text:='当前心电监测床号: '+ComboBox1.Text;
end;
end;
end;

//fexist:=0;//////////////////////////

end;

end.