. , .
IBQuery Interbase IBSource Data Access, (FormRef). IBQuery, . , .
, IBQuery IBUpdateSQL. IBUpdateSQL IBQuery.
(IBQuery) | (IBUpdateSQL) | |
IBQueryAP | IBUpdateSQLAP | |
IBQueryA | IBUpdateSQLA | |
IBQueryT | IBUpdateSQLCT | |
IBQueryRNC | IBUpdateSQLRNC | |
IBQueryPL | IBUpdateSQLPL | |
IBQuerySL | IBUpdateSQLSL |
DataSource (. . 16)
16
.
IBQuery ( IBQueryAP):
1. TiBDatabase DataModule. Database
Database = DataModule1.IBDatabase
2. . SQL
SQL = 'select * from AIRPORT'
3. IBQuery IBUpdateSQL ( ). UpdateObject
UpdateObject = IBUpdateSQLAP
IBQueryAP (. 17).
17 IBQueryAP
IBUpdateSQL, . ( AIRPORT AP_CODE) , . Generate SQL, , , . SQL (.18).
18 IBUpdateSQLAP
TDataSource. DataSource
|
|
DataSource = DataSource1
IBQuery DataSource. , IBQuery DataSource . DataSet DataSource (IBQueryAP, IBQueryA, IBQueryT, IBQueryRNC, IBQueryPL, IBQuerySL).
OnClick (RadioGroup), , .
procedure TForm1.RadioGroup1Click(Sender: TObject);
begin
case RadioGroup1.ItemIndex of
0: DataSource.DataSet:= IBQueryAP;
1: DataSource.DataSet:= IBQueryAC;
2: DataSource.DataSet:= IBQueryCT;
3: DataSource.DataSet:= IBQueryRNC;
4: DataSource.DataSet:= IBQueryPL;
5: DataSource.DataSet:= IBQuerySL;
end;
DataSource.DataSet.Open; //
end;
, , (DisplayLabel). (. 19).
19 IBQuery
(Add all fields). , , .
AIRPORT.AP_CT_CODE IBQueryAP. , , . IBQueryCT, (Lookup ).
Lookup New Field ( ). (. 20).
20
|
20
Field Type Lookup, CITY_NAME, - String - 20.
Lookup definition ( ) - AP_CT_CODE, IBQueryCT, - CT_CODE ( ), - CT_NAME. (DisplayLabel). AP_CT_CODE , Visible False. 21.
21