Class TPool_Module (unit Pool_Mod_Unit)

Inherits from

TDataModule

Constructors



Functions

procedure AdminUserOpButClick(Sender: TObject);


procedure CancelPicksButtonClick(Sender: TObject);


procedure CancelScoreButClick(Sender: TObject);


procedure CancelSpreadButClick(Sender: TObject);


function CheckPassword: boolean;


procedure ClearIndexDefs(Table: TTable);


procedure CloseTable(Table: TTable);


procedure ConfirmPassButClick(Sender: TObject);

Free the scorelist

procedure CreateTable(Table: TTable);


procedure CreateTables;


procedure DeleteTable(Table: TTable);


procedure DeleteTables;


procedure ExpireLogoffButClick(Sender: TObject);


procedure ForEachTable(EachTable: TEachTable);

********************************************************************** TPool_Module

procedure GamesTableCalcFields(DataSet: TDataSet);


function GetGameWinner(WeekID, GameID: integer): integer;


function GetPointDif(UserID, WeekID: integer): double;

Inc if Pick = Game's winner

function GetRightPicks(UserID, WeekID: integer): integer;

Scoring Functions

function GetUserOwe(UserID: integer): double;


function GetUserOweWeek(UserID, WeekID: integer): double;


function GetUserPlayed(UserID: integer): boolean;

Payment functions

function GetUserScore(UserID, WeekID: integer): double;


function GetWeekWinners(WeekID: integer): TStringList;


procedure GoAdminButClick(Sender: TObject);


procedure InitFavoritesButClick(Sender: TObject);

Get the User's pick from the database

procedure InitSession;


function IsBeforeLockout(Week: integer): boolean;


procedure LastFormShow(Sender: TObject);


procedure LogAction(UserID: integer; Action: TLogAction);


procedure LogonButClick(Sender: TObject);

Load the Team List

procedure MainCancelButClick(Sender: TObject);


procedure NewUserButClick(Sender: TObject);


procedure OpenTable(Table: TTable);


procedure PayFormShow(Sender: TObject);


procedure PaymentButClick(Sender: TObject);


procedure PayReturnButClick(Sender: TObject);


procedure PayTableClick(Sender: TObject; RowIndex: Integer);

Fill Table with users who owe money!

procedure PicksButtonClick(Sender: TObject);

Check if the user has played, and what they owe

procedure PicksFormShow(Sender: TObject);

Reset to the previous Value

procedure PicksRefreshButClick(Sender: TObject);


procedure PK_AfterOpen(DataSet: TDataSet);


procedure PK_NewRecord(DataSet: TDataSet);


procedure PlayerClick(Sender: TObject);


procedure Pool_ModuleCreate(Sender: TObject);


procedure Pool_ModuleDestroy(Sender: TObject);


procedure PreviousWeekFormShow(Sender: TObject);


procedure PrevWeekCancelClick(Sender: TObject);


procedure PrevWeekTableClick(Sender: TObject; RowIndex: Integer);


procedure ResultsButtonClick(Sender: TObject);


procedure ReturnButClick(Sender: TObject);


procedure ReturnToAdminButClick(Sender: TObject);


procedure SavePicksButtonClick(Sender: TObject);


procedure SaveScoreButClick(Sender: TObject);


procedure SaveSpreadButClick(Sender: TObject);


procedure ScoreButClick(Sender: TObject);


procedure ScoreFormShow(Sender: TObject);


procedure ScoreRefreshButClick(Sender: TObject);


procedure SetDatabase(Table: TTable);


procedure SortNameButClick(Sender: TObject);


procedure SortPerButClick(Sender: TObject);

Color code dropped scores in red

procedure SortWeekButClick(Sender: TObject);


procedure SpreadButClick(Sender: TObject);


procedure SpreadFormShow(Sender: TObject);


procedure StatRefreshButClick(Sender: TObject);


procedure StatsButtonClick(Sender: TObject);

Paid for the Season

procedure StatsFormShow(Sender: TObject);


