patientwards.pas

简易的患者监护系统

unit patientwards;

interface

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

type
  TForm2 = class(TForm)
    Button1: TButton;
    Label1: TLabel;
    ComboBox1: TComboBox;
    Label2: TLabel;
    DataSource1: TDataSource;
    ADOQuery1: TADOQuery;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure ComboBox1Change(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form2: TForm2;


implementation

uses KittyHawkPMS, dbreturn;

{$R *.dfm}

procedure TForm2.Button1Click(Sender: TObject);
begin
Form2.Close;
if ComboBox1.Text<>''then
begin
roomnum:=0;
while ((inttostr(roomnum)+'号病房')<>ComboBox1.Text) do
begin
roomnum:=roomnum+1;
end;
//form1.Label51.Caption:=inttostr(roomnum);
with Form1.ADOQuery2 do
begin
Close;
Sql.Clear;
sql.Add('select * from 患者监护信息 where 病房号='+inttostr(roomnum));
sql.Add(' and 患者就诊号>0');
Open;
if Form1.ADOQuery2.RecordCount>0 then
begin
//tempindex:=Combobox1.itemindex;
flagroom:=combobox1.Text;
Form1.StatusBar1.Panels[1].Text:='当前病房号: '+inttostr(roomnum)+'号病房';
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(roomnum)+' 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['症状'];
end;
end;

with Form1.ADOQuery2 do
begin
Close;
Sql.Clear;
sql.Add('select * from 患者监护信息,患者基本信息 where 病房号='+inttostr(roomnum)+' 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['症状'];
end;
end;

with Form1.ADOQuery2 do
begin
Close;
Sql.Clear;
sql.Add('select * from 患者监护信息,患者基本信息 where 病房号='+inttostr(roomnum)+' 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['症状'];
end;
end;

with Form1.ADOQuery2 do
begin
Close;
Sql.Clear;
sql.Add('select * from 患者监护信息,患者基本信息 where 病房号='+inttostr(roomnum)+' 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['症状'];
end;
end;

 end
 else
 begin
 //Combobox1.itemindex:=tempindex;
 Form1.ComboBox1.Enabled:=true;
 Form8.show;
 end;
end;
end
else
begin
showmessage('请选择病房!');
end;

end;
procedure TForm2.FormCreate(Sender: TObject);
var i:integer;
    room:string;
begin
ADOquery1.Active:=true;
button1.Enabled:=false;
ComboBox1.Items.Clear;
for i:=0 to (ADOquery1.RecordCount-1)do
begin
room:=ADOquery1.FieldValues['病房号'];
ComboBox1.Items.Add(room+'号病房');
ADOquery1.Next;
end;
ADOquery1.Active:=false;
end;

procedure TForm2.ComboBox1Change(Sender: TObject);
begin
if ComboBox1.Text<>''then
  button1.Enabled:=true;
end;

end.