bedproperty.pas

某大型医院护士站

unit bedProperty;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, wwdblook, Buttons, ComCtrls, Mask, wwdbedit, DBCtrls, Db,
  Wwdatsrc, DBTables, Wwtable, Wwquery, wwSpeedButton, wwDBNavigator,
  ExtCtrls, wwclearpanel;

type
  TfrmBedProperty = class(TForm)
    PageControl1: TPageControl;
    tsBedProperty: TTabSheet;
    btnOK: TBitBtn;
    btnCancel: TBitBtn;
    GroupBox1: TGroupBox;
    cbUseall: TDBCheckBox;
    dbedExtrafee: TwwDBEdit;
    Label2: TLabel;
    Label3: TLabel;
    wwDBEdit2: TwwDBEdit;
    wwDBEdit3: TwwDBEdit;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    wwDBEdit4: TwwDBEdit;
    wwDBEdit5: TwwDBEdit;
    wwDBEdit6: TwwDBEdit;
    GroupBox2: TGroupBox;
    Label1: TLabel;
    Label7: TLabel;
    dbcbBedDept: TwwDBLookupCombo;
    DBCheckBox2: TDBCheckBox;
    Label8: TLabel;
    DBText1: TDBText;
    DBText2: TDBText;
    wwDBNavigator1: TwwDBNavigator;
    wwDBNavigator1Prior: TwwNavButton;
    wwDBNavigator1Next: TwwNavButton;
    qryCurrWardBed: TwwQuery;
    tblWardSub: TwwTable;
    scrCurrWardBed: TwwDataSource;
    tblWardSubDEPTNUM: TStringField;
    tblWardSubDEPTNAME: TStringField;
    tblWardSubWARDID: TStringField;
    qryCurrWardBedWARDID: TStringField;
    qryCurrWardBedBED: TStringField;
    qryCurrWardBedDEPTNUM: TStringField;
    qryCurrWardBedINID: TIntegerField;
    qryCurrWardBedTIMES: TSmallintField;
    qryCurrWardBedSQID: TSmallintField;
    qryCurrWardBedROOMFEE: TFloatField;
    qryCurrWardBedCHECKFEE: TFloatField;
    qryCurrWardBedTVFEE: TFloatField;
    qryCurrWardBedACFEE: TFloatField;
    qryCurrWardBedTELFEE: TFloatField;
    qryCurrWardBedEXTRAFEE: TFloatField;
    qryCurrWardBedNMLFLAG: TSmallintField;
    qryCurrWardBedISBORNED: TSmallintField;
    qryCurrWardBedWARDNAME: TStringField;
    procedure btnCancelClick(Sender: TObject);
    procedure btnOKClick(Sender: TObject);
    procedure cbUseallClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmBedProperty: TfrmBedProperty;

implementation

uses DataModule;

{$R *.DFM}

procedure TfrmBedProperty.btnCancelClick(Sender: TObject);
begin
  if qryCurrWardBed.State in [dsInsert,dsEdit] then
     qryCurrWardBed.Cancel;

  if qryCurrWardBed.UpdatesPending then
     qryCurrWardBed.CancelUpdates;
end;

procedure TfrmBedProperty.btnOKClick(Sender: TObject);
begin
  if qryCurrWardBed.State in [dsInsert,dsEdit] then
     qryCurrWardBed.Post;

  if qryCurrWardBed.UpdatesPending then
     qryCurrWardBed.ApplyUpdates;

  Close;
end;

procedure TfrmBedProperty.cbUseallClick(Sender: TObject);
begin
  if cbUseall.Checked then
  begin
    dbedExtrafee.Enabled := True;
    dbedExtrafee.Color := clWhite;
    dbedExtrafee.SetFocus;
  end else
  begin
    dbedExtrafee.Color := $00D0FFFF;
    dbedExtrafee.Enabled := False;
  end;
end;

procedure TfrmBedProperty.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  tblWardSub.Close;
  qryCurrWardBed.Close;
end;

procedure TfrmBedProperty.FormShow(Sender: TObject);
begin
  cbUseall.OnClick := cbUseallClick;
end;

end.