procedure StatsReturnButClick(Sender: TObject);


procedure TableEditFormShow(Sender: TObject);


procedure TeamClick(Sender: TObject);


procedure TeamSelectButClick(Sender: TObject);


procedure TeamStatFormShow(Sender: TObject);


procedure UnScoreButClick(Sender: TObject);


procedure UnSubmitButClick(Sender: TObject);

Save the Total Points & Comment

procedure UsageTableCalcFields(DataSet: TDataSet);


procedure UsageTablePostError(DataSet: TDataSet; E: EDatabaseError; var Action: TDataAction);


procedure UserFormShow(Sender: TObject);


procedure UserLogoffButtonClick(Sender: TObject);

Update Num Logons & Last Logon

procedure ViewPicksButtonClick(Sender: TObject);


procedure ViewPicksFormShow(Sender: TObject);


procedure ViewPicksRefreshButClick(Sender: TObject);


procedure ViewSortNameButClick(Sender: TObject);


procedure ViewSortPicksButClick(Sender: TObject);


procedure ViewWeek(ViewWeek: integer; BeforeLockout: boolean; SortType: TViewSortType);


procedure WABD_Button1Click(Sender: TObject);


procedure WABD_Button2Click(Sender: TObject);

for i := 0 to WinnerList.

procedure WABD_Button3Click(Sender: TObject);


procedure WABD_PoolSessionFirstLogon(Sender: TObject);


procedure WABD_PoolSessionLogOff(Sender: TObject);


procedure WABD_PoolSessionTimeOut(Sender: TObject);


procedure WeeksTableCalcFields(DataSet: TDataSet);


function CheckExpire: boolean;

If past the lockout time, do a check if past the last game

procedure CreatePickButtons;


procedure GetCurrentWeek;


procedure InitButton(li: TWABD_LiveImage; const Caption: string);


procedure SetWinColor(Winner, Pick: integer);


procedure UpdateStatList;


function VP_MakeLabel(x,y : integer; const Caption: string): TWABD_Label;


Properties

Events

Variables

AdminForm : TWABD_Form;


AdminFormHdr : TWABD_Header;


AdminLogoffBut : TWABD_Button;


AdminSection : TWABD_FormSection;


AdminUserOpBut : TWABD_Button;


AwayLabel : TWABD_Label;


CancelPicksButton : TWABD_Button;


CancelScoreBut : TWABD_Button;


CancelSpreadBut : TWABD_Button;


CommentEdit : TWABD_Edit;


ConfirmPassBut : TWABD_Button;


CurPickWeek : integer;


CurTimeHdr : TWABD_Header;


CurViewWeek : integer;


CurWeek : integer;


DropWeekEdit : TWABD_Edit;


EntryCost : double;


ExpireAnchor : TWABD_Anchor;


ExpireForm : TWABD_Form;


ExpireHdr : TWABD_Header;


ExpireHdr2 : TWABD_Header;


ExpireLogoffBut : TWABD_Button;


ExpireSec : TWABD_FormSection;


GameDayLabel : TWABD_Label;


GamesTable : TTable;


GamesTableAwayShort : TStringField;


GamesTableAwayTeamID : TIntegerField;


GamesTableAwayTeamName : TStringField;


GamesTableGameDay : TStringField;


GamesTableGameNum : TIntegerField;


GamesTableGameTime : TDateTimeField;


GamesTableHomeShort : TStringField;


GamesTableHomeTeamID : TIntegerField;


GamesTableHomeTeamName : TStringField;


GamesTablePlayed : TBooleanField;


GamesTableScore1 : TIntegerField;


GamesTableScore2 : TIntegerField;


GamesTableSpread : TFloatField;


GamesTableTVStation : TStringField;


GamesTableWeek : TIntegerField;


GameTimeLabel : TWABD_Label;


GlobalsTable : TTable;


GlobalsTableCurWeek : TIntegerField;


GlobalsTableEntryCost : TFloatField;


GoAdminBut : TWABD_Button;


