Unit Pool_Mod_Unit

Classes

TPlayerScorePair -
TPlayerStat -
TPool_Module -
TStatList -
TViewRecord -

Functions

Types

TEachTable
TLogAction
TStatSort
TViewSortType

Constants

ADMIN_USER_ID
DROP_COLOR
GUEST_USER_ID
LASVEGAS_UID
LOSE_COLOR
MAXWEEK
POOL_ALIAS
WIN_COLOR

Variables

Pool_Module


Functions


Types


TEachTable = procedure(Table: TTable) of object

TLogAction = (Log_CreateTables, Log_LogOn, Log_LogOff, Log_TimeOut,
      Log_NewUser, Log_SavePicks, Log_ViewAllPicks, Log_LookStats,
      Log_LookResults, Log_TeamStats, Log_PlayerStats);

TStatSort = (ssName, ssWeeksPlayed, ssPickPer);

TViewSortType = (vsName, vsPicks);

Constants

ADMIN_USER_ID = 1

DROP_COLOR = clRed

GUEST_USER_ID = -1

LASVEGAS_UID = 9999

LOSE_COLOR = clRed

MAXWEEK = 17

POOL_ALIAS = 'WABD_POOL_DB'

Things to Add: - Graphic instead of buttons (TrueSpace?) - "Best" teams for a player (e.g., you can always pick a Redskins game...) - Don't create a persistent session until they really log in (Hard!) {$DEFINE PAYMENT_PENALTY} // Remove the "NO_" to turn payment penalties on {$DEFINE NO_TIME_CHECK} // Remove for Registered Users

WIN_COLOR = clGreen

Max Number of weeks in a season

Variables

Pool_Module : TPool_Module