Class TFormSelJoins (unit StdComps) |
Inherits from
TForm
TFormSelJoins
procedure BtnAddClick(Sender: TObject);
Check Parent Recursion
procedure BtnClearClick(Sender: TObject);
If a join was selected
procedure BtnDeleteClick(Sender: TObject);
procedure FormCreate(Sender: TObject);
TFormSelJoins Implementation
procedure FormDestroy(Sender: TObject);
procedure Clear;
procedure GetJoins(J: TJoins);
procedure SetCaptions(LeftCaption, RightCaption: String);
Clears strings and joins
procedure SetStrings(J: TJoins);
if found, then join
procedure AddJoin(LeftSelected, RightSelected: Integer);
Returns false if the proposed join is recursive
procedure AddJoins;
Returns the index of Fld in LB
function CheckRecursive(LeftSelected, RightSelected: Integer): Boolean;
Indicates if joins can include the same name on both sides.
Procedure DeleteJoin(Join: Integer);
Adds a JoinAdd to Join lists
function FindIndex(Fld: String; LB: TListBox): Integer;
Deletes a Join
Bevel1 : TBevel;
BtnAdd : TBitBtn;
BtnCancel : TBitBtn;
BtnClear : TBitBtn;
BtnDelete : TBitBtn;
BtnOK : TBitBtn;
LabelJoined : TLabel;
LabelLeft : TLabel;
LabelRight : TLabel;
LBJoined : TListBox;
LBLeft : TListBox;
LBRight : TListBox;
DuplicateNames : Boolean;
The strings on the right side of the joins
LeftJoins : TStringList;
The strings in the right list Box
LeftStrings : TStringList;
RightJoins : TStringList;
The strings on the left side of the joins
RightStrings : TStringList;
The strings in the left list Box
procedure BtnAddClick(Sender: TObject);
Check Parent Recursion
procedure BtnClearClick(Sender: TObject);
If a join was selected
procedure BtnDeleteClick(Sender: TObject);
procedure FormCreate(Sender: TObject);
TFormSelJoins Implementation
procedure FormDestroy(Sender: TObject);
procedure Clear;
procedure GetJoins(J: TJoins);
procedure SetCaptions(LeftCaption, RightCaption: String);
Clears strings and joins
procedure SetStrings(J: TJoins);
if found, then join
procedure AddJoin(LeftSelected, RightSelected: Integer);
Returns false if the proposed join is recursive
procedure AddJoins;
Returns the index of Fld in LB
function CheckRecursive(LeftSelected, RightSelected: Integer): Boolean;
Indicates if joins can include the same name on both sides.
Delete from source list boxes
Procedure DeleteJoin(Join: Integer);
Adds a Join
Add to Join lists
function FindIndex(Fld: String; LB: TListBox): Integer;
Deletes a Join
Bevel1 : TBevel;
BtnAdd : TBitBtn;
BtnCancel : TBitBtn;
BtnClear : TBitBtn;
BtnDelete : TBitBtn;
BtnOK : TBitBtn;
LabelJoined : TLabel;
LabelLeft : TLabel;
LabelRight : TLabel;
LBJoined : TListBox;
LBLeft : TListBox;
LBRight : TListBox;
DuplicateNames : Boolean;
The strings on the right side of the joins
LeftJoins : TStringList;
The strings in the right list Box
LeftStrings : TStringList;
RightJoins : TStringList;
The strings on the left side of the joins
RightStrings : TStringList;
The strings in the left list Box