GoodbyeHeader : TWABD_Header;


HomeLabel : TWABD_Label;


InitFavoritesBut : TWABD_Button;


IsAdmin : boolean;


IsGuest : boolean;


LastForm : TWABD_Form;


LatestNewsAnchor : TWABD_Anchor;


Lockout_Hdr : TWABD_Header;


LogonBut : TWABD_Button;


LogOnTime : TDateTime;


LongNamesCheckbox : TWABD_CheckBox;


MainCancelBut : TWABD_Button;


MainSection1 : TWABD_FormSection;


MainUserSec : TWABD_FormSection;


Main_Stat_Label : TWABD_Label;


NewUserBut : TWABD_Button;


PayEdit : TWABD_Edit;


PayForm : TWABD_Form;


PayHdr : TWABD_Header;


PaymentBut : TWABD_Button;


PayReturnBut : TWABD_Button;


PaySec : TWABD_FormSection;


PayTable : TWABD_Table;


PersonalHdr : TWABD_Header;


PickRefLab : TWABD_Label;


PicksButSection : TWABD_FormSection;


PicksButton : TWABD_LiveImage;


PicksForm : TWABD_Form;


PicksHeader : TWABD_Header;


PicksRefreshBut : TWABD_Button;


PicksSection : TWABD_FormSection;


PicksSubHeader : TWABD_Header;


PicksSubHeader2 : TWABD_Header;


PicksTable : TTable;


PicksTableGameID : TIntegerField;


PicksTablePick : TIntegerField;


PicksTablePlayerID : TIntegerField;


PicksTablePlayerName : TStringField;


PicksTableWeek : TIntegerField;


PicksWeekEdit : TWABD_Edit;


PlayerStatForm : TWABD_Form;


PlayerStatHdr : TWABD_Header;


PlayerWeeksTable : TTable;


PlayerWeeksTableComment : TStringField;


PlayerWeeksTablePaid : TBooleanField;


PlayerWeeksTablePaidAmount : TFloatField;


PlayerWeeksTablePlayedWeek : TBooleanField;


PlayerWeeksTablePlayerID : TIntegerField;


PlayerWeeksTablePlayerName : TStringField;


PlayerWeeksTableTieBreakerPts : TFloatField;


PlayerWeeksTableWeekID : TIntegerField;


Pool_Bgnd : TWABD_Image;


Pool_Main_Form : TWABD_Form;


PrevFormHdr : TWABD_Header;


PrevFormSubHdr : TWABD_Header;


PreviousWeekForm : TWABD_Form;


PrevWeekCancel : TWABD_Button;


PrevWeekTable : TWABD_Table;


ResultsButton : TWABD_LiveImage;


ReturnBut : TWABD_Button;


ReturnToAdminBut : TWABD_Button;


SavePicksButton : TWABD_Button;


SaveScoreBut : TWABD_Button;


SaveSpreadBut : TWABD_Button;


ScoreBut : TWABD_Button;


ScoreButSec : TWABD_FormSection;


ScoreForm : TWABD_Form;


ScoreHdr : TWABD_Header;


ScoreRefreshBut : TWABD_Button;


ScoreSec : TWABD_FormSection;


ScoreWeekEdit : TWABD_Edit;


SeasonPmtCheckbox : TWABD_CheckBox;


Session1 : TSession;


SortNameBut : TWABD_Button;


SortPerBut : TWABD_Button;


SortWeekBut : TWABD_Button;


SpreadBut : TWABD_Button;


SpreadButSec : TWABD_FormSection;


SpreadForm : TWABD_Form;


SpreadHdr : TWABD_Header;


SpreadLabel : TWABD_Label;


SpreadSec : TWABD_FormSection;


SpreadSubHdr : TWABD_Header;


StatRefreshBut : TWABD_Button;


StatsButSec : TWABD_FormSection;


StatsButton : TWABD_LiveImage;


StatsForm : TWABD_Form;


Statshdr : TWABD_Header;


StatsReturnBut : TWABD_Button;


