Bu unit program "database 3" işleminde kullanılır.
Kod: Tümünü seç
unit ADS_COMD;
interface
uses
Classes, SysUtils, Graphics, Controls, Forms, ExtCtrls, DB, DBTables;
type
{!~
The TTableNameSet_ads class is a decendent of TStringList. This class is ...
used to store the elements of a TableName connection, i.e., TableName, ...
and DatabaseName (in that order).
}
TTableNameSet_ads = class(TStringList);
{!~
The TDataFieldSet_ads class is a decendent of TStringList. This class is ...
used to store the elements of a DataField connection, i.e., DataField, ...
TableName, and DatabaseName (in that order).
}
TDataFieldSet_ads = class(TStringList);
type
{!~
TCommonDialog_ads is the base class for all Advanced Delphi Systems dialog ...
components.
}
TCommonDialog_ads = class(TComponent) {the component Name}
private
{Standard Private Variable Declarations }
FFont : TFont; {Sets the Form font property}
FTitle : String; {stores the Dialog Title}
FColorOfForm : TColor; {Stores Dialog Background Color}
FBeveled : Boolean; {Turns Beveling On and Off}
FModal : Boolean; {Set Modal property of form}
FBorderStyle : TFormBorderStyle; { Sets the dialog borderstyle}
FHeight : Integer; {Sets the height of the form}
FWidth : Integer; {Sets the Width of the form}
FMaximized : Boolean; {Sets Form to wsMaximized or wsNormal}
FButtonsResize : Boolean; {True causes the buttons to resize}
FButtonsAlignment : TAlignment; {Sets Alignment of Buttons}
FButtonWidth : Integer; {Sets Button Widths}
FButtonSpacer : Integer; {Sets Button Spacer Width}
FApplyChanges : Boolean; {True if changes should be made. = mrOk}
FShowHint : Boolean; {True if hints should be shown}
FMinFormWidth : Integer; {Sets a Minimum FormWidth}
FMinFormHeight : Integer; {Sets a Minimum FormHeight}
{Standard Database Private Variable Declarations }
FTableNameSet : TTableNameSet_ads; {TableName, DataBaseName}
FTableNameSetSrc : TTableNameSet_ads; {TableName, DataBaseName for Source}
FTableNameSetDest : TTableNameSet_ads; {TableName, DataBaseName for Dest}
FDataFieldSet : TDataFieldSet_ads; {TableName, DataBaseName, DataField}
FDataFieldSetSrc : TDataFieldSet_ads; {TableName, DataBaseName, DataField
for Source}
FDataFieldSetDest : TDataFieldSet_ads; {TableName, DataBaseName, DataField
for Dest}
{Standard Property Change Events}
FOnBeforeExecute : TNotifyEvent; {Event occurs prior to the execute method}
FOnAfterExecute : TNotifyEvent; {Event occurs after to the execute method}
FOnFontChange : TNotifyEvent; {Sets the Form font property}
FOnTitleChange : TNotifyEvent; {stores the Dialog Title}
FOnColorOfFormChange : TNotifyEvent; {Stores Dialog Background Color}
FOnBeveledChange : TNotifyEvent; {Turns Beveling On and Off}
FOnModalChange : TNotifyEvent; {Set Modal property of form}
FOnBorderStyleChange : TNotifyEvent; {Sets the dialog borderstyle}
FOnHeightChange : TNotifyEvent; {Sets the height of the form}
FOnWidthChange : TNotifyEvent; {Sets the Width of the form}
FOnMaximizedChange : TNotifyEvent; {Sets Form to wsMaximized or wsNormal}
FOnButtonsResizeChange : TNotifyEvent; {True causes the buttons to resize}
FOnButtonsAlignmentChange: TNotifyEvent; {Sets Alignment of Buttons}
FOnButtonWidthChange : TNotifyEvent; {Sets Button Widths}
FOnButtonSpacerChange : TNotifyEvent; {Sets Button Spacer Width}
FOnApplyChangesChange : TNotifyEvent; {True if changes should be made. = mrOk}
FOnShowHintChange : TNotifyEvent; {True if hints should be shown}
FOnMinFormWidthChange : TNotifyEvent; {Sets a Minimum FormWidth}
FOnMinFormHeightChange : TNotifyEvent; {Sets a Minimum FormHeight}
{Database Events}
FOnTableNameSetChange : TNotifyEvent; {TableName, DataBaseName}
FOnTableNameSetSrcChange : TNotifyEvent; {TableName, DataBaseName for Source}
FOnTableNameSetDestChange: TNotifyEvent; {TableName, DataBaseName for Dest}
FOnDataFieldSetChange : TNotifyEvent; {TableName, DataBaseName, DataField}
FOnDataFieldSetSrcChange : TNotifyEvent; {TableName, DataBaseName, DataField
for Source}
FOnDataFieldSetDestChange: TNotifyEvent; {TableName, DataBaseName, DataField
for Dest}
FOnDatabaseNameChange : TNotifyEvent;
FOnTableNameChange : TNotifyEvent;
FOnDataFieldChange : TNotifyEvent;
FOnDataBaseNameSrcChange : TNotifyEvent;
FOnTableNameSrcChange : TNotifyEvent;
FOnDataFieldSrcChange : TNotifyEvent;
FOnDataBaseNameDestChange: TNotifyEvent;
FOnTableNameDestChange : TNotifyEvent;
FOnDataFieldDestChange : TNotifyEvent;
FOnTableChange : TNotifyEvent;
FOnModifyDataSetChange : TNotifyEvent;
FOnQueryChange : TNotifyEvent;
FOnDataSetChange : TNotifyEvent;
FOnDataSourceChange : TNotifyEvent;
{Source & Dest TableNames & DataFields}
FDatabaseName : TFileName;
FTableName : TFileName;
FDataField : String;
FDataBaseNameSrc : TFileName;
FTableNameSrc : TFileName;
FDataFieldSrc : String;
FDataBaseNameDest : TFileName;
FTableNameDest : TFileName;
FDataFieldDest : String;
FTable : TTable;
FModifyDataSet : Boolean;
FQuery : TQuery;
FDataSet : TDataSet;
FDataSource : TDataSource;
{Unique Private Variable Declarations }
{Standard procedures and functions}
Procedure SetFont(Value : TFont); {Sets the Form font property}
Procedure SetTitle(Value : String); {stores the Dialog Title}
Procedure SetColorOfForm(Value : TColor); {Stores Dialog Background Color}
Procedure SetBeveled_ads(Value : Boolean); {Turns Beveling On and Off}
//Procedure SetModal(Value : Boolean); {Set Modal property of form}
Procedure SetBorderStyle(Value : TFormBorderStyle); { Sets the dialog borderstyle}
Procedure SetHeight(Value : Integer); {Sets the height of the form}
Procedure SetWidth(Value : Integer); {Sets the Width of the form}
Procedure SetMaximized(Value : Boolean); {Sets Form to wsMaximized or wsNormal}
Procedure SetButtonsResize(Value : Boolean); {True causes the buttons to resize}
Procedure SetButtonsAlignment(Value : TAlignment); {Sets Alignment of Buttons}
Procedure SetButtonWidth(Value : Integer); {Sets Button Widths}
Procedure SetButtonSpacer(Value : Integer); {Sets Button Spacer Width}
//Procedure SetApplyChanges(Value : Boolean); {True if changes should be made. = mrOk}
Procedure SetShowHint(Value : Boolean); {True if hints should be shown}
Procedure SetMinFormWidth(Value : Integer); {Sets a Minimum FormWidth}
Procedure SetMinFormHeight(Value : Integer); {Sets a Minimum FormHeight}
{Unique procedures and functions}
procedure SetDatabaseName(Value: TFileName);
procedure SetTableName(Value: TFileName);
procedure SetDataField(Value: String);
procedure SetTable(Value: TTable);
procedure SetModifyDataSet(Value: Boolean);
procedure SetQuery(Value: TQuery);
procedure SetDataSet(Value: TDataSet);
procedure SetTableNameSet(Value: TTableNameSet_ads); {Sets TableName, DataBaseName}
procedure SetTableNameSetSrc(Value: TTableNameSet_ads); {TableName, DataBaseName for Source}
procedure SetTableNameSetDest(Value: TTableNameSet_ads); {TableName, DataBaseName for Dest}
procedure SetDataFieldSet(Value: TDataFieldSet_ads); {TableName, DataBaseName, DataField}
procedure SetDataFieldSetSrc(Value: TDataFieldSet_ads); {TableName, DataBaseName, DataField for Source}
procedure SetDataFieldSetDest(Value: TDataFieldSet_ads); {TableName, DataBaseName, DataField for Dest}
procedure SetDataBaseNameSrc(Value: TFileName); {Sets Source DatabaseName}
procedure SetTableNameSrc(Value: TFileName); {Sets Source TableName}
procedure SetDataFieldSrc(Value: String); {Sets Source DataField}
procedure SetDataBaseNameDest(Value: TFileName); {Sets Dest DatabaseName}
procedure SetTableNameDest(Value: TFileName); {Sets Dest TableName}
procedure SetDataFieldDest(Value: String); {Sets Dest DataField}
procedure SetDataSource(Value: TDataSource); {Sets Dest DataField}
protected
{!~ The BeforeExecute event occurs before the component's dialog is displayed.
Example:
The following event handler simply informs the user that the ...
BeforeExecute event is being triggered. It is important to add the inherited line ...
to this event handler so that the functionality built in by the ...
component designer is implemented prior to any new event code.
procedure TForm1.TableDialog_ads1BeforeExecute(Sender: TObject);
begin
Inherited ...
BeforeExecute;
ShowMessage('The BeforeExecute event has been triggered.');
end;
}
Procedure BeforeExecute ; Virtual;
{!~ The AfterExecute event occurs after the component's dialog is displayed.
Example:
The following event handler simply informs the user that the ...
AfterExecute event is being triggered. It is important to add the inherited line ...
to this event handler so that the functionality built in by the ...
component designer is implemented prior to any new event code.
procedure TForm1.TableDialog_ads1AfterExecute(Sender: TObject);
begin
Inherited AfterExecute;
ShowMessage('The AfterExecute event has been triggered.');
end;
}
Procedure AfterExecute ; Virtual;
{zzz}
{!~ The FontChange event occurs after the component's ...
Font property is changed.
Example:
The following event handler simply informs the user that the ...
Font property has changed. It is important to add the inherited line ...
to this event handler so that the functionality built in by the ...
component designer is implemented prior to any new event code.
procedure TForm1.TableDialog_ads1FontChange(Sender: TObject);
begin
Inherited FontChange;
ShowMessage('The Font property just changed.');
end;
}
Procedure FontChange ; Virtual;
{!~ The TitleChange event occurs after the component's ...
Title property is changed.
Example:
The following event handler simply informs the user that the ...
Title property has changed. It is important to add the inherited line ...
to this event handler so that the functionality built in by the ...
component designer is implemented prior to any new event code.
procedure TForm1.TableDialog_ads1TitleChange(Sender: TObject);
begin
Inherited TitleChange;
ShowMessage('The Title property just changed.');
end;
}
Procedure TitleChange ; Virtual;
{!~ The ColorOfFormChange event occurs after the component's ...
ColorOfForm property is changed.
Example:
The following event handler simply informs the user that the ...
ColorOfForm property has changed. It is important to add the inherited line ...
to this event handler so that the functionality built in by the ...
component designer is implemented prior to any new event code.
procedure TForm1.TableDialog_ads1ColorOfFormChange(Sender: TObject);
begin
Inherited ColorOfFormChange;
ShowMessage('The ColorOfForm property just changed.');
end;
}
Procedure ColorOfFormChange ; Virtual;
{!~ The BeveledChange event occurs after the component's ...
Beveled property is changed.
Example:
The following event handler simply informs the user that the ...
Beveled property has changed. It is important to add the inherited line ...
to this event handler so that the functionality built in by the ...
component designer is implemented prior to any new event code.
procedure TForm1.TableDialog_ads1BeveledChange(Sender: TObject);
begin
Inherited BeveledChange;
ShowMessage('The Beveled property just changed.');
end;
}
Procedure BeveledChange ; Virtual;
{!~ The ModalChange event occurs after the component's ...
Modal property is changed.
Example:
The following event handler simply informs the user that the ...
Modal property has changed. It is important to add the inherited line ...
to this event handler so that the functionality built in by the ...
component designer is implemented prior to any new event code.
procedure TForm1.TableDialog_ads1ModalChange(Sender: TObject);
begin
Inherited ModalChange;
ShowMessage('The Modal property just changed.');
end;
}
Procedure ModalChange ; Virtual;
{!~ The BorderStyleChange event occurs after the component's ...
BorderStyle property is changed.
Example:
The following event handler simply informs the user that the ...
BorderStyle property has changed. It is important to add the inherited line ...
to this event handler so that the functionality built in by the ...
component designer is implemented prior to any new event code.
procedure TForm1.TableDialog_ads1BorderStyleChange(Sender: TObject);
begin
Inherited BorderStyleChange;
ShowMessage('The BorderStyle property just changed.');
end;
}
Procedure BorderStyleChange ; Virtual;
{!~ The HeightChange event occurs after the component's ...
Height property is changed.
Example:
The following event handler simply informs the user that the ...
Height property has changed. It is important to add the inherited line ...
to this event handler so that the functionality built in by the ...
component designer is implemented prior to any new event code.
procedure TForm1.TableDialog_ads1HeightChange(Sender: TObject);
begin
Inherited HeightChange;
ShowMessage('The Height property just changed.');
end;
}
Procedure HeightChange ; Virtual;
{!~ The WidthChange event occurs after the component's ...
Width property is changed.
Example:
The following event handler simply informs the user that the ...
Width property has changed. It is important to add the inherited line ...
to this event handler so that the functionality built in by the ...
component designer is implemented prior to any new event code.
procedure TForm1.TableDialog_ads1WidthChange(Sender: TObject);
begin
Inherited WidthChange;
ShowMessage('The Width property just changed.');
end;
}
Procedure WidthChange ; Virtual;
{!~ The MaximizedChange event occurs after the component's ...
Maximized property is changed.
Example:
The following event handler simply informs the user that the ...
Maximized property has changed. It is important to add the inherited line ...
to this event handler so that the functionality built in by the ...
component designer is implemented prior to any new event code.
procedure TForm1.TableDialog_ads1MaximizedChange(Sender: TObject);
begin
Inherited MaximizedChange;
ShowMessage('The Maximized property just changed.');
end;
}
Procedure MaximizedChange ; Virtual;
{!~ The ButtonsResizeChange event occurs after the component's ...
ButtonsResize property is changed.
Example:
The following event handler simply informs the user that the ...
ButtonsResize property has changed. It is important to add the inherited line ...
to this event handler so that the functionality built in by the ...
component designer is implemented prior to any new event code.
procedure TForm1.TableDialog_ads1ButtonsResizeChange(Sender: TObject);
begin
Inherited ButtonsResizeChange;
ShowMessage('The ButtonsResize property just changed.');
end;
}
Procedure ButtonsResizeChange ; Virtual;
{!~ The ButtonsAlignmentChange event occurs after the component's ...
ButtonsAlignment property is changed.
Example:
The following event handler simply informs the user that the ...
ButtonsAlignment property has changed. It is important to add the inherited line ...
to this event handler so that the functionality built in by the ...
component designer is implemented prior to any new event code.
procedure TForm1.TableDialog_ads1ButtonsAlignmentChange(Sender: TObject);
begin
Inherited ButtonsAlignmentChange;
ShowMessage('The ButtonsAlignment property just changed.');
end;
}
Procedure ButtonsAlignmentChange; Virtual;
{!~ The ButtonWidthChange event occurs after the component's ...
ButtonWidth property is changed.
Example:
The following event handler simply informs the user that the ...
ButtonWidth property has changed. It is important to add the inherited line ...
to this event handler so that the functionality built in by the ...
component designer is implemented prior to any new event code.
procedure TForm1.TableDialog_ads1ButtonWidthChange(Sender: TObject);
begin
Inherited ButtonWidthChange;
ShowMessage('The ButtonWidth property just changed.');
end;
}
Procedure ButtonWidthChange ; Virtual;
{!~ The ButtonSpacerChange event occurs after the component's ...
ButtonSpacer property is changed.
Example:
The following event handler simply informs the user that the ...
ButtonSpacer property has changed. It is important to add the inherited line ...
to this event handler so that the functionality built in by the ...
component designer is implemented prior to any new event code.
procedure TForm1.TableDialog_ads1ButtonSpacerChange(Sender: TObject);
begin
Inherited ButtonSpacerChange;
ShowMessage('The ButtonSpacer property just changed.');
end;
}
Procedure ButtonSpacerChange ; Virtual;
{!~ The ApplyChangesChange event occurs after the component's ...
ApplyChanges property is changed.
Example:
The following event handler simply informs the user that the ...
ApplyChanges property has changed. It is important to add the inherited line ...
to this event handler so that the functionality built in by the ...
component designer is implemented prior to any new event code.
procedure TForm1.TableDialog_ads1ApplyChangesChange(Sender: TObject);
begin
Inherited ApplyChangesChange;
ShowMessage('The ApplyChanges property just changed.');
end;
}
Procedure ApplyChangesChange ; Virtual;
{!~ The ShowHintChange event occurs after the component's ...
ShowHint property is changed.
Example:
The following event handler simply informs the user that the ...
ShowHint property has changed. It is important to add the inherited line ...
to this event handler so that the functionality built in by the ...
component designer is implemented prior to any new event code.
procedure TForm1.TableDialog_ads1ShowHintChange(Sender: TObject);
begin
Inherited ShowHintChange;
ShowMessage('The ShowHint property just changed.');
end;
}
Procedure ShowHintChange ; Virtual;
{!~ The MinFormWidthChange event occurs after the component's ...
MinFormWidth property is changed.
Example:
The following event handler simply informs the user that the ...
MinFormWidth property has changed. It is important to add the inherited line ...
to this event handler so that the functionality built in by the ...
component designer is implemented prior to any new event code.
procedure TForm1.TableDialog_ads1MinFormWidthChange(Sender: TObject);
begin
Inherited MinFormWidthChange;
ShowMessage('The MinFormWidth property just changed.');
end;
}
Procedure MinFormWidthChange ; Virtual;
{!~ The MinFormHeightChange event occurs after the component's ...
MinFormHeight property is changed.
Example:
The following event handler simply informs the user that the ...
MinFormHeight property has changed. It is important to add the inherited line ...
to this event handler so that the functionality built in by the ...
component designer is implemented prior to any new event code.
procedure TForm1.TableDialog_ads1MinFormHeightChange(Sender: TObject);
begin
Inherited MinFormHeightChange;
ShowMessage('The MinFormHeight property just changed.');
end;
}
Procedure MinFormHeightChange ; Virtual;
{!~ The TableNameSetChange event occurs after the component's ...
TableNameSet property is changed.
Example:
The following event handler simply informs the user that the ...
TableNameSet property has changed. It is important to add the inherited line ...
to this event handler so that the functionality built in by the ...
component designer is implemented prior to any new event code.
procedure TForm1.TableDialog_ads1TableNameSetChange(Sender: TObject);
begin
Inherited TableNameSetChange;
ShowMessage('The TableNameSet property just changed.');
end;
}
Procedure TableNameSetChange ; Virtual;
{!~ The TableNameSetSrcChange event occurs after the component's ...
TableNameSetSrc property is changed.
Example:
The following event handler simply informs the user that the ...
TableNameSetSrc property has changed. It is important to add the inherited line ...
to this event handler so that the functionality built in by the ...
component designer is implemented prior to any new event code.
procedure TForm1.TableDialog_ads1TableNameSetSrcChange(Sender: TObject);
begin
Inherited TableNameSetSrcChange;
ShowMessage('The TableNameSetSrc property just changed.');
end;
}
Procedure TableNameSetSrcChange ; Virtual;
{!~ The TableNameSetDestChange event occurs after the component's ...
TableNameSetDest property is changed.
Example:
The following event handler simply informs the user that the ...
TableNameSetDest property has changed. It is important to add the inherited line ...
to this event handler so that the functionality built in by the ...
component designer is implemented prior to any new event code.
procedure TForm1.TableDialog_ads1TableNameSetDestChange(Sender: TObject);
begin
Inherited TableNameSetDestChange;
ShowMessage('The TableNameSetDest property just changed.');
end;
}
Procedure TableNameSetDestChange; Virtual;
{!~ The DataFieldSetChange event occurs after the component's ...
DataFieldSet property is changed.
Example:
The following event handler simply informs the user that the ...
DataFieldSet property has changed. It is important to add the inherited line ...
to this event handler so that the functionality built in by the ...
component designer is implemented prior to any new event code.
procedure TForm1.TableDialog_ads1DataFieldSetChange(Sender: TObject);
begin
Inherited DataFieldSetChange;
ShowMessage('The DataFieldSet property just changed.');
end;
}
Procedure DataFieldSetChange ; Virtual;
{!~ The DataFieldSetSrcChange event occurs after the component's ...
DataFieldSetSrc property is changed.
Example:
The following event handler simply informs the user that the ...
DataFieldSetSrc property has changed. It is important to add the inherited line ...
to this event handler so that the functionality built in by the ...
component designer is implemented prior to any new event code.
procedure TForm1.TableDialog_ads1DataFieldSetSrcChange(Sender: TObject);
begin
Inherited DataFieldSetSrcChange;
ShowMessage('The DataFieldSetSrc property just changed.');
end;
}
Procedure DataFieldSetSrcChange ; Virtual;
{!~ The DataFieldSetDestChange event occurs after the component's ...
DataFieldSetDest property is changed.
Example:
The following event handler simply informs the user that the ...
DataFieldSetDest property has changed. It is important to add the inherited line ...
to this event handler so that the functionality built in by the ...
component designer is implemented prior to any new event code.
procedure TForm1.TableDialog_ads1DataFieldSetDestChange(Sender: TObject);
begin
Inherited DataFieldSetDestChange;
ShowMessage('The DataFieldSetDest property just changed.');
end;
}
Procedure DataFieldSetDestChange; Virtual;
{!~ The DatabaseNameChange event occurs after the component's ...
DatabaseName property is changed.
Example:
The following event handler simply informs the user that the ...
DatabaseName property has changed. It is important to add the inherited line ...
to this event handler so that the functionality built in by the ...
component designer is implemented prior to any new event code.
procedure TForm1.TableDialog_ads1DatabaseNameChange(Sender: TObject);
begin
Inherited DatabaseNameChange;
ShowMessage('The DatabaseName property just changed.');
end;
}
Procedure DatabaseNameChange ; Virtual;
{!~ The TableNameChange event occurs after the component's ...
TableName property is changed.
Example:
The following event handler simply informs the user that the ...
TableName property has changed. It is important to add the inherited line ...
to this event handler so that the functionality built in by the ...
component designer is implemented prior to any new event code.
procedure TForm1.TableDialog_ads1TableNameChange(Sender: TObject);
begin
Inherited TableNameChange;
ShowMessage('The TableName property just changed.');
end;
}
Procedure TableNameChange ; Virtual;
{!~ The DataFieldChange event occurs after the component's ...
DataField property is changed.
Example:
The following event handler simply informs the user that the ...
DataField property has changed. It is important to add the inherited line ...
to this event handler so that the functionality built in by the ...
component designer is implemented prior to any new event code.
procedure TForm1.TableDialog_ads1DataFieldChange(Sender: TObject);
begin
Inherited DataFieldChange;
ShowMessage('The DataField property just changed.');
end;
}
Procedure DataFieldChange ; Virtual;
{!~ The DataBaseNameSrcChange event occurs after the component's ...
DataBaseNameSrc property is changed.
Example:
The following event handler simply informs the user that the ...
DataBaseNameSrc property has changed. It is important to add the inherited line ...
to this event handler so that the functionality built in by the ...
component designer is implemented prior to any new event code.
procedure TForm1.TableDialog_ads1DataBaseNameSrcChange(Sender: TObject);
begin
Inherited DataBaseNameSrcChange;
ShowMessage('The DataBaseNameSrc property just changed.');
end;
}
Procedure DataBaseNameSrcChange ; Virtual;
{!~ The TableNameSrcChange event occurs after the component's ...
TableNameSrc property is changed.
Example:
The following event handler simply informs the user that the ...
TableNameSrc property has changed. It is important to add the inherited line ...
to this event handler so that the functionality built in by the ...
component designer is implemented prior to any new event code.
procedure TForm1.TableDialog_ads1TableNameSrcChange(Sender: TObject);
begin
Inherited TableNameSrcChange;
ShowMessage('The TableNameSrc property just changed.');
end;
}
Procedure TableNameSrcChange ; Virtual;
{!~ The DataFieldSrcChange event occurs after the component's ...
DataFieldSrc property is changed.
Example:
The following event handler simply informs the user that the ...
DataFieldSrc property has changed. It is important to add the inherited line ...
to this event handler so that the functionality built in by the ...
component designer is implemented prior to any new event code.
procedure TForm1.TableDialog_ads1DataFieldSrcChange(Sender: TObject);
begin
Inherited DataFieldSrcChange;
ShowMessage('The DataFieldSrc property just changed.');
end;
}
Procedure DataFieldSrcChange ; Virtual;
{!~ The DataBaseNameDestChange event occurs after the component's ...
DataBaseNameDest property is changed.
Example:
The following event handler simply informs the user that the ...
DataBaseNameDest property has changed. It is important to add the inherited line ...
to this event handler so that the functionality built in by the ...
component designer is implemented prior to any new event code.
procedure TForm1.TableDialog_ads1DataBaseNameDestChange(Sender: TObject);
begin
Inherited DataBaseNameDestChange;
ShowMessage('The DataBaseNameDest property just changed.');
end;
}
Procedure DataBaseNameDestChange; Virtual;
{!~ The TableNameDestChange event occurs after the component's ...
TableNameDest property is changed.
Example:
The following event handler simply informs the user that the ...
TableNameDest property has changed. It is important to add the inherited line ...
to this event handler so that the functionality built in by the ...
component designer is implemented prior to any new event code.
procedure TForm1.TableDialog_ads1TableNameDestChange(Sender: TObject);
begin
Inherited TableNameDestChange;
ShowMessage('The TableNameDest property just changed.');
end;
}
Procedure TableNameDestChange ; Virtual;
{!~ The DataFieldDestChange event occurs after the component's ...
DataFieldDest property is changed.
Example:
The following event handler simply informs the user that the ...
DataFieldDest property has changed. It is important to add the inherited line ...
to this event handler so that the functionality built in by the ...
component designer is implemented prior to any new event code.
procedure TForm1.TableDialog_ads1DataFieldDestChange(Sender: TObject);
begin
Inherited DataFieldDestChange;
ShowMessage('The DataFieldDest property just changed.');
end;
}
Procedure DataFieldDestChange ; Virtual;
{!~ The TableChange event occurs after the component's ...
Table property is changed.
Example:
The following event handler simply informs the user that the ...
Table property has changed. It is important to add the inherited line ...
to this event handler so that the functionality built in by the ...
component designer is implemented prior to any new event code.
procedure TForm1.TableDialog_ads1TableChange(Sender: TObject);
begin
Inherited TableChange;
ShowMessage('The Table property just changed.');
end;
}
Procedure TableChange ; Virtual;
{!~ The ModifyDataSetChange event occurs after the component's ...
ModifyDataSet property is changed.
Example:
The following event handler simply informs the user that the ...
ModifyDataSet property has changed. It is important to add the inherited line ...
to this event handler so that the functionality built in by the ...
component designer is implemented prior to any new event code.
procedure TForm1.TableDialog_ads1ModifyDataSetChange(Sender: TObject);
begin
Inherited ModifyDataSetChange;
ShowMessage('The ModifyDataSet property just changed.');
end;
}
Procedure ModifyDataSetChange ; Virtual;
{!~ The QueryChange event occurs after the component's ...
Query property is changed.
Example:
The following event handler simply informs the user that the ...
Query property has changed. It is important to add the inherited line ...
to this event handler so that the functionality built in by the ...
component designer is implemented prior to any new event code.
procedure TForm1.TableDialog_ads1QueryChange(Sender: TObject);
begin
Inherited QueryChange;
ShowMessage('The Query property just changed.');
end;
}
Procedure QueryChange ; Virtual;
{!~ The DataSetChange event occurs after the component's ...
DataSet property is changed.
Example:
The following event handler simply informs the user that the ...
DataSet property has changed. It is important to add the inherited line ...
to this event handler so that the functionality built in by the ...
component designer is implemented prior to any new event code.
procedure TForm1.TableDialog_ads1DataSetChange(Sender: TObject);
begin
Inherited DataSetChange;
ShowMessage('The DataSet property just changed.');
end;
}
Procedure DataSetChange ; Virtual;
{!~ The DataSourceChange event occurs after the component's ...
DataSource property is changed.
Example:
The following event handler simply informs the user that the ...
DataSource property has changed. It is important to add the inherited line ...
to this event handler so that the functionality built in by the ...
component designer is implemented prior to any new event code.
procedure TForm1.TableDialog_ads1DataSourceChange(Sender: TObject);
begin
Inherited DataSourceChange;
ShowMessage('The DataSource property just changed.');
end;
}
Procedure DataSourceChange ; Virtual;
{!~ The OnModalChange event occurs after the component's ...
Modal property is changed.
Example:
The following event handler simply informs the user that the ...
Modal
property has changed. It is important to add the inherited line ...
to this event handler so that the functionality built in by the ...
component designer is implemented prior to any new event code.
procedure TForm1.TableDialog_ads1
ModalChange
Change(Sender: TObject);
begin
Inherited
Modal
Change;
ShowMessage('The
Modal
property just changed.');
end;
}
Property OnModalChange : TNotifyEvent
Read FOnModalChange
Write FOnModalChange;
{!~ The OnApplyChangesChange event occurs after the component's ...
ApplyChanges property is changed.
Example:
The following event handler simply informs the user that the ...
ApplyChanges property has changed. It is important to add the inherited line ...
to this event handler so that the functionality built in by the ...
component designer is implemented prior to any new event code.
procedure TForm1.TableDialog_ads1ApplyChangesChange(Sender: TObject);
begin
Inherited ApplyChangesChange;
ShowMessage('The ApplyChanges property just changed.');
end;
}
Property OnApplyChangesChange : TNotifyEvent
Read FOnApplyChangesChange
Write FOnApplyChangesChange;
{!~ The OnTableNameSetChange event occurs after the component's..
TableNameSet property is changed.
Example:
The following event handler simply informs the user that the ...
TableNameSet property has changed. It is important to add the inherited line ...
to this event handler so that the functionality built in by the ...
component designer is implemented prior to any new event code.
procedure TForm1.TableDialog_ads1TableNameSetChange(Sender: TObject);
begin
Inherited TableNameSetChange;
ShowMessage('The TableNameSet property just changed.');
end;
}
Property OnTableNameSetChange : TNotifyEvent
Read FOnTableNameSetChange
Write FOnTableNameSetChange;
{!~ The OnTableNameSetSrcChange event occurs after the component's ...
TableNameSetSrc property is changed.
Example:
The following event handler simply informs the user that the ...
TableNameSetSrc property has changed. It is important to add the inherited line ...
to this event handler so that the functionality built in by the ...
component designer is implemented prior to any new event code.
procedure TForm1.TableDialog_ads1TableNameSetSrcChange(Sender: TObject);
begin
Inherited TableNameSetSrcChange;
ShowMessage('The TableNameSetSrc property just changed.');
end;
}
Property OnTableNameSetSrcChange : TNotifyEvent
Read FOnTableNameSetSrcChange
Write FOnTableNameSetSrcChange;
{!~ The OnTableNameSetDestChange event occurs after the component's ...
TableNameSetDest property is changed.
Example:
The following event handler simply informs the user that the ...
TableNameSetDest property has changed. It is important to add the inherited line ...
to this event handler so that the functionality built in by the ...
component designer is implemented prior to any new event code.
procedure TForm1.TableDialog_ads1TableNameSetDestChange(Sender: TObject);
begin
Inherited TableNameSetDestChange;
ShowMessage('The TableNameSetDest property just changed.');
end;
}
Property OnTableNameSetDestChange: TNotifyEvent
Read FOnTableNameSetDestChange
Write FOnTableNameSetDestChange;
{!~ The OnDataFieldSetChange event occurs after the component's ...
DataFieldSet property is changed.
Example:
The following event handler simply informs the user that the ...
DataFieldSet property has changed. It is important to add the inherited line ...
to this event handler so that the functionality built in by the ...
component designer is implemented prior to any new event code.
procedure TForm1.TableDialog_ads1DataFieldSetChange(Sender: TObject);
begin
Inherited DataFieldSetChange;
ShowMessage('The DataFieldSet property just changed.');
end;
}
Property OnDataFieldSetChange : TNotifyEvent
Read FOnDataFieldSetChange
Write FOnDataFieldSetChange;
{!~ The OnDataFieldSetSrcChange event occurs after the component's ...
DataFieldSetSrc property is changed.
Example:
The following event handler simply informs the user that the ...
DataFieldSetSrc property has changed. It is important to add the inherited line ...
to this event handler so that the functionality built in by the ...
component designer is implemented prior to any new event code.
procedure TForm1.TableDialog_ads1DataFieldSetSrcChange(Sender: TObject);
begin
Inherited DataFieldSetSrcChange;
ShowMessage('The DataFieldSetSrc property just changed.');
end;
}
Property OnDataFieldSetSrcChange : TNotifyEvent
Read FOnDataFieldSetSrcChange
Write FOnDataFieldSetSrcChange;
{!~ The OnDataFieldSetDestChange event occurs after the component's ...
DataFieldSetDest property is changed.
Example:
The following event handler simply informs the user that the ...
DataFieldSetDest property has changed. It is important to add the inherited line ...
to this event handler so that the functionality built in by the ...
component designer is implemented prior to any new event code.
procedure TForm1.TableDialog_ads1DataFieldSetDestChange(Sender: TObject);
begin
Inherited DataFieldSetDestChange;
ShowMessage('The DataFieldSetDest property just changed.');
end;
}
Property OnDataFieldSetDestChange: TNotifyEvent
Read FOnDataFieldSetDestChange
Write FOnDataFieldSetDestChange;
{!~ The OnDatabaseNameChange event occurs after the component's ...
DatabaseName property is changed.
Example:
The following event handler simply informs the user that the ...
DatabaseName property has changed. It is important to add the inherited line ...
to this event handler so that the functionality built in by the ...
component designer is implemented prior to any new event code.
procedure TForm1.TableDialog_ads1DatabaseNameChange(Sender: TObject);
begin
Inherited DatabaseNameChange;
ShowMessage('The DatabaseName property just changed.');
end;
}
Property OnDatabaseNameChange : TNotifyEvent
Read FOnDatabaseNameChange
Write FOnDatabaseNameChange;
{!~ The OnTableNameChange event occurs after the component's ...
TableName property is changed.
Example:
The following event handler simply informs the user that the ...
TableName property has changed. It is important to add the inherited line ...
to this event handler so that the functionality built in by the ...
component designer is implemented prior to any new event code.
procedure TForm1.TableDialog_ads1TableNameChange(Sender: TObject);
begin
Inherited TableNameChange;
ShowMessage('The TableName property just changed.');
end;
}
Property OnTableNameChange : TNotifyEvent
Read FOnTableNameChange
Write FOnTableNameChange;
{!~ The OnDataFieldChange event occurs after the component's ...
DataField property is changed.
Example:
The following event handler simply informs the user that the ...
DataField property has changed. It is important to add the inherited line ...
to this event handler so that the functionality built in by the ...
component designer is implemented prior to any new event code.
procedure TForm1.TableDialog_ads1DataFieldChange(Sender: TObject);
begin
Inherited DataFieldChange;
ShowMessage('The DataField property just changed.');
end;
}
Property OnDataFieldChange : TNotifyEvent
Read FOnDataFieldChange
Write FOnDataFieldChange;
{!~ The OnDataBaseNameSrcChange event occurs after the component's ...
DataBaseNameSrc property is changed.
Example:
The following event handler simply informs the user that the ...
DataBaseNameSrc property has changed. It is important to add the inherited line ...
to this event handler so that the functionality built in by the ...
component designer is implemented prior to any new event code.
procedure TForm1.TableDialog_ads1DataBaseNameSrcChange(Sender: TObject);
begin
Inherited DataBaseNameSrcChange;
ShowMessage('The DataBaseNameSrc property just changed.');
end;
}
Property OnDataBaseNameSrcChange : TNotifyEvent
Read FOnDataBaseNameSrcChange
Write FOnDataBaseNameSrcChange;
{!~ The OnTableNameSrcChange event occurs after the component's ...
TableNameSrc property is changed.
Example:
The following event handler simply informs the user that the ...
TableNameSrc property has changed. It is important to add the inherited line ...
to this event handler so that the functionality built in by the ...
component designer is implemented prior to any new event code.
procedure TForm1.TableDialog_ads1TableNameSrcChange(Sender: TObject);
begin
Inherited TableNameSrcChange;
ShowMessage('The TableNameSrc property just changed.');
end;
}
Property OnTableNameSrcChange : TNotifyEvent
Read FOnTableNameSrcChange
Write FOnTableNameSrcChange;
{!~ The OnDataFieldSrcChange event occurs after the component's ...
DataFieldSrc property is changed.
Example:
The following event handler simply informs the user that the ...
DataFieldSrc property has changed. It is important to add the inherited line ...
to this event handler so that the functionality built in by the ...
component designer is implemented prior to any new event code.
procedure TForm1.TableDialog_ads1DataFieldSrcChange(Sender: TObject);
begin
Inherited DataFieldSrcChange;
ShowMessage('The DataFieldSrc property just changed.');
end;
}
Property OnDataFieldSrcChange : TNotifyEvent
Read FOnDataFieldSrcChange
Write FOnDataFieldSrcChange;
{!~ The OnDataBaseNameDestChange event occurs after the component's ...
DataBaseNameDest property is changed.
Example:
The following event handler simply informs the user that the ...
DataBaseNameDest property has changed. It is important to add the inherited line ...
to this event handler so that the functionality built in by the ...
component designer is implemented prior to any new event code.
procedure TForm1.TableDialog_ads1DataBaseNameDestChange(Sender: TObject);
begin
Inherited DataBaseNameDestChange;
ShowMessage('The DataBaseNameDest property just changed.');
end;
}
Property OnDataBaseNameDestChange: TNotifyEvent
Read FOnDataBaseNameDestChange
Write FOnDataBaseNameDestChange;
{!~ The OnTableNameDestChange event occurs after the component's ...
TableNameDest property is changed.
Example:
The following event handler simply informs the user that the ...
TableNameDest property has changed. It is important to add the inherited line ...
to this event handler so that the functionality built in by the ...
component designer is implemented prior to any new event code.
procedure TForm1.TableDialog_ads1TableNameDestChange(Sender: TObject);
begin
Inherited TableNameDestChange;
ShowMessage('The TableNameDest property just changed.');
end;
}
Property OnTableNameDestChange : TNotifyEvent
Read FOnTableNameDestChange
Write FOnTableNameDestChange;
{!~ The OnDataFieldDestChange event occurs after the component's ...
DataFieldDest property is changed.
Example:
The following event handler simply informs the user that the ...
DataFieldDest property has changed. It is important to add the inherited line ...
to this event handler so that the functionality built in by the ...
component designer is implemented prior to any new event code.
procedure TForm1.TableDialog_ads1DataFieldDestChange(Sender: TObject);
begin
Inherited DataFieldDestChange;
ShowMessage('The DataFieldDest property just changed.');
end;
}
Property OnDataFieldDestChange : TNotifyEvent
Read FOnDataFieldDestChange
Write FOnDataFieldDestChange;
{!~ The OnTableChange event occurs after the component's ...
Table property is changed.
Example:
The following event handler simply informs the user that the ...
Table property has changed. It is important to add the inherited line ...
to this event handler so that the functionality built in by the ...
component designer is implemented prior to any new event code.
procedure TForm1.TableDialog_ads1TableChange(Sender: TObject);
begin
Inherited TableChange;
ShowMessage('The Table property just changed.');
end;
}
Property OnTableChange : TNotifyEvent
Read FOnTableChange
Write FOnTableChange;
{!~ The OnModifyDataSetChange event occurs after the component's ...
ModifyDataSet property is changed.
Example:
The following event handler simply informs the user that the ...
ModifyDataSet property has changed. It is important to add the inherited line ...
to this event handler so that the functionality built in by the ...
component designer is implemented prior to any new event code.
procedure TForm1.TableDialog_ads1ModifyDataSetChange(Sender: TObject);
begin
Inherited ModifyDataSetChange;
ShowMessage('The ModifyDataSet property just changed.');
end;
}
Property OnModifyDataSetChange : TNotifyEvent
Read FOnModifyDataSetChange
Write FOnModifyDataSetChange;
{!~ The OnQueryChange event occurs after the component's ...
Query property is changed.
Example:
The following event handler simply informs the user that the ...
Query property has changed. It is important to add the inherited line ...
to this event handler so that the functionality built in by the ...
component designer is implemented prior to any new event code.
procedure TForm1.TableDialog_ads1QueryChange(Sender: TObject);
begin
Inherited QueryChange;
ShowMessage('The Query property just changed.');
end;
}
Property OnQueryChange : TNotifyEvent
Read FOnQueryChange
Write FOnQueryChange;
{!~ The OnDataSetChange event occurs after the component's ...
DataSet property is changed.
Example:
The following event handler simply informs the user that the ...
DataSet property has changed. It is important to add the inherited line ...
to this event handler so that the functionality built in by the ...
component designer is implemented prior to any new event code.
procedure TForm1.TableDialog_ads1DataSetChange(Sender: TObject);
begin
Inherited DataSetChange;
ShowMessage('The DataSet property just changed.');
end;
}
Property OnDataSetChange : TNotifyEvent
Read FOnDataSetChange
Write FOnDataSetChange;
{!~ The OnDataSourceChange event occurs after the component's ...
DataSource property is changed.
Example:
The following event handler simply informs the user that the ...
DataSource property has changed. It is important to add the inherited line ...
to this event handler so that the functionality built in by the ...
component designer is implemented prior to any new event code.
procedure TForm1.TableDialog_ads1DataSourceChange(Sender: TObject);
begin
Inherited DataSourceChange;
ShowMessage('The DataSource property just changed.');
end;
}
Property OnDataSourceChange : TNotifyEvent
Read FOnDataSourceChange
Write FOnDataSourceChange;
{!~ The ApplyChanges property is used as a replacement for the ModalResult ...
functionality of dialog boxes. This property should not be used by developers ...
since it is strictly intended for internal component use.}
property ApplyChanges
: Boolean
Read FApplyChanges
Write FApplyChanges;
{!~ The Modal property is not currently functional.
!!!!!!IDEAS ANYONE????????
It is my hope that someday I will be able to figure out how to show component
based dialogs non modally. This way multiple instances of the dialog could be
visible and in use simultaneously. There are a number of instances where this
functionality would be beneficial, e.g., having 2 table structure dialogs up at
the same time so that their structures could be compared.
This property should not be used by developers since it is not currently
functional.}
property Modal
: Boolean
Read FModal
Write FModal;
Public
{Standard Public declarations }
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;
{!~
The ExecuteStandard function sets many of the properties that are common ...
between TForm and the Advanced Delphi Systems dialog components, e.g., ...
height, color, borderstyle windowstate etc.
}
function ExecuteStandard(Form : TForm): Boolean;
{!~
The CreateStandard procedure sets many of the properties that are common ...
between TForm and the Advanced Delphi Systems dialog components, e.g., ...
height, color, borderstyle windowstate etc.
}
procedure CreateStandard(AOwner: TComponent);
{!~
The CreateStandardDB procedure sets many of the standard database properties.
}
procedure CreateStandardDB(AOwner: TComponent);
{!~
The PanelBevel method sets the beveled characteristics of a panel based ...
on the Beveled boolean parameter. If Beveled is true the panel is ...
changed to a beveled appearance, if false beveling is removed.
}
Procedure PanelBevel(Beveled : Boolean; Panel: TPanel);
{Standard Database Public declarations }
{!~
Set the DatabaseName property to specify the database to access. ...
This property can specify:
A defined BDE alias,
A directory path for desktop database files,
A directory path and file name for a Local InterBase Server database,
An application-specific alias defined by a TDatabase component
}
property DatabaseName
: TFileName
read FDatabaseName
write SetDatabaseName;
{!~
The TableName property is the name of the database table to which the ...
component is linked.
}
property TableName
: TFileName
read FTableName
write SetTableName;
{!~
The DataField property identifies a field in a table or query attached to ...
a database. Depending on which Advanced Delphi Systems component this ...
property is being used in the DataField may be linked to a DataSource for ...
visual presentation of data or it may be linked to a databaseName and ...
TableName.
}
property DataField
: String
read FDataField
write SetDataField;
{!~
The Table property is a TTable component. The TTable component accesses a ...
database table. By default, TTable accesses every column in a table when ...
you activate it. When a data control component, such as TDBEdit, is ...
associated with a TTable object, it can display any field in the table. ...
Multi-column visual components, such as TDBGrid, access and display every ...
column in the table using the table's TField list. If you double-click a ...
TTable component on a form, you invoke the Fields editor. The Fields editor ...
specifies how data control components display data. For information about ...
using a TTable component, see Specifying a Dataset.
}
property Table
: TTable
Read FTable
Write SetTable;
{!~ The ModifyDataSet property determines whether records in the attached
dataset can be edited, inserted or deleted.}
property ModifyDataSet
: Boolean
Read FModifyDataSet
Write SetModifyDataSet;
{!~
The Query property is a TQuery component. ...
TQuery enables Delphi applications to issue SQL statements to a database ...
engine--either the BDE or an SQL server. TQuery provides the interface ...
between an SQL server (or the BDE) and TDataSource components. TDataSource ...
components then provide the interface to data-aware controls such as ...
TDBGrid. Set the DatabaseName property to specify the database to ...
query. Enter a single SQL statement to execute in the SQL property. To ...
query dBASE or Paradox tables, use local SQL. To query SQL server tables, ...
use passthrough SQL. The SQL statement can be a static SQL statement or ...
a dynamic SQL statement.
At run time, an application can supply parameter values for dynamic queries ...
with the Params property, the ParamByName method, or the DataSource ...
property. Use the Prepare method to optimize a dynamic query.
A result set is the group of records returned by a query to an application. ...
A TQuery can return two kinds of result sets:
"Live" result sets: As with TTable components, users can edit data in the ...
result set with data controls. The changes are sent to the database when a ...
Post occurs, or when the user tabs off a control.
"Read only" result sets: Users cannot edit data in the result set with ...
data controls.
If you want the query to provide a live result set, the SQL must conform to ...
certain syntax requirements. If the SQL syntax does not conform to these ...
requirements, the query will provide a read-only result set. Execute the SQL ...
statement at design time by setting the Active property to True . Execute ...
the SQL statement at run time with the Open or ExecSQL methods. Call the ...
First, Next, Prior, Last, and MoveBy methods to navigate through the result ...
set. Test the BOF and EOF properties to determine if the cursor is at the ...
beginning or end of the result set, respectively. Call the Append, Insert, ...
AppendRecord or InsertRecord methods to add a record to the underlying ...
database table. Call the Delete method to delete the current record. Call ...
the Edit method to allow modification of the fields of the current record, ...
and Post to post the changes or Cancel to discard them.
}
property Query
: TQuery
read FQuery
write SetQuery;
{!~
DataSet specifies the dataset component (TTable, TQuery, and TStoredProc) ...
that is providing data to the data source. Usually you set DataSet at ...
design time with the Object Inspector, but you can also set it ...
programmatically. The advantage of this interface approach to connecting ...
data components is that the dataset, data source, and data-aware controls ...
can be connected and disconnected from each other through the ...
TDataSource component. In addition, these components can belong ...
to different forms.
}
property DataSet
: TDataSet
read FDataSet
write SetDataSet;
{!~
The DataSource property determines where the component obtains the data ...
to display. Specify the data source component that identifies the dataset ...
the data is found in.
}
property DataSource
: TDataSource
read FDataSource
write SetDataSource;
{!~ The TableNameSet property is of type TTableNameSet_ads, a decendent of ...
TStringList. This property stores TableName as TableNameSet.Strings[0] and
DatabaseName as TableNameSet.Strings[1]. The TableName, DatabaseName and ...
TableNameSet properties are maintained in synchronization behind the scenes.
Example:
The following method simply informs the user what the ...
new DatabaseName is. It is important to add the inherited line ...
to this event handler so that the functionality built in by the ...
component designer is implemented prior to any new event code.
procedure TForm1.TableDialog_ads1DatabaseNameChange(Sender: TObject);
begin
Inherited DatabaseNameChange;
ShowMessage('The DatabaseName is now '+TableNameSet.Strings[1]);
end;
}
property TableNameSet
: TTableNameSet_ads
Read FTableNameSet
Write SetTableNameSet;
{!~ The TableNameSetSrc property is of type TTableNameSet_ads, a decendent ...
of TStringList. This property stores TableNameSrc as ...
TableNameSetSrc.Strings[0] and DatabaseNameSrc as TableNameSetSrc.Strings[1].
This property is intended to be used in conjunction with the TableNameDest ...
property. The *Src name extension means source and the *Dest extension means ...
Destination. There is a family of properties that embody this source and ...
destination concept: DataFieldSetSrc, DataFieldSetDest, TableNameSetSrc, ...
TableNameSetDest, DataFieldSrc, DataFieldDest, TableNameSrc, TableNameDest, ...
DatabaseNameSrc, DatabaseNameDest, Every attempt is made to keep these ...
properties synchronized.
Example:
The following method simply informs the user what the ...
new DatabaseNameSrc is. It is important to add the inherited line ...
to this event handler so that the functionality built in by the ...
component designer is implemented prior to any new event code.
procedure TForm1.TableDialog_ads1DatabaseNameSrcChange(Sender: TObject);
begin
Inherited DatabaseNameSrcChange;
ShowMessage('The DatabaseNameSrc is now '+TableNameSetSrc.Strings[1]);
end;
}
property TableNameSetSrc
: TTableNameSet_ads
Read FTableNameSetSrc
Write SetTableNameSetSrc;
{!~ The TableNameSetDest property is of type TTableNameSet_ads, a decendent ...
of TStringList. This property stores TableNameDest as ...
TableNameSetDest.Strings[0] and DatabaseNameDest as ...
TableNameSetDest.Strings[1].
This property is intended to be used in conjunction with the TableNameSrc ...
property. The *Src name extension means source and the *Dest extension means ...
Destination. There is a family of properties that embody this source and ...
destination concept: DataFieldSetSrc, DataFieldSetDest, TableNameSetSrc, ...
TableNameSetDest, DataFieldSrc, DataFieldDest, TableNameSrc, TableNameDest, ...
DatabaseNameSrc, DatabaseNameDest, Every attempt is made to keep these ...
properties synchronized.
Example:
The following method simply informs the user what the ...
new DatabaseNameDest is. It is important to add the inherited line ...
to this event handler so that the functionality built in by the ...
component designer is implemented prior to any new event code.
procedure TForm1.TableDialog_ads1DatabaseNameDestChange(Sender: TObject);
begin
Inherited DatabaseNameDestChange;
ShowMessage('The DatabaseNameDest is now '+TableNameSetDest.Strings[1]);
end;
}
property TableNameSetDest
: TTableNameSet_ads
Read FTableNameSetDest
Write SetTableNameSetDest;
{!~ The DataFieldSet property is of type TDataFieldSet_ads, a decendent of ...
TStringList. This property stores DataField as DataFieldSet.Strings[0] and ...
TableName as DataFieldSet.Strings[1] and DatabaseName as ...
DataFieldSet.Strings[2]. The DataField, TableName, DatabaseName and ...
DataFieldSet properties are maintained in synchronization behind the scenes.
Example:
The following method simply informs the user what the ...
new DatabaseName is. It is important to add the inherited line ...
to this event handler so that the functionality built in by the ...
component designer is implemented prior to any new event code.
procedure TForm1.TableDialog_ads1DatabaseNameChange(Sender: TObject);
begin
Inherited DatabaseNameChange;
ShowMessage('The DatabaseName is now '+DataFieldSet.Strings[2]);
end;
}
property DataFieldSet
: TDataFieldSet_ads
Read FDataFieldSet
Write SetDataFieldSet;
{!~ The DataFieldSetSrc property is of type TDataFieldSet_ads, a decendent ...
of TStringList. This property stores DataFieldSrc as ...
DataFieldSetSrc.Strings[0] and TableNameSrc as DataFieldSetSrc.Strings[1] ...
and DatabaseNameSrc as DataFieldSetSrc.Strings[2].
This property is intended to be used in conjunction with the DataFieldSetDest ...
property. The *Src name extension means source and the *Dest extension means ...
Destination. There is a family of properties that embody this source and ...
destination concept: DataFieldSetSrc, DataFieldSetDest, TableNameSetSrc, ...
TableNameSetDest, DataFieldSrc, DataFieldDest, TableNameSrc, TableNameDest, ...
DatabaseNameSrc, DatabaseNameDest, Every attempt is made to keep these ...
properties synchronized.
Example:
The following method simply inform