uglobal.pas

非长好的DELPHI办公系统 直接可以用

unit uGlobal;

interface

uses
  Forms, Controls, SysUtils, Graphics, Buttons, ComCtrls, ADODB, uMyApp, uLog;

const
  {$IFDEF TRAIL}
  AppCaption = '办公用品管理系统';
  {$ELSE}
  AppCaption = '办公用品管理系统';
  {$ENDIF}
  ViewColor  = clMoneyGreen;

type
  TFormClass = class of TForm;

  PNodeData = ^TNodeData;
  TNodeData = packed record
    Id: Integer;
    No, En: string;
  end;

var
  MyApp: TMyApp;
  Log: TLog;

{模式显示指定窗口}
procedure ShowFormModal(AOwner: TWinControl; AFormClass: TFormClass);


implementation
procedure ShowFormModal(AOwner: TWinControl; AFormClass: TFormClass);
var
  Form: TForm;
begin
  Form := AFormClass.Create(AOwner);
  Form.ShowModal;
  FreeAndNil(Form);
end;

initialization
  MyApp := TMyApp.Create;
  Log := TLog.Create;
finalization
  MyApp.Free;
  Log.Free;

end.