untbasemd.pas

来自「简要说明:对医院幼儿心理情况做的一个调查,统计系统.」· PAS 代码 · 共 56 行

unit untBaseMD;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, untBaseSingle, Menus, ImgList, DB, ADODB, Grids, DBGrids,
  StdCtrls, Buttons, ExtCtrls, jpeg, ComCtrls, ToolWin;

type
  TfrmBaseMD = class(TfrmBaseSingle)
    Splitter1: TSplitter;
    grdDetail: TDBGrid;
    adsDetail: TADODataSet;
    dsDetail: TDataSource;
    procedure btnShowDetailClick(Sender: TObject);
    procedure grdSingleDblClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    procedure LoadData; override;
  end;

var
  frmBaseMD: TfrmBaseMD;

implementation

{$R *.dfm}

procedure TfrmBaseMD.btnShowDetailClick(Sender: TObject);
begin
  inherited;
  grdDetail.Visible := not grdDetail.Visible;
  Splitter1.Visible := grdDetail.Visible; 
end;

procedure TfrmBaseMD.LoadData;
begin
  inherited;
  with adsDetail do begin
    if Active then Active := False;
    Active := true;
  end;
end;

procedure TfrmBaseMD.grdSingleDblClick(Sender: TObject);
begin
  inherited;
  if (not adsSingle.Active) or (adsSingle.RecordCount=0) then Exit;
  btnEditClick(btnEdit);
end;

end.