addremoveroom.~pas

简易的患者监护系统

unit addremoveroom;

interface

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

type
  TForm25 = class(TForm)
    Panel1: TPanel;
    Label1: TLabel;
    GroupBox1: TGroupBox;
    Edit1: TEdit;
    Label2: TLabel;
    DBLookupListBox1: TDBLookupListBox;
    Label3: TLabel;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    DataSource1: TDataSource;
    ADOQuery1: TADOQuery;
    ADOQuery2: TADOQuery;
    DataSource2: TDataSource;
    Label4: TLabel;
    procedure FormCreate(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
    procedure DBLookupListBox1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form25: TForm25;

implementation

uses KittyHawkPMS, patientwards, regesterform;

{$R *.dfm}

procedure TForm25.FormCreate(Sender: TObject);
begin
ADOquery1.Active:=false;
ADOquery1.Active:=true;
end;

procedure TForm25.BitBtn1Click(Sender: TObject);
var i:integer;
     room:string;
begin
ADOquery2.Active:=true;
if (Edit1.Text<>'') then
begin
with ADOquery2  do
begin
close;
sql.Clear;
sql.Add('select * from 患者监护信息 where 病房号='+Edit1.Text);
open;
end;
if ADOquery2.IsEmpty then
 begin
 ADOquery2.Last;
 ADOquery2.Insert;
 ADOquery2.FieldValues['病房号']:=Edit1.Text;
 ADOquery2.FieldValues['床号']:=1;
 ADOquery2.Next;
  ADOquery2.Insert;
 ADOquery2.FieldValues['病房号']:=Edit1.Text;
 ADOquery2.FieldValues['床号']:=2;
 ADOquery2.Next;
  ADOquery2.Insert;
 ADOquery2.FieldValues['病房号']:=Edit1.Text;
 ADOquery2.FieldValues['床号']:=3;
 ADOquery2.Next;
  ADOquery2.Insert;
 ADOquery2.FieldValues['病房号']:=Edit1.Text;
 ADOquery2.FieldValues['床号']:=4;
 ADOquery2.Post;

with ADOquery2  do
begin
close;
sql.Clear;
sql.Add('select * from 患者监护信息 where 病房号='+Edit1.Text);
open;
end;
 if ADOquery2.IsEmpty then
 begin
 showmessage('添加失败！');
 end
 else
 begin
  ADOquery1.Active:=false;
  ADOquery1.Active:=true;
  Form2.ADOQuery1.Active:=false;
  Form2.ADOQuery1.Active:=true;
  Form2.ComboBox1.Items.Clear;

  Form2.ADOQuery1.Active:=true;
  with Form2.ADOQuery1 do
  begin
  close;
  sql.Clear;
  sql.Add('select distinct 病房号');
  sql.Add(' from 患者监护信息');
  sql.Add(' where (患者就诊号 is not null) and (患者就诊号>=1)');
  sql.Add(' group by 病房号 having count(*)>=1');
  open;
  end;
  if Form2.ADOQuery1.IsEmpty then
  begin
  Form2.ADOQuery1.Active:=false;
  end
  else
  begin
  Form2.ComboBox1.Items.Clear;
  for i:=0 to ((Form2.ADOQuery1.RecordCount)-1)do
  begin
  room:=Form2.ADOQuery1.FieldValues['病房号'];
  Form2.ComboBox1.Items.Add(room+'号病房');
  Form2.ADOQuery1.Next;
  end;
  Form2.ADOQuery1.Active:=false;
  end;
  Form17.ADOquery3.Active:=false;
  Form17.ADOquery4.Active:=false;
  Form17.ADOquery3.Active:=true;
  Form17.ADOquery4.Active:=true;
  showmessage('添加成功！');
 end;

 end
 else
  begin
  showmessage('该病房已经存在！');
  end;
end
else
begin
showmessage('请输入要添加的病房号');
end;
ADOquery2.Active:=false;
end;

procedure TForm25.BitBtn2Click(Sender: TObject);
var i:integer;
     room:string;
begin
ADOquery2.Active:=true;
if (Edit1.Text<>'') then
begin
with ADOquery2  do
begin
close;
sql.Clear;
sql.Add('select * from 患者监护信息 where (患者就诊号 is Null or 患者就诊号<1) and 病房号='+Edit1.Text);
open;
end;
 if ADOquery2.RecordCount<4 then
 begin
 showmessage('该病房不存在或者有患者，删除失败！');
 end
 else
 begin
 if messageDlg('确实删除该病房记录？',mtConfirmation,[mbYes,mbNo],0)=mrYes
 then
  begin
  with ADOquery2  do
  begin
  close;
  sql.Clear;
  sql.Add('delete  from 患者监护信息 where 病房号='+Edit1.Text);
  EXECsql;
  end;
  with ADOquery2  do
  begin
  close;
  sql.Clear;
  sql.Add('select * from 患者监护信息 where 病房号='+Edit1.Text);
  open;
  end;
  if ADOquery2.IsEmpty then
  begin
  ADOquery1.Active:=false;
  ADOquery1.Active:=true;
  Form2.ADOQuery1.Active:=false;
  Form2.ADOQuery1.Active:=true;
  Form2.ComboBox1.Items.Clear;

  Form2.ADOQuery1.Active:=true;
  with Form2.ADOQuery1 do
  begin
  close;
  sql.Clear;
  sql.Add('select distinct 病房号');
  sql.Add(' from 患者监护信息');
  sql.Add(' where (患者就诊号 is not null) and (患者就诊号>=1)');
  sql.Add(' group by 病房号 having count(*)>=1');
  open;
  end;
  if Form2.ADOQuery1.IsEmpty then
  begin
  Form2.ADOQuery1.Active:=false;
  end
  else
  begin
  Form2.ComboBox1.Items.Clear;
  for i:=0 to ((Form2.ADOQuery1.RecordCount)-1)do
  begin
  room:=Form2.ADOQuery1.FieldValues['病房号'];
  Form2.ComboBox1.Items.Add(room+'号病房');
  Form2.ADOQuery1.Next;
  end;
  Form2.ADOQuery1.Active:=false;
  end;
  Form17.ADOquery3.Active:=false;
  Form17.ADOquery4.Active:=false;
  Form17.ADOquery3.Active:=true;
  Form17.ADOquery4.Active:=true;
  showmessage('删除成功！');
  end
  else
  begin
  showmessage('删除失败！');
  end;
  end;
 end;
end
else
begin
showmessage('请输入要删除的病房号！');
end;
ADOquery2.Active:=false;
end;

procedure TForm25.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if Not(Key in ['0'..'9',#8])then
Key:=#0;
end;

procedure TForm25.DBLookupListBox1Click(Sender: TObject);
begin
Edit1.Text:=ADOquery1.FieldValues['病房号'];
end;

end.