| Class TFormSelJoins (unit StdComps) |
TForm
TFormSelJoins
| Constructors |
| Functions |
procedure BtnAddClick(Sender: TObject);
procedure BtnClearClick(Sender: TObject);
procedure BtnDeleteClick(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
procedure Clear;
procedure GetJoins(J: TJoins);
procedure SetCaptions(LeftCaption, RightCaption: String);
procedure SetStrings(J: TJoins);
procedure AddJoin(LeftSelected, RightSelected: Integer);
procedure AddJoins;
function CheckRecursive(LeftSelected, RightSelected: Integer): Boolean;
Procedure DeleteJoin(Join: Integer);Add to Join lists
function FindIndex(Fld: String; LB: TListBox): Integer;| Properties |
| Events |
| Variables |
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;
LeftJoins : TStringList;
LeftStrings : TStringList;
RightJoins : TStringList;
RightStrings : TStringList;| Constructors |
| Functions |
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
| Properties |
| Events |
| Variables |
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