failtohis.pas

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

unit FailtoHIS;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, BaseUnit, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData,
  cxDataStorage, cxEdit, DB, cxDBData, cxGridCustomTableView,
  cxGridTableView, cxGridDBTableView, ADODB, cxGridLevel, cxClasses,
  cxControls, cxGridCustomView, cxGrid;

type
  TFrmFailtoHIS = class(TForm1)
    cxGrid1DBTableView1: TcxGridDBTableView;
    cxGrid1Level1: TcxGridLevel;
    cxGrid1: TcxGrid;
    ADQ: TADOQuery;
    ds: TDataSource;
    cxGrid1DBTableView1PatientID: TcxGridDBColumn;
    cxGrid1DBTableView1PatientName: TcxGridDBColumn;
    cxGrid1DBTableView1PicDesc: TcxGridDBColumn;
    cxGrid1DBTableView1ExamDesc: TcxGridDBColumn;
    cxGrid1DBTableView1Advice: TcxGridDBColumn;
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FrmFailtoHIS: TFrmFailtoHIS;

implementation

uses DataModule, PubFunction;

{$R *.dfm}

procedure TFrmFailtoHIS.FormShow(Sender: TObject);
begin
  inherited;
  ShowRecord(ADQ,'*','ExamReport WHERE Status=0','ID');
end;

end.