examresult.pas

来自「某疗养院动脉硬化管理系统」· PAS 代码 · 共 161 行

unit ExamResult;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, BaseUnit, ExtCtrls, OleCtrls, DICOMax_TLB, StdCtrls, Buttons;

type
  TFrmExamResult = class(TForm1)
    Panel1: TPanel;
    GroupBox1: TGroupBox;
    Label2: TLabel;
    Label3: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    GroupBox2: TGroupBox;
    EdtPicDesc: TMemo;
    GroupBox3: TGroupBox;
    EdtExamDesc: TMemo;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    GroupBox4: TGroupBox;
    EdtAdvice: TMemo;
    procedure EdtPicDescKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure EdtExamDescKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure BitBtn3Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure EdtAdviceKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FrmExamResult: TFrmExamResult;

implementation

uses PubFunction, DataModule, ADODB, Select;

{$R *.dfm}

procedure TFrmExamResult.EdtPicDescKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  inherited;
  if key=vk_Return then
  begin
    Item:='Desc';
    TFrmSelect.Create(application).ShowModal;
    //TFrmSelectPic.Create(nil).ShowModal;
    EdtPicDesc.Text:=EdtPicDesc.Text+PicDesc;
  end;
end;

procedure TFrmExamResult.EdtExamDescKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  inherited;
  if key=vk_Return then
  begin
    item:='Conclusion';
    TFrmSelect.Create(application).ShowModal;
    //TFrmSelectExam.Create(nil).ShowModal;
    EdtExamDesc.Text:=ExamDesc+EdtExamDesc.Text;
  end;
end;

procedure TFrmExamResult.BitBtn3Click(Sender: TObject);
begin
  inherited;
  close;
end;

procedure TFrmExamResult.FormShow(Sender: TObject);
begin
  inherited;
  Edit1.Text:=PatientID;
  Edit2.Text:=PatientName;
  EdtPicDesc.Text:=CR_V+','+CF_V+','+CD_V;
end;

procedure TFrmExamResult.BitBtn1Click(Sender: TObject);
var tmp:tadoquery;
begin
  inherited;
  if Trim(EdtExamDesc.Text)='' then
  begin
    application.MessageBox('诊断报告不能为空！','提示',mb_ok+mb_iconinformation);
    EdtExamDesc.SetFocus;
    exit;
  end;
  if Trim(EdtPicDesc.Text)='' then
  begin
    application.MessageBox('影像描述不能为空！','提示',mb_ok+mb_iconinformation);
    EdtExamDesc.SetFocus;
    exit;
  end;
  tmp:=tadoquery.Create(nil);
  tmp.Connection :=DM.ADOCn;
  DM.ADOCn.BeginTrans;
  try
    with tmp do
    begin
      sql.Clear;
      sql.Add('INSERT INTO ExamReport (PatientID,PatientName,PicDesc,ExamDesc) VALUES (:v1,:v2,:v3,:v4)');
      Parameters.ParamByName('v1').Value :=Edit1.Text;
      Parameters.ParamByName('v2').Value :=Edit2.Text;
      Desc:=EdtExamDesc.Text;
      Conclusion:=EdtPicDesc.Text;
      Advice:=EdtAdvice.Text;
      Parameters.ParamByName('v3').Value :=EdtPicDesc.Text;
      Parameters.ParamByName('v4').Value :=EdtExamDesc.Text;
      ExecSql;
    end;
    DM.ADOCn.CommitTrans;
    tmp.Close;
    close;
  except
    on e:Exception do
    begin
      DM.ADOCn.RollbackTrans;
      tmp.Free;
      WriteLog('诊断报告保存失败'+e.Message);
      application.MessageBox('诊断报告保存失败！','警告',mb_ok+mb_iconwarning);
    end;
  end;
end;

procedure TFrmExamResult.BitBtn2Click(Sender: TObject);
begin
  inherited;
  //Conclusion:=Trim(EdtExamDesc.Lines.Text);
  //ShowMessage(Desc);
  //ShowMessage(Advice);
  //ShowMessage(Conclusion);
  close;
end;

procedure TFrmExamResult.EdtAdviceKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  inherited;
  if key=vk_Return then
  begin
    Item:='Advice';
    TFrmSelect.Create(application).ShowModal;
    //TFrmSelectAdvice.Create(nil).ShowModal;
    EdtAdvice.Text:=EdtAdvice.Text+Advice;
  end;
end;

end.