StatsSec : TWABD_FormSection;


StatTeam : integer;


TabEdForm_StatLab : TWABD_Label;


TableEditForm : TWABD_Form;


TableEditHeader : TWABD_Header;


TableEditSection : TWABD_FormSection;


TableEdit_DataSource : TDataSource;


TableListBox : TWABD_ListBox;


TeamSelectBut : TWABD_Button;


TeamsTable : TTable;


TeamsTableTeamID : TIntegerField;


TeamsTableTeamName : TStringField;


TeamsTableTeamShort : TStringField;


TeamStatButSec : TWABD_FormSection;


TeamStatCombo : TWABD_ComboBox;


TeamStatForm : TWABD_Form;


TeamStatHdr : TWABD_Header;


TeamStatSec : TWABD_FormSection;


TieBreakerEdit : TWABD_Edit;


TreatZeroBox : TWABD_CheckBox;


TVLabel : TWABD_Label;


UnderConForm : TWABD_Form;


UnderConHdr : TWABD_Header;


UnScoreBut : TWABD_Button;


UnSubmitBut : TWABD_Button;


UsageTable : TTable;


UsageTableAction : TIntegerField;


UsageTableActionDesc : TStringField;


UsageTableTime : TDateTimeField;


UsageTableUsageID : TIntegerField;


UsageTableUserID : TIntegerField;


UsageTableUserName : TStringField;


UserForm : TWABD_Form;


UserFormStat : TWABD_Header;


UserID : integer;

Public declarations

UserLogOffButton : TWABD_LiveImage;


UserMainHdr : TWABD_Header;


UserName : TWABD_Edit;


UserPass : TWABD_Edit;


UserPass2 : TWABD_Edit;


UserStr : string;


UserTable : TTable;


UserTableLastLogon : TDateTimeField;


UserTableNumLogons : TIntegerField;


UserTableUserID : TIntegerField;


UserTableUserName : TStringField;


UserTableUserPass : TStringField;


ViewPicksButSec : TWABD_FormSection;


ViewPicksButton : TWABD_LiveImage;


ViewPicksForm : TWABD_Form;


ViewPicksHdr : TWABD_Header;


ViewPicksRefreshBut : TWABD_Button;


ViewPicksSec : TWABD_FormSection;


ViewSortNameBut : TWABD_Button;


ViewSortPicksBut : TWABD_Button;


WABD_Anchor1 : TWABD_Anchor;


WABD_Button1 : TWABD_Button;


WABD_Button2 : TWABD_Button;


WABD_Button3 : TWABD_Button;


WABD_FormSection1 : TWABD_FormSection;


WABD_FormSection2 : TWABD_FormSection;


WABD_FormSection4 : TWABD_FormSection;


WABD_Header1 : TWABD_Header;


WABD_Label1 : TWABD_Label;


WABD_Label10 : TWABD_Label;


WABD_Label11 : TWABD_Label;


WABD_Label12 : TWABD_Label;


WABD_Label13 : TWABD_Label;


WABD_Label14 : TWABD_Label;


WABD_Label15 : TWABD_Label;


WABD_Label2 : TWABD_Label;


WABD_Label3 : TWABD_Label;


WABD_Label4 : TWABD_Label;


WABD_Label5 : TWABD_Label;


WABD_Label6 : TWABD_Label;


WABD_Label7 : TWABD_Label;


WABD_Label8 : TWABD_Label;


WABD_Label9 : TWABD_Label;


WABD_PoolSession : TWABD_Session;


WeekPaidEdit : TWABD_Edit;


WeeksTable : TTable;


WeeksTableLockOutDay : TStringField;


WeeksTableLockOutTime : TDateTimeField;


WeeksTableScored : TBooleanField;


WeeksTableTotGames : TIntegerField;


WeeksTableWeek : TIntegerField;


DidStats : boolean;


StatList : TStatList;


TeamList : TStringList;


VP_Bold : Boolean;

Private declarations

VP_Color : TColor;


VP_Size : integer;



Constructors


