Class TPool_Module (unit Pool_Mod_Unit) |
Inherits from
TDataModule
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;
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;
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;
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;