Class TFormSelJoins (unit StdComps)

Inherits from

TForm

TFormSelJoins

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.

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


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