Functions


procedure AdminUserOpButClick(Sender: TObject);


procedure CancelPicksButtonClick(Sender: TObject);


procedure CancelScoreButClick(Sender: TObject);


procedure CancelSpreadButClick(Sender: TObject);


function CheckPassword: boolean;


procedure ClearIndexDefs(Table: TTable);


procedure CloseTable(Table: TTable);


procedure ConfirmPassButClick(Sender: TObject);

Free the scorelist


procedure CreateTable(Table: TTable);


procedure CreateTables;


procedure DeleteTable(Table: TTable);


procedure DeleteTables;


procedure ExpireLogoffButClick(Sender: TObject);


procedure ForEachTable(EachTable: TEachTable);

********************************************************************** TPool_Module


procedure GamesTableCalcFields(DataSet: TDataSet);


function GetGameWinner(WeekID, GameID: integer): integer;


function GetPointDif(UserID, WeekID: integer): double;

Inc if Pick = Game's winner


function GetRightPicks(UserID, WeekID: integer): integer;

Scoring Functions


function GetUserOwe(UserID: integer): double;


function GetUserOweWeek(UserID, WeekID: integer): double;


function GetUserPlayed(UserID: integer): boolean;

Payment functions


function GetUserScore(UserID, WeekID: integer): double;


function GetWeekWinners(WeekID: integer): TStringList;


procedure GoAdminButClick(Sender: TObject);


procedure InitFavoritesButClick(Sender: TObject);

Get the User's pick from the database


procedure InitSession;


function IsBeforeLockout(Week: integer): boolean;


procedure LastFormShow(Sender: TObject);


procedure LogAction(UserID: integer; Action: TLogAction);


procedure LogonButClick(Sender: TObject);

Load the Team List


procedure MainCancelButClick(Sender: TObject);


procedure NewUserButClick(Sender: TObject);


procedure OpenTable(Table: TTable);


procedure PayFormShow(Sender: TObject);


procedure PaymentButClick(Sender: TObject);


procedure PayReturnButClick(Sender: TObject);


procedure PayTableClick(Sender: TObject; RowIndex: Integer);

Fill Table with users who owe money!


procedure PicksButtonClick(Sender: TObject);

Check if the user has played, and what they owe


procedure PicksFormShow(Sender: TObject);

Reset to the previous Value


procedure PicksRefreshButClick(Sender: TObject);


procedure PK_AfterOpen(DataSet: TDataSet);


procedure PK_NewRecord(DataSet: TDataSet);


procedure PlayerClick(Sender: TObject);


procedure Pool_ModuleCreate(Sender: TObject);


procedure Pool_ModuleDestroy(Sender: TObject);


procedure PreviousWeekFormShow(Sender: TObject);


procedure PrevWeekCancelClick(Sender: TObject);


procedure PrevWeekTableClick(Sender: TObject; RowIndex: Integer);


procedure ResultsButtonClick(Sender: TObject);


procedure ReturnButClick(Sender: TObject);


procedure ReturnToAdminButClick(Sender: TObject);


procedure SavePicksButtonClick(Sender: TObject);


procedure SaveScoreButClick(Sender: TObject);


procedure SaveSpreadButClick(Sender: TObject);


procedure ScoreButClick(Sender: TObject);


procedure ScoreFormShow(Sender: TObject);


procedure ScoreRefreshButClick(Sender: TObject);


procedure SetDatabase(Table: TTable);


procedure SortNameButClick(Sender: TObject);


procedure SortPerButClick(Sender: TObject);

Color code dropped scores in red


procedure SortWeekButClick(Sender: TObject);


procedure SpreadButClick(Sender: TObject);


procedure SpreadFormShow(Sender: TObject);


procedure StatRefreshButClick(Sender: TObject);


procedure StatsButtonClick(Sender: TObject);

Paid for the Season


procedure StatsFormShow(Sender: TObject);


procedure StatsReturnButClick(Sender: TObject);


procedure TableEditFormShow(Sender: TObject);


