untbasemdi.pas

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

unit untBaseMDI;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, untBase, jpeg, ExtCtrls, ADODB, untGlobalVar;

type
  TfrmBaseMDI = class(TfrmBase)
    PalTop: TPanel;
    ImgTL: TImage;
    ImgTC: TImage;
    ImgTR: TImage;
    ImgTC_1: TImage;
    ImgTC_2: TImage;
    PalBottom: TPanel;
    ImgBL: TImage;
    ImgBR: TImage;
    Image1: TImage;
    ImgLeft: TImage;
    ImgRight: TImage;
    pnlBack: TPanel;
  private
    FConn: TADOConnection;
    FLoginInfo: TUserRec;
    procedure SetConn(const Value: TADOConnection);
    { Private declarations }
  public
    { Public declarations }
    property Conn: TADOConnection read FConn write SetConn;
    property LoginInfo: TUserRec read FLoginInfo write FLoginInfo;
  end;

var
  frmBaseMDI: TfrmBaseMDI;

implementation

{$R *.dfm}

{ TfrmBaseMDI }

procedure TfrmBaseMDI.SetConn(const Value: TADOConnection);
var
  I: Integer;
begin
  FConn := Value;
  for I:=0 to ComponentCount-1 do
    if Components[I] is TCustomADODataSet then
      TCustomADODataSet(Components[i]).Connection := Value;
end;

end.