kittyhawkpms.pas

简易的患者监护系统

BitBtn4.Caption:='空闲';
Timer5.Enabled:=false;
label39.Visible:=false;
label40.Visible:=false;
label41.Visible:=false;
label42.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;
image43.Visible:=true;
image42.Visible:=false;
if (flagheart='4号床')then
begin
Timer6.Enabled:=false;   /////////心电图////////////
Statusbar1.Panels[2].Text:='当前心电监测床号: 未工作';
end;
if (bitbtn1.Caption='空闲')and(bitbtn2.Caption='空闲')and(bitbtn3.Caption='空闲')and(bitbtn4.Caption='空闲')then
begin
combobox1.Enabled:=false;
end;
end;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
 Form7.show;
end;

procedure TForm1.Button7Click(Sender: TObject);
begin
Form6.show;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
if Button2.Caption='流动监护'then
begin
Form26.show;
end
else
begin
Button2.Caption:='流动监护';
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:='';
end;
end;
end;

procedure TForm1.N7Click(Sender: TObject);
begin
  Form7.show;
end;

procedure TForm1.N9Click(Sender: TObject);
begin
 Form5.show;
end;

procedure TForm1.N12Click(Sender: TObject);
begin
 Form6.show;
end;

procedure TForm1.FormCreate(Sender: TObject);
var filename,filename2:string;
    startform:tform16;
    currtime:tsystemtime;
    sec:word;
begin
begin
startform:=tform16.Create(self);
  startform.show;
  startform.Update;
  getsystemtime(currtime);
  sec:=currtime.wSecond+2;
  if sec=60 then sec:=sec-1;
  startform.ProgressBar1.Max:=sec;
  startform.ProgressBar1.min:=0;
  while sec>currtime.wSecond do
  begin
  getsystemtime(currtime);
  startform.progressbar1.position:=currtime.wSecond;
  end;
  startform.free;
  AnimateWindow(form1.Handle,200,AW_CENTER);//向四周扩展的动画效果
  end;

 filename:=ExtractFilePath(Application.EXENAME)+'数据库\系统数据库(心电&Help).mdb';
 filename2:=ExtractFilePath(Application.EXENAME)+'数据库\综合数据库.mdb';
with Adoconnection1 do
begin
  connected := false;
  connectionstring:='Provider=Microsoft.Jet.OLEDB.4.0;'+'User ID=Admin;'+
  'Data Source=' + filename + ';Mode=Share Deny None;'+'Jet OLEDB:Database Password=';
  Connected := true;
end;
AdoQuery1.Active:=true;
with Adoconnection2 do
begin
  connected := false;
  connectionstring:='Provider=Microsoft.Jet.OLEDB.4.0;'+'User ID=Admin;'+
  'Data Source=' + filename2 + ';Mode=Share Deny None;'+'Jet OLEDB:Database Password=';
  Connected := true;

end;
AdoQuery2.Active:=true;
AdoQuery3.Active:=true;
ADOquery4.Active:=true;
Timer8.Enabled:=false;

end;

procedure TForm1.Timer6Timer(Sender: TObject);
    var i:integer;
         adjust:single;
         ECG:string;
      begin
      for i:=1 to 239 do
      begin
      LiuP[240-i]:=LiuP[240-i-1];
      end;
      if (flagheart='1号床')then
      begin
      ECG:='ECG1';
      adjust:=0;
      end
      else if flagheart='2号床'then
      begin
      ECG:='ECG2';
      adjust:=0;
      end
      else if flagheart='3号床'then
      begin
      ECG:='ECG3';
      adjust:=0;
      end
      else
      begin
      ECG:='ECG4';
      adjust:=-0.5;
      end;
       LiuP[0]:=ADOquery1.FieldValues[ECG]+adjust;
       ADOquery1.Next;
       count1:=count1+1;
       if count1>230 then
       begin
       ADOquery1.First;
       count1:=0;
       end;

       Series1.Clear;
      for i:=1 to 230 do
        begin
          Series1.AddXY(i/100,LiuP[i],IntToStr(i),clred);
          //绘制生理信号的动态曲线
        end;

end;

procedure TForm1.ComboBox1Change(Sender: TObject);
begin
flagheart:=combobox1.Text;

if((combobox1.Text='1号床')and(bitbtn1.Caption='监护中...'))
   or((combobox1.Text='2号床')and(bitbtn2.Caption='监护中...'))
   or((combobox1.Text='3号床')and(bitbtn3.Caption='监护中...'))
   or((combobox1.Text='4号床')and(bitbtn4.Caption='监护中...'))
   then
   begin
   LiuP:=EGCP;//数组清空
   Timer6.Enabled:=true;
   Statusbar1.Panels[2].Text:='当前心电监测床号: '+ComboBox1.Text;
   end
   else
   begin
   Statusbar1.Panels[2].Text:='当前心电监测床号: 未工作';
   Timer6.Enabled:=false;
   Series1.Clear;
   end;
end;
procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
if messageDlg('确实关闭监护系统？',mtConfirmation,[mbYes,mbNo],0)<>mrYes
then
begin
canclose:=false;
end
else
begin
canclose:=true;
end;
end;

procedure TForm1.N13Click(Sender: TObject);
begin
Form4.Show;
end;

procedure TForm1.N14Click(Sender: TObject);
begin
Form14.show;
end;

procedure TForm1.N15Click(Sender: TObject);
begin
Form15.show;
end;

procedure TForm1.N6Click(Sender: TObject);

begin
Form1.Close;
end;

procedure TForm1.BitBtn5Click(Sender: TObject);
begin
Form11.show;
end;

procedure TForm1.N16Click(Sender: TObject);
begin
form17.show;
end;

procedure TForm1.N17Click(Sender: TObject);
begin
form19.show;
end;

procedure TForm1.Edit1Click(Sender: TObject);
begin
if (Edit1.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 患者就诊号='+Edit1.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 床号=1');
open
end;
form20.Show;
end;

end;

procedure TForm1.Edit2Click(Sender: TObject);
begin
if (Edit2.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 患者就诊号='+Edit2.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 床号=2');
open
end;
form20.Show;
end;
end;

procedure TForm1.Edit3Click(Sender: TObject);
begin
if (Edit3.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 患者就诊号='+Edit3.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 床号=3');
open
end;
form20.Show;
end;
end;