decl.pas

来自「详细说明:毕业论文中关于小型宾馆管理系统的详细设计毕 业论文中关于小型宾馆...」· PAS 代码 · 共 73 行

//
// This unit provides miscellaneous declerations for general use.
//
// (c) Chicony Software 2001
//
// When       Who  How
// ---------  ---  -------------------------------------------------------
// 2001  century  Initial version
//
unit decl;

interface

// Global Constants
const
  // Registry section (stored in HKEY_LOCAL_USER usually)
  PODMS_REGSECTION = '\Software\ChiconySoftware\PODMS';

  // Sub-sections of registry

  // Podms mutex prefix - stops programs being run multiple times, e.g. Framework
  PODMS_MUTEX_PREFIX= 'PODMS';

  // BDE registry section (stored in HKEY_LOCAL_MACHINE)
  BDE_REGSECTION= '\Software\Borland\Database Engine\';

  // ADO registry section (stored in HKEY_LOCAL_MACHINE)
  //xxx not sure this is correct
  ADO_REGSECTION= '\Software\Microsoft\DataAccess\';

// Record current online user related information
type
  TUsers = record
    Username:             String[16];
    Default_Group:        String[16]; // Owner
    Administrator:        Boolean;
    Manager:              Boolean;
    Impersonate:          Boolean;
    Expired:              Boolean;
    Disabled:             Boolean;
    Failed_Count:         SmallInt;
    Password_date:        TDateTime;
    Login_DateTime:       TDateTime;
    User_Connection_ID:   String;
  end;

type
  TAS_Security = record
    min_pword_len:        SmallInt;
    min_pword_num:        SmallInt;
    min_pword_punc:       SmallInt;
    max_consecutive:      SmallInt;
    pword_expiry:         SmallInt;
    store_old_pwords:     SmallInt;
    login_failed_counts:  SmallInt;
  end;

type
  TWS_Setting = record
    PkgRecs: SmallInt;
    Open_Dlg: Boolean;
    Row_Selected: Boolean;
    Editing: Boolean;
    AutoSave: Boolean;
    Readonly_Color: LongInt; // save as RGB mode
    Master_Color: LongInt;
    Normal_Color: LongInt;
  end;

implementation

end.