, , 䳿 (). , , - .
, , , .
(), , , , ( ), , ' . ' .
, , , - .
' ( ). ³ "", .
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. .****
˳:
- .. Delphi 7, .,: -, 2003 . 1152 .
- . ., . . Delphi 7. .: -, 2003. 784 : .
- .. Delphi., - .: , 2005, - 164 .
- .., .., .. '- : . / . ... .: - . .., 2001 320.
- .., .., Delphi . .: , 2005. 496 .