procedure TeamClick(Sender: TObject);


procedure TeamSelectButClick(Sender: TObject);


procedure TeamStatFormShow(Sender: TObject);


procedure UnScoreButClick(Sender: TObject);


procedure UnSubmitButClick(Sender: TObject);

Save the Total Points & Comment


procedure UsageTableCalcFields(DataSet: TDataSet);


procedure UsageTablePostError(DataSet: TDataSet; E: EDatabaseError; var Action: TDataAction);


procedure UserFormShow(Sender: TObject);


procedure UserLogoffButtonClick(Sender: TObject);

Update Num Logons & Last Logon


procedure ViewPicksButtonClick(Sender: TObject);


procedure ViewPicksFormShow(Sender: TObject);


procedure ViewPicksRefreshButClick(Sender: TObject);


procedure ViewSortNameButClick(Sender: TObject);


procedure ViewSortPicksButClick(Sender: TObject);


procedure ViewWeek(ViewWeek: integer; BeforeLockout: boolean; SortType: TViewSortType);


procedure WABD_Button1Click(Sender: TObject);


procedure WABD_Button2Click(Sender: TObject);

for i := 0 to WinnerList.Count-1 do begin VP_MakeLabel(1, 8 + PlayerList.Count + i, WinnerList[i]); end;


procedure WABD_Button3Click(Sender: TObject);


procedure WABD_PoolSessionFirstLogon(Sender: TObject);


procedure WABD_PoolSessionLogOff(Sender: TObject);


procedure WABD_PoolSessionTimeOut(Sender: TObject);


procedure WeeksTableCalcFields(DataSet: TDataSet);


function CheckExpire: boolean;

If past the lockout time, do a check if past the last game


procedure CreatePickButtons;


procedure GetCurrentWeek;


procedure InitButton(li: TWABD_LiveImage; const Caption: string);


procedure SetWinColor(Winner, Pick: integer);


procedure UpdateStatList;


function VP_MakeLabel(x,y : integer; const Caption: string): TWABD_Label;


Properties


Events


Variables


AdminForm : TWABD_Form;


AdminFormHdr : TWABD_Header;


AdminLogoffBut : TWABD_Button;


AdminSection : TWABD_FormSection;


AdminUserOpBut : TWABD_Button;


AwayLabel : TWABD_Label;


CancelPicksButton : TWABD_Button;


CancelScoreBut : TWABD_Button;


CancelSpreadBut : TWABD_Button;


CommentEdit : TWABD_Edit;


ConfirmPassBut : TWABD_Button;


CurPickWeek : integer;


CurTimeHdr : TWABD_Header;


CurViewWeek : integer;


CurWeek : integer;


DropWeekEdit : TWABD_Edit;


EntryCost : double;


ExpireAnchor : TWABD_Anchor;


ExpireForm : TWABD_Form;


ExpireHdr : TWABD_Header;


ExpireHdr2 : TWABD_Header;


ExpireLogoffBut : TWABD_Button;


ExpireSec : TWABD_FormSection;


GameDayLabel : TWABD_Label;


GamesTable : TTable;


GamesTableAwayShort : TStringField;


GamesTableAwayTeamID : TIntegerField;


GamesTableAwayTeamName : TStringField;


GamesTableGameDay : TStringField;


GamesTableGameNum : TIntegerField;


GamesTableGameTime : TDateTimeField;


GamesTableHomeShort : TStringField;


GamesTableHomeTeamID : TIntegerField;


GamesTableHomeTeamName : TStringField;


GamesTablePlayed : TBooleanField;


GamesTableScore1 : TIntegerField;


GamesTableScore2 : TIntegerField;


GamesTableSpread : TFloatField;


GamesTableTVStation : TStringField;


GamesTableWeek : TIntegerField;


GameTimeLabel : TWABD_Label;


GlobalsTable : TTable;


GlobalsTableCurWeek : TIntegerField;


GlobalsTableEntryCost : TFloatField;


GoAdminBut : TWABD_Button;


