ufrmbase.pas

来自「面向对象数据库开发时」· PAS 代码 · 共 45 行

{*******************************************************}
{                                                       }
{ 项目名称 沈阳市公安局人事信息管理辅助系统             }
{                                                       }
{ 版权所有 (C) 2004,2004 辽宁桑地系统集成开发有限公司   }
{                                                       }
{*******************************************************}

unit UFrmBase;

{*******************************************************}
{项目: 项目名称                                         }
{模块: UFrmBase                                         }
{描述: 窗口基类                                         }
{版本: V1.0                                             }
{日期: 2004.5                                           }
{作者: 张智                                             }
{更新:                                                  }
{TODO:                                                  }
{*******************************************************}


interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;

type
  TFrmBase = class(TForm)
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FrmBase: TFrmBase;

implementation

{$R *.dfm}

end.