baseinfo.pas

某大型医院护士站

unit baseinfo;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Buttons, ComCtrls, Grids, Wwdbigrd, Wwdbgrid, ExtCtrls, Db,
  Wwdatsrc, DBTables, Wwquery, ImgList, fcLabel;

type
  TfrmBaseInfo = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    Splitter1: TSplitter;
    StaticText1: TStaticText;
    tvTable: TTreeView;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    fcLabel1: TfcLabel;
    ImageList1: TImageList;
    qryUsage: TwwQuery;
    qryfrequency: TwwQuery;
    qryExusage: TwwQuery;
    qryMedtimes: TwwQuery;
    srcUsage: TwwDataSource;
    srcFrequency: TwwDataSource;
    srcMedtimes: TwwDataSource;
    srcExusage: TwwDataSource;
    qryExcutepos: TwwQuery;
    srcExcutepos: TwwDataSource;
    qryMedtimesNAME: TStringField;
    qryMedtimesTIMESID: TSmallintField;
    qryMedtimesTIMEPOINT: TDateTimeField;
    qryMedtimesRTIMES: TSmallintField;
    qryMedtimesSTIMES: TSmallintField;
    qryMedtimesShrTime: TTimeField;
    Panel3: TPanel;
    stTableTitle: TStaticText;
    pcInfo: TPageControl;
    TabSheet1: TTabSheet;
    wwDBGrid1: TwwDBGrid;
    TabSheet2: TTabSheet;
    wwDBGrid2: TwwDBGrid;
    TabSheet3: TTabSheet;
    wwDBGrid3: TwwDBGrid;
    TabSheet4: TTabSheet;
    wwDBGrid4: TwwDBGrid;
    TabSheet5: TTabSheet;
    wwDBGrid5: TwwDBGrid;
    procedure tvTableChange(Sender: TObject; Node: TTreeNode);
    procedure qryMedtimesCalcFields(DataSet: TDataSet);
    procedure FormShow(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmBaseInfo: TfrmBaseInfo;

implementation

uses DataModule;

{$R *.DFM}

procedure TfrmBaseInfo.tvTableChange(Sender: TObject; Node: TTreeNode);
begin
  PcInfo.ActivePageIndex := tvTable.Selected.AbsoluteIndex;
  stTableTitle.Caption   := tvTable.Selected.Text;
end;

procedure TfrmBaseInfo.qryMedtimesCalcFields(DataSet: TDataSet);
begin
  qryMedtimesShrTime.Value := frac(qryMedtimesTimePoint.Value);
end;

procedure TfrmBaseInfo.FormShow(Sender: TObject);
begin
  qryUsage.Open;
  qryFrequency.Open;
  qryMedTimes.Open;
  qryExusage.Open;
  qryExcutePos.Open;
end;

procedure TfrmBaseInfo.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  qryUsage.Close;
  qryFrequency.Close;
  qryMedTimes.Close;
  qryExusage.Close;
  qryExcutePos.Close;
end;

end.