Class TSkillSetsDM (unit SkillSet)

Inherits from

TDataModule

Constructors



Functions

procedure Mny2MnySQLNewRecord(DataSet: TDataSet);


procedure ByPeople;

Maintains Many-to-many viewing perspective

procedure BySkills;

To view by People

Set view indicator


procedure CheckAutoAdd;

To view by Skills

Reset view indicator


Properties

Events

Variables

DetailDS : TDataSource;


MasterDS : TDataSource;


Mny2MnyDS : TDataSource;


Mny2MnySQL : TQuery;


PeopleTB : TTable;


PeopleTBEmpID : TStringField;


PeopleTBFirstName : TStringField;


PeopleTBLastName : TStringField;


PersonSkillsSQL : TQuery;


PersonSkillsSQLACQUIRED : TDateField;


PersonSkillsSQLCERTIFIED : TStringField;


PersonSkillsSQLDESCRIP : TStringField;


PersonSkillsSQLEMPID : TStringField;


PersonSkillsSQLSKILLID : TStringField;


PersonSkillsSQLSKILLTYPE : TStringField;


SkilledPeopleSQL : TQuery;


SkilledPeopleSQLEMPID : TStringField;


SkilledPeopleSQLFIRSTNAMELASTNAME : TStringField;


SkilledPeopleSQLSKILLID : TStringField;


SkillsTB : TTable;


SkillsTBDescrip : TStringField;


SkillsTBDuration : TSmallintField;


SkillsTBRenewable : TStringField;


SkillsTBSkillID : TStringField;


SkillsTBSkillType : TStringField;


ViewingByPeople : Boolean;



Constructors


Functions


procedure Mny2MnySQLNewRecord(DataSet: TDataSet);


procedure ByPeople;

Maintains Many-to-many viewing perspective


procedure BySkills;

To view by People

Set view indicator


procedure CheckAutoAdd;

To view by Skills

Reset view indicator


Properties


Events


Variables


DetailDS : TDataSource;


MasterDS : TDataSource;


Mny2MnyDS : TDataSource;


Mny2MnySQL : TQuery;


PeopleTB : TTable;


PeopleTBEmpID : TStringField;


PeopleTBFirstName : TStringField;


PeopleTBLastName : TStringField;


PersonSkillsSQL : TQuery;


PersonSkillsSQLACQUIRED : TDateField;


PersonSkillsSQLCERTIFIED : TStringField;


PersonSkillsSQLDESCRIP : TStringField;


PersonSkillsSQLEMPID : TStringField;


PersonSkillsSQLSKILLID : TStringField;


PersonSkillsSQLSKILLTYPE : TStringField;


SkilledPeopleSQL : TQuery;


SkilledPeopleSQLEMPID : TStringField;


SkilledPeopleSQLFIRSTNAMELASTNAME : TStringField;


SkilledPeopleSQLSKILLID : TStringField;


SkillsTB : TTable;


SkillsTBDescrip : TStringField;


SkillsTBDuration : TSmallintField;


SkillsTBRenewable : TStringField;


SkillsTBSkillID : TStringField;


SkillsTBSkillType : TStringField;


ViewingByPeople : Boolean;