GoodbyeHeader : TWABD_Header;


HomeLabel : TWABD_Label;


InitFavoritesBut : TWABD_Button;


IsAdmin : boolean;


IsGuest : boolean;


LastForm : TWABD_Form;


LatestNewsAnchor : TWABD_Anchor;


Lockout_Hdr : TWABD_Header;


LogonBut : TWABD_Button;


LogOnTime : TDateTime;


LongNamesCheckbox : TWABD_CheckBox;


MainCancelBut : TWABD_Button;


MainSection1 : TWABD_FormSection;


MainUserSec : TWABD_FormSection;


Main_Stat_Label : TWABD_Label;


NewUserBut : TWABD_Button;


PayEdit : TWABD_Edit;


PayForm : TWABD_Form;


PayHdr : TWABD_Header;


PaymentBut : TWABD_Button;


PayReturnBut : TWABD_Button;


PaySec : TWABD_FormSection;


PayTable : TWABD_Table;


PersonalHdr : TWABD_Header;


PickRefLab : TWABD_Label;


PicksButSection : TWABD_FormSection;


PicksButton : TWABD_LiveImage;


PicksForm : TWABD_Form;


PicksHeader : TWABD_Header;


PicksRefreshBut : TWABD_Button;


PicksSection : TWABD_FormSection;


PicksSubHeader : TWABD_Header;


PicksSubHeader2 : TWABD_Header;


PicksTable : TTable;


PicksTableGameID : TIntegerField;


PicksTablePick : TIntegerField;


PicksTablePlayerID : TIntegerField;


PicksTablePlayerName : TStringField;


PicksTableWeek : TIntegerField;


PicksWeekEdit : TWABD_Edit;


PlayerStatForm : TWABD_Form;


PlayerStatHdr : TWABD_Header;


PlayerWeeksTable : TTable;


PlayerWeeksTableComment : TStringField;


PlayerWeeksTablePaid : TBooleanField;


PlayerWeeksTablePaidAmount : TFloatField;


PlayerWeeksTablePlayedWeek : TBooleanField;


PlayerWeeksTablePlayerID : TIntegerField;


PlayerWeeksTablePlayerName : TStringField;


PlayerWeeksTableTieBreakerPts : TFloatField;


PlayerWeeksTableWeekID : TIntegerField;


Pool_Bgnd : TWABD_Image;


Pool_Main_Form : TWABD_Form;


PrevFormHdr : TWABD_Header;


PrevFormSubHdr : TWABD_Header;


PreviousWeekForm : TWABD_Form;


PrevWeekCancel : TWABD_Button;


PrevWeekTable : TWABD_Table;


ResultsButton : TWABD_LiveImage;


ReturnBut : TWABD_Button;


ReturnToAdminBut : TWABD_Button;


SavePicksButton : TWABD_Button;


SaveScoreBut : TWABD_Button;


SaveSpreadBut : TWABD_Button;


ScoreBut : TWABD_Button;


ScoreButSec : TWABD_FormSection;


ScoreForm : TWABD_Form;


ScoreHdr : TWABD_Header;


ScoreRefreshBut : TWABD_Button;


ScoreSec : TWABD_FormSection;


ScoreWeekEdit : TWABD_Edit;


SeasonPmtCheckbox : TWABD_CheckBox;


Session1 : TSession;


SortNameBut : TWABD_Button;


SortPerBut : TWABD_Button;


SortWeekBut : TWABD_Button;


SpreadBut : TWABD_Button;


SpreadButSec : TWABD_FormSection;


SpreadForm : TWABD_Form;


SpreadHdr : TWABD_Header;


SpreadLabel : TWABD_Label;


SpreadSec : TWABD_FormSection;


SpreadSubHdr : TWABD_Header;


StatRefreshBut : TWABD_Button;


StatsButSec : TWABD_FormSection;


StatsButton : TWABD_LiveImage;


StatsForm : TWABD_Form;


Statshdr : TWABD_Header;


StatsReturnBut : TWABD_Button;


