find.pas

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

unit Find;

interface

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

type
  TFrmFind = class(TForm1)
    cxGrid1DBTableView1: TcxGridDBTableView;
    cxGrid1Level1: TcxGridLevel;
    cxGrid1: TcxGrid;
    Panel1: TPanel;
    Edit1: TEdit;
    BitBtn1: TBitBtn;
    DataSource1: TDataSource;
    ADOQuery1: TADOQuery;
    cxGrid1DBTableView1PatientID: TcxGridDBColumn;
    cxGrid1DBTableView1PatientName: TcxGridDBColumn;
    cxGrid1DBTableView1Gender: TcxGridDBColumn;
    cxGrid1DBTableView1DateOfBirth: TcxGridDBColumn;
    cxGrid1DBTableView1SysBP: TcxGridDBColumn;
    cxGrid1DBTableView1DiaBP: TcxGridDBColumn;
    cxGrid1DBTableView1PulsedBP: TcxGridDBColumn;
    cxGrid1DBTableView1R_CR_PWV: TcxGridDBColumn;
    cxGrid1DBTableView1R_CF_PWV: TcxGridDBColumn;
    cxGrid1DBTableView1R_CD_PWV: TcxGridDBColumn;
    cxGrid1DBTableView1HeartRate: TcxGridDBColumn;
    cxGrid1DBTableView1EstCenteralPulsedBP: TcxGridDBColumn;
    BitBtn2: TBitBtn;
    procedure FormCreate(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FrmFind: TFrmFind;

implementation

uses PatientDataM, PubFunction, FindResult;

{$R *.dfm}

procedure TFrmFind.FormCreate(Sender: TObject);
begin
  inherited;
  ShowRecord(ADOQuery1,'*','CompliorResult','id');
end;

procedure TFrmFind.BitBtn2Click(Sender: TObject);
begin
  inherited;
  if ADOQuery1.IsEmpty then
    exit;
  PatientID:=ADOQuery1.FieldByName('PatientID').AsString;
  TFrmFindResult.Create(application).ShowModal;
end;

procedure TFrmFind.BitBtn1Click(Sender: TObject);
begin
  inherited;
  ShowRecord(ADOQuery1,'*','CompliorResult WHERE PatientID like ''%'+Edit1.Text+'%''','id');
end;

end.