selectorder.pas

某大型医院护士站

unit SelectOrder;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Grids, Buttons, Menus, Wwdbigrd, Wwdbgrid, ExtCtrls, ComCtrls;

type
  TfrmSelOrder = class(TForm)
    pickEndDate: TDateTimePicker;
    pickEndTime: TDateTimePicker;
    rgStopType: TRadioGroup;
    Label1: TLabel;
    Label2: TLabel;
    btnOK: TBitBtn;
    btnCancel: TBitBtn;
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmSelOrder: TfrmSelOrder;

//停止医嘱,StopType=0永久停止,StopType=1临时停止
function GetStopOrderParams( var StopTime : TDateTime;
                     var StopType : SmallInt ) : Boolean;

implementation

uses Datamodule, HisUtilitis;

{$R *.DFM}

//停止医嘱, StopType = 1 永久停止 ,StopType = 2 临时停止
function GetStopOrderParams( var StopTime : TDateTime;
                     var StopType : SmallInt ) : Boolean;
begin
  with TfrmSelOrder.Create( Application ) do
  begin
    if ShowModal = mrOK then
    begin
      //取得停止日期时间
      StopTime := Int(pickEndDate.Date) + frac(pickEndTime.Time);
      StopType := rgStopType.ItemIndex + 1;
      if (stoptime <= Now - DM.SEndTimeCnstn/24 ) or
         (stoptime >  Now + DM.SEndTimeCnstn/24 ) then
        begin
          HisErrorprompt(PChar('不能输入' + InttoStr(DM.SEndTimeCnstn) +'小时前、后的停止时间!'));
          SysUtils.Abort;
        end
      else if (StopTime < DM.OrderItemStartTime.AsDateTime) then
       begin
          HisErrorprompt('停医嘱时间不能早于开医嘱时间!');
          SysUtils.Abort;
        end;
      Result := True;
    end
    else
      Result := False;
    free;
  end;
end;

procedure TfrmSelOrder.FormShow(Sender: TObject);
begin
  pickEndDate.Date := Date;
  pickEndTime.Time := Now;
end;

end.