StatsSec : TWABD_FormSection;


StatTeam : integer;


TabEdForm_StatLab : TWABD_Label;


TableEditForm : TWABD_Form;


TableEditHeader : TWABD_Header;


TableEditSection : TWABD_FormSection;


TableEdit_DataSource : TDataSource;


TableListBox : TWABD_ListBox;


TeamSelectBut : TWABD_Button;


TeamsTable : TTable;


TeamsTableTeamID : TIntegerField;


TeamsTableTeamName : TStringField;


TeamsTableTeamShort : TStringField;


TeamStatButSec : TWABD_FormSection;


TeamStatCombo : TWABD_ComboBox;


TeamStatForm : TWABD_Form;


TeamStatHdr : TWABD_Header;


TeamStatSec : TWABD_FormSection;


TieBreakerEdit : TWABD_Edit;


TreatZeroBox : TWABD_CheckBox;


TVLabel : TWABD_Label;


UnderConForm : TWABD_Form;


UnderConHdr : TWABD_Header;


UnScoreBut : TWABD_Button;


UnSubmitBut : TWABD_Button;


UsageTable : TTable;


UsageTableAction : TIntegerField;


UsageTableActionDesc : TStringField;


UsageTableTime : TDateTimeField;


UsageTableUsageID : TIntegerField;


UsageTableUserID : TIntegerField;


UsageTableUserName : TStringField;


UserForm : TWABD_Form;


UserFormStat : TWABD_Header;


UserID : integer;

Public declarations


UserLogOffButton : TWABD_LiveImage;


UserMainHdr : TWABD_Header;


UserName : TWABD_Edit;


UserPass : TWABD_Edit;


UserPass2 : TWABD_Edit;


UserStr : string;


UserTable : TTable;


UserTableLastLogon : TDateTimeField;


UserTableNumLogons : TIntegerField;


UserTableUserID : TIntegerField;


UserTableUserName : TStringField;


UserTableUserPass : TStringField;


ViewPicksButSec : TWABD_FormSection;


ViewPicksButton : TWABD_LiveImage;


ViewPicksForm : TWABD_Form;


ViewPicksHdr : TWABD_Header;


ViewPicksRefreshBut : TWABD_Button;


ViewPicksSec : TWABD_FormSection;


ViewSortNameBut : TWABD_Button;


ViewSortPicksBut : TWABD_Button;


WABD_Anchor1 : TWABD_Anchor;


WABD_Button1 : TWABD_Button;


WABD_Button2 : TWABD_Button;


WABD_Button3 : TWABD_Button;


WABD_FormSection1 : TWABD_FormSection;


WABD_FormSection2 : TWABD_FormSection;


WABD_FormSection4 : TWABD_FormSection;


WABD_Header1 : TWABD_Header;


WABD_Label1 : TWABD_Label;


WABD_Label10 : TWABD_Label;


WABD_Label11 : TWABD_Label;


WABD_Label12 : TWABD_Label;


WABD_Label13 : TWABD_Label;


WABD_Label14 : TWABD_Label;


WABD_Label15 : TWABD_Label;


WABD_Label2 : TWABD_Label;


WABD_Label3 : TWABD_Label;


WABD_Label4 : TWABD_Label;


WABD_Label5 : TWABD_Label;


WABD_Label6 : TWABD_Label;


WABD_Label7 : TWABD_Label;


WABD_Label8 : TWABD_Label;


WABD_Label9 : TWABD_Label;


WABD_PoolSession : TWABD_Session;


WeekPaidEdit : TWABD_Edit;


WeeksTable : TTable;


WeeksTableLockOutDay : TStringField;


WeeksTableLockOutTime : TDateTimeField;


WeeksTableScored : TBooleanField;


WeeksTableTotGames : TIntegerField;


WeeksTableWeek : TIntegerField;


DidStats : boolean;


StatList : TStatList;


TeamList : TStringList;


VP_Bold : Boolean;

Private declarations


VP_Color : TColor;


VP_Size : integer;