leave.~pas

简易的患者监护系统

unit leave;

interface

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

type
  TForm19 = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    Label1: TLabel;
    GroupBox1: TGroupBox;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    Memo1: TMemo;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Edit6: TEdit;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    Edit7: TEdit;
    Edit8: TEdit;
    Edit5: TEdit;
    DataSource1: TDataSource;
    ADOQuery1: TADOQuery;
    Label7: TLabel;
    Image1: TImage;
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
    procedure FormCreate(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure Edit1Exit(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form19: TForm19;

implementation

uses KittyHawkPMS, patientwards, pinfor, information;

{$R *.dfm}

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

procedure TForm19.FormCreate(Sender: TObject);
begin
Memo1.Enabled:=false;
Bitbtn1.Enabled:=false;
end;

procedure TForm19.BitBtn2Click(Sender: TObject);
begin
Form19.Close;
end;

procedure TForm19.Edit1Exit(Sender: TObject);
begin
Edit2.Text:='';
Edit3.Text:='';
Edit4.Text:='';
Edit5.Text:='';
Edit6.Text:='';
Edit7.Text:='';
Edit8.Text:='';
Memo1.Text:='';

if (Edit1.Text<>'')and (Edit1.Text<>'输入就诊号') then
begin
Memo1.Enabled:=true;
with ADOquery1 do
begin
close;
sql.Clear;
sql.Add('select * from 患者基本信息 where 患者就诊号='+Edit1.Text);
open;
if ADOquery1.IsEmpty then
  begin
  showmessage('该患者不存在！');
  Edit1.Text:='1';
  Edit1.SetFocus;
  Edit2.Text:='';
  Edit3.Text:='';
  Edit4.Text:='';
  Edit5.Text:='';
  Edit6.Text:='';
  Edit7.Text:='';
  Edit8.Text:='';
  Memo1.Text:='';
  end
else
begin
Edit2.Text:=ADOquery1.FieldValues['患者姓名'];
Edit3.Text:=ADOquery1.FieldValues['患者性别'];
Edit4.Text:=ADOquery1.FieldValues['患者年龄'];
Edit5.Text:=ADOquery1.FieldValues['患者电话'];

with ADOquery1 do
begin
close;
sql.Clear;
sql.Add('select * from 患者监护信息,医生信息 where 患者监护信息.主治医生号=医生信息.主治医生号 and 患者就诊号='+Edit1.Text);
open;
end;
if ADOquery1.IsEmpty then
begin
showmessage('该患者未住院！');
Edit1.SetFocus;
end
else
begin
Edit6.Text:=ADOquery1.FieldValues['医生姓名'];
Edit7.Text:=ADOquery1.FieldValues['病房号'];
Edit8.Text:=ADOquery1.FieldValues['床号'];
Memo1.Text:=ADOquery1.FieldValues['症状'];
Bitbtn1.Enabled:=true;
end;
end;
end;
end
else
begin
showmessage('患者就诊号不能为空！');
Edit1.SetFocus;
Edit2.Text:='';
Edit3.Text:='';
Edit4.Text:='';
Edit5.Text:='';
Edit6.Text:='';
Edit7.Text:='';
Memo1.Text:='';
end;
end;

procedure TForm19.BitBtn1Click(Sender: TObject);
var i:integer;
    room:string;
begin
if (Edit1.Text=Form1.Edit1.Text)or(Edit1.Text=Form1.Edit2.Text)or(Edit1.Text=Form1.Edit3.Text)or(Edit1.Text=Form1.Edit4.Text)then
begin
showmessage('该患者正处于监护中...');
Edit1.SetFocus;
end
else
begin

with ADOquery1 do
begin
close;
sql.Clear;
sql.Add('delete from 患者生理参数表 where 病房号='+Edit7.Text+' and 床号='+Edit8.Text);
EXECsql;
close;
sql.Clear;
sql.Add('select * from 患者监护信息 where 患者就诊号='+Edit1.Text);
open;
end;
ADOquery1.Edit;
ADOquery1.FieldValues['患者就诊号']:=0;
ADOquery1.FieldValues['主治医生号']:=0;
ADOquery1.FieldValues['患者入院时间']:='';
ADOquery1.FieldValues['症状']:='';
ADOquery1.Post;
with ADOquery1 do
begin
close;
sql.Clear;
sql.Add('select * from 患者监护信息 where 患者就诊号='+Edit1.Text);
open;
if ADOquery1.IsEmpty then
begin

  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;
  
  Form22.ADOquery1.Active:=false;
  with Form22.ADOQuery1 do
  begin
  close;
  sql.Clear;
  sql.Add('select * from 患者基本信息');
  open;
  end;
  form22.ADOquery1.Active:=true;

  Form11.ADOquery1.Active:=false;
  with Form11.ADOQuery1 do
  begin
  close;
  sql.Clear;
  sql.Add('select 患者基本信息.患者就诊号,患者姓名,医生姓名,症状,');
  sql.Add('患者性别,患者年龄,病房号,床号,患者入院时间 ');
  sql.Add('from 患者基本信息,患者监护信息,医生信息 ');
  sql.Add('where 患者基本信息.患者就诊号=患者监护信息.患者就诊号 ');
  sql.add('and 患者监护信息.主治医生号=医生信息.主治医生号');
  sql.Add ('order by 患者基本信息.患者就诊号');
  open;
  end;
  Form11.ADOquery1.Active:=true;

showmessage('住院信息已删除！');
end
else
begin
showmessage('删除信息出错!');
end;
end;
form19.Close;
end;
Edit1.text:='';
Edit2.text:='';
Edit3.text:='';
Edit4.text:='';
Edit5.text:='';
Edit6.text:='';
Edit7.text:='';
Edit8.text:='';
Memo1.Text:='';
Bitbtn1.Enabled:=false;
end;

end.