ppinfo.~pas

简易的患者监护系统

unit ppinfo;

interface

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

type
  TForm23 = class(TForm)
    Panel1: TPanel;
    GroupBox1: TGroupBox;
    Edit1: TEdit;
    Label1: TLabel;
    Label3: TLabel;
    Label11: TLabel;
    Label13: TLabel;
    Edit7: TEdit;
    Edit5: TEdit;
    Edit3: TEdit;
    Label2: TLabel;
    Label4: TLabel;
    Label12: TLabel;
    Edit6: TEdit;
    Edit4: TEdit;
    Edit2: TEdit;
    GroupBox2: TGroupBox;
    Label5: TLabel;
    Edit8: TEdit;
    Label6: TLabel;
    Label8: TLabel;
    Label7: TLabel;
    Label9: TLabel;
    Memo1: TMemo;
    Edit9: TEdit;
    Edit10: TEdit;
    Edit11: TEdit;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    Label14: TLabel;
    Label15: TLabel;
    Image1: TImage;
    Label10: TLabel;
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure Edit5KeyPress(Sender: TObject; var Key: Char);
    procedure Edit4KeyPress(Sender: TObject; var Key: Char);
    procedure Edit4Change(Sender: TObject);
    procedure Edit5Exit(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form23: TForm23;

implementation

uses pinfor;

{$R *.dfm}

procedure TForm23.BitBtn2Click(Sender: TObject);
begin
form23.Close;
end;

procedure TForm23.BitBtn1Click(Sender: TObject);
begin
with Form22.ADOQuery2 do
begin
close;
sql.Clear;
sql.Add('select * from 患者基本信息 where 患者就诊号='+Edit1.Text);
open;
end;
Form22.ADOquery2.Edit;
//Form22.ADOQuery2.FieldValues['患者就诊号']:=Edit1.Text;
//Form22.ADOQuery2.FieldValues['患者姓名']:=Edit2.Text;
//Form22.ADOQuery2.FieldValues['患者性别']:=Edit3.Text;
Form22.ADOQuery2.FieldValues['患者年龄']:=Edit4.Text;
Form22.ADOQuery2.FieldValues['患者电话']:=Edit5.Text;
Form22.ADOQuery2.FieldValues['患者住址']:=Edit6.Text;
Form22.ADOQuery2.FieldValues['患者过敏史']:=Edit7.Text;
Form22.ADOQuery2.Post;
showmessage('修改成功！');
Form22.ADOQuery1.Active:=false;
Form22.ADOQuery1.Active:=true;
Form23.Close;
end;

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

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

procedure TForm23.Edit4Change(Sender: TObject);
begin
if Edit4.Text<>''then
begin
if (strtoint(Edit4.Text)>120)or (strtoint(Edit4.Text)<1)then
begin
showmessage('输入年龄有误！');
Edit4.SetFocus;
end;
end;
end;

procedure TForm23.Edit5Exit(Sender: TObject);
begin
if Edit5.Text<>''then
begin
if (strtoint(Edit5.Text)<10000000)then
begin
showmessage('请正确输入电话号码！');
Edit5.SetFocus;
end;
end;
end;

procedure TForm23.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Form23.Edit1.Text:='';
Form23.Edit2.Text:='';
Form23.Edit3.Text:='';
Form23.Edit4.Text:='';
Form23.Edit5.Text:='';
Form23.Edit6.Text:='';
Form23.Edit7.Text:='';
Form23.Edit8.Text:='';
Form23.Edit9.Text:='';
Form23.Edit11.Text:='';
Form23.Edit10.Text:='';
Form23.Memo1.Text:='';
end;

end.