.


:




:

































 

 

 

 


TDataSource




, , 䳿 (). , , - .

, , , .

(), , , , ( ), , ' . ' .

, , , - .

' ( ). ³ "", .

Delphi . , - Delphi, . , , . .

³ Data Controls . , .

- (MDI SDI). , ' .

"" ( TDataModule). , , TComponent. . , - , . .

' Delphi. Data Module New.

, , , TDataModule TComponent. - , , , , .

(, ) , , , Diagram . - ' .

, , /. .

' Delphi. Data Module New.

, , ' uses:

unit InterfaceModule;

...

implementation

uses DataModule;

...

DataModule.Tablel.Open;

...

, - , . , , , , .

 

ϳ

. . 䳺 㳿 . 㳿 . .

New Application File ', New File.

. .

, , 䳿. , .

1. ϳ . , 㳿, , ', , .

2. ϳ . TableName, '. ϳ ' . ϳ TableName ' .

3. . ' . , - , . (, Orders OrdTable tblOrders).

4. ' . Active. ' True, ' . . open, , close, .

, COUNTRY, .DB DBDEMOS Borland Database Engine.

TTbl BDE . DatabaseName DBDEMOS, Delphi, DatabaseName. TableName ' "COUNTRY.DB". . Active ' True. ϳ ' . Name "CountryTable".

³ 䳿 䳿. .

 

˳ 1. Implementation DemoDBApp

implementation

$R *.DFM}

procedure TForml.FormShowfSender: TObject);

begin

try

CountryTable.Open;

except

ShowMessage('Table open error');

end;

end;

procedure TForml.FormClose(Sender: TObject; var Action: TCloseAction);

begin

CountryTable.Close;

end;

end.

FormShow. Open. try..except, .

( ), .

- FormClose, , close.

, Active. . , 䳿 ', . Active .

TDataSource

TDataSource. ³ . TDataSource, .

䳿.

1. ' TDataSource. DataSet TDataSource, '. . ' .

2. . ' . , ' . ' ( OrdSource dsOrders).

DemoDBApp countrysource ' CountryTable. DataSet CountryTable.

TDataSource 򳺿 , - , uses.

TDataSource . , '

property DataSet: TDataSet;

,

type TDataSetState = (dslnactive, dsBrowse, dsEdit, dslnsert, dsSetKey, dsCalcFields, dsFilter, dsNewValue, dsOldValue, dsCurValue, dsBlockRead, dsInternalCalc); property State: TDataSetState;

property Enabled: Boolean;

' . False ' .

property AutoEdit: Boolean;

True ' .

,

procedure Edit;

' .

function IsLinkedTo(DataSet: TDataSet): Boolean;

True, , DataSet, ' TDataSource.

-

type TDataChangeEvent = procedure(Sender: TObject; Field: TField)

of object;

property OnDataChange: TDataChangeEvent;

' .

-

property OnUpdateData: TNotifyEvent;

. -

property OnStateChange: TNotifyEvent;

' .

³

. ֳ . . , .

' TDataSource . DataSource. .

. DataField, ' , .

TOBGrid, . , . , , , .

, :

1. ' TDataSource. Datasource, TDataSource. ' TDataSource. '.

2. . DataField TFields. ' ' . ϳ Datasource . , .

TDBNavigator. ³ .

DemoDBApp TDBGrid, TDBNavigator TDBEdit.

' CountrySource TDataSource DataSource.

TDBEdit capital ( ) .

TDBGrid , .

TDBNavigator CountryTable. .

, Delphi. - Delphi , .

, 㳿 . .

:

;

TDataSource;

.

:

1. Delphi.**

2. ' . ***

3. 䳿 .***

4. 䳿 .****

5. .****

 

˳:

 

  1. .. Delphi 7, .,: -, 2003 . 1152 .
  2. . ., . . Delphi 7. .: -, 2003. 784 : .
  3. .. Delphi., - .: , 2005, - 164 .
  4. .., .., .. '- : . / . ... .: - . .., 2001 320.
  5. .., .., Delphi . .: , 2005. 496 .




:


: 2016-12-18; !; : 417 |


:

:

,
==> ...

1933 - | 1779 -


© 2015-2024 lektsii.org - -

: 0.041 .