selectpic.pas

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

unit SelectPic;

interface

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

type
  TFrmSelectPic = class(TForm1)
    ADQ: TADOQuery;
    ds: TDataSource;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    DBGrid1: TDBGrid;
    procedure FormCreate(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure DBGrid1DblClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FrmSelectPic: TFrmSelectPic;

implementation

uses DataModule, PubFunction, ExamResult;

{$R *.dfm}

procedure TFrmSelectPic.FormCreate(Sender: TObject);
begin
  inherited;
  ShowRecord(ADQ,'*','PicDesc','ID');
end;

procedure TFrmSelectPic.BitBtn2Click(Sender: TObject);
begin
  inherited;
  Close;
end;

procedure TFrmSelectPic.BitBtn1Click(Sender: TObject);
begin
  inherited;
  PicDesc:=PicDesc+ADQ.FieldByName('DetailDesc').AsString;
end;

procedure TFrmSelectPic.DBGrid1DblClick(Sender: TObject);
begin
  inherited;
  BitBtn1.OnClick(Sender